Lines Matching refs:rank
44 int rank, nproc, i; in reset_bufs() local
48 MPI_Comm_rank(MPI_COMM_WORLD, &rank); in reset_bufs()
51 MPI_Win_lock(MPI_LOCK_EXCLUSIVE, rank, 0, win); in reset_bufs()
53 MPI_Win_unlock(rank, win); in reset_bufs()
65 int i, rank, nproc; in main() local
75 MPI_Comm_rank(MPI_COMM_WORLD, &rank); in main()
97 MPI_Win_lock(MPI_LOCK_EXCLUSIVE, rank, 0, win); in main()
99 rank, 0, count, TYPE_MPI, MPI_SUM, win); in main()
100 MPI_Win_unlock(rank, win); in main()
103 MPI_Win_lock(MPI_LOCK_EXCLUSIVE, rank, 0, win); in main()
107 rank, rank, i, (TYPE_C) ITER, win_ptr[i]);); in main()
111 MPI_Win_unlock(rank, win); in main()
118 MPI_Win_lock(MPI_LOCK_EXCLUSIVE, (rank + 1) % nproc, 0, win); in main()
120 (rank + 1) % nproc, 0, count, TYPE_MPI, MPI_SUM, win); in main()
121 MPI_Win_unlock((rank + 1) % nproc, win); in main()
126 MPI_Win_lock(MPI_LOCK_EXCLUSIVE, rank, 0, win); in main()
130 (rank + 1) % nproc, rank, i, (TYPE_C) ITER, win_ptr[i]);); in main()
134 MPI_Win_unlock(rank, win); in main()
140 if (rank != 0) { in main()
151 MPI_Win_lock(MPI_LOCK_EXCLUSIVE, rank, 0, win); in main()
152 if (rank == 0 && nproc > 1) { in main()
157 rank, i, (TYPE_C) ITER * (nproc - 1), win_ptr[i]);); in main()
162 MPI_Win_unlock(rank, win); in main()
166 reset_bufs(win_ptr, res_ptr, val_ptr, rank, count, win); in main()
174 j, rank * count, count, TYPE_MPI, MPI_SUM, win); in main()
182 if (res_ptr[j * count + c] != i * rank) { in main()
185 TYPE_FMT ", got " TYPE_FMT "\n", rank, j, c, i, (TYPE_C) i * rank, in main()
194 MPI_Win_lock(MPI_LOCK_EXCLUSIVE, rank, 0, win); in main()
201 "\n", i, rank, (TYPE_C) ITER * i, win_ptr[i * count + c]);); in main()
206 MPI_Win_unlock(rank, win); in main()
210 reset_bufs(win_ptr, res_ptr, val_ptr, rank, count, win); in main()
218 j, rank * count, count, TYPE_MPI, MPI_SUM, win); in main()
226 if (res_ptr[j * count + c] != i * rank) { in main()
229 TYPE_FMT ", got " TYPE_FMT "\n", rank, j, c, i, (TYPE_C) i * rank, in main()
238 MPI_Win_lock(MPI_LOCK_EXCLUSIVE, rank, 0, win); in main()
245 "\n", i, rank, (TYPE_C) ITER * i, win_ptr[i * count + c]);); in main()
250 MPI_Win_unlock(rank, win); in main()
254 reset_bufs(win_ptr, res_ptr, val_ptr, rank, count, win); in main()
262 j, rank * count, count, TYPE_MPI, MPI_SUM, win); in main()
271 if (res_ptr[j * count + c] != i * rank) { in main()
274 TYPE_FMT ", got " TYPE_FMT "\n", rank, j, c, i, (TYPE_C) i * rank, in main()
283 MPI_Win_lock(MPI_LOCK_EXCLUSIVE, rank, 0, win); in main()
290 TYPE_FMT "\n", i, rank, (TYPE_C) ITER * i, win_ptr[i * count + c]);); in main()
295 MPI_Win_unlock(rank, win); in main()
301 MPI_Win_lock(MPI_LOCK_EXCLUSIVE, rank, 0, win); in main()
303 win_ptr[i] = (TYPE_C) rank; in main()
304 MPI_Win_unlock(rank, win); in main()
308 int j, target = (rank + 1) % nproc; in main()
322 target, rank, i, (TYPE_C) target, res_ptr[i]);); in main()
339 target, rank, i, (TYPE_C) target, res_ptr[i]);); in main()
356 target, rank, i, (TYPE_C) target, res_ptr[i]);); in main()
366 MPI_Win_lock(MPI_LOCK_EXCLUSIVE, rank, 0, win); in main()
368 win_ptr[i] = (TYPE_C) rank; in main()
369 MPI_Win_unlock(rank, win); in main()
373 int j, target = rank; in main()
387 target, rank, i, (TYPE_C) target, res_ptr[i]);); in main()
404 target, rank, i, (TYPE_C) target, res_ptr[i]);); in main()
421 target, rank, i, (TYPE_C) target, res_ptr[i]);); in main()