--- a/TFormAus.def
+++ b/TFormAus.def
@@ -5,7 +5,6 @@
(*========================================================================*)
(* *)
(* Prozeduren zur Ausgabe von N Parametern (WriteN) auf dem Bildschirm *)
- (* Procedures for the output of N parameters (WriteN) on the screen *)
(* ------------------------------------------------------------------- *)
(* *)
(* Die Art der Parameter und die Form deren Ausgabe wird dabei "uber den *)
@@ -35,13 +34,47 @@
(* *)
(* Beispiel : *)
(* *)
- (* Write3('//,S,C3,X5,F12.5,///','i,x : ',i,x); : *)
+ (* Write3('//,S,C3,X5,F12.5,///','i,x : ',i,x); : *)
(* *)
- (* Erzeuge zwei Zeilenvorsch"ube, schreibe 'i,x : ', gebe den *)
- (* (CARDINAL-) Parameter i mit drei Ziffern aus, erzeuge 5 Leerzeichen, *)
- (* gebe den (LONGREAL-) - Parameter x in Flie\3kommaformat mit einer *)
- (* Feldbreit von 12 Zeichen und 6 Nachkommstellen aus und erzeuge dann *)
- (* nochmals drei Zeilenvorsch"ube. *)
+ (* Erzeuge zwei Zeilenvorsch"ube, schreibe 'i,x : ', gebe den *)
+ (* (CARDINAL-) Parameter i mit drei Ziffern aus, erzeuge 5 Leerzeichen, *)
+ (* gebe den (LONGREAL-) - Parameter x in Flie\3kommaformat mit einer *)
+ (* Feldbreit von 12 Zeichen und 6 Nachkommstellen aus und erzeuge dann *)
+ (* nochmals drei Zeilenvorsch"ube. *)
+ (* *)
+ (* Procedures for the output of N parameters (WriteN) on the screen *)
+ (* ------------------------------------------------------------------- *)
+ (* *)
+ (* The type of the paraters and their format are transferred to the *)
+ (* procudure via the string "Format" *)
+ (* *)
+ (* Allowed (implemented) parameters are *)
+ (* *)
+ (* CARDINAL / LONGCARD : FORMAT = Cn *)
+ (* INTEGER : FORMAT = In *)
+ (* REAL/LONGREAL : FORMAT = Fn.m|En.m (floating/exponetial) *)
+ (* CHAR / ARRAY OF CHAR : FORMAT = S *)
+ (* CHAR / ARRAY OF CHAR : FORMAT = An (like in FORTRAN) *)
+ (* *)
+ (* n : field width *)
+ (* m : digits after the decimal point for real parameters *)
+ (* *)
+ (* For the "An" format a string will be written out left oriented with n *)
+ (* characters, if n > length(string) blanks are added. If the string is *)
+ (* too long truncation will take place. *)
+ (* *)
+ (* The character "/" created a newline and with Xn you trigger the output *)
+ (* on n blanks *)
+ (* Alle elements of the format strings have to be separated by a comma, *)
+ (* exept for the newline character. This is best described with the *)
+ (* following example: *)
+ (* *)
+ (* Write3('//,S,C3,X5,F12.5,///','i,x : ',i,x); : *)
+ (* *)
+ (* generated two new lines, will output 'i,x : ', write cardinal i with *)
+ (* a fieldwidth of 3 digits, output five blancs and output the real *)
+ (* parameter x in floating point format with a field width of 12 and 6 *)
+ (* digit afer the decimal point. Finally creat 3 new lines. *)
(*------------------------------------------------------------------------*)
(* Implementation : Michael Riedl *)
(* Licence : GNU Lesser General Public License (LGPL) *)
@@ -61,6 +94,7 @@
(* Bitte beachten dass dieser Werte fuer TFormAus und FFormAus *)
(* nicht unabhaengig gewaehlt werden kann da beide Module auf *)
(* dieselben Schreibroutinen in FIO2.mod zurueckgreifen. *)
+ (* *)
(* Defines the number of digits in the exponent of floating point *)
(* values in sientific or engineering representation. The value *)
(* of nExp shall be in the interval [1..4], default value is 2 *)