diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-05-21 19:52:03 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-05-21 19:52:03 (GMT) |
| commit | ae27797c11916301ccec9d467cb3545ccc525162 (patch) | |
| tree | eca79c00de66bbfde79f077a1da20c9df3081926 | |
| parent | f2989dab4ccb47e531bb577905d743d5f68d1083 (diff) | |
| download | hdf5-ae27797c11916301ccec9d467cb3545ccc525162.zip hdf5-ae27797c11916301ccec9d467cb3545ccc525162.tar.gz hdf5-ae27797c11916301ccec9d467cb3545ccc525162.tar.bz2 | |
[svn-r15063] Description:
Added processor id in failure messages for MPI.
| -rw-r--r-- | fortran/testpar/ptest.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/testpar/ptest.f90 b/fortran/testpar/ptest.f90 index 1d65252..6f6fb2e 100644 --- a/fortran/testpar/ptest.f90 +++ b/fortran/testpar/ptest.f90 @@ -41,11 +41,11 @@ PROGRAM parallel_test ENDIF CALL mpi_comm_rank( MPI_COMM_WORLD, mpi_rank, mpierror ) IF (mpierror .NE. MPI_SUCCESS) THEN - WRITE(*,*) "MPI_COMM_RANK *FAILED*" + WRITE(*,*) "MPI_COMM_RANK *FAILED* Process = ", mpi_rank ENDIF CALL mpi_comm_size( MPI_COMM_WORLD, mpi_size, mpierror ) IF (mpierror .NE. MPI_SUCCESS) THEN - WRITE(*,*) "MPI_COMM_SIZE *FAILED*" + WRITE(*,*) "MPI_COMM_SIZE *FAILED* Process = ", mpi_rank ENDIF !////////////////////////////////////////////////////////// ! initialize the HDF5 fortran interface @@ -117,13 +117,13 @@ PROGRAM parallel_test IF (nerrors == 0) THEN CALL mpi_finalize(mpierror) IF (mpierror .NE. MPI_SUCCESS) THEN - WRITE(*,*) "MPI_FINALIZE *FAILED*" + WRITE(*,*) "MPI_FINALIZE *FAILED* Process = ", mpi_rank ENDIF ELSE WRITE(*,*) 'Errors detected in process ', mpi_rank CALL mpi_abort(MPI_COMM_WORLD, 1, mpierror) IF (mpierror .NE. MPI_SUCCESS) THEN - WRITE(*,*) "MPI_ABORT *FAILED*" + WRITE(*,*) "MPI_ABORT *FAILED* Process = ", mpi_rank ENDIF ENDIF |