| 293 | } |
| 294 | |
| 295 | void |
| 296 | ssyr(char uplo, int n, float alpha, float *x, int incx, float *a, int lda) |
| 297 | { |
| 298 | ssyr_( &uplo, &n, &alpha, x, &incx, a, &lda); |
| 299 | } |
| 300 | |
| 301 | void |
| 302 | dsyr(char uplo, int n, double alpha, double *x, int incx, double *a, int lda) |