Gather-Scatter Optimization

• Untuned

do i = 1, n

if (t(I).gt.0.0) then

a(I)=2.0*b(I-1)

end if

enddo

• Tuned

inc = 0

do i = 1, n

tmp(inc) = i

if (t(I).gt.0.0) then

inc = inc + 1

end if

enddo

do I = 1, inc

a(tmp(I))=2.0*b((tmp(I)-1)

enddo

Previous slide

Next slide

Back to first slide

View graphic version