Parallel Fortran tests now use the MPI module instead of including

mpif.h.
This commit is contained in:
Dana Robinson 2019-07-19 02:48:00 -05:00
parent 5a3147b660
commit 7d291d059d
3 changed files with 5 additions and 3 deletions

View File

@ -18,9 +18,10 @@
SUBROUTINE hyper(length,do_collective,do_chunk, mpi_size, mpi_rank, nerrors)
USE HDF5
USE MPI
USE TH5_MISC
IMPLICIT NONE
INCLUDE 'mpif.h'
INTEGER, INTENT(in) :: length ! array length
LOGICAL, INTENT(in) :: do_collective ! use collective I/O

View File

@ -18,9 +18,10 @@
SUBROUTINE multiple_dset_write(length, do_collective, do_chunk, mpi_size, mpi_rank, nerrors)
USE HDF5
USE MPI
USE TH5_MISC
IMPLICIT NONE
INCLUDE 'mpif.h'
INTEGER, INTENT(in) :: length ! array length
LOGICAL, INTENT(in) :: do_collective ! use collective I/O

View File

@ -16,7 +16,7 @@
!
PROGRAM parallel_test
USE hdf5
USE HDF5
USE MPI
USE TH5_MISC