79       REAL               EPS, ERR, THRESH  variable
238       EPS = ONE
240       IF( SDIFF( ONE + EPS, ONE ).EQ.ZERO )
242       EPS = HALF*EPS
245       EPS = EPS + EPS
246       WRITE( NOUT, FMT = 9998 )EPS
265      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
273      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
302   140       CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308   150       CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
315   160       CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
320   170       CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
326   180       CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
332   190       CALL SCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
391       SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
408       REAL               EPS, THRESH  local
662      $                                       INCY, YT, G, YY, EPS, ERR,
732       SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
749       REAL               EPS, THRESH  local
1003      $                                    YY, EPS, ERR, FATAL, NOUT,
1075       SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1091       REAL               EPS, THRESH  local
1350      $                                    XX, EPS, ERR, FATAL, NOUT,
1364      $                                    XX, EPS, ERR, FATAL, NOUT,
1432       SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1449       REAL               EPS, THRESH  local
1635      $                                 AA( 1 + ( J - 1 )*LDA ), EPS,
1693       SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1710       REAL               EPS, THRESH  local
1899      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
1971       SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1988       REAL               EPS, THRESH  local
2211      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2789      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2803       REAL               ALPHA, BETA, EPS, ERR  local
2870          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2874          IF( ERR*SQRT( EPS ).GE.ONE )