1 files changed, 0 insertions, 20 deletions
diff --git a/fortran/src/H5Ff.c b/fortran/src/H5Ff.c
index 74ad7a5..2d8e5ef 100644
--- a/fortran/src/H5Ff.c
+++ b/fortran/src/H5Ff.c
@@ -96,31 +96,11 @@ nh5fflush_c (hid_t_f *object_id, int_f *scope)
 {
      int ret_value = -1;
      hid_t c_file_id;
-     int CASE;
      H5F_scope_t  c_scope;
      htri_t status;
      c_scope = (H5F_scope_t)*scope;
 
      /*
-      * Define scope flags
-      */
-/*
-     CASE = (int)*scope;
-     switch (CASE) {
-
-	case H5F_SCOPE_LOCAL_F:
-	  c_scope = H5F_SCOPE_LOCAL;
-          break;
-
-	case H5F_SCOPE_GLOBAL_F:
-	  c_scope = H5F_SCOPE_GLOBAL;
-          break;
-
-        default:
-          return ret_value;
-     }
-*/     
-     /*
       * Call H5Fflush function.
       */