diff options
| author | lvanveen <lennaert.vanveen@ontariotechu.ca> | 2026-02-11 15:36:12 -0500 |
|---|---|---|
| committer | lvanveen <lennaert.vanveen@ontariotechu.ca> | 2026-02-11 15:36:12 -0500 |
| commit | 7001c889be0b8be7733af31d48caad6c63be4266 (patch) | |
| tree | 70485df1d640279711acb95abc865e5c84d92ffb /matrixproduct.f90 | |
| parent | 4d2e223aa2eda4dc991702d12b145f4dc5bce708 (diff) | |
| parent | 014262c99b83799f3e8b73e48d5f1d98cfa697e0 (diff) | |
Merge branch 'master' of https://git.hhmoore.ca/mcsc-6030g/p1-matrix-product
Diffstat (limited to 'matrixproduct.f90')
| -rw-r--r-- | matrixproduct.f90 | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/matrixproduct.f90 b/matrixproduct.f90 index 97417e4..00b2a90 100644 --- a/matrixproduct.f90 +++ b/matrixproduct.f90 @@ -44,7 +44,9 @@ program matrixproduct case ('no') run_loops=.FALSE. case default - write(error_unit,'(A)') ESC_CHAR // "[31mERROR: Unsupported input (" // trim(temp_in) // ") for loop specification [yes/no]" // ESC_CHAR // "[0m" + write(error_unit,'(A)') ESC_CHAR // & + "[31mERROR: Unsupported input (" // trim(temp_in) // & + ") for loop specification [yes/no]" // ESC_CHAR // "[0m" stop end select @@ -131,7 +133,7 @@ contains integer(int32), intent(in) :: n integer(int32) :: i, j, k - !$omp parallel do private(j,k) + !$omp parallel do private(i,k) col: do j = 1,n row: do i = 1,n sum: do k = 1,n |