Lines Matching refs:mpi_rank
30 INTEGER :: mpi_rank ! rank of the calling process in the communicator variable
47 CALL mpi_comm_rank( MPI_COMM_WORLD, mpi_rank, mpierror )
49 WRITE(*,*) "MPI_COMM_RANK *FAILED* Process = ", mpi_rank
53 WRITE(*,*) "MPI_COMM_SIZE *FAILED* Process = ", mpi_rank
65 CALL hyper(length, do_collective(j), do_chunk(i), mpi_size, mpi_rank, ret_total_error)
66 IF(mpi_rank==0) CALL write_test_status(ret_total_error, &
76 …CALL multiple_dset_write(length, do_collective(1), do_chunk(1), mpi_size, mpi_rank, ret_total_erro…
77 IF(mpi_rank==0) CALL write_test_status(ret_total_error, &
91 WRITE(*,*) "MPI_FINALIZE *FAILED* Process = ", mpi_rank
94 WRITE(*,*) 'Errors detected in process ', mpi_rank
97 WRITE(*,*) "MPI_ABORT *FAILED* Process = ", mpi_rank