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)