function hohoTrafoUpperHess extends Modelica.Icons.Function; import Modelica.Math.Vectors.length; input Real A[:, size(A, 1)]; input Real u[size(A, 1)] "householder vector"; input Integer r; output Real SAS[size(A, 1), size(A, 1)]; end hohoTrafoUpperHess;