82       REAL               EPS, ERR, THRESH  variable
243       EPS = RONE
245       IF( SDIFF( RONE + EPS, RONE ).EQ.RZERO )
247       EPS = RHALF*EPS
250       EPS = EPS + EPS
251       WRITE( NOUT, FMT = 9998 )EPS
270      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
278      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
307   140       CALL CCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
313   150       CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
320   160       CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
325   170       CALL CCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
331   180       CALL CCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
337   190       CALL CCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
398       SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
417       REAL               EPS, THRESH  local
672      $                                       INCY, YT, G, YY, EPS, ERR,
743       SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
762       REAL               EPS, THRESH  local
1017      $                                    YY, EPS, ERR, FATAL, NOUT,
1091       SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1110       REAL               EPS, THRESH  local
1370      $                                    XX, EPS, ERR, FATAL, NOUT,
1384      $                                    XX, EPS, ERR, FATAL, NOUT,
1452       SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1472       REAL               EPS, THRESH  local
1670      $                                 AA( 1 + ( J - 1 )*LDA ), EPS,
1729       SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1749       REAL               EPS, THRESH  local
1941      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
2013       SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
2033       REAL               EPS, THRESH  local
2258      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2871      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2888       REAL               EPS, ERR  local
2967          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
2971          IF( ERR*SQRT( EPS ).GE.RONE )