summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2001-03-15 18:17:01 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2001-03-15 18:17:01 (GMT)
commit44047587c1d17823b7947652ab1e3ff1f123d7df (patch)
treeeb4c2313b75f299457e1161b1149188d5d6e8a4d /fortran/src
parentad80cc25ead580b2932f8a9654099ae9fcea8df4 (diff)
downloadhdf5-44047587c1d17823b7947652ab1e3ff1f123d7df.zip
hdf5-44047587c1d17823b7947652ab1e3ff1f123d7df.tar.gz
hdf5-44047587c1d17823b7947652ab1e3ff1f123d7df.tar.bz2
[svn-r3644]
Purpose: Port to DEC ALPHA running LINUX Description: Added necessary definitions to the fortran header file for LINUX port. Platforms tested: DEC ALPHA LINUX and DEC OSF
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5f90i.h33
1 files changed, 30 insertions, 3 deletions
diff --git a/fortran/src/H5f90i.h b/fortran/src/H5f90i.h
index b19a3c5..c46cf39 100644
--- a/fortran/src/H5f90i.h
+++ b/fortran/src/H5f90i.h
@@ -147,8 +147,7 @@ typedef float real_f;
#endif /*SUN*/
-
-#if defined DEC_ALPHA || (defined __alpha && defined __unix__)
+#if defined DEC_ALPHA || (defined __alpha && defined __unix__ && !defined __linux__)
#ifndef DEC_ALPHA
#define DEC_ALPHA
@@ -159,7 +158,6 @@ If you get an error on this line more than one machine type has been defined.
Please check your Makefile.
#endif
#define GOT_MACHINE
-
#include <sys/file.h> /* for unbuffered i/o stuff */
#include <sys/stat.h>
#define DF_MT DFMT_ALPHA
@@ -175,6 +173,32 @@ typedef float real_f;
#endif /* DEC_ALPHA */
+#if defined __alpha__ && defined __linux__
+
+#ifndef DEC_ALPHA_LINUX
+#define DEC_ALPHA_LINUX
+#endif
+
+#ifdef GOT_MACHINE
+If you get an error on this line more than one machine type has been defined.
+Please check your Makefile.
+#endif
+#define GOT_MACHINE
+
+#include <sys/file.h> /* for unbuffered i/o stuff */
+#include <sys/stat.h>
+#define DF_MT DFMT_ALPHA
+typedef char *_fcd;
+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;
+#define FNAME_POST2_UNDERSCORE
+#define _fcdtocp(desc) (desc)
+
+#endif /* DEC_ALPHA_LINUX */
#if defined(HP9000) || (!defined(__convexc__) && (defined(hpux) || defined(__hpux)))
@@ -276,6 +300,9 @@ typedef float real_f;
#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
# define HDfree(p) (free((void*)p))
# define HDmalloc(s) (malloc((size_t)s))