From a90330d723fde1af85625809eeea53a199c14775 Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Mon, 21 Oct 2002 17:14:15 -0500 Subject: [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) --- fortran/src/H5f90i.h | 38 +++++++++++++++++++++++++++++++------- 1 file 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 #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 @@ -291,7 +316,6 @@ typedef float real_f; #define DF_CAPFNAMES #define _fcdtocp(desc) (desc) - #endif /*WINDOWS */ /*---------------------------------------------------------------- -- cgit v0.12