Merge branch 'devel' into feature-ga

[unres.git] / source / unres / src_MD / md-diff / mts / eigtransf1.f

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 (file)
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