blas
pub unsafe fn csyrk( uplo: u8, trans: u8, n: i32, k: i32, alpha: c32, a: &[c32], lda: i32, beta: c32, c: &mut [c32], ldc: i32)