pub fn drotm(
    N: i32,
    x: &mut [f64],
    incx: i32,
    y: &mut [f64],
    incy: i32,
    p: &[f64]
)