| 305 | } |
| 306 | |
| 307 | void |
| 308 | ssyr2(char uplo, int n, float alpha, float *x, int incx, float *y, int incy, float *a, int lda) |
| 309 | { |
| 310 | ssyr2_( &uplo, &n, &alpha, x, &incx, y, &incy, a, &lda); |
| 311 | } |
| 312 | |
| 313 | void |
| 314 | dsyr2(char uplo, int n, double alpha, double *x, int incx, double *y, int incy, double *a, int lda) |