Wrześniowski Kazimierz
Winkel Elżbieta
Algorithm 60 - Determination of the Jordan canonical form of a real matrix