Function lapack::slapmr

pub fn slapmr(forwrd: &[i32], m: usize, n: usize, x: &mut [f32], ldx: usize, k: &mut u32)