58       DOUBLE PRECISION   EPS, ERR, THRESH  variable
185       EPS = ONE
187       IF( DDIFF( ONE + EPS, ONE ).EQ.ZERO )
189       EPS = HALF*EPS
192       EPS = EPS + EPS
193       WRITE( NOUT, FMT = 9998 )EPS
215      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
224      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
242      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
251      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
278   140       CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
284   150       CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
290   160       CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
295   170       CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
301   180       CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
356       SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
374       DOUBLE PRECISION   EPS, THRESH  local
580      $                                    C, NMAX, CT, G, CC, LDC, EPS,
637       SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
655       DOUBLE PRECISION   EPS, THRESH  local
846      $                                    CT, G, CC, LDC, EPS, ERR,
851      $                                    CT, G, CC, LDC, EPS, ERR,
907       SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
925       DOUBLE PRECISION   EPS, THRESH  local
1121      $                                          BB, LDB, EPS, ERR,
1127      $                                          BB, LDB, EPS, ERR,
1148      $                                          BB, LDB, EPS, ERR,
1154      $                                          BB, LDB, EPS, ERR,
1212       SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1230       DOUBLE PRECISION   EPS, THRESH  local
1414      $                                       CC( JC ), LDC, EPS, ERR,
1421      $                                       CC( JC ), LDC, EPS, ERR,
1487       SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1505       DOUBLE PRECISION   EPS, THRESH  local
1719      $                                       CC( JC ), LDC, EPS, ERR,
1732      $                                       EPS, ERR, FATAL, NOUT,
2458      $                  BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,  argument
2475       DOUBLE PRECISION   ALPHA, BETA, EPS, ERR  local
2540             ERRI = ABS( CT( I ) - CC( I, J ) )/EPS
2544             IF( ERR*SQRT( EPS ).GE.ONE )