summaryrefslogtreecommitdiffstats
path: root/windows
diff options
context:
space:
mode:
Diffstat (limited to 'windows')
-rwxr-xr-xwindows/fortran/src/H5f90i_gen.h4
-rwxr-xr-xwindows/fortran/src/H5fortran_types.f902
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