[svn-r2576] Purpose:

	Adding the Fortran interface to the HDF5 library
Description:
	Fortran is now a subdirectory of the HDF5 library tree.
Platforms tested:
	Solaris and IRIX (O2K)

1 files changed, 286 insertions, 0 deletions

diff --git a/fortran/src/H5f90i.h b/fortran/src/H5f90i.h
new file mode 100644
index 0000000..9d19ef4
--- /dev/null
+++ b/fortran/src/H5f90i.h
@@ -0,0 +1,286 @@
+#ifndef _H5f90i_H
+#define _H5f90i_H
+
+#ifdef GOT_MACHINE
+#undef GOT_MACHINE
+#endif
+
+#define  DFMT_IRIX         0x1111
+
+/* 
+ * Standard header files needed all the time 
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <limits.h>
+#include <string.h>
+
+#if (defined (UNICOS) || (defined (_UNICOS)))
+
+#ifndef UNICOS 
+#define UNICOS 
+#endif
+
+#include <memory.h>
+#include <fortran.h>
+#ifndef O_RDONLY
+#include <fcntl.h>              /* for unbuffered i/o stuff */
+#define L_INCR  1
+#include <sys/stat.h>
+#endif /*O_RDONLY*/
+
+#ifdef _CRAYIEEE
+#define DF_MT   DFMT_UNICOSIEEE
+#else
+#define DF_MT   DFMT_UNICOS
+#endif
+/*typedef char*              _fcd;*/
+typedef long               hsize_t_f;
+typedef long               hssize_t_f;
+typedef long               size_t_f;
+typedef long               int_f;
+typedef long               hid_t_f;
+typedef double             real_f;
+#define DF_CAPFNAMES 
+/*#define _fcdtocp(desc) (desc)*/
+
+#endif /* UNICOS */
+
+
+/* LINUX definitions */
+#if defined(i386) && defined(linux)
+#define DF_MT             DFMT_LINIX
+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 FNAME_POST_UNDERSCORE
+#define _fcdtocp(desc) (desc)
+
+#endif /*LINUX*/
+
+#if defined(IRIX) || defined(IRIS4) || defined(sgi) || defined(__sgi__) || defined(__sgi)
+
+#ifndef IRIX
+#define IRIX
+#endif
+
+#if (_MIPS_SZLONG == 64)
+/* IRIX 64 bits objects.  It is nearly the same as the conventional
+ * 32 bits objects.  Let them share IRIX definitions for now.
+ */
+#define IRIX64
+#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 1
+
+#   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_IRIX
+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)
+#ifdef IRIX64
+#define BIG_LONGS
+#endif
+
+
+#define HAVE_STDC
+#define INCLUDES_ARE_ANSI
+
+#endif /* IRIX */
+
+#if (defined(SUN) || defined(sun) || defined(__sun__) || defined(__SUNPRO_C)) & !defined(__i386)
+#ifdef __STDC__
+#define ANSISUN
+#else /* __STDC__ */
+#define KNRSUN
+#endif /* __STDC__ */
+#endif /* SUN || sun */
+
+#if defined(ANSISUN)
+
+#if !defined(SUN)
+#define SUN
+#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 <unistd.h>                 /* for some file I/O stuff */
+#include <sys/time.h>
+#include <sys/file.h>               /* for unbuffered i/o stuff */
+#include <sys/stat.h>
+#define DF_MT             DFMT_SUN
+typedef char              *_fcd;
+typedef int               hsize_t_f;
+typedef int               hssize_t_f;
+typedef int               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     /*SUN*/
+
+
+#if defined DEC_ALPHA || (defined __alpha && defined __unix__)
+
+#ifndef DEC_ALPHA
+#define DEC_ALPHA
+#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             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 /* DEC_ALPHA */
+
+
+#if defined(HP9000) || (!defined(__convexc__) && (defined(hpux) || defined(__hpux)))
+
+#ifndef HP9000
+#define HP9000
+#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
+
+#ifndef HAVE_UNISTD_H
+#define HAVE_UNISTD_H  /* unistd.h - close, fork,..etc */
+#endif
+
+#   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_HP9000
+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 _fcdtocp(desc) (desc)
+#ifdef  HAVE_FMPOOL
+#define FILELIB PAGEBUFIO  /* enable page buffering */
+#else
+#define FILELIB UNIXBUFIO
+#endif
+
+#endif /* HP9000 */
+
+
+#if defined _WINDOWS || defined WIN32
+#define GOT_MACHINE 1
+
+#pragma comment( lib, "oldnames" )
+#include <fcntl.h>
+#include <sys\types.h>
+#include <sys\stat.h>
+#include <io.h>
+#include <conio.h> 
+#include <malloc.h>
+#include <ctype.h>          /* for character macros */
+#ifdef __WATCOMC__
+#include <stddef.h>         /* for the 'fortran' pragma */
+#endif
+
+#define DF_MT             DFMT_PC
+
+typedef char              *_fcd;
+typedef int               hsize_t_f;
+typedef int               hssize_t_f;
+typedef int               size_t_f;
+typedef int               int_f;
+typedef int               hid_t_f;
+typedef float             real_f;
+
+#if defined _M_ALPHA
+#define FNAME_PRE_UNDERSCORE
+#endif
+
+#define DF_CAPFNAMES
+#define _fcdtocp(desc) (desc)
+
+#ifdef  HAVE_FMPOOL
+#define FILELIB PAGEBUFIO  /* enable page buffering */
+#else
+#define FILELIB UNIXBUFIO
+#endif
+
+#endif /*WINDOWS */
+
+/*----------------------------------------------------------------
+** MACRO FNAME for any fortran callable routine name.
+**
+**  This macro prepends, appends, or does not modify a name
+**  passed as a macro parameter to it based on the FNAME_PRE_UNDERSCORE,
+**  FNAME_POST_UNDERSCORE macros set for a specific system.
+**
+**---------------------------------------------------------------*/
+#if defined(FNAME_PRE_UNDERSCORE) && defined(FNAME_POST_UNDERSCORE)
+#   define FNAME(x)     _##x##_
+#endif
+#if defined(FNAME_PRE_UNDERSCORE) && !defined(FNAME_POST_UNDERSCORE)
+#   define FNAME(x)     _##x
+#endif
+#if !defined(FNAME_PRE_UNDERSCORE) && defined(FNAME_POST_UNDERSCORE)
+#   define FNAME(x)     x##_
+#endif
+#if !defined(FNAME_PRE_UNDERSCORE) && !defined(FNAME_POST_UNDERSCORE)
+#   define FNAME(x)     x
+#endif
+
+#  define HDfree(p)        (free((void*)p))
+#  define HDmalloc(s)      (malloc((size_t)s))
+#  define HDstrlen(s)       (strlen((const char *)(s))) 
+#  define HDmemcpy(dst,src,n)   (memcpy((void *)(dst),(const void *)(src),(size_t)(n)))
+
+
+#endif /* _H5f90i_H */