X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Frmscalc.F;h=44f8459d9d0ac3755af0d4fa1d66f2f732d6ca8f;hb=0b41c0eed4b401e3554fac2830d4234f83abdd98;hp=dc976b8f4b4acd3e965e77aa403834acda1e725c;hpb=de4daf245936d67b5c08eb584fca985adab9928e;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