X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fwham_calc1.F;h=f77a245826cfac7160108ccc9ad4f261e68e14fb;hb=4ed0b0657cdb9599bd714a010134061c94f509cc;hp=1d272356e0c4295c831042668764573039cb7c6d;hpb=24d71016d39facb439708acae299529762f51e81;p=unres.git

diff --git a/source/wham/src-M/wham_calc1.F b/source/wham/src-M/wham_calc1.F
index 1d27235..f77a245 100644
--- a/source/wham/src-M/wham_calc1.F
+++ b/source/wham/src-M/wham_calc1.F
@@ -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