Merge branch 'devel' into AFM

[unres.git] / source / wham / src-NEWSC-NEWCORR / COMMON.FREE

diff --git a/source/wham/src-NEWSC-NEWCORR/COMMON.FREE b/source/wham/src-NEWSC-NEWCORR/COMMON.FREE
new file mode 100644 (file)
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