Function clapmr

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