Function slapmt

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