From 0bd4a240e0335ae8040e0b3ecee795d0a61cf595 Mon Sep 17 00:00:00 2001 From: Fang Guo Date: Tue, 13 Sep 2005 14:12:17 -0500 Subject: [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: --- windows/fortran/src/H5f90i_gen.h | 4 ++++ windows/fortran/src/H5fortran_types.f90 | 2 ++ 2 files changed, 6 insertions(+) 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 -- cgit v0.12