diff options
| author | James Laird <jlaird@hdfgroup.org> | 2005-04-04 21:17:51 (GMT) |
|---|---|---|
| committer | James Laird <jlaird@hdfgroup.org> | 2005-04-04 21:17:51 (GMT) |
| commit | b296a419c4ed2cc43cab53b78a40cbf1346f2362 (patch) | |
| tree | 7a652352898be1a2e963c9e700228c00a878657d /fortran | |
| parent | 7f5e1dfe31696bddb3967865af52801a2b38bb7e (diff) | |
| download | hdf5-b296a419c4ed2cc43cab53b78a40cbf1346f2362.zip hdf5-b296a419c4ed2cc43cab53b78a40cbf1346f2362.tar.gz hdf5-b296a419c4ed2cc43cab53b78a40cbf1346f2362.tar.bz2 | |
[svn-r10534] Purpose:
Configuration feature
Description:
Different Fortran compilers mangle function names in different ways
(upper case, lower case, adding underscores). To link between
Fortran and C functions, we need to know what a given function's
name is under a given compiler.
Solution:
Use autoconf's FC_WRAPPERS check to determine the Fortran
naming scheme and define the FC_FUNC_ macro to name our
functions (in H5f90proto.h). Removed references to
our old FNAME macro, as well as flags that indicated whether
function names were upper or lower case.
Platforms tested:
mir, pommier, modi4, copper, more
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@ |