WHAM and CLUSTER with HM restraints by AL and FP

[unres.git] / source / cluster / wham / src / read_coords.F

diff --git a/source/cluster/wham/src/read_coords.F b/source/cluster/wham/src/read_coords.F
index cf98db7..15456a2 100644 (file)
--- a/source/cluster/wham/src/read_coords.F
+++ b/source/cluster/wham/src/read_coords.F
@@ -178,13 +178,11 @@ c through a ring.
 #endif
         endif
 
-#define DEBUG
 #ifdef DEBUG
         write (iout,*) "Opening file ",intinname(:ilen(intinname))
         write (iout,*) "lenrec",lenrec_in
         call flush(iout)
 #endif
-#undef DEBUG
 c        write (iout,*) "maxconf",maxconf
         i=0
         do while (.true.)