405       SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
428       CHARACTER*6        SNAME  local
576      $                        WRITE( NTRA, FMT = 9995 )NC, SNAME,
659          WRITE( NOUT, FMT = 9999 )SNAME, NC
661          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
666       WRITE( NOUT, FMT = 9996 )SNAME
667       WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, M, N, K,
690       SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
713       CHARACTER*6        SNAME  local
748       CONJ = SNAME( 2: 3 ).EQ.'HE'
806                   CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', NA, NA, A, NMAX,
847      $                     WRITE( NTRA, FMT = 9995 )NC, SNAME, SIDE,
938          WRITE( NOUT, FMT = 9999 )SNAME, NC
940          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
945       WRITE( NOUT, FMT = 9996 )SNAME
946       WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA,
969       SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
992       CHARACTER*6        SNAME  local
1117                            IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1119      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1126                            ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1128      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1179                               IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1196                               ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1248          WRITE( NOUT, FMT = 9999 )SNAME, NC
1250          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1255       WRITE( NOUT, FMT = 9996 )SNAME
1256       WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
1279       SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1302       CHARACTER*6        SNAME  local
1337       CONJ = SNAME( 2: 3 ).EQ.'HE'
1408                         CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, C,
1442      $                        WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1450      $                        WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO,
1487                            ISAME( 9 ) = LCERES( SNAME( 2: 3 ), UPLO, N,
1567          WRITE( NOUT, FMT = 9999 )SNAME, NC
1569          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1578       WRITE( NOUT, FMT = 9996 )SNAME
1580          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, RALPHA,
1583          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1611       SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1634       CHARACTER*6        SNAME  local
1669       CONJ = SNAME( 2: 3 ).EQ.'HE'
1753                         CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, C,
1787      $                        WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1795      $                        WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO,
1940          WRITE( NOUT, FMT = 9999 )SNAME, NC
1942          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1951       WRITE( NOUT, FMT = 9996 )SNAME
1953          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1956          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,