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