aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/bettermath.F9018
1 files changed, 9 insertions, 9 deletions
diff --git a/src/bettermath.F90 b/src/bettermath.F90
index e2c0773..c77bedf 100644
--- a/src/bettermath.F90
+++ b/src/bettermath.F90
@@ -47,9 +47,9 @@ CONTAINS
allocate(C(size(A, 1), size(B, 2)))
C = 0
- DO j = 1, size(B(1,:))
- DO k = 1, size(A(1,:))
- DO i = 1, size(A(:,1))
+ DO j = 1, size(B, 2)
+ DO k = 1, size(A, 2)
+ DO i = 1, size(A, 1)
C(i,j) = C(i,j) + A(i,k) * B(k,j)
END DO
@@ -67,9 +67,9 @@ CONTAINS
allocate(C(size(A, 1), size(B, 2)))
C = 0
- DO j = 1, size(B(1,:))
- DO k = 1, size(A(1,:))
- DO i = 1, size(A(:,1))
+ DO j = 1, size(B, 2)
+ DO k = 1, size(A, 2)
+ DO i = 1, size(A, 1)
C(i,j) = C(i,j) + A(i,k) * B(k,j)
END DO
@@ -87,9 +87,9 @@ CONTAINS
allocate(C(size(A, 1), size(B, 2)))
C = 0
- DO j = 1, size(B(1,:))
- DO k = 1, size(A(1,:))
- DO i = 1, size(A(:,1))
+ DO j = 1, size(B, 2)
+ DO k = 1, size(A, 2)
+ DO i = 1, size(A, 1)
C(i,j) = C(i,j) + A(i,k) * B(k,j)
END DO