function eigenvalues2 extends Modelica.Icons.Function; import Modelica.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;