31    int mpi_size, mpi_rank;  in main()  local
45    MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank);  in main()
51       if (!mpi_rank)  in main()
57    if (!mpi_rank)  in main()
130          if (!mpi_rank)  in main()
139                byte_data[i] = mpi_rank;  in main()
148                char_data[i] = mpi_rank;  in main()
157                short_data[i] = mpi_rank;  in main()
166                int_data[i] = mpi_rank;  in main()
175                float_data[i] = mpi_rank;  in main()
184                double_data[i] = mpi_rank;  in main()
193                ubyte_data[i] = mpi_rank;  in main()
202                ushort_data[i] = mpi_rank;  in main()
211                uint_data[i] = mpi_rank;  in main()
220                int64_data[i] = mpi_rank;  in main()
229                uint64_data[i] = mpi_rank;  in main()
280          if (!mpi_rank)  in main()
286             write_start[0] = NUM_SLABS / mpi_size * mpi_rank + i;  in main()
294          if (!mpi_rank)  in main()
325             read_start[0] = NUM_SLABS / mpi_size * mpi_rank + i;  in main()
343 …  if (byte_data_in[j * DIMSIZE + k] != (signed char)(k ? mpi_rank : byte_expected_fill_value)) ERR;  in main()
349 …      if (short_data_in[j * DIMSIZE + k] != (short)(k ? mpi_rank : short_expected_fill_value)) ERR;  in main()
355 …            if (int_data_in[j * DIMSIZE + k] != (int)(k ? mpi_rank : int_expected_fill_value)) ERR;  in main()
361 …      if (float_data_in[j * DIMSIZE + k] != (float)(k ? mpi_rank : float_expected_fill_value)) ERR;  in main()
367 …   if (double_data_in[j * DIMSIZE + k] != (double)(k ? mpi_rank : double_expected_fill_value)) ERR;  in main()
373 …if (ubyte_data_in[j * DIMSIZE + k] != (unsigned char)(k ? mpi_rank : ubyte_expected_fill_value)) E…  in main()
379 …if (ushort_data_in[j * DIMSIZE + k] != (unsigned short)(k ? mpi_rank : ushort_expected_fill_value)…  in main()
385 … if (uint_data_in[j * DIMSIZE + k] != (unsigned int)(k ? mpi_rank : uint_expected_fill_value)) ERR;  in main()
391 …if (int64_data_in[j * DIMSIZE + k] != (long long int)(k ? mpi_rank : int64_expected_fill_value)) E…  in main()
397 …if (uint64_data_in[j * DIMSIZE + k] != (unsigned long long int)(k ? mpi_rank : uint64_expected_fil…  in main()
405          if (!mpi_rank)  in main()
413    if (!mpi_rank)  in main()