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