X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-NEWSC-NEWCORR%2Fmatmult.f;fp=source%2Fwham%2Fsrc-NEWSC-NEWCORR%2Fmatmult.f;h=e9257cf9bc88b93a0df5f41f14dccacf549d856d;hb=7308760ff07636ef6b1ee28d8c3a67a23c14b34b;hp=0000000000000000000000000000000000000000;hpb=9a54ab407f6d0d9d564d52763b3e2136450b9ffc;p=unres.git

diff --git a/source/wham/src-NEWSC-NEWCORR/matmult.f b/source/wham/src-NEWSC-NEWCORR/matmult.f
new file mode 100644
index 0000000..e9257cf
--- /dev/null
+++ b/source/wham/src-NEWSC-NEWCORR/matmult.f
@@ -0,0 +1,18 @@
+      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