diff options
Diffstat (limited to 'hl/fortran/src/H5LTf90proto.h')
-rwxr-xr-x | hl/fortran/src/H5LTf90proto.h | 525 |
1 files changed, 525 insertions, 0 deletions
diff --git a/hl/fortran/src/H5LTf90proto.h b/hl/fortran/src/H5LTf90proto.h new file mode 100755 index 0000000..29d99eb --- /dev/null +++ b/hl/fortran/src/H5LTf90proto.h @@ -0,0 +1,525 @@ + /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Copyright by the Board of Trustees of the University of Illinois. * + * All rights reserved. * + * * + * This file is part of HDF5. The full HDF5 copyright notice, including * + * terms governing use, modification, and redistribution, is contained in * + * the files COPYING and Copyright.html. COPYING can be found at the root * + * of the source code distribution tree; Copyright.html can be found at the * + * root level of an installed copy of the electronic HDF5 document set and * + * is linked from the top-level documents page. It can also be found at * + * http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have * + * access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ + + +#ifndef _H5LTf90proto_H +#define _H5LTf90proto_H + +#include "H5f90i.h" + +H5_DLL char* HD5f2cstring (_fcd fdesc, int len); +H5_DLL void HD5packFstring (char *src, char *dest, size_t len); + + +/* + * Functions from H5LTfc.c + */ +#ifndef H5Ff90_FNAMES +# define H5Ff90_FNAMES +#ifdef DF_CAPFNAMES +# define nh5ltmake_dataset_c FNAME(H5LTMAKE_DATASET_C) +# define nh5ltread_dataset_c FNAME(H5LTREAD_DATASET_C) +# define nh5ltmake_dataset_string_c FNAME(H5LTMAKE_DATASET_STRING_C) +# define nh5ltread_dataset_string_c FNAME(H5LTREAD_DATASET_STRING_C) + + +# define nh5ltset_attribute_int_c FNAME(H5LTSET_ATTRIBUTE_INT_C) +# define nh5ltset_attribute_float_c FNAME(H5LTSET_ATTRIBUTE_FLOAT_C) +# define nh5ltset_attribute_double_c FNAME(H5LTSET_ATTRIBUTE_DOUBLE_C) +# define nh5ltset_attribute_string_c FNAME(H5LTSET_ATTRIBUTE_STRING_C) + +# define nh5ltget_attribute_int_c FNAME(H5LTGET_ATTRIBUTE_INT_C) +# define nh5ltget_attribute_float_c FNAME(H5LTGET_ATTRIBUTE_FLOAT_C) +# define nh5ltget_attribute_double_c FNAME(H5LTGET_ATTRIBUTE_DOUBLE_C) +# define nh5ltget_attribute_string_c FNAME(H5LTGET_ATTRIBUTE_STRING_C) + +# define nh5ltget_dataset_ndims_c FNAME(H5LTGET_DATASET_NDIMS_C) +# define nh5ltfind_dataset_c FNAME(H5LTFIND_DATASET_C) +# define nh5ltget_dataset_info_c FNAME(H5LTGET_DATASET_INFO_C) + +# define nh5ltget_attribute_ndims_c FNAME(H5LTGET_ATTRIBUTE_NDIMS_C) +# define nh5ltget_attribute_info_c FNAME(H5LTGET_ATTRIBUTE_INFO_C) + +/*------------------------------------------------------------------------- + * Image + *------------------------------------------------------------------------- + */ +# define nh5immake_image_8bit_c FNAME(H5IMMAKE_IMAGE_8BIT_C) +# define nh5immake_image_24bit_c FNAME(H5IMMAKE_IMAGE_24BIT_C) +# define nh5imread_image_c FNAME(H5IMREAD_IMAGE_C) +# define nh5imget_image_info_c FNAME(H5IMGET_IMAGE_INFO_C) +# define nh5imis_image_c FNAME(H5IMIS_IMAGE_C) +# define nh5immake_palette_c FNAME(H5IMMAKE_PALETTE_C) +# define nh5imlink_palette_c FNAME(H5IMLINK_PALETTE_C) +# define nh5imunlink_palette_c FNAME(H5IMUNLINK_PALETTE_C) +# define nh5imget_npalettes_c FNAME(H5IMGET_NPALETTES_C) +# define nh5imget_palette_info_c FNAME(H5IMGET_PALETTE_INFO_C) +# define nh5imget_palette_c FNAME(H5IMGET_PALETTE_C) +# define nh5imis_palette_c FNAME(H5IMIS_PALETTE_C) + + /*------------------------------------------------------------------------- + * Table + *------------------------------------------------------------------------- + */ +# define nh5tbmake_table_c FNAME(H5TBMAKE_TABLE_C) +# define nh5tbwrite_field_name_c FNAME(H5TBWRITE_FIELD_NAME_C) +# define nh5tbread_field_name_c FNAME(H5TBREAD_FIELD_NAME_C) +# define nh5tbwrite_field_index_c FNAME(H5TBWRITE_FIELD_INDEX_C) +# define nh5tbread_field_index_c FNAME(H5TBREAD_FIELD_INDEX_C) +# define nh5tbinsert_field_c FNAME(H5TBINSERT_FIELD_C) +# define nh5tbdelete_field_c FNAME(H5TBDELETE_FIELD_C) +# define nh5tbget_table_info_c FNAME(H5TBGET_TABLE_INFO_C) +# define nh5tbget_field_info_c FNAME(H5TBGET_FIELD_INFO_C) + + + + + +#else /* !DF_CAPFNAMES */ + +# define nh5ltmake_dataset_c FNAME(h5ltmake_dataset_c) +# define nh5ltread_dataset_c FNAME(h5ltread_dataset_c) +# define nh5ltmake_dataset_string_c FNAME(h5ltmake_dataset_string_c) +# define nh5ltread_dataset_string_c FNAME(h5ltread_dataset_string_c) + +# define nh5ltset_attribute_int_c FNAME(h5ltset_attribute_int_c) +# define nh5ltset_attribute_float_c FNAME(h5ltset_attribute_float_c) +# define nh5ltset_attribute_double_c FNAME(h5ltset_attribute_double_c) +# define nh5ltset_attribute_string_c FNAME(h5ltset_attribute_string_c) + +# define nh5ltget_attribute_int_c FNAME(h5ltget_attribute_int_c) +# define nh5ltget_attribute_float_c FNAME(h5ltget_attribute_float_c) +# define nh5ltget_attribute_double_c FNAME(h5ltget_attribute_double_c) +# define nh5ltget_attribute_string_c FNAME(h5ltget_attribute_string_c) + +# define nh5ltget_dataset_ndims_c FNAME(h5ltget_dataset_ndims_c) +# define nh5ltfind_dataset_c FNAME(h5ltfind_dataset_c) +# define nh5ltget_dataset_info_c FNAME(h5ltget_dataset_info_c) + +# define nh5ltget_attribute_ndims_c FNAME(h5ltget_attribute_ndims_c) +# define nh5ltget_attribute_info_c FNAME(h5ltget_attribute_info_c) + +/*------------------------------------------------------------------------- + * Image + *------------------------------------------------------------------------- + */ +# define nh5immake_image_8bit_c FNAME(h5immake_image_8bit_c) +# define nh5immake_image_24bit_c FNAME(h5immake_image_24bit_c) +# define nh5imread_image_c FNAME(h5imread_image_c) +# define nh5imget_image_info_c FNAME(h5imget_image_info_c) +# define nh5imis_image_c FNAME(h5imis_image_c) +# define nh5immake_palette_c FNAME(h5immake_palette_c) +# define nh5imlink_palette_c FNAME(h5imlink_palette_c) +# define nh5imunlink_palette_c FNAME(h5imunlink_palette_c) +# define nh5imget_npalettes_c FNAME(h5imget_npalettes_c) +# define nh5imget_palette_info_c FNAME(h5imget_palette_info_c) +# define nh5imget_palette_c FNAME(h5imget_palette_c) +# define nh5imis_palette_c FNAME(h5imis_palette_c) + +/*------------------------------------------------------------------------- + * Table + *------------------------------------------------------------------------- + */ +# define nh5tbmake_table_c FNAME(h5tbmake_table_c) +# define nh5tbwrite_field_name_c FNAME(h5tbwrite_field_name_c) +# define nh5tbread_field_name_c FNAME(h5tbread_field_name_c) +# define nh5tbwrite_field_index_c FNAME(h5tbwrite_field_index_c) +# define nh5tbread_field_index_c FNAME(h5tbread_field_index_c) +# define nh5tbinsert_field_c FNAME(h5tbinsert_field_c) +# define nh5tbdelete_field_c FNAME(h5tbdelete_field_c) +# define nh5tbget_table_info_c FNAME(h5tbget_table_info_c) +# define nh5tbget_field_info_c FNAME(h5tbget_field_info_c) + + + + + + + + + + + +#endif /* DF_CAPFNAMES */ +#endif /* H5Ff90_FNAMES */ + +H5_DLL +int_f +nh5ltmake_dataset_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank, + hsize_t_f *dims, + hid_t_f *type_id, + void *buf); + +H5_DLL +int_f +nh5ltread_dataset_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hid_t_f *type_id, + void *buf, + hsize_t_f *dims); + + +H5_DLL +int_f +nh5ltset_attribute_int_c(hid_t_f *loc_id, + int_f *namelen, + _fcd dsetname, + int_f *attrnamelen, + _fcd attrname, + size_t_f *size, + void *buf); + +H5_DLL +int_f +nh5ltset_attribute_float_c(hid_t_f *loc_id, + int_f *namelen, + _fcd dsetname, + int_f *attrnamelen, + _fcd attrname, + size_t_f *size, + void *buf); + +H5_DLL +int_f +nh5ltset_attribute_double_c(hid_t_f *loc_id, + int_f *namelen, + _fcd dsetname, + int_f *attrnamelen, + _fcd attrname, + size_t_f *size, + void *buf); + +H5_DLL +int_f +nh5ltset_attribute_string_c(hid_t_f *loc_id, + int_f *namelen, + _fcd dsetname, + int_f *attrnamelen, + _fcd attrname, + void *buf); + + +H5_DLL +int_f +nh5ltget_attribute_int_c(hid_t_f *loc_id, + int_f *namelen, + _fcd dsetname, + int_f *attrnamelen, + _fcd attrname, + void *buf); + +H5_DLL +int_f +nh5ltget_attribute_float_c(hid_t_f *loc_id, + int_f *namelen, + _fcd dsetname, + int_f *attrnamelen, + _fcd attrname, + void *buf); + +H5_DLL +int_f +nh5ltget_attribute_double_c(hid_t_f *loc_id, + int_f *namelen, + _fcd dsetname, + int_f *attrnamelen, + _fcd attrname, + void *buf); + +H5_DLL +int_f +nh5ltget_attribute_string_c(hid_t_f *loc_id, + int_f *namelen, + _fcd dsetname, + int_f *attrnamelen, + _fcd attrname, + void *buf); + +H5_DLL +int_f +h5ltget_dataset_ndims_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *rank); + +H5_DLL +int_f +nh5ltfind_dataset_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name); + +H5_DLL +int_f +nh5ltget_dataset_info_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hsize_t_f *dims, + int_f *type_class, + size_t_f *type_size); + +H5_DLL +int_f +nh5ltget_attribute_ndims_c(hid_t_f *loc_id, + int_f *namelen, + _fcd dsetname, + int_f *attrnamelen, + _fcd attrname, + int_f *rank); +H5_DLL +int_f +nh5ltget_attribute_info_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *attrnamelen, + _fcd attrname, + hsize_t_f *dims, + int_f *type_class, + size_t_f *type_size); + +H5_DLL +int_f +nh5ltmake_dataset_string_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + char *buf); + +H5_DLL +int_f +nh5ltread_dataset_string_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + char *buf); + +/*------------------------------------------------------------------------- + * Image + *------------------------------------------------------------------------- + */ + +H5_DLL +int_f +nh5immake_image_8bit_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hsize_t_f *width, + hsize_t_f *height, + unsigned char *buf); +H5_DLL +int_f +nh5imread_image_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + unsigned char *buf); + +H5_DLL +int_f +nh5immake_image_24bit_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *ilen, + _fcd il, + hsize_t_f *width, + hsize_t_f *height, + unsigned char *buf); +H5_DLL +int_f +nh5imget_image_info_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hsize_t_f *width, + hsize_t_f *height, + hsize_t_f *planes, + hsize_t_f *npals, + int_f *ilen, + _fcd interlace); + + +H5_DLL +int_f +nh5imis_image_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name); + + +H5_DLL +int_f +nh5immake_palette_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hsize_t_f *dims, + unsigned char *buf); + +H5_DLL +int_f +nh5imlink_palette_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *ilen, + _fcd pal_name); + +H5_DLL +int_f +nh5imunlink_palette_c (hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *ilen, + _fcd pal_name); + +H5_DLL +int_f +nh5imget_npalettes_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hsize_t_f *npals); + + +H5_DLL +int_f +nh5imget_palette_info_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *pal_number, + hsize_t_f *dims); + +H5_DLL +int_f +nh5imget_palette_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *pal_number, + unsigned char *buf); + +H5_DLL +int_f +nh5imis_palette_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name); + + + +/*------------------------------------------------------------------------- + * Table + *------------------------------------------------------------------------- + */ + +H5_DLL +int_f +nh5tbmake_table_c(int_f *namelen1, + _fcd name1, + hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hsize_t_f *nfields, + hsize_t_f *nrecords, + size_t_f *type_size, + size_t_f *field_offset, + hid_t_f *field_types, + hsize_t_f *chunk_size, + int_f *compress, + int_f *len, /* field_names lenghts */ + _fcd buf); /* field_names */ + +H5_DLL +int_f +nh5tbwrite_field_name_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbread_field_name_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbwrite_field_index_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbread_field_index_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *field_index, + hsize_t_f *start, + hsize_t_f *nrecords, + size_t_f *type_size, + void *buf); + +H5_DLL +int_f +nh5tbinsert_field_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name, + hid_t_f *field_type, + int_f *position, + void *buf); + +H5_DLL +int_f +nh5tbdelete_field_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + int_f *namelen1, + _fcd field_name); + + +H5_DLL +int_f +nh5tbget_table_info_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hsize_t_f *nfields, + hsize_t_f *nrecords); + +H5_DLL +int_f +nh5tbget_field_info_c(hid_t_f *loc_id, + int_f *namelen, + _fcd name, + hsize_t_f *nfields, + size_t_f *field_sizes, + size_t_f *field_offsets, + size_t_f *type_size, + int_f *namelen2, /* field_names lenghts */ + _fcd field_names) ; /* field_names */ + + + + +#endif /* _H5LTf90proto_H */ |