Lines Matching refs:EPS
82 REAL EPS, ERR, THRESH
241 * Compute EPS (the machine precision).
243 EPS = RONE
245 IF( SDIFF( RONE + EPS, RONE ).EQ.RZERO )
247 EPS = RHALF*EPS
250 EPS = EPS + EPS
251 WRITE( NOUT, FMT = 9998 )EPS
270 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
278 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
307 140 CALL CCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
313 150 CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
320 160 CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
325 170 CALL CCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
331 180 CALL CCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
337 190 CALL CCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
398 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
417 REAL EPS, THRESH
672 $ INCY, YT, G, YY, EPS, ERR,
743 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
762 REAL EPS, THRESH
1017 $ YY, EPS, ERR, FATAL, NOUT,
1091 SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1110 REAL EPS, THRESH
1370 $ XX, EPS, ERR, FATAL, NOUT,
1384 $ XX, EPS, ERR, FATAL, NOUT,
1452 SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1472 REAL EPS, THRESH
1670 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1729 SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1749 REAL EPS, THRESH
1941 $ AA( JA ), EPS, ERR, FATAL, NOUT,
2013 SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
2033 REAL EPS, THRESH
2258 $ YT, G, AA( JA ), EPS, ERR, FATAL,
2871 $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )
2888 REAL EPS, ERR
2967 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2971 IF( ERR*SQRT( EPS ).GE.RONE )
