Function sorghr 

pub unsafe fn sorghr(
    layout: Layout,
    n: i32,
    ilo: i32,
    ihi: i32,
    a: &mut [f32],
    lda: i32,
    tau: &[f32],
) -> i32