Microtasking: PARDO barrier
*PDIR PARDO FOR, NOBARR=(ENTRY,EXIT)
switch off barrier at start or end of the DO loop
faster (e.g. for successive loops)
be careful!
subroutine sub(a,b,c,N)
real a(N),b,c(N)
...
*pdir pardo for, nobarr=(entry,exit)
do i=1,N
a(i)=a(i)+b*c(i)
enddo
...
return
synchronization
on entry to
subroutine
synchronization
on exit from
subroutine
Vorherige Folie
Nächste Folie
Zurück zur ersten Folie
Graphik-Version anzeigen