projects / unres.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: f7ed201)
energy_dec to logical
authorAdam Sieradzan <adasko@piasek4.chem.univ.gda.pl>
Tue, 26 May 2015 11:43:17 +0000 (13:43 +0200)
committerAdam Sieradzan <adasko@piasek4.chem.univ.gda.pl>
Tue, 26 May 2015 11:43:17 +0000 (13:43 +0200)
source/cluster/wham/src-M/energy_p_new.F patch | blob | history

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