summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-10-01 16:36:38 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-10-01 16:36:38 (GMT)
commitd9f91a3a6005cbdee81e2f353f6591cb41bf94ea (patch)
treea7f70a70526c6f9f585297401a83ea0974d24215 /fortran/src
parente9fbf9b0558fbd72170c7fe322a303027e4fbc0a (diff)
downloadhdf5-d9f91a3a6005cbdee81e2f353f6591cb41bf94ea.zip
hdf5-d9f91a3a6005cbdee81e2f353f6591cb41bf94ea.tar.gz
hdf5-d9f91a3a6005cbdee81e2f353f6591cb41bf94ea.tar.bz2
[svn-r15744] Description:
Removed extraneous comments and unused code.
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5Sf.c5
-rw-r--r--fortran/src/H5Sff.f9010
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)