Lines Matching refs:mpi_rank
30 INTEGER :: mpi_rank ! rank of the calling process in the communicator variable
41 CALL mpi_comm_rank( MPI_COMM_WORLD, mpi_rank, mpierror )
43 WRITE(*,*) "MPI_COMM_RANK *FAILED* Process = ", mpi_rank
47 WRITE(*,*) "MPI_COMM_SIZE *FAILED* Process = ", mpi_rank
59 …IF (mpi_rank == 0) WRITE(*,*) 'Writing/reading dataset by hyperslabs (contiguous layout, independe…
63 CALL hyper(length, do_collective, do_chunk, mpi_size, mpi_rank, nerrors)
69 …IF (mpi_rank == 0) WRITE(*,*) 'Writing/reading dataset by hyperslabs (contiguous layout, collectiv…
73 CALL hyper(length, do_collective, do_chunk, mpi_size, mpi_rank, nerrors)
79 …IF (mpi_rank == 0) WRITE(*,*) 'Writing/reading dataset by hyperslabs (chunk layout, independent MP…
83 CALL hyper(length, do_collective, do_chunk, mpi_size, mpi_rank, nerrors)
89 …IF (mpi_rank == 0) WRITE(*,*) 'Writing/reading dataset by hyperslabs (chunk layout, collective MPI…
93 CALL hyper(length, do_collective, do_chunk, mpi_size, mpi_rank, nerrors)
99 …IF (mpi_rank == 0) WRITE(*,*) 'Writing/reading several datasets (contiguous layout, independent MP…
103 CALL multiple_dset_write(length, do_collective, do_chunk, mpi_size, mpi_rank, nerrors)
119 WRITE(*,*) "MPI_FINALIZE *FAILED* Process = ", mpi_rank
122 WRITE(*,*) 'Errors detected in process ', mpi_rank
125 WRITE(*,*) "MPI_ABORT *FAILED* Process = ", mpi_rank