diff options
Diffstat (limited to 'BLAS/TESTING/sblat1.f')
| -rw-r--r-- | BLAS/TESTING/sblat1.f | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/BLAS/TESTING/sblat1.f b/BLAS/TESTING/sblat1.f index bf336d6b..b78e10af 100644 --- a/BLAS/TESTING/sblat1.f +++ b/BLAS/TESTING/sblat1.f @@ -898,7 +898,8 @@ * * .. Parameters .. INTEGER NOUT - PARAMETER (NOUT=6) + REAL ZERO + PARAMETER (NOUT=6, ZERO=0.0E0) * .. Scalar Arguments .. REAL SFAC INTEGER LEN @@ -921,7 +922,7 @@ * DO 40 I = 1, LEN SD = SCOMP(I) - STRUE(I) - IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0E0) + IF (ABS(SFAC*SD) .LE. ABS(SSIZE(I))*EPSILON(ZERO)) + GO TO 40 * * HERE SCOMP(I) IS NOT CLOSE TO STRUE(I). |