dist1cut statout 2 rmsd

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

diff --git a/source/unres/src-HCD-5D/rmsd.F b/source/unres/src-HCD-5D/rmsd.F
index 4b604e7..4ee3c81 100644 (file)
--- a/source/unres/src-HCD-5D/rmsd.F
+++ b/source/unres/src-HCD-5D/rmsd.F
@@ -18,6 +18,21 @@
 
       return
       end      
+
+c---------------------------------------------------------------------------
+      subroutine rms_template(k,rms)
+        implicit real*8 (a-h,o-z)
+        include 'DIMENSIONS'
+        include 'COMMON.CHAIN'
+        include 'COMMON.CONTACTS'
+        include 'COMMON.IOUNITS'
+        integer k
+        double precision przes(3),obr(3,3)
+        logical non_conv,lprn
+        rms=rmscalc(c(1,1),chomo(1,1,k),ipermmin)
+      return
+      end      
+
 c---------------------------------------------------------------------------
       subroutine rmsd_csa(drms)
       implicit real*8 (a-h,o-z)