pub fn chpr<T>( order: CblasOrder, uplo: CblasUplo, N: i32, alpha: f32, x: &[T], incx: i32, Ap: &mut [T])
