Function dlapmr

pub unsafe fn dlapmr(
    forwrd: &[i32],
    m: i32,
    n: i32,
    x: &mut [f64],
    ldx: i32,
    k: &mut i32,
)