852       CHARACTER*1        UPLO, UPLOS  local
921                UPLO = ICH( IC: IC )
922                IF (UPLO.EQ.'U')THEN
931                CALL DMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA,
970                            UPLOS = UPLO
996                               CALL CDSYMV( IORDER, UPLO, N, ALPHA, AA,
1005                               CALL CDSBMV( IORDER, UPLO, N, K, ALPHA,
1014                               CALL CDSPMV( 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 DMAKE( SNAME( 8: 9 ), UPLO, DIAG, N, N, A,
1333                         UPLOS = UPLO
1356                               CALL CDTRMV( IORDER, UPLO, TRANS, DIAG,
1364                               CALL CDTBMV( IORDER, UPLO, TRANS, DIAG,
1372                               CALL CDTPMV( IORDER, UPLO, TRANS, DIAG,
1382                               CALL CDTRSV( IORDER, UPLO, TRANS, DIAG,
1390                               CALL CDTBSV( IORDER, UPLO, TRANS, DIAG,
1398                               CALL CDTPSV( 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 DMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX,
1955                   UPLOS = UPLO
1975                      CALL CDSYR( IORDER, UPLO, N, ALPHA, XX, INCX, 
1983                      CALL CDSPR( IORDER, UPLO, N, ALPHA, XX, INCX, AA )
1996                   ISAME( 1 ) = UPLO.EQ.UPLOS
2004                      ISAME( 6 ) = LDERES( 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 DMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A,
2267                      UPLOS = UPLO
2291                         CALL CDSYR2( IORDER, UPLO, N, ALPHA, XX, INCX,
2299                         CALL CDSPR2( IORDER, UPLO, N, ALPHA, XX, INCX,
2313                      ISAME( 1 ) = UPLO.EQ.UPLOS
2323                         ISAME( 8 ) = LDERES( SNAME( 8: 9 ), UPLO, N, N,
2463       SUBROUTINE DMAKE( 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 LDERES( TYPE, UPLO, M, N, AA, AS, LDA )
2800       CHARACTER*1        UPLO  local
2808       UPPER = UPLO.EQ.'U'