summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2000-12-13 19:21:52 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2000-12-13 19:21:52 (GMT)
commitc701e8b89f694cecbbb5319ec872ef78ea3bfa92 (patch)
treed9594fb8315db04fdcb88fb256b559ceda8e966a
parentc85098bd45ba7b5acad1a9f3f4bd4948d2540388 (diff)
downloadhdf5-c701e8b89f694cecbbb5319ec872ef78ea3bfa92.zip
hdf5-c701e8b89f694cecbbb5319ec872ef78ea3bfa92.tar.gz
hdf5-c701e8b89f694cecbbb5319ec872ef78ea3bfa92.tar.bz2
[svn-r3130]
Purpose: Maintenance Description: Not all platforms support F90 MPI. I used USE MPI statement, and it did not work on T3E (mcurie.nersc.gov) Solution: Use INCLUDE 'MPIF.H' statement instead of USE MPI. Platforms tested: O2K and T3E
-rw-r--r--fortran/testpar/ptesthdf5_fortran.f902
-rw-r--r--fortran/testpar/thdf5.f903
2 files changed, 3 insertions, 2 deletions
diff --git a/fortran/testpar/ptesthdf5_fortran.f90 b/fortran/testpar/ptesthdf5_fortran.f90
index 4a99e4c..c44008d 100644
--- a/fortran/testpar/ptesthdf5_fortran.f90
+++ b/fortran/testpar/ptesthdf5_fortran.f90
@@ -5,7 +5,7 @@
USE HDF5 ! This module contains all necessary modules
USE THDF5
- USE MPI
+! USE MPI
IMPLICIT NONE
INTEGER :: error ! Error flags
diff --git a/fortran/testpar/thdf5.f90 b/fortran/testpar/thdf5.f90
index 9552df8..0d38f88 100644
--- a/fortran/testpar/thdf5.f90
+++ b/fortran/testpar/thdf5.f90
@@ -1,6 +1,7 @@
MODULE THDF5
USE HDF5
- USE MPI
+ include 'mpif.h'
+! USE MPI
! Dataset dimensions