Lines Matching defs:EPS
63 REAL EPS, ERR, THRESH
190 * Compute EPS (the machine precision).
192 EPS = RONE
194 IF( SDIFF( RONE + EPS, RONE ).EQ.RZERO )
196 EPS = RHALF*EPS
199 EPS = EPS + EPS
200 WRITE( NOUT, FMT = 9998 )EPS
222 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
231 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
249 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
258 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
286 140 CALL CCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
292 150 CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
298 160 CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
303 170 CALL CCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
309 180 CALL CCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
366 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
386 REAL EPS, THRESH
594 $ C, NMAX, CT, G, CC, LDC, EPS,
651 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
671 REAL EPS, THRESH
869 $ CT, G, CC, LDC, EPS, ERR,
874 $ CT, G, CC, LDC, EPS, ERR,
930 SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
950 REAL EPS, THRESH
1148 $ BB, LDB, EPS, ERR,
1154 $ BB, LDB, EPS, ERR,
1175 $ BB, LDB, EPS, ERR,
1181 $ BB, LDB, EPS, ERR,
1240 SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1260 REAL EPS, THRESH
1490 $ CC( JC ), LDC, EPS, ERR,
1497 $ CC( JC ), LDC, EPS, ERR,
1572 SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1592 REAL EPS, THRESH
1847 $ EPS, ERR, FATAL, NOUT,
1868 $ G, CC( JC ), LDC, EPS, ERR,
3000 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,
3020 REAL EPS, ERR
3148 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
3152 IF( ERR*SQRT( EPS ).GE.RONE )
