summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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)