summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-02-20 13:59:18 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-02-20 13:59:18 (GMT)
commit6ce3158da700ae63291f37bdd6edb2f4acda70c3 (patch)
tree7d8d92b02994724f8214cd1eb8195a58881c27db
parent5867b6db9ee1dc9ed5db953351dbefe405791f2b (diff)
downloadhdf5-6ce3158da700ae63291f37bdd6edb2f4acda70c3.zip
hdf5-6ce3158da700ae63291f37bdd6edb2f4acda70c3.tar.gz
hdf5-6ce3158da700ae63291f37bdd6edb2f4acda70c3.tar.bz2
[svn-r26247] Reverted back from using 'USE MPI' to include 'mpif.h' since windows does not seem to support 'USE MPI'.
-rw-r--r--fortran/testpar/hyper.f902
-rw-r--r--fortran/testpar/mdset.f902
-rw-r--r--fortran/testpar/ptest.f903
-rw-r--r--m4/aclocal_fc.m42
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)