X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fmd-diff%2Fmts%2Feigtransf1.f;fp=source%2Funres%2Fsrc_MD%2Fmd-diff%2Fmts%2Feigtransf1.f;h=0000000000000000000000000000000000000000;hb=0a11a2c4ccee14ed99ae44f2565b270ba8d4bbb6;hp=aea2e0ef5e4ff8bdf5ceee1e4ac395a7d2e50c7f;hpb=5eb407964903815242c59de10960f42761139e10;p=unres.git

diff --git a/source/unres/src_MD/md-diff/mts/eigtransf1.f b/source/unres/src_MD/md-diff/mts/eigtransf1.f
deleted file mode 100644
index aea2e0e..0000000
--- a/source/unres/src_MD/md-diff/mts/eigtransf1.f
+++ /dev/null
@@ -1,16 +0,0 @@
-c-------------------------------------------------------------      
-      subroutine eigtransf1(n,ndim,ab,d,c)
-      implicit none
-      integer n,ndim
-      double precision ab(ndim,ndim,n),c(ndim,n),d(ndim)
-      integer i,j,k
-      do i=1,n
-        do j=1,n
-          c(i,j)=0.0d0
-          do k=1,n
-            c(i,j)=c(i,j)+ab(k,j,i)*d(k)
-          enddo
-        enddo
-      enddo
-      return
-      end