64       DOUBLE PRECISION   EPS, ERR, THRESH  variable
193       EPS = RONE
195       IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
197       EPS = RHALF*EPS
200       EPS = EPS + EPS
201       WRITE( NOUT, FMT = 9998 )EPS
223      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
232      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
250      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
259      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
287   140       CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
293   150       CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
299   160       CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
304   170       CALL ZCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
310   180       CALL ZCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
367       SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
387       DOUBLE PRECISION   EPS, THRESH  local
595      $                                    C, NMAX, CT, G, CC, LDC, EPS,
652       SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
672       DOUBLE PRECISION   EPS, THRESH  local
870      $                                    CT, G, CC, LDC, EPS, ERR,
875      $                                    CT, G, CC, LDC, EPS, ERR,
931       SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
952       DOUBLE PRECISION   EPS, THRESH  local
1150      $                                          BB, LDB, EPS, ERR,
1156      $                                          BB, LDB, EPS, ERR,
1177      $                                          BB, LDB, EPS, ERR,
1183      $                                          BB, LDB, EPS, ERR,
1242       SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1262       DOUBLE PRECISION   EPS, THRESH  local
1492      $                                       CC( JC ), LDC, EPS, ERR,
1499      $                                       CC( JC ), LDC, EPS, ERR,
1574       SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1595       DOUBLE PRECISION   EPS, THRESH  local
1850      $                                       EPS, ERR, FATAL, NOUT,
1871      $                                       G, CC( JC ), LDC, EPS, ERR,
3004      $                  BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,  argument
3024       DOUBLE PRECISION   EPS, ERR  local
3154             ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
3158             IF( ERR*SQRT( EPS ).GE.RONE )