398       SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
421       CHARACTER*6        SNAME  local
457       FULL = SNAME( 3: 3 ).EQ.'E'
458       BANDED = SNAME( 3: 3 ).EQ.'B'
510                CALL CMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
585      $                              WRITE( NTRA, FMT = 9994 )NC, SNAME,
595      $                              WRITE( NTRA, FMT = 9995 )NC, SNAME,
704          WRITE( NOUT, FMT = 9999 )SNAME, NC
706          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
711       WRITE( NOUT, FMT = 9996 )SNAME
713          WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
716          WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANS, M, N, KL, KU,
743       SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
766       CHARACTER*6        SNAME  local
801       FULL = SNAME( 3: 3 ).EQ.'E'
802       BANDED = SNAME( 3: 3 ).EQ.'B'
803       PACKED = SNAME( 3: 3 ).EQ.'P'
855                CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
916      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
924      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
933      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1046          WRITE( NOUT, FMT = 9999 )SNAME, NC
1048          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1053       WRITE( NOUT, FMT = 9996 )SNAME
1055          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1058          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1061          WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1091       SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1113       CHARACTER*6        SNAME  local
1147       FULL = SNAME( 3: 3 ).EQ.'R'
1148       BANDED = SNAME( 3: 3 ).EQ.'B'
1149       PACKED = SNAME( 3: 3 ).EQ.'P'
1211                      CALL CMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1249                         IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1252      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1260      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1268      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1275                         ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1278      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1286      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1294      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1364                            IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1372                            ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1411          WRITE( NOUT, FMT = 9999 )SNAME, NC
1413          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1418       WRITE( NOUT, FMT = 9996 )SNAME
1420          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1423          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1426          WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
1452       SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1475       CHARACTER*6        SNAME  local
1507       CONJ = SNAME( 5: 5 ).EQ.'C'
1569                      CALL CMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX,
1595      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
1695          WRITE( NOUT, FMT = 9999 )SNAME, NC
1697          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1705       WRITE( NOUT, FMT = 9996 )SNAME
1706       WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1729       SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1752       CHARACTER*6        SNAME  local
1787       FULL = SNAME( 3: 3 ).EQ.'E'
1788       PACKED = SNAME( 3: 3 ).EQ.'P'
1841                   CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1864      $                  WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1871      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1896                      ISAME( 6 ) = LCERES( SNAME( 2: 3 ), UPLO, N, N, AS,
1974          WRITE( NOUT, FMT = 9999 )SNAME, NC
1976          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1984       WRITE( NOUT, FMT = 9996 )SNAME
1986          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
1988          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, RALPHA, INCX
2013       SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
2036       CHARACTER*6        SNAME  local
2072       FULL = SNAME( 3: 3 ).EQ.'E'
2073       PACKED = SNAME( 3: 3 ).EQ.'P'
2139                      CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A,
2167      $                     WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2175      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2203                         ISAME( 8 ) = LCERES( SNAME( 2: 3 ), UPLO, N, N,
2293          WRITE( NOUT, FMT = 9999 )SNAME, NC
2295          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2303       WRITE( NOUT, FMT = 9996 )SNAME
2305          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2308          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY