DEFINITION MODULE HQRM;

  (* EXPORT QUALIFIED HQR; *)

   FROM NRVect IMPORT Vector;
   FROM NRMatr IMPORT Matrix;

   PROCEDURE HQR(A:      Matrix; 
                 WR, WI: Vector); 
   (*
     Finds all eigenvalues of an upper Hessenberg matrix A[n, n].  
     On input A can be exactly as output from ElmHes section 11.5; 
     on output it is destroyed. The real and imaginary parts of the 
     eigenvalues are returned in WR[0, n-1] and WI[0, n-1] respectively.
   *)

END HQRM.