462       SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
486       CHARACTER*12       SNAME  local
523       FULL = SNAME( 9: 9 ).EQ.'e'
524       BANDED = SNAME( 9: 9 ).EQ.'b'
576                CALL ZMAKE( SNAME( 8: 9 ), ' ', ' ', M, N, A, NMAX, AA,
658      $                              WRITE( NTRA, FMT = 9994 )NC, SNAME,
668      $                              WRITE( NTRA, FMT = 9995 )NC, SNAME,
779          WRITE( NOUT, FMT = 9999 )SNAME, NC
781          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
786       WRITE( NOUT, FMT = 9996 )SNAME
788          WRITE( NOUT, FMT = 9994 )NC, SNAME, CTRANS, M, N, ALPHA, LDA,
791          WRITE( NOUT, FMT = 9995 )NC, SNAME, CTRANS, M, N, KL, KU,
818       SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
842       CHARACTER*12       SNAME  local
878       FULL = SNAME( 9: 9 ).EQ.'e'
879       BANDED = SNAME( 9: 9 ).EQ.'b'
880       PACKED = SNAME( 9: 9 ).EQ.'p'
937                CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA,
998      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1007      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1017      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1130          WRITE( NOUT, FMT = 9999 )SNAME, NC
1132          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1137       WRITE( NOUT, FMT = 9996 )SNAME
1139          WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, LDA, INCX,
1142          WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, K, ALPHA, LDA,
1145          WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, N, ALPHA, INCX,
1175       SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1199       CHARACTER*12       SNAME  local
1234       FULL = SNAME( 9: 9 ).EQ.'r'
1235       BANDED = SNAME( 9: 9 ).EQ.'b'
1236       PACKED = SNAME( 9: 9 ).EQ.'p'
1315                      CALL ZMAKE( SNAME( 8: 9 ), UPLO, DIAG, N, N, A,
1353                         IF( SNAME( 4: 5 ).EQ.'mv' )THEN
1356      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1364      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1372      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1379                         ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN
1382      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1390      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1398      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1468                            IF( SNAME( 4: 5 ).EQ.'mv' )THEN
1476                            ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN
1515          WRITE( NOUT, FMT = 9999 )SNAME, NC
1517          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1522       WRITE( NOUT, FMT = 9996 )SNAME
1524          WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1527          WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, CTRANS, CDIAG, N, K,
1530          WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1557       SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1582       CHARACTER*12       SNAME  local
1614       CONJ = SNAME( 5: 5 ).EQ.'c'
1676                      CALL ZMAKE(SNAME( 8: 9 ), ' ', ' ', M, N, A, NMAX,
1702      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
1802          WRITE( NOUT, FMT = 9999 )SNAME, NC
1804          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1812       WRITE( NOUT, FMT = 9996 )SNAME
1813       WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1835       SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1860       CHARACTER*12       SNAME  local
1896       FULL = SNAME( 9: 9 ).EQ.'e'
1897       PACKED = SNAME( 9: 9 ).EQ.'p'
1955                   CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX,
1978      $                  WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
1986      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
2012                     ISAME( 6 ) = LZERES( SNAME( 8: 9 ), UPLO, N, N, AS,
2090          WRITE( NOUT, FMT = 9999 )SNAME, NC
2092          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2100       WRITE( NOUT, FMT = 9996 )SNAME
2102          WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, RALPHA, INCX, LDA
2104          WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, RALPHA, INCX
2129       SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
2154       CHARACTER*12       SNAME  local
2191       FULL = SNAME( 9: 9 ).EQ.'e'
2192       PACKED = SNAME( 9: 9 ).EQ.'p'
2263                      CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A,
2291      $                     WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
2299      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
2327                         ISAME( 8 ) = LZERES( SNAME( 8: 9 ), UPLO, N, N,
2417          WRITE( NOUT, FMT = 9999 )SNAME, NC
2419          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2427       WRITE( NOUT, FMT = 9996 )SNAME
2429          WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, INCX,
2432          WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, ALPHA, INCX, INCY