Function zpolyd1 

pub fn zpolyd1(
    z: Complex,
    c: &[Complex],
    n: usize,
    der: &mut Complex,
) -> Complex

evaluate complex polynomial and derivative