52    int mpi_size, mpi_rank;				/* mpi variables */  in main()  local
63    MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank);  in main()
65    if (mpi_rank == 0)  in main()
89    if (mpi_rank == 0)  in main()
93    if (mpi_rank == 0)  in main()
96    if (mpi_rank == 0)  in main()
100    if (mpi_rank == 0)  in main()
103    if (mpi_rank == 0)  in main()
107    if (mpi_rank == 0)  in main()
110    if (mpi_rank == 0)  in main()
113    if (mpi_rank == 0)  in main()
116    if (mpi_rank == 0)  in main()
122    if (mpi_rank == 0)  in main()
125    if (mpi_rank == 0)  in main()
129    if (mpi_rank == 0)  in main()
132    if (mpi_rank == 0)  in main()
137    if (mpi_rank == 0)  in main()
140    if (mpi_rank == 0)  in main()
143    if (mpi_rank == 0)  in main()
150    if (mpi_rank == 0)  in main()
159    int mpi_size, mpi_rank;  in test_pio()  local
192    MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank);  in test_pio()
210    start[1] = mpi_rank * DIMSIZE/mpi_size;  in test_pio()
222 	 *tempdata = mpi_rank * (j + 1);  in test_pio()
249    ustart[3] = DIMSIZE*mpi_rank/mpi_size;  in test_pio()
266 	       *tempudata = (1+mpi_rank)*2*(j+1)*(k+1)*(m+1);  in test_pio()
289    start[1] = mpi_rank * DIMSIZE/mpi_size;  in test_pio()
303 	 if(*temprdata != mpi_rank*(j+1))  in test_pio()
319    ustart[3] = DIMSIZE*mpi_rank/mpi_size;  in test_pio()
344                    if(*temprudata != (1+mpi_rank)*2*(j+1)*(k+1)*(m+1))  in test_pio()
364    int mpi_size, mpi_rank;  in test_pio_attr()  local
390    MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank);  in test_pio_attr()
426    start[1] = mpi_rank * DIMSIZE/mpi_size;  in test_pio_attr()
439 	 *tempdata = mpi_rank * (j + 1);  in test_pio_attr()
454    start[1] = mpi_rank * DIMSIZE/mpi_size;  in test_pio_attr()
548    int mpi_size, mpi_rank;  in test_pio_hyper()  local
571    MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank);  in test_pio_hyper()
607       if(mpi_rank <= mpi_size/2) {  in test_pio_hyper()
609          start[1] = mpi_rank*count_atom;  in test_pio_hyper()
615          start[1] = (mpi_rank-mpi_size/2-1)*count_atom;  in test_pio_hyper()
623       if(mpi_rank < mpi_size/2) {  in test_pio_hyper()
625          start[1] = mpi_rank*count_atom;  in test_pio_hyper()
631          start[1] = (mpi_rank-mpi_size/2)*count_atom;  in test_pio_hyper()
642 	 *tempdata = mpi_rank*(j+1);  in test_pio_hyper()
668 	 if(*temprdata != mpi_rank*(j+1))  in test_pio_hyper()