[svn-r6820]

Purpose: Fortran updtae

Description: Created new functions h5pset(get)_fapl_mpiposix_f


Platforms tested: Compilation was tested with semi-manual h5committest.
                  (I ahd to built and test manullay on modi4 parallel because
                   of some weird failure of h5committest on modi4)
                  There are no tests yet for those functions. Kent was
                  going to use them in the MEAD project to test
                  the performance.
Misc. update:

1 files changed, 64 insertions, 0 deletions

diff --git a/fortran/src/H5FDmpiof.c b/fortran/src/H5FDmpiof.c
index 1b2a89b..f5e932f 100644
--- a/fortran/src/H5FDmpiof.c
+++ b/fortran/src/H5FDmpiof.c
@@ -185,3 +185,67 @@ nh5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode)
      ret_value = 0;
      return ret_value;
 } 
+
+/*----------------------------------------------------------------------------
+ * Name:        h5pset_fapl_mpiposix_c
+ * Purpose:     Call H5Pset_fapl_mpiposix to set mode for parallel I/O and the user 
+ *              supplied communicator 
+ * Inputs:      prp_id - property list identifier
+ *              comm   - MPI communicator 
+ *              flag   - flag to use GPFS hints
+ * Returns:     0 on success, -1 on failure
+ * Programmer:  Elena Pourmal 
+ *              Tuesday, May 6, 2003
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_fapl_mpiposix_c(hid_t_f *prp_id, int_f* comm, int_f* flag)
+{
+     int ret_value = -1;
+     hid_t c_prp_id;
+     herr_t ret;
+     hbool_t c_flag;
+     MPI_Comm c_comm;
+     c_comm = MPI_Comm_f2c(*comm); 
+     c_flag  = (hbool_t)*flag;
+     /*
+      * Call H5Pset_fapl_mpiposix function.
+      */
+     c_prp_id = (hid_t) *prp_id;
+     ret = H5Pset_fapl_mpiposix(c_prp_id, c_comm, c_flag);
+     if (ret < 0) return ret_value;
+     ret_value = 0;
+     return ret_value;
+} 
+
+/*----------------------------------------------------------------------------
+ * Name:        h5pget_fapl_mpiposix_c
+ * Purpose:     Call H5Pget_fapl_mpiposix to retrieve communicator and info object 
+ * Inputs:      prp_id - property list identifier
+ * Outputs:     comm   - buffer to return MPI communicator 
+ *              flag - flag to use GPFS hints
+ * Returns:     0 on success, -1 on failure
+ * Programmer:  Elena Pourmal 
+ *              Tuesday, May 6, 2003 
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_fapl_mpiposix_c(hid_t_f *prp_id, int_f* comm, int_f* flag)
+{
+     int ret_value = -1;
+     hid_t c_prp_id;
+     herr_t ret;
+     hbool_t c_flag;
+     MPI_Comm c_comm;
+
+     /*
+      * Call H5Pget_fapl_mpiposix function.
+      */
+     c_prp_id = (hid_t) *prp_id;
+     ret = H5Pget_fapl_mpiposix(c_prp_id, &c_comm, &c_flag);
+     if (ret < 0) return ret_value;
+     *comm = (int_f) MPI_Comm_c2f(c_comm);
+     *flag = (int_f) c_flag;
+     ret_value = 0;
+     return ret_value;
+}