78       REAL               EPS, ERR, THRESH  variable
251       EPS = ONE
253       IF( SDIFF( ONE + EPS, ONE ).EQ.ZERO )
255       EPS = HALF*EPS
258       EPS = EPS + EPS
259       WRITE( NOUT, FMT = 9998 )EPS
278      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
286      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
316             CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
322             CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
330             CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
336             CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
345             CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
351             CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
359             CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
365             CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
373             CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
379             CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
387             CALL SCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
393             CALL SCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
456       SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
473       REAL               EPS, THRESH  local
735      $                                       INCY, YT, G, YY, EPS, ERR,
816       SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
833       REAL               EPS, THRESH  local
1094      $                                    YY, EPS, ERR, FATAL, NOUT,
1176       SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1192       REAL               EPS, THRESH  local
1470      $                                    XX, EPS, ERR, FATAL, NOUT,
1484      $                                    XX, EPS, ERR, FATAL, NOUT,
1563       SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1580       REAL               EPS, THRESH  local
1767      $                                 AA( 1 + ( J - 1 )*LDA ), EPS,
1835       SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1852       REAL               EPS, THRESH  local
2049      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
2131       SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
2148       REAL               EPS, THRESH  local
2378      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2640      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2654       REAL               ALPHA, BETA, EPS, ERR  local
2721          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2725          IF( ERR*SQRT( EPS ).GE.ONE )