From d9f91a3a6005cbdee81e2f353f6591cb41bf94ea Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Wed, 1 Oct 2008 11:36:38 -0500
Subject: [svn-r15744] Description: Removed extraneous comments and unused
 code.

---
 fortran/src/H5Sf.c    |  5 -----
 fortran/src/H5Sff.f90 | 10 ----------
 2 files changed, 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)
  
-- 
cgit v0.12