Gather ñ no problem
Replace serial code with:
!$OMP PARALLEL default(none) &
!$OMP PRIVATE (iel) &
!$OMP SHARED (nels, pmul, g, p) &
!$OMP DO
DO iel = 1, nels
pmul(:,iel) = p(g(:,iel))
END DO
!$OMP END DO
!$OMP END PARALLEL
Which parallelises.
Previous slide
Next slide
Back to first slide
View graphic version