diff options
-rw-r--r-- | Plasmapropagation.lpr | 12 |
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; |