X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M-SAXS-homology%2FCOMMON.FREE;h=370dcfc6e7b86f41b03eddbd9b32572eb99e9ba0;hb=34d3ad3987785642be58fb2f26557d3314215577;hp=163eb581a8d1aed6fddecf1e68f1320ad6947186;hpb=f690e8b70bab14132839afebf080d4a28363b226;p=unres.git

diff --git a/source/wham/src-M-SAXS-homology/COMMON.FREE b/source/wham/src-M-SAXS-homology/COMMON.FREE
index 163eb58..370dcfc 100644
--- a/source/wham/src-M-SAXS-homology/COMMON.FREE
+++ b/source/wham/src-M-SAXS-homology/COMMON.FREE
@@ -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