blas::fortran
pub unsafe fn srotmg( d1: &mut f32, d2: &mut f32, x1: &mut f32, y1: f32, param: &mut [f32])