81       REAL               EPS, ERR, THRESH  variable
255       EPS = RONE
257       IF( SDIFF( RONE + EPS, RONE ).EQ.RZERO )
259       EPS = RHALF*EPS
262       EPS = EPS + EPS
263       WRITE( NOUT, FMT = 9998 )EPS
282      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
290      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
320             CALL CCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
326             CALL CCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
334            CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
340            CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
349            CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
355            CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
363            CALL CCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
369            CALL CCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
377            CALL CCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
383            CALL CCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
391            CALL CCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
397            CALL CCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
462       SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
481       REAL               EPS, THRESH  local
745      $                                       INCY, YT, G, YY, EPS, ERR,
817       SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
836       REAL               EPS, THRESH  local
1099      $                                    YY, EPS, ERR, FATAL, NOUT,
1173       SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1192       REAL               EPS, THRESH  local
1471      $                                    XX, EPS, ERR, FATAL, NOUT,
1485      $                                    XX, EPS, ERR, FATAL, NOUT,
1554       SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1574       REAL               EPS, THRESH  local
1773      $                                 AA( 1 + ( J - 1 )*LDA ), EPS,
1831       SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1851       REAL               EPS, THRESH  local
2052      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
2124       SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
2144       REAL               EPS, THRESH  local
2376      $                                YT, G, AA( JA ), EPS, ERR, FATAL,
2452      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2469       REAL               EPS, ERR  local
2548          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2552          IF( ERR*SQRT( EPS ).GE.RONE )