mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-04-12 17:31:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r3031]

Browse Source 
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)
This commit is contained in:
Elena Pourmal 2000-11-29 18:06:19 -05:00
parent 89a7dcd400
commit 4a7f9c11bc
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fortran/src/H5FDmpiof.c
View File

@ -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;
}