function eigenvalues2 import Modelica_LinearSystems2.Math.Matrices; import Modelica_LinearSystems2.Math.Matrices.Internal; import Modelica_LinearSystems2.Math.Matrices.LAPACK; input Real A[:, size(A, 1)]; output Real alphaReal[size(A, 1)] "Real part of alpha (eigenvalue=(alphaReal+i*alphaImag))"; output Real alphaImag[size(A, 1)] "Imaginary part of alpha (eigenvalue=(alphaReal+i*alphaImag))"; output Real lEigenVectors[size(A, 1), size(A, 1)] "left eigenvectors of matrix A"; output Real rEigenVectors[size(A, 1), size(A, 1)] "right eigenvectors of matrix A"; output Integer info = 0; end eigenvalues2;