| 509 | } |
| 510 | |
| 511 | void |
| 512 | ztbmv(char uplo, char trans, char diag, int n, int k, doublecomplex *a, int lda, doublecomplex *x, int incx ) |
| 513 | { |
| 514 | ztbmv_( &uplo, &trans, &diag, &n, &k, a, &lda, x, &incx ); |
| 515 | } |
| 516 | |
| 517 | void |
| 518 | ssbmv(char uplo, int n, int k, float alpha, float *a, int lda, float *x, int incx, float beta, float *y, int incy ) |