General Remark: Reduction
Parallel Summation is Random: Result not Reproducable
Work around: Serial summation of task sums.
sumlocal = 0.0
*pdir pardo by=1, nobarr=(entry,exit)
do it=1,nt
ibg= ...
ied= ...
do i = ibg, ied
sumlocal = sumlocal + a(i)
end do
sumtask(it)=sumlocal
enddo
*pdir serial
do it=1,nt
sum = sum + sumtask(it)
enddo
*pdir end serial
return
end
Vorherige Folie
Nächste Folie
Zurück zur ersten Folie
Graphik-Version anzeigen