58       REAL               EPS, ERR, THRESH  variable
185       EPS = ONE
187       IF( SDIFF( ONE + EPS, ONE ).EQ.ZERO )
189       EPS = HALF*EPS
192       EPS = EPS + EPS
193       WRITE( NOUT, FMT = 9998 )EPS
215      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
224      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
242      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
251      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
278   140       CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
284   150       CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
290   160       CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
295   170       CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
301   180       CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
356       SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
374       REAL               EPS, THRESH  local
580      $                                    C, NMAX, CT, G, CC, LDC, EPS,
637       SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
655       REAL               EPS, THRESH  local
846      $                                    CT, G, CC, LDC, EPS, ERR,
851      $                                    CT, G, CC, LDC, EPS, ERR,
907       SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
925       REAL               EPS, THRESH  local
1121      $                                          BB, LDB, EPS, ERR,
1127      $                                          BB, LDB, EPS, ERR,
1148      $                                          BB, LDB, EPS, ERR,
1154      $                                          BB, LDB, EPS, ERR,
1212       SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1230       REAL               EPS, THRESH  local
1414      $                                       CC( JC ), LDC, EPS, ERR,
1421      $                                       CC( JC ), LDC, EPS, ERR,
1487       SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1505       REAL               EPS, THRESH  local
1719      $                                       CC( JC ), LDC, EPS, ERR,
1732      $                                       EPS, ERR, FATAL, NOUT,
2458      $                  BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,  argument
2475       REAL               ALPHA, BETA, EPS, ERR  local
2540             ERRI = ABS( CT( I ) - CC( I, J ) )/EPS
2544             IF( ERR*SQRT( EPS ).GE.ONE )