diff options
Diffstat (limited to 'fortran/src/H5Pf_parallel.c')
| -rw-r--r-- | fortran/src/H5Pf_parallel.c | 161 |
1 files changed, 161 insertions, 0 deletions
diff --git a/fortran/src/H5Pf_parallel.c b/fortran/src/H5Pf_parallel.c new file mode 100644 index 0000000..6dc0850 --- /dev/null +++ b/fortran/src/H5Pf_parallel.c @@ -0,0 +1,161 @@ +#include "H5f90.h" +#include <mpi.h> + +/*---------------------------------------------------------------------------- + * Name: h5pset_mpi_c + * Purpose: Call H5Pset_mpi 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, June 8, 2000 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5pset_mpi_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_mpi(c_prp_id, c_comm, c_info); + if (ret < 0) return ret_value; + ret_value = 0; + return ret_value; +} + +/*---------------------------------------------------------------------------- + * Name: h5pget_mpi_c + * Purpose: Call H5Pget_mpi 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, June 8, 2000 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5pget_mpi_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_mpi(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_xfer_c + * Purpose: Call H5Pset_xfer 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, June 15, 2000 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5pset_xfer_c(hid_t_f *prp_id, int_f* data_xfer_mode) +{ + int ret_value = -1; + hid_t c_prp_id; + herr_t ret; + H5D_transfer_t c_data_xfer_mode; + int CASE; + CASE = *data_xfer_mode; + switch (CASE) { + + case H5D_XFER_INDEPENDENT_F: + c_data_xfer_mode = H5D_XFER_INDEPENDENT; + break; + + case H5D_XFER_COLLECTIVE_F: + c_data_xfer_mode = H5D_XFER_COLLECTIVE; + break; + + case H5D_XFER_DFLT_F: + c_data_xfer_mode = H5D_XFER_DFLT; + break; + default: + return ret_value; + } + /* + * Call H5Pset_xfer function. + */ + c_prp_id = *prp_id; + ret = H5Pset_xfer(c_prp_id, c_data_xfer_mode); + if (ret < 0) return ret_value; + ret_value = 0; + return ret_value; +} + +/*---------------------------------------------------------------------------- + * Name: h5pget_xfer_c + * Purpose: Call H5Pget_xfer 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_xfer_c(hid_t_f *prp_id, int_f* data_xfer_mode) +{ + int ret_value = -1; + hid_t c_prp_id; + herr_t ret; + H5D_transfer_t c_data_xfer_mode; + int CASE; + + /* + * Call H5Pget_xfer function. + */ + c_prp_id = *prp_id; + ret = H5Pget_xfer(c_prp_id, &c_data_xfer_mode); + if (ret < 0) return ret_value; + + CASE = (int)c_data_xfer_mode; + switch (CASE) { + + case H5D_XFER_INDEPENDENT: + *data_xfer_mode = H5D_XFER_INDEPENDENT_F; + break; + + case H5D_XFER_COLLECTIVE: + *data_xfer_mode = H5D_XFER_COLLECTIVE_F; + break; + + case H5D_XFER_DFLT: + *data_xfer_mode = H5D_XFER_DFLT_F; + break; + + default: + return ret_value; + } + ret_value = 0; + return ret_value; +} |