Lines Matching refs:EPS
83 DOUBLE PRECISION EPS, ERR, THRESH
242 * Compute EPS (the machine precision).
244 EPS = RONE
246 IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
248 EPS = RHALF*EPS
251 EPS = EPS + EPS
252 WRITE( NOUT, FMT = 9998 )EPS
271 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
279 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
308 140 CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
314 150 CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
321 160 CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
326 170 CALL ZCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
332 180 CALL ZCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
338 190 CALL ZCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
399 SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
419 DOUBLE PRECISION EPS, THRESH
674 $ INCY, YT, G, YY, EPS, ERR,
745 SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
765 DOUBLE PRECISION EPS, THRESH
1020 $ YY, EPS, ERR, FATAL, NOUT,
1094 SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1114 DOUBLE PRECISION EPS, THRESH
1374 $ XX, EPS, ERR, FATAL, NOUT,
1388 $ XX, EPS, ERR, FATAL, NOUT,
1456 SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1477 DOUBLE PRECISION EPS, THRESH
1675 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1734 SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1755 DOUBLE PRECISION EPS, THRESH
1947 $ AA( JA ), EPS, ERR, FATAL, NOUT,
2019 SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
2040 DOUBLE PRECISION EPS, THRESH
2265 $ YT, G, AA( JA ), EPS, ERR, FATAL,
2879 $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )
2896 DOUBLE PRECISION EPS, ERR
2975 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2979 IF( ERR*SQRT( EPS ).GE.RONE )
