From 4a5280bd712fa450b356fb48fdcb8838fdc1b8f5 Mon Sep 17 00:00:00 2001 From: MuQun Yang Date: Tue, 26 Apr 2005 10:50:09 -0500 Subject: [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: --- windows/fortran/src/H5f90i_gen.h | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100755 windows/fortran/src/H5f90i_gen.h 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 */ + -- cgit v0.12