readpdb & fort.2 from unres

[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 dc976b8..44f8459 100644 (file)
--- 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