diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-10-01 16:36:38 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-10-01 16:36:38 (GMT) |
| commit | d9f91a3a6005cbdee81e2f353f6591cb41bf94ea (patch) | |
| tree | a7f70a70526c6f9f585297401a83ea0974d24215 /fortran | |
| parent | e9fbf9b0558fbd72170c7fe322a303027e4fbc0a (diff) | |
| download | hdf5-d9f91a3a6005cbdee81e2f353f6591cb41bf94ea.zip hdf5-d9f91a3a6005cbdee81e2f353f6591cb41bf94ea.tar.gz hdf5-d9f91a3a6005cbdee81e2f353f6591cb41bf94ea.tar.bz2 | |
[svn-r15744] Description:
Removed extraneous comments and unused code.
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5Sf.c | 5 | ||||
| -rw-r--r-- | fortran/src/H5Sff.f90 | 10 |
2 files changed, 0 insertions, 15 deletions
diff --git a/fortran/src/H5Sf.c b/fortran/src/H5Sf.c index 82e760c..da3db6e 100644 --- a/fortran/src/H5Sf.c +++ b/fortran/src/H5Sf.c @@ -1035,11 +1035,6 @@ nh5sselect_elements_c ( hid_t_f *space_id , int_f *op, size_t_f *nelements, hsi int i, j; hsize_t *c_coord; size_t c_nelements; -/* - if (*op != H5S_SELECT_SET_F) return ret_value; -*/ -/* if (*op != H5S_SELECT_SET) return ret_value; */ -/* c_op = H5S_SELECT_SET; */ c_op = (H5S_seloper_t)*op; diff --git a/fortran/src/H5Sff.f90 b/fortran/src/H5Sff.f90 index f7feca2..6469124 100644 --- a/fortran/src/H5Sff.f90 +++ b/fortran/src/H5Sff.f90 @@ -595,16 +595,6 @@ c_coord(i,:) = coord(rank-i+1, :) - 1 ENDDO hdferr = h5sselect_elements_c(space_id, OPERATOR, num_elements, c_coord) - -! ALLOCATE(c_coord(num_elements,rank), stat = error) -! IF (error.NE. 0) THEN -! hdferr = -1 -! RETURN -! ENDIF -! -! c_coord = TRANSPOSE(coord) -! hdferr = h5sselect_elements_c(space_id, OPERATOR, INT(rank,size_t), c_coord) - DEALLOCATE(c_coord) |