Lines Matching defs:EPS
64 DOUBLE PRECISION EPS, ERR, THRESH
191 * Compute EPS (the machine precision).
193 EPS = RONE
195 IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
197 EPS = RHALF*EPS
200 EPS = EPS + EPS
201 WRITE( NOUT, FMT = 9998 )EPS
223 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
232 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
250 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
259 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
287 140 CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
293 150 CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
299 160 CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
304 170 CALL ZCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
310 180 CALL ZCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
367 SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
387 DOUBLE PRECISION EPS, THRESH
595 $ C, NMAX, CT, G, CC, LDC, EPS,
652 SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
672 DOUBLE PRECISION EPS, THRESH
870 $ CT, G, CC, LDC, EPS, ERR,
875 $ CT, G, CC, LDC, EPS, ERR,
931 SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
952 DOUBLE PRECISION EPS, THRESH
1150 $ BB, LDB, EPS, ERR,
1156 $ BB, LDB, EPS, ERR,
1177 $ BB, LDB, EPS, ERR,
1183 $ BB, LDB, EPS, ERR,
1242 SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1262 DOUBLE PRECISION EPS, THRESH
1492 $ CC( JC ), LDC, EPS, ERR,
1499 $ CC( JC ), LDC, EPS, ERR,
1574 SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1595 DOUBLE PRECISION EPS, THRESH
1850 $ EPS, ERR, FATAL, NOUT,
1871 $ G, CC( JC ), LDC, EPS, ERR,
3004 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,
3024 DOUBLE PRECISION EPS, ERR
3154 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
3158 IF( ERR*SQRT( EPS ).GE.RONE )
