785       CHARACTER*1        UPLO, UPLOS  local
853                UPLO = ICH( IC: IC )
858                CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
897                            UPLOS = UPLO
920      $                           UPLO, N, ALPHA, LDA, INCX, BETA, INCY
923                               CALL ZHEMV( UPLO, N, ALPHA, AA, LDA, XX,
928      $                           UPLO, N, K, ALPHA, LDA, INCX, BETA,
932                               CALL ZHBMV( UPLO, N, K, ALPHA, AA, LDA,
937      $                           UPLO, N, ALPHA, INCX, BETA, INCY
940                               CALL ZHPMV( UPLO, N, ALPHA, AA, XX, INCX,
954                            ISAME( 1 ) = UPLO.EQ.UPLOS
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,
1130       CHARACTER*1        DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS  local
1204                UPLO = ICHU( ICU: ICU )
1215                      CALL ZMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1237                         UPLOS = UPLO
1257      $                           UPLO, TRANS, DIAG, N, LDA, INCX
1260                               CALL ZTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1265      $                           UPLO, TRANS, DIAG, N, K, LDA, INCX
1268                               CALL ZTBMV( UPLO, TRANS, DIAG, N, K, AA,
1273      $                           UPLO, TRANS, DIAG, N, INCX
1276                               CALL ZTPMV( UPLO, TRANS, DIAG, N, AA, XX,
1283      $                           UPLO, TRANS, DIAG, N, LDA, INCX
1286                               CALL ZTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1291      $                           UPLO, TRANS, DIAG, N, K, LDA, INCX
1294                               CALL ZTBSV( UPLO, TRANS, DIAG, N, K, AA,
1299      $                           UPLO, TRANS, DIAG, N, INCX
1302                               CALL ZTPSV( UPLO, TRANS, DIAG, N, AA, XX,
1317                         ISAME( 1 ) = UPLO.EQ.UPLOS
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
1773       CHARACTER*1        UPLO, UPLOS  local
1822             UPLO = ICH( IC: IC )
1823             UPPER = UPLO.EQ.'U'
1847                   CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1854                   UPLOS = UPLO
1870      $                  WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1874                      CALL ZHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1877      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1881                      CALL ZHPR( UPLO, N, RALPHA, XX, INCX, AA )
1894                   ISAME( 1 ) = UPLO.EQ.UPLOS
1902                      ISAME( 6 ) = LZERES( SNAME( 2: 3 ), UPLO, N, N, AS,
1992          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
1994          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, RALPHA, INCX
2059       CHARACTER*1        UPLO, UPLOS  local
2108             UPLO = ICH( IC: IC )
2109             UPPER = UPLO.EQ.'U'
2146                      CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A,
2154                      UPLOS = UPLO
2174      $                     WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2178                         CALL ZHER2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2182      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2186                         CALL ZHPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2200                      ISAME( 1 ) = UPLO.EQ.UPLOS
2210                         ISAME( 8 ) = LZERES( SNAME( 2: 3 ), UPLO, N, N,
2312          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2315          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2685       SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,  argument
2715       CHARACTER*1        DIAG, UPLO  local
2731       UPPER = ( SYM.OR.TRI ).AND.UPLO.EQ.'U'
2732       LOWER = ( SYM.OR.TRI ).AND.UPLO.EQ.'L'
3040       LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
3054       CHARACTER*1        UPLO  local
3062       UPPER = UPLO.EQ.'U'