|
a/Deklera.def |
|
b/Deklera.def |
|
... |
|
... |
| 14 |
(*------------------------------------------------------------------------*)
|
14 |
(*------------------------------------------------------------------------*)
|
| 15 |
(* Implementation : Michael Riedl *)
|
15 |
(* Implementation : Michael Riedl *)
|
| 16 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
16 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
| 17 |
(*------------------------------------------------------------------------*)
|
17 |
(*------------------------------------------------------------------------*)
|
| 18 |
|
18 |
|
| 19 |
(* $Id: Deklera.def,v 1.1 2015/09/13 20:48:40 mriedl Exp mriedl $ *)
|
19 |
(* $Id: Deklera.def,v 1.2 2018/06/08 21:38:43 mriedl Exp mriedl $ *)
|
| 20 |
|
20 |
|
| 21 |
FROM SYSTEM IMPORT TSIZE;
|
21 |
FROM SYSTEM IMPORT TSIZE;
|
| 22 |
|
22 |
|
| 23 |
TYPE Locale = (DE,EN,FR);
|
23 |
TYPE Locale = (DE,EN,FR);
|
| 24 |
|
24 |
|
| 25 |
CONST MaxDim = 240; (* 128 + 68 + 32 + 16 *)
|
25 |
CONST MaxDim = 240; (* 128 + 68 + 32 + 16 *)
|
| 26 |
MaxSV = (MaxDim*(MaxDim+1) DIV 2);
|
26 |
MaxSV = (MaxDim*(MaxDim+1) DIV 2);
|
| 27 |
MaxPMat = 4*1024; (* Formale L"ange *)
|
27 |
MaxPMat = 4*1024; (* Formale L"ange *)
|
| 28 |
|
28 |
|
| 29 |
TYPE FLOAT = LONGREAL;
|
29 |
TYPE FLOAT = LONGREAL;
|
|
|
30 |
CFLOAT = LONGCOMPLEX;
|
| 30 |
|
31 |
|
| 31 |
TYPE STRING = ARRAY [0..255] OF CHAR;
|
32 |
TYPE STRING = ARRAY [0..255] OF CHAR;
|
| 32 |
VEKTOR = ARRAY [1..MaxDim] OF LONGREAL;
|
33 |
VEKTOR = ARRAY [1..MaxDim] OF LONGREAL;
|
| 33 |
MATRIX = ARRAY [1..MaxDim] OF VEKTOR;
|
34 |
MATRIX = ARRAY [1..MaxDim] OF VEKTOR;
|
| 34 |
SUPERVEKTOR = ARRAY [1..MaxSV] OF LONGREAL;
|
35 |
SUPERVEKTOR = ARRAY [1..MaxSV] OF LONGREAL;
|