summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Ef.c
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5Ef.c')
-rw-r--r--fortran/src/H5Ef.c148
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;
-}
-