111   int rank = 0;  in main()  local
146   MPI_Comm_rank(MPI_COMM_WORLD, &rank);  in main()
149   block_start = rank * (30./size) + 1;  in main()
150   block_end   = (rank + 1) * (30./size) + 1;  in main()
151   if (rank == size - 1)  in main()
154   block_start_2 = rank * (15./size) + 1;  in main()
155   block_end_2   = (rank + 1) * (15./size) + 1;  in main()
156   if (rank == size - 1)  in main()
170     sprintf(mem_trace_name, "cs_file_test_mem.%d", rank);  in main()
187         if (rank == 0)  in main()
196         if (rank == 0)  in main()
230                  rank, buf, (int)retval);  in main()
239       if (rank > 0)  in main()
240         MPI_Recv(&sync, 1, MPI_INT, rank - 1, 9876, MPI_COMM_WORLD, &status);  in main()
243       bft_printf("\nRead by rank %d (returned %d):\n\n", rank, (int)retval);  in main()
248       if (rank < size - 1)  in main()
249         MPI_Send(&sync, 1, MPI_INT, rank + 1, 9876, MPI_COMM_WORLD);  in main()
260       if (rank > 0)  in main()
261         MPI_Recv(&sync, 1, MPI_INT, rank - 1, 9876, MPI_COMM_WORLD, &status);  in main()
264       bft_printf("\nRead by rank %d (returned %d):\n\n", rank, (int)retval);  in main()
273       if (rank < size - 1)  in main()
274         MPI_Send(&sync, 1, MPI_INT, rank + 1, 9876, MPI_COMM_WORLD);  in main()
280       bft_printf("barrier passed by rank %d\n", rank);  in main()
283                  rank, (long)off1, (long)off2);  in main()
286       bft_printf("rank %d, buf = %s (returned %d)\n", rank, buf, (int)retval);  in main()
297       if (rank > 0)  in main()
298         MPI_Recv(&sync, 1, MPI_INT, rank - 1, 9876, MPI_COMM_WORLD, &status);  in main()
301       bft_printf("\nRe-read by rank %d (returned %d):\n\n", rank, (int)retval);  in main()
306       if (rank < size - 1)  in main()
307         MPI_Send(&sync, 1, MPI_INT, rank + 1, 9876, MPI_COMM_WORLD);  in main()
314                  rank, buf, (int)retval);  in main()
348       if (rank == 0)  in main()
349         bft_printf("rank %d, wrote %d global values.\n", rank, (int)retval);  in main()
361       bft_printf("rank %d, wrote %d block values.\n", rank, (int)retval);  in main()
367                  rank, (int)retval);  in main()
375       if (rank == 0)  in main()
376         bft_printf("rank %d, wrote %d global values.\n", rank, (int)retval);  in main()