Lines Matching defs:EPS
125 REAL EPS, ERR, THRESH
282 * Compute EPS (the machine precision).
284 EPS = EPSILON(ZERO)
285 WRITE( NOUT, FMT = 9998 )EPS
304 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
312 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
341 140 CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
347 150 CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
354 160 CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
359 170 CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
365 180 CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
371 190 CALL SCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
430 SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
447 REAL EPS, THRESH
701 $ INCY, YT, G, YY, EPS, ERR,
771 SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
788 REAL EPS, THRESH
1042 $ YY, EPS, ERR, FATAL, NOUT,
1114 SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1130 REAL EPS, THRESH
1389 $ XX, EPS, ERR, FATAL, NOUT,
1403 $ XX, EPS, ERR, FATAL, NOUT,
1471 SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1488 REAL EPS, THRESH
1674 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1732 SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1749 REAL EPS, THRESH
1938 $ AA( JA ), EPS, ERR, FATAL, NOUT,
2010 SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
2027 REAL EPS, THRESH
2250 $ YT, G, AA( JA ), EPS, ERR, FATAL,
2828 $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )
2842 REAL ALPHA, BETA, EPS, ERR
2909 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2913 IF( ERR*SQRT( EPS ).GE.ONE )
