From f1e8f42b5ae28d11562624738cd92e8c086cadfe Mon Sep 17 00:00:00 2001 From: Christoph Niethammer Date: Wed, 21 Feb 2024 21:04:38 +0100 Subject: 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 --- HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90 | 2 +- m4/aclocal_fc.f90 | 2 +- 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 -- cgit v0.12