diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-09-24 16:26:32 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-09-24 16:26:32 (GMT) |
| commit | 8866806873cd1ff5a1cc1bbbd59d186aa8065cca (patch) | |
| tree | 33b7a4219c5e08c6b1cdf8561334d4a701d22fcd /fortran/src/H5Sf.c | |
| parent | acf7dd2c744555b30b10f0915b713eadeda45571 (diff) | |
| download | hdf5-8866806873cd1ff5a1cc1bbbd59d186aa8065cca.zip hdf5-8866806873cd1ff5a1cc1bbbd59d186aa8065cca.tar.gz hdf5-8866806873cd1ff5a1cc1bbbd59d186aa8065cca.tar.bz2 | |
[svn-r15690] Description:
In nH5Sget_select_bounds_c swapped array bounds to account for C and Fortran reversed array notation.
Diffstat (limited to 'fortran/src/H5Sf.c')
| -rw-r--r-- | fortran/src/H5Sf.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fortran/src/H5Sf.c b/fortran/src/H5Sf.c index 7b37756..82e760c 100644 --- a/fortran/src/H5Sf.c +++ b/fortran/src/H5Sf.c @@ -274,7 +274,9 @@ nh5sget_select_hyper_blocklist_c( hid_t_f *space_id ,hsize_t_f * startblock, * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su * Wednesday, November 17, 1999 - * Modifications: + * Modifications: swapped array bounds to account for C and Fortran reversed + * matrix notation. + * M.S. Breitenfeld *---------------------------------------------------------------------------*/ int_f @@ -298,8 +300,8 @@ nh5sget_select_bounds_c( hid_t_f *space_id , hsize_t_f * start, hsize_t_f * end) ret_value = H5Sget_select_bounds(c_space_id, c_start, c_end); for(i = 0; i < rank; i++) { - start[i] = (hsize_t_f)(c_start[i]+1); - end[i] = (hsize_t_f)(c_end[i]+1); + start[i] = (hsize_t_f)(c_start[rank-i-1]+1); + end[i] = (hsize_t_f)(c_end[rank-i-1]+1); } if (ret_value >= 0 ) ret_value = 0; |