82       DOUBLE PRECISION   EPS, ERR, THRESH  variable
255       EPS = RONE
257       IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
259       EPS = RHALF*EPS
262       EPS = EPS + EPS
263       WRITE( NOUT, FMT = 9998 )EPS
282      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
290      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
320             CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
326             CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
334            CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
340            CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
349            CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
355            CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
363            CALL ZCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
369            CALL ZCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
377            CALL ZCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
383            CALL ZCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
391            CALL ZCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
397            CALL ZCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
462       SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
482       DOUBLE PRECISION   EPS, THRESH  local
746      $                                       INCY, YT, G, YY, EPS, ERR,
818       SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
838       DOUBLE PRECISION   EPS, THRESH  local
1101      $                                    YY, EPS, ERR, FATAL, NOUT,
1175       SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1195       DOUBLE PRECISION   EPS, THRESH  local
1474      $                                    XX, EPS, ERR, FATAL, NOUT,
1488      $                                    XX, EPS, ERR, FATAL, NOUT,
1557       SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1578       DOUBLE PRECISION   EPS, THRESH  local
1777      $                                 AA( 1 + ( J - 1 )*LDA ), EPS,
1835       SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1856       DOUBLE PRECISION   EPS, THRESH  local
2057      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
2129       SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
2150       DOUBLE PRECISION   EPS, THRESH  local
2382      $                                YT, G, AA( JA ), EPS, ERR, FATAL,
2458      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2475       DOUBLE PRECISION   EPS, ERR  local
2554          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2558          IF( ERR*SQRT( EPS ).GE.RONE )