fftWisdom wird nun gespeichert und geladen

1 files changed, 15 insertions, 1 deletions

diff --git a/Plasmapropagation.lpr b/Plasmapropagation.lpr
index d822858..7d33938 100644
--- a/Plasmapropagation.lpr
+++ b/Plasmapropagation.lpr
@@ -8,7 +8,7 @@ uses
   {$ENDIF}{$ENDIF}
   Classes, SysUtils, CustApp,
   { you can add units after this }
-  math, Physikunit, protokollunit, lowlevelunit;
+  math, Physikunit, protokollunit, lowlevelunit, fftw;
 
 type
 
@@ -41,6 +41,13 @@ begin
 
   start:=now;
 
+  s:=extractfilepath(paramstr(0))+'fftWisdom.dat';
+  if fileexists(s) then
+    if fftw_import_wisdom_from_filename(pChar(s))=0 then begin
+      prot.schreibe('Kann vorhandene Weisheitsdatei '''+s+''' nicht lesen!');
+      prot.destroyAll;
+      halt(1);
+    end;
 
   zeitDatei:=0;
   zeitPhysik:=0;
@@ -68,6 +75,13 @@ begin
   prot.free;
 
   // stop program loop
+
+  if fftw_export_wisdom_to_filename(pChar(extractfilepath(paramstr(0))+'fftWisdom.dat'))=0 then begin
+    prot.schreibe('Kann Weisheitsdatei '''+s+''' nicht schreiben!');
+    prot.destroyAll;
+    halt(1);
+  end;
+
   Terminate;
   if errorCode=1 then errorCode:=0;
 end;