projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
make cp src-HCD-5D
[unres.git]
/
source
/
unres
/
src-HCD-5D
/
matmult.f
diff --git
a/source/unres/src-HCD-5D/matmult.f
b/source/unres/src-HCD-5D/matmult.f
index
e9257cf
..
748df4d
100644
(file)
--- a/
source/unres/src-HCD-5D/matmult.f
+++ b/
source/unres/src-HCD-5D/matmult.f
@@
-1,11
+1,12
@@
SUBROUTINE MATMULT(A1,A2,A3)
SUBROUTINE MATMULT(A1,A2,A3)
- implicit real*8 (a-h,o-z)
+ IMPLICIT NONE
include 'DIMENSIONS'
include 'DIMENSIONS'
- DIMENSION A1(3,3),A2(3,3),A3(3,3)
- DIMENSION AI3(3,3)
+ DOUBLE PRECISION A1(3,3),A2(3,3),A3(3,3)
+ DOUBLE PRECISION AI3(3,3),A3IJ
+ integer I,J,K
DO 1 I=1,3
DO 2 J=1,3
DO 1 I=1,3
DO 2 J=1,3
- A3IJ=0.0
+ A3IJ=0.0D0
DO 3 K=1,3
3 A3IJ=A3IJ+A1(I,K)*A2(K,J)
AI3(I,J)=A3IJ
DO 3 K=1,3
3 A3IJ=A3IJ+A1(I,K)*A2(K,J)
AI3(I,J)=A3IJ