- common /links/ dhpb(maxdim),dhpb1(maxdim),forcon(maxdim),
- & fordepth(maxdim),bfac(maxres),xlscore(maxdim),wboltzd,
- & ihpb(maxdim),jhpb(maxdim),ibecarb(maxdim),irestr_type(maxdim),
- & nhpb,restr_on_coord
- common /NMRpeaks/ dhpb_peak(maxdim),dhpb1_peak(maxdim),
- & forcon_peak(maxdim),fordepth_peak(maxdim),scal_peak,
- & ihpb_peak(maxdim),jhpb_peak(maxdim),ibecarb_peak(maxdim),
- & irestr_type_peak(maxdim),ipeak(2,maxdim),npeak,nhpb_peak
+ common /links/ dhpb(maxdim_cont),dhpb1(maxdim_cont),
+ & forcon(maxdim_cont),fordepth(maxdim_cont),bfac(maxres),
+ & xlscore(maxdim_cont),wboltzd,
+ & ihpb(maxdim_cont),jhpb(maxdim_cont),ibecarb(maxdim_cont),
+ & irestr_type(maxdim_cont),nhpb,restr_on_coord
+ common /NMRpeaks/ dhpb_peak(maxdim_cont),dhpb1_peak(maxdim_cont),
+ & forcon_peak(maxdim_cont),fordepth_peak(maxdim_cont),scal_peak,
+ & ihpb_peak(maxdim_cont),jhpb_peak(maxdim_cont),
+ & ibecarb_peak(maxdim_cont),irestr_type_peak(maxdim_cont),
+ & ipeak(2,maxdim_cont),npeak,nhpb_peak