diff options
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 |