63       REAL               EPS, ERR, THRESH  variable
192       EPS = RONE
194       IF( SDIFF( RONE + EPS, RONE ).EQ.RZERO )
196       EPS = RHALF*EPS
199       EPS = EPS + EPS
200       WRITE( NOUT, FMT = 9998 )EPS
222      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
231      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
249      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
258      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
286   140       CALL CCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
292   150       CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
298   160       CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
303   170       CALL CCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
309   180       CALL CCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
366       SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
386       REAL               EPS, THRESH  local
594      $                                    C, NMAX, CT, G, CC, LDC, EPS,
651       SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
671       REAL               EPS, THRESH  local
869      $                                    CT, G, CC, LDC, EPS, ERR,
874      $                                    CT, G, CC, LDC, EPS, ERR,
930       SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
950       REAL               EPS, THRESH  local
1148      $                                          BB, LDB, EPS, ERR,
1154      $                                          BB, LDB, EPS, ERR,
1175      $                                          BB, LDB, EPS, ERR,
1181      $                                          BB, LDB, EPS, ERR,
1240       SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1260       REAL               EPS, THRESH  local
1490      $                                       CC( JC ), LDC, EPS, ERR,
1497      $                                       CC( JC ), LDC, EPS, ERR,
1572       SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1592       REAL               EPS, THRESH  local
1847      $                                       EPS, ERR, FATAL, NOUT,
1868      $                                       G, CC( JC ), LDC, EPS, ERR,
3000      $                  BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,  argument
3020       REAL               EPS, ERR  local
3148             ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
3152             IF( ERR*SQRT( EPS ).GE.RONE )