--- a/OptimLib1.mod
+++ b/OptimLib1.mod
@@ -82,6 +82,7 @@
   (* 19.06.16, MRi: Zusamennfassen der unter freier Lizenz stehenden        *)
   (*                Module Trudge,FletcherPowell, NelderMead und FMinBr     *)
   (* 02.05.18, MRi: MinBrack aus dem Modul entfernt                         *)
+  (* 30.08.18, MRi: Anpassen von Formatanweisungen fuer WriteN              *)
   (*------------------------------------------------------------------------*)
   (* Offene Punkte                                                          *)
   (*                                                                        *)
@@ -109,7 +110,7 @@
   (* Licence        : GNU Lesser General Public License (LGPL)              *)
   (*------------------------------------------------------------------------*)
 
-  (* $Id: OptimLib1.mod,v 1.2 2018/05/03 07:19:23 mriedl Exp mriedl $ *)
+  (* $Id: OptimLib1.mod,v 1.3 2018/06/30 09:49:32 mriedl Exp mriedl $ *)
 
 FROM SYSTEM     IMPORT TSIZE;
 FROM Storage    IMPORT ALLOCATE,DEALLOCATE;
@@ -2764,14 +2765,14 @@
 
   BEGIN
         Write2("//,S,C2,//",'Optimierungsdaten in Zyklus : ',Zyklus);
-        Write5("//,X13,S,X10,S,X10,S,X5,S,X9,S,//",
+        Write5("//,13X,2(A,10X),2(A,5X),4X,S,//",
         "X","dX","1. Ableitung","dA1","2. Ableitung");
         FOR i:=0 TO NVar-1 DO
           dX  := X0[i] - X0alt[i];
           dA1 := Ableit1[i] - Abl1Alt[i];
           IF (Zyklus = 0) THEN dX:=0.0; dA1:=0.0; END;
-          Write1("C3,X2",i+1);
-          Write5("F14.8,X2,F11.8,X2,F14.8,X2,F11.8,X2,F14.8,/",
+          Write1("C3,2X",i+1);
+          Write5("2(F14.8,2X,F11.8,2X),F14.8,/",
           X0[i],dX,Ableit1[i],dA1,Ableit2[i]);
         END;
   END WriteFPDaten;