summaryrefslogtreecommitdiffstats
path: root/hl/fortran
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2005-02-10 13:30:36 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2005-02-10 13:30:36 (GMT)
commit674752ab7dc3e8c633d20c7b7ee6ebc0ce8d7e9a (patch)
tree23af07a050323266cd70070f58cf57a51068b21a /hl/fortran
parentf6b810b93d669859fb82dc08ff715ba38f135958 (diff)
downloadhdf5-674752ab7dc3e8c633d20c7b7ee6ebc0ce8d7e9a.zip
hdf5-674752ab7dc3e8c633d20c7b7ee6ebc0ce8d7e9a.tar.gz
hdf5-674752ab7dc3e8c633d20c7b7ee6ebc0ce8d7e9a.tar.bz2
[svn-r9977] Purpose:
Update port Description: Allow FreeBSD builds to use Intel C & F90 compilers (C++ is not working yet on FreeBSD, so that'll come along later) Platforms tested: FreeBSD 4.11 (sleipnir) w/Intel C & F90 compilers Does not affect other platforms... Misc. update:
Diffstat (limited to 'hl/fortran')
-rwxr-xr-xhl/fortran/src/H5f90i.h97
1 files changed, 66 insertions, 31 deletions
diff --git a/hl/fortran/src/H5f90i.h b/hl/fortran/src/H5f90i.h
index 52496a9..e39e3f8 100755
--- a/hl/fortran/src/H5f90i.h
+++ b/hl/fortran/src/H5f90i.h
@@ -25,6 +25,7 @@
#include <fortran.h>
/*typedef char* _fcd;*/
+typedef long haddr_t_f;
typedef long hsize_t_f;
typedef long hssize_t_f;
typedef long size_t_f;
@@ -39,6 +40,7 @@ typedef double real_f;
#if defined(IBM6000) || defined(_AIX)
typedef char *_fcd;
+typedef long long haddr_t_f;
typedef long long hsize_t_f;
typedef long long hssize_t_f;
typedef int size_t_f;
@@ -51,6 +53,7 @@ typedef float real_f;
/* MAC APPLE definitions with IBM XL compiler*/
#if defined(__APPLE__)
typedef char *_fcd;
+typedef long long haddr_t_f;
typedef long long hsize_t_f;
typedef long long hssize_t_f;
typedef int size_t_f;
@@ -65,61 +68,54 @@ typedef float real_f;
#endif /*APPLE*/
-
/* LINUX definitions */
-#if (defined(i386) || defined(__i386__)) && (defined(linux) || defined(__linux__))
+#if (defined(linux) || defined(__gnu_linux__) || defined(__linux__))
+/* Common definitions */
+typedef char *_fcd;
+typedef int int_f;
+typedef int hid_t_f;
+typedef float real_f;
+#define _fcdtocp(desc) (desc)
-/*#error "LINUX definitions"*/
+/* IA32 specific definitions */
+#if (defined(i386) || defined(__i386) || defined(__i386__))
-typedef char *_fcd;
+typedef long long haddr_t_f;
typedef long long hsize_t_f;
typedef long long hssize_t_f;
typedef int size_t_f;
-typedef int int_f;
-typedef int hid_t_f;
-typedef float real_f;
#if defined H5_ABSOFT
#define DF_CAPFNAMES
#else
#define FNAME_POST_UNDERSCORE
#endif /*H5_ABSOFT*/
-#define _fcdtocp(desc) (desc)
-#endif /*LINUX*/
+/* AMD64 specific definitions */
+#elif defined __x86_64__
-/* LINUX64 definitions */
-#if defined __x86_64__
-
-typedef char *_fcd;
+typedef long long haddr_t_f;
typedef long long hsize_t_f;
typedef long long hssize_t_f;
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 /*LINUX64*/
-/* IA64 LINUX definitions */
-#if defined __ia64
+/* IA64 specific definitions */
+#elif defined __ia64
-typedef char *_fcd;
+typedef long haddr_t_f;
typedef long hsize_t_f;
typedef long hssize_t_f;
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 /* IA64 LINUX*/
+#endif /* IA64 */
+#endif /* LINUX*/
#if defined(IRIX) || defined(IRIS4) || defined(sgi) || defined(__sgi__) || defined(__sgi)
typedef char *_fcd;
+typedef long haddr_t_f;
typedef long hsize_t_f;
typedef long hssize_t_f;
typedef long size_t_f;
@@ -133,6 +129,7 @@ typedef float real_f;
#if (defined(SUN) || defined(sun) || defined(__sun__) || defined(__SUNPRO_C)) & !defined(__i386)
typedef char *_fcd;
+typedef long long haddr_t_f;
typedef long long hssize_t_f;
typedef long long hsize_t_f;
typedef int size_t_f;
@@ -147,6 +144,7 @@ typedef float real_f;
#if defined DEC_ALPHA || (defined __alpha && defined __unix__ && !defined __linux__)
typedef char *_fcd;
+typedef long haddr_t_f;
typedef long hsize_t_f;
typedef long hssize_t_f;
typedef long size_t_f;
@@ -161,9 +159,10 @@ typedef float real_f;
#if defined __alpha__ && defined __linux__
typedef char *_fcd;
-typedef long long hsize_t_f;
-typedef long long hssize_t_f;
-typedef long long size_t_f;
+typedef long long haddr_t_f;
+typedef long long hsize_t_f;
+typedef long long hssize_t_f;
+typedef long long size_t_f;
typedef int int_f;
typedef int hid_t_f;
typedef float real_f;
@@ -175,8 +174,9 @@ typedef float real_f;
#if defined(HP9000) || (!defined(__convexc__) && (defined(hpux) || defined(__hpux)))
typedef char *_fcd;
-typedef long long hsize_t_f;
-typedef long long hssize_t_f;
+typedef long long haddr_t_f;
+typedef long long hsize_t_f;
+typedef long long hssize_t_f;
typedef long size_t_f;
typedef int int_f;
typedef int hid_t_f;
@@ -189,6 +189,7 @@ typedef float real_f;
#if defined _WINDOWS || defined WIN32
typedef char *_fcd;
+typedef int haddr_t_f;
typedef int hsize_t_f;
typedef int hssize_t_f;
typedef int size_t_f;
@@ -201,6 +202,40 @@ typedef float real_f;
#endif /*WINDOWS */
+/* FreeBSD definitions */
+#if (defined(__FreeBSD) || defined(__FreeBSD__))
+
+/* Common definitions */
+typedef char *_fcd;
+typedef int int_f;
+typedef int hid_t_f;
+typedef float real_f;
+#define _fcdtocp(desc) (desc)
+
+/* IA32 specific definitions */
+#if (defined(i386) || defined(__i386) || defined(__i386__))
+typedef long long haddr_t_f;
+typedef long long hsize_t_f;
+typedef long long hssize_t_f;
+typedef int size_t_f;
+/* AMD64 specific definitions */
+#elif defined __x86_64__
+typedef long long haddr_t_f;
+typedef long long hsize_t_f;
+typedef long long hssize_t_f;
+typedef int size_t_f;
+/* IA64 specific definitions */
+#elif defined __ia64
+typedef long haddr_t_f;
+typedef long hsize_t_f;
+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.
**