From 6a8fac2b72bd8296f92f92461af328f60533a987 Mon Sep 17 00:00:00 2001 From: Wojtek Kosior Date: Tue, 23 Apr 2019 22:30:42 +0200 Subject: [PATCH] use more readable size() notation --- src/naivemath.F90 | 6 +++--- 1 file 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 -- 2.11.4.GIT