Lines Matching defs:EPS
79 DOUBLE PRECISION EPS, ERR, THRESH
236 * Compute EPS (the machine precision).
238 EPS = ONE
240 IF( DDIFF( ONE + EPS, ONE ).EQ.ZERO )
242 EPS = HALF*EPS
245 EPS = EPS + EPS
246 WRITE( NOUT, FMT = 9998 )EPS
265 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
273 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
302 140 CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308 150 CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
315 160 CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
320 170 CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
326 180 CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
332 190 CALL DCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
391 SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
408 DOUBLE PRECISION EPS, THRESH
662 $ INCY, YT, G, YY, EPS, ERR,
732 SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
749 DOUBLE PRECISION EPS, THRESH
1003 $ YY, EPS, ERR, FATAL, NOUT,
1075 SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1091 DOUBLE PRECISION EPS, THRESH
1350 $ XX, EPS, ERR, FATAL, NOUT,
1364 $ XX, EPS, ERR, FATAL, NOUT,
1432 SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1449 DOUBLE PRECISION EPS, THRESH
1635 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1693 SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1710 DOUBLE PRECISION EPS, THRESH
1899 $ AA( JA ), EPS, ERR, FATAL, NOUT,
1971 SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1988 DOUBLE PRECISION EPS, THRESH
2211 $ YT, G, AA( JA ), EPS, ERR, FATAL,
2789 $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )
2803 DOUBLE PRECISION ALPHA, BETA, EPS, ERR
2870 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2874 IF( ERR*SQRT( EPS ).GE.ONE )
