[svn-r21536] Desciption: Removed H5Eget_auto_f from source, moved to F2003_new branch for

further testing.

Tested: jam (gnu)

1 files changed, 0 insertions, 148 deletions

diff --git a/fortran/src/H5Ef.c b/fortran/src/H5Ef.c
index 875b59f..c0d7a77 100644
--- a/fortran/src/H5Ef.c
+++ b/fortran/src/H5Ef.c
@@ -319,151 +319,3 @@ nh5eset_auto2_c(int_f *printflag, hid_t_f *estack_id, H5E_auto2_t func, void *cl
   return ret_val;
 }
 
-
-int_f
-H5Eget_auto3(void **client_data)
-{
-  int *i;
-
-  i = (int*)client_data;
-
-  *i = 1000;
-  printf(" Buffer In (C) = %d \n", *i);
-  
-  return 0;
-
-}
-
-int_f nprocess_buffer(hid_t_f *estack_id, void **buffer)
-{
-  int status;
-  int *i;
-  H5E_auto2_t func_c;
-
-   status = H5Eget_auto2((hid_t)*estack_id, &func_c, buffer);
-/*    status = H5Eget_auto3(buffer); */
-  
-  i = (int*)buffer;
-
-  printf(" Buffer In (C) = %d \n", *i);
-  return;
-}
-/****if* H5Ef/h5eget_auto_c
- * NAME
- *  h5eget_auto_c
- * PURPOSE
- *  Calls H5Eget_auto2
- * INPUTS
- *  estack_id    - Error stack identifier
- * OUTPUTS
- *  func          - The function currently set to be called upon an error condition.
- *  client_data  - Data currently set to be passed to the error function.
- * RETURNS
- *  0 on success, -1 on failure
- * AUTHOR
- *  M. Scot Breitenfeld
- *  July 10, 2009
- * NOTE
- *  if func is the default H5Eprint or H5Eprint2 then need to use the Fortran callback function
- *  associated  with H5Eprint*.
- * SOURCE
-*/
-int_f
-nh5eget_auto_c(hid_t_f *estack_id, H5E_auto2_t *func, void **client_data, int_f *ret_func)
-/******/
-{
-  int ret_val = -1;
-  herr_t status = -1;
-  hid_t dataset;
-  H5E_auto2_t func_c;
-  void *client_data_c=NULL;
-  void **data_c;
-  int *i;
-
-/*    status = H5Eget_auto3(client_data); */
-/*     i = (int*)client_data; */
-
-/*    printf(" Buffer In (C3) = %d \n", *i); */
-  
-/*    return 0; */
-
-/*   *ret_func = -1; */
-
-   status = H5Eget_auto2((hid_t)*estack_id, &func_c, &client_data_c);
-
-/*   status = H5Eget_auto2((hid_t)*estack_id, &func_c, client_data); */
-
-      i = (int*)*client_data;
-
-/*     *i = 1000; */
-
-
-/*   i = (int*)client_data_c; */
-/* *i = 100; */
-
-/*      *client_data = client_data_c; */
-/*    *data_c = client_data_c; */
-
-    printf("aa %d \n",*((int*)client_data_c));
-/*    printf("bb %d \n",**((int**)client_data)); */
-/*   printf("cc %d \n",**((int**)data_c)); */
-  
-/*   printf("a %p \n",client_data_c); */
-/*    printf("b %p \n",*client_data); */
-/*   printf("c %p \n",*data_c); */
-  
-/*    i = (int*)client_data_c; */
-/*    **client_data = *((int*)client_data_c);*/
-
-/*    *i = 200; */
-
-/*   if(client_data == NULL) */
-/*     printf("error \n"); */
-
-/*   if(func == NULL) */
-/*     printf("error \n"); */
-
-/* #ifdef H5_USE_16_API */
-/*   if (func == (H5E_auto_t)H5Eprint)  */
-/*     *ret_func = 0; */
-/* #else /\* H5_USE_16_API *\/ */
-/*   if (func == (H5E_auto2_t)H5Eprint2) */
-/*     *ret_func = 0; */
-/* #endif /\* H5_USE_16_API *\/ */
-
-/* #ifdef H5_USE_16_API */
-/*   if (func == (H5E_auto_t)H5Eprint) */
-/*     *ret_func = 0; */
-/* #else /\* H5_USE_16_API *\/ */
-/*   if (func == (H5E_auto2_t)H5Eprint2) */
-/*     *ret_func = 0; */ /* printf("%p %p \n",func,(H5E_auto2_t)H5Eprint2); */
-/* #endif /\* H5_USE_16_API *\/ */
-
-/*   printf(" ret %d \n", ret_val); */
-  if (status >= 0) ret_val = 0;
-  ret_func = 0;
-  return ret_val;
-}
-
-void*
-nh5eget_auto_c2(hid_t_f *estack_id, H5E_auto2_t *func, int_f *ret_func)
-/******/
-{
-  int ret_val = -1;
-  herr_t status = -1;
-  hid_t dataset;
-  H5E_auto2_t func_c;
-  void *client_data_c=NULL;
-  void **data_c;
-  int *i;
-
-  status = H5Eget_auto2((hid_t)*estack_id, &func_c, &client_data_c);
-
-   printf("a %p \n",client_data_c);
-
-
-  if (status >= 0) ret_val = 0;
-  ret_func = 0;
-  return client_data_c;
-}
-