mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-21 01:04:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r7643] Purpose:

Browse Source 
Code cleanup

Description:
    Clean up warnings, remove unused routines, tidy things up a lot.

Platforms tested:
    h5committest
This commit is contained in:
Quincey Koziol 2003-10-15 15:17:11 -05:00
parent a467184280
commit 179d839555
3 changed files with 683 additions and 897 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

355
fortran/src/H5Af.c
View File

@ -15,6 +15,7 @@
/* This files contains C stubs for H5A Fortran APIs */ /* This files contains C stubs for H5A Fortran APIs */
#include "H5f90.h" #include "H5f90.h"
#include "H5Eprivate.h"
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
* Name: h5acreate_c * Name: h5acreate_c
@ -32,47 +33,26 @@
* Modifications: * Modifications:
*---------------------------------------------------------------------------*/ *---------------------------------------------------------------------------*/
int_f int_f
nh5acreate_c (hid_t_f *obj_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *attr_id) nh5acreate_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *attr_id)
{ {
int ret_value = -1; char *c_name=NULL; /* Buffer to hold C string */
char *c_name; int_f ret_value=0; /* Return value */
int c_namelen;
hid_t c_obj_id;
hid_t c_type_id;
hid_t c_space_id;
hid_t c_attr_id;
hid_t c_crt_prp;
/*
* Define creation property
*/
c_crt_prp = (hid_t)*crt_prp;
/*
if ( H5P_DEFAULT_F == c_crt_prp ) c_crt_prp = H5P_DEFAULT;
*/
/* /*
* Convert FORTRAN name to C name * Convert FORTRAN name to C name
*/ */
c_namelen = *namelen; if ((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
c_name = (char *)HD5f2cstring(name, c_namelen); HGOTO_DONE(FAIL);
if (c_name == NULL) return ret_value;
/* /*
* Call H5Acreate function. * Call H5Acreate function.
*/ */
c_obj_id = *obj_id; if((*attr_id = (hid_t_f)H5Acreate((hid_t)*obj_id, c_name, (hid_t)*type_id, (hid_t)*space_id, (hid_t)*crt_prp))<0)
c_type_id = *type_id; HGOTO_DONE(FAIL);
c_space_id = *space_id;
c_attr_id = H5Acreate(c_obj_id, c_name, c_type_id, c_space_id, c_crt_prp);
done:
if (c_attr_id < 0) goto DONE; if(c_name) HDfree(c_name);
*attr_id = (hid_t_f)c_attr_id; return ret_value;
ret_value = 0;
DONE:
HDfree(c_name);
return ret_value;
} }
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
@ -88,33 +68,26 @@ DONE:
* Modifications: * Modifications:
*---------------------------------------------------------------------------*/ *---------------------------------------------------------------------------*/
int_f int_f
nh5aopen_name_c (hid_t_f *obj_id, _fcd name, int_f *namelen, hid_t_f *attr_id) nh5aopen_name_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_id)
{ {
int ret_value = -1; char *c_name=NULL; /* Buffer to hold C string */
char *c_name; int_f ret_value=0; /* Return value */
int c_namelen;
hid_t c_obj_id;
hid_t c_attr_id;
/* /*
* Convert FORTRAN name to C name * Convert FORTRAN name to C name
*/ */
c_namelen = *namelen; if ((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
c_name = (char *)HD5f2cstring(name, c_namelen); HGOTO_DONE(FAIL);
if (c_name == NULL) return ret_value;
/* /*
* Call H5Aopen function. * Call H5Aopen function.
*/ */
c_obj_id = *obj_id; if ((*attr_id = (hid_t_f)H5Aopen_name((hid_t)*obj_id, c_name)) < 0)
c_attr_id = H5Aopen_name(c_obj_id, c_name); HGOTO_DONE(FAIL);
if (c_attr_id < 0) goto DONE; done:
*attr_id = (hid_t_f)c_attr_id; if(c_name) HDfree(c_name);
ret_value = 0; return ret_value;
DONE:
HDfree(c_name);
return ret_value;
} }
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
@ -132,16 +105,12 @@ DONE:
* April 4, 2001 * April 4, 2001
*---------------------------------------------------------------------------*/ *---------------------------------------------------------------------------*/
int_f int_f
nh5awritec_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, int_f *dims) nh5awritec_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
{ {
int ret_value = -1;
/* /*
* Call h5awrite_c function. * Call h5awrite_c function.
*/ */
ret_value = nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims); return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
return ret_value;
} }
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
@ -159,88 +128,20 @@ nh5awritec_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, int_f *dims)
* April 4, 2001 * April 4, 2001
*---------------------------------------------------------------------------*/ *---------------------------------------------------------------------------*/
int_f int_f
nh5awrite_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, int_f *dims) nh5awrite_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
{ {
int ret_value = -1; int_f ret_value=0; /* Return value */
herr_t ret;
hid_t c_attr_id;
hid_t c_mem_type_id;
/* /*
* Call H5Awrite function. * Call H5Awrite function.
*/ */
c_attr_id = *attr_id; if (H5Awrite((hid_t)*attr_id, (hid_t)*mem_type_id, buf) < 0)
c_mem_type_id = *mem_type_id; HGOTO_DONE(FAIL);
ret = H5Awrite(c_attr_id, c_mem_type_id, buf);
if (ret < 0) return ret_value; done:
ret_value = 0;
return ret_value; return ret_value;
} }
/*----------------------------------------------------------------------------
* Name: h5awritec_c_b
* Purpose: Call h5awrite_c_b to write a character attribute
* Inputs: attr_id - dataset identifier
* mem_type_id - memory datatype identifier
* buf - character data buffer
* dims - array to store dimensions sizes of buf; used only
* by Fortran routine.
* Returns: 0 on success, -1 on failure
* Programmer: Elena Pourmal
* Tuesday, May 14, 2002
* Modifications: This function was added to accomodate h5awrite_f call with
* dims buffer being of INTEGER(HSIZE_T) type
*---------------------------------------------------------------------------*/
int_f
nh5awritec_c_b (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, hsize_t_f *dims)
{
int ret_value = -1;
/*
* Call h5awrite_c function.
*/
ret_value = nh5awrite_c_b(attr_id, mem_type_id, _fcdtocp(buf), dims);
return ret_value;
}
/*----------------------------------------------------------------------------
* Name: h5awrite_c_b
* Purpose: Call H5Awrite to write a attribute
* Inputs: attr_id - attribute identifier
* mem_type_id - memory datatype identifier
* buf - data buffer
* dims - array to store dimensions sizes of buf; used only
* by Fortran routine.
* Returns: 0 on success, -1 on failure
* Programmer: Elena Pourmal
* Tuesday, May 14, 2002
* Modifications: This function was added to accomodate h5awrite_f call with
* dims buffer being of INTEGER(HSIZE_T) type
*---------------------------------------------------------------------------*/
int_f
nh5awrite_c_b (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, hsize_t_f *dims)
{
int ret_value = -1;
herr_t ret;
hid_t c_attr_id;
hid_t c_mem_type_id;
/*
* Call H5Awrite function.
*/
c_attr_id = *attr_id;
c_mem_type_id = *mem_type_id;
ret = H5Awrite(c_attr_id, c_mem_type_id, buf);
if (ret < 0) return ret_value;
ret_value = 0;
return ret_value;
}
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
* Name: h5areadc_c * Name: h5areadc_c
* Purpose: Call h5aread_c to read character attribute * Purpose: Call h5aread_c to read character attribute
@ -256,16 +157,12 @@ nh5awrite_c_b (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, hsize_t_f *dim
* April 4, 2001 * April 4, 2001
*---------------------------------------------------------------------------*/ *---------------------------------------------------------------------------*/
int_f int_f
nh5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, int_f *dims) nh5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
{ {
int ret_value = -1;
/* /*
* Call h5aread_c function. * Call h5aread_c function.
*/ */
ret_value = nh5aread_c(attr_id, mem_type_id, (_fcdtocp(buf)), dims); return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
return ret_value;
} }
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
@ -283,85 +180,19 @@ nh5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, int_f *dims)
* April 4, 2001 * April 4, 2001
*---------------------------------------------------------------------------*/ *---------------------------------------------------------------------------*/
int_f int_f
nh5aread_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, int_f *dims) nh5aread_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
{ {
int ret_value = -1; int_f ret_value=0; /* Return value */
herr_t ret;
hid_t c_attr_id;
hid_t c_mem_type_id;
/* /*
* Call H5Aread function. * Call H5Aread function.
*/ */
c_attr_id = *attr_id; if (H5Aread((hid_t)*attr_id, (hid_t)*mem_type_id, buf) < 0)
c_mem_type_id = *mem_type_id; HGOTO_DONE(FAIL);
ret = H5Aread(c_attr_id, c_mem_type_id, buf);
if (ret < 0) return ret_value; done:
ret_value = 0;
return ret_value; return ret_value;
} }
/*----------------------------------------------------------------------------
* Name: h5areadc_c_b
* Purpose: Call h5aread_c_b to read character attribute
* Inputs: dset_id - dataset identifier
* mem_type_id - memory datatype identifier
* dims - array to store dimensions sizes of buf; used only
* by Fortran routine.
* Outputs: buf - character data buffer
* Returns: 0 on success, -1 on failure
* Programmer: Elena Pourmal
* Tuesday, May 14, 2002
* Modifications: This function was added to accomodate h5aread_f call with
* dims buffer being of INTEGER(HSIZE_T) type
*---------------------------------------------------------------------------*/
int_f
nh5areadc_c_b (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, hsize_t_f *dims)
{
int ret_value = -1;
/*
* Call h5aread_c function.
*/
ret_value = nh5aread_c_b(attr_id, mem_type_id, (_fcdtocp(buf)), dims);
return ret_value;
}
/*----------------------------------------------------------------------------
* Name: h5aread_c_b
* Purpose: Call H5Aread to read an attribute
* Inputs: dset_id - dataset identifier
* mem_type_id - memory datatype identifier
* dims - array to store dimensions sizes of buf; used only
* by Fortran routine.
* Outputs: buf - data buffer
* Returns: 0 on success, -1 on failure
* Programmer: Elena Pourmal
* Tuesday, May 14, 2002
* Modifications: This function was added to accomodate h5awrite_f call with
* dims buffer being of INTEGER(HSIZE_T) type
*---------------------------------------------------------------------------*/
int_f
nh5aread_c_b (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, hsize_t_f *dims)
{
int ret_value = -1;
herr_t ret;
hid_t c_attr_id;
hid_t c_mem_type_id;
/*
* Call H5Aread function.
*/
c_attr_id = *attr_id;
c_mem_type_id = *mem_type_id;
ret = H5Aread(c_attr_id, c_mem_type_id, buf);
if (ret < 0) return ret_value;
ret_value = 0;
return ret_value;
}
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
* Name: h5aclose_c * Name: h5aclose_c
@ -376,11 +207,13 @@ nh5aread_c_b (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, hsize_t_f *dims
int_f int_f
nh5aclose_c ( hid_t_f *attr_id ) nh5aclose_c ( hid_t_f *attr_id )
{ {
int ret_value = 0; int_f ret_value=0; /* Return value */
hid_t c_attr_id;
c_attr_id = *attr_id; if (H5Aclose((hid_t)*attr_id) < 0)
if ( H5Aclose(c_attr_id) < 0 ) ret_value = -1; HGOTO_DONE(FAIL);
return ret_value;
done:
return ret_value;
} }
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
@ -395,33 +228,26 @@ nh5aclose_c ( hid_t_f *attr_id )
* Modifications: * Modifications:
*---------------------------------------------------------------------------*/ *---------------------------------------------------------------------------*/
int_f int_f
nh5adelete_c (hid_t_f *obj_id, _fcd name, int_f *namelen) nh5adelete_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen)
{ {
int ret_value = -1; char *c_name=NULL; /* Buffer to hold C string */
herr_t status; int_f ret_value=0; /* Return value */
hid_t c_obj_id;
char *c_name;
int c_namelen;
/* /*
* Convert FORTRAN name to C name * Convert FORTRAN name to C name
*/ */
c_namelen = *namelen; if ((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
c_name = (char *)HD5f2cstring(name, c_namelen); HGOTO_DONE(FAIL);
if (c_name == NULL) return ret_value;
/* /*
* Call H5Adelete function. * Call H5Adelete function.
*/ */
c_obj_id = *obj_id; if (H5Adelete((hid_t)*obj_id, c_name) < 0)
status = H5Adelete(c_obj_id, c_name); HGOTO_DONE(FAIL);
if (status < 0) goto DONE; done:
ret_value = 0; if(c_name) HDfree(c_name);
return ret_value;
DONE:
HDfree(c_name);
return ret_value;
} }
@ -439,21 +265,15 @@ DONE:
int_f int_f
nh5aopen_idx_c (hid_t_f *obj_id, int_f *idx, hid_t_f *attr_id) nh5aopen_idx_c (hid_t_f *obj_id, int_f *idx, hid_t_f *attr_id)
{ {
int ret_value = -1; int_f ret_value=0; /* Return value */
hid_t c_obj_id;
hid_t c_attr_id;
unsigned c_idx;
c_idx = (unsigned)*idx;
/* /*
* Call H5Aopen_idx function. * Call H5Aopen_idx function.
*/ */
c_obj_id = *obj_id; if ((*attr_id = (hid_t_f)H5Aopen_idx((hid_t)*obj_id, (unsigned)*idx)) < 0)
c_attr_id = H5Aopen_idx(c_obj_id, c_idx); HGOTO_DONE(FAIL);
if (c_attr_id < 0) return ret_value; done:
*attr_id = (hid_t_f)c_attr_id;
ret_value = 0;
return ret_value; return ret_value;
} }
@ -471,19 +291,15 @@ nh5aopen_idx_c (hid_t_f *obj_id, int_f *idx, hid_t_f *attr_id)
int_f int_f
nh5aget_space_c (hid_t_f *attr_id, hid_t_f *space_id) nh5aget_space_c (hid_t_f *attr_id, hid_t_f *space_id)
{ {
int ret_value = -1; int_f ret_value=0; /* Return value */
hid_t c_attr_id;
hid_t c_space_id;
/* /*
* Call H5Aget_space function. * Call H5Aget_space function.
*/ */
c_attr_id = *attr_id; if ((*space_id = (hid_t_f)H5Aget_space((hid_t)*attr_id)) < 0)
c_space_id = H5Aget_space(c_attr_id); HGOTO_DONE(FAIL);
if (c_space_id < 0) return ret_value; done:
*space_id = (hid_t_f)c_space_id;
ret_value = 0;
return ret_value; return ret_value;
} }
@ -500,19 +316,15 @@ nh5aget_space_c (hid_t_f *attr_id, hid_t_f *space_id)
int_f int_f
nh5aget_type_c (hid_t_f *attr_id, hid_t_f *type_id) nh5aget_type_c (hid_t_f *attr_id, hid_t_f *type_id)
{ {
int ret_value = -1; int_f ret_value=0; /* Return value */
hid_t c_attr_id;
hid_t c_type_id;
/* /*
* Call H5Aget_type function. * Call H5Aget_type function.
*/ */
c_attr_id = *attr_id; if ((*type_id = (hid_t_f)H5Aget_type((hid_t)*attr_id)) < 0)
c_type_id = H5Aget_type(c_attr_id); HGOTO_DONE(FAIL);
if (c_type_id < 0) return ret_value; done:
*type_id = (hid_t_f)c_type_id;
ret_value = 0;
return ret_value; return ret_value;
} }
@ -530,23 +342,18 @@ nh5aget_type_c (hid_t_f *attr_id, hid_t_f *type_id)
int_f int_f
nh5aget_num_attrs_c (hid_t_f *obj_id, int_f *attr_num) nh5aget_num_attrs_c (hid_t_f *obj_id, int_f *attr_num)
{ {
int ret_value = -1; int_f ret_value=0; /* Return value */
hid_t c_obj_id;
int c_attr_num;
/* /*
* Call H5Aget_num_attrs function. * Call H5Aget_num_attrs function.
*/ */
c_obj_id = *obj_id; if ((*attr_num = (int_f)H5Aget_num_attrs((hid_t)*obj_id)) < 0)
c_attr_num = H5Aget_num_attrs(c_obj_id); HGOTO_DONE(FAIL);
if (c_attr_num < 0) return ret_value; done:
*attr_num = c_attr_num;
ret_value = 0;
return ret_value; return ret_value;
} }
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
* Name: h5aget_name_c * Name: h5aget_name_c
* Purpose: Call H5Aget_name to get attribute's name * Purpose: Call H5Aget_name to get attribute's name
@ -561,33 +368,27 @@ nh5aget_num_attrs_c (hid_t_f *obj_id, int_f *attr_num)
int_f int_f
nh5aget_name_c(hid_t_f *attr_id, size_t_f *bufsize, _fcd buf) nh5aget_name_c(hid_t_f *attr_id, size_t_f *bufsize, _fcd buf)
{ {
int ret_value = -1; char *c_buf=NULL; /* Buffer to hold C string */
hid_t c_attr_id; int_f ret_value=0; /* Return value */
ssize_t c_size;
size_t c_bufsize;
char *c_buf =NULL;
/* /*
* Allocate buffer to hold name of an attribute * Allocate buffer to hold name of an attribute
*/ */
c_bufsize = *bufsize; if ((c_buf = HDmalloc((size_t)*bufsize +1)) == NULL)
c_buf = (char *)HDmalloc(c_bufsize +1); HGOTO_DONE(FAIL);
if (c_buf == NULL) return ret_value;
/* /*
* Call H5Aget_name function * Call H5Aget_name function
*/ */
c_attr_id = *attr_id; if ((ret_value = (int_f)H5Aget_name((hid_t)*attr_id, (size_t)*bufsize, c_buf)) < 0)
c_size = H5Aget_name(c_attr_id, c_bufsize, c_buf); HGOTO_DONE(FAIL);
if (c_size < 0) goto DONE;
/* /*
* Convert C name to FORTRAN and place it in the given buffer * Convert C name to FORTRAN and place it in the given buffer
*/ */
HD5packFstring(c_buf, _fcdtocp(buf), (int)c_bufsize); HD5packFstring(c_buf, _fcdtocp(buf), (size_t)*bufsize);
ret_value = (int_f)c_size;
DONE: done:
HDfree(c_buf); if(c_buf) HDfree(c_buf);
return ret_value; return ret_value;
} }

1190
fortran/src/H5Aff.f90
View File

File diff suppressed because it is too large Load Diff

35
fortran/src/H5f90proto.h
View File

@ -16,9 +16,8 @@
#ifndef _H5f90proto_H #ifndef _H5f90proto_H
#define _H5f90proto_H #define _H5f90proto_H
H5_DLL int HD5c2fstr(char *str, int len); H5_DLL char * HD5f2cstring (_fcd fdesc, size_t len);
H5_DLL char * HD5f2cstring (_fcd fdesc, int len); H5_DLL void HD5packFstring(char *src, char *dest, size_t len);
H5_DLL int HD5packFstring(char *src, char *dest, int len);
/* /*
* Functions from H5Ff.c * Functions from H5Ff.c
@ -463,12 +462,8 @@ H5_DLL int_f nh5gget_comment_c
# define nh5aopen_name_c FNAME(H5AOPEN_NAME_C) # define nh5aopen_name_c FNAME(H5AOPEN_NAME_C)
# define nh5awrite_c FNAME(H5AWRITE_C) # define nh5awrite_c FNAME(H5AWRITE_C)
# define nh5awritec_c FNAME(H5AWRITEC_C) # define nh5awritec_c FNAME(H5AWRITEC_C)
# define nh5awrite_c_b FNAME(H5AWRITE_C_B)
# define nh5awritec_c_b FNAME(H5AWRITEC_C_B)
# define nh5aread_c FNAME(H5AREAD_C) # define nh5aread_c FNAME(H5AREAD_C)
# define nh5areadc_c FNAME(H5AREADC_C) # define nh5areadc_c FNAME(H5AREADC_C)
# define nh5aread_c_b FNAME(H5AREAD_C_B)
# define nh5areadc_c_b FNAME(H5AREADC_C_B)
# define nh5aget_name_c FNAME(H5AGET_NAME_C) # define nh5aget_name_c FNAME(H5AGET_NAME_C)
# define nh5aopen_idx_c FNAME(H5AOPEN_IDX_C) # define nh5aopen_idx_c FNAME(H5AOPEN_IDX_C)
# define nh5aget_space_c FNAME(H5AGET_SPACE_C) # define nh5aget_space_c FNAME(H5AGET_SPACE_C)
@ -481,12 +476,8 @@ H5_DLL int_f nh5gget_comment_c
# define nh5aopen_name_c FNAME(h5aopen_name_c) # define nh5aopen_name_c FNAME(h5aopen_name_c)
# define nh5awrite_c FNAME(h5awrite_c) # define nh5awrite_c FNAME(h5awrite_c)
# define nh5awritec_c FNAME(h5awritec_c) # define nh5awritec_c FNAME(h5awritec_c)
# define nh5awrite_c_b FNAME(h5awrite_c_b)
# define nh5awritec_c_b FNAME(h5awritec_c_b)
# define nh5aread_c FNAME(h5aread_c) # define nh5aread_c FNAME(h5aread_c)
# define nh5areadc_c FNAME(h5areadc_c) # define nh5areadc_c FNAME(h5areadc_c)
# define nh5aread_c_b FNAME(h5aread_c_b)
# define nh5areadc_c_b FNAME(h5areadc_c_b)
# define nh5aget_name_c FNAME(h5aget_name_c) # define nh5aget_name_c FNAME(h5aget_name_c)
# define nh5aopen_idx_c FNAME(h5aopen_idx_c) # define nh5aopen_idx_c FNAME(h5aopen_idx_c)
# define nh5aget_space_c FNAME(h5aget_space_c) # define nh5aget_space_c FNAME(h5aget_space_c)
@ -497,30 +488,22 @@ H5_DLL int_f nh5gget_comment_c
#endif #endif
H5_DLL int_f nh5acreate_c (hid_t_f *obj_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *attr_id); H5_DLL int_f nh5acreate_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *attr_id);
H5_DLL int_f H5_DLL int_f
nh5aopen_name_c (hid_t_f *obj_id, _fcd name, int_f *namelen, hid_t_f *attr_id); nh5aopen_name_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_id);
H5_DLL int_f nh5awritec_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, int_f *dims); H5_DLL int_f nh5awritec_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_DLL int_f nh5awrite_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, int_f *dims); H5_DLL int_f nh5awrite_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_DLL int_f nh5awritec_c_b (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, hsize_t_f *dims); H5_DLL int_f nh5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_DLL int_f nh5awrite_c_b (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, hsize_t_f *dims); H5_DLL int_f nh5aread_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_DLL int_f nh5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, int_f *dims);
H5_DLL int_f nh5aread_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, int_f *dims);
H5_DLL int_f nh5areadc_c_b (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, hsize_t_f *dims);
H5_DLL int_f nh5aread_c_b (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, hsize_t_f *dims);
H5_DLL int_f nh5aclose_c ( hid_t_f *attr_id ); H5_DLL int_f nh5aclose_c ( hid_t_f *attr_id );
H5_DLL int_f nh5adelete_c (hid_t_f *obj_id, _fcd name, int_f *namelen); H5_DLL int_f nh5adelete_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen);
H5_DLL int_f nh5aopen_idx_c (hid_t_f *obj_id, int_f *idx, hid_t_f *attr_id); H5_DLL int_f nh5aopen_idx_c (hid_t_f *obj_id, int_f *idx, hid_t_f *attr_id);