Lines Matching refs:mpi_rank
32 MPI_Info info, int mpi_size, int mpi_rank, in test_pio_2d() argument
53 data[j * DIMSIZE1 / mpi_size + i] = (float)mpi_rank * (j + 1); in test_pio_2d()
85 start[1] = mpi_rank * DIMSIZE1/mpi_size; in test_pio_2d()
103 if (!mpi_rank) in test_pio_2d()
111 if (!mpi_rank) in test_pio_2d()
139 MPI_Info info, int mpi_size, int mpi_rank, size_t *chunk_size) in test_pio_4d() argument
160 *tempudata = (float)(1 + mpi_rank) * 2 * (j + 1) * (k + 1); in test_pio_4d()
194 ustart[3] = DIMSIZE1 * mpi_rank / mpi_size; in test_pio_4d()
215 if (!mpi_rank) in test_pio_4d()
223 if (!mpi_rank) in test_pio_4d()
258 int mpi_size, mpi_rank; in main() local
273 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in main()
283 if (!mpi_rank) in main()
294 info, mpi_size, mpi_rank, chunk_size_2d[c])) ERR; in main()
300 info, mpi_size, mpi_rank, chunk_size_4d[c])) ERR; in main()
302 if (!mpi_rank) in main()
306 if (!mpi_rank) in main()