diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-02-20 13:59:18 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-02-20 13:59:18 (GMT) |
| commit | 6ce3158da700ae63291f37bdd6edb2f4acda70c3 (patch) | |
| tree | 7d8d92b02994724f8214cd1eb8195a58881c27db /fortran/testpar/hyper.f90 | |
| parent | 5867b6db9ee1dc9ed5db953351dbefe405791f2b (diff) | |
| download | hdf5-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'.
Diffstat (limited to 'fortran/testpar/hyper.f90')
| -rw-r--r-- | fortran/testpar/hyper.f90 | 2 |
1 files changed, 1 insertions, 1 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 |