Remove redundant/harmful ABS in SLASD7

Maarten Baert · Maarten Baert · commit fd9092e9b7a4 · 2025-06-28T13:12:25.000+02:00
diff --git a/SRC/slasd7.f b/SRC/slasd7.f
@@ -453,7 +453,7 @@ SUBROUTINE SLASD7( ICOMPQ, NL, NR, SQRE, K, D, Z, ZW, VF, VFW,
 *
 *        Check if singular values are close enough to allow deflation.
 *
-         IF( ABS( D( J )-D( JPREV ) ).LE.TOL ) THEN
+         IF( ( D( J )-D( JPREV ) ).LE.TOL ) THEN
 *
 *           Deflation is possible.
 *

Original file line number	Diff line number	Diff line change
`@@ -453,7 +453,7 @@ SUBROUTINE SLASD7( ICOMPQ, NL, NR, SQRE, K, D, Z, ZW, VF, VFW,`
`453`	`453`	`*`
`454`	`454`	`* Check if singular values are close enough to allow deflation.`
`455`	`455`	`*`
`456`		`- IF( ABS( D( J )-D( JPREV ) ).LE.TOL ) THEN`
	`456`	`+ IF( ( D( J )-D( JPREV ) ).LE.TOL ) THEN`
`457`	`457`	`*`
`458`	`458`	`* Deflation is possible.`
`459`	`459`	`*`