function C_rank extends Modelica.Icons.Function; import Complex; import Modelica_LinearSystems2; input Complex A[:, :] "Matrix"; input Real eps = 0 "If eps > 0, the singular values are checked against eps; otherwise eps=max(size(A))*norm(A)*Modelica.Constants.eps is used"; output Integer result "Rank of matrix A"; end C_rank;