lapacke
pub unsafe fn dopgtr( layout: Layout, uplo: u8, n: i32, ap: &[f64], tau: &[f64], q: &mut f64, ldq: i32) -> i32