128       REAL               EPS, ERR, THRESH  variable
289       EPS = EPSILON(RZERO)
290       WRITE( NOUT, FMT = 9998 )EPS
309      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
317      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
346   140       CALL CCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
352   150       CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
359   160       CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
364   170       CALL CCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
370   180       CALL CCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
376   190       CALL CCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
437       SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
456       REAL               EPS, THRESH  local
711      $                                       INCY, YT, G, YY, EPS, ERR,
782       SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
801       REAL               EPS, THRESH  local
1056      $                                    YY, EPS, ERR, FATAL, NOUT,
1130       SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1149       REAL               EPS, THRESH  local
1409      $                                    XX, EPS, ERR, FATAL, NOUT,
1423      $                                    XX, EPS, ERR, FATAL, NOUT,
1491       SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1511       REAL               EPS, THRESH  local
1709      $                                 AA( 1 + ( J - 1 )*LDA ), EPS,
1768       SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1788       REAL               EPS, THRESH  local
1980      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
2052       SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
2072       REAL               EPS, THRESH  local
2297      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2910      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2927       REAL               EPS, ERR  local
3006          ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
3010          IF( ERR*SQRT( EPS ).GE.RONE )