summaryrefslogtreecommitdiff
path: root/epostunit.pas
diff options
context:
space:
mode:
Diffstat (limited to 'epostunit.pas')
-rw-r--r--epostunit.pas31
1 files changed, 30 insertions, 1 deletions
diff --git a/epostunit.pas b/epostunit.pas
index 6527891..6800a7d 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -2798,7 +2798,36 @@ begin
Zeit:=now;
setLength(produktThreads,threads);
for i:=0 to length(produktThreads)-1 do
- produktThreads[i]:=tProduktThread.create(wertes^[faktor1],wertes^[faktor2],self,round(i*_xSteps/threads),round((i+1)*_xSteps/threads-1),0,_tSiz-1,xMin,tMin,datenOrdnung,konjugiert);
+ if datenOrdnung = doRes then
+ produktThreads[i]:=
+ tProduktThread.create(
+ wertes^[faktor1],
+ wertes^[faktor2],
+ self,
+ round(i*_xSteps/threads),
+ round((i+1)*_xSteps/threads-1),
+ 0,
+ _tSiz-1,
+ xMin,
+ tMin,
+ datenOrdnung,
+ konjugiert
+ )
+ else // im Falle komplexen Inhalts müssen wir anders teilen
+ produktThreads[i]:=
+ tProduktThread.create(
+ wertes^[faktor1],
+ wertes^[faktor2],
+ self,
+ round(i*(_xSteps div 2 + 1)/threads),
+ round((i+1)*(_xSteps div 2 + 1)/threads-1),
+ 0,
+ _tSiz div 2,
+ xMin,
+ tMin,
+ datenOrdnung,
+ konjugiert
+ );
repeat
sleep(10);
fertig:=true;