summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Plasmapropagation.lpr16
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;