diff options
| author | Christoph Niethammer <cniethammer@users.noreply.github.com> | 2024-02-21 20:04:38 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-02-21 20:04:38 (GMT) |
| commit | f1e8f42b5ae28d11562624738cd92e8c086cadfe (patch) | |
| tree | 3a9296edd041ff5225f90839cfaee07119c0bde9 | |
| parent | d4b43e0b438057c004b817750f424e66d2c3770e (diff) | |
| download | hdf5-f1e8f42b5ae28d11562624738cd92e8c086cadfe.zip hdf5-f1e8f42b5ae28d11562624738cd92e8c086cadfe.tar.gz hdf5-f1e8f42b5ae28d11562624738cd92e8c086cadfe.tar.bz2 | |
Replace deprecated Fortran 'include mpif.h' with 'USE mpi' (#4031)
With MPI 4.1 the use of the mpif.h include file has been deprecated. Codes
should transition to USE mpi or USE mpi_f08.
Signed-off-by: Christoph Niethammer <niethammer@hlrs.de>
| -rw-r--r-- | HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90 | 2 | ||||
| -rw-r--r-- | m4/aclocal_fc.f90 | 2 | ||||
| -rw-r--r-- | release_docs/INSTALL_parallel | 4 |
3 files changed, 3 insertions, 5 deletions
diff --git a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90 b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90 index affb799..c439d63 100644 --- a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90 +++ b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90 @@ -4,10 +4,10 @@ PROGRAM DATASET_BY_COL USE HDF5 ! This module contains all necessary modules + USE mpi IMPLICIT NONE - include 'mpif.h' CHARACTER(LEN=10), PARAMETER :: filename = "sds_col.h5" ! File name CHARACTER(LEN=8), PARAMETER :: dsetname = "IntArray" ! Dataset name diff --git a/m4/aclocal_fc.f90 b/m4/aclocal_fc.f90 index 68a8f1b..245da9b 100644 --- a/m4/aclocal_fc.f90 +++ b/m4/aclocal_fc.f90 @@ -154,7 +154,7 @@ END PROGRAM FC_AVAIL_KINDS !---- END ----- Determine the available KINDs for REALs and INTEGERs PROGRAM FC_MPI_CHECK - INCLUDE 'mpif.h' + USE mpi INTEGER :: comm, amode, info, fh, ierror CHARACTER(LEN=1) :: filename CALL MPI_File_open( comm, filename, amode, info, fh, ierror) diff --git a/release_docs/INSTALL_parallel b/release_docs/INSTALL_parallel index d3d7830..8dabf89 100644 --- a/release_docs/INSTALL_parallel +++ b/release_docs/INSTALL_parallel @@ -358,11 +358,9 @@ main(int ac, char **av) PROGRAM MPIOEXAMPLE - ! USE MPI + USE mpi IMPLICIT NONE - - INCLUDE 'mpif.h' CHARACTER(LEN=80), PARAMETER :: filename = "filef.h5" ! File name INTEGER :: ierror ! Error flag |