From b2f7e526886daf6e40d636d508f914044f965a8d Mon Sep 17 00:00:00 2001 From: Adam Sieradzan Date: Tue, 26 May 2015 15:01:14 +0200 Subject: [PATCH] Debug cluster part 2 --- source/cluster/wham/src-M/energy_p_new.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.9.5