104       REAL               EPS, ERR, THRESH  variable
231       EPS = EPSILON(ZERO)
232       WRITE( NOUT, FMT = 9998 )EPS
254      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
263      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
281      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
290      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
317   140       CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
323   150       CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
329   160       CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
334   170       CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
340   180       CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
395       SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
413       REAL               EPS, THRESH  local
619      $                                    C, NMAX, CT, G, CC, LDC, EPS,
676       SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
694       REAL               EPS, THRESH  local
885      $                                    CT, G, CC, LDC, EPS, ERR,
890      $                                    CT, G, CC, LDC, EPS, ERR,
946       SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
964       REAL               EPS, THRESH  local
1160      $                                          BB, LDB, EPS, ERR,
1166      $                                          BB, LDB, EPS, ERR,
1187      $                                          BB, LDB, EPS, ERR,
1193      $                                          BB, LDB, EPS, ERR,
1251       SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1269       REAL               EPS, THRESH  local
1453      $                                       CC( JC ), LDC, EPS, ERR,
1460      $                                       CC( JC ), LDC, EPS, ERR,
1526       SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1544       REAL               EPS, THRESH  local
1758      $                                       CC( JC ), LDC, EPS, ERR,
1771      $                                       EPS, ERR, FATAL, NOUT,
2509      $                  BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,  argument
2526       REAL               ALPHA, BETA, EPS, ERR  local
2591             ERRI = ABS( CT( I ) - CC( I, J ) )/EPS
2595             IF( ERR*SQRT( EPS ).GE.ONE )