summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMuQun Yang <ymuqun@hdfgroup.org>2005-04-26 15:50:09 (GMT)
committerMuQun Yang <ymuqun@hdfgroup.org>2005-04-26 15:50:09 (GMT)
commit4a5280bd712fa450b356fb48fdcb8838fdc1b8f5 (patch)
treeff7e3f0af24f0e4a3c67b7e21457cb27bf6e846c
parent936f41d3f0b8e241ccbdb13f06bc4bf939d8dd3c (diff)
downloadhdf5-4a5280bd712fa450b356fb48fdcb8838fdc1b8f5.zip
hdf5-4a5280bd712fa450b356fb48fdcb8838fdc1b8f5.tar.gz
hdf5-4a5280bd712fa450b356fb48fdcb8838fdc1b8f5.tar.bz2
[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:
-rwxr-xr-xwindows/fortran/src/H5f90i_gen.h33
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 */
+