5D update

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

diff --git a/source/cluster/wham/src-HCD-5D/rmscalc.F b/source/cluster/wham/src-HCD-5D/rmscalc.F
index a572ecd..6da72c9 100644 (file)
--- a/source/cluster/wham/src-HCD-5D/rmscalc.F
+++ b/source/cluster/wham/src-HCD-5D/rmscalc.F
@@ -24,6 +24,8 @@ C Loop over chain permutations
           write (iout,*) "ichain",ichain," indchain",indchain
           write (iout,*) "chain_border",chain_border(1,ichain),
      &      chain_border(2,ichain)
+          write (iout,*) "chain_length",chain_length(ichain)
+          write (iout,*) "nstart_sup",nstart_sup," nend_sup",nend_sup
 #endif
           do i=1,chain_length(ichain)
 c          do i=nstart_sup(ichain),nend_sup(ichain)
@@ -201,9 +203,6 @@ c------------------------------------------------------------------------
         enddo
       enddo
       rmsside=dsqrt(rmsside/nnnn)
-#ifdef DEBUG
-      write (iout,*) iii,iref," nnnn",nnnn," rmsside",rmsside
-#endif
       rmscalc_side=rmsside
       return
       end