Determine singular values of a complex matrix
function zgesvd import Complex; 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;