From 258970eaf49a77897ae6ae8a8019ed86983c9e0d Mon Sep 17 00:00:00 2001
From: Connor Moore <connor@hhmoore.ca>
Date: Tue, 10 Feb 2026 10:52:40 -0500
Subject: Implemented feedback. Redid plots and gnuplot file.

---
 matrixproduct.f90 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'matrixproduct.f90')

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
-- 
cgit v1.2.3