diff options
Diffstat (limited to 'HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90')
-rw-r--r-- | HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90 b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90 index b7b46e8..dc92667 100644 --- a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90 +++ b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90 @@ -127,7 +127,7 @@ ! Close FORTRAN predefined datatypes. ! CALL h5close_f(error) - + IF(mpi_rank.EQ.0) WRITE(*,'(A)') "PHDF5 example finished with no errors" CALL MPI_FINALIZE(mpierror) END PROGRAM DATASET_BY_COL |