| 287 | } |
| 288 | |
| 289 | void |
| 290 | zgerc(int m, int n, doublecomplex *alpha, doublecomplex *x, int incx, doublecomplex *y, int incy, doublecomplex *a, int lda) |
| 291 | { |
| 292 | zgerc_( &m, &n, alpha, x, &incx, y, &incy, a, &lda); |
| 293 | } |
| 294 | |
| 295 | void |
| 296 | ssyr(char uplo, int n, float alpha, float *x, int incx, float *a, int lda) |