diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2014-06-14 03:23:54 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2014-06-14 03:23:54 (GMT) |
| commit | ec408ef08317074029b0dc631d526c4bb45984e6 (patch) | |
| tree | 5d3bb59c29dd09713abde8f22d4dc0f875ae9e21 /fortran/src/H5Sf.c | |
| parent | e23830d29f6623c0482a06b69ae2862bde1e9e33 (diff) | |
| download | hdf5-ec408ef08317074029b0dc631d526c4bb45984e6.zip hdf5-ec408ef08317074029b0dc631d526c4bb45984e6.tar.gz hdf5-ec408ef08317074029b0dc631d526c4bb45984e6.tar.bz2 | |
[svn-r25283] Description:
Correct error in new hyperslab selection test to use the right # of
dimensions for start/stride/count/block arrays. Also, switch H5Sselect_select
to H5Smodify_select.
Tested on:
MacOSX/64 10.9.3 (amazon) w/gcc 4.9.1, OpenMPI, C++, FORTRAN & threadsafe
(Too minor to require h5committest)
Diffstat (limited to 'fortran/src/H5Sf.c')
| -rw-r--r-- | fortran/src/H5Sf.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fortran/src/H5Sf.c b/fortran/src/H5Sf.c index 7a44889..fe6c298 100644 --- a/fortran/src/H5Sf.c +++ b/fortran/src/H5Sf.c @@ -1125,11 +1125,11 @@ nh5scombine_select_c ( hid_t_f *space1_id , int_f *op, hid_t_f *space2_id, hid_t ret_value = 0; return ret_value; } -/****if* H5Sf/h5sselect_select_c +/****if* H5Sf/h5smodify_select_c * NAME - * h5sselect_select_c + * h5smodify_select_c * PURPOSE - * Call H5Sselect_ select + * Call H5Smodify_select * INPUTS * space1_id - identifier of the first dataspace to modify * operator - defines how the new selection is combined @@ -1145,7 +1145,7 @@ nh5scombine_select_c ( hid_t_f *space1_id , int_f *op, hid_t_f *space2_id, hid_t */ int_f -nh5sselect_select_c ( hid_t_f *space1_id , int_f *op, hid_t_f *space2_id) +nh5smodify_select_c ( hid_t_f *space1_id , int_f *op, hid_t_f *space2_id) /******/ { int ret_value = -1; @@ -1157,7 +1157,7 @@ nh5sselect_select_c ( hid_t_f *space1_id , int_f *op, hid_t_f *space2_id) c_space1_id = (hid_t)*space1_id; c_space2_id = (hid_t)*space2_id; - if( H5Sselect_select(c_space1_id, c_op, c_space2_id)< 0) return ret_value; + if( H5Smodify_select(c_space1_id, c_op, c_space2_id)< 0) return ret_value; ret_value = 0; return ret_value; } |