63       DOUBLE PRECISION   EPS, ERR, THRESH  variable
207       EPS = RONE
209       IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
211       EPS = RHALF*EPS
214       EPS = EPS + EPS
215       WRITE( NOUT, FMT = 9998 )EPS
237      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
246      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
264      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
273      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
302             CALL ZCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308             CALL ZCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
316             CALL ZCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
322             CALL ZCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
330             CALL ZCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
336             CALL ZCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
344             CALL ZCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
350             CALL ZCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
358             CALL ZCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
364             CALL ZCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
426       SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
447       DOUBLE PRECISION   EPS, THRESH  local
656      $                                   C, NMAX, CT, G, CC, LDC, EPS,
756       SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
777       DOUBLE PRECISION   EPS, THRESH  local
978      $                                    CT, G, CC, LDC, EPS, ERR,
983      $                                    CT, G, CC, LDC, EPS, ERR,
1078       SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1098       DOUBLE PRECISION   EPS, THRESH  local
1298      $                                         BB, LDB, EPS, ERR,
1304      $                                         BB, LDB, EPS, ERR,
1325      $                                          BB, LDB, EPS, ERR,
1331      $                                          BB, LDB, EPS, ERR,
1441       SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1462       DOUBLE PRECISION   EPS, THRESH  local
1694      $                                       CC( JC ), LDC, EPS, ERR,
1701      $                                       CC( JC ), LDC, EPS, ERR,
1851       SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1872       DOUBLE PRECISION  EPS, THRESH  local
2131      $                                       EPS, ERR, FATAL, NOUT,
2152      $                                      G, CC( JC ), LDC, EPS, ERR,
2435      $                  BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,  argument
2455       DOUBLE PRECISION   EPS, ERR  local
2585             ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
2589             IF( ERR*SQRT( EPS ).GE.RONE )