| 275 | } |
| 276 | |
| 277 | void |
| 278 | zgeru(int m, int n, doublecomplex *alpha, doublecomplex *x, int incx, doublecomplex *y, int incy, doublecomplex *a, int lda) |
| 279 | { |
| 280 | zgeru_( &m, &n, alpha, x, &incx, y, &incy, a, &lda); |
| 281 | } |
| 282 | |
| 283 | void |
| 284 | cgerc(int m, int n, complex *alpha, complex *x, int incx, complex *y, int incy, complex *a, int lda) |