mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-11-27 02:10:55 +08:00
[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:
This commit is contained in:
parent
936f41d3f0
commit
4a5280bd71
33
windows/fortran/src/H5f90i_gen.h
Executable file
33
windows/fortran/src/H5f90i_gen.h
Executable 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 */
|
||||
|
Loading…
Reference in New Issue
Block a user