From 33874d69d46df15faa13c039b1c329b12949b039 Mon Sep 17 00:00:00 2001
From: Jasper
Date: Mon, 1 Sep 2025 08:57:20 +0200
Subject: Tolerance check of absolute value in 'matrix_eq'

---
 matrix.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'matrix.c')

diff --git a/matrix.c b/matrix.c
index 46302f7..1e1a4dd 100644
--- a/matrix.c
+++ b/matrix.c
@@ -247,7 +247,7 @@ int matrix_eq(const Matrix *A, const Matrix *B, const double tol)
     for (size_t i = 0; i < A->m; ++i)
     {
         for (size_t j = 0; j < A->n; ++j)
-            if (matrix_at(A, i, j) - matrix_at(B, i, j) > tol) return FALSE;   
+            if (ABS(matrix_at(A, i, j) - matrix_at(B, i, j)) > tol) return FALSE;
     }
     return TRUE;
 }
-- 
cgit v1.2.3