X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fenergy_p_new.F;h=fb18913435cc4daf46f956bdf7c2a19b66cf1132;hp=730500e14a409aed49325fa215f0c2bb0f3693f8;hb=48f04f24e913a3e10867d2038b30efcd48a60a9f;hpb=4ed0b0657cdb9599bd714a010134061c94f509cc

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