78       DOUBLE PRECISION   EPS, ERR, THRESH  variable
251       EPS = ONE
253       IF( DDIFF( 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 DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
322             CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
330             CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
336             CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
345             CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
351             CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
359             CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
365             CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
373             CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
379             CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
387             CALL DCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
393             CALL DCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
456       SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
473       DOUBLE PRECISION   EPS, THRESH  local
735      $                                       INCY, YT, G, YY, EPS, ERR,
816       SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
833       DOUBLE PRECISION   EPS, THRESH  local
1094      $                                    YY, EPS, ERR, FATAL, NOUT,
1176       SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1192       DOUBLE PRECISION   EPS, THRESH  local
1470      $                                    XX, EPS, ERR, FATAL, NOUT,
1484      $                                    XX, EPS, ERR, FATAL, NOUT,
1563       SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1580       DOUBLE PRECISION   EPS, THRESH  local
1767      $                                 AA( 1 + ( J - 1 )*LDA ), EPS,
1835       SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1852       DOUBLE PRECISION   EPS, THRESH  local
2049      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
2131       SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
2148       DOUBLE PRECISION   EPS, THRESH  local
2378      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2640      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2654       DOUBLE PRECISION   ALPHA, BETA, EPS, ERR  local
2721          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2725          IF( ERR*SQRT( EPS ).GE.ONE )