Merge pull request #1338 from ACSimon33/fix-chkbl-missing-abs

Fix SGEBAL test failure
2026-07-28 13:09:44 -06:00
parent e2a3ec48ec 01218ae45d
commit 6737170823
2 changed files with 2 additions and 2 deletions
@@ -133,7 +133,7 @@
 *
      DO 50 I = 1, N
         DO 40 J = 1, N
-            TEMP = MAX( A( I, J ), AIN( I, J ) )
+            TEMP = MAX( ABS( A( I, J ) ), ABS( AIN( I, J ) ) )
            TEMP = MAX( TEMP, SFMIN )
            VMAX = MAX( VMAX, ABS( A( I, J )-AIN( I, J ) ) / TEMP )
   40    CONTINUE
@@ -133,7 +133,7 @@
 *
      DO 50 I = 1, N
         DO 40 J = 1, N
-            TEMP = MAX( A( I, J ), AIN( I, J ) )
+            TEMP = MAX( ABS( A( I, J ) ), ABS( AIN( I, J ) ) )
            TEMP = MAX( TEMP, SFMIN )
            VMAX = MAX( VMAX, ABS( A( I, J )-AIN( I, J ) ) / TEMP )
   40    CONTINUE