|
a/Integral.mod.m2pp |
|
b/Integral.mod.m2pp |
|
... |
|
... |
30 |
(*------------------------------------------------------------------------*)
|
30 |
(*------------------------------------------------------------------------*)
|
31 |
(* Implementation : Michael Riedl *)
|
31 |
(* Implementation : Michael Riedl *)
|
32 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
32 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
33 |
(*------------------------------------------------------------------------*)
|
33 |
(*------------------------------------------------------------------------*)
|
34 |
|
34 |
|
35 |
(* $Id: Integral.mod.m2pp,v 1.5 2018/03/02 10:48:20 mriedl Exp mriedl $ *)
|
35 |
(* $Id: Integral.mod.m2pp,v 1.5 2018/03/02 10:48:20 mriedl Exp $ *)
|
36 |
|
36 |
|
37 |
FROM SYSTEM IMPORT TSIZE;
|
37 |
FROM SYSTEM IMPORT TSIZE;
|
38 |
FROM Storage IMPORT ALLOCATE,DEALLOCATE;
|
38 |
FROM Storage IMPORT ALLOCATE,DEALLOCATE;
|
39 |
FROM LongMath IMPORT sqrt;
|
39 |
FROM LongMath IMPORT sqrt;
|
40 |
FROM LMathLib IMPORT MachEps,Funktion1;
|
40 |
FROM LMathLib IMPORT MachEps,Funktion1;
|