From 52342cb3e029ddabcd7e0c8565ac46b849884a7b Mon Sep 17 00:00:00 2001 From: Adam Sieradzan Date: Tue, 26 May 2015 13:43:17 +0200 Subject: [PATCH] energy_dec to logical --- source/cluster/wham/src-M/energy_p_new.F | 1 + 1 file changed, 1 insertion(+) 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 --- 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 -- 1.7.9.5