Lines Matching refs:EPS
62 REAL EPS, ERR, THRESH variable
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, argument
446 REAL EPS, THRESH local
655 $ C, NMAX, CT, G, CC, LDC, EPS,
755 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
776 REAL EPS, THRESH local
977 $ CT, G, CC, LDC, EPS, ERR,
982 $ CT, G, CC, LDC, EPS, ERR,
1077 SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1097 REAL EPS, THRESH local
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, argument
1461 REAL EPS, THRESH local
1693 $ CC( JC ), LDC, EPS, ERR,
1700 $ CC( JC ), LDC, EPS, ERR,
1850 SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1871 REAL EPS, THRESH local
2130 $ EPS, ERR, FATAL, NOUT,
2151 $ G, CC( JC ), LDC, EPS, ERR,
2433 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL, argument
2453 REAL EPS, ERR local
2581 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
2585 IF( ERR*SQRT( EPS ).GE.RONE )