diff options
| author | Connor Moore <connor@hhmoore.ca> | 2026-02-10 10:52:40 -0500 |
|---|---|---|
| committer | Connor Moore <connor@hhmoore.ca> | 2026-02-10 10:52:40 -0500 |
| commit | 258970eaf49a77897ae6ae8a8019ed86983c9e0d (patch) | |
| tree | 74471d1ce5e0b87cb09ea650fb33b51c5888c3dc /matrixproduct.f90 | |
| parent | 91d1dbe8d7d6a20f949208b2d55f9eb635276016 (diff) | |
Implemented feedback. Redid plots and gnuplot file.
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 |