Contains a C sub routine of robust pole assignment to modify the eigenvector matrix X according to Kautsky algorithm
function modifyX_old import Re = Modelica.ComplexMath.real; import Im = Modelica.ComplexMath.imag; input Complex X[:, size(X, 1)] "Complex eigenvector matrix"; input Complex S[size(X, 1), :] "Complex eigenvector matrix"; input Integer m "Rank of the system input matrix B; S_real and S_imag must have n*m columns"; input Integer ncp "number of complex pairs"; input Integer steps "Number of iterations"; output Complex Xm[size(X, 1), size(X, 2)]; end modifyX_old;