From: Adam Sieradzan <adasko@piasek4.chem.univ.gda.pl>
Date: Mon, 25 May 2015 10:43:12 +0000 (+0200)
Subject: debug part 6
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=5ea47130598a5c9ad27716a03de61cd1b87dd692

debug part 6
---

diff --git a/source/wham/src-M/energy_p_new.F b/source/wham/src-M/energy_p_new.F
index bedf32e..264cdfc 100644
--- a/source/wham/src-M/energy_p_new.F
+++ b/source/wham/src-M/energy_p_new.F
@@ -929,6 +929,7 @@ C Calculate the radial part of the gradient
 C Calculate angular part of the gradient.
             call sc_grad
             endif
+            write(iout,*)  "partial sum", evdw, evdw_t
             ENDIF    ! dyn_ss            
           enddo      ! j
         enddo        ! iint