update
[unres.git] / source / wham / src-M-SAXS-homology / COMMON.FREE
index 163eb58..370dcfc 100644 (file)
@@ -1,11 +1,12 @@
       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,
+     & q0(MaxQ,MaxR,MaxT_h,max_parm),tole,delta,deltrms,deltrgy,fimin,
      & f(maxR,maxT_h,max_parm),beta_h(MaxT_h,max_parm)
       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)
       logical replica(max_parm),umbrella(max_parm),read_iset(max_parm)
-      common /wham/ Kh,q0,f,beta_h,delta,deltrms,deltrgy,fimin,snk,nR,
+      common /wham/ Kh,q0,f,beta_h,delta,tole,deltrms,deltrgy,fimin,
+     &  snk,nR,
      &  nRR,nT_h,nQ,stot,nparmset,maxit,rescale_mode,replica,umbrella,
      &  read_iset,totraj,hamil_rep,separate_parset,iparmprint,myparm