blas::c
pub unsafe fn drotmg( d1: &mut [f64], d2: &mut [f64], b1: &mut [f64], b2: f64, p: &mut [f64])