--- /dev/null
+ integer ifrag,nfrag,npiece,iclass,iscore,ishifft,ncont_nat,ibase,
+ & n_shift,ipiece,istruct,ielecont,isccont,irms,len_frag,isnfrag,
+ & nc_req_setf,iloc,iloc_single,list_frag,nlist_frag,nlevel
+ double precision rmsfrag,rmscutfrag,rmscut_base_low,
+ & rmscut_base_up,
+ & rmsup_lim,rmsupup_lim,rms_nat,rmsang,ang_cut,ang_cut1,
+ & frac_min,nc_fragm,qfrag,qnat
+ logical lgrp,lgrp_out,binary
+ integer ncreq_hel,ncreq_bet,ncreq_pair,irms_pair,icont_pair,
+ & isplit_bet,nshift_hel,nshift_bet,nshift_strand,nshift_pair,
+ & irms_single,icont_single
+ double precision angcut_hel,angcut1_hel,angcut_bet,angcut1_bet,
+ & angcut_strand,angcut1_strand,frac_min_set,ncfrac_hel,ncfrac_bet,
+ & ncfrac_pair,frac_sec
+ common /compar/ rmsfrag(maxfrag,maxlevel),
+ & qfrag(maxfrag,2),rmscut_base_low,
+ & rmscut_base_up,rmsup_lim,rmsupup_lim,
+ & rmscutfrag(2,maxfrag,maxlevel),
+ & rms_nat,qnat,rmsang,ang_cut(maxfrag),
+ & ang_cut1(maxfrag),
+ & frac_min(maxfrag),nc_fragm(maxfrag,maxlevel),
+ & nc_req_setf(maxfrag,maxlevel),
+ & ncont_nat(2,maxfrag,maxlevel),nfrag(maxlevel),
+ & isnfrag(maxlevel+1),
+ & npiece(maxfrag,maxlevel),ifrag(2,maxpiece,maxfrag),
+ & ipiece(maxpiece,maxfrag,2:maxlevel),istruct(maxfrag),
+ & ielecont(maxfrag,maxlevel),
+ & isccont(maxfrag,maxlevel),irms(maxfrag,maxlevel),
+ & iloc(maxfrag),
+ & iclass(maxlevel*maxfrag,maxlevel),
+ & iscore,ishifft(maxfrag,maxlevel),
+ & len_frag(maxfrag,maxlevel),n_shift(2,maxfrag,maxlevel),
+ & nlevel,ibase,lgrp,lgrp_out,binary,
+ & nlist_frag(maxfrag),list_frag(maxres,maxfrag)
+ common /compar1/ angcut_hel,angcut1_hel,angcut_bet,angcut1_bet,
+ & angcut_strand,angcut1_strand,frac_min_set,ncfrac_hel,ncfrac_bet,
+ & ncfrac_pair,frac_sec,ncreq_hel,ncreq_bet,ncreq_pair,irms_pair,
+ & icont_pair,isplit_bet,nshift_hel,nshift_bet,nshift_strand,
+ & nshift_pair,irms_single,icont_single,iloc_single