|
a/EigenLib1.def |
|
b/EigenLib1.def |
|
... |
|
... |
| 608 |
(* an diese \"ubergeben wurde. *)
|
608 |
(* an diese \"ubergeben wurde. *)
|
| 609 |
(*----------------------------------------------------------------*)
|
609 |
(*----------------------------------------------------------------*)
|
| 610 |
|
610 |
|
| 611 |
PROCEDURE Reduce1(VAR A,B : ARRAY OF ARRAY OF LONGREAL;
|
611 |
PROCEDURE Reduce1(VAR A,B : ARRAY OF ARRAY OF LONGREAL;
|
| 612 |
VAR dL : ARRAY OF LONGREAL;
|
612 |
VAR dL : ARRAY OF LONGREAL;
|
| 613 |
dim : CARDINAL; (* n in origianl *)
|
613 |
dim : CARDINAL; (* n in original *)
|
| 614 |
transB : BOOLEAN); (* FALSE instead of dim < 0 *)
|
614 |
transB : BOOLEAN); (* FALSE instead of dim < 0 *)
|
| 615 |
|
615 |
|
| 616 |
(*-----------------------------------------------------------------*)
|
616 |
(*-----------------------------------------------------------------*)
|
| 617 |
(* ==> getestet <== *)
|
617 |
(* ==> getestet <== *)
|
| 618 |
(*-----------------------------------------------------------------*)
|
618 |
(*-----------------------------------------------------------------*)
|