summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5f90global.f90
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2008-05-04 16:48:07 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2008-05-04 16:48:07 (GMT)
commitf6069ad57e7ddf4b97e4c40e16d1b09464cf62a5 (patch)
tree8772b27441a53c0c19a819da1226a3e65638cba7 /fortran/src/H5f90global.f90
parent31b3c349083232358eb5b0ae4c0ee7c1f1dae4af (diff)
downloadhdf5-f6069ad57e7ddf4b97e4c40e16d1b09464cf62a5.zip
hdf5-f6069ad57e7ddf4b97e4c40e16d1b09464cf62a5.tar.gz
hdf5-f6069ad57e7ddf4b97e4c40e16d1b09464cf62a5.tar.bz2
[svn-r14928] Maintenance: Cleaned up the code to make it compile on smirom with the g95 compiler
Platforms tested: kagiso with PGI compilers, linew, smirom with GCC and g95 compilers; some tests and function calls are commented out with !EP string; we will be working on it.
Diffstat (limited to 'fortran/src/H5f90global.f90')
-rw-r--r--fortran/src/H5f90global.f9042
1 files changed, 26 insertions, 16 deletions
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90
index 42f5cf0..251e49c 100644
--- a/fortran/src/H5f90global.f90
+++ b/fortran/src/H5f90global.f90
@@ -492,7 +492,7 @@
!
! H5P flags declaration
!
- INTEGER, PARAMETER :: H5P_FLAGS_LEN = 20
+ INTEGER, PARAMETER :: H5P_FLAGS_LEN = 18
INTEGER(HID_T) H5P_flags(H5P_FLAGS_LEN)
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$ ATTRIBUTES DLLEXPORT :: /H5P_FLAGS/
@@ -506,8 +506,6 @@
INTEGER(HID_T) :: H5P_FILE_MOUNT_F
INTEGER(HID_T) :: H5P_DEFAULT_F
INTEGER(HID_T) :: H5P_ROOT_F
- INTEGER(HID_T) :: H5P_CRT_ORDER_INDEXED_F
- INTEGER(HID_T) :: H5P_CRT_ORDER_TRACKED_F
INTEGER(HID_T) :: H5P_OBJECT_CREATE_F
INTEGER(HID_T) :: H5P_DATASET_ACCESS_F
INTEGER(HID_T) :: H5P_GROUP_CREATE_F
@@ -527,19 +525,31 @@
EQUIVALENCE(H5P_flags(5), H5P_FILE_MOUNT_F)
EQUIVALENCE(H5P_flags(6), H5P_DEFAULT_F)
EQUIVALENCE(H5P_flags(7), H5P_ROOT_F)
- EQUIVALENCE(H5P_flags(8), H5P_CRT_ORDER_INDEXED_F)
- EQUIVALENCE(H5P_flags(9), H5P_CRT_ORDER_TRACKED_F)
- EQUIVALENCE(H5P_flags(10), H5P_OBJECT_CREATE_F)
- EQUIVALENCE(H5P_flags(11), H5P_DATASET_ACCESS_F)
- EQUIVALENCE(H5P_flags(12), H5P_GROUP_CREATE_F)
- EQUIVALENCE(H5P_flags(13), H5P_GROUP_ACCESS_F)
- EQUIVALENCE(H5P_flags(14), H5P_DATATYPE_CREATE_F)
- EQUIVALENCE(H5P_flags(15), H5P_DATATYPE_ACCESS_F)
- EQUIVALENCE(H5P_flags(16), H5P_STRING_CREATE_F)
- EQUIVALENCE(H5P_flags(17), H5P_ATTRIBUTE_CREATE_F)
- EQUIVALENCE(H5P_flags(18), H5P_OBJECT_COPY_F)
- EQUIVALENCE(H5P_flags(19), H5P_LINK_CREATE_F)
- EQUIVALENCE(H5P_flags(20), H5P_LINK_ACCESS_F)
+ EQUIVALENCE(H5P_flags(8), H5P_OBJECT_CREATE_F)
+ EQUIVALENCE(H5P_flags(9), H5P_DATASET_ACCESS_F)
+ EQUIVALENCE(H5P_flags(10), H5P_GROUP_CREATE_F)
+ EQUIVALENCE(H5P_flags(11), H5P_GROUP_ACCESS_F)
+ EQUIVALENCE(H5P_flags(12), H5P_DATATYPE_CREATE_F)
+ EQUIVALENCE(H5P_flags(13), H5P_DATATYPE_ACCESS_F)
+ EQUIVALENCE(H5P_flags(14), H5P_STRING_CREATE_F)
+ EQUIVALENCE(H5P_flags(15), H5P_ATTRIBUTE_CREATE_F)
+ EQUIVALENCE(H5P_flags(16), H5P_OBJECT_COPY_F)
+ EQUIVALENCE(H5P_flags(17), H5P_LINK_CREATE_F)
+ EQUIVALENCE(H5P_flags(18), H5P_LINK_ACCESS_F)
+
+!
+! H5P intgere flags declaration
+!
+ INTEGER, PARAMETER :: H5P_FLAGS_INT_LEN = 2
+ INTEGER H5P_flags_int(H5P_FLAGS_INT_LEN)
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$ ATTRIBUTES DLLEXPORT :: /H5P_FLAGS_INT/
+!DEC$endif
+ COMMON /H5P_FLAGS_INT/ H5P_flags_int
+ INTEGER :: H5P_CRT_ORDER_INDEXED_F
+ INTEGER :: H5P_CRT_ORDER_TRACKED_F
+ EQUIVALENCE(H5P_flags_int(1), H5P_CRT_ORDER_INDEXED_F)
+ EQUIVALENCE(H5P_flags_int(2), H5P_CRT_ORDER_TRACKED_F)
!
! H5R flags declaration
!