| 443 | } |
| 444 | |
| 445 | void |
| 446 | zhpr(char uplo, int n, double alpha, doublecomplex *x, int incx, doublecomplex *ap ) |
| 447 | { |
| 448 | zhpr_( &uplo, &n, &alpha, x, &incx, ap ); |
| 449 | } |
| 450 | |
| 451 | void |
| 452 | sspr2(char uplo, int n, float alpha, float *x, int incx, float *y, int incy, float *a ) |