Function calc_reflector

pub fn calc_reflector<A, S>(x: &mut ArrayBase<S, Ix1>)
where
    A: Scalar + Lapack,
    S: DataMut<Elem = A>,

Calc a reflactor w from a vector x