summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2000-11-29 23:06:19 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2000-11-29 23:06:19 (GMT)
commit4a7f9c11bc1e6dafbdfd467a70cd3cf1de1bc40c (patch)
tree273742e4c8bef218a00682752ee9eda8b8404fcd
parent89a7dcd4002df820eff189b101bdc8db8994004f (diff)
downloadhdf5-4a7f9c11bc1e6dafbdfd467a70cd3cf1de1bc40c.zip
hdf5-4a7f9c11bc1e6dafbdfd467a70cd3cf1de1bc40c.tar.gz
hdf5-4a7f9c11bc1e6dafbdfd467a70cd3cf1de1bc40c.tar.bz2
[svn-r3031]
Purpose: Bug fix Description: Functions were using flags that were not defined anymore. Somehow I forgot to check this file in when I modified code to use run-time generated flags. Platforms tested: O2K (modi4)
-rw-r--r--fortran/src/H5FDmpiof.c8
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;
}