diff options
Diffstat (limited to 'fortran')
-rw-r--r-- | fortran/Makefile.in | 1 | ||||
-rw-r--r-- | fortran/examples/Makefile.in | 1 | ||||
-rw-r--r-- | fortran/src/H5f90i.h | 43 | ||||
-rw-r--r-- | fortran/src/H5f90proto.h | 952 | ||||
-rw-r--r-- | fortran/src/Makefile.am | 2 | ||||
-rw-r--r-- | fortran/src/Makefile.in | 2 | ||||
-rw-r--r-- | fortran/test/Makefile.in | 1 | ||||
-rw-r--r-- | fortran/test/t.h | 12 | ||||
-rw-r--r-- | fortran/testpar/Makefile.in | 1 |
9 files changed, 314 insertions, 701 deletions
diff --git a/fortran/Makefile.in b/fortran/Makefile.in index 1824417..0b44d5b 100644 --- a/fortran/Makefile.in +++ b/fortran/Makefile.in @@ -139,6 +139,7 @@ F9XMODFLAG = @F9XMODFLAG@ F9XSUFFIXFLAG = @F9XSUFFIXFLAG@ FC = @FC@ FCFLAGS = @FCFLAGS@ +FCLIBS = @FCLIBS@ FFLAGS = @FFLAGS@ FILTERS = @FILTERS@ FSEARCH_DIRS = @FSEARCH_DIRS@ diff --git a/fortran/examples/Makefile.in b/fortran/examples/Makefile.in index 83c0fdc..113e5b1 100644 --- a/fortran/examples/Makefile.in +++ b/fortran/examples/Makefile.in @@ -127,6 +127,7 @@ F9XMODFLAG = @F9XMODFLAG@ F9XSUFFIXFLAG = @F9XSUFFIXFLAG@ FC = @FC@ FCFLAGS = @FCFLAGS@ +FCLIBS = @FCLIBS@ FFLAGS = @FFLAGS@ FILTERS = @FILTERS@ FSEARCH_DIRS = @FSEARCH_DIRS@ diff --git a/fortran/src/H5f90i.h b/fortran/src/H5f90i.h index 77d6714..c1a390c 100644 --- a/fortran/src/H5f90i.h +++ b/fortran/src/H5f90i.h @@ -34,8 +34,6 @@ typedef long size_t_f; typedef long int_f; typedef long hid_t_f; typedef double real_f; -#define DF_CAPFNAMES -/*#define _fcdtocp(desc) (desc)*/ #endif /* UNICOS */ @@ -62,10 +60,6 @@ typedef int size_t_f; typedef int int_f; typedef int hid_t_f; typedef float real_f; -#define FNAME(x) x -#if defined H5_ABSOFT -#define DF_CAPFNAMES -#endif /*H5_ABSOFT*/ #define _fcdtocp(desc) (desc) #endif /*APPLE*/ @@ -87,11 +81,6 @@ typedef long long haddr_t_f; typedef long long hsize_t_f; typedef long long hssize_t_f; typedef int size_t_f; -#if defined H5_ABSOFT -#define DF_CAPFNAMES -#else -#define FNAME_POST_UNDERSCORE -#endif /*H5_ABSOFT*/ /* AMD64 specific definitions */ #elif defined __x86_64__ @@ -100,7 +89,6 @@ typedef long long haddr_t_f; typedef long long hsize_t_f; typedef long long hssize_t_f; typedef int size_t_f; -#define FNAME_POST_UNDERSCORE /* IA64 specific definitions */ #elif defined __ia64 @@ -109,7 +97,6 @@ typedef long haddr_t_f; typedef long hsize_t_f; typedef long hssize_t_f; typedef long size_t_f; -#define FNAME_POST_UNDERSCORE #endif /* IA64 */ #endif /* LINUX*/ @@ -124,7 +111,6 @@ typedef long size_t_f; typedef int int_f; typedef int hid_t_f; typedef float real_f; -#define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #endif /* IRIX */ @@ -138,7 +124,6 @@ typedef int size_t_f; typedef int int_f; typedef int hid_t_f; typedef float real_f; -#define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #endif /*SUN*/ @@ -153,7 +138,6 @@ typedef long size_t_f; typedef int int_f; typedef int hid_t_f; typedef float real_f; -#define FNAME_POST_UNDERSCORE #define _fcdtocp(desc) (desc) #endif /* DEC_ALPHA */ @@ -168,7 +152,6 @@ typedef long long size_t_f; typedef int int_f; typedef int hid_t_f; typedef float real_f; -#define FNAME_POST2_UNDERSCORE #define _fcdtocp(desc) (desc) #endif /* DEC_ALPHA_LINUX */ @@ -199,7 +182,6 @@ typedef int int_f; typedef int hid_t_f; typedef float real_f; -#define DF_CAPFNAMES #define _fcdtocp(desc) (desc) #endif /*WINDOWS */ @@ -234,32 +216,7 @@ typedef long hssize_t_f; typedef long size_t_f; #endif /* IA64 */ -#define FNAME_POST_UNDERSCORE #endif /* FreeBSD */ -/*---------------------------------------------------------------- -** MACRO FNAME for any fortran callable routine name. -** -** This macro prepends, appends, or does not modify a name -** passed as a macro parameter to it based on the FNAME_PRE_UNDERSCORE, -** FNAME_POST_UNDERSCORE macros set for a specific system. -** -**---------------------------------------------------------------*/ -#if defined(FNAME_PRE_UNDERSCORE) && defined(FNAME_POST_UNDERSCORE) -# define FNAME(x) _##x##_ -#endif -#if defined(FNAME_PRE_UNDERSCORE) && !defined(FNAME_POST_UNDERSCORE) -# define FNAME(x) _##x -#endif -#if !defined(FNAME_PRE_UNDERSCORE) && defined(FNAME_POST_UNDERSCORE) -# define FNAME(x) x##_ -#endif -#if !defined(FNAME_PRE_UNDERSCORE) && !defined(FNAME_POST_UNDERSCORE) -# define FNAME(x) x -#endif -#if !defined(FNAME_PRE_UNDERSCORE) && defined(FNAME_POST2_UNDERSCORE) -# define FNAME(x) x##__ -#endif - #endif /* _H5f90i_H */ diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h index 7114ebf..a882075 100644 --- a/fortran/src/H5f90proto.h +++ b/fortran/src/H5f90proto.h @@ -16,48 +16,29 @@ #ifndef _H5f90proto_H #define _H5f90proto_H +#include "H5config.h" + H5_FCDLL char * HD5f2cstring (_fcd fdesc, size_t len); H5_FCDLL void HD5packFstring(char *src, char *dest, size_t len); /* * Functions from H5Ff.c */ -#ifndef H5Ff90_FNAMES -# define H5Ff90_FNAMES -#ifdef DF_CAPFNAMES -# define nh5fcreate_c FNAME(H5FCREATE_C) -# define nh5fflush_c FNAME(H5FFLUSH_C) -# define nh5fclose_c FNAME(H5FCLOSE_C) -# define nh5fopen_c FNAME(H5FOPEN_C) -# define nh5fis_hdf5_c FNAME(H5FIS_HDF5_C) -# define nh5fmount_c FNAME(H5FMOUNT_C) -# define nh5funmount_c FNAME(H5FUNMOUNT_C) -# define nh5freopen_c FNAME(H5FREOPEN_C) -# define nh5fget_create_plist_c FNAME(H5FGET_CREATE_PLIST_C) -# define nh5fget_access_plist_c FNAME(H5FGET_ACCESS_PLIST_C) -# define nh5fget_obj_count_c FNAME(H5FGET_OBJ_COUNT_C) -# define nh5fget_obj_ids_c FNAME(H5FGET_OBJ_IDS_C) -# define nh5fget_freespace_c FNAME(H5FGET_FREESPACE_C) -# define nh5fget_name_c FNAME(H5FGET_NAME_C) -# define nh5fget_filesize_c FNAME(H5FGET_FILESIZE_C) -#else /* !DF_CAPFNAMES */ -# define nh5fcreate_c FNAME(h5fcreate_c) -# define nh5fflush_c FNAME(h5fflush_c) -# define nh5fclose_c FNAME(h5fclose_c) -# define nh5fopen_c FNAME(h5fopen_c) -# define nh5fis_hdf5_c FNAME(h5fis_hdf5_c) -# define nh5fmount_c FNAME(h5fmount_c) -# define nh5funmount_c FNAME(h5funmount_c) -# define nh5freopen_c FNAME(h5freopen_c) -# define nh5fget_create_plist_c FNAME(h5fget_create_plist_c) -# define nh5fget_access_plist_c FNAME(h5fget_access_plist_c) -# define nh5fget_obj_count_c FNAME(h5fget_obj_count_c) -# define nh5fget_obj_ids_c FNAME(h5fget_obj_ids_c) -# define nh5fget_freespace_c FNAME(h5fget_freespace_c) -# define nh5fget_name_c FNAME(h5fget_name_c) -# define nh5fget_filesize_c FNAME(h5fget_filesize_c) -#endif /* DF_CAPFNAMES */ -#endif /* H5Ff90_FNAMES */ +# define nh5fcreate_c FC_FUNC_(h5fcreate_c, H5FCREATE_C) +# define nh5fflush_c FC_FUNC_(h5fflush_c, H5FFLUSH_C) +# define nh5fclose_c FC_FUNC_(h5fclose_c, H5FCLOSE_C) +# define nh5fopen_c FC_FUNC_(h5fopen_c, H5FOPEN_C) +# define nh5fis_hdf5_c FC_FUNC_(h5fis_hdf5_c, H5FIS_HDF5_C) +# define nh5fmount_c FC_FUNC_(h5fmount_c, H5FMOUNT_C) +# define nh5funmount_c FC_FUNC_(h5funmount_c, H5FUNMOUNT_C) +# define nh5freopen_c FC_FUNC_(h5freopen_c, H5FREOPEN_C) +# define nh5fget_create_plist_c FC_FUNC_(h5fget_create_plist_c, H5FGET_CREATE_PLIST_C) +# define nh5fget_access_plist_c FC_FUNC_(h5fget_access_plist_c, H5FGET_ACCESS_PLIST_C) +# define nh5fget_obj_count_c FC_FUNC_(h5fget_obj_count_c, H5FGET_OBJ_COUNT_C) +# define nh5fget_obj_ids_c FC_FUNC_(h5fget_obj_ids_c, H5FGET_OBJ_IDS_C) +# define nh5fget_freespace_c FC_FUNC_(h5fget_freespace_c, H5FGET_FREESPACE_C) +# define nh5fget_name_c FC_FUNC_(h5fget_name_c, H5FGET_NAME_C) +# define nh5fget_filesize_c FC_FUNC_(h5fget_filesize_c, H5FGET_FILESIZE_C) H5_FCDLL int_f nh5fcreate_c (_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *crt_prp, hid_t_f *acc_prp, hid_t_f *file_id); H5_FCDLL int_f nh5fopen_c (_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *acc_prp, hid_t_f *file_id); @@ -78,70 +59,35 @@ H5_FCDLL int_f nh5fget_filesize_c(hid_t_f *file_id, hsize_t_f *size); /* * Functions from H5Sf.c */ -#ifndef H5Sf90_FNAMES -# define H5Sf90_FNAMES -#ifdef DF_CAPFNAMES -# define nh5screate_simple_c FNAME(H5SCREATE_SIMPLE_C) -# define nh5sclose_c FNAME(H5SCLOSE_C) -# define nh5screate_c FNAME(H5SCREATE_C) -# define nh5scopy_c FNAME(H5SCOPY_C) -# define nh5sget_select_hyper_nblocks_c FNAME(H5SGET_SELECT_HYPER_NBLOCKS_C) -# define nh5sget_select_hyper_blocklist_c FNAME(H5SGET_SELECT_HYPER_BLOCKLIST_C) -# define nh5sget_select_elem_npoints_c FNAME(H5SGET_SELECT_ELEM_NPOINTS_C) -# define nh5sget_select_elem_pointlist_c FNAME(H5SGET_SELECT_ELEM_POINTLIST_C) -# define nh5sget_select_bounds_c FNAME(H5SGET_SELECT_BOUNDS_C) -# define nh5sselect_all_c FNAME(H5SSELECT_ALL_C) -# define nh5sselect_none_c FNAME(H5SSELECT_NONE_C) -# define nh5sselect_valid_c FNAME(H5SSELECT_VALID_C) -# define nh5sget_simple_extent_npoints_c FNAME(H5SGET_SIMPLE_EXTENT_NPOINTS_C) -# define nh5sget_select_npoints_c FNAME(H5SGET_SELECT_NPOINTS_C) -# define nh5sget_simple_extent_ndims_c FNAME(H5SGET_SIMPLE_EXTENT_NDIMS_C) -# define nh5sget_simple_extent_type_c FNAME(H5SGET_SIMPLE_EXTENT_TYPE_C) -# define nh5soffset_simple_c FNAME(H5SOFFSET_SIMPLE_C) -# define nh5sset_extent_simple_c FNAME(H5SSET_EXTENT_SIMPLE_C) -# define nh5sis_simple_c FNAME(H5SIS_SIMPLE_C) -# define nh5sextent_class_c FNAME(H5SEXTENT_CLASS_C) -# define nh5sget_simple_extent_dims_c FNAME(H5SGET_SIMPLE_EXTENT_DIMS_C) -# define nh5sextent_copy_c FNAME(H5SEXTENT_COPY_C) -# define nh5sset_extent_none_c FNAME(H5SSET_EXTENT_NONE_C) -# define nh5sselect_hyperslab_c FNAME(H5SSELECT_HYPERSLAB_C) -# define nh5scombine_hyperslab_c FNAME(H5SCOMBINE_HYPERSLAB_C) -# define nh5scombine_select_c FNAME(H5SCOMBINE_SELECT_C) -# define nh5sselect_select_c FNAME(H5SSELECT_SELECT_C) -# define nh5sget_select_type_c FNAME(H5SGET_SELECT_TYPE_C) -# define nh5sselect_elements_c FNAME(H5SSELECT_ELEMENTS_C) -#else /* !DF_CAPFNAMES */ -# define nh5screate_simple_c FNAME(h5screate_simple_c) -# define nh5sclose_c FNAME(h5sclose_c) -# define nh5screate_c FNAME(h5screate_c) -# define nh5scopy_c FNAME(h5scopy_c) -# define nh5sget_select_hyper_nblocks_c FNAME(h5sget_select_hyper_nblocks_c) -# define nh5sget_select_hyper_blocklist_c FNAME(h5sget_select_hyper_blocklist_c) -# define nh5sget_select_elem_npoints_c FNAME(h5sget_select_elem_npoints_c) -# define nh5sget_select_bounds_c FNAME(h5sget_select_bounds_c) -# define nh5sget_select_elem_pointlist_c FNAME(h5sget_select_elem_pointlist_c) -# define nh5sselect_all_c FNAME(h5sselect_all_c) -# define nh5sselect_none_c FNAME(h5sselect_none_c) -# define nh5sselect_valid_c FNAME(h5sselect_valid_c) -# define nh5sget_simple_extent_npoints_c FNAME(h5sget_simple_extent_npoints_c) -# define nh5sget_select_npoints_c FNAME(h5sget_select_npoints_c) -# define nh5sget_simple_extent_ndims_c FNAME(h5sget_simple_extent_ndims_c) -# define nh5sget_simple_extent_type_c FNAME(h5sget_simple_extent_type_c) -# define nh5soffset_simple_c FNAME(h5soffset_simple_c) -# define nh5sset_extent_simple_c FNAME(h5sset_extent_simple_c) -# define nh5sis_simple_c FNAME(h5sis_simple_c) -# define nh5sextent_class_c FNAME(h5sextent_class_c) -# define nh5sget_simple_extent_dims_c FNAME(h5sget_simple_extent_dims_c) -# define nh5sextent_copy_c FNAME(h5sextent_copy_c) -# define nh5sset_extent_none_c FNAME(h5sset_extent_none_c) -# define nh5sselect_hyperslab_c FNAME(h5sselect_hyperslab_c) -# define nh5scombine_hyperslab_c FNAME(h5scombine_hyperslab_c) -# define nh5scombine_select_c FNAME(h5scombine_select_c) -# define nh5sselect_select_c FNAME(h5sselect_select_c) -# define nh5sget_select_type_c FNAME(h5sget_select_type_c) -# define nh5sselect_elements_c FNAME(h5sselect_elements_c) -#endif /* DF_CAPFNAMES */ -#endif +# define nh5screate_simple_c FC_FUNC_(h5screate_simple_c, H5SCREATE_SIMPLE_C) +# define nh5sclose_c FC_FUNC_(h5sclose_c, H5SCLOSE_C) +# define nh5screate_c FC_FUNC_(h5screate_c, H5SCREATE_C) +# define nh5scopy_c FC_FUNC_(h5scopy_c, H5SCOPY_C) +# define nh5sget_select_hyper_nblocks_c FC_FUNC_(h5sget_select_hyper_nblocks_c, H5SGET_SELECT_HYPER_NBLOCKS_C) +# define nh5sget_select_hyper_blocklist_c FC_FUNC_(h5sget_select_hyper_blocklist_c, H5SGET_SELECT_HYPER_BLOCKLIST_C) +# define nh5sget_select_elem_npoints_c FC_FUNC_(h5sget_select_elem_npoints_c, H5SGET_SELECT_ELEM_NPOINTS_C) +# define nh5sget_select_elem_pointlist_c FC_FUNC_(h5sget_select_elem_pointlist_c, H5SGET_SELECT_ELEM_POINTLIST_C) +# define nh5sget_select_bounds_c FC_FUNC_(h5sget_select_bounds_c, H5SGET_SELECT_BOUNDS_C) +# define nh5sselect_all_c FC_FUNC_(h5sselect_all_c, H5SSELECT_ALL_C) +# define nh5sselect_none_c FC_FUNC_(h5sselect_none_c, H5SSELECT_NONE_C) +# define nh5sselect_valid_c FC_FUNC_(h5sselect_valid_c, H5SSELECT_VALID_C) +# define nh5sget_simple_extent_npoints_c FC_FUNC_(h5sget_simple_extent_npoints_c, H5SGET_SIMPLE_EXTENT_NPOINTS_C) +# define nh5sget_select_npoints_c FC_FUNC_(h5sget_select_npoints_c, H5SGET_SELECT_NPOINTS_C) +# define nh5sget_simple_extent_ndims_c FC_FUNC_(h5sget_simple_extent_ndims_c, H5SGET_SIMPLE_EXTENT_NDIMS_C) +# define nh5sget_simple_extent_type_c FC_FUNC_(h5sget_simple_extent_type_c, H5SGET_SIMPLE_EXTENT_TYPE_C) +# define nh5soffset_simple_c FC_FUNC_(h5soffset_simple_c, H5SOFFSET_SIMPLE_C) +# define nh5sset_extent_simple_c FC_FUNC_(h5sset_extent_simple_c, H5SSET_EXTENT_SIMPLE_C) +# define nh5sis_simple_c FC_FUNC_(h5sis_simple_c, H5SIS_SIMPLE_C) +# define nh5sextent_class_c FC_FUNC_(h5sextent_class_c, H5SEXTENT_CLASS_C) +# define nh5sget_simple_extent_dims_c FC_FUNC_(h5sget_simple_extent_dims_c, H5SGET_SIMPLE_EXTENT_DIMS_C) +# define nh5sextent_copy_c FC_FUNC_(h5sextent_copy_c, H5SEXTENT_COPY_C) +# define nh5sset_extent_none_c FC_FUNC_(h5sset_extent_none_c, H5SSET_EXTENT_NONE_C) +# define nh5sselect_hyperslab_c FC_FUNC_(h5sselect_hyperslab_c, H5SSELECT_HYPERSLAB_C) +# define nh5scombine_hyperslab_c FC_FUNC_(h5scombine_hyperslab_c, H5SCOMBINE_HYPERSLAB_C) +# define nh5scombine_select_c FC_FUNC_(h5scombine_select_c, H5SCOMBINE_SELECT_C) +# define nh5sselect_select_c FC_FUNC_(h5sselect_select_c, H5SSELECT_SELECT_C) +# define nh5sget_select_type_c FC_FUNC_(h5sget_select_type_c, H5SGET_SELECT_TYPE_C) +# define nh5sselect_elements_c FC_FUNC_(h5sselect_elements_c, H5SSELECT_ELEMENTS_C) H5_FCDLL int_f nh5screate_simple_c ( int_f *rank, hsize_t_f *dims, hsize_t_f *maxdims, hid_t_f *space_id ); H5_FCDLL int_f nh5sclose_c ( hid_t_f *space_id ); @@ -176,66 +122,35 @@ H5_FCDLL int_f nh5sselect_select_c ( hid_t_f *space1_id , int_f *op, hid_t_f *sp /* * Functions from H5Df.c */ -#ifndef H5Df90_FNAMES -# define H5Df90_FNAMES -#ifdef DF_CAPFNAMES -# define nh5dcreate_c FNAME(H5DCREATE_C) -# define nh5dclose_c FNAME(H5DCLOSE_C) -# define nh5dopen_c FNAME(H5DOPEN_C) -# define nh5dwrite_c FNAME(H5DWRITE_C) -# define nh5dwrite_ref_obj_c FNAME(H5DWRITE_REF_OBJ_C) -# define nh5dwrite_ref_reg_c FNAME(H5DWRITE_REF_REG_C) -# define nh5dwritec_c FNAME(H5DWRITEC_C) -# define nh5dread_c FNAME(H5DREAD_C) -# define nh5dread_c_b FNAME(H5DREAD_C_B) -# define nh5dread_ref_reg_c FNAME(H5DREAD_REF_REG_C) -# define nh5dread_ref_obj_c FNAME(H5DREAD_REF_OBJ_C) -# define nh5dreadc_c FNAME(H5DREADC_C) -# define nh5dreadc_c_b FNAME(H5DREADC_C_B) -# define nh5dget_space_c FNAME(H5DGET_SPACE_C) -# define nh5dget_type_c FNAME(H5DGET_TYPE_C) -# define nh5dget_create_plist_c FNAME(H5DGET_CREATE_PLIST_C) -# define nh5dextend_c FNAME(H5DEXTEND_C) -# define nh5dget_storage_size_c FNAME(H5DGET_STORAGE_SIZE_C) -# define nh5dvlen_get_max_len_c FNAME(H5DVLEN_GET_MAX_LEN_C) -# define nh5dwrite_vl_integer_c FNAME(H5DWRITE_VL_INTEGER_C) -# define nh5dread_vl_integer_c FNAME(H5DREAD_VL_INTEGER_C) -# define nh5dwrite_vl_real_c FNAME(H5DWRITE_VL_REAL_C) -# define nh5dread_vl_real_c FNAME(H5DREAD_VL_REAL_C) -# define nh5dwrite_vl_string_c FNAME(H5DWRITE_VL_STRING_C) -# define nh5dread_vl_string_c FNAME(H5DREAD_VL_STRING_C) -# define nh5dfillc_c FNAME(H5DFILLC_C) -# define nh5dfill_c FNAME(H5DFILL_C) -# define nh5dget_space_status_c FNAME(H5DGET_SPACE_STATUS_C) -#else /* !DF_CAPFNAMES */ -# define nh5dcreate_c FNAME(h5dcreate_c) -# define nh5dclose_c FNAME(h5dclose_c) -# define nh5dopen_c FNAME(h5dopen_c) -# define nh5dwrite_c FNAME(h5dwrite_c) -# define nh5dwritec_c FNAME(h5dwritec_c) -# define nh5dwrite_ref_obj_c FNAME(h5dwrite_ref_obj_c) -# define nh5dwrite_ref_reg_c FNAME(h5dwrite_ref_reg_c) -# define nh5dread_c FNAME(h5dread_c) -# define nh5dread_ref_reg_c FNAME(h5dread_ref_reg_c) -# define nh5dread_ref_obj_c FNAME(h5dread_ref_obj_c) -# define nh5dreadc_c FNAME(h5dreadc_c) -# define nh5dget_space_c FNAME(h5dget_space_c) -# define nh5dget_type_c FNAME(h5dget_type_c) -# define nh5dget_create_plist_c FNAME(h5dget_create_plist_c) -# define nh5dextend_c FNAME(h5dextend_c) -# define nh5dget_storage_size_c FNAME(h5dget_storage_size_c) -# define nh5dvlen_get_max_len_c FNAME(h5dvlen_get_max_len_c) -# define nh5dwrite_vl_integer_c FNAME(h5dwrite_vl_integer_c) -# define nh5dread_vl_integer_c FNAME(h5dread_vl_integer_c) -# define nh5dwrite_vl_real_c FNAME(h5dwrite_vl_real_c) -# define nh5dread_vl_real_c FNAME(h5dread_vl_real_c) -# define nh5dwrite_vl_string_c FNAME(h5dwrite_vl_string_c) -# define nh5dread_vl_string_c FNAME(h5dread_vl_string_c) -# define nh5dfillc_c FNAME(h5dfillc_c) -# define nh5dfill_c FNAME(h5dfill_c) -# define nh5dget_space_status_c FNAME(h5dget_space_status_c) -#endif /* DF_CAPFNAMES */ -#endif +# define nh5dcreate_c FC_FUNC_(h5dcreate_c, H5DCREATE_C) +# define nh5dclose_c FC_FUNC_(h5dclose_c, H5DCLOSE_C) +# define nh5dopen_c FC_FUNC_(h5dopen_c, H5DOPEN_C) +# define nh5dwrite_c FC_FUNC_(h5dwrite_c, H5DWRITE_C) +# define nh5dwrite_ref_obj_c FC_FUNC_(h5dwrite_ref_obj_c, H5DWRITE_REF_OBJ_C) +# define nh5dwrite_ref_reg_c FC_FUNC_(h5dwrite_ref_reg_c, H5DWRITE_REF_REG_C) +# define nh5dwritec_c FC_FUNC_(h5dwritec_c, H5DWRITEC_C) +# define nh5dread_c FC_FUNC_(h5dread_c, H5DREAD_C) +# define nh5dread_c_b FC_FUNC_(h5dread_c_b, H5DREAD_C_B) +# define nh5dread_ref_reg_c FC_FUNC_(h5dread_ref_reg_c, H5DREAD_REF_REG_C) +# define nh5dread_ref_obj_c FC_FUNC_(h5dread_ref_obj_c, H5DREAD_REF_OBJ_C) +# define nh5dreadc_c FC_FUNC_(h5dreadc_c, H5DREADC_C) +# define nh5dreadc_c_b FC_FUNC_(h5dreadc_c_b, H5DREADC_C_B) +# define nh5dget_space_c FC_FUNC_(h5dget_space_c, H5DGET_SPACE_C) +# define nh5dget_type_c FC_FUNC_(h5dget_type_c, H5DGET_TYPE_C) +# define nh5dget_create_plist_c FC_FUNC_(h5dget_create_plist_c, H5DGET_CREATE_PLIST_C) +# define nh5dextend_c FC_FUNC_(h5dextend_c, H5DEXTEND_C) +# define nh5dget_storage_size_c FC_FUNC_(h5dget_storage_size_c, H5DGET_STORAGE_SIZE_C) +# define nh5dvlen_get_max_len_c FC_FUNC_(h5dvlen_get_max_len_c, H5DVLEN_GET_MAX_LEN_C) +# define nh5dwrite_vl_integer_c FC_FUNC_(h5dwrite_vl_integer_c, H5DWRITE_VL_INTEGER_C) +# define nh5dread_vl_integer_c FC_FUNC_(h5dread_vl_integer_c, H5DREAD_VL_INTEGER_C) +# define nh5dwrite_vl_real_c FC_FUNC_(h5dwrite_vl_real_c, H5DWRITE_VL_REAL_C) +# define nh5dread_vl_real_c FC_FUNC_(h5dread_vl_real_c, H5DREAD_VL_REAL_C) +# define nh5dwrite_vl_string_c FC_FUNC_(h5dwrite_vl_string_c, H5DWRITE_VL_STRING_C) +# define nh5dread_vl_string_c FC_FUNC_(h5dread_vl_string_c, H5DREAD_VL_STRING_C) +# define nh5dfillc_c FC_FUNC_(h5dfillc_c, H5DFILLC_C) +# define nh5dfill_c FC_FUNC_(h5dfill_c, H5DFILL_C) +# define nh5dget_space_status_c FC_FUNC_(h5dget_space_status_c, H5DGET_SPACE_STATUS_C) + H5_FCDLL int_f nh5dcreate_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *dset_id); H5_FCDLL int_f nh5dopen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *dset_id); @@ -267,38 +182,20 @@ H5_FCDLL int_f nh5dget_space_status_c ( hid_t_f *dset_id, int_f *flag); /* * Functions from H5Gf.c */ -#ifndef H5Gf90_FNAMES -# define H5Gf90_FNAMES -#ifdef DF_CAPFNAMES -# define nh5gcreate_c FNAME(H5GCREATE_C) -# define nh5gclose_c FNAME(H5GCLOSE_C) -# define nh5gopen_c FNAME(H5GOPEN_C) -# define nh5gget_obj_info_idx_c FNAME(H5GGET_OBJ_INFO_IDX_C) -# define nh5gn_members_c FNAME(H5GN_MEMBERS_C) -# define nh5glink_c FNAME(H5GLINK_C) -# define nh5glink2_c FNAME(H5GLINK2_C) -# define nh5gunlink_c FNAME(H5GUNLINK_C) -# define nh5gmove_c FNAME(H5GMOVE_C) -# define nh5gmove2_c FNAME(H5GMOVE2_C) -# define nh5gget_linkval_c FNAME(H5GGET_LINKVAL_C) -# define nh5gset_comment_c FNAME(H5GSET_COMMENT_C) -# define nh5gget_comment_c FNAME(H5GGET_COMMENT_C) -#else /* !DF_CAPFNAMES */ -# define nh5gcreate_c FNAME(h5gcreate_c) -# define nh5gclose_c FNAME(h5gclose_c) -# define nh5gopen_c FNAME(h5gopen_c) -# define nh5gget_obj_info_idx_c FNAME(h5gget_obj_info_idx_c) -# define nh5gn_members_c FNAME(h5gn_members_c) -# define nh5glink_c FNAME(h5glink_c) -# define nh5glink2_c FNAME(h5glink2_c) -# define nh5gunlink_c FNAME(h5gunlink_c) -# define nh5gmove_c FNAME(h5gmove_c) -# define nh5gmove2_c FNAME(h5gmove2_c) -# define nh5gget_linkval_c FNAME(h5gget_linkval_c) -# define nh5gset_comment_c FNAME(h5gset_comment_c) -# define nh5gget_comment_c FNAME(h5gget_comment_c) -#endif /* DF_CAPFNAMES */ -#endif +# define nh5gcreate_c FC_FUNC_(h5gcreate_c, H5GCREATE_C) +# define nh5gclose_c FC_FUNC_(h5gclose_c, H5GCLOSE_C) +# define nh5gopen_c FC_FUNC_(h5gopen_c, H5GOPEN_C) +# define nh5gget_obj_info_idx_c FC_FUNC_(h5gget_obj_info_idx_c, H5GGET_OBJ_INFO_IDX_C) +# define nh5gn_members_c FC_FUNC_(h5gn_members_c, H5GN_MEMBERS_C) +# define nh5glink_c FC_FUNC_(h5glink_c, H5GLINK_C) +# define nh5glink2_c FC_FUNC_(h5glink2_c, H5GLINK2_C) +# define nh5gunlink_c FC_FUNC_(h5gunlink_c, H5GUNLINK_C) +# define nh5gmove_c FC_FUNC_(h5gmove_c, H5GMOVE_C) +# define nh5gmove2_c FC_FUNC_(h5gmove2_c, H5GMOVE2_C) +# define nh5gget_linkval_c FC_FUNC_(h5gget_linkval_c, H5GGET_LINKVAL_C) +# define nh5gset_comment_c FC_FUNC_(h5gset_comment_c, H5GSET_COMMENT_C) +# define nh5gget_comment_c FC_FUNC_(h5gget_comment_c, H5GGET_COMMENT_C) + H5_FCDLL int_f nh5gcreate_c (hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size_hint, hid_t_f *grp_id); H5_FCDLL int_f nh5gopen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *grp_id); @@ -317,38 +214,20 @@ H5_FCDLL int_f nh5gget_comment_c (hid_t_f *loc_id, _fcd name, int_f *namelen, si /* * Functions from H5Af.c */ -#ifndef H5Af90_FNAMES -# define H5Af90_FNAMES -#ifdef DF_CAPFNAMES -# define nh5acreate_c FNAME(H5ACREATE_C) -# define nh5aclose_c FNAME(H5ACLOSE_C) -# define nh5aopen_name_c FNAME(H5AOPEN_NAME_C) -# define nh5awrite_c FNAME(H5AWRITE_C) -# define nh5awritec_c FNAME(H5AWRITEC_C) -# define nh5aread_c FNAME(H5AREAD_C) -# define nh5areadc_c FNAME(H5AREADC_C) -# define nh5aget_name_c FNAME(H5AGET_NAME_C) -# define nh5aopen_idx_c FNAME(H5AOPEN_IDX_C) -# define nh5aget_space_c FNAME(H5AGET_SPACE_C) -# define nh5aget_type_c FNAME(H5AGET_TYPE_C) -# define nh5aget_num_attrs_c FNAME(H5AGET_NUM_ATTRS_C) -# define nh5adelete_c FNAME(H5ADELETE_C) -#else /* !DF_CAPFNAMES */ -# define nh5acreate_c FNAME(h5acreate_c) -# define nh5aclose_c FNAME(h5aclose_c) -# define nh5aopen_name_c FNAME(h5aopen_name_c) -# define nh5awrite_c FNAME(h5awrite_c) -# define nh5awritec_c FNAME(h5awritec_c) -# define nh5aread_c FNAME(h5aread_c) -# define nh5areadc_c FNAME(h5areadc_c) -# define nh5aget_name_c FNAME(h5aget_name_c) -# define nh5aopen_idx_c FNAME(h5aopen_idx_c) -# define nh5aget_space_c FNAME(h5aget_space_c) -# define nh5aget_type_c FNAME(h5aget_type_c) -# define nh5aget_num_attrs_c FNAME(h5aget_num_attrs_c) -# define nh5adelete_c FNAME(h5adelete_c) -#endif /* DF_CAPFNAMES */ -#endif +# define nh5acreate_c FC_FUNC_(h5acreate_c, H5ACREATE_C) +# define nh5aclose_c FC_FUNC_(h5aclose_c, H5ACLOSE_C) +# define nh5aopen_name_c FC_FUNC_(h5aopen_name_c, H5AOPEN_NAME_C) +# define nh5awrite_c FC_FUNC_(h5awrite_c, H5AWRITE_C) +# define nh5awritec_c FC_FUNC_(h5awritec_c, H5AWRITEC_C) +# define nh5aread_c FC_FUNC_(h5aread_c, H5AREAD_C) +# define nh5areadc_c FC_FUNC_(h5areadc_c, H5AREADC_C) +# define nh5aget_name_c FC_FUNC_(h5aget_name_c, H5AGET_NAME_C) +# define nh5aopen_idx_c FC_FUNC_(h5aopen_idx_c, H5AOPEN_IDX_C) +# define nh5aget_space_c FC_FUNC_(h5aget_space_c, H5AGET_SPACE_C) +# define nh5aget_type_c FC_FUNC_(h5aget_type_c, H5AGET_TYPE_C) +# define nh5aget_num_attrs_c FC_FUNC_(h5aget_num_attrs_c, H5AGET_NUM_ATTRS_C) +# define nh5adelete_c FC_FUNC_(h5adelete_c, H5ADELETE_C) + H5_FCDLL 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_FCDLL int_f nh5aopen_name_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_id); @@ -367,122 +246,62 @@ H5_FCDLL int_f nh5aget_name_c(hid_t_f *attr_id, size_t_f *size, _fcd buf); /* * Functions form H5Tf.c file */ -#ifndef H5Tf90_FNAMES -# define H5Tf90_FNAMES -#ifdef DF_CAPFNAMES -# define nh5topen_c FNAME(H5TOPEN_C) -# define nh5tcommit_c FNAME(H5TCOMMIT_C) -# define nh5tcommitted_c FNAME(H5TCOMMITTED_C) -# define nh5tclose_c FNAME(H5TCLOSE_C) -# define nh5tcopy_c FNAME(H5TCOPY_C) -# define nh5tequal_c FNAME(H5TEQUAL_C) -# define nh5tget_class_c FNAME(H5TGET_CLASS_C) -# define nh5tget_order_c FNAME(H5TGET_ORDER_C) -# define nh5tset_order_c FNAME(H5TSET_ORDER_C) -# define nh5tget_size_c FNAME(H5TGET_SIZE_C) -# define nh5tset_size_c FNAME(H5TSET_SIZE_C) -# define nh5tget_precision_c FNAME(H5TGET_PRECISION_C) -# define nh5tset_precision_c FNAME(H5TSET_PRECISION_C) -# define nh5tget_offset_c FNAME(H5TGET_OFFSET_C) -# define nh5tset_offset_c FNAME(H5TSET_OFFSET_C) -# define nh5tget_pad_c FNAME(H5TGET_PAD_C) -# define nh5tset_pad_c FNAME(H5TSET_PAD_C) -# define nh5tget_sign_c FNAME(H5TGET_SIGN_C) -# define nh5tset_sign_c FNAME(H5TSET_SIGN_C) -# define nh5tget_fields_c FNAME(H5TGET_FIELDS_C) -# define nh5tset_fields_c FNAME(H5TSET_FIELDS_C) -# define nh5tget_ebias_c FNAME(H5TGET_EBIAS_C) -# define nh5tset_ebias_c FNAME(H5TSET_EBIAS_C) -# define nh5tget_norm_c FNAME(H5TGET_NORM_C) -# define nh5tset_norm_c FNAME(H5TSET_NORM_C) -# define nh5tget_inpad_c FNAME(H5TGET_INPAD_C) -# define nh5tset_inpad_c FNAME(H5TSET_INPAD_C) -# define nh5tget_cset_c FNAME(H5TGET_CSET_C) -# define nh5tset_cset_c FNAME(H5TSET_CSET_C) -# define nh5tget_strpad_c FNAME(H5TGET_STRPAD_C) -# define nh5tset_strpad_c FNAME(H5TSET_STRPAD_C) -# define nh5tget_nmembers_c FNAME(H5TGET_NMEMBERS_C) -# define nh5tget_member_name_c FNAME(H5TGET_MEMBER_NAME_C) -# define nh5tget_member_offset_c FNAME(H5TGET_MEMBER_OFFSET_C) -# define nh5tget_member_dims_c FNAME(H5TGET_MEMBER_DIMS_C) -# define nh5tget_member_type_c FNAME(H5TGET_MEMBER_TYPE_C) -# define nh5tget_member_index_c FNAME(H5TGET_MEMBER_INDEX_C) -# define nh5tinsert_c FNAME(H5TINSERT_C) -# define nh5tcreate_c FNAME(H5TCREATE_C) -# define nh5tpack_c FNAME(H5TPACK_C) -# define nh5tinsert_array_c FNAME(H5TINSERT_ARRAY_C) -# define nh5tinsert_array_c2 FNAME(H5TINSERT_ARRAY_C2) -# define nh5tenum_create_c FNAME(H5TENUM_CREATE_C) -# define nh5tenum_insert_c FNAME(H5TENUM_INSERT_C) -# define nh5tenum_nameof_c FNAME(H5TENUM_NAMEOF_C) -# define nh5tenum_valueof_c FNAME(H5TENUM_VALUEOF_C) -# define nh5tget_member_value_c FNAME(H5TGET_MEMBER_VALUE_C) -# define nh5tset_tag_c FNAME(H5TSET_TAG_C) -# define nh5tget_tag_c FNAME(H5TGET_TAG_C) -# define nh5tarray_create_c FNAME(H5TARRAY_CREATE_C) -# define nh5tget_array_ndims_c FNAME(H5TGET_ARRAY_NDIMS_C) -# define nh5tget_array_dims_c FNAME(H5TGET_ARRAY_DIMS_C) -# define nh5tget_super_c FNAME(H5TGET_SUPER_C) -# define nh5tvlen_create_c FNAME(H5TVLEN_CREATE_C) -# define nh5tis_variable_str_c FNAME(H5TIS_VARIABLE_STR_C) -#else -# define nh5topen_c FNAME(h5topen_c) -# define nh5tcommit_c FNAME(h5tcommit_c) -# define nh5tcommitted_c FNAME(h5tcommitted_c) -# define nh5tclose_c FNAME(h5tclose_c) -# define nh5tcopy_c FNAME(h5tcopy_c) -# define nh5tequal_c FNAME(h5tequal_c) -# define nh5tget_class_c FNAME(h5tget_class_c) -# define nh5tget_order_c FNAME(h5tget_order_c) -# define nh5tset_order_c FNAME(h5tset_order_c) -# define nh5tget_size_c FNAME(h5tget_size_c) -# define nh5tset_size_c FNAME(h5tset_size_c) -# define nh5tget_precision_c FNAME(h5tget_precision_c) -# define nh5tset_precision_c FNAME(h5tset_precision_c) -# define nh5tget_offset_c FNAME(h5tget_offset_c) -# define nh5tset_offset_c FNAME(h5tset_offset_c) -# define nh5tget_pad_c FNAME(h5tget_pad_c) -# define nh5tset_pad_c FNAME(h5tset_pad_c) -# define nh5tget_sign_c FNAME(h5tget_sign_c) -# define nh5tset_sign_c FNAME(h5tset_sign_c) -# define nh5tget_fields_c FNAME(h5tget_fields_c) -# define nh5tset_fields_c FNAME(h5tset_fields_c) -# define nh5tget_ebias_c FNAME(h5tget_ebias_c) -# define nh5tset_ebias_c FNAME(h5tset_ebias_c) -# define nh5tget_norm_c FNAME(h5tget_norm_c) -# define nh5tset_norm_c FNAME(h5tset_norm_c) -# define nh5tget_inpad_c FNAME(h5tget_inpad_c) -# define nh5tset_inpad_c FNAME(h5tset_inpad_c) -# define nh5tget_cset_c FNAME(h5tget_cset_c) -# define nh5tset_cset_c FNAME(h5tset_cset_c) -# define nh5tget_strpad_c FNAME(h5tget_strpad_c) -# define nh5tset_strpad_c FNAME(h5tset_strpad_c) -# define nh5tget_nmembers_c FNAME(h5tget_nmembers_c) -# define nh5tget_member_name_c FNAME(h5tget_member_name_c) -# define nh5tget_member_offset_c FNAME(h5tget_member_offset_c) -# define nh5tget_member_dims_c FNAME(h5tget_member_dims_c) -# define nh5tget_member_type_c FNAME(h5tget_member_type_c) -# define nh5tget_member_index_c FNAME(h5tget_member_index_c) -# define nh5tinsert_c FNAME(h5tinsert_c) -# define nh5tcreate_c FNAME(h5tcreate_c) -# define nh5tpack_c FNAME(h5tpack_c) -# define nh5tinsert_array_c FNAME(h5tinsert_array_c) -# define nh5tinsert_array_c2 FNAME(h5tinsert_array_c2) -# define nh5tenum_create_c FNAME(h5tenum_create_c) -# define nh5tenum_insert_c FNAME(h5tenum_insert_c) -# define nh5tenum_nameof_c FNAME(h5tenum_nameof_c) -# define nh5tenum_valueof_c FNAME(h5tenum_valueof_c) -# define nh5tget_member_value_c FNAME(h5tget_member_value_c) -# define nh5tset_tag_c FNAME(h5tset_tag_c) -# define nh5tget_tag_c FNAME(h5tget_tag_c) -# define nh5tarray_create_c FNAME(h5tarray_create_c) -# define nh5tget_array_ndims_c FNAME(h5tget_array_ndims_c) -# define nh5tget_array_dims_c FNAME(h5tget_array_dims_c) -# define nh5tget_super_c FNAME(h5tget_super_c) -# define nh5tvlen_create_c FNAME(h5tvlen_create_c) -# define nh5tis_variable_str_c FNAME(h5tis_variable_str_c) -#endif -#endif +# define nh5topen_c FC_FUNC_(h5topen_c, H5TOPEN_C) +# define nh5tcommit_c FC_FUNC_(h5tcommit_c, H5TCOMMIT_C) +# define nh5tcommitted_c FC_FUNC_(h5tcommitted_c, H5TCOMMITTED_C) +# define nh5tclose_c FC_FUNC_(h5tclose_c, H5TCLOSE_C) +# define nh5tcopy_c FC_FUNC_(h5tcopy_c, H5TCOPY_C) +# define nh5tequal_c FC_FUNC_(h5tequal_c, H5TEQUAL_C) +# define nh5tget_class_c FC_FUNC_(h5tget_class_c, H5TGET_CLASS_C) +# define nh5tget_order_c FC_FUNC_(h5tget_order_c, H5TGET_ORDER_C) +# define nh5tset_order_c FC_FUNC_(h5tset_order_c, H5TSET_ORDER_C) +# define nh5tget_size_c FC_FUNC_(h5tget_size_c, H5TGET_SIZE_C) +# define nh5tset_size_c FC_FUNC_(h5tset_size_c, H5TSET_SIZE_C) +# define nh5tget_precision_c FC_FUNC_(h5tget_precision_c, H5TGET_PRECISION_C) +# define nh5tset_precision_c FC_FUNC_(h5tset_precision_c, H5TSET_PRECISION_C) +# define nh5tget_offset_c FC_FUNC_(h5tget_offset_c, H5TGET_OFFSET_C) +# define nh5tset_offset_c FC_FUNC_(h5tset_offset_c, H5TSET_OFFSET_C) +# define nh5tget_pad_c FC_FUNC_(h5tget_pad_c, H5TGET_PAD_C) +# define nh5tset_pad_c FC_FUNC_(h5tset_pad_c, H5TSET_PAD_C) +# define nh5tget_sign_c FC_FUNC_(h5tget_sign_c, H5TGET_SIGN_C) +# define nh5tset_sign_c FC_FUNC_(h5tset_sign_c, H5TSET_SIGN_C) +# define nh5tget_fields_c FC_FUNC_(h5tget_fields_c, H5TGET_FIELDS_C) +# define nh5tset_fields_c FC_FUNC_(h5tset_fields_c, H5TSET_FIELDS_C) +# define nh5tget_ebias_c FC_FUNC_(h5tget_ebias_c, H5TGET_EBIAS_C) +# define nh5tset_ebias_c FC_FUNC_(h5tset_ebias_c, H5TSET_EBIAS_C) +# define nh5tget_norm_c FC_FUNC_(h5tget_norm_c, H5TGET_NORM_C) +# define nh5tset_norm_c FC_FUNC_(h5tset_norm_c, H5TSET_NORM_C) +# define nh5tget_inpad_c FC_FUNC_(h5tget_inpad_c, H5TGET_INPAD_C) +# define nh5tset_inpad_c FC_FUNC_(h5tset_inpad_c, H5TSET_INPAD_C) +# define nh5tget_cset_c FC_FUNC_(h5tget_cset_c, H5TGET_CSET_C) +# define nh5tset_cset_c FC_FUNC_(h5tset_cset_c, H5TSET_CSET_C) +# define nh5tget_strpad_c FC_FUNC_(h5tget_strpad_c, H5TGET_STRPAD_C) +# define nh5tset_strpad_c FC_FUNC_(h5tset_strpad_c, H5TSET_STRPAD_C) +# define nh5tget_nmembers_c FC_FUNC_(h5tget_nmembers_c, H5TGET_NMEMBERS_C) +# define nh5tget_member_name_c FC_FUNC_(h5tget_member_name_c, H5TGET_MEMBER_NAME_C) +# define nh5tget_member_offset_c FC_FUNC_(h5tget_member_offset_c, H5TGET_MEMBER_OFFSET_C) +# define nh5tget_member_dims_c FC_FUNC_(h5tget_member_dims_c, H5TGET_MEMBER_DIMS_C) +# define nh5tget_member_type_c FC_FUNC_(h5tget_member_type_c, H5TGET_MEMBER_TYPE_C) +# define nh5tget_member_index_c FC_FUNC_(h5tget_member_index_c, H5TGET_MEMBER_INDEX_C) +# define nh5tinsert_c FC_FUNC_(h5tinsert_c, H5TINSERT_C) +# define nh5tcreate_c FC_FUNC_(h5tcreate_c, H5TCREATE_C) +# define nh5tpack_c FC_FUNC_(h5tpack_c, H5TPACK_C) +# define nh5tinsert_array_c FC_FUNC_(h5tinsert_array_c, H5TINSERT_ARRAY_C) +# define nh5tinsert_array_c2 FC_FUNC_(h5tinsert_array_c2, H5TINSERT_ARRAY_C2) +# define nh5tenum_create_c FC_FUNC_(h5tenum_create_c, H5TENUM_CREATE_C) +# define nh5tenum_insert_c FC_FUNC_(h5tenum_insert_c, H5TENUM_INSERT_C) +# define nh5tenum_nameof_c FC_FUNC_(h5tenum_nameof_c, H5TENUM_NAMEOF_C) +# define nh5tenum_valueof_c FC_FUNC_(h5tenum_valueof_c, H5TENUM_VALUEOF_C) +# define nh5tget_member_value_c FC_FUNC_(h5tget_member_value_c, H5TGET_MEMBER_VALUE_C) +# define nh5tset_tag_c FC_FUNC_(h5tset_tag_c, H5TSET_TAG_C) +# define nh5tget_tag_c FC_FUNC_(h5tget_tag_c, H5TGET_TAG_C) +# define nh5tarray_create_c FC_FUNC_(h5tarray_create_c, H5TARRAY_CREATE_C) +# define nh5tget_array_ndims_c FC_FUNC_(h5tget_array_ndims_c, H5TGET_ARRAY_NDIMS_C) +# define nh5tget_array_dims_c FC_FUNC_(h5tget_array_dims_c, H5TGET_ARRAY_DIMS_C) +# define nh5tget_super_c FC_FUNC_(h5tget_super_c, H5TGET_SUPER_C) +# define nh5tvlen_create_c FC_FUNC_(h5tvlen_create_c, H5TVLEN_CREATE_C) +# define nh5tis_variable_str_c FC_FUNC_(h5tis_variable_str_c, H5TIS_VARIABLE_STR_C) + H5_FCDLL int_f nh5tcreate_c(int_f *class, size_t_f *size, hid_t_f *type_id); H5_FCDLL int_f nh5topen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id); @@ -543,223 +362,112 @@ H5_FCDLL int_f nh5tis_variable_str_c ( hid_t_f *type_id , int_f *flag ); /* * Functions from H5Pf.c */ -#ifndef H5Pf90_FNAMES -# define H5Pf90_FNAMES -#ifdef DF_CAPFNAMES -# define nh5pcreate_c FNAME(H5PCREATE_C) -# define nh5pclose_c FNAME(H5PCLOSE_C) -# define nh5pcopy_c FNAME(H5PCOPY_C) -# define nh5pequal_c FNAME(H5PEQUAL_C) -# define nh5pget_class_c FNAME(H5PGET_CLASS_C) -# define nh5pset_deflate_c FNAME(H5PSET_DEFLATE_C) -# define nh5pset_preserve_c FNAME(H5PSET_PRESERVE_C) -# define nh5pget_preserve_c FNAME(H5PGET_PRESERVE_C) -# define nh5pset_chunk_c FNAME(H5PSET_CHUNK_C) -# define nh5pget_chunk_c FNAME(H5PGET_CHUNK_C) -# define nh5pset_fill_valuec_c FNAME(H5PSET_FILL_VALUEC_C) -# define nh5pset_fill_value_c FNAME(H5PSET_FILL_VALUE_C) -# define nh5pget_fill_valuec_c FNAME(H5PGET_FILL_VALUEC_C) -# define nh5pget_fill_value_c FNAME(H5PGET_FILL_VALUE_C) -# define nh5pget_version_c FNAME(H5PGET_VERSION_C) -# define nh5pget_userblock_c FNAME(H5PGET_USERBLOCK_C) -# define nh5pset_userblock_c FNAME(H5PSET_USERBLOCK_C) -# define nh5pset_sizes_c FNAME(H5PSET_SIZES_C) -# define nh5pget_sizes_c FNAME(H5PGET_SIZES_C) -# define nh5pget_sym_k_c FNAME(H5PGET_SYM_K_C) -# define nh5pset_sym_k_c FNAME(H5PSET_SYM_K_C) -# define nh5pget_istore_k_c FNAME(H5PGET_ISTORE_K_C) -# define nh5pset_istore_k_c FNAME(H5PSET_ISTORE_K_C) -# define nh5pget_driver_c FNAME(H5PGET_DRIVER_C) -# define nh5pset_fapl_stdio_c FNAME(H5PSET_FAPL_STDIO_C) -# define nh5pget_fapl_stdio_c FNAME(H5PGET_FAPL_STDIO_C) -# define nh5pset_fapl_sec2_c FNAME(H5PSET_FAPL_SEC2_C) -# define nh5pget_fapl_sec2_c FNAME(H5PGET_FAPL_SEC2_C) -# define nh5pset_alignment_c FNAME(H5PSET_ALIGNMENT_C) -# define nh5pget_alignment_c FNAME(H5PGET_ALIGNMENT_C) -# define nh5pset_fapl_core_c FNAME(H5PSET_FAPL_CORE_C) -# define nh5pget_fapl_core_c FNAME(H5PGET_FAPL_CORE_C) -# define nh5pset_fapl_family_c FNAME(H5PSET_FAPL_FAMILY_C) -# define nh5pget_fapl_family_c FNAME(H5PGET_FAPL_FAMILY_C) -# define nh5pset_cache_c FNAME(H5PSET_CACHE_C) -# define nh5pget_cache_c FNAME(H5PGET_CACHE_C) -# define nh5pset_fapl_split_c FNAME(H5PSET_FAPL_SPLIT_C) -# define nh5pget_fapl_split_c FNAME(H5PGET_FAPL_SPLIT_C) -# define nh5pset_gc_references_c FNAME(H5PSET_GC_REFERENCES_C) -# define nh5pget_gc_references_c FNAME(H5PGET_GC_REFERENCES_C) -# define nh5pset_layout_c FNAME(H5PSET_LAYOUT_C) -# define nh5pget_layout_c FNAME(H5PGET_LAYOUT_C) -# define nh5pset_filter_c FNAME(H5PSET_FILTER_C) -# define nh5premove_filter_c FNAME(H5PREMOVE_FILTER_C) -# define nh5pmodify_filter_c FNAME(H5PMODIFY_FILTER_C) -# define nh5pget_nfilters_c FNAME(H5PGET_NFILTERS_C) -# define nh5pget_filter_c FNAME(H5PGET_FILTER_C) -# define nh5pget_filter_by_id_c FNAME(H5PGET_FILTER_BY_ID_C) -# define nh5pset_external_c FNAME(H5PSET_EXTERNAL_C) -# define nh5pget_external_count_c FNAME(H5PGET_EXTERNAL_COUNT_C) -# define nh5pget_external_c FNAME(H5PGET_EXTERNAL_C) -# define nh5pget_btree_ratios_c FNAME(H5PGET_BTREE_RATIOS_C) -# define nh5pset_btree_ratios_c FNAME(H5PSET_BTREE_RATIOS_C) -# define nh5pset_fapl_mpio_c FNAME(H5PSET_FAPL_MPIO_C) -# define nh5pget_fapl_mpio_c FNAME(H5PGET_FAPL_MPIO_C) -# define nh5pset_fapl_mpiposix_c FNAME(H5PSET_FAPL_MPIPOSIX_C) -# define nh5pget_fapl_mpiposix_c FNAME(H5PGET_FAPL_MPIPOSIX_C) -# define nh5pset_dxpl_mpio_c FNAME(H5PSET_DXPL_MPIO_C) -# define nh5pget_dxpl_mpio_c FNAME(H5PGET_DXPL_MPIO_C) -# define nh5pget_fclose_degree_c FNAME(H5PGET_FCLOSE_DEGREE_C) -# define nh5pset_fclose_degree_c FNAME(H5PSET_FCLOSE_DEGREE_C) -# define nh5pset_buffer_c FNAME(H5PSET_BUFFER_C) -# define nh5pget_buffer_c FNAME(H5PGET_BUFFER_C) -# define nh5pfill_value_defined_c FNAME(H5PFILL_VALUE_DEFINED_C) -# define nh5pset_alloc_time_c FNAME(H5PSET_ALLOC_TIME_C) -# define nh5pget_alloc_time_c FNAME(H5PGET_ALLOC_TIME_C) -# define nh5pset_fill_time_c FNAME(H5PSET_FILL_TIME_C) -# define nh5pget_fill_time_c FNAME(H5PGET_FILL_TIME_C) -# define nh5pset_meta_block_size_c FNAME(H5PSET_META_BLOCK_SIZE_C) -# define nh5pget_meta_block_size_c FNAME(H5PGET_META_BLOCK_SIZE_C) -# define nh5pset_sieve_buf_size_c FNAME(H5PSET_SIEVE_BUF_SIZE_C) -# define nh5pget_sieve_buf_size_c FNAME(H5PGET_SIEVE_BUF_SIZE_C) -# define nh5pset_hyper_vector_size_c FNAME(H5PSET_HYPER_VECTOR_SIZE_C) -# define nh5pget_hyper_vector_size_c FNAME(H5PGET_HYPER_VECTOR_SIZE_C) -# define nh5pset_small_data_block_size_c FNAME(H5PSET_SMALL_DATA_BLOCK_SIZE_C) -# define nh5pget_small_data_block_size_c FNAME(H5PGET_SMALL_DATA_BLOCK_SIZE_C) -# define nh5pcreate_class_c FNAME(H5PCREATE_CLASS_C) -# define nh5pregister_c FNAME(H5PREGISTER_C) -# define nh5pregisterc_c FNAME(H5PREGISTERC_C) -# define nh5pinsert_c FNAME(H5PINSERT_C) -# define nh5pinsertc_c FNAME(H5PINSERTC_C) -# define nh5pset_c FNAME(H5PSET_C) -# define nh5psetc_c FNAME(H5PSETC_C) -# define nh5pget_c FNAME(H5PGET_C) -# define nh5pgetc_c FNAME(H5PGETC_C) -# define nh5pexist_c FNAME(H5PEXIST_C) -# define nh5pget_size_c FNAME(H5PGET_SIZE_C) -# define nh5pget_nprops_c FNAME(H5PGET_NPROPS_C) -# define nh5pget_class_parent_c FNAME(H5PGET_CLASS_PARENT_C) -# define nh5pisa_class_c FNAME(H5PISA_CLASS_C) -# define nh5pcopy_prop_c FNAME(H5PCOPY_PROP_C) -# define nh5premove_c FNAME(H5PREMOVE_C) -# define nh5punregister_c FNAME(H5PUNREGISTER_C) -# define nh5pclose_class_c FNAME(H5PCLOSE_CLASS_C) -# define nh5pget_class_name_c FNAME(H5PGET_CLASS_NAME_C) -# define nh5pset_shuffle_c FNAME(H5PSET_SHUFFLE_C) -# define nh5pset_fletcher32_c FNAME(H5PSET_FLETCHER32_C) -# define nh5pset_edc_check_c FNAME(H5PSET_EDC_CHECK_C) -# define nh5pget_edc_check_c FNAME(H5PGET_EDC_CHECK_C) -# define nh5pset_family_offset_c FNAME(H5PSET_FAMILY_OFFSET_C) -# define nh5pget_fapl_multi_c FNAME(H5PGET_FAPL_MULTI_C) -# define nh5pset_fapl_multi_c FNAME(H5PSET_FAPL_MULTI_C) -# define nh5pset_fapl_multi_sc FNAME(H5PSET_FAPL_MULTI_SC) -# define nh5pset_szip_c FNAME(H5PSET_SZIP_C) -# define nh5pall_filters_avail_c FNAME(H5PALL_FILTERS_AVAIL_C) - -#else -# define nh5pcreate_c FNAME(h5pcreate_c) -# define nh5pclose_c FNAME(h5pclose_c) -# define nh5pcopy_c FNAME(h5pcopy_c) -# define nh5pequal_c FNAME(h5pequal_c) -# define nh5pget_class_c FNAME(h5pget_class_c) -# define nh5pset_deflate_c FNAME(h5pset_deflate_c) -# define nh5pset_preserve_c FNAME(h5pset_preserve_c) -# define nh5pget_preserve_c FNAME(h5pget_preserve_c) -# define nh5pset_chunk_c FNAME(h5pset_chunk_c) -# define nh5pget_chunk_c FNAME(h5pget_chunk_c) -# define nh5pset_fill_valuec_c FNAME(h5pset_fill_valuec_c) -# define nh5pset_fill_value_c FNAME(h5pset_fill_value_c) -# define nh5pget_fill_valuec_c FNAME(h5pget_fill_valuec_c) -# define nh5pget_fill_value_c FNAME(h5pget_fill_value_c) -# define nh5pget_version_c FNAME(h5pget_version_c) -# define nh5pget_userblock_c FNAME(h5pget_userblock_c) -# define nh5pset_userblock_c FNAME(h5pset_userblock_c) -# define nh5pset_sizes_c FNAME(h5pset_sizes_c) -# define nh5pget_sizes_c FNAME(h5pget_sizes_c) -# define nh5pget_sym_k_c FNAME(h5pget_sym_k_c) -# define nh5pset_sym_k_c FNAME(h5pset_sym_k_c) -# define nh5pget_istore_k_c FNAME(h5pget_istore_k_c) -# define nh5pset_istore_k_c FNAME(h5pset_istore_k_c) -# define nh5pget_driver_c FNAME(h5pget_driver_c) -# define nh5pset_fapl_stdio_c FNAME(h5pset_fapl_stdio_c) -# define nh5pget_fapl_stdio_c FNAME(h5pget_fapl_stdio_c) -# define nh5pset_fapl_sec2_c FNAME(h5pset_fapl_sec2_c) -# define nh5pget_fapl_sec2_c FNAME(h5pget_fapl_sec2_c) -# define nh5pset_alignment_c FNAME(h5pset_alignment_c) -# define nh5pget_alignment_c FNAME(h5pget_alignment_c) -# define nh5pset_fapl_core_c FNAME(h5pset_fapl_core_c) -# define nh5pget_fapl_core_c FNAME(h5pget_fapl_core_c) -# define nh5pset_fapl_family_c FNAME(h5pset_fapl_family_c) -# define nh5pget_fapl_family_c FNAME(h5pget_fapl_family_c) -# define nh5pset_cache_c FNAME(h5pset_cache_c) -# define nh5pget_cache_c FNAME(h5pget_cache_c) -# define nh5pset_fapl_split_c FNAME(h5pset_fapl_split_c) -# define nh5pget_fapl_split_c FNAME(h5pget_fapl_split_c) -# define nh5pset_gc_references_c FNAME(h5pset_gc_references_c) -# define nh5pget_gc_references_c FNAME(h5pget_gc_references_c) -# define nh5pset_layout_c FNAME(h5pset_layout_c) -# define nh5pget_layout_c FNAME(h5pget_layout_c) -# define nh5pset_filter_c FNAME(h5pset_filter_c) -# define nh5premove_filter_c FNAME(h5premove_filter_c) -# define nh5pmodify_filter_c FNAME(h5pmodify_filter_c) -# define nh5pget_nfilters_c FNAME(h5pget_nfilters_c) -# define nh5pget_filter_c FNAME(h5pget_filter_c) -# define nh5pget_filter_by_id_c FNAME(h5pget_filter_by_id_c) -# define nh5pset_external_c FNAME(h5pset_external_c) -# define nh5pget_external_count_c FNAME(h5pget_external_count_c) -# define nh5pget_external_c FNAME(h5pget_external_c) -# define nh5pget_btree_ratios_c FNAME(h5pget_btree_ratios_c) -# define nh5pset_btree_ratios_c FNAME(h5pset_btree_ratios_c) -# define nh5pset_fapl_mpio_c FNAME(h5pset_fapl_mpio_c) -# define nh5pget_fapl_mpio_c FNAME(h5pget_fapl_mpio_c) -# define nh5pset_fapl_mpiposix_c FNAME(h5pset_fapl_mpiposix_c) -# define nh5pget_fapl_mpiposix_c FNAME(h5pget_fapl_mpiposix_c) -# define nh5pset_dxpl_mpio_c FNAME(h5pset_dxpl_mpio_c) -# define nh5pget_dxpl_mpio_c FNAME(h5pget_dxpl_mpio_c) -# define nh5pget_fclose_degree_c FNAME(h5pget_fclose_degree_c) -# define nh5pset_fclose_degree_c FNAME(h5pset_fclose_degree_c) -# define nh5pset_buffer_c FNAME(h5pset_buffer_c) -# define nh5pget_buffer_c FNAME(h5pget_buffer_c) -# define nh5pfill_value_defined_c FNAME(h5pfill_value_defined_c) -# define nh5pset_alloc_time_c FNAME(h5pset_alloc_time_c) -# define nh5pget_alloc_time_c FNAME(h5pget_alloc_time_c) -# define nh5pset_fill_time_c FNAME(h5pset_fill_time_c) -# define nh5pget_fill_time_c FNAME(h5pget_fill_time_c) -# define nh5pset_meta_block_size_c FNAME(h5pset_meta_block_size_c) -# define nh5pget_meta_block_size_c FNAME(h5pget_meta_block_size_c) -# define nh5pset_sieve_buf_size_c FNAME(h5pset_sieve_buf_size_c) -# define nh5pget_sieve_buf_size_c FNAME(h5pget_sieve_buf_size_c) -# define nh5pset_hyper_vector_size_c FNAME(h5pset_hyper_vector_size_c) -# define nh5pget_hyper_vector_size_c FNAME(h5pget_hyper_vector_size_c) -# define nh5pset_small_data_block_size_c FNAME(h5pset_small_data_block_size_c) -# define nh5pget_small_data_block_size_c FNAME(h5pget_small_data_block_size_c) -# define nh5pcreate_class_c FNAME(h5pcreate_class_c) -# define nh5pregister_c FNAME(h5pregister_c) -# define nh5pregisterc_c FNAME(h5pregisterc_c) -# define nh5pinsert_c FNAME(h5pinsert_c) -# define nh5pinsertc_c FNAME(h5pinsertc_c) -# define nh5pset_c FNAME(h5pset_c) -# define nh5psetc_c FNAME(h5psetc_c) -# define nh5pget_c FNAME(h5pget_c) -# define nh5pgetc_c FNAME(h5pgetc_c) -# define nh5pexist_c FNAME(h5pexist_c) -# define nh5pget_size_c FNAME(h5pget_size_c) -# define nh5pget_nprops_c FNAME(h5pget_nprops_c) -# define nh5pget_class_parent_c FNAME(h5pget_class_parent_c) -# define nh5pisa_class_c FNAME(h5pisa_class_c) -# define nh5pcopy_prop_c FNAME(h5pcopy_prop_c) -# define nh5premove_c FNAME(h5premove_c) -# define nh5punregister_c FNAME(h5punregister_c) -# define nh5pclose_class_c FNAME(h5pclose_class_c) -# define nh5pget_class_name_c FNAME(h5pget_class_name_c) -# define nh5pset_shuffle_c FNAME(h5pset_shuffle_c) -# define nh5pset_fletcher32_c FNAME(h5pset_fletcher32_c) -# define nh5pset_edc_check_c FNAME(h5pset_edc_check_c) -# define nh5pget_edc_check_c FNAME(h5pget_edc_check_c) -# define nh5pset_family_offset_c FNAME(h5pset_family_offset_c) -# define nh5pget_fapl_multi_c FNAME(h5pget_fapl_multi_c) -# define nh5pset_fapl_multi_c FNAME(h5pset_fapl_multi_c) -# define nh5pset_fapl_multi_sc FNAME(h5pset_fapl_multi_sc) -# define nh5pset_szip_c FNAME(h5pset_szip_c) -# define nh5pall_filters_avail_c FNAME(h5pall_filters_avail_c) -#endif -#endif +# define nh5pcreate_c FC_FUNC_(h5pcreate_c, H5PCREATE_C) +# define nh5pclose_c FC_FUNC_(h5pclose_c, H5PCLOSE_C) +# define nh5pcopy_c FC_FUNC_(h5pcopy_c, H5PCOPY_C) +# define nh5pequal_c FC_FUNC_(h5pequal_c, H5PEQUAL_C) +# define nh5pget_class_c FC_FUNC_(h5pget_class_c, H5PGET_CLASS_C) +# define nh5pset_deflate_c FC_FUNC_(h5pset_deflate_c, H5PSET_DEFLATE_C) +# define nh5pset_preserve_c FC_FUNC_(h5pset_preserve_c, H5PSET_PRESERVE_C) +# define nh5pget_preserve_c FC_FUNC_(h5pget_preserve_c, H5PGET_PRESERVE_C) +# define nh5pset_chunk_c FC_FUNC_(h5pset_chunk_c, H5PSET_CHUNK_C) +# define nh5pget_chunk_c FC_FUNC_(h5pget_chunk_c, H5PGET_CHUNK_C) +# define nh5pset_fill_valuec_c FC_FUNC_(h5pset_fill_valuec_c, H5PSET_FILL_VALUEC_C) +# define nh5pset_fill_value_c FC_FUNC_(h5pset_fill_value_c, H5PSET_FILL_VALUE_C) +# define nh5pget_fill_valuec_c FC_FUNC_(h5pget_fill_valuec_c, H5PGET_FILL_VALUEC_C) +# define nh5pget_fill_value_c FC_FUNC_(h5pget_fill_value_c, H5PGET_FILL_VALUE_C) +# define nh5pget_version_c FC_FUNC_(h5pget_version_c, H5PGET_VERSION_C) +# define nh5pget_userblock_c FC_FUNC_(h5pget_userblock_c, H5PGET_USERBLOCK_C) +# define nh5pset_userblock_c FC_FUNC_(h5pset_userblock_c, H5PSET_USERBLOCK_C) +# define nh5pset_sizes_c FC_FUNC_(h5pset_sizes_c, H5PSET_SIZES_C) +# define nh5pget_sizes_c FC_FUNC_(h5pget_sizes_c, H5PGET_SIZES_C) +# define nh5pget_sym_k_c FC_FUNC_(h5pget_sym_k_c, H5PGET_SYM_K_C) +# define nh5pset_sym_k_c FC_FUNC_(h5pset_sym_k_c, H5PSET_SYM_K_C) +# define nh5pget_istore_k_c FC_FUNC_(h5pget_istore_k_c, H5PGET_ISTORE_K_C) +# define nh5pset_istore_k_c FC_FUNC_(h5pset_istore_k_c, H5PSET_ISTORE_K_C) +# define nh5pget_driver_c FC_FUNC_(h5pget_driver_c, H5PGET_DRIVER_C) +# define nh5pset_fapl_stdio_c FC_FUNC_(h5pset_fapl_stdio_c, H5PSET_FAPL_STDIO_C) +# define nh5pget_fapl_stdio_c FC_FUNC_(h5pget_fapl_stdio_c, H5PGET_FAPL_STDIO_C) +# define nh5pset_fapl_sec2_c FC_FUNC_(h5pset_fapl_sec2_c, H5PSET_FAPL_SEC2_C) +# define nh5pget_fapl_sec2_c FC_FUNC_(h5pget_fapl_sec2_c, H5PGET_FAPL_SEC2_C) +# define nh5pset_alignment_c FC_FUNC_(h5pset_alignment_c, H5PSET_ALIGNMENT_C) +# define nh5pget_alignment_c FC_FUNC_(h5pget_alignment_c, H5PGET_ALIGNMENT_C) +# define nh5pset_fapl_core_c FC_FUNC_(h5pset_fapl_core_c, H5PSET_FAPL_CORE_C) +# define nh5pget_fapl_core_c FC_FUNC_(h5pget_fapl_core_c, H5PGET_FAPL_CORE_C) +# define nh5pset_fapl_family_c FC_FUNC_(h5pset_fapl_family_c, H5PSET_FAPL_FAMILY_C) +# define nh5pget_fapl_family_c FC_FUNC_(h5pget_fapl_family_c, H5PGET_FAPL_FAMILY_C) +# define nh5pset_cache_c FC_FUNC_(h5pset_cache_c, H5PSET_CACHE_C) +# define nh5pget_cache_c FC_FUNC_(h5pget_cache_c, H5PGET_CACHE_C) +# define nh5pset_fapl_split_c FC_FUNC_(h5pset_fapl_split_c, H5PSET_FAPL_SPLIT_C) +# define nh5pget_fapl_split_c FC_FUNC_(h5pget_fapl_split_c, H5PGET_FAPL_SPLIT_C) +# define nh5pset_gc_references_c FC_FUNC_(h5pset_gc_references_c, H5PSET_GC_REFERENCES_C) +# define nh5pget_gc_references_c FC_FUNC_(h5pget_gc_references_c, H5PGET_GC_REFERENCES_C) +# define nh5pset_layout_c FC_FUNC_(h5pset_layout_c, H5PSET_LAYOUT_C) +# define nh5pget_layout_c FC_FUNC_(h5pget_layout_c, H5PGET_LAYOUT_C) +# define nh5pset_filter_c FC_FUNC_(h5pset_filter_c, H5PSET_FILTER_C) +# define nh5premove_filter_c FC_FUNC_(h5premove_filter_c, H5PREMOVE_FILTER_C) +# define nh5pmodify_filter_c FC_FUNC_(h5pmodify_filter_c, H5PMODIFY_FILTER_C) +# define nh5pget_nfilters_c FC_FUNC_(h5pget_nfilters_c, H5PGET_NFILTERS_C) +# define nh5pget_filter_c FC_FUNC_(h5pget_filter_c, H5PGET_FILTER_C) +# define nh5pget_filter_by_id_c FC_FUNC_(h5pget_filter_by_id_c, H5PGET_FILTER_BY_ID_C) +# define nh5pset_external_c FC_FUNC_(h5pset_external_c, H5PSET_EXTERNAL_C) +# define nh5pget_external_count_c FC_FUNC_(h5pget_external_count_c, H5PGET_EXTERNAL_COUNT_C) +# define nh5pget_external_c FC_FUNC_(h5pget_external_c, H5PGET_EXTERNAL_C) +# define nh5pget_btree_ratios_c FC_FUNC_(h5pget_btree_ratios_c, H5PGET_BTREE_RATIOS_C) +# define nh5pset_btree_ratios_c FC_FUNC_(h5pset_btree_ratios_c, H5PSET_BTREE_RATIOS_C) +# define nh5pset_fapl_mpio_c FC_FUNC_(h5pset_fapl_mpio_c, H5PSET_FAPL_MPIO_C) +# define nh5pget_fapl_mpio_c FC_FUNC_(h5pget_fapl_mpio_c, H5PGET_FAPL_MPIO_C) +# define nh5pset_fapl_mpiposix_c FC_FUNC_(h5pset_fapl_mpiposix_c, H5PSET_FAPL_MPIPOSIX_C) +# define nh5pget_fapl_mpiposix_c FC_FUNC_(h5pget_fapl_mpiposix_c, H5PGET_FAPL_MPIPOSIX_C) +# define nh5pset_dxpl_mpio_c FC_FUNC_(h5pset_dxpl_mpio_c, H5PSET_DXPL_MPIO_C) +# define nh5pget_dxpl_mpio_c FC_FUNC_(h5pget_dxpl_mpio_c, H5PGET_DXPL_MPIO_C) +# define nh5pget_fclose_degree_c FC_FUNC_(h5pget_fclose_degree_c, H5PGET_FCLOSE_DEGREE_C) +# define nh5pset_fclose_degree_c FC_FUNC_(h5pset_fclose_degree_c, H5PSET_FCLOSE_DEGREE_C) +# define nh5pset_buffer_c FC_FUNC_(h5pset_buffer_c, H5PSET_BUFFER_C) +# define nh5pget_buffer_c FC_FUNC_(h5pget_buffer_c, H5PGET_BUFFER_C) +# define nh5pfill_value_defined_c FC_FUNC_(h5pfill_value_defined_c, H5PFILL_VALUE_DEFINED_C) +# define nh5pset_alloc_time_c FC_FUNC_(h5pset_alloc_time_c, H5PSET_ALLOC_TIME_C) +# define nh5pget_alloc_time_c FC_FUNC_(h5pget_alloc_time_c, H5PGET_ALLOC_TIME_C) +# define nh5pset_fill_time_c FC_FUNC_(h5pset_fill_time_c, H5PSET_FILL_TIME_C) +# define nh5pget_fill_time_c FC_FUNC_(h5pget_fill_time_c, H5PGET_FILL_TIME_C) +# define nh5pset_meta_block_size_c FC_FUNC_(h5pset_meta_block_size_c, H5PSET_META_BLOCK_SIZE_C) +# define nh5pget_meta_block_size_c FC_FUNC_(h5pget_meta_block_size_c, H5PGET_META_BLOCK_SIZE_C) +# define nh5pset_sieve_buf_size_c FC_FUNC_(h5pset_sieve_buf_size_c, H5PSET_SIEVE_BUF_SIZE_C) +# define nh5pget_sieve_buf_size_c FC_FUNC_(h5pget_sieve_buf_size_c, H5PGET_SIEVE_BUF_SIZE_C) +# define nh5pset_hyper_vector_size_c FC_FUNC_(h5pset_hyper_vector_size_c, H5PSET_HYPER_VECTOR_SIZE_C) +# define nh5pget_hyper_vector_size_c FC_FUNC_(h5pget_hyper_vector_size_c, H5PGET_HYPER_VECTOR_SIZE_C) +# define nh5pset_small_data_block_size_c FC_FUNC_(h5pset_small_data_block_size_c, H5PSET_SMALL_DATA_BLOCK_SIZE_C) +# define nh5pget_small_data_block_size_c FC_FUNC_(h5pget_small_data_block_size_c, H5PGET_SMALL_DATA_BLOCK_SIZE_C) +# define nh5pcreate_class_c FC_FUNC_(h5pcreate_class_c, H5PCREATE_CLASS_C) +# define nh5pregister_c FC_FUNC_(h5pregister_c, H5PREGISTER_C) +# define nh5pregisterc_c FC_FUNC_(h5pregisterc_c, H5PREGISTERC_C) +# define nh5pinsert_c FC_FUNC_(h5pinsert_c, H5PINSERT_C) +# define nh5pinsertc_c FC_FUNC_(h5pinsertc_c, H5PINSERTC_C) +# define nh5pset_c FC_FUNC_(h5pset_c, H5PSET_C) +# define nh5psetc_c FC_FUNC_(h5psetc_c, H5PSETC_C) +# define nh5pget_c FC_FUNC_(h5pget_c, H5PGET_C) +# define nh5pgetc_c FC_FUNC_(h5pgetc_c, H5PGETC_C) +# define nh5pexist_c FC_FUNC_(h5pexist_c, H5PEXIST_C) +# define nh5pget_size_c FC_FUNC_(h5pget_size_c, H5PGET_SIZE_C) +# define nh5pget_nprops_c FC_FUNC_(h5pget_nprops_c, H5PGET_NPROPS_C) +# define nh5pget_class_parent_c FC_FUNC_(h5pget_class_parent_c, H5PGET_CLASS_PARENT_C) +# define nh5pisa_class_c FC_FUNC_(h5pisa_class_c, H5PISA_CLASS_C) +# define nh5pcopy_prop_c FC_FUNC_(h5pcopy_prop_c, H5PCOPY_PROP_C) +# define nh5premove_c FC_FUNC_(h5premove_c, H5PREMOVE_C) +# define nh5punregister_c FC_FUNC_(h5punregister_c, H5PUNREGISTER_C) +# define nh5pclose_class_c FC_FUNC_(h5pclose_class_c, H5PCLOSE_CLASS_C) +# define nh5pget_class_name_c FC_FUNC_(h5pget_class_name_c, H5PGET_CLASS_NAME_C) +# define nh5pset_shuffle_c FC_FUNC_(h5pset_shuffle_c, H5PSET_SHUFFLE_C) +# define nh5pset_fletcher32_c FC_FUNC_(h5pset_fletcher32_c, H5PSET_FLETCHER32_C) +# define nh5pset_edc_check_c FC_FUNC_(h5pset_edc_check_c, H5PSET_EDC_CHECK_C) +# define nh5pget_edc_check_c FC_FUNC_(h5pget_edc_check_c, H5PGET_EDC_CHECK_C) +# define nh5pset_family_offset_c FC_FUNC_(h5pset_family_offset_c, H5PSET_FAMILY_OFFSET_C) +# define nh5pget_fapl_multi_c FC_FUNC_(h5pget_fapl_multi_c, H5PGET_FAPL_MULTI_C) +# define nh5pset_fapl_multi_c FC_FUNC_(h5pset_fapl_multi_c, H5PSET_FAPL_MULTI_C) +# define nh5pset_fapl_multi_sc FC_FUNC_(h5pset_fapl_multi_sc, H5PSET_FAPL_MULTI_SC) +# define nh5pset_szip_c FC_FUNC_(h5pset_szip_c, H5PSET_SZIP_C) +# define nh5pall_filters_avail_c FC_FUNC_(h5pall_filters_avail_c, H5PALL_FILTERS_AVAIL_C) + H5_FCDLL int_f nh5pcreate_c ( hid_t_f *class, hid_t_f *prp_id ); H5_FCDLL int_f nh5pclose_c ( hid_t_f *prp_id ); @@ -871,24 +579,13 @@ H5_FCDLL int_f nh5pfill_value_defined_c ( hid_t_f *prp_id , int_f *flag); /* * Functions frome H5Rf.c */ -#ifndef H5Rf90_FNAMES -# define H5Rf90_FNAMES -#ifdef DF_CAPFNAMES -# define nh5rcreate_object_c FNAME(H5RCREATE_OBJECT_C) -# define nh5rcreate_region_c FNAME(H5RCREATE_REGION_C) -# define nh5rdereference_region_c FNAME(H5RDEREFERENCE_REGION_C) -# define nh5rdereference_object_c FNAME(H5RDEREFERENCE_OBJECT_C) -# define nh5rget_region_region_c FNAME(H5RGET_REGION_REGION_C) -# define nh5rget_object_type_obj_c FNAME(H5RGET_OBJECT_TYPE_OBJ_C) -#else /* !DF_CAPFNAMES */ -# define nh5rcreate_object_c FNAME(h5rcreate_object_c) -# define nh5rcreate_region_c FNAME(h5rcreate_region_c) -# define nh5rdereference_region_c FNAME(h5rdereference_region_c) -# define nh5rdereference_object_c FNAME(h5rdereference_object_c) -# define nh5rget_region_region_c FNAME(h5rget_region_region_c) -# define nh5rget_object_type_obj_c FNAME(h5rget_object_type_obj_c) -#endif /* DF_CAPFNAMES */ -#endif /* H5Rf90_FNAMES */ +# define nh5rcreate_object_c FC_FUNC_(h5rcreate_object_c, H5RCREATE_OBJECT_C) +# define nh5rcreate_region_c FC_FUNC_(h5rcreate_region_c, H5RCREATE_REGION_C) +# define nh5rdereference_region_c FC_FUNC_(h5rdereference_region_c, H5RDEREFERENCE_REGION_C) +# define nh5rdereference_object_c FC_FUNC_(h5rdereference_object_c, H5RDEREFERENCE_OBJECT_C) +# define nh5rget_region_region_c FC_FUNC_(h5rget_region_region_c, H5RGET_REGION_REGION_C) +# define nh5rget_object_type_obj_c FC_FUNC_(h5rget_object_type_obj_c, H5RGET_OBJECT_TYPE_OBJ_C) + H5_FCDLL int_f nh5rcreate_object_c (haddr_t_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen); H5_FCDLL int_f nh5rcreate_region_c (int_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *space_id); @@ -900,24 +597,12 @@ H5_FCDLL int_f nh5rget_object_type_obj_c (hid_t_f *dset_id, haddr_t_f *ref, int_ /* * Functions from H5If.c */ -#ifndef H5If90_FNAMES -# define H5If90_FNAMES -#ifdef DF_CAPFNAMES -# define nh5iget_type_c FNAME(H5IGET_TYPE_C) -# define nh5iget_name_c FNAME(H5IGET_NAME_C) -# define nh5iinc_ref_c FNAME(H5IINC_REF_C) -# define nh5idec_ref_c FNAME(H5IDEC_REF_C) -# define nh5iget_ref_c FNAME(H5IGET_REF_C) -# define nh5iget_file_id_c FNAME(H5IGET_FILE_ID_C) -#else -# define nh5iget_type_c FNAME(h5iget_type_c) -# define nh5iget_name_c FNAME(h5iget_name_c) -# define nh5iinc_ref_c FNAME(h5iinc_ref_c) -# define nh5idec_ref_c FNAME(h5idec_ref_c) -# define nh5iget_ref_c FNAME(h5iget_ref_c) -# define nh5iget_file_id_c FNAME(h5iget_file_id_c) -#endif -#endif +# define nh5iget_type_c FC_FUNC_(h5iget_type_c, H5IGET_TYPE_C) +# define nh5iget_name_c FC_FUNC_(h5iget_name_c, H5IGET_NAME_C) +# define nh5iinc_ref_c FC_FUNC_(h5iinc_ref_c, H5IINC_REF_C) +# define nh5idec_ref_c FC_FUNC_(h5idec_ref_c, H5IDEC_REF_C) +# define nh5iget_ref_c FC_FUNC_(h5iget_ref_c, H5IGET_REF_C) +# define nh5iget_file_id_c FC_FUNC_(h5iget_file_id_c, H5IGET_FILE_ID_C) H5_FCDLL int_f nh5iget_type_c(hid_t_f *obj_id, int_f *type); H5_FCDLL int_f nh5iget_name_c(hid_t_f *obj_id, _fcd buf, size_t_f *buf_size, size_t_f *name_size); @@ -926,24 +611,16 @@ H5_FCDLL int_f nh5idec_ref_c(hid_t_f *obj_id, int_f *ref_count); H5_FCDLL int_f nh5iget_ref_c(hid_t_f *obj_id, int_f *ref_count); H5_FCDLL int_f nh5iget_file_id_c(hid_t_f *obj_id, hid_t_f *file_id); -#ifndef H5Ef90_FNAMES -# define H5Ef90_FNAMES -#ifdef DF_CAPFNAMES -# define nh5eclear_c FNAME(H5ECLEAR_C) -# define nh5eprint_c1 FNAME(H5EPRINT_C1) -# define nh5eprint_c2 FNAME(H5EPRINT_C2) -# define nh5eget_major_c FNAME(H5EGET_MAJOR_C) -# define nh5eget_minor_c FNAME(H5EGET_MINOR_C) -# define nh5eset_auto_c FNAME(H5ESET_AUTO_C) -#else -# define nh5eclear_c FNAME(h5eclear_c) -# define nh5eprint_c1 FNAME(h5eprint_c1) -# define nh5eprint_c2 FNAME(h5eprint_c2) -# define nh5eget_major_c FNAME(h5eget_major_c) -# define nh5eget_minor_c FNAME(h5eget_minor_c) -# define nh5eset_auto_c FNAME(h5eset_auto_c) -#endif -#endif +/* + * Functions from H5Ef.c + */ +# define nh5eclear_c FC_FUNC_(h5eclear_c, H5ECLEAR_C) +# define nh5eprint_c1 FC_FUNC_(h5eprint_c1, H5EPRINT_C1) +# define nh5eprint_c2 FC_FUNC_(h5eprint_c2, H5EPRINT_C2) +# define nh5eget_major_c FC_FUNC_(h5eget_major_c, H5EGET_MAJOR_C) +# define nh5eget_minor_c FC_FUNC_(h5eget_minor_c, H5EGET_MINOR_C) +# define nh5eset_auto_c FC_FUNC_(h5eset_auto_c, H5ESET_AUTO_C) + H5_FCDLL int_f nh5eclear_c(void); H5_FCDLL int_f nh5eprint_c1(_fcd name, int_f* namelen); @@ -955,32 +632,17 @@ H5_FCDLL int_f nh5eset_auto_c(int_f* printflag); /* * Functions from H5f.c */ -#ifndef H5_FNAMES -# define H5_FNAMES -#ifdef DF_CAPFNAMES -# define nh5open_c FNAME(H5OPEN_C) -# define nh5close_c FNAME(H5CLOSE_C) -# define nh5init_types_c FNAME(H5INIT_TYPES_C) -# define nh5close_types_c FNAME(H5CLOSE_TYPES_C) -# define nh5init_flags_c FNAME(H5INIT_FLAGS_C) -# define nh5init1_flags_c FNAME(H5INIT1_FLAGS_C) -# define nh5get_libversion_c FNAME(H5GET_LIBVERSION_C) -# define nh5check_version_c FNAME(H5CHECK_VERSION_C) -# define nh5garbage_collect_c FNAME(H5GARBAGE_COLLECT_C) -# define nh5dont_atexit_c FNAME(H5DONT_ATEXIT_C) -#else -# define nh5open_c FNAME(h5open_c) -# define nh5close_c FNAME(h5close_c) -# define nh5init_types_c FNAME(h5init_types_c) -# define nh5close_types_c FNAME(h5close_types_c) -# define nh5init_flags_c FNAME(h5init_flags_c) -# define nh5init1_flags_c FNAME(h5init1_flags_c) -# define nh5get_libversion_c FNAME(h5get_libversion_c) -# define nh5check_version_c FNAME(h5check_version_c) -# define nh5garbage_collect_c FNAME(h5garbage_collect_c) -# define nh5dont_atexit_c FNAME(h5dont_atexit_c) -#endif -#endif +# define nh5open_c FC_FUNC_(h5open_c, H5OPEN_C) +# define nh5close_c FC_FUNC_(h5close_c, H5CLOSE_C) +# define nh5init_types_c FC_FUNC_(h5init_types_c, H5INIT_TYPES_C) +# define nh5close_types_c FC_FUNC_(h5close_types_c, H5CLOSE_TYPES_C) +# define nh5init_flags_c FC_FUNC_(h5init_flags_c, H5INIT_FLAGS_C) +# define nh5init1_flags_c FC_FUNC_(h5init1_flags_c, H5INIT1_FLAGS_C) +# define nh5get_libversion_c FC_FUNC_(h5get_libversion_c, H5GET_LIBVERSION_C) +# define nh5check_version_c FC_FUNC_(h5check_version_c, H5CHECK_VERSION_C) +# define nh5garbage_collect_c FC_FUNC_(h5garbage_collect_c, H5GARBAGE_COLLECT_C) +# define nh5dont_atexit_c FC_FUNC_(h5dont_atexit_c, H5DONT_ATEXIT_C) + H5_FCDLL int_f nh5open_c(void); H5_FCDLL int_f nh5close_c(void); @@ -999,18 +661,10 @@ H5_FCDLL int_f nh5dont_atexit_c(void); /* * Functions from H5Zf.c */ -#ifndef H5Zf90_FNAMES -# define H5Zf90_FNAMES -#ifdef DF_CAPFNAMES -# define nh5zunregister_c FNAME(H5ZUNREGISTER_C) -# define nh5zfilter_avail_c FNAME(H5ZFILTER_AVAIL_C) -# define nh5zget_filter_info_c FNAME(H5ZGET_FILTER_INFO_C) -#else -# define nh5zunregister_c FNAME(h5zunregister_c) -# define nh5zfilter_avail_c FNAME(h5zfilter_avail_c) -# define nh5zget_filter_info_c FNAME(h5zget_filter_info_c) -#endif -#endif +# define nh5zunregister_c FC_FUNC_(h5zunregister_c, H5ZUNREGISTER_C) +# define nh5zfilter_avail_c FC_FUNC_(h5zfilter_avail_c, H5ZFILTER_AVAIL_C) +# define nh5zget_filter_info_c FC_FUNC_(h5zget_filter_info_c, H5ZGET_FILTER_INFO_C) + H5_FCDLL int_f nh5zunregister_c (int_f *filter); H5_FCDLL int_f nh5zfilter_avail_c (int_f *filter, int_f *flag); diff --git a/fortran/src/Makefile.am b/fortran/src/Makefile.am index d6a56f8..b044694 100644 --- a/fortran/src/Makefile.am +++ b/fortran/src/Makefile.am @@ -24,6 +24,8 @@ include $(top_srcdir)/config/commence.am INCLUDES = -I$(top_srcdir)/src AM_FCFLAGS=-I$(top_srcdir)/src +AM_FCLIBS=$(LIBHDF5) + # Fortran libraries are linked statically to solve a build problem. AM_LDFLAGS=-static diff --git a/fortran/src/Makefile.in b/fortran/src/Makefile.in index 0099564..7499b56 100644 --- a/fortran/src/Makefile.in +++ b/fortran/src/Makefile.in @@ -179,6 +179,7 @@ F9XMODFLAG = @F9XMODFLAG@ F9XSUFFIXFLAG = @F9XSUFFIXFLAG@ FC = @FC@ FCFLAGS = @FCFLAGS@ +FCLIBS = @FCLIBS@ FFLAGS = @FFLAGS@ FILTERS = @FILTERS@ FSEARCH_DIRS = @FSEARCH_DIRS@ @@ -331,6 +332,7 @@ H5FC_PP = $(bindir)/h5pfc # for linking) INCLUDES = -I$(top_srcdir)/src AM_FCFLAGS = -I$(top_srcdir)/src +AM_FCLIBS = $(LIBHDF5) # Fortran libraries are linked statically to solve a build problem. AM_LDFLAGS = -static diff --git a/fortran/test/Makefile.in b/fortran/test/Makefile.in index 980cfc4..04f1c2b 100644 --- a/fortran/test/Makefile.in +++ b/fortran/test/Makefile.in @@ -196,6 +196,7 @@ F9XMODFLAG = @F9XMODFLAG@ F9XSUFFIXFLAG = @F9XSUFFIXFLAG@ FC = @FC@ FCFLAGS = @FCFLAGS@ +FCLIBS = @FCLIBS@ FFLAGS = @FFLAGS@ FILTERS = @FILTERS@ FSEARCH_DIRS = @FSEARCH_DIRS@ diff --git a/fortran/test/t.h b/fortran/test/t.h index 0286028..3e4fd4d 100644 --- a/fortran/test/t.h +++ b/fortran/test/t.h @@ -21,15 +21,9 @@ char *h5_fixname(const char *base_name, hid_t fapl, char *fullname, size_t size) /* * Functions from t.c */ -#ifdef DF_CAPFNAMES -# define nh5_fixname_c FNAME(H5_FIXNAME_C) -# define nh5_cleanup_c FNAME(H5_CLEANUP_C) -# define nh5_exit_c FNAME(H5_EXIT_C) -#else /* !DF_CAPFNAMES */ -# define nh5_fixname_c FNAME(h5_fixname_c) -# define nh5_cleanup_c FNAME(h5_cleanup_c) -# define nh5_exit_c FNAME(h5_exit_c) -#endif /* DF_CAPFNAMES */ +# define nh5_fixname_c FC_FUNC_(h5_fixname_c, H5_FIXNAME_C) +# define nh5_cleanup_c FC_FUNC_(h5_cleanup_c, H5_CLEANUP_C) +# define nh5_exit_c FC_FUNC_(h5_exit_c, H5_EXIT_C) H5_FCTESTDLL int_f nh5_fixname_c (_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl, _fcd full_name, size_t_f *full_namelen); diff --git a/fortran/testpar/Makefile.in b/fortran/testpar/Makefile.in index 4f26423..42d2cd1 100644 --- a/fortran/testpar/Makefile.in +++ b/fortran/testpar/Makefile.in @@ -151,6 +151,7 @@ F9XMODFLAG = @F9XMODFLAG@ F9XSUFFIXFLAG = @F9XSUFFIXFLAG@ FC = @FC@ FCFLAGS = @FCFLAGS@ +FCLIBS = @FCLIBS@ FFLAGS = @FFLAGS@ FILTERS = @FILTERS@ FSEARCH_DIRS = @FSEARCH_DIRS@ |