| 449 | } |
| 450 | |
| 451 | void |
| 452 | sspr2(char uplo, int n, float alpha, float *x, int incx, float *y, int incy, float *a ) |
| 453 | { |
| 454 | sspr2_( &uplo, &n, &alpha, x, &incx, y, &incy, a ); |
| 455 | } |
| 456 | void |
| 457 | dspr2(char uplo, int n, double alpha, double *x, int incx, double *y, int incy, double *a ) |
| 458 | { |