summaryrefslogtreecommitdiffstats
path: root/release_docs
diff options
context:
space:
mode:
authorAlbert Cheng <acheng@hdfgroup.org>2004-09-22 16:04:24 (GMT)
committerAlbert Cheng <acheng@hdfgroup.org>2004-09-22 16:04:24 (GMT)
commit047be918c872e500f868ecce3cad699d5eb3c7ee (patch)
treecf72307638fba64e1d82c028becb665946b7b9ee /release_docs
parent6481d1a82e93096f209805e4215eb6129b98ac6b (diff)
downloadhdf5-047be918c872e500f868ecce3cad699d5eb3c7ee.zip
hdf5-047be918c872e500f868ecce3cad699d5eb3c7ee.tar.gz
hdf5-047be918c872e500f868ecce3cad699d5eb3c7ee.tar.bz2
[svn-r9303] Updated the Fortran Sample program to use the INCLUDE instead of the
USE statement.
Diffstat (limited to 'release_docs')
-rw-r--r--release_docs/INSTALL_parallel10
1 files changed, 8 insertions, 2 deletions
diff --git a/release_docs/INSTALL_parallel b/release_docs/INSTALL_parallel
index 64e85c4..65014da 100644
--- a/release_docs/INSTALL_parallel
+++ b/release_docs/INSTALL_parallel
@@ -382,13 +382,19 @@ main(int ac, char **av)
! The following example demonstrates how to create and close a parallel
! file using MPI-IO calls.
!
+! USE MPI is the proper way to bring in MPI definitions but many
+! MPI Fortran compiler supports the pseudo standard of INCLUDE.
+! So, HDF5 uses the INCLUDE statement instead.
+!
PROGRAM MPIOEXAMPLE
- USE MPI
-
+ ! USE MPI
+
IMPLICIT NONE
+ INCLUDE 'mpif.h'
+
CHARACTER(LEN=80), PARAMETER :: filename = "filef.h5" ! File name
INTEGER :: ierror ! Error flag
INTEGER :: fh ! File handle