Merge branch 'devel' into feature-ga

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

diff --git a/source/unres/src_MD/md-diff/mts/eigtransf.f b/source/unres/src_MD/md-diff/mts/eigtransf.f
deleted file mode 100644 (file)
index ee44cd2..0000000
--- a/source/unres/src_MD/md-diff/mts/eigtransf.f
+++ /dev/null
@@ -1,16 +0,0 @@
-c-------------------------------------------------------------      
-      subroutine eigtransf(n,ndim,a,b,d,c)
-      implicit none
-      integer n,ndim
-      double precision a(ndim,n),b(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)+a(i,k)*b(k,j)*d(k)
-          enddo
-        enddo
-      enddo
-      return
-      end