X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-NEWSC-NEWCORR%2FCOMMON.FREE;fp=source%2Fwham%2Fsrc-NEWSC-NEWCORR%2FCOMMON.FREE;h=3e378cac6746725025c4384f58630f441d2827a3;hb=7308760ff07636ef6b1ee28d8c3a67a23c14b34b;hp=0000000000000000000000000000000000000000;hpb=9a54ab407f6d0d9d564d52763b3e2136450b9ffc;p=unres.git

diff --git a/source/wham/src-NEWSC-NEWCORR/COMMON.FREE b/source/wham/src-NEWSC-NEWCORR/COMMON.FREE
new file mode 100644
index 0000000..3e378ca
--- /dev/null
+++ b/source/wham/src-NEWSC-NEWCORR/COMMON.FREE
@@ -0,0 +1,15 @@
+      integer nQ,nparmset,stot(maxslice),rescale_mode,iparmprint,myparm
+      logical hamil_rep,separate_parset
+      double precision Kh(MaxQ,MaxR,MaxT_h,max_parm),
+     & q0(MaxQ,MaxR,MaxT_h,max_parm),delta,deltrms,deltrgy,fimin,
+     & f(maxR,maxT_h,max_parm),beta_h(MaxT_h,max_parm)
+      double precision delta_T,startGridT
+      integer nR(maxT_h,max_parm),snk(MaxR,MaxT_h,max_parm,MaxSlice),
+     & nT_h(max_parm),maxit,totraj(maxR,max_parm),nRR(maxT_h,max_parm)
+      integer nGridT
+      logical replica(max_parm),umbrella(max_parm),read_iset(max_parm)
+      common /wham/ Kh,q0,f,beta_h,delta,deltrms,deltrgy,delta_T,
+     &  startGridT,fimin,snk,nR,
+     &  nRR,nT_h,nQ,stot,nparmset,maxit,rescale_mode,replica,umbrella,
+     &  read_iset,totraj,hamil_rep,separate_parset,iparmprint,myparm,
+     &  nGridT