| 251 | } |
| 252 | |
| 253 | void |
| 254 | zsymm(char side, char uplo, int m, int n, doublecomplex *alpha, doublecomplex *a, int lda, doublecomplex *b, int ldb, doublecomplex *beta, doublecomplex *c, int ldc) |
| 255 | { |
| 256 | zsymm_( &side, &uplo, &m, &n, alpha, a, &lda, b, &ldb, beta, c, &ldc); |
| 257 | } |
| 258 | |
| 259 | void |
| 260 | sger(int m, int n, float alpha, float *x, int incx, float *y, int incy, float *a, int lda) |