blas::fortran
pub unsafe fn dspr( uplo: u8, n: i32, alpha: f64, x: &[f64], incx: i32, ap: &mut [f64])