summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFang Guo <fangguo@ncsa.uiuc.edu>2005-09-13 19:12:17 (GMT)
committerFang Guo <fangguo@ncsa.uiuc.edu>2005-09-13 19:12:17 (GMT)
commit0bd4a240e0335ae8040e0b3ecee795d0a61cf595 (patch)
tree96d3bea03bfdda4a2b6b46494d60eea6ccfa10c6
parent1b6406124a782a8c2c65522890a77ead754023ad (diff)
downloadhdf5-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:
-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