diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-03-23 21:23:39 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-03-23 21:23:39 (GMT) |
commit | ce632854c3d542a22018221be1ec47cdad0affe2 (patch) | |
tree | 29b27353a506fe871196a1bad0bc01077ba8e934 /fortran/testpar | |
parent | 9630bfd9749c6a8f470325bb762e64835c3192e9 (diff) | |
download | hdf5-ce632854c3d542a22018221be1ec47cdad0affe2.zip hdf5-ce632854c3d542a22018221be1ec47cdad0affe2.tar.gz hdf5-ce632854c3d542a22018221be1ec47cdad0affe2.tar.bz2 |
[svn-r26547] Merged changes from the trunk into the branch:
svn merge -r26029:26536 https://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran
Tested: h5committest
Diffstat (limited to 'fortran/testpar')
-rw-r--r-- | fortran/testpar/hyper.f90 | 2 | ||||
-rw-r--r-- | fortran/testpar/mdset.f90 | 2 | ||||
-rw-r--r-- | fortran/testpar/ptest.f90 | 3 |
3 files changed, 4 insertions, 3 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 |