diff options
Diffstat (limited to 'TESTING/LIN/zqrt17.f')
-rw-r--r-- | TESTING/LIN/zqrt17.f | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/TESTING/LIN/zqrt17.f b/TESTING/LIN/zqrt17.f index 5e69ddd4..a1663cb8 100644 --- a/TESTING/LIN/zqrt17.f +++ b/TESTING/LIN/zqrt17.f @@ -250,9 +250,8 @@ IF( NORMB.NE.ZERO ) $ ERR = ERR / NORMB ELSE - NORMX = ZLANGE( 'One-norm', NCOLS, NRHS, X, LDX, RWORK ) - IF( NORMX.NE.ZERO ) - $ ERR = ERR / NORMX + IF( NORMRS.NE.ZERO ) + $ ERR = ERR / NORMRS END IF * ZQRT17 = ERR / ( DLAMCH( 'Epsilon' )*DBLE( MAX( M, N, NRHS ) ) ) |