boxshift &readpdb

[unres.git] / source / unres / src-HCD-5D / rmscalc.F

diff --git a/source/unres/src-HCD-5D/rmscalc.F b/source/unres/src-HCD-5D/rmscalc.F
index b467d9c..dc976b8 100644 (file)
--- 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