X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fenergy_p_new.F;h=2c40d287b060a928c69452908b30c6b190f9f43a;hb=5571adbf2704f5c3a4a9eee84b7e43c6bb51e41c;hp=a0b80a5c10d6f3107e4996bb45ec7831ed42ee0c;hpb=91c00cbda6c048a29c1f84fb7b361a5fd6b691f3;p=unres.git

diff --git a/source/wham/src-M/energy_p_new.F b/source/wham/src-M/energy_p_new.F
index a0b80a5..2c40d28 100644
--- a/source/wham/src-M/energy_p_new.F
+++ b/source/wham/src-M/energy_p_new.F
@@ -189,11 +189,9 @@ c detecting NaNQ
 #ifdef MPL
 c     endif
 #endif
-#define DEBUG
 #ifdef DEBUG
       call enerprint(energia,fact)
 #endif
-#undef DEBUG
       if (calc_grad) then
 C
 C Sum up the components of the Cartesian gradient.