782       CHARACTER*1        UPLO, UPLOS  local
850                UPLO = ICH( IC: IC )
855                CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
894                            UPLOS = UPLO
917      $                           UPLO, N, ALPHA, LDA, INCX, BETA, INCY
920                               CALL CHEMV( UPLO, N, ALPHA, AA, LDA, XX,
925      $                           UPLO, N, K, ALPHA, LDA, INCX, BETA,
929                               CALL CHBMV( UPLO, N, K, ALPHA, AA, LDA,
934      $                           UPLO, N, ALPHA, INCX, BETA, INCY
937                               CALL CHPMV( UPLO, N, ALPHA, AA, XX, INCX,
951                            ISAME( 1 ) = UPLO.EQ.UPLOS
1055          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1058          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1061          WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1126       CHARACTER*1        DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS  local
1200                UPLO = ICHU( ICU: ICU )
1211                      CALL CMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1233                         UPLOS = UPLO
1253      $                           UPLO, TRANS, DIAG, N, LDA, INCX
1256                               CALL CTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1261      $                           UPLO, TRANS, DIAG, N, K, LDA, INCX
1264                               CALL CTBMV( UPLO, TRANS, DIAG, N, K, AA,
1269      $                           UPLO, TRANS, DIAG, N, INCX
1272                               CALL CTPMV( UPLO, TRANS, DIAG, N, AA, XX,
1279      $                           UPLO, TRANS, DIAG, N, LDA, INCX
1282                               CALL CTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1287      $                           UPLO, TRANS, DIAG, N, K, LDA, INCX
1290                               CALL CTBSV( UPLO, TRANS, DIAG, N, K, AA,
1295      $                           UPLO, TRANS, DIAG, N, INCX
1298                               CALL CTPSV( UPLO, TRANS, DIAG, N, AA, XX,
1313                         ISAME( 1 ) = UPLO.EQ.UPLOS
1420          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1423          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1426          WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
1767       CHARACTER*1        UPLO, UPLOS  local
1816             UPLO = ICH( IC: IC )
1817             UPPER = UPLO.EQ.'U'
1841                   CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1848                   UPLOS = UPLO
1864      $                  WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1868                      CALL CHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1871      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1875                      CALL CHPR( UPLO, N, RALPHA, XX, INCX, AA )
1888                   ISAME( 1 ) = UPLO.EQ.UPLOS
1896                      ISAME( 6 ) = LCERES( SNAME( 2: 3 ), UPLO, N, N, AS,
1986          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
1988          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, RALPHA, INCX
2052       CHARACTER*1        UPLO, UPLOS  local
2101             UPLO = ICH( IC: IC )
2102             UPPER = UPLO.EQ.'U'
2139                      CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A,
2147                      UPLOS = UPLO
2167      $                     WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2171                         CALL CHER2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2175      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2179                         CALL CHPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2193                      ISAME( 1 ) = UPLO.EQ.UPLOS
2203                         ISAME( 8 ) = LCERES( SNAME( 2: 3 ), UPLO, N, N,
2305          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2308          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2678       SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,  argument
2707       CHARACTER*1        DIAG, UPLO  local
2723       UPPER = ( SYM.OR.TRI ).AND.UPLO.EQ.'U'
2724       LOWER = ( SYM.OR.TRI ).AND.UPLO.EQ.'L'
3032       LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
3046       CHARACTER*1        UPLO  local
3054       UPPER = UPLO.EQ.'U'