source/wham/src/COMMON.COMPAR

   1       integer ifrag,nfrag,npiece,iclass,iscore,ishifft,ncont_nat,ibase,
   2      &  n_shift,ipiece,istruct,ielecont,isccont,irms,len_frag,isnfrag,
   3      &  nc_req_setf,iloc,iloc_single,list_frag,nlist_frag,nlevel
   4       double precision rmsfrag,rmscutfrag,rmscut_base_low,
   5      &  rmscut_base_up,
   6      &  rmsup_lim,rmsupup_lim,rms_nat,rmsang,ang_cut,ang_cut1,
   7      &  frac_min,nc_fragm,qfrag,qnat
   8       logical lgrp,lgrp_out,binary
   9       integer ncreq_hel,ncreq_bet,ncreq_pair,irms_pair,icont_pair,
  10      &  isplit_bet,nshift_hel,nshift_bet,nshift_strand,nshift_pair,
  11      &  irms_single,icont_single
  12       double precision angcut_hel,angcut1_hel,angcut_bet,angcut1_bet,
  13      &  angcut_strand,angcut1_strand,frac_min_set,ncfrac_hel,ncfrac_bet,
  14      &  ncfrac_pair,frac_sec
  15       common /compar/ rmsfrag(maxfrag,maxlevel),
  16      &  qfrag(maxfrag,2),rmscut_base_low,
  17      &  rmscut_base_up,rmsup_lim,rmsupup_lim,
  18      &  rmscutfrag(2,maxfrag,maxlevel),
  19      &  rms_nat,qnat,rmsang,ang_cut(maxfrag),
  20      &  ang_cut1(maxfrag),
  21      &  frac_min(maxfrag),nc_fragm(maxfrag,maxlevel),
  22      &  nc_req_setf(maxfrag,maxlevel),
  23      &  ncont_nat(2,maxfrag,maxlevel),nfrag(maxlevel),
  24      &  isnfrag(maxlevel+1),
  25      &  npiece(maxfrag,maxlevel),ifrag(2,maxpiece,maxfrag),
  26      &  ipiece(maxpiece,maxfrag,2:maxlevel),istruct(maxfrag),
  27      &  ielecont(maxfrag,maxlevel),
  28      &  isccont(maxfrag,maxlevel),irms(maxfrag,maxlevel),
  29      &  iloc(maxfrag),
  30      &  iclass(maxlevel*maxfrag,maxlevel),
  31      &  iscore,ishifft(maxfrag,maxlevel),
  32      &  len_frag(maxfrag,maxlevel),n_shift(2,maxfrag,maxlevel),
  33      &  nlevel,ibase,lgrp,lgrp_out,binary,
  34      &  nlist_frag(maxfrag),list_frag(maxres,maxfrag)
  35       common /compar1/ angcut_hel,angcut1_hel,angcut_bet,angcut1_bet,
  36      &  angcut_strand,angcut1_strand,frac_min_set,ncfrac_hel,ncfrac_bet,
  37      &  ncfrac_pair,frac_sec,ncreq_hel,ncreq_bet,ncreq_pair,irms_pair,
  38      &  icont_pair,isplit_bet,nshift_hel,nshift_bet,nshift_strand,
  39      &  nshift_pair,irms_single,icont_single,iloc_single