X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2Freadrtns.F;fp=source%2Fcluster%2Fwham%2Fsrc-M%2Freadrtns.F;h=5a42f4be33e77af69506dc2db1f189e4c21643f2;hb=ae8d9c0b861e24dfda2917c3a7f495eed21c227d;hp=05d6f22c4f698e75bf66c3cc3b5b07bea15eba39;hpb=04faa577d15f891beaa242b6285f3d900a6a6634;p=unres.git

diff --git a/source/cluster/wham/src-M/readrtns.F b/source/cluster/wham/src-M/readrtns.F
index 05d6f22..5a42f4b 100644
--- a/source/cluster/wham/src-M/readrtns.F
+++ b/source/cluster/wham/src-M/readrtns.F
@@ -110,7 +110,9 @@ C long axis of side chain
       lside = index(controlcard,"SIDE").gt.0
       efree = index(controlcard,"EFREE").gt.0
       call readi(controlcard,'NTEMP',nT,1)
-      write (iout,*) "nT",nT
+      cumul_prob=nt.lt.0
+      nT=iabs(nT)
+      write (iout,*) "nT",nT," cumul_prob",cumul_prob
       call multreada(controlcard,'TEMPER',beta_h,nT,300.0d0)
       write (iout,*) "nT",nT
       write (iout,*) 'beta_h',(beta_h(i),i=1,nT)