125       DOUBLE PRECISION   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 DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
347   150       CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
354   160       CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
359   170       CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
365   180       CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
371   190       CALL DCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
430       SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
447       DOUBLE PRECISION   EPS, THRESH  local
701      $                                       INCY, YT, G, YY, EPS, ERR,
771       SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
788       DOUBLE PRECISION   EPS, THRESH  local
1042      $                                    YY, EPS, ERR, FATAL, NOUT,
1114       SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1130       DOUBLE PRECISION   EPS, THRESH  local
1389      $                                    XX, EPS, ERR, FATAL, NOUT,
1403      $                                    XX, EPS, ERR, FATAL, NOUT,
1471       SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1488       DOUBLE PRECISION   EPS, THRESH  local
1674      $                                 AA( 1 + ( J - 1 )*LDA ), EPS,
1732       SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1749       DOUBLE PRECISION   EPS, THRESH  local
1938      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
2010       SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
2027       DOUBLE PRECISION   EPS, THRESH  local
2250      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2828      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2842       DOUBLE PRECISION   ALPHA, BETA, EPS, ERR  local
2909          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2913          IF( ERR*SQRT( EPS ).GE.ONE )