summaryrefslogtreecommitdiffstats
path: root/fortran/testpar
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-02-02 18:52:35 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-02-02 18:52:35 (GMT)
commit68631b6e95d2000cf5134da37b18ca9d5b334e14 (patch)
treeaee5ec26cf53f595a4c6758846f6f67c467e96d7 /fortran/testpar
parent51de1ce90257d3092230994f987cea6950af8724 (diff)
downloadhdf5-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.f902
-rw-r--r--fortran/testpar/mdset.f902
-rw-r--r--fortran/testpar/ptest.f902
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