diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-02-02 18:52:35 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-02-02 18:52:35 (GMT) |
| commit | 68631b6e95d2000cf5134da37b18ca9d5b334e14 (patch) | |
| tree | aee5ec26cf53f595a4c6758846f6f67c467e96d7 /fortran/testpar | |
| parent | 51de1ce90257d3092230994f987cea6950af8724 (diff) | |
| download | hdf5-68631b6e95d2000cf5134da37b18ca9d5b334e14.zip hdf5-68631b6e95d2000cf5134da37b18ca9d5b334e14.tar.gz hdf5-68631b6e95d2000cf5134da37b18ca9d5b334e14.tar.bz2 | |
[svn-r26113] Updated configure and the parallel tests to 'USE mpi' instead of 'include 'mpih.f'
tested jam (mpich + gnu).
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 | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/fortran/testpar/hyper.f90 b/fortran/testpar/hyper.f90 index a2e2e07..a03095a 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 7fe431b..f24c862 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 e474668..145d084 100644 --- a/fortran/testpar/ptest.f90 +++ b/fortran/testpar/ptest.f90 @@ -19,8 +19,8 @@ PROGRAM parallel_test USE hdf5 + USE mpi IMPLICIT NONE - INCLUDE 'mpif.h' INTEGER :: mpierror ! MPI hdferror flag INTEGER :: hdferror ! HDF hdferror flag |