X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Fcluster%2Fwham%2Fsrc%2Fread_coords.F;h=15456a23bb8647e83a46c742fb58b2671c6c56c9;hb=357148eb01c1ea7e5cfd362d34f1e1ab61c8f2a8;hp=cf98db7fbf3d279238561660a23ed6324a0e61cb;hpb=56b6e687a929b4935fe39b4abd8beb4e05265199;p=unres.git

diff --git a/source/cluster/wham/src/read_coords.F b/source/cluster/wham/src/read_coords.F
index cf98db7..15456a2 100644
--- 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.)