Lines Matching defs:EPS
62 REAL EPS, ERR, THRESH
204 * Compute EPS (the machine precision).
206 EPS = RONE
208 IF( SDIFF( RONE + EPS, RONE ).EQ.RZERO )
210 EPS = RHALF*EPS
213 EPS = EPS + EPS
214 WRITE( NOUT, FMT = 9998 )EPS
236 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
245 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
263 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
272 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
301 CALL CCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
307 CALL CCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
315 CALL CCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
321 CALL CCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
329 CALL CCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
335 CALL CCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
343 CALL CCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
349 CALL CCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
357 CALL CCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
363 CALL CCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
425 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
446 REAL EPS, THRESH
655 $ C, NMAX, CT, G, CC, LDC, EPS,
755 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
776 REAL EPS, THRESH
977 $ CT, G, CC, LDC, EPS, ERR,
982 $ CT, G, CC, LDC, EPS, ERR,
1077 SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1097 REAL EPS, THRESH
1297 $ BB, LDB, EPS, ERR,
1303 $ BB, LDB, EPS, ERR,
1324 $ BB, LDB, EPS, ERR,
1330 $ BB, LDB, EPS, ERR,
1440 SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1461 REAL EPS, THRESH
1693 $ CC( JC ), LDC, EPS, ERR,
1700 $ CC( JC ), LDC, EPS, ERR,
1850 SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1871 REAL EPS, THRESH
2130 $ EPS, ERR, FATAL, NOUT,
2151 $ G, CC( JC ), LDC, EPS, ERR,
2433 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,
2453 REAL EPS, ERR
2581 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
2585 IF( ERR*SQRT( EPS ).GE.RONE )
