summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2002-10-21 22:14:15 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2002-10-21 22:14:15 (GMT)
commita90330d723fde1af85625809eeea53a199c14775 (patch)
treedbcfc0a08d0290c28f6718ec1a1007b9b816c27d /fortran/src
parentc5137a1d941cbb92d02a0b33f7ef497369d727db (diff)
downloadhdf5-a90330d723fde1af85625809eeea53a199c14775.zip
hdf5-a90330d723fde1af85625809eeea53a199c14775.tar.gz
hdf5-a90330d723fde1af85625809eeea53a199c14775.tar.bz2
[svn-r6022]
Purpose: Fortran port to IA64 Description: I brought back changes from 1.4 branch to support IA64 system. Platforms tested: IA64 (titan), Solaris 2.7 (arabica), Linux 2.2 (eirene) and IRIX64-6.5 (modi4)
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5f90i.h38
1 files changed, 31 insertions, 7 deletions
diff --git a/fortran/src/H5f90i.h b/fortran/src/H5f90i.h
index 0e4db76..e26c855 100644
--- a/fortran/src/H5f90i.h
+++ b/fortran/src/H5f90i.h
@@ -1,3 +1,18 @@
+/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+ * Copyright by the Board of Trustees of the University of Illinois. *
+ * All rights reserved. *
+ * *
+ * This file is part of HDF5. The full HDF5 copyright notice, including *
+ * terms governing use, modification, and redistribution, is contained in *
+ * the files COPYING and Copyright.html. COPYING can be found at the root *
+ * of the source code distribution tree; Copyright.html can be found at the *
+ * root level of an installed copy of the electronic HDF5 document set and *
+ * is linked from the top-level documents page. It can also be found at *
+ * http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have *
+ * access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
+
+
#ifndef _H5f90i_H
#define _H5f90i_H
@@ -78,7 +93,7 @@ typedef float real_f;
#endif /*IBM6000*/
/* LINUX definitions */
-#if defined(i386) && (defined(linux) || defined(__FreeBSD__))
+#if defined(i386) && defined(linux)
#define DF_MT DFMT_LINIX
typedef char *_fcd;
typedef long long hsize_t_f;
@@ -92,6 +107,20 @@ typedef float real_f;
#endif /*LINUX*/
+/* IA64 LINUX definitions */
+#if defined IA64
+typedef char *_fcd;
+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*/
+
#if defined(IRIX) || defined(IRIS4) || defined(sgi) || defined(__sgi__) || defined(__sgi)
#ifndef IRIX
@@ -132,9 +161,6 @@ typedef float real_f;
#ifdef IRIX64
#define BIG_LONGS
#endif
-
-
-
#endif /* IRIX */
#if (defined(SUN) || defined(sun) || defined(__sun__) || defined(__SUNPRO_C)) & !defined(__i386)
@@ -163,8 +189,8 @@ Please check your Makefile.
#include <sys/stat.h>
#define DF_MT DFMT_SUN
typedef char *_fcd;
-typedef long long hsize_t_f;
typedef long long hssize_t_f;
+typedef long long hsize_t_f;
typedef int size_t_f;
typedef int int_f;
typedef int hid_t_f;
@@ -239,7 +265,6 @@ Please check your Makefile.
#endif
#define GOT_MACHINE
-
# define BSD
#ifndef __GNUC__
#include <memory.h>
@@ -291,7 +316,6 @@ typedef float real_f;
#define DF_CAPFNAMES
#define _fcdtocp(desc) (desc)
-
#endif /*WINDOWS */
/*----------------------------------------------------------------