| 557 | } |
| 558 | |
| 559 | void |
| 560 | ztbsv(char uplo, char trans, char diag, int n, int k, doublecomplex *a, int lda, doublecomplex *x, int incx ) |
| 561 | { |
| 562 | ztbsv_( &uplo, &trans, &diag, &n, &k, a, &lda, x, &incx ); |
| 563 | } |
| 564 | |
| 565 | void |
| 566 | chemm(char side, char uplo, int m, int n, complex *alpha, complex *a, int lda, complex *b, int ldb, complex *beta, complex *c, int ldc) |