diff options
Diffstat (limited to 'HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_pattern.F90')
| -rw-r--r-- | HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_pattern.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_pattern.F90 b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_pattern.F90 index 0f2077f..dd02c63 100644 --- a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_pattern.F90 +++ b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_pattern.F90 @@ -158,7 +158,7 @@ ! Close FORTRAN interfaces and HDF5 library. ! CALL h5close_f(error) - + IF(mpi_rank.EQ.0) WRITE(*,'(A)') "PHDF5 example finished with no errors" 100 continue CALL MPI_FINALIZE(mpierror) |