diff options
| -rw-r--r-- | fortran/testpar/hyper.f90 | 2 | ||||
| -rw-r--r-- | fortran/testpar/mdset.f90 | 2 | ||||
| -rw-r--r-- | fortran/testpar/ptest.f90 | 3 | ||||
| -rw-r--r-- | m4/aclocal_fc.m4 | 2 |
4 files changed, 5 insertions, 4 deletions
diff --git a/fortran/testpar/hyper.f90 b/fortran/testpar/hyper.f90 index a03095a..a2e2e07 100644 --- a/fortran/testpar/hyper.f90 +++ b/fortran/testpar/hyper.f90 @@ -21,8 +21,8 @@ SUBROUTINE hyper(length,do_collective,do_chunk, mpi_size, mpi_rank, nerrors) USE HDF5 USE TH5_MISC - USE mpi IMPLICIT NONE + INCLUDE 'mpif.h' INTEGER, INTENT(in) :: length ! array length LOGICAL, INTENT(in) :: do_collective ! use collective I/O diff --git a/fortran/testpar/mdset.f90 b/fortran/testpar/mdset.f90 index f24c862..7fe431b 100644 --- a/fortran/testpar/mdset.f90 +++ b/fortran/testpar/mdset.f90 @@ -21,8 +21,8 @@ SUBROUTINE multiple_dset_write(length, do_collective, do_chunk, mpi_size, mpi_rank, nerrors) USE HDF5 USE TH5_MISC - USE mpi IMPLICIT NONE + INCLUDE 'mpif.h' INTEGER, INTENT(in) :: length ! array length LOGICAL, INTENT(in) :: do_collective ! use collective I/O diff --git a/fortran/testpar/ptest.f90 b/fortran/testpar/ptest.f90 index 145d084..69594b0 100644 --- a/fortran/testpar/ptest.f90 +++ b/fortran/testpar/ptest.f90 @@ -19,8 +19,9 @@ PROGRAM parallel_test USE hdf5 - USE mpi + IMPLICIT NONE + INCLUDE 'mpif.h' INTEGER :: mpierror ! MPI hdferror flag INTEGER :: hdferror ! HDF hdferror flag diff --git a/m4/aclocal_fc.m4 b/m4/aclocal_fc.m4 index 03bd026..be3336f 100644 --- a/m4/aclocal_fc.m4 +++ b/m4/aclocal_fc.m4 @@ -268,7 +268,7 @@ dnl Try link a simple MPI program. AC_MSG_CHECKING([whether a simple MPI-IO Fortran program can be linked]) AC_LINK_IFELSE([ PROGRAM main - USE mpi + INCLUDE 'mpif.h' INTEGER :: comm, amode, info, fh, ierror CHARACTER(LEN=1) :: filename CALL MPI_File_open( comm, filename, amode, info, fh, ierror) |