62       REAL               EPS, ERR, THRESH  variable
206       EPS = RONE
208       IF( SDIFF( RONE + EPS, RONE ).EQ.RZERO )
210       EPS = RHALF*EPS
213       EPS = EPS + EPS
214       WRITE( NOUT, FMT = 9998 )EPS
236      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
245      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
263      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
272      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
301             CALL CCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
307             CALL CCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
315             CALL CCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
321             CALL CCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
329             CALL CCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
335             CALL CCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
343             CALL CCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
349             CALL CCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
357             CALL CCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
363             CALL CCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
425       SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
446       REAL               EPS, THRESH  local
655      $                                   C, NMAX, CT, G, CC, LDC, EPS,
755       SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
776       REAL               EPS, THRESH  local
977      $                                    CT, G, CC, LDC, EPS, ERR,
982      $                                    CT, G, CC, LDC, EPS, ERR,
1077       SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1097       REAL               EPS, THRESH  local
1297      $                                          BB, LDB, EPS, ERR,
1303      $                                          BB, LDB, EPS, ERR,
1324      $                                          BB, LDB, EPS, ERR,
1330      $                                          BB, LDB, EPS, ERR,
1440       SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1461       REAL               EPS, THRESH  local
1693      $                                       CC( JC ), LDC, EPS, ERR,
1700      $                                       CC( JC ), LDC, EPS, ERR,
1850       SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1871       REAL               EPS, THRESH  local
2130      $                                       EPS, ERR, FATAL, NOUT,
2151      $                                      G, CC( JC ), LDC, EPS, ERR,
2433      $                  BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,  argument
2453       REAL               EPS, ERR  local
2581             ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
2585             IF( ERR*SQRT( EPS ).GE.RONE )