Compute singular values and left and right singular vectors of a complex matrix
function C_singularValues 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"; end C_singularValues;