diff options
| -rw-r--r-- | fortran/src/H5FDmpiof.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/fortran/src/H5FDmpiof.c b/fortran/src/H5FDmpiof.c index 395ae03..9122fb4 100644 --- a/fortran/src/H5FDmpiof.c +++ b/fortran/src/H5FDmpiof.c @@ -83,7 +83,9 @@ nh5pset_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode) hid_t c_prp_id; herr_t ret; H5FD_mpio_xfer_t c_data_xfer_mode; +/* int CASE; + CASE = *data_xfer_mode; switch (CASE) { @@ -97,6 +99,8 @@ nh5pset_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode) default: return ret_value; } +*/ + c_data_xfer_mode = (H5FD_mpio_xfer_t)*data_xfer_mode; /* * Call H5Pset_dxpl_mpio function. */ @@ -133,7 +137,8 @@ nh5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode) c_prp_id = *prp_id; ret = H5Pget_dxpl_mpio(c_prp_id, &c_data_xfer_mode); if (ret < 0) return ret_value; - + *data_xfer_mode = (int_f)c_data_xfer_mode; +/* CASE = c_data_xfer_mode; switch (CASE) { @@ -148,6 +153,7 @@ nh5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode) default: return ret_value; } +*/ ret_value = 0; return ret_value; } |