125       REAL               EPS, ERR, THRESH  variable
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,  argument
447       REAL               EPS, THRESH  local
701      $                                       INCY, YT, G, YY, EPS, ERR,
771       SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
788       REAL               EPS, THRESH  local
1042      $                                    YY, EPS, ERR, FATAL, NOUT,
1114       SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1130       REAL               EPS, THRESH  local
1389      $                                    XX, EPS, ERR, FATAL, NOUT,
1403      $                                    XX, EPS, ERR, FATAL, NOUT,
1471       SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1488       REAL               EPS, THRESH  local
1674      $                                 AA( 1 + ( J - 1 )*LDA ), EPS,
1732       SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1749       REAL               EPS, THRESH  local
1938      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
2010       SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
2027       REAL               EPS, THRESH  local
2250      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2828      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2842       REAL               ALPHA, BETA, EPS, ERR  local
2909          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2913          IF( ERR*SQRT( EPS ).GE.ONE )