diff options
Diffstat (limited to 'HDF5Examples/FORTRAN/H5PAR/ph5_f90_dataset.F90')
-rw-r--r-- | HDF5Examples/FORTRAN/H5PAR/ph5_f90_dataset.F90 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_dataset.F90 b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_dataset.F90 index ce126a3..9819ab3 100644 --- a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_dataset.F90 +++ b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_dataset.F90 @@ -101,6 +101,7 @@ ! Close FORTRAN interface ! CALL h5close_f(error) + IF(mpi_rank.EQ.0) WRITE(*,'(A)') "PHDF5 example finished with no errors" CALL MPI_FINALIZE(mpierror) |