| 131 | } |
| 132 | |
| 133 | void |
| 134 | ztrsm(char side, char uplo, char transa, char diag, int m, int n, doublecomplex *alpha, doublecomplex *a, int lda, doublecomplex *b, int ldb) |
| 135 | { |
| 136 | ztrsm_(&side, &uplo, &transa, &diag, &m, &n, alpha, a, &lda, b, &ldb); |
| 137 | } |
| 138 | |
| 139 | void |
| 140 | ssyr2k(char uplo, char transa, int n, int k, float alpha, float *a, int lda, float *b, int ldb, float beta, float *c, int ldc) |