int main (void) { int i; start_pes (0); npes = shmem_n_pes (); me = shmem_my_pe (); for (i = 0; i < DST_SIZE; i++) { dst[i] = -1; } for (i = 0; i < _SHMEM_BCAST_SYNC_SIZE; i += 1) { pSync[i] = _SHMEM_SYNC_VALUE; } shmem_barrier_all (); shmem_collect64 (dst, src, me + 1, 0, 0, 4, pSync); show_dst ("AFTER"); return 0; }
void FORTRANIFY (shmem_collect8) (void *target, const void *source, int *nelems, int *PE_start, int *logPE_stride, int *PE_size, int *pSync) { shmem_collect64 (target, source, *nelems, *PE_start, *logPE_stride, *PE_size, (long *) pSync); }