mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-27 02:10:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r10663] Purpose:

Browse Source 
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:
This commit is contained in:
MuQun Yang 2005-04-26 10:50:09 -05:00
parent 936f41d3f0
commit 4a5280bd71
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
windows/fortran/src/H5f90i_gen.h Executable file
View File

@ -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 */