summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-05-21 19:52:03 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-05-21 19:52:03 (GMT)
commitae27797c11916301ccec9d467cb3545ccc525162 (patch)
treeeca79c00de66bbfde79f077a1da20c9df3081926 /fortran
parentf2989dab4ccb47e531bb577905d743d5f68d1083 (diff)
downloadhdf5-ae27797c11916301ccec9d467cb3545ccc525162.zip
hdf5-ae27797c11916301ccec9d467cb3545ccc525162.tar.gz
hdf5-ae27797c11916301ccec9d467cb3545ccc525162.tar.bz2
[svn-r15063] Description:
Added processor id in failure messages for MPI.
Diffstat (limited to 'fortran')
-rw-r--r--fortran/testpar/ptest.f908
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