X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Fenecalc1.F;h=34a5eec1d02adb2be96dd2c17dbf5c6ec7fef55c;hb=c2b5c2a1de9cca14f60446937085424047097953;hp=857aec0e6d6d145213f66df3b4cf81023f5b8210;hpb=79854d858b2df03320c654ee73f0ee891efca800;p=unres.git

diff --git a/source/wham/src/enecalc1.F b/source/wham/src/enecalc1.F
index 857aec0..34a5eec 100644
--- a/source/wham/src/enecalc1.F
+++ b/source/wham/src/enecalc1.F
@@ -194,6 +194,11 @@ c        call pdbout(ii+1,beta_h(ib,ipar),efree,energia(0),0.0d0,rmsdev)
      &         " the value read in: ",energia(0),eini," point",
      &         iii+1,indstart(me1)+iii," T",
      &         1.0d0/(1.987D-3*beta_h(ib,ipar))
+             call enerprint(energia(0),fT)
+             call pdbout(iii+1,beta_h(ib,ipar),
+     &                   eini,energia(0),0.0d0,rmsdev)
+             write (iout,*)
+
               errmsg_count=errmsg_count+1
               if (errmsg_count.gt.maxerrmsg_count) 
      &          write (iout,*) "Too many warning messages"