Function clanhs 

pub unsafe fn clanhs(
    norm: u8,
    n: i32,
    a: &[c32],
    lda: i32,
    work: &mut [f32],
) -> f32