X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-NEWSC-NEWCORR%2FCOMMON.COMPAR;fp=source%2Fwham%2Fsrc-NEWSC-NEWCORR%2FCOMMON.COMPAR;h=eb59ea4ea99ebbc35282542632a99351fd96838c;hb=d101c97dea752458d76055fdbae49c26fff03c1f;hp=0000000000000000000000000000000000000000;hpb=325eda160c9ad2982501e091ca40606a29043712;p=unres.git

diff --git a/source/wham/src-NEWSC-NEWCORR/COMMON.COMPAR b/source/wham/src-NEWSC-NEWCORR/COMMON.COMPAR
new file mode 100644
index 0000000..eb59ea4
--- /dev/null
+++ b/source/wham/src-NEWSC-NEWCORR/COMMON.COMPAR
@@ -0,0 +1,39 @@
+      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