From f29a1075f9740ea9074d2bc520d25ae0e6841093 Mon Sep 17 00:00:00 2001 From: cometscome Date: Wed, 29 Dec 2021 16:43:36 +0900 Subject: [PATCH] test_matrix_multiplication.F90 is revised --- Fortran/test_matrix_multiplication.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Fortran/test_matrix_multiplication.F90 b/Fortran/test_matrix_multiplication.F90 index aebb46b..4297ab9 100755 --- a/Fortran/test_matrix_multiplication.F90 +++ b/Fortran/test_matrix_multiplication.F90 @@ -50,7 +50,9 @@ program test_matrix_multiplication do j = 1, dim3 do i = 1, dim1 C(i, j) = 0. - do k = 1, dim2 + end do + do k = 1, dim2 + do i = 1, dim1 C(i, j) = C(i, j) + A(i, k)*B(k, j) end do end do