aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/naivemath.F906
1 files changed, 3 insertions, 3 deletions
diff --git a/src/naivemath.F90 b/src/naivemath.F90
index a83505e..b1d06f0 100644
--- a/src/naivemath.F90
+++ b/src/naivemath.F90
@@ -47,9 +47,9 @@ CONTAINS
allocate(C(size(A, 1), size(B, 2)))
C = 0
- DO i = 1, size(A(:,1))
- 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)
C(i,j) = C(i,j) + A(i,k) * B(k,j)
END DO