Macrotask Synchronization: BARRIER

• synchronous barrier control

• related function call:

  • IPBSTAT(ibarr) : check status of barrier ibarr

program MAIN

common /barr/ ibarr

...

call PBASGN(ibarr,NCPU)

do i=2,NCPU

call PTFORK(tid(I),par(I),sub)

enddo

...

call PBSYNC(ibarr)

...

call PBFREE(ibarr)

...

subroutine SUB

common /barr/ ibarr

...

call PBSYNC(ibarr)

return

end

Vorherige Folie

Nächste Folie

Zurück zur ersten Folie

Graphik-Version anzeigen