bug fix after Ana and cluster lipid (still in progress)

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

diff --git a/source/cluster/wham/src-M/probabl.F b/source/cluster/wham/src-M/probabl.F
index 8d9ac48..7bc3f1a 100644 (file)
--- a/source/cluster/wham/src-M/probabl.F
+++ b/source/cluster/wham/src-M/probabl.F
@@ -150,13 +150,13 @@ c          write (iout,'(8f10.5)') ((c(l,k),l=1,3),k=1,nres)
 c          write (iout,'(8f10.5)') ((c(l,k+nres),l=1,3),k=nnt,nct)
 c          call enerprint(energia(0),fT)
 c          call pdbout(totfree(i),16,i)
-C#define DEBUG
+#define DEBUG
 #ifdef DEBUG
           write (iout,*) i," energia",(energia(j),j=0,max_ene)
           write (iout,*) "etot", etot
           write (iout,*) "ft(6)", ft(6)
 #endif
-C#undef DEBUG
+#undef DEBUG
           do k=1,max_ene
             enetb(k,i)=energia(k)
           enddo