lapack
pub fn slaset(uplo: u8, m: usize, n: usize, alpha: &[f32], beta: &[f32], a: &mut [f32], lda: usize)