|
a/EigenLib1.mod.m2pp |
|
b/EigenLib1.mod.m2pp |
|
... |
|
... |
66 |
(*------------------------------------------------------------------------*)
|
66 |
(*------------------------------------------------------------------------*)
|
67 |
(* Implementation : Michael Riedl *)
|
67 |
(* Implementation : Michael Riedl *)
|
68 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
68 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
69 |
(*------------------------------------------------------------------------*)
|
69 |
(*------------------------------------------------------------------------*)
|
70 |
|
70 |
|
71 |
(* $Id: EigenLib1.mod.m2pp,v 1.12 2018/01/16 09:19:51 mriedl Exp mriedl $ *)
|
71 |
(* $Id: EigenLib1.mod.m2pp,v 1.13 2019/02/01 22:24:03 mriedl Exp mriedl $ *)
|
72 |
|
72 |
|
73 |
FROM SYSTEM IMPORT ADR,TSIZE;
|
73 |
FROM SYSTEM IMPORT ADR,TSIZE;
|
74 |
FROM Storage IMPORT ALLOCATE,DEALLOCATE;
|
74 |
FROM Storage IMPORT ALLOCATE,DEALLOCATE;
|
75 |
FROM LongMath IMPORT sqrt;
|
75 |
FROM LongMath IMPORT sqrt;
|
76 |
FROM LMathLib IMPORT MachEps,MachEpsR4,Small,MaxCard,Pythag;
|
76 |
FROM LMathLib IMPORT MachEps,MachEpsR4,Small,MaxCard,Pythag;
|