858       CHARACTER*1        UPLO, UPLOS  local
927                UPLO = ICH( IC: IC )
928                IF (UPLO.EQ.'U')THEN
937                CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA,
976                            UPLOS = UPLO
1002                               CALL CZHEMV( IORDER, UPLO, N, ALPHA, AA,
1012                               CALL CZHBMV( IORDER, UPLO, N, K, ALPHA,
1021                               CALL CZHPMV( IORDER, UPLO, N, ALPHA, AA,
1035                            ISAME( 1 ) = UPLO.EQ.UPLOS
1212       CHARACTER*1        DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS  local
1287                UPLO = ICHU( ICU: ICU )
1288                IF (UPLO.EQ.'U')THEN
1315                      CALL ZMAKE( SNAME( 8: 9 ), UPLO, DIAG, N, N, A,
1337                         UPLOS = UPLO
1360                               CALL CZTRMV( IORDER, UPLO, TRANS, DIAG,
1368                               CALL CZTBMV( IORDER, UPLO, TRANS, DIAG,
1376                               CALL CZTPMV( IORDER, UPLO, TRANS, DIAG,
1386                               CALL CZTRSV( IORDER, UPLO, TRANS, DIAG,
1394                               CALL CZTBSV( IORDER, UPLO, TRANS, DIAG,
1402                               CALL CZTPSV( IORDER, UPLO, TRANS, DIAG,
1417                         ISAME( 1 ) = UPLO.EQ.UPLOS
1875       CHARACTER*1        UPLO, UPLOS  local
1925             UPLO = ICH( IC: IC )
1926             IF (UPLO.EQ.'U')THEN
1931             UPPER = UPLO.EQ.'U'
1955                   CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX,
1962                   UPLOS = UPLO
1982                      CALL CZHER( IORDER, UPLO, N, RALPHA, XX,
1990                      CALL CZHPR( IORDER, UPLO, N, RALPHA,
2004                   ISAME( 1 ) = UPLO.EQ.UPLOS
2012                     ISAME( 6 ) = LZERES( SNAME( 8: 9 ), UPLO, N, N, AS,
2170       CHARACTER*1        UPLO, UPLOS  local
2220             UPLO = ICH( IC: IC )
2221             IF (UPLO.EQ.'U')THEN
2226             UPPER = UPLO.EQ.'U'
2263                      CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A,
2271                      UPLOS = UPLO
2295                         CALL CZHER2( IORDER, UPLO, N, ALPHA, XX, INCX,
2303                         CALL CZHPR2( IORDER, UPLO, N, ALPHA, XX, INCX,
2317                      ISAME( 1 ) = UPLO.EQ.UPLOS
2327                         ISAME( 8 ) = LZERES( SNAME( 8: 9 ), UPLO, N, N,
2619       LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
2633       CHARACTER*1        UPLO  local
2641       UPPER = UPLO.EQ.'U'
2747       SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,  argument
2777       CHARACTER*1        DIAG, UPLO  local
2793       UPPER = ( SYM.OR.TRI ).AND.UPLO.EQ.'U'
2794       LOWER = ( SYM.OR.TRI ).AND.UPLO.EQ.'L'