diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-12-15 19:17:49 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-12-15 19:17:49 (GMT) |
commit | 41245b50b68c9f5469cf715006f099cc9b00a6c3 (patch) | |
tree | 7b3fff0818ffea46462c17b093c66d1e466d37ed /fortran/src/H5Sff.f90 | |
parent | 327484d5031e566b9c4c12a26e6d5576b32262d6 (diff) | |
download | hdf5-41245b50b68c9f5469cf715006f099cc9b00a6c3.zip hdf5-41245b50b68c9f5469cf715006f099cc9b00a6c3.tar.gz hdf5-41245b50b68c9f5469cf715006f099cc9b00a6c3.tar.bz2 |
[svn-r16197] Maintenance: Merged trunk into the hdf5_1_8 branch
(used svn merge -r 15741:16196 http://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran).
Diffstat (limited to 'fortran/src/H5Sff.f90')
-rw-r--r-- | fortran/src/H5Sff.f90 | 10 |
1 files changed, 0 insertions, 10 deletions
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) |