diff options
Diffstat (limited to 'HDF5Examples/FORTRAN/H5PAR/ph5_f90_file_create.F90')
| -rw-r--r-- | HDF5Examples/FORTRAN/H5PAR/ph5_f90_file_create.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_file_create.F90 b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_file_create.F90 index f330d4e..7944b5a 100644 --- a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_file_create.F90 +++ b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_file_create.F90 @@ -53,7 +53,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) END PROGRAM FILE_CREATE |