79       DOUBLE PRECISION   EPS, ERR, THRESH  variable
238       EPS = ONE
240       IF( DDIFF( 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 DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308   150       CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
315   160       CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
320   170       CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
326   180       CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
332   190       CALL DCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
391       SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
408       DOUBLE PRECISION   EPS, THRESH  local
662      $                                       INCY, YT, G, YY, EPS, ERR,
732       SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
749       DOUBLE PRECISION   EPS, THRESH  local
1003      $                                    YY, EPS, ERR, FATAL, NOUT,
1075       SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1091       DOUBLE PRECISION   EPS, THRESH  local
1350      $                                    XX, EPS, ERR, FATAL, NOUT,
1364      $                                    XX, EPS, ERR, FATAL, NOUT,
1432       SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1449       DOUBLE PRECISION   EPS, THRESH  local
1635      $                                 AA( 1 + ( J - 1 )*LDA ), EPS,
1693       SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1710       DOUBLE PRECISION   EPS, THRESH  local
1899      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
1971       SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1988       DOUBLE PRECISION   EPS, THRESH  local
2211      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2789      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2803       DOUBLE PRECISION   ALPHA, BETA, EPS, ERR  local
2870          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2874          IF( ERR*SQRT( EPS ).GE.ONE )