dimensions

[unres.git] / source / wham / src-M / energy_p_new.F

diff --git a/source/wham/src-M/energy_p_new.F b/source/wham/src-M/energy_p_new.F
index a0b80a5..2c40d28 100644 (file)
--- 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.