X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Frmscalc.F;h=dc976b8f4b4acd3e965e77aa403834acda1e725c;hb=de4daf245936d67b5c08eb584fca985adab9928e;hp=b467d9c0353d645f2f2ffc4b32232266a46f64e4;hpb=cf4da5a9f21b849afd840360ba40787a35583c71;p=unres.git

diff --git a/source/unres/src-HCD-5D/rmscalc.F b/source/unres/src-HCD-5D/rmscalc.F
index b467d9c..dc976b8 100644
--- a/source/unres/src-HCD-5D/rmscalc.F
+++ b/source/unres/src-HCD-5D/rmscalc.F
@@ -19,6 +19,7 @@ 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),
@@ -199,8 +200,9 @@ c------------------------------------------------------------------------
       enddo
       rmsside=dsqrt(rmsside/nnnn)
 #ifdef DEBUG
-      write (iout,*) iii,iref," nnnn",nnnn," rmsside",rmsside
+      write (iout,*) "nnnn",nnnn," rmsside",rmsside
 #endif
+#undef DEBUG
       rmscalc_side=rmsside
       return
       end