summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5FDmpiof.c
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2000-10-31 17:54:45 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2000-10-31 17:54:45 (GMT)
commite4c4b455b5da4a2a372f79704ea8a2c0c0742566 (patch)
tree82d700d984130e0cb0488a1c969b618761a6bdf5 /fortran/src/H5FDmpiof.c
parent972b9252b83a08f3bf88cf136ce37db433980edf (diff)
downloadhdf5-e4c4b455b5da4a2a372f79704ea8a2c0c0742566.zip
hdf5-e4c4b455b5da4a2a372f79704ea8a2c0c0742566.tar.gz
hdf5-e4c4b455b5da4a2a372f79704ea8a2c0c0742566.tar.bz2
[svn-r2772]
Purpose: Maintenance Description: Made F90 source directory to be in sync with the C source Platforms tested: modi4 (O2K)
Diffstat (limited to 'fortran/src/H5FDmpiof.c')
-rw-r--r--fortran/src/H5FDmpiof.c153
1 files changed, 153 insertions, 0 deletions
diff --git a/fortran/src/H5FDmpiof.c b/fortran/src/H5FDmpiof.c
new file mode 100644
index 0000000..395ae03
--- /dev/null
+++ b/fortran/src/H5FDmpiof.c
@@ -0,0 +1,153 @@
+#include "H5f90.h"
+#include <mpi.h>
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_fapl_mpio_c
+ * Purpose: Call H5Pset_fapl_mpio to set mode for parallel I/O and the user
+ * supplied communicator and info object
+ * Inputs: prp_id - property list identifier
+ * comm - MPI communicator
+ * info - MPI info object
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, October 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ MPI_Comm c_comm;
+ MPI_Info c_info;
+ c_comm = (MPI_Comm) *comm;
+ c_info = (MPI_Info) *info;
+
+ /*
+ * Call H5Pset_mpi function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_fapl_mpio(c_prp_id, c_comm, c_info);
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_fapl_mpio_c
+ * Purpose: Call H5Pget_fapl_mpio to retrieve communicator and info object
+ * Inputs: prp_id - property list identifier
+ * comm - buffer to return MPI communicator
+ * info - buffer to return MPI info object
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, October 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ MPI_Comm c_comm;
+ MPI_Info c_info;
+
+ /*
+ * Call H5Pget_mpi function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_fapl_mpio(c_prp_id, &c_comm, &c_info);
+ if (ret < 0) return ret_value;
+ *comm = (int_f) c_comm;
+ *info = (int_f) c_info;
+ ret_value = 0;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pset_dxpl_mpio_c
+ * Purpose: Call H5Pset_dxpl_mpio to set transfer mode of the dataset
+ * trasfer property list
+ * Inputs: prp_id - property list identifier
+ * data_xfer_mode - transfer mode
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, October 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ H5FD_mpio_xfer_t c_data_xfer_mode;
+ int CASE;
+ CASE = *data_xfer_mode;
+ switch (CASE) {
+
+ case H5FD_MPIO_INDEPENDENT_F:
+ c_data_xfer_mode = H5FD_MPIO_INDEPENDENT;
+ break;
+
+ case H5FD_MPIO_COLLECTIVE_F:
+ c_data_xfer_mode = H5FD_MPIO_COLLECTIVE;
+ break;
+ default:
+ return ret_value;
+ }
+ /*
+ * Call H5Pset_dxpl_mpio function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_dxpl_mpio(c_prp_id, c_data_xfer_mode);
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_dxpl_mpio_c
+ * Purpose: Call H5Pget_dxpl_mpio to get transfer mode of the dataset
+ * trasfer property list
+ * Inputs: prp_id - property list identifier
+ * data_xfer_mode - buffer to retrieve transfer mode
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, June 15, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ H5FD_mpio_xfer_t c_data_xfer_mode;
+ int CASE;
+
+ /*
+ * Call H5Pget_xfer function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_dxpl_mpio(c_prp_id, &c_data_xfer_mode);
+ if (ret < 0) return ret_value;
+
+ CASE = c_data_xfer_mode;
+ switch (CASE) {
+
+ case H5FD_MPIO_INDEPENDENT:
+ *data_xfer_mode = H5FD_MPIO_INDEPENDENT_F;
+ break;
+
+ case H5FD_MPIO_COLLECTIVE:
+ *data_xfer_mode = H5FD_MPIO_COLLECTIVE_F;
+ break;
+
+ default:
+ return ret_value;
+ }
+ ret_value = 0;
+ return ret_value;
+}