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

diff --git a/source/cluster/wham/src-M/read_coords.F b/source/cluster/wham/src-M/read_coords.F
index ac11ac0..56962d9 100644
--- a/source/cluster/wham/src-M/read_coords.F
+++ b/source/cluster/wham/src-M/read_coords.F
@@ -283,7 +283,7 @@ c            write (iout,*) "nss",nss
               enddo
             enddo
           endif
-#define DEBUG
+C#define DEBUG
 #ifdef DEBUG
           write (iout,'(5hREAD ,i5,3f15.4,i10)') 
      &     jj+1,energy(jj+1),entfac(jj+1),
@@ -293,7 +293,7 @@ c            write (iout,*) "nss",nss
           write (iout,'(8f10.5)') ((c(j,i+nres),j=1,3),i=nnt,nct)
           call flush(iout)
 #endif
-#undef DEBUG
+C#undef DEBUG
           call add_new_cconf(jjj,jj,jj_old,icount,Next)
         enddo
   101   continue
@@ -646,7 +646,7 @@ c------------------------------------------------------------------------------
 c
 c Read conformations off a DA scratchfile.
 c
-#define DEBUG
+C#define DEBUG
 #ifdef DEBUG
       write (iout,*) "DAREAD_COORDS"
       write (iout,*) "istart_conf",istart_conf," iend_conf",iend_conf
@@ -683,7 +683,7 @@ c     &    nss_all(ij),(ihpb_all(i,ij),jhpb_all(i,ij),i=1,nss),
      &    jhpb_all(i,ij),i=1,nss)
         call flush(iout)
 #endif
-#undef DEBUG
+C#undef DEBUG
       enddo
       write (iout,*) "just before leave"
       call flush(iout)