diff options
| author | Fang Guo <fangguo@ncsa.uiuc.edu> | 2005-09-13 19:12:17 (GMT) |
|---|---|---|
| committer | Fang Guo <fangguo@ncsa.uiuc.edu> | 2005-09-13 19:12:17 (GMT) |
| commit | 0bd4a240e0335ae8040e0b3ecee795d0a61cf595 (patch) | |
| tree | 96d3bea03bfdda4a2b6b46494d60eea6ccfa10c6 /windows/fortran | |
| parent | 1b6406124a782a8c2c65522890a77ead754023ad (diff) | |
| download | hdf5-0bd4a240e0335ae8040e0b3ecee795d0a61cf595.zip hdf5-0bd4a240e0335ae8040e0b3ecee795d0a61cf595.tar.gz hdf5-0bd4a240e0335ae8040e0b3ecee795d0a61cf595.tar.bz2 | |
[svn-r11406] Purpose:
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:
Diffstat (limited to 'windows/fortran')
| -rwxr-xr-x | windows/fortran/src/H5f90i_gen.h | 4 | ||||
| -rwxr-xr-x | windows/fortran/src/H5fortran_types.f90 | 2 |
2 files changed, 6 insertions, 0 deletions
diff --git a/windows/fortran/src/H5f90i_gen.h b/windows/fortran/src/H5f90i_gen.h index 713fe18..1cac077 100755 --- a/windows/fortran/src/H5f90i_gen.h +++ b/windows/fortran/src/H5f90i_gen.h @@ -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 */ diff --git a/windows/fortran/src/H5fortran_types.f90 b/windows/fortran/src/H5fortran_types.f90 index f7a9f96..94c6f82 100755 --- a/windows/fortran/src/H5fortran_types.f90 +++ b/windows/fortran/src/H5fortran_types.f90 @@ -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 |