[svn-r27392] removed unused C functions

3 files changed, 6 insertions, 158 deletions

diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c
index 59c6859..9735f48 100644
--- a/fortran/src/H5Pf.c
+++ b/fortran/src/H5Pf.c
@@ -2631,36 +2631,6 @@ h5pget_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size)
   *size = (size_t_f)c_size;
   return ret_value;
 }
-/****if* H5Pf/h5pcreate_class_c
- * NAME
- *  h5pcreate_class_c
- * PURPOSE
- *  Call H5Pcreate_class to create a new property class
- * INPUTS
- *  parent - property list class identifier
- *  name   - name of the new class
- *  name_len - lenght of the "name" buffer
- * OUTPUTS
- *  cls - new class identifier
- * RETURNS
- *  0 on success, -1 on failure
- * AUTHOR
- *  Elena Pourmal
- *  October 11, 2002
- *
- * HISTORY
- * SOURCE
-*/
-int_f
-h5pcreate_class_f90_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls)
-/******/
-{
-     int ret_value = -1;
-
-     ret_value = h5pcreate_class_c(parent, name, name_len, cls, NULL, NULL, NULL, NULL, NULL, NULL);
-     return  ret_value;
-}
-
 
 /****if* H5Pf/h5pcreate_class_c
  * NAME
diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h
index 710b44f..10acc22 100644
--- a/fortran/src/H5f90proto.h
+++ b/fortran/src/H5f90proto.h
@@ -120,7 +120,6 @@ H5_FCDLL int_f h5sget_simple_extent_type_c( hid_t_f *space_id , int_f *classtype
 H5_FCDLL int_f h5soffset_simple_c( hid_t_f *space_id , hssize_t_f *offset);
 H5_FCDLL int_f h5sset_extent_simple_c( hid_t_f *space_id , int_f *rank, hsize_t_f * current_size, hsize_t_f *maximum_size);
 H5_FCDLL int_f h5sis_simple_c( hid_t_f *space_id , int_f *flag );
-H5_FCDLL int_f h5sextent_class_c( hid_t_f *space_id , int_f *classtype);
 H5_FCDLL int_f h5sget_simple_extent_dims_c( hid_t_f *space_id , hsize_t_f *dims, hsize_t_f *maxdims);
 H5_FCDLL int_f h5sextent_copy_c( hid_t_f *dest_space_id , hid_t_f *source_space_id);
 H5_FCDLL int_f h5sset_extent_none_c( hid_t_f *space_id );
@@ -464,7 +463,6 @@ H5_FCDLL int_f h5pset_char_encoding_c(hid_t_f *plist_id, int_f *encoding);
 H5_FCDLL int_f h5pget_char_encoding_c(hid_t_f *plist_id, int_f *encoding);
 H5_FCDLL int_f h5pset_copy_object_c(hid_t_f *ocp_plist_id, int_f *copy_options);
 H5_FCDLL int_f h5pget_copy_object_c(hid_t_f *ocp_plist_id, int_f *copy_options);
-H5_FCDLL int_f h5pcreate_class_f90_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls);
 H5_FCDLL int_f h5pget_data_transform_c(hid_t_f *plist_id, _fcd expression, int_f *expression_len, size_t_f *size);
 H5_FCDLL int_f h5pset_data_transform_c(hid_t_f *plist_id, _fcd expression, int_f *expression_len);
 H5_FCDLL int_f h5pget_local_heap_size_hint_c(hid_t_f *gcpl_id, size_t_f *size_hint);
diff --git a/fortran/src/H5match_types.c b/fortran/src/H5match_types.c
index 360f224..37509a0 100644
--- a/fortran/src/H5match_types.c
+++ b/fortran/src/H5match_types.c
@@ -244,18 +244,6 @@ int main(void)
     }
 #  endif
 #endif
-/*     else { */
-  /*     /\* Did not find the real type, use the next smallest *\/ */
-/*       sprintf(chrA, "%d", RealKinds[i]); */
-/*       if(sizeof(float) > RealKinds_SizeOf[H5_FORTRAN_NUM_REAL_KINDS-2]) { */
-/* 	writeTypedef("float", "float", RealKinds[i]); */
-/* 	strcpy(Real_C_TYPES[i], chrA); */
-/*       } else if(sizeof(double) > RealKinds_SizeOf[H5_FORTRAN_NUM_REAL_KINDS-2]) { */
-/* 	writeTypedef("float", "double", RealKinds[i]); */
-/* 	strcpy(Real_C_TYPES[i], chrA); */
-/*       } else if(sizeof(long double) > RealKinds_SizeOf[H5_FORTRAN_NUM_REAL_KINDS-2]) { */
-/* 	writeTypedef("float", "long double", RealKinds[i]); */
-/* 	strcpy(Real_C_TYPES[i], "C_LONG_DOUBLE"); } */
     else {
       printf("\n                      **** HDF5 WARNING ****\n");
       printf("Fortran REAL(KIND=%d) is %d Bytes, but no corresponding C float type exists of that size\n",RealKinds[i],RealKinds_SizeOf[i]);
@@ -263,8 +251,6 @@ int main(void)
 
       RealKinds_SizeOf[i] = -1;
       RealKinds[i] = -1;
-/*       writeTypedef("float", "long double", RealKinds[i]); */
-/*       strcpy(Real_C_TYPES[i], "C_LONG_DOUBLE"); } */
     }
   }
 
@@ -328,8 +314,6 @@ int main(void)
 
   /* int */
   writeToFiles("int","Fortran_INTEGER", "int_f", H5_FORTRAN_NATIVE_INTEGER_SIZEOF, H5_FORTRAN_NATIVE_INTEGER_KIND);
-  
-
 
   /* int_1, int_2, int_4, int_8 */
 
@@ -409,62 +393,11 @@ int main(void)
       FoundRealSize[i] = (int)RealKinds[i];
       FoundRealSizeKind[i] = (int)RealKinds_SizeOf[i];	
       sprintf(chrA, "Fortran_REAL_%s", Real_C_TYPES[i]);
- /*    sprintf(chrB, "real_%d_f", FoundRealSize[i]); */
       sprintf(chrB, "real_%s_f", Real_C_TYPES[i]);
       writeToFiles("float",chrA, chrB, RealKinds[i], RealKinds_SizeOf[i]);
     }
   }
 
-/*   for(i=0;i<H5_FORTRAN_NUM_REAL_KINDS;i++) { */
-/*     if( FoundRealSize[i] > 0) /\* Found the real type *\/ */
-/* 	{ */
-/* 	  sprintf(chrA, "Fortran_REAL_%d", Real_C_TYPES[i]); */
-/* 	  sprintf(chrB, "real_%d_f", FoundRealSize[i]); */
-/* 	  writeToFiles("float",chrA, chrB, FoundRealSize[i], FoundRealSizeKind[i]); */
-/* 	} */
-/*       else  /\* Did not find the real type *\/ */
-/* 	{ */
-/* 	  flag = 0; /\* flag indicating if found the next highest *\/ */
-/* 	  for(j=i+1;j<3;j++)  /\* search for next highest *\/ */
-/* 	    { */
-/* 	      if( FoundRealSize[j] > 0) /\* Found the next highest *\/ */
-/* 		{ */
-/* 		  sprintf(chrA, "Fortran_REAL_%d", (-1)*FoundRealSize[i]); */
-/* 		  sprintf(chrB, "real_%d_f", (-1)*FoundRealSize[i]); */
-/* 		  if(FoundRealSize[j]>4) { */
-/* 		    writeToFiles("float",chrA, chrB,  FoundRealSize[j], FoundRealSizeKind[j]); */
-/* 		    flag = 1; */
-/* 		  } */
-/* 		/\*   else { *\/ */
-/* /\* 		    writeToFiles("float", chrA, chrB, FoundRealSize[j]); *\/ */
-/* /\* 		  } *\/ */
-/* 		  flag = 1; */
-/* 		  break; */
-/* 		} */
-/* 	    } */
-/* 	  if(flag == 0) /\* No higher one found, so find next lowest *\/ */
-/* 	    { */
-/* 	      for(j=1;j>-1;j--)  /\* Search for next lowest *\/ */
-/* 		{ */
-/* 		  if( FoundRealSize[j] > 0) /\* Found the next lowest *\/ */
-/* 		    { */
-/* 		      sprintf(chrA, "Fortran_REAL_%d", (-1)*FoundRealSize[i]); */
-/* 		      sprintf(chrB, "real_%d_f", (-1)*FoundRealSize[i]); */
-/* 		      if(FoundRealSize[j]>4) */
-/* 			writeToFiles("float",chrA, chrB,  FoundRealSize[j], FoundRealSizeKind[j]); */
-/* 		     /\*  else { *\/ */
-/* /\* 			writeToFiles("float", chrA, chrB, FoundRealSize[j]); *\/ */
-/* /\* 		      } *\/ */
-/* 		      flag = 1; */
-/* 		      break; */
-/* 		    } */
-/* 		} */
-/* 	    } */
-/* 	  if(flag == 0) /\* No higher or lower one found, indicating an error *\/ */
-/* 	     return -1; */
-/* 	} */
-/*     } */
-
   /* hid_t */
   for(i=0;i< H5_FORTRAN_NUM_INTEGER_KINDS;i++) {
     if(IntKinds_SizeOf[i] == H5_SIZEOF_HID_T) {
@@ -491,9 +424,11 @@ int main(void)
       writeToFilesChr("float","Fortran_REAL", "real_f", H5_FORTRAN_NATIVE_REAL_KIND, "C_DOUBLE");
     else if(H5_FORTRAN_NATIVE_REAL_SIZEOF > sizeof(float))
       writeToFilesChr("float","Fortran_REAL", "real_f", H5_FORTRAN_NATIVE_REAL_KIND, "C_FLOAT");
-    else
+    else {
       /* Error: couldn't find a size for real_f */
+      printf("Error: couldn't find a size for real_f \n");
       return -1;
+    }
   }
 
   /* double_f */
@@ -514,66 +449,11 @@ int main(void)
     }
 #endif
   else {
-/*     /\* No exact match, choose the next highest *\/ */
-/*     if(H5_FORTRAN_NATIVE_DOUBLE_SIZEOF > sizeof(long double)) */
-/*       writeToFilesChr("float","Fortran_DOUBLE", "double_f", H5_FORTRAN_NATIVE_DOUBLE_KIND, "C_LONG_DOUBLE"); */
-/*     else if(H5_FORTRAN_NATIVE_DOUBLE_SIZEOF > sizeof(double)) */
-/*       writeToFilesChr("float","Fortran_DOUBLE", "double_f", sizeof(double), "C_DOUBLE"); */
-/*     else if(H5_FORTRAN_NATIVE_DOUBLE_SIZEOF > sizeof(float)) */
-/*       writeToFilesChr("float","Fortran_DOUBLE", "double_f", sizeof(float), "C_FLOAT"); */
-/*     else */
-      /* Error: couldn't find a size for double_f */
-/*       printf("Error: couldn't find a size for double_f \n"); */
-/*       return -1; */
+    /* Error: couldn't find a size for double_f */
+    printf("Error: couldn't find a size for double_f \n");
+    return -1;
   }
 
-
-
-/*   /\* double_f *\/ */
-/*   if(H5_FORTRAN_NATIVE_DOUBLE_SIZEOF == C_LONG_DOUBLE_SIZEOF) */
-/*     writeToFilesChr("float","Fortran_DOUBLE", "double_f", H5_FORTRAN_NATIVE_DOUBLE_SIZEOF, "C_LONG_DOUBLE"); */
-/*   else if(H5_FORTRAN_NATIVE_DOUBLE_SIZEOF == C_DOUBLE_SIZEOF) */
-/*     writeToFilesChr("float","Fortran_DOUBLE", "double_f", H5_FORTRAN_NATIVE_DOUBLE_SIZEOF, "C_DOUBLE"); */
-/*   else if(H5_FORTRAN_NATIVE_DOUBLE_SIZEOF == C_FLOAT_SIZEOF) */
-/*     writeToFilesChr("float","Fortran_DOUBLE", "double_f", H5_FORTRAN_NATIVE_DOUBLE_SIZEOF, "C_FLOAT"); */
-/*   else */
-/*     /\* Error: couldn't find a size for double_f *\/ */
-/*     return -1; */
-
-/*   writeToFiles("float","Fortran_DOUBLE", "double_f", H5_FORTRAN_NATIVE_DOUBLE_SIZEOF, H5_FORTRAN_NATIVE_DOUBLE_KIND); */
-
-/* #elif defined H5_FORTRAN_HAS_DOUBLE_NATIVE_8_KIND */
-/*     writeToFilesChr("float", "Fortran_DOUBLE", "double_f", 8, "C_DOUBLE"); */
-/* #else */
-/*     /\* Error: couldn't find a size for real_f *\/ */
-/*     return -1; */
-/* #endif */
-
-/*     /\* real_f *\/ */
-/*     if(sizeof(float) == C_LONG_DOUBLE_SIZEOF) { */
-/*       writeToFilesChr("float","Fortran_REAL", "real_f", (int)sizeof(float), "C_LONG_DOUBLE"); */
-/*     } else if(sizeof(float) == C_DOUBLE_SIZEOF) { */
-/*       writeToFilesChr("float","Fortran_REAL", "real_f", (int)sizeof(float), "C_DOUBLE"); */
-/*     } else if(sizeof(float) == C_FLOAT_SIZEOF) { */
-/*       writeToFilesChr("float","Fortran_REAL", "real_f", (int)sizeof(float), "C_FLOAT"); */
-/*     } else { */
-/*       /\* Error: couldn't find a size for real_f *\/ */
-/*     return -1; */
-/*     } */
-
-/*     /\* double_f *\/ */
-/*     if(sizeof(double) == C_LONG_DOUBLE_SIZEOF) { */
-/*       writeToFilesChr("float","Fortran_DOUBLE", "double_f", (int)sizeof(double), "C_LONG_DOUBLE"); */
-/*     } else if(sizeof(double) == C_DOUBLE_SIZEOF) { */
-/*       writeToFilesChr("float","Fortran_DOUBLE", "double_f", (int)sizeof(double), "C_DOUBLE"); */
-/*     } else if(sizeof(double) == C_FLOAT_SIZEOF) { */
-/*       writeToFilesChr("float","Fortran_DOUBLE", "double_f", (int)sizeof(double), "C_FLOAT"); */
-/*     } else { */
-/*       /\* Error: couldn't find a size for double_f *\/ */
-/*     return -1; */
-/*     } */
-
-
   /* Need the buffer size for the fortran derive type 'hdset_reg_ref_t_f03'
    * in order to be interoperable with C's structure, the C buffer size
    * H5R_DSET_REG_REF_BUF_SIZE is (sizeof(haddr_t)+4)