|
a/SFormAus.def |
|
b/SFormAus.def |
|
... |
|
... |
3 |
(*========================================================================*)
|
3 |
(*========================================================================*)
|
4 |
(* WICHTIG: BITTE NUR DIE DATEI XFormAus.mod.m2cc EDITIEREN !!! *)
|
4 |
(* WICHTIG: BITTE NUR DIE DATEI XFormAus.mod.m2cc EDITIEREN !!! *)
|
5 |
(*========================================================================*)
|
5 |
(*========================================================================*)
|
6 |
(* *)
|
6 |
(* *)
|
7 |
(* Prozeduren zur Ausgabe von N Parametern (dWriteN) auf einen Stream *)
|
7 |
(* Prozeduren zur Ausgabe von N Parametern (dWriteN) auf einen Stream *)
|
8 |
(* Procedures for the output of N parameters (dWriteN) on a stream *)
|
|
|
9 |
(* ------------------------------------------------------------------- *)
|
8 |
(* ------------------------------------------------------------------- *)
|
10 |
(* *)
|
9 |
(* *)
|
11 |
(* Die Art der Parameter und die Form deren Ausgabe wird dabei "uber den *)
|
10 |
(* Die Art der Parameter und die Form deren Ausgabe wird dabei "uber den *)
|
12 |
(* String Format "ubergeben. *)
|
11 |
(* String Format "ubergeben. *)
|
13 |
(* *)
|
12 |
(* *)
|
|
... |
|
... |
33 |
(* Alle Elemente des Formatstrings m"ussen dabei (Au\3er bei den Zeilen- *)
|
32 |
(* Alle Elemente des Formatstrings m"ussen dabei (Au\3er bei den Zeilen- *)
|
34 |
(* vorsch"uben) durch Kommata getrennt werden. *)
|
33 |
(* vorsch"uben) durch Kommata getrennt werden. *)
|
35 |
(* *)
|
34 |
(* *)
|
36 |
(* Beispiel : *)
|
35 |
(* Beispiel : *)
|
37 |
(* *)
|
36 |
(* *)
|
38 |
(* Write3('//,S,C3,X5,F12.5,///','i,x : ',i,x); : *)
|
37 |
(* Write3('//,S,C3,X5,F12.5,///','i,x : ',i,x); : *)
|
39 |
(* *)
|
38 |
(* *)
|
40 |
(* Erzeuge zwei Zeilenvorsch"ube, schreibe 'i,x : ', gebe den *)
|
39 |
(* Erzeuge zwei Zeilenvorsch"ube, schreibe 'i,x : ', gebe den *)
|
41 |
(* (CARDINAL-) Parameter i mit drei Ziffern aus, erzeuge 5 Leerzeichen, *)
|
40 |
(* (CARDINAL-) Parameter i mit drei Ziffern aus, erzeuge 5 Leerzeichen, *)
|
42 |
(* gebe den (LONGREAL-) - Parameter x in Flie\3kommaformat mit einer *)
|
41 |
(* gebe den (LONGREAL-) - Parameter x in Flie\3kommaformat mit einer *)
|
43 |
(* Feldbreit von 12 Zeichen und 6 Nachkommstellen aus und erzeuge dann *)
|
42 |
(* Feldbreit von 12 Zeichen und 6 Nachkommstellen aus und erzeuge dann *)
|
44 |
(* nochmals drei Zeilenvorsch"ube. *)
|
43 |
(* nochmals drei Zeilenvorsch"ube. *)
|
|
|
44 |
(* *)
|
|
|
45 |
(* Procedures for the output of N parameters (dWriteN) on a stream *)
|
|
|
46 |
(* ------------------------------------------------------------------- *)
|
|
|
47 |
(* *)
|
|
|
48 |
(* The type of the paraters and their format are transferred to the *)
|
|
|
49 |
(* procudure via the string "Format" *)
|
|
|
50 |
(* *)
|
|
|
51 |
(* Allowed (implemented) parameters are *)
|
|
|
52 |
(* *)
|
|
|
53 |
(* CARDINAL / LONGCARD : FORMAT = Cn *)
|
|
|
54 |
(* INTEGER : FORMAT = In *)
|
|
|
55 |
(* REAL/LONGREAL : FORMAT = Fn.m|En.m (floating/exponetial) *)
|
|
|
56 |
(* CHAR / ARRAY OF CHAR : FORMAT = S *)
|
|
|
57 |
(* CHAR / ARRAY OF CHAR : FORMAT = An (like in FORTRAN) *)
|
|
|
58 |
(* *)
|
|
|
59 |
(* n : field width *)
|
|
|
60 |
(* m : digits after the decimal point for real parameters *)
|
|
|
61 |
(* *)
|
|
|
62 |
(* For the "An" format a string will be written out left oriented with n *)
|
|
|
63 |
(* characters, if n > length(string) blanks are added. If the string is *)
|
|
|
64 |
(* too long truncation will take place. *)
|
|
|
65 |
(* *)
|
|
|
66 |
(* The character "/" created a newline and with Xn you trigger the output *)
|
|
|
67 |
(* on n blanks *)
|
|
|
68 |
(* Alle elements of the format strings have to be separated by a comma, *)
|
|
|
69 |
(* exept for the newline character. This is best described with the *)
|
|
|
70 |
(* following example: *)
|
|
|
71 |
(* *)
|
|
|
72 |
(* Write3('//,S,C3,X5,F12.5,///','i,x : ',i,x); : *)
|
|
|
73 |
(* *)
|
|
|
74 |
(* generated two new lines, will output 'i,x : ', write cardinal i with *)
|
|
|
75 |
(* a fieldwidth of 3 digits, output five blancs and output the real *)
|
|
|
76 |
(* parameter x in floating point format with a field width of 12 and 6 *)
|
|
|
77 |
(* digit afer the decimal point. Finally creat 3 new lines. *)
|
45 |
(*------------------------------------------------------------------------*)
|
78 |
(*------------------------------------------------------------------------*)
|
46 |
(* Implementation : Michael Riedl *)
|
79 |
(* Implementation : Michael Riedl *)
|
47 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
80 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
48 |
(*------------------------------------------------------------------------*)
|
81 |
(*------------------------------------------------------------------------*)
|
49 |
|
82 |
|
|
... |
|
... |
60 |
(* im Bereich [1..4] liegen, Vorgabe ist 2 was fuer die meisten *)
|
93 |
(* im Bereich [1..4] liegen, Vorgabe ist 2 was fuer die meisten *)
|
61 |
(* Zwecke ausreichend sein sollte. *)
|
94 |
(* Zwecke ausreichend sein sollte. *)
|
62 |
(* Bitte beachten dass dieser Werte fuer TFormAus und FFormAus *)
|
95 |
(* Bitte beachten dass dieser Werte fuer TFormAus und FFormAus *)
|
63 |
(* nicht unabhaengig gewaehlt werden kann da beide Module auf *)
|
96 |
(* nicht unabhaengig gewaehlt werden kann da beide Module auf *)
|
64 |
(* dieselben Schreibroutinen in FIO2.mod zurueckgreifen. *)
|
97 |
(* dieselben Schreibroutinen in FIO2.mod zurueckgreifen. *)
|
|
|
98 |
(* *)
|
65 |
(* Defines the number of digits in the exponent of floating point *)
|
99 |
(* Defines the number of digits in the exponent of floating point *)
|
66 |
(* values in sientific or engineering representation. The value *)
|
100 |
(* values in sientific or engineering representation. The value *)
|
67 |
(* of nExp shall be in the interval [1..4], default value is 2 *)
|
101 |
(* of nExp shall be in the interval [1..4], default value is 2 *)
|
68 |
(* which should be sufficient for most cases. *)
|
102 |
(* which should be sufficient for most cases. *)
|
69 |
(* Please not the for TFormAus and FFormAus the value cannot be *)
|
103 |
(* Please not the for TFormAus and FFormAus the value cannot be *)
|