summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2001-06-21 15:25:07 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2001-06-21 15:25:07 (GMT)
commit697b533b9c074febb30f3aeea66a0391e61e11a1 (patch)
treea1b04a95f1144406c871eac446f324bcac58676b /fortran/src
parent93d04204ae6f44812051930a02ced33c3661ce89 (diff)
downloadhdf5-697b533b9c074febb30f3aeea66a0391e61e11a1.zip
hdf5-697b533b9c074febb30f3aeea66a0391e61e11a1.tar.gz
hdf5-697b533b9c074febb30f3aeea66a0391e61e11a1.tar.bz2
[svn-r4033]
Purpose: DEC UNIX port Description: Windows port caused problems on DEC UNIX. Names of C functions called from F90 subroutines were converted to UPPER case while DEC UNIX expected them to be in lower case. Solution: Added special DEC compiler directives to avoid the conflict on two systems Platforms tested: Windows98, DEC UNIX, Linux
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5Aff.f90146
-rw-r--r--fortran/src/H5Dff.f90150
-rw-r--r--fortran/src/H5Fff.f9020
-rw-r--r--fortran/src/H5Gff.f9022
-rw-r--r--fortran/src/H5Iff.f902
-rw-r--r--fortran/src/H5Pff.f90104
-rw-r--r--fortran/src/H5Rff.f9012
-rw-r--r--fortran/src/H5Sff.f9048
-rw-r--r--fortran/src/H5Tff.f9096
-rw-r--r--fortran/src/H5_ff.f9010
10 files changed, 610 insertions, 0 deletions
diff --git a/fortran/src/H5Aff.f90 b/fortran/src/H5Aff.f90
index 7752a86..1742018 100644
--- a/fortran/src/H5Aff.f90
+++ b/fortran/src/H5Aff.f90
@@ -140,7 +140,9 @@
INTEGER FUNCTION h5acreate_c(obj_id, name, namelen, type_id, &
space_id, creation_prp_default, attr_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5ACREATE_C'::h5acreate_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: obj_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -204,7 +206,9 @@
INTERFACE
INTEGER FUNCTION h5aopen_name_c(obj_id, name, namelen, attr_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AOPEN_NAME_C'::h5aopen_name_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: obj_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -261,7 +265,9 @@
INTERFACE
INTEGER FUNCTION h5aopen_idx_c(obj_id, index, attr_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AOPEN_IDX_C'::h5aopen_idx_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: obj_id
INTEGER, INTENT(IN) :: index
INTEGER(HID_T), INTENT(OUT) :: attr_id
@@ -326,7 +332,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -358,7 +366,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -392,7 +402,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -426,7 +438,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -460,7 +474,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -494,7 +510,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -528,7 +546,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -562,7 +582,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -594,7 +616,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -626,7 +650,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -660,7 +686,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -694,7 +722,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -728,7 +758,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -762,7 +794,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -796,7 +830,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -830,7 +866,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -862,7 +900,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -893,7 +933,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -927,7 +969,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -961,7 +1005,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -995,7 +1041,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1029,7 +1077,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1063,7 +1113,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1097,7 +1149,9 @@
INTERFACE
INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1128,7 +1182,9 @@
INTERFACE
INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -1160,7 +1216,9 @@
INTERFACE
INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -1194,7 +1252,9 @@
INTERFACE
INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -1228,7 +1288,9 @@
INTERFACE
INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -1262,7 +1324,9 @@
INTERFACE
INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -1296,7 +1360,9 @@
INTERFACE
INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -1330,7 +1396,9 @@
INTERFACE
INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -1364,7 +1432,9 @@
INTERFACE
INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -1429,7 +1499,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1460,7 +1532,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1493,7 +1567,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1526,7 +1602,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1560,7 +1638,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1594,7 +1674,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1628,7 +1710,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1662,7 +1746,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1694,7 +1780,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1726,7 +1814,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1760,7 +1850,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1794,7 +1886,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1828,7 +1922,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1862,7 +1958,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1896,7 +1994,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1930,7 +2030,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1962,7 +2064,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -1994,7 +2098,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -2028,7 +2134,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -2062,7 +2170,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -2096,7 +2206,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -2130,7 +2242,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -2164,7 +2278,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -2198,7 +2314,9 @@
INTERFACE
INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+ !DEC$ ENDIF
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -2230,7 +2348,9 @@
INTERFACE
INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -2264,7 +2384,9 @@
INTERFACE
INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -2299,7 +2421,9 @@
INTERFACE
INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -2334,7 +2458,9 @@
INTERFACE
INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -2369,7 +2495,9 @@
INTERFACE
INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -2404,7 +2532,9 @@
INTERFACE
INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -2439,7 +2569,9 @@
INTERFACE
INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -2474,7 +2606,9 @@
INTERFACE
INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER, DIMENSION(7) :: dims
INTEGER(HID_T), INTENT(IN) :: attr_id
@@ -2528,7 +2662,9 @@
INTERFACE
INTEGER FUNCTION h5aget_space_c(attr_id, space_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AGET_SPACE_C'::h5aget_space_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(OUT) :: space_id
END FUNCTION h5aget_space_c
@@ -2578,7 +2714,9 @@
INTERFACE
INTEGER FUNCTION h5aget_type_c(attr_id, type_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AGET_TYPE_C'::h5aget_type_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(OUT) :: type_id
END FUNCTION h5aget_type_c
@@ -2632,7 +2770,9 @@
INTERFACE
INTEGER FUNCTION h5aget_name_c(attr_id, size, buf)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AGET_NAME_C'::h5aget_name_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(SIZE_T), INTENT(IN) :: size
@@ -2686,7 +2826,9 @@
INTERFACE
INTEGER FUNCTION h5aget_num_attrs_c(obj_id, attr_num)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5AGET_NUM_ATTRS_C'::h5aget_num_attrs_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: obj_id
INTEGER, INTENT(OUT) :: attr_num
END FUNCTION h5aget_num_attrs_c
@@ -2738,7 +2880,9 @@
INTERFACE
INTEGER FUNCTION h5adelete_c(obj_id, name, namelen)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5ADELETE_C'::h5adelete_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: obj_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -2789,7 +2933,9 @@
INTERFACE
INTEGER FUNCTION h5aclose_c(attr_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5ACLOSE_C'::h5aclose_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: attr_id
END FUNCTION h5aclose_c
END INTERFACE
diff --git a/fortran/src/H5Dff.f90 b/fortran/src/H5Dff.f90
index 515ab5c..23df442 100644
--- a/fortran/src/H5Dff.f90
+++ b/fortran/src/H5Dff.f90
@@ -142,7 +142,9 @@
INTEGER FUNCTION h5dcreate_c(loc_id, name, namelen, type_id, &
space_id, creation_prp_default, dset_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DCREATE_C'::h5dcreate_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -205,7 +207,9 @@
INTERFACE
INTEGER FUNCTION h5dopen_c(loc_id, name, namelen, dset_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DOPEN_C'::h5dopen_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -259,7 +263,9 @@
INTERFACE
INTEGER FUNCTION h5dclose_c(dset_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DCLOSE_C'::h5dclose_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
END FUNCTION h5dclose_c
END INTERFACE
@@ -343,7 +349,9 @@
mem_space_id_default, &
file_space_id_default, xfer_prp_default, ref_buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_REF_OBJ_C'::h5dwrite_ref_obj_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: xfer_prp_default
@@ -413,7 +421,9 @@
mem_space_id_default, &
file_space_id_default, xfer_prp_default, ref_buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_REF_REG_C'::h5dwrite_ref_reg_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: xfer_prp_default
@@ -484,7 +494,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -543,7 +555,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -603,7 +617,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -664,7 +680,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -725,7 +743,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -785,7 +805,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -847,7 +869,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -908,7 +932,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -968,7 +994,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1028,7 +1056,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1089,7 +1119,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1150,7 +1182,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1211,7 +1245,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1272,7 +1308,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1333,7 +1371,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1394,7 +1434,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1452,7 +1494,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1510,7 +1554,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1570,7 +1616,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1629,7 +1677,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1688,7 +1738,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1747,7 +1799,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1806,7 +1860,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1865,7 +1921,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1924,7 +1982,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1983,7 +2043,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2043,7 +2105,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2103,7 +2167,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2163,7 +2229,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2223,7 +2291,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2284,7 +2354,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2345,7 +2417,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2445,7 +2519,9 @@
mem_space_id_default, &
file_space_id_default, xfer_prp_default, ref_buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_REF_OBJ_C'::h5dread_ref_obj_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: xfer_prp_default
@@ -2515,7 +2591,9 @@
mem_space_id_default, &
file_space_id_default, xfer_prp_default, ref_buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_REF_REG_C'::h5dread_ref_reg_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: xfer_prp_default
@@ -2585,7 +2663,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2644,7 +2724,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2704,7 +2786,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2765,7 +2849,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2826,7 +2912,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2887,7 +2975,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2948,7 +3038,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -3009,7 +3101,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -3068,7 +3162,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3128,7 +3224,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3189,7 +3287,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3250,7 +3350,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3311,7 +3413,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3372,7 +3476,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3433,7 +3539,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3494,7 +3602,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3552,7 +3662,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -3610,7 +3722,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -3669,7 +3783,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -3728,7 +3844,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -3787,7 +3905,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -3846,7 +3966,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -3905,7 +4027,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -3965,7 +4089,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -4023,7 +4149,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -4082,7 +4210,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -4142,7 +4272,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -4202,7 +4334,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -4263,7 +4397,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -4323,7 +4459,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -4384,7 +4522,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -4445,7 +4585,9 @@
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -4511,7 +4653,9 @@
INTERFACE
INTEGER FUNCTION h5dget_space_c(dataset_id, dataspace_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DGET_SPACE_C'::h5dget_space_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dataset_id
INTEGER(HID_T), INTENT(OUT) :: dataspace_id
END FUNCTION h5dget_space_c
@@ -4561,7 +4705,9 @@
INTERFACE
INTEGER FUNCTION h5dget_type_c (dataset_id, datatype_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DGET_TYPE_C'::h5dget_type_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dataset_id
INTEGER(HID_T), INTENT(OUT) :: datatype_id
END FUNCTION h5dget_type_c
@@ -4615,7 +4761,9 @@
INTERFACE
INTEGER FUNCTION h5dextend_c(dataset_id, size)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DEXTEND_C'::h5dextend_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dataset_id
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: size
END FUNCTION h5dextend_c
@@ -4669,7 +4817,9 @@
INTERFACE
INTEGER FUNCTION h5dget_create_plist_c(dataset_id, plist_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5DGET_CREATE_PLIST_C'::h5dget_create_plist_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dataset_id
INTEGER(HID_T), INTENT(OUT) :: plist_id
END FUNCTION h5dget_create_plist_c
diff --git a/fortran/src/H5Fff.f90 b/fortran/src/H5Fff.f90
index a8a24fa..6e0cb3a 100644
--- a/fortran/src/H5Fff.f90
+++ b/fortran/src/H5Fff.f90
@@ -65,7 +65,9 @@
INTEGER FUNCTION h5fcreate_c(name, namelen, access_flags, &
creation_prp_default, access_prp_default, file_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5FCREATE_C':: h5fcreate_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER, INTENT(IN) :: access_flags
@@ -150,7 +152,9 @@
INTERFACE
INTEGER FUNCTION h5fflush_c(object_id, scope)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5FFLUSH_C':: h5fflush_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: object_id
INTEGER, INTENT(IN) :: scope
END FUNCTION h5fflush_c
@@ -216,7 +220,9 @@
INTEGER FUNCTION h5fmount_c(loc_id, name, namelen, &
child_id, access_prp_default)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5FMOUNT_C':: h5fmount_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -282,7 +288,9 @@
INTERFACE
INTEGER FUNCTION h5funmount_c(loc_id, name, namelen)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5FUNMOUNT_C':: h5funmount_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -349,7 +357,9 @@
INTEGER FUNCTION h5fopen_c(name, namelen, access_flags, &
access_prp_default, file_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5FOPEN_C':: h5fopen_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER :: namelen
@@ -412,7 +422,9 @@
INTERFACE
INTEGER FUNCTION h5freopen_c(file_id, ret_file_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5FREOPEN_C':: h5freopen_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: file_id
INTEGER(HID_T), INTENT(OUT) :: ret_file_id
END FUNCTION h5freopen_c
@@ -468,7 +480,9 @@
INTERFACE
INTEGER FUNCTION h5fget_create_plist_c(file_id, prop_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5FGET_CREATE_PLIST_C':: h5fget_create_plist_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: file_id
INTEGER(HID_T), INTENT(OUT) :: prop_id
END FUNCTION h5fget_create_plist_c
@@ -524,7 +538,9 @@
INTERFACE
INTEGER FUNCTION h5fget_access_plist_c(file_id, access_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5FGET_CREATE_PLIST_C':: h5fget_access_plist_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: file_id
INTEGER(HID_T), INTENT(OUT) :: access_id
END FUNCTION h5fget_access_plist_c
@@ -583,7 +599,9 @@
INTERFACE
INTEGER FUNCTION h5fis_hdf5_c(name, namelen, flag)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5FIS_HDF5_C':: h5fis_hdf5_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER :: namelen
@@ -640,7 +658,9 @@
INTERFACE
INTEGER FUNCTION h5fclose_c(file_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5FCLOSE_C':: h5fclose_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: file_id
END FUNCTION h5fclose_c
END INTERFACE
diff --git a/fortran/src/H5Gff.f90 b/fortran/src/H5Gff.f90
index 1547d25..96bc374 100644
--- a/fortran/src/H5Gff.f90
+++ b/fortran/src/H5Gff.f90
@@ -62,7 +62,9 @@
INTEGER FUNCTION h5gcreate_c(loc_id, name, namelen, &
size_hint_default, grp_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5GCREATE_C'::h5gcreate_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -127,7 +129,9 @@
INTERFACE
INTEGER FUNCTION h5gopen_c(loc_id, name, namelen, grp_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5GOPEN_C'::h5gopen_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -182,7 +186,9 @@
INTERFACE
INTEGER FUNCTION h5gclose_c(grp_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5GCLOSE_C'::h5gclose_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: grp_id
END FUNCTION h5gclose_c
END INTERFACE
@@ -248,7 +254,9 @@
namelen, idx, &
obj_name, obj_namelen, obj_type)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5GGET_OBJ_INFO_IDX_C'::h5gget_obj_info_idx_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
!DEC$ATTRIBUTES reference :: obj_name
INTEGER(HID_T), INTENT(IN) :: loc_id
@@ -317,7 +325,9 @@
INTERFACE
INTEGER FUNCTION h5gn_members_c(loc_id, name, namelen, nmembers)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5GN_MEMBERS_C'::h5gn_members_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -395,7 +405,9 @@
current_namelen, new_name, new_namelen)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5GLINK_C'::h5glink_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: current_name
!DEC$ATTRIBUTES reference :: new_name
INTEGER(HID_T), INTENT(IN) :: loc_id
@@ -461,7 +473,9 @@
INTERFACE
INTEGER FUNCTION h5gunlink_c(loc_id, name, namelen)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5GUNLINK_C'::h5gunlink_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -523,7 +537,9 @@
INTERFACE
INTEGER FUNCTION h5gmove_c(loc_id, name, namelen, new_name, new_namelen)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5GMOVE_C'::h5gmove_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
!DEC$ATTRIBUTES reference :: new_name
INTEGER(HID_T), INTENT(IN) :: loc_id
@@ -595,7 +611,9 @@
INTERFACE
INTEGER FUNCTION h5gget_linkval_c(loc_id, name, namelen, size, buffer)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5GGET_LINKVAL_C'::h5gget_linkval_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
!DEC$ATTRIBUTES reference :: buffer
INTEGER(HID_T), INTENT(IN) :: loc_id
@@ -660,7 +678,9 @@
INTEGER FUNCTION h5gset_comment_c(loc_id, name, namelen, &
comment, commentlen)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5GSET_COMMENT_C'::h5gset_comment_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
!DEC$ATTRIBUTES reference :: comment
INTEGER(HID_T), INTENT(IN) :: loc_id
@@ -728,7 +748,9 @@
INTEGER FUNCTION h5gget_comment_c(loc_id, name, namelen, &
size, buffer)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5GGET_COMMENT_C'::h5gget_comment_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
!DEC$ATTRIBUTES reference :: buffer
INTEGER(HID_T), INTENT(IN) :: loc_id
diff --git a/fortran/src/H5Iff.f90 b/fortran/src/H5Iff.f90
index cd25f28..f0ac299 100644
--- a/fortran/src/H5Iff.f90
+++ b/fortran/src/H5Iff.f90
@@ -63,7 +63,9 @@
INTERFACE
INTEGER FUNCTION h5iget_type_c(obj_id, type)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5IGET_TYPE_C':: h5iget_type_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: obj_id
INTEGER, INTENT(OUT) :: type
END FUNCTION h5iget_type_c
diff --git a/fortran/src/H5Pff.f90 b/fortran/src/H5Pff.f90
index e8b7465..9661990 100644
--- a/fortran/src/H5Pff.f90
+++ b/fortran/src/H5Pff.f90
@@ -81,7 +81,9 @@
INTERFACE
INTEGER FUNCTION h5pcreate_c(classtype, prp_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PCREATE_C'::h5pcreate_c
+ !DEC$ ENDIF
INTEGER, INTENT(IN) :: classtype
INTEGER(HID_T), INTENT(OUT) :: prp_id
END FUNCTION h5pcreate_c
@@ -138,7 +140,9 @@
INTERFACE
INTEGER FUNCTION h5pset_preserve_c(prp_id, flag)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_PRESERVE_C'::h5pset_preserve_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(IN) :: flag
END FUNCTION h5pset_preserve_c
@@ -192,7 +196,9 @@
INTERFACE
INTEGER FUNCTION h5pget_preserve_c(prp_id, flag)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_PRESERVE_C'::h5pget_preserve_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(OUT) :: flag
END FUNCTION h5pget_preserve_c
@@ -259,7 +265,9 @@
INTERFACE
INTEGER FUNCTION h5pget_class_c(prp_id, classtype)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_CLASS_C'::h5pget_class_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(OUT) :: classtype
END FUNCTION h5pget_class_c
@@ -315,7 +323,9 @@
INTERFACE
INTEGER FUNCTION h5pcopy_c(prp_id, new_prp_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PCOPY_C'::h5pcopy_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HID_T), INTENT(OUT) :: new_prp_id
END FUNCTION h5pcopy_c
@@ -367,7 +377,9 @@
INTERFACE
INTEGER FUNCTION h5pclose_c(prp_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PCLOSE_C'::h5pclose_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
END FUNCTION h5pclose_c
END INTERFACE
@@ -424,7 +436,9 @@
INTERFACE
INTEGER FUNCTION h5pset_chunk_c(prp_id, ndims, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_CHUNK_C'::h5pset_chunk_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(IN) :: ndims
INTEGER(HSIZE_T), DIMENSION(ndims), INTENT(IN) :: dims
@@ -486,7 +500,9 @@
INTERFACE
INTEGER FUNCTION h5pget_chunk_c(prp_id, ndims, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_CHUNK_C'::h5pget_chunk_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER :: ndims
INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: dims
@@ -540,7 +556,9 @@
INTERFACE
INTEGER FUNCTION h5pset_deflate_c(prp_id, level)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_DEFLATE_C'::h5pset_deflate_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(IN) :: level
END FUNCTION h5pset_deflate_c
@@ -601,7 +619,9 @@
INTERFACE
INTEGER FUNCTION h5pset_fill_value_c(prp_id, type_id, fillvalue)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_FILL_VALUE_C'::h5pset_fill_value_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(IN) :: fillvalue
@@ -634,7 +654,9 @@
INTERFACE
INTEGER FUNCTION h5pget_fill_value_c(prp_id, type_id, fillvalue)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_FILL_VALUE_C'::h5pget_fill_value_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER :: fillvalue
@@ -667,7 +689,9 @@
INTERFACE
INTEGER FUNCTION h5pset_fill_value_c(prp_id, type_id, fillvalue)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_FILL_VALUE_C'::h5pset_fill_value_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HID_T), INTENT(IN) :: type_id
REAL, INTENT(IN) :: fillvalue
@@ -700,7 +724,9 @@
INTERFACE
INTEGER FUNCTION h5pget_fill_value_c(prp_id, type_id, fillvalue)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_FILL_VALUE_C'::h5pget_fill_value_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HID_T), INTENT(IN) :: type_id
REAL :: fillvalue
@@ -733,7 +759,9 @@
INTERFACE
INTEGER FUNCTION h5pset_fill_value_c(prp_id, type_id, fillvalue)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_FILL_VALUE_C'::h5pset_fill_value_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HID_T), INTENT(IN) :: type_id
DOUBLE PRECISION, INTENT(IN) :: fillvalue
@@ -766,7 +794,9 @@
INTERFACE
INTEGER FUNCTION h5pget_fill_value_c(prp_id, type_id, fillvalue)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_FILL_VALUE_C'::h5pget_fill_value_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HID_T), INTENT(IN) :: type_id
DOUBLE PRECISION :: fillvalue
@@ -798,7 +828,9 @@
INTERFACE
INTEGER FUNCTION h5pset_fill_valuec_c(prp_id, type_id, fillvalue)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_FILL_VALUEC_C'::h5pset_fill_valuec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: fillvalue
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HID_T), INTENT(IN) :: type_id
@@ -831,7 +863,9 @@
INTERFACE
INTEGER FUNCTION h5pget_fill_valuec_c(prp_id, type_id, fillvalue)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_FILL_VALUEC_C'::h5pget_fill_valuec_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: fillvalue
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HID_T), INTENT(IN) :: type_id
@@ -899,7 +933,9 @@
INTERFACE
INTEGER FUNCTION h5pget_version_c(prp_id, boot, freelist, stab, shhdr)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_VERSION_C'::h5pget_version_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, DIMENSION(:), INTENT(OUT) :: boot
INTEGER, DIMENSION(:), INTENT(OUT) :: freelist
@@ -954,7 +990,9 @@
INTERFACE
INTEGER FUNCTION h5pset_userblock_c(prp_id, size)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_USERBLOCK_C'::h5pset_userblock_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HSIZE_T), INTENT(IN) :: size
END FUNCTION h5pset_userblock_c
@@ -1008,7 +1046,9 @@
INTERFACE
INTEGER FUNCTION h5pget_userblock_c(prp_id, block_size)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_USERBLOCK_C'::h5pget_userblock_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HSIZE_T), INTENT(OUT) :: block_size
END FUNCTION h5pget_userblock_c
@@ -1064,7 +1104,9 @@
INTERFACE
INTEGER FUNCTION h5pset_sizes_c(prp_id, sizeof_addr, sizeof_size)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_SIZES_C'::h5pset_sizes_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(SIZE_T), INTENT(IN) :: sizeof_addr
INTEGER(SIZE_T), INTENT(IN) :: sizeof_size
@@ -1124,7 +1166,9 @@
INTERFACE
INTEGER FUNCTION h5pget_sizes_c(prp_id, sizeof_addr, sizeof_size)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_SIZES_C'::h5pget_sizes_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(SIZE_T), INTENT(OUT) :: sizeof_addr
INTEGER(SIZE_T), INTENT(OUT) :: sizeof_size
@@ -1181,7 +1225,9 @@
INTERFACE
INTEGER FUNCTION h5pset_sym_k_c(prp_id, ik, lk)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_SYM_K_C'::h5pset_sym_k_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(IN) :: ik
INTEGER, INTENT(IN) :: lk
@@ -1238,7 +1284,9 @@
INTERFACE
INTEGER FUNCTION h5pget_sym_k_c(prp_id, ik, lk)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_SYM_K_C'::h5pget_sym_k_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(OUT) :: ik
INTEGER, INTENT(OUT) :: lk
@@ -1293,7 +1341,9 @@
INTERFACE
INTEGER FUNCTION h5pset_istore_k_c(prp_id, ik)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_ISTORE_K_C'::h5pset_istore_k_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(IN) :: ik
END FUNCTION h5pset_istore_k_c
@@ -1346,7 +1396,9 @@
INTERFACE
INTEGER FUNCTION h5pget_istore_k_c(prp_id, ik)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_ISTORE_K_C'::h5pget_istore_k_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(OUT) :: ik
END FUNCTION h5pget_istore_k_c
@@ -1399,7 +1451,9 @@
INTERFACE
INTEGER FUNCTION h5pget_driver_c(prp_id, driver)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_DRIVER_C'::h5pget_driver_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HID_T), INTENT(OUT) :: driver
END FUNCTION h5pget_driver_c
@@ -1449,7 +1503,9 @@
INTERFACE
INTEGER FUNCTION h5pset_fapl_stdio_c(prp_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_FAPL_STDIO_C'::h5pset_fapl_stdio_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
END FUNCTION h5pset_fapl_stdio_c
END INTERFACE
@@ -1538,7 +1594,9 @@
INTERFACE
INTEGER FUNCTION h5pset_fapl_sec2_c(prp_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_FAPL_SEC2_C'::h5pset_fapl_sec2_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
END FUNCTION h5pset_fapl_sec2_c
END INTERFACE
@@ -1625,7 +1683,9 @@
INTERFACE
INTEGER FUNCTION h5pset_alignment_c(prp_id, threshold, alignment)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_ALIGNMENT_C'::h5pset_alignment_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HSIZE_T), INTENT(IN) :: threshold
INTEGER(HSIZE_T), INTENT(IN) :: alignment
@@ -1681,7 +1741,9 @@
INTERFACE
INTEGER FUNCTION h5pget_alignment_c(prp_id, threshold, alignment)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_ALIGNMENT_C'::h5pget_alignment_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HSIZE_T), INTENT(OUT) :: threshold
INTEGER(HSIZE_T), INTENT(OUT) :: alignment
@@ -1739,7 +1801,9 @@
INTERFACE
INTEGER FUNCTION h5pset_fapl_core_c(prp_id, increment, backing_store)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_FAPL_CORE_C'::h5pset_fapl_core_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(SIZE_T), INTENT(IN) :: increment
INTEGER, INTENT(IN) :: backing_store
@@ -1797,7 +1861,9 @@
INTERFACE
INTEGER FUNCTION h5pget_fapl_core_c(prp_id, increment, backing_store)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_FAPL_CORE_C'::h5pget_fapl_core_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(SIZE_T), INTENT(OUT) :: increment
INTEGER, INTENT(OUT) :: backing_store
@@ -1856,7 +1922,9 @@
INTERFACE
INTEGER FUNCTION h5pset_fapl_family_c(prp_id, memb_size, memb_plist)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_FAPL_FAMILY_C'::h5pset_fapl_family_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HSIZE_T), INTENT(IN) :: memb_size
INTEGER(HID_T), INTENT(IN) :: memb_plist
@@ -1916,7 +1984,9 @@
INTERFACE
INTEGER FUNCTION h5pget_fapl_family_c(prp_id, memb_size, memb_plist)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_FAPL_FAMILY_C'::h5pget_fapl_family_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HSIZE_T), INTENT(OUT) :: memb_size
INTEGER(HID_T), INTENT(OUT) :: memb_plist
@@ -1981,7 +2051,9 @@
INTERFACE
INTEGER FUNCTION h5pset_cache_c(prp_id,mdc_nelmts,rdcc_nelmts,rdcc_nbytes,rdcc_w0)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_CACHE_C'::h5pset_cache_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(IN) :: mdc_nelmts
INTEGER, INTENT(IN) :: rdcc_nelmts
@@ -2049,7 +2121,9 @@
INTERFACE
INTEGER FUNCTION h5pget_cache_c(prp_id,mdc_nelmts,rdcc_nelmts,rdcc_nbytes,rdcc_w0)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_CACHE_C'::h5pget_cache_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(OUT) :: mdc_nelmts
INTEGER, INTENT(OUT) :: rdcc_nelmts
@@ -2116,7 +2190,9 @@
INTERFACE
INTEGER FUNCTION h5pset_fapl_split_c(prp_id,meta_len,meta_ext,meta_plist,raw_len,raw_ext,raw_plist)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_FAPL_SPLIT_C'::h5pset_fapl_split_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: meta_ext
!DEC$ATTRIBUTES reference :: raw_ext
INTEGER(HID_T), INTENT(IN) :: prp_id
@@ -2227,7 +2303,9 @@
INTERFACE
INTEGER FUNCTION h5pset_gc_references_c(prp_id, gc_reference)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_GC_REFERENCES_C'::h5pset_gc_references_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(IN) :: gc_reference
END FUNCTION h5pset_gc_references_c
@@ -2281,7 +2359,9 @@
INTERFACE
INTEGER FUNCTION h5pget_gc_references_c(prp_id, gc_reference)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_GC_REFERENCES_C'::h5pget_gc_references_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(OUT) :: gc_reference
END FUNCTION h5pget_gc_references_c
@@ -2342,7 +2422,9 @@
INTERFACE
INTEGER FUNCTION h5pset_layout_c(prp_id, layout)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_LAYOUT_C'::h5pset_layout_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(IN) :: layout
END FUNCTION h5pset_layout_c
@@ -2402,7 +2484,9 @@
INTERFACE
INTEGER FUNCTION h5pget_layout_c(prp_id, layout)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_LAYOUT_C'::h5pget_layout_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(OUT) :: layout
END FUNCTION h5pget_layout_c
@@ -2464,7 +2548,9 @@
INTERFACE
INTEGER FUNCTION h5pset_filter_c(prp_id, filter, flags, cd_nelmts, cd_values)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_FILTER_C'::h5pset_filter_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(IN) :: filter
INTEGER, INTENT(IN) :: flags
@@ -2520,7 +2606,9 @@
INTERFACE
INTEGER FUNCTION h5pget_nfilters_c(prp_id, nfilters)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_NFILTERS_C'::h5pget_nfilters_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(OUT) :: nfilters
END FUNCTION h5pget_nfilters_c
@@ -2592,7 +2680,9 @@
INTEGER FUNCTION h5pget_filter_c(prp_id, filter_number, flags, cd_nelmts, &
cd_values, namelen, name, filter_id )
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_FILTER_C'::h5pget_filter_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(IN) :: filter_number
@@ -2663,7 +2753,9 @@
INTERFACE
INTEGER FUNCTION h5pset_external_c(prp_id, name,namelen, offset, bytes)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_EXTERNAL_C'::h5pset_external_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: prp_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -2721,7 +2813,9 @@
INTERFACE
INTEGER FUNCTION h5pget_external_count_c(prp_id, count)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_EXTERNAL_COUNT_C'::h5pget_external_count_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(OUT) :: count
END FUNCTION h5pget_external_count_c
@@ -2788,7 +2882,9 @@
INTERFACE
INTEGER FUNCTION h5pget_external_c(prp_id, idx, name_size, name, offset, bytes)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_EXTERNAL_C'::h5pget_external_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(IN) :: idx
@@ -2850,7 +2946,9 @@
INTERFACE
INTEGER FUNCTION h5pset_hyper_cache_c(prp_id, cache, limit)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_HYPER_CACHE_C'::h5pset_hyper_cache_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(IN) :: cache
INTEGER, INTENT(IN) :: limit
@@ -2910,7 +3008,9 @@
INTERFACE
INTEGER FUNCTION h5pget_hyper_cache_c(prp_id, cache, limit)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_HYPER_CACHE_C'::h5pget_hyper_cache_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(OUT) :: cache
INTEGER, INTENT(OUT) :: limit
@@ -2971,7 +3071,9 @@
INTERFACE
INTEGER FUNCTION h5pset_btree_ratios_c(prp_id, left, middle, right)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_BTREE_RATIOS_C'::h5pset_btree_ratios_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
REAL, INTENT(IN) :: left
REAL, INTENT(IN) :: middle
@@ -3033,7 +3135,9 @@
INTERFACE
INTEGER FUNCTION h5pget_btree_ratios_c(prp_id, left, middle, right)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PGET_BTREE_RATIOS_C'::h5pget_btree_ratios_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
REAL, INTENT(OUT) :: left
REAL, INTENT(OUT) :: middle
diff --git a/fortran/src/H5Rff.f90 b/fortran/src/H5Rff.f90
index 6916b9f..86106ec 100644
--- a/fortran/src/H5Rff.f90
+++ b/fortran/src/H5Rff.f90
@@ -96,7 +96,9 @@
INTERFACE
INTEGER FUNCTION h5rcreate_object_c(ref_f, loc_id, name, namelen)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5RCREATE_OBJECT_C':: h5rcreate_object_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
! INTEGER, PARAMETER :: REF_OBJ_BUF_LEN = 2
INTEGER :: ref_f(REF_OBJ_BUF_LEN)
@@ -165,7 +167,9 @@
INTERFACE
INTEGER FUNCTION h5rcreate_region_c(ref_f, loc_id, name, namelen, space_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5RCREATE_REGION_C':: h5rcreate_region_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
! INTEGER, PARAMETER :: REF_REG_BUF_LEN = 3
INTEGER :: ref_f(REF_REG_BUF_LEN)
@@ -234,7 +238,9 @@
INTERFACE
INTEGER FUNCTION h5rdereference_object_c(dset_id, ref_f, obj_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5RDEREFERENCE_OBJECT_C':: h5rdereference_object_c
+ !DEC$ ENDIF
! INTEGER, PARAMETER :: REF_OBJ_BUF_LEN = 2
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER :: ref_f(REF_OBJ_BUF_LEN)
@@ -298,7 +304,9 @@
INTERFACE
INTEGER FUNCTION h5rdereference_region_c(dset_id, ref_f, obj_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5RDEREFERENCE_REGION_C':: h5rdereference_region_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
! INTEGER, PARAMETER :: REF_REG_BUF_LEN = 3
INTEGER :: ref_f(REF_REG_BUF_LEN)
@@ -362,7 +370,9 @@
INTERFACE
INTEGER FUNCTION h5rget_region_region_c(dset_id, ref_f, space_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5RGET_REGION_REGION_C':: h5rget_region_region_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dset_id
! INTEGER, PARAMETER :: REF_REG_BUF_LEN = 3
INTEGER :: ref_f(REF_REG_BUF_LEN)
@@ -436,7 +446,9 @@
INTERFACE
INTEGER FUNCTION h5rget_object_type_obj_c(dset_id, ref_f, obj_type)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5RGET_OBJECT_TYPE_OBJ_C':: h5rget_object_type_obj_c
+ !DEC$ ENDIF
! INTEGER, PARAMETER :: REF_OBJ_BUF_LEN = 2
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER :: ref_f(REF_OBJ_BUF_LEN)
diff --git a/fortran/src/H5Sff.f90 b/fortran/src/H5Sff.f90
index 4ff5bb2..d5d1c48 100644
--- a/fortran/src/H5Sff.f90
+++ b/fortran/src/H5Sff.f90
@@ -58,7 +58,9 @@
INTERFACE
INTEGER FUNCTION h5screate_simple_c(rank, dims, maxdims, space_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SCREATE_SIMPLE_C'::h5screate_simple_c
+ !DEC$ ENDIF
INTEGER, INTENT(IN) :: rank
INTEGER(HSIZE_T), INTENT(IN) :: dims(rank)
INTEGER(HSIZE_T), DIMENSION(:),INTENT(IN) :: maxdims(rank)
@@ -123,7 +125,9 @@
INTERFACE
INTEGER FUNCTION h5sclose_c(space_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SCLOSE_C'::h5sclose_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
END FUNCTION h5sclose_c
END INTERFACE
@@ -180,7 +184,9 @@
INTERFACE
INTEGER FUNCTION h5screate_c(classtype, space_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SCREATE_C'::h5screate_c
+ !DEC$ ENDIF
INTEGER, INTENT(IN) :: classtype
INTEGER(HID_T), INTENT(OUT) :: space_id
END FUNCTION h5screate_c
@@ -235,7 +241,9 @@
INTERFACE
INTEGER FUNCTION h5scopy_c(space_id, new_space_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SCOPY_C'::h5scopy_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER(HID_T), INTENT(OUT):: new_space_id
END FUNCTION h5scopy_c
@@ -292,7 +300,9 @@
INTERFACE
INTEGER FUNCTION h5sget_select_hyper_nblocks_c (space_id, num_blocks)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SGET_SELECT_HYPER_NBLOCKS_C'::h5sget_select_hyper_nblocks_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER(HSSIZE_T), INTENT(OUT) :: num_blocks
END FUNCTION h5sget_select_hyper_nblocks_c
@@ -358,7 +368,9 @@
INTEGER FUNCTION h5sget_select_hyper_blocklist_c(space_id, startblock, &
num_blocks, buf )
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SGET_SELECT_HYPER_BLOCKLIST_C'::h5sget_select_hyper_blocklist_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: startblock
INTEGER(HSSIZE_T), INTENT(IN) :: num_blocks
@@ -423,7 +435,9 @@
INTERFACE
INTEGER FUNCTION h5sget_select_bounds_c(space_id, start, end)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SGET_SELECT_BOUNDS_C'::h5sget_select_bounds_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: start
INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: end
@@ -481,7 +495,9 @@
INTERFACE
INTEGER FUNCTION h5sget_select_elem_npoints_c (space_id, num_points)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SGET_SELECT_ELEM_NPOINTS_C'::h5sget_select_elem_npoints_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER(HSSIZE_T), INTENT(OUT) :: num_points
END FUNCTION h5sget_select_elem_npoints_c
@@ -543,7 +559,9 @@
INTEGER FUNCTION h5sget_select_elem_pointlist_c(space_id, startpoint, &
num_points, buf )
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SGET_SELECT_ELEM_POINTLIST_C'::h5sget_select_elem_pointlist_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER(HSIZE_T),DIMENSION(*), INTENT(IN) :: startpoint
INTEGER(HSIZE_T), INTENT(IN) :: num_points
@@ -618,7 +636,9 @@
INTEGER FUNCTION h5sselect_elements_c(space_id, operator,&
num_elements,c_c_coord)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SSELECT_ELEMENTS_C'::h5sselect_elements_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER, INTENT(IN) :: operator
INTEGER(SIZE_T), INTENT(IN) :: num_elements
@@ -682,7 +702,9 @@
INTERFACE
INTEGER FUNCTION h5sselect_all_c(space_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SSELECT_ALL_C'::h5sselect_all_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
END FUNCTION h5sselect_all_c
END INTERFACE
@@ -734,7 +756,9 @@
INTERFACE
INTEGER FUNCTION h5sselect_none_c(space_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SSELECT_NONE_C'::h5sselect_none_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
END FUNCTION h5sselect_none_c
END INTERFACE
@@ -790,7 +814,9 @@
INTERFACE
INTEGER FUNCTION h5sselect_valid_c(space_id, flag)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SSELECT_VALID_C'::h5sselect_valid_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER :: flag
END FUNCTION h5sselect_valid_c
@@ -847,7 +873,9 @@
INTERFACE
INTEGER FUNCTION h5sget_simple_extent_npoints_c( space_id, npoints)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SGET_SIMPLE_EXTENT_NPOINTS_C'::h5sget_simple_extent_npoints_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER(HSIZE_T), INTENT(OUT) :: npoints
END FUNCTION h5sget_simple_extent_npoints_c
@@ -902,7 +930,9 @@
INTERFACE
INTEGER FUNCTION h5sget_select_npoints_c(space_id, npoints)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SGET_SELECT_NPOINTS_C'::h5sget_select_npoints_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER(HSSIZE_T), INTENT(OUT) :: npoints
END FUNCTION h5sget_select_npoints_c
@@ -956,7 +986,9 @@
INTERFACE
INTEGER FUNCTION h5sget_simple_extent_ndims_c(space_id, rank)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SGET_SIMPLE_EXTENT_NDIMS_C'::h5sget_simple_extent_ndims_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER, INTENT(OUT) :: rank
END FUNCTION h5sget_simple_extent_ndims_c
@@ -1018,7 +1050,9 @@
INTERFACE
INTEGER FUNCTION h5sget_simple_extent_dims_c(space_id, dims, maxdims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SGET_SIMPLE_EXTENT_DIMS_C'::h5sget_simple_extent_dims_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: dims
INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: maxdims
@@ -1080,7 +1114,9 @@
INTERFACE
INTEGER FUNCTION h5sget_simple_extent_type_c(space_id, classtype)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SGET_SIMPLE_EXTENT_TYPE_C'::h5sget_simple_extent_type_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER, INTENT(OUT) :: classtype
END FUNCTION h5sget_simple_extent_type_c
@@ -1146,7 +1182,9 @@
INTEGER FUNCTION h5sset_extent_simple_c(space_id, rank, &
current_size, maximum_size)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SSET_EXTENT_SIMPLE_C'::h5sset_extent_simple_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER, INTENT(IN) :: rank
INTEGER(HSIZE_T), DIMENSION(rank), INTENT(IN) :: current_size
@@ -1207,7 +1245,9 @@
INTERFACE
INTEGER FUNCTION h5sis_simple_c(space_id, flag)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SIS_SIMPLE_C'::h5sis_simple_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER :: flag
END FUNCTION h5sis_simple_c
@@ -1265,7 +1305,9 @@
INTERFACE
INTEGER FUNCTION h5soffset_simple_c(space_id, offset)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SOFFSET_SIMPLE_C'::h5soffset_simple_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER(HSSIZE_T), DIMENSION(*), INTENT(IN) :: offset
END FUNCTION h5soffset_simple_c
@@ -1323,7 +1365,9 @@
INTERFACE
INTEGER FUNCTION h5sextent_copy_c(dest_space_id, source_space_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SEXTENT_COPY_C'::h5sextent_copy_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dest_space_id
INTEGER(HID_T), INTENT(IN) :: source_space_id
END FUNCTION h5sextent_copy_c
@@ -1374,7 +1418,9 @@
INTERFACE
INTEGER FUNCTION h5sset_extent_none_c(space_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SSET_EXTENT_NONE_C'::h5sset_extent_none_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
END FUNCTION h5sset_extent_none_c
END INTERFACE
@@ -1452,7 +1498,9 @@
INTEGER FUNCTION h5sselect_hyperslab_c(space_id, operator, &
start, count, stride, block)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5SSELECT_HYPERSLAB_C'::h5sselect_hyperslab_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER, INTENT(IN) :: operator
INTEGER(HSSIZE_T), DIMENSION(*), INTENT(IN) :: start
diff --git a/fortran/src/H5Tff.f90 b/fortran/src/H5Tff.f90
index bdcda24..6cfc525 100644
--- a/fortran/src/H5Tff.f90
+++ b/fortran/src/H5Tff.f90
@@ -54,7 +54,9 @@
INTERFACE
INTEGER FUNCTION h5topen_c(loc_id, name, namelen, type_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TOPEN_C'::h5topen_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference ::name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -116,7 +118,9 @@
INTERFACE
INTEGER FUNCTION h5tcommit_c(loc_id, name, namelen, type_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TCOMMIT_C'::h5tcommit_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference ::name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -174,7 +178,9 @@
INTERFACE
INTEGER FUNCTION h5tcopy_c(type_id, new_type_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TCOPY_C'::h5tcopy_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(HID_T), INTENT(OUT) :: new_type_id
END FUNCTION h5tcopy_c
@@ -231,7 +237,9 @@
INTERFACE
INTEGER FUNCTION h5tequal_c(type1_id, type2_id, c_flag)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TEQUAL_C'::h5tequal_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type1_id
INTEGER(HID_T), INTENT(IN) :: type2_id
INTEGER :: c_flag
@@ -285,7 +293,9 @@
INTERFACE
INTEGER FUNCTION h5tclose_c(type_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TCLOSE_C'::h5tclose_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
END FUNCTION h5tclose_c
END INTERFACE
@@ -358,7 +368,9 @@
INTERFACE
INTEGER FUNCTION h5tget_class_c(type_id, class)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_CLASS_C'::h5tget_class_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(OUT) :: class
END FUNCTION h5tget_class_c
@@ -411,7 +423,9 @@
INTERFACE
INTEGER FUNCTION h5tget_size_c(type_id, size)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_SIZE_C'::h5tget_size_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(SIZE_T), INTENT(OUT) :: size
END FUNCTION h5tget_size_c
@@ -464,7 +478,9 @@
INTERFACE
INTEGER FUNCTION h5tset_size_c(type_id, size)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TSET_SIZE_C'::h5tset_size_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(SIZE_T), INTENT(IN) :: size
END FUNCTION h5tset_size_c
@@ -525,7 +541,9 @@
INTERFACE
INTEGER FUNCTION h5tget_order_c(type_id, order)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_ORDER_C'::h5tget_order_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(OUT) :: order
END FUNCTION h5tget_order_c
@@ -586,7 +604,9 @@
INTERFACE
INTEGER FUNCTION h5tset_order_c(type_id, order)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TSET_ORDER_C'::h5tset_order_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(IN) :: order
END FUNCTION h5tset_order_c
@@ -639,7 +659,9 @@
INTERFACE
INTEGER FUNCTION h5tget_precision_c (type_id, precision)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_PRECISION_C'::h5tget_precision_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(SIZE_T), INTENT(OUT) :: precision
END FUNCTION h5tget_precision_c
@@ -691,7 +713,9 @@
INTERFACE
INTEGER FUNCTION h5tset_precision_c (type_id, precision)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TSET_PRECISION_C'::h5tset_precision_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(SIZE_T), INTENT(IN) :: precision
END FUNCTION h5tset_precision_c
@@ -744,7 +768,9 @@
INTERFACE
INTEGER FUNCTION h5tget_offset_c(type_id, offset)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_OFFSET_C'::h5tget_offset_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(SIZE_T), INTENT(OUT) :: offset
END FUNCTION h5tget_offset_c
@@ -797,7 +823,9 @@
INTERFACE
INTEGER FUNCTION h5tset_offset_c(type_id, offset)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TSET_OFFSET_C'::h5tset_offset_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(SIZE_T), INTENT(IN) :: offset
END FUNCTION h5tset_offset_c
@@ -867,7 +895,9 @@
INTERFACE
INTEGER FUNCTION h5tget_pad_c(type_id, lsbpad, msbpad)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_PAD_C'::h5tget_pad_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(OUT) :: lsbpad
INTEGER, INTENT(OUT) :: msbpad
@@ -937,7 +967,9 @@
INTEGER FUNCTION h5tset_pad_c(type_id, lsbpad, msbpad)
USE H5GLOBAL
INTEGER(HID_T), INTENT(IN) :: type_id
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TSET_PAD_C'::h5tset_pad_c
+ !DEC$ ENDIF
INTEGER, INTENT(IN) :: lsbpad
INTEGER, INTENT(IN) :: msbpad
END FUNCTION h5tset_pad_c
@@ -999,7 +1031,9 @@
INTERFACE
INTEGER FUNCTION h5tget_sign_c(type_id, sign)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_SIGN_C'::h5tget_sign_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(OUT) :: sign
END FUNCTION h5tget_sign_c
@@ -1061,7 +1095,9 @@
INTERFACE
INTEGER FUNCTION h5tset_sign_c(type_id, sign)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TSET_SIGN_C'::h5tset_sign_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(IN) :: sign
END FUNCTION h5tset_sign_c
@@ -1119,7 +1155,9 @@
INTERFACE
INTEGER FUNCTION h5tget_fields_c(type_id, epos, esize, mpos, msize)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_FIELDS_C'::h5tget_fields_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(OUT) :: epos
INTEGER, INTENT(OUT) :: esize
@@ -1181,7 +1219,9 @@
INTERFACE
INTEGER FUNCTION h5tset_fields_c(type_id, epos, esize, mpos, msize)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TSET_FIELDS_C'::h5tset_fields_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(IN) :: epos
INTEGER, INTENT(IN) :: esize
@@ -1236,7 +1276,9 @@
INTERFACE
INTEGER FUNCTION h5tget_ebias_c(type_id, ebias)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_EBIAS_C'::h5tget_ebias_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(SIZE_T), INTENT(OUT) :: ebias
END FUNCTION h5tget_ebias_c
@@ -1289,7 +1331,9 @@
INTERFACE
INTEGER FUNCTION h5tset_ebias_c(type_id, ebias)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TSET_EBIAS_C'::h5tset_ebias_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(SIZE_T), INTENT(IN) :: ebias
END FUNCTION h5tset_ebias_c
@@ -1350,7 +1394,9 @@
INTERFACE
INTEGER FUNCTION h5tget_norm_c(type_id, norm)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_NORM_C'::h5tget_norm_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(OUT) :: norm
END FUNCTION h5tget_norm_c
@@ -1411,7 +1457,9 @@
INTERFACE
INTEGER FUNCTION h5tset_norm_c(type_id, norm)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TSET_NORM_C'::h5tset_norm_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(IN) :: norm
END FUNCTION h5tset_norm_c
@@ -1474,7 +1522,9 @@
INTERFACE
INTEGER FUNCTION h5tget_inpad_c(type_id, padtype)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_INPAD_C'::h5tget_inpad_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(OUT) :: padtype
END FUNCTION h5tget_inpad_c
@@ -1535,7 +1585,9 @@
INTERFACE
INTEGER FUNCTION h5tset_inpad_c(type_id, padtype)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TSET_INPAD_C'::h5tset_inpad_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(IN) :: padtype
END FUNCTION h5tset_inpad_c
@@ -1591,7 +1643,9 @@
INTERFACE
INTEGER FUNCTION h5tget_cset_c(type_id, cset)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_CSET_C'::h5tget_cset_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(OUT) :: cset
END FUNCTION h5tget_cset_c
@@ -1647,7 +1701,9 @@
INTERFACE
INTEGER FUNCTION h5tset_cset_c(type_id, cset)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TSET_CSET_C'::h5tset_cset_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(IN) :: cset
END FUNCTION h5tset_cset_c
@@ -1704,7 +1760,9 @@
INTERFACE
INTEGER FUNCTION h5tget_strpad_c(type_id, strpad)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_STRPAD_C'::h5tget_strpad_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(OUT) :: strpad
END FUNCTION h5tget_strpad_c
@@ -1761,7 +1819,9 @@
INTERFACE
INTEGER FUNCTION h5tset_strpad_c(type_id, strpad)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TSET_STRPAD_C'::h5tset_strpad_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(IN) :: strpad
END FUNCTION h5tset_strpad_c
@@ -1814,7 +1874,9 @@
INTERFACE
INTEGER FUNCTION h5tget_nmembers_c(type_id, num_members)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_NMEMBERS_C'::h5tget_nmembers_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(OUT) :: num_members
END FUNCTION h5tget_nmembers_c
@@ -1871,7 +1933,9 @@
INTERFACE
INTEGER FUNCTION h5tget_member_name_c(type_id, index, member_name, namelen)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_MEMBER_NAME_C'::h5tget_member_name_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: member_name
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(IN) :: index
@@ -1929,7 +1993,9 @@
INTERFACE
INTEGER FUNCTION h5tget_member_offset_c(type_id, member_no, offset )
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_MEMBER_OFFSET_C'::h5tget_member_offset_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(IN) :: member_no
INTEGER(SIZE_T), INTENT(OUT) :: offset
@@ -2031,7 +2097,9 @@
INTERFACE
INTEGER FUNCTION h5tget_array_dims_c(type_id, dims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_ARRAY_DIMS_C'::h5tget_array_dims_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(HSIZE_T),DIMENSION(*), INTENT(OUT) :: dims
END FUNCTION h5tget_array_dims_c
@@ -2085,7 +2153,9 @@
INTERFACE
INTEGER FUNCTION h5tget_array_ndims_c(type_id, ndims)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_ARRAY_NDIMS_C'::h5tget_array_ndims_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(OUT) :: ndims
END FUNCTION h5tget_array_ndims_c
@@ -2140,7 +2210,9 @@
INTERFACE
INTEGER FUNCTION h5tget_super_c(type_id, base_type_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_SUPER_C'::h5tget_super_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(HID_T), INTENT(OUT) :: base_type_id
END FUNCTION h5tget_super_c
@@ -2197,7 +2269,9 @@
INTERFACE
INTEGER FUNCTION h5tget_member_type_c(type_id, field_idx , datatype)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_MEMBER_TYPE_C'::h5tget_member_type_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(IN) :: field_idx
INTEGER(HID_T), INTENT(OUT) :: datatype
@@ -2259,7 +2333,9 @@
INTERFACE
INTEGER FUNCTION h5tcreate_c(class, size, type_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TCREATE_C'::h5tcreate_c
+ !DEC$ ENDIF
INTEGER, INTENT(IN) :: class
INTEGER(SIZE_T), INTENT(IN) :: size
INTEGER(HID_T), INTENT(OUT) :: type_id
@@ -2320,7 +2396,9 @@
INTERFACE
INTEGER FUNCTION h5tinsert_c(type_id, name, namelen, offset, field_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TINSERT_C'::h5tinsert_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: type_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -2375,7 +2453,9 @@
INTERFACE
INTEGER FUNCTION h5tpack_c(type_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TPACK_C'::h5tpack_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
END FUNCTION h5tpack_c
END INTERFACE
@@ -2487,7 +2567,9 @@
INTERFACE
INTEGER FUNCTION h5tarray_create_c(base_id, rank, dims, type_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TARRAY_CREATE_C'::h5tarray_create_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: base_id
INTEGER, INTENT(IN) :: rank
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: dims
@@ -2546,7 +2628,9 @@
INTERFACE
INTEGER FUNCTION h5tenum_create_c(parent_id, new_type_id)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TENUM_CREATE_C'::h5tenum_create_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: parent_id
INTEGER(HID_T), INTENT(OUT) :: new_type_id
END FUNCTION h5tenum_create_c
@@ -2599,7 +2683,9 @@
INTERFACE
INTEGER FUNCTION h5tenum_insert_c(type_id, name, namelen, value)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TENUM_INSERT_C'::h5tenum_insert_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: type_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -2660,7 +2746,9 @@
INTERFACE
INTEGER FUNCTION h5tenum_nameof_c(type_id, value, name, namelen)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TENUM_NAMEOF_C'::h5tenum_nameof_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: type_id
CHARACTER(LEN=*), INTENT(OUT) :: name
@@ -2719,7 +2807,9 @@
INTERFACE
INTEGER FUNCTION h5tenum_valueof_c(type_id, name, namelen, value)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TENUM_VALUEOF_C'::h5tenum_valueof_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: type_id
CHARACTER(LEN=*), INTENT(IN) :: name
@@ -2777,7 +2867,9 @@
INTERFACE
INTEGER FUNCTION h5tget_member_value_c(type_id, member_no, value)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_MEMBER_VALUE_C'::h5tget_member_value_c
+ !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(IN) :: member_no
INTEGER, INTENT(OUT) :: value
@@ -2833,7 +2925,9 @@
INTERFACE
INTEGER FUNCTION h5tset_tag_c(type_id, tag, namelen)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TSET_TAG_C'::h5tset_tag_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: tag
INTEGER(HID_T), INTENT(IN) :: type_id
CHARACTER(LEN=*), INTENT(IN) :: tag
@@ -2891,7 +2985,9 @@
INTERFACE
INTEGER FUNCTION h5tget_tag_c(type_id, tag, taglen)
USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5TGET_TAG_C'::h5tget_tag_c
+ !DEC$ ENDIF
!DEC$ATTRIBUTES reference :: tag
INTEGER(HID_T), INTENT(IN) :: type_id
CHARACTER(LEN=*), INTENT(OUT) :: tag
diff --git a/fortran/src/H5_ff.f90 b/fortran/src/H5_ff.f90
index 642bf40..dc1372f 100644
--- a/fortran/src/H5_ff.f90
+++ b/fortran/src/H5_ff.f90
@@ -42,7 +42,9 @@
!
INTERFACE
INTEGER FUNCTION h5open_c()
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5OPEN_C'::h5open_c
+ !DEC$ ENDIF
END FUNCTION h5open_c
END INTERFACE
INTERFACE
@@ -51,7 +53,9 @@
INTEGER(HID_T), DIMENSION(PREDEF_TYPES_LEN) :: p_types
INTEGER(HID_T), DIMENSION(FLOATING_TYPES_LEN) :: f_types
INTEGER(HID_T), DIMENSION(INTEGER_TYPES_LEN) :: i_types
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5INIT_TYPES_C'::h5init_types_c
+ !DEC$ ENDIF
END FUNCTION h5init_types_c
END INTERFACE
INTERFACE
@@ -77,7 +81,9 @@
INTEGER i_H5S_flags(H5S_FLAGS_LEN)
INTEGER i_H5T_flags(H5T_FLAGS_LEN)
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5INIT_FLAGS_C'::h5init_flags_c
+ !DEC$ ENDIF
END FUNCTION h5init_flags_c
END INTERFACE
error_0 = h5open_c()
@@ -134,7 +140,9 @@
! INTEGER, EXTERNAL :: h5close_types_c, h5close_c
INTERFACE
INTEGER FUNCTION h5close_c()
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5CLOSE_C'::h5close_c
+ !DEC$ ENDIF
END FUNCTION h5close_c
END INTERFACE
INTERFACE
@@ -148,7 +156,9 @@
INTEGER(HID_T), DIMENSION(P_TYPES_LEN) :: p_types
INTEGER(HID_T), DIMENSION(F_TYPES_LEN) :: f_types
INTEGER(HID_T), DIMENSION(I_TYPES_LEN) :: i_types
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5CLOSE_TYPES_C'::h5close_types_c
+ !DEC$ ENDIF
END FUNCTION h5close_types_c
END INTERFACE
error_1 = h5close_types_c(predef_types, PREDEF_TYPES_LEN, &