Determine singular values of a complex matrix
function zgesvd import Modelica_LinearSystems2.Math.Complex; import Modelica_LinearSystems2.Math.Matrices; input Complex A[:, :] "Square or rectangular matrix"; output Real sigma[min(size(A, 1), size(A, 2))] "singular values"; output Complex U[size(A, 1), size(A, 1)] "Left orthogonal matrix"; output Complex VT[size(A, 2), size(A, 2)] "Transposed right orthogonal matrix"; output Integer info; end zgesvd;