pub fn calc_reflector<A>(x: &mut ArrayRef<A, Ix1>)where A: Scalar + Lapack,
Calc a reflactor w from a vector x
w
x