--- a/EigenLib2.def
+++ b/EigenLib2.def
@@ -301,7 +301,7 @@
(* on exit : the hessenberg part of array a is altered *)
(* n the order of the given matrix *)
(* lambda : the given real eigenvalue of the upper hessenberg *)
- (* matrix *)
+ (* matrix *)
(* v : the calculated eigenvector is delivered in v[1:n] *)
(* Norm : a norm of the given matrix *)
(* Toler : the tolerance used for the eigenvector. The inverse *)
@@ -312,21 +312,21 @@
(* If Resid remains larger than Norm*Tol during *)
(* MaxIt iterations, the value MaxIt+1 is delivered *)
(* Resid : on exit the euclidian norm of the residue vector of *)
- (* the calculated eigenvector *)
+ (* the calculated eigenvector *)
(* *)
(* Source: NUMAL Numerical Algol library (Stichting CWI) *)
(*----------------------------------------------------------------*)
PROCEDURE ComVecHes(VAR a : MATRIX;
- n : INTEGER;
- lambda : LONGREAL;
- mu : LONGREAL;
- VAR u,v : VEKTOR;
- Norm : LONGREAL; (* em[1] *)
- Toler : LONGREAL; (* em[6] = -10 *)
- MaxIt : INTEGER; (* em[8] = 5 *)
- VAR Iter : INTEGER; (* em[9] *)
- VAR Resid : LONGREAL); (* em[7] *)
+ n : INTEGER;
+ lambda : LONGREAL;
+ mu : LONGREAL;
+ VAR u,v : VEKTOR;
+ Norm : LONGREAL; (* em[1] *)
+ Toler : LONGREAL; (* em[6] = -10 *)
+ MaxIt : INTEGER; (* em[8] = 5 *)
+ VAR Iter : INTEGER; (* em[9] *)
+ VAR Resid : LONGREAL); (* em[7] *)
(*----------------------------------------------------------------*)
(* ComVecHes calculates an eigenvector corresponding to a given *)