blas
pub fn zher(uplo: Uplo, n: usize, alpha: Complex<f64>, x: &[Complex<f64>], incx: usize, a: &mut [Complex<f64>], lda: usize)