856       CHARACTER*1        UPLO, UPLOS  local
925                UPLO = ICH( IC: IC )
926                IF (UPLO.EQ.'U')THEN
935                CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA,
974                            UPLOS = UPLO
1000                               CALL CCHEMV( IORDER, UPLO, N, ALPHA, AA,
1010                               CALL CCHBMV( IORDER, UPLO, N, K, ALPHA,
1019                               CALL CCHPMV( IORDER, UPLO, N, ALPHA, AA,
1033                            ISAME( 1 ) = UPLO.EQ.UPLOS
1209       CHARACTER*1        DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS  local
1284                UPLO = ICHU( ICU: ICU )
1285                IF (UPLO.EQ.'U')THEN
1312                      CALL CMAKE( SNAME( 8: 9 ), UPLO, DIAG, N, N, A,
1334                         UPLOS = UPLO
1357                               CALL CCTRMV( IORDER, UPLO, TRANS, DIAG,
1365                               CALL CCTBMV( IORDER, UPLO, TRANS, DIAG,
1373                               CALL CCTPMV( IORDER, UPLO, TRANS, DIAG,
1383                               CALL CCTRSV( IORDER, UPLO, TRANS, DIAG,
1391                               CALL CCTBSV( IORDER, UPLO, TRANS, DIAG,
1399                               CALL CCTPSV( IORDER, UPLO, TRANS, DIAG,
1414                         ISAME( 1 ) = UPLO.EQ.UPLOS
1870       CHARACTER*1        UPLO, UPLOS  local
1920             UPLO = ICH( IC: IC )
1921             IF (UPLO.EQ.'U')THEN
1926             UPPER = UPLO.EQ.'U'
1950                   CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX,
1957                   UPLOS = UPLO
1977                      CALL CCHER( IORDER, UPLO, N, RALPHA, XX,
1985                      CALL CCHPR( IORDER, UPLO, N, RALPHA,
1999                   ISAME( 1 ) = UPLO.EQ.UPLOS
2007                     ISAME( 6 ) = LCERES( SNAME( 8: 9 ), UPLO, N, N, AS,
2164       CHARACTER*1        UPLO, UPLOS  local
2214             UPLO = ICH( IC: IC )
2215             IF (UPLO.EQ.'U')THEN
2220             UPPER = UPLO.EQ.'U'
2257                      CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A,
2265                      UPLOS = UPLO
2289                         CALL CCHER2( IORDER, UPLO, N, ALPHA, XX, INCX,
2297                         CALL CCHPR2( IORDER, UPLO, N, ALPHA, XX, INCX,
2311                      ISAME( 1 ) = UPLO.EQ.UPLOS
2321                         ISAME( 8 ) = LCERES( SNAME( 8: 9 ), UPLO, N, N,
2613       LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
2627       CHARACTER*1        UPLO  local
2635       UPPER = UPLO.EQ.'U'
2741       SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,  argument
2770       CHARACTER*1        DIAG, UPLO  local
2786       UPPER = ( SYM.OR.TRI ).AND.UPLO.EQ.'U'
2787       LOWER = ( SYM.OR.TRI ).AND.UPLO.EQ.'L'