fft-Weisheit wird nun schon eher wieder gespeichert

1 files changed, 6 insertions, 6 deletions

diff --git a/Plasmapropagation.lpr b/Plasmapropagation.lpr
index 7d33938..478901f 100644
--- a/Plasmapropagation.lpr
+++ b/Plasmapropagation.lpr
@@ -53,6 +53,12 @@ begin
   zeitPhysik:=0;
   simulation:=tSimulation.create(paramstr(1),prot,'simulation');
 
+  if fftw_export_wisdom_to_filename(pChar(s))=0 then begin
+    prot.schreibe('Kann Weisheitsdatei '''+s+''' nicht schreiben!');
+    prot.destroyAll;
+    halt(1);
+  end;
+
   while simulation.iteriereSchritt(start,zeitPhysik,zeitDatei) do ;
 
   case errorCode of
@@ -76,12 +82,6 @@ begin
 
   // 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;