399       SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
423       CHARACTER*6        SNAME  local
459       FULL = SNAME( 3: 3 ).EQ.'E'
460       BANDED = SNAME( 3: 3 ).EQ.'B'
512                CALL ZMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
587      $                              WRITE( NTRA, FMT = 9994 )NC, SNAME,
597      $                              WRITE( NTRA, FMT = 9995 )NC, SNAME,
706          WRITE( NOUT, FMT = 9999 )SNAME, NC
708          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
713       WRITE( NOUT, FMT = 9996 )SNAME
715          WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
718          WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANS, M, N, KL, KU,
745       SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
769       CHARACTER*6        SNAME  local
804       FULL = SNAME( 3: 3 ).EQ.'E'
805       BANDED = SNAME( 3: 3 ).EQ.'B'
806       PACKED = SNAME( 3: 3 ).EQ.'P'
858                CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
919      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
927      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
936      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1049          WRITE( NOUT, FMT = 9999 )SNAME, NC
1051          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1056       WRITE( NOUT, FMT = 9996 )SNAME
1058          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1061          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1064          WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1094       SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1117       CHARACTER*6        SNAME  local
1151       FULL = SNAME( 3: 3 ).EQ.'R'
1152       BANDED = SNAME( 3: 3 ).EQ.'B'
1153       PACKED = SNAME( 3: 3 ).EQ.'P'
1215                      CALL ZMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1253                         IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1256      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1264      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1272      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1279                         ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1282      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1290      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1298      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1368                            IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1376                            ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1415          WRITE( NOUT, FMT = 9999 )SNAME, NC
1417          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1422       WRITE( NOUT, FMT = 9996 )SNAME
1424          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1427          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1430          WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
1456       SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1480       CHARACTER*6        SNAME  local
1512       CONJ = SNAME( 5: 5 ).EQ.'C'
1574                      CALL ZMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX,
1600      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
1700          WRITE( NOUT, FMT = 9999 )SNAME, NC
1702          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1710       WRITE( NOUT, FMT = 9996 )SNAME
1711       WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1734       SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1758       CHARACTER*6        SNAME  local
1793       FULL = SNAME( 3: 3 ).EQ.'E'
1794       PACKED = SNAME( 3: 3 ).EQ.'P'
1847                   CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1870      $                  WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1877      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1902                      ISAME( 6 ) = LZERES( SNAME( 2: 3 ), UPLO, N, N, AS,
1980          WRITE( NOUT, FMT = 9999 )SNAME, NC
1982          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1990       WRITE( NOUT, FMT = 9996 )SNAME
1992          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
1994          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, RALPHA, INCX
2019       SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
2043       CHARACTER*6        SNAME  local
2079       FULL = SNAME( 3: 3 ).EQ.'E'
2080       PACKED = SNAME( 3: 3 ).EQ.'P'
2146                      CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A,
2174      $                     WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2182      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2210                         ISAME( 8 ) = LZERES( SNAME( 2: 3 ), UPLO, N, N,
2300          WRITE( NOUT, FMT = 9999 )SNAME, NC
2302          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2310       WRITE( NOUT, FMT = 9996 )SNAME
2312          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2315          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY