Adam 7/30/2014

[unres.git] / source / wham / src / enecalc1.F

diff --git a/source/wham/src/enecalc1.F b/source/wham/src/enecalc1.F
index 857aec0..4b9414d 100644 (file)
--- a/source/wham/src/enecalc1.F
+++ b/source/wham/src/enecalc1.F
@@ -153,6 +153,7 @@ c     &   " kfac",kfac,"quot",quot," fT",fT
      &      wtor_d,wsccor,wbond
 #endif
         call etotal(energia(0),fT)
+#define DEBUG
 #ifdef DEBUG
         write (iout,*) "Conformation",i
         call enerprint(energia(0),fT)
@@ -160,6 +161,7 @@ c        write (iout,'(2i5,21f8.2)') i,iparm,(energia(k),k=1,21)
 c        write (iout,*) "ftors",ftors
 c        call intout
 #endif
+#undef DEBUG
         if (energia(0).ge.1.0d20) then
           write (iout,*) "NaNs detected in some of the energy",
      &     " components for conformation",ii+1