X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2Fenergy_p_new.F;h=642cd29008d30ad956d2de75cc2f384a06c623e0;hb=b2f7e526886daf6e40d636d508f914044f965a8d;hp=2c663fb729e074ddb5016e93237697e0a062d686;hpb=52342cb3e029ddabcd7e0c8565ac46b849884a7b;p=unres.git

diff --git a/source/cluster/wham/src-M/energy_p_new.F b/source/cluster/wham/src-M/energy_p_new.F
index 2c663fb..642cd29 100644
--- a/source/cluster/wham/src-M/energy_p_new.F
+++ b/source/cluster/wham/src-M/energy_p_new.F
@@ -769,7 +769,7 @@ C
       common /srutu/icall
       integer icant
       external icant
-      logical energy_dec /.false./
+      logical energy_dec /.true./
 c     print *,'Entering EGB nnt=',nnt,' nct=',nct,' expon=',expon
       evdw=0.0D0
       evdw_t=0.0d0