summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2001-06-21 15:29:17 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2001-06-21 15:29:17 (GMT)
commit8263f168f703f8a680a49419a0053c384abec4c3 (patch)
treee5021947a6fcfa9fa4116f1fd0c82ed2496d4e28 /fortran
parent13008390eecff3bfe8c1ed91cd0bb7d6b3d14970 (diff)
downloadhdf5-8263f168f703f8a680a49419a0053c384abec4c3.zip
hdf5-8263f168f703f8a680a49419a0053c384abec4c3.tar.gz
hdf5-8263f168f703f8a680a49419a0053c384abec4c3.tar.bz2
[svn-r4035]
Purpose: IBM SP F90 HDF5 Library port Description: Added necessary type definitions for the port Platforms tested: Tested only for 1.4. branch. 1.5 branch will be tested later.
Diffstat (limited to 'fortran')
-rw-r--r--fortran/src/H5f90i.h62
1 files changed, 59 insertions, 3 deletions
diff --git a/fortran/src/H5f90i.h b/fortran/src/H5f90i.h
index b19a3c5..acdd4df 100644
--- a/fortran/src/H5f90i.h
+++ b/fortran/src/H5f90i.h
@@ -47,6 +47,35 @@ typedef double real_f;
#endif /* UNICOS */
+#if defined(IBM6000) || defined(_AIX)
+
+#ifndef IBM6000
+#define IBM6000
+#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
+
+# define BSD
+
+#ifndef __GNUC__
+#include <memory.h>
+#endif /* __GNUC__ */
+#include <sys/file.h> /* for unbuffered i/o stuff */
+#include <sys/stat.h>
+#define DF_MT DFMT_IBM6000
+typedef char *_fcd;
+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 _fcdtocp(desc) (desc)
+#endif /*IBM6000*/
/* LINUX definitions */
#if defined(i386) && defined(linux)
@@ -147,8 +176,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 +187,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 +202,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 +329,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))