working cluser DEBUG OFF
[unres.git] / source / wham / src-M / wham_calc1.F
index 1d27235..f77a245 100644 (file)
@@ -114,7 +114,7 @@ c      parameter (MaxHdim=200000)
       do t=0,MaxN
         htot(t)=0
       enddo
-#define DEBUG
+C#define DEBUG
 #ifdef MPI
       do i=1,scount(me1)
 #else
@@ -1286,5 +1286,5 @@ C     &            +ftprim(6)*evdw_t
 #endif
 
       return
-#undef DEBUG
+C#undef DEBUG
       end