diff options
| -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 |