X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2Fmatmult.f;fp=source%2Funres%2Fsrc_CSA_DiL%2Fmatmult.f;h=0000000000000000000000000000000000000000;hp=e9257cf9bc88b93a0df5f41f14dccacf549d856d;hb=2a226bfc86eabc6e4eae0c3ad1cbc3cb5417a05a;hpb=a0e685f844163003749ba91dfbf4644bcc8cfa30

diff --git a/source/unres/src_CSA_DiL/matmult.f b/source/unres/src_CSA_DiL/matmult.f
deleted file mode 100644
index e9257cf..0000000
--- a/source/unres/src_CSA_DiL/matmult.f
+++ /dev/null
@@ -1,18 +0,0 @@
-      SUBROUTINE MATMULT(A1,A2,A3)
-      implicit real*8 (a-h,o-z)
-      include 'DIMENSIONS'
-      DIMENSION A1(3,3),A2(3,3),A3(3,3)
-      DIMENSION AI3(3,3)
-      DO 1 I=1,3
-        DO 2 J=1,3
-          A3IJ=0.0
-          DO 3 K=1,3
-    3       A3IJ=A3IJ+A1(I,K)*A2(K,J)
-          AI3(I,J)=A3IJ
-    2   CONTINUE
-    1 CONTINUE
-      DO 4 I=1,3
-      DO 4 J=1,3
-    4   A3(I,J)=AI3(I,J)
-      RETURN
-      END