SHMEM Example
REAL A(N/P), APRIME(N)
INTEGER INDX(N/P)
! Collect all A's into APRIME (on processor 0)
CALL SHMEM_IXPUT( APRIME, A, INDX, N/P, 0 )
CALL BARRIER()
IF (MY_PE() == 0) THEN
CALL SORT(APRIME, N)
END IF
CALL BARRIER()
! Retrieve sorted A's
CALL SHMEM_IXGET( A, APRIME, INDX, N/P, 0 )
Previous slide
Next slide
Back to first slide
View graphic version