Function calc_reflector 

pub fn calc_reflector<A>(x: &mut ArrayRef<A, Ix1>)
where
    A: Scalar + Lapack,

Calc a reflactor w from a vector x