111       DOUBLE PRECISION   EPS, ERR, THRESH  variable
240       EPS = EPSILON(RZERO)
241       WRITE( NOUT, FMT = 9998 )EPS
263      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
272      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
290      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
299      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
327   140       CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
333   150       CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
339   160       CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
344   170       CALL ZCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
350   180       CALL ZCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
407       SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
427       DOUBLE PRECISION   EPS, THRESH  local
635      $                                    C, NMAX, CT, G, CC, LDC, EPS,
692       SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
712       DOUBLE PRECISION   EPS, THRESH  local
910      $                                    CT, G, CC, LDC, EPS, ERR,
915      $                                    CT, G, CC, LDC, EPS, ERR,
971       SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
992       DOUBLE PRECISION   EPS, THRESH  local
1190      $                                          BB, LDB, EPS, ERR,
1196      $                                          BB, LDB, EPS, ERR,
1217      $                                          BB, LDB, EPS, ERR,
1223      $                                          BB, LDB, EPS, ERR,
1282       SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1302       DOUBLE PRECISION   EPS, THRESH  local
1532      $                                       CC( JC ), LDC, EPS, ERR,
1539      $                                       CC( JC ), LDC, EPS, ERR,
1614       SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1635       DOUBLE PRECISION   EPS, THRESH  local
1890      $                                       EPS, ERR, FATAL, NOUT,
1911      $                                       G, CC( JC ), LDC, EPS, ERR,
3062      $                  BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,  argument
3082       DOUBLE PRECISION   EPS, ERR  local
3212             ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
3216             IF( ERR*SQRT( EPS ).GE.RONE )