aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorWojtek Kosior <kwojtus@protonmail.com>2019-04-23 22:30:42 +0200
committerWojtek Kosior <kwojtus@protonmail.com>2019-04-23 22:30:42 +0200
commit6a8fac2b72bd8296f92f92461af328f60533a987 (patch)
tree56d06224e7a1f5b7e674670a5a4cbfe1130a54bf /src
parent51ce1efb441b6950032d622e6f859797db256fa7 (diff)
downloadfortran-assignment1-6a8fac2b72bd8296f92f92461af328f60533a987.tar.gz
fortran-assignment1-6a8fac2b72bd8296f92f92461af328f60533a987.zip
use more readable size() notation
Diffstat (limited to 'src')
-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