83       DOUBLE PRECISION   EPS, ERR, THRESH  variable
244       EPS = RONE
246       IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
248       EPS = RHALF*EPS
251       EPS = EPS + EPS
252       WRITE( NOUT, FMT = 9998 )EPS
271      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
279      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
308   140       CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
314   150       CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
321   160       CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
326   170       CALL ZCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
332   180       CALL ZCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
338   190       CALL ZCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
399       SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
419       DOUBLE PRECISION   EPS, THRESH  local
674      $                                       INCY, YT, G, YY, EPS, ERR,
745       SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
765       DOUBLE PRECISION   EPS, THRESH  local
1020      $                                    YY, EPS, ERR, FATAL, NOUT,
1094       SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1114       DOUBLE PRECISION   EPS, THRESH  local
1374      $                                    XX, EPS, ERR, FATAL, NOUT,
1388      $                                    XX, EPS, ERR, FATAL, NOUT,
1456       SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1477       DOUBLE PRECISION   EPS, THRESH  local
1675      $                                 AA( 1 + ( J - 1 )*LDA ), EPS,
1734       SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1755       DOUBLE PRECISION   EPS, THRESH  local
1947      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
2019       SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
2040       DOUBLE PRECISION   EPS, THRESH  local
2265      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2879      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2896       DOUBLE PRECISION   EPS, ERR  local
2975          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2979          IF( ERR*SQRT( EPS ).GE.RONE )