mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-25 17:00:45 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r6022]

Browse Source 
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)
This commit is contained in:
Elena Pourmal 2002-10-21 17:14:15 -05:00
parent c5137a1d94
commit a90330d723
1 changed files with 31 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
fortran/src/H5f90i.h
View File

@ -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 */
/*----------------------------------------------------------------