| 371 | } |
| 372 | |
| 373 | void |
| 374 | ztpmv(char uplo, char transa, char diag, int n, doublecomplex *ap, doublecomplex *x, int incx) |
| 375 | { |
| 376 | ztpmv_( &uplo, &transa, &diag, &n, ap, x, &incx); |
| 377 | } |
| 378 | |
| 379 | void |
| 380 | stpsv(char uplo, char transa, char diag, int n, float *ap, float *x, int incx) |