X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=inline;f=source%2Funres%2Fsrc-HCD-5D%2Frmscalc.F;h=44f8459d9d0ac3755af0d4fa1d66f2f732d6ca8f;hb=b2a27cc1df35ba97ad9dc3929c492ffc87cfbcf3;hp=dc976b8f4b4acd3e965e77aa403834acda1e725c;hpb=05c1789531ec3f44dfebf41b426cb1204329e7ff;p=unres.git

diff --git a/source/unres/src-HCD-5D/rmscalc.F b/source/unres/src-HCD-5D/rmscalc.F
index dc976b8..44f8459 100644
--- a/source/unres/src-HCD-5D/rmscalc.F
+++ b/source/unres/src-HCD-5D/rmscalc.F
@@ -19,7 +19,6 @@ C Loop over chain permutations
       if (iz_sc.lt.2) then
         do ichain=1,nchain
           indchain=tabpermchain(ichain,iperm)
-#define DEBUG
 #ifdef DEBUG
           write (iout,*) "ichain",ichain," indchain",indchain
           write (iout,*) "chain_border",chain_border(1,ichain),
@@ -202,7 +201,6 @@ c------------------------------------------------------------------------
 #ifdef DEBUG
       write (iout,*) "nnnn",nnnn," rmsside",rmsside
 #endif
-#undef DEBUG
       rmscalc_side=rmsside
       return
       end