[svn-r10663] Purpose:

Update windows fortran support

Description:
Currently an implementation of automatic generated fortran data type from C has been done for
Linux/Unix platforms. For windows different implementation needs to be developed to make it
consistent with the implementation on Linux/Unix. For the purpose of 1.8 release, we have to add a
new header file. The checking program of the header file on windows will be generated on windows separately.
Solution:

Platforms tested:
VS 6.0 on windows xp.

Misc. update:

1 files changed, 33 insertions, 0 deletions

diff --git a/windows/fortran/src/H5f90i_gen.h b/windows/fortran/src/H5f90i_gen.h
new file mode 100755
index 0000000..8de6e32
--- /dev/null
+++ b/windows/fortran/src/H5f90i_gen.h
@@ -0,0 +1,33 @@
+/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+ * 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. *
+ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
+
+
+
+
+
+#if defined _WINDOWS || defined WIN32
+
+typedef char              *_fcd;
+typedef int               haddr_t_f;
+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 _fcdtocp(desc) (desc)
+
+#endif /*WINDOWS */
+