Линейная алгебра, преобразование матриц.

[ruddy]

Уважаемые друзья, огромная просьба:
укажите, пожалуйста, текст подпрограммы (желательно на старом Фортране! самопальной или из легальной библиотеки!), позволяющей от исходной квадратной матрицы общего вида с действительными элементами (не гигантского размера!) перейти к матрице в "канонической" нормальной форме Фробениуса (Frobenius Normal Form):
http://ru.wikipedia.org/wiki/Матрица_Фробениуса