57       DOUBLE PRECISION   EPS, ERR, THRESH  variable
201       EPS = ONE
203       IF( DDIFF( ONE + EPS, ONE ).EQ.ZERO )
205       EPS = HALF*EPS
208       EPS = EPS + EPS
209       WRITE( NOUT, FMT = 9998 )EPS
231      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
240      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
258      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
267      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
295             CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
301             CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
309             CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
315             CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
323             CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
329             CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
337             CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
343             CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
351             CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
357             CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
417       SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
435       DOUBLE PRECISION   EPS, THRESH  local
642      $                                    C, NMAX, CT, G, CC, LDC, EPS,
741       SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
759       DOUBLE PRECISION   EPS, THRESH  local
951      $                                    CT, G, CC, LDC, EPS, ERR,
956      $                                    CT, G, CC, LDC, EPS, ERR,
1051       SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1069       DOUBLE PRECISION   EPS, THRESH  local
1267      $                                          BB, LDB, EPS, ERR,
1273      $                                          BB, LDB, EPS, ERR,
1294      $                                          BB, LDB, EPS, ERR,
1300      $                                          BB, LDB, EPS, ERR,
1409       SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1427       DOUBLE PRECISION   EPS, THRESH  local
1611      $                                       CC( JC ), LDC, EPS, ERR,
1618      $                                       CC( JC ), LDC, EPS, ERR,
1725       SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1744       DOUBLE PRECISION   EPS, THRESH  local
1959      $                                       CC( JC ), LDC, EPS, ERR,
1972      $                                       EPS, ERR, FATAL, NOUT,
2196      $                  BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,  argument
2213       DOUBLE PRECISION   ALPHA, BETA, EPS, ERR  local
2278             ERRI = ABS( CT( I ) - CC( I, J ) )/EPS
2282             IF( ERR*SQRT( EPS ).GE.ONE )