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/src/H5f90i.h | |
| 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/src/H5f90i.h')
| -rw-r--r-- | fortran/src/H5f90i.h | 43 |
1 files changed, 0 insertions, 43 deletions
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 */ |