diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2001-06-21 15:06:06 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2001-06-21 15:06:06 (GMT) |
| commit | d1b9983c54ea92cd07cc5130dc1833c368accb1a (patch) | |
| tree | a6282d37b5b61aef4fc2b74155b1964c2f6d33c3 /fortran | |
| parent | f1b719823a77c7ace4e9c360ec32a6bff784af5d (diff) | |
| download | hdf5-d1b9983c54ea92cd07cc5130dc1833c368accb1a.zip hdf5-d1b9983c54ea92cd07cc5130dc1833c368accb1a.tar.gz hdf5-d1b9983c54ea92cd07cc5130dc1833c368accb1a.tar.bz2 | |
[svn-r4029]
Purpose:
IBM SP F90 HDF5 Library port
Description:
Added necessary type definitions for SP2 port.
Platforms tested:
Gseaborg ( NERSC IBM SP)
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5f90i.h | 62 |
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)) |