852       CHARACTER*1        UPLO, UPLOS  local
921                UPLO = ICH( IC: IC )
922                IF (UPLO.EQ.'U')THEN
931                CALL SMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA,
970                            UPLOS = UPLO
996                               CALL CSSYMV( IORDER, UPLO, N, ALPHA, AA,
1005                               CALL CSSBMV( IORDER, UPLO, N, K, ALPHA,
1014                               CALL CSSPMV( IORDER, UPLO, N, ALPHA, AA,
1028                            ISAME( 1 ) = UPLO.EQ.UPLOS
1208       CHARACTER*1        DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS  local
1283                UPLO = ICHU( ICU: ICU )
1284                IF (UPLO.EQ.'U')THEN
1311                      CALL SMAKE( SNAME( 8: 9 ), UPLO, DIAG, N, N, A,
1333                         UPLOS = UPLO
1356                               CALL CSTRMV( IORDER, UPLO, TRANS, DIAG,
1364                               CALL CSTBMV( IORDER, UPLO, TRANS, DIAG,
1372                               CALL CSTPMV( IORDER, UPLO, TRANS, DIAG,
1382                               CALL CSTRSV( IORDER, UPLO, TRANS, DIAG,
1390                               CALL CSTBSV( IORDER, UPLO, TRANS, DIAG,
1398                               CALL CSTPSV( IORDER, UPLO, TRANS, DIAG,
1413                         ISAME( 1 ) = UPLO.EQ.UPLOS
1869       CHARACTER*1        UPLO, UPLOS  local
1919             UPLO = ICH( IC: IC )
1920             IF (UPLO.EQ.'U')THEN
1925             UPPER = UPLO.EQ.'U'
1948                   CALL SMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX,
1955                   UPLOS = UPLO
1975                      CALL CSSYR( IORDER, UPLO, N, ALPHA, XX, INCX, 
1983                      CALL CSSPR( IORDER, UPLO, N, ALPHA, XX, INCX, AA )
1996                   ISAME( 1 ) = UPLO.EQ.UPLOS
2004                      ISAME( 6 ) = LSERES( SNAME( 8: 9 ), UPLO, N, N, AS,
2166       CHARACTER*1        UPLO, UPLOS  local
2216             UPLO = ICH( IC: IC )
2217             IF (UPLO.EQ.'U')THEN
2222             UPPER = UPLO.EQ.'U'
2259                      CALL SMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A,
2267                      UPLOS = UPLO
2291                         CALL CSSYR2( IORDER, UPLO, N, ALPHA, XX, INCX,
2299                         CALL CSSPR2( IORDER, UPLO, N, ALPHA, XX, INCX,
2313                      ISAME( 1 ) = UPLO.EQ.UPLOS
2323                         ISAME( 8 ) = LSERES( SNAME( 8: 9 ), UPLO, N, N,
2463       SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,  argument
2488       CHARACTER*1        DIAG, UPLO  local
2504       UPPER = ( SYM.OR.TRI ).AND.UPLO.EQ.'U'
2505       LOWER = ( SYM.OR.TRI ).AND.UPLO.EQ.'L'
2786       LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
2800       CHARACTER*1        UPLO  local
2808       UPPER = UPLO.EQ.'U'