Lines Matching defs:EPS

63       DOUBLE PRECISION   EPS, ERR, THRESH
205 * Compute EPS (the machine precision).
207 EPS = RONE
209 IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
211 EPS = RHALF*EPS
214 EPS = EPS + EPS
215 WRITE( NOUT, FMT = 9998 )EPS
237 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
246 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
264 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
273 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
302 CALL ZCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308 CALL ZCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
316 CALL ZCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
322 CALL ZCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
330 CALL ZCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
336 CALL ZCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
344 CALL ZCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
350 CALL ZCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
358 CALL ZCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
364 CALL ZCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
426 SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
447 DOUBLE PRECISION EPS, THRESH
656 $ C, NMAX, CT, G, CC, LDC, EPS,
756 SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
777 DOUBLE PRECISION EPS, THRESH
978 $ CT, G, CC, LDC, EPS, ERR,
983 $ CT, G, CC, LDC, EPS, ERR,
1078 SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1098 DOUBLE PRECISION EPS, THRESH
1298 $ BB, LDB, EPS, ERR,
1304 $ BB, LDB, EPS, ERR,
1325 $ BB, LDB, EPS, ERR,
1331 $ BB, LDB, EPS, ERR,
1441 SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1462 DOUBLE PRECISION EPS, THRESH
1694 $ CC( JC ), LDC, EPS, ERR,
1701 $ CC( JC ), LDC, EPS, ERR,
1851 SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1872 DOUBLE PRECISION EPS, THRESH
2131 $ EPS, ERR, FATAL, NOUT,
2152 $ G, CC( JC ), LDC, EPS, ERR,
2435 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,
2455 DOUBLE PRECISION EPS, ERR
2585 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
2589 IF( ERR*SQRT( EPS ).GE.RONE )