Lines Matching refs:EPS
58 REAL EPS, ERR, THRESH
183 * Compute EPS (the machine precision).
185 EPS = ONE
187 IF( SDIFF( ONE + EPS, ONE ).EQ.ZERO )
189 EPS = HALF*EPS
192 EPS = EPS + EPS
193 WRITE( NOUT, FMT = 9998 )EPS
215 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
224 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
242 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
251 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
278 140 CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
284 150 CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
290 160 CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
295 170 CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
301 180 CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
356 SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
374 REAL EPS, THRESH
580 $ C, NMAX, CT, G, CC, LDC, EPS,
637 SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
655 REAL EPS, THRESH
846 $ CT, G, CC, LDC, EPS, ERR,
851 $ CT, G, CC, LDC, EPS, ERR,
907 SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
925 REAL EPS, THRESH
1121 $ BB, LDB, EPS, ERR,
1127 $ BB, LDB, EPS, ERR,
1148 $ BB, LDB, EPS, ERR,
1154 $ BB, LDB, EPS, ERR,
1212 SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1230 REAL EPS, THRESH
1414 $ CC( JC ), LDC, EPS, ERR,
1421 $ CC( JC ), LDC, EPS, ERR,
1487 SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1505 REAL EPS, THRESH
1719 $ CC( JC ), LDC, EPS, ERR,
1732 $ EPS, ERR, FATAL, NOUT,
2458 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,
2475 REAL ALPHA, BETA, EPS, ERR
2540 ERRI = ABS( CT( I ) - CC( I, J ) )/EPS
2544 IF( ERR*SQRT( EPS ).GE.ONE )
