1 files changed, 0 insertions, 81 deletions
diff --git a/fortran/src/H5FDmpiof.c b/fortran/src/H5FDmpiof.c
index 993b5ac..bbdb170 100644
--- a/fortran/src/H5FDmpiof.c
+++ b/fortran/src/H5FDmpiof.c
@@ -220,87 +220,6 @@ nh5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode)
      return ret_value;
 }
 
-/****if* H5FDmpiof/h5pset_fapl_mpiposix_c
- * 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
- * AUTHOR
- *  Elena Pourmal
- *              Tuesday, May 6, 2003
- * HISTORY
- *
- * SOURCE
-*/
-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;
-}
-
-/****if* H5FDmpiof/h5pget_fapl_mpiposix_c
- * 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
- * AUTHOR
- *  Elena Pourmal
- *              Tuesday, May 6, 2003
- * HISTORY
- *
- * SOURCE
-*/
-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;
-}
-
 /****if* H5Pf/h5pget_mpio_actual_io_mode_c
  * NAME
  *  h5pget_mpio_actual_io_mode_c