From d0fb5e1023f5b221cc476921d5e683b2be981792 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Mon, 5 Oct 2015 16:04:12 +0200 Subject: fft-Weisheit wird nun schon eher wieder gespeichert --- Plasmapropagation.lpr | 12 ++++++------ 1 file 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; -- cgit v1.2.3-54-g00ecf