Solve A*X = B using dgesv. Returns for solver dgesv: info>0: Singular for element i. info<0: Bad input.
function solveLinearSystem input Real[size(B, 1), size(B, 1)] A; input Real[:] B; output Real[size(B, 1)] X; output Integer info; end solveLinearSystem;