mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-31 17:10:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r11406] Purpose:

Browse Source 
Maintenance on Windows
Description:
Changes made for windows due to the change of code H5f90i.h H5match_types.c
Solution:


Platforms tested:
MSVS 6.0 On windows XP
Misc. update:
This commit is contained in:
Fang Guo 2005-09-13 14:12:17 -05:00
parent 1b6406124a
commit 0bd4a240e0
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
windows/fortran/src/H5f90i_gen.h
View File

@ -24,6 +24,8 @@
#define c_int_2 short
#define c_int_4 long
#define c_int_8 long_long
#define c_float_4 float
#define c_double_8 long double
typedef c_int_8 haddr_t_f;
typedef c_int_8 hsize_t_f;
@ -31,5 +33,7 @@ typedef c_int_8 hssize_t_f;
typedef c_int_4 size_t_f;
typedef c_int_4 int_f;
typedef c_int_4 hid_t_f;
typedef c_float_4 real_f;
typedef c_double_8 double_f;
#endif /* _H5f90i_gen_H */

2
windows/fortran/src/H5fortran_types.f90
View File

@ -25,6 +25,8 @@
INTEGER, PARAMETER :: SIZE_T = 4
INTEGER, PARAMETER :: INT = 4
INTEGER, PARAMETER :: HID_T = 4
INTEGER, PARAMETER :: Fortran_REAL = 4
INTEGER, PARAMETER :: Fortran_DOUBLE = 8
INTEGER(SIZE_T), PARAMETER :: OBJECT_NAMELEN_DEFAULT_F = -1