X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Frmsd.F;fp=source%2Funres%2Fsrc-HCD-5D%2Frmsd.F;h=4ee3c81a9abfd0fa8cea015dca8d32a74ea5c118;hb=e60965f49d9b673b981e806180d7da574e1ae17a;hp=4b604e7a68a496dbea70a4c314519ff04106fad2;hpb=8bb1cdb2042196e72a125024b254c96a72d7c7ef;p=unres.git

diff --git a/source/unres/src-HCD-5D/rmsd.F b/source/unres/src-HCD-5D/rmsd.F
index 4b604e7..4ee3c81 100644
--- 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)