diff options
| author | MuQun Yang <ymuqun@hdfgroup.org> | 2004-04-22 14:46:20 (GMT) |
|---|---|---|
| committer | MuQun Yang <ymuqun@hdfgroup.org> | 2004-04-22 14:46:20 (GMT) |
| commit | 1555c1ae0a9113eb99074e9b0da0d2363d7251b0 (patch) | |
| tree | d86beebfb47d2229dd8a17c54c4e0336477e2e0d /fortran | |
| parent | 478865258bdf4f5834578dd07646ddf898f69f9f (diff) | |
| download | hdf5-1555c1ae0a9113eb99074e9b0da0d2363d7251b0.zip hdf5-1555c1ae0a9113eb99074e9b0da0d2363d7251b0.tar.gz hdf5-1555c1ae0a9113eb99074e9b0da0d2363d7251b0.tar.bz2 | |
[svn-r8400] Purpose:
$FOODEC macro cannot be recongnized by visual fortran.
Description:
The $DEC is the keyword that Dec visual fortran can recongnize.
Solution:
Use shell script by Elena to change $FOODEC to $DEC in all .f90.
Platforms tested:
windows 2000 visual fortran
Since this change only happens on the specific macro for windows, it doesn't need to be tested on other platforms.
Misc. update:
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5Aff.f90 | 918 | ||||
| -rw-r--r-- | fortran/src/H5Dff.f90 | 1096 | ||||
| -rw-r--r-- | fortran/src/H5Eff.f90 | 72 | ||||
| -rw-r--r-- | fortran/src/H5Fff.f90 | 166 | ||||
| -rw-r--r-- | fortran/src/H5Gff.f90 | 196 | ||||
| -rw-r--r-- | fortran/src/H5Iff.f90 | 62 | ||||
| -rw-r--r-- | fortran/src/H5Pff.f90 | 1388 | ||||
| -rw-r--r-- | fortran/src/H5Rff.f90 | 76 | ||||
| -rw-r--r-- | fortran/src/H5Sff.f90 | 336 | ||||
| -rw-r--r-- | fortran/src/H5Tff.f90 | 644 | ||||
| -rw-r--r-- | fortran/src/H5Zff.f90 | 24 | ||||
| -rw-r--r-- | fortran/src/H5_ff.f90 | 96 | ||||
| -rw-r--r-- | fortran/src/H5f90global.f90 | 90 |
13 files changed, 2582 insertions, 2582 deletions
diff --git a/fortran/src/H5Aff.f90 b/fortran/src/H5Aff.f90 index 414fd3c..b72f59b 100644 --- a/fortran/src/H5Aff.f90 +++ b/fortran/src/H5Aff.f90 @@ -137,9 +137,9 @@ SUBROUTINE h5acreate_f(obj_id, name, type_id, space_id, attr_id, & hdferr, creation_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5acreate_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5acreate_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier CHARACTER(LEN=*), INTENT(IN) :: name ! Attribute name @@ -161,10 +161,10 @@ INTEGER FUNCTION h5acreate_c(obj_id, name, namelen, type_id, & space_id, creation_prp_default, attr_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5ACREATE_C'::h5acreate_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER :: namelen @@ -211,9 +211,9 @@ SUBROUTINE h5aopen_name_f(obj_id, name, attr_id, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aopen_name_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aopen_name_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier CHARACTER(LEN=*), INTENT(IN) :: name ! Attribute name @@ -227,10 +227,10 @@ INTERFACE INTEGER FUNCTION h5aopen_name_c(obj_id, name, namelen, attr_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AOPEN_NAME_C'::h5aopen_name_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER :: namelen @@ -271,9 +271,9 @@ SUBROUTINE h5aopen_idx_f(obj_id, index, attr_id, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aopen_idx_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aopen_idx_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier INTEGER, INTENT(IN) :: index ! Attribute index @@ -286,9 +286,9 @@ INTERFACE INTEGER FUNCTION h5aopen_idx_c(obj_id, index, attr_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AOPEN_IDX_C'::h5aopen_idx_c - !FooDECS ENDIF + !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 @@ -301,9 +301,9 @@ SUBROUTINE h5awrite_integer_scalar(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_integer_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_integer_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -318,9 +318,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -333,9 +333,9 @@ SUBROUTINE h5awrite_integer_1(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_integer_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_integer_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -352,9 +352,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -369,9 +369,9 @@ SUBROUTINE h5awrite_integer_2(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_integer_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_integer_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -388,9 +388,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -405,9 +405,9 @@ SUBROUTINE h5awrite_integer_3(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_integer_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_integer_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -424,9 +424,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -441,9 +441,9 @@ SUBROUTINE h5awrite_integer_4(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_integer_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_integer_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -460,9 +460,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -477,9 +477,9 @@ SUBROUTINE h5awrite_integer_5(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_integer_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_integer_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -496,9 +496,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -513,9 +513,9 @@ SUBROUTINE h5awrite_integer_6(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_integer_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_integer_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -532,9 +532,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -549,9 +549,9 @@ SUBROUTINE h5awrite_integer_7(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_integer_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_integer_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -568,9 +568,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -585,9 +585,9 @@ SUBROUTINE h5awrite_real_scalar(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_real_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_real_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -602,9 +602,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -617,9 +617,9 @@ SUBROUTINE h5awrite_real_1(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_real_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_real_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -636,9 +636,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -653,9 +653,9 @@ SUBROUTINE h5awrite_real_2(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_real_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_real_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -672,9 +672,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -689,9 +689,9 @@ SUBROUTINE h5awrite_real_3(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_real_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_real_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -708,9 +708,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -725,9 +725,9 @@ SUBROUTINE h5awrite_real_4(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_real_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_real_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -744,9 +744,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -761,9 +761,9 @@ SUBROUTINE h5awrite_real_5(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_real_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_real_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -780,9 +780,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -797,9 +797,9 @@ SUBROUTINE h5awrite_real_6(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_real_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_real_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -816,9 +816,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -833,9 +833,9 @@ SUBROUTINE h5awrite_real_7(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_real_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_real_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -852,9 +852,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -869,9 +869,9 @@ SUBROUTINE h5awrite_double_scalar(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_double_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_double_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -886,9 +886,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -901,9 +901,9 @@ SUBROUTINE h5awrite_double_1(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_double_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_double_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -919,9 +919,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -936,9 +936,9 @@ SUBROUTINE h5awrite_double_2(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_double_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_double_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -955,9 +955,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -972,9 +972,9 @@ SUBROUTINE h5awrite_double_3(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_double_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_double_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -991,9 +991,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1008,9 +1008,9 @@ SUBROUTINE h5awrite_double_4(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_double_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_double_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1027,9 +1027,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1044,9 +1044,9 @@ SUBROUTINE h5awrite_double_5(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_double_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_double_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1063,9 +1063,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1080,9 +1080,9 @@ SUBROUTINE h5awrite_double_6(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_double_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_double_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1099,9 +1099,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1116,9 +1116,9 @@ SUBROUTINE h5awrite_double_7(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_double_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_double_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1135,9 +1135,9 @@ INTERFACE INTEGER FUNCTION h5awrite_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1151,9 +1151,9 @@ SUBROUTINE h5awrite_char_scalar(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_char_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_char_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1168,11 +1168,11 @@ INTERFACE INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes - !FooDECSATTRIBUTES reference :: buf + !DEC$ATTRIBUTES reference :: buf INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id CHARACTER(LEN=*), INTENT(IN)::buf @@ -1184,9 +1184,9 @@ SUBROUTINE h5awrite_char_1(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_char_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_char_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1202,10 +1202,10 @@ INTERFACE INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1219,9 +1219,9 @@ SUBROUTINE h5awrite_char_2(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_char_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_char_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1238,11 +1238,11 @@ INTERFACE INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes - !FooDECSATTRIBUTES reference :: buf + !DEC$ATTRIBUTES reference :: buf INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id CHARACTER(LEN=*), INTENT(IN), & @@ -1256,9 +1256,9 @@ SUBROUTINE h5awrite_char_3(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_char_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_char_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1274,10 +1274,10 @@ INTERFACE INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1292,9 +1292,9 @@ SUBROUTINE h5awrite_char_4(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_char_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_char_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1310,10 +1310,10 @@ INTERFACE INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1328,9 +1328,9 @@ SUBROUTINE h5awrite_char_5(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_char_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_char_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1346,10 +1346,10 @@ INTERFACE INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1364,9 +1364,9 @@ SUBROUTINE h5awrite_char_6(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_char_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_char_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1382,10 +1382,10 @@ INTERFACE INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1400,9 +1400,9 @@ SUBROUTINE h5awrite_char_7(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5awrite_char_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_char_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1418,10 +1418,10 @@ INTERFACE INTEGER FUNCTION h5awritec_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1468,9 +1468,9 @@ SUBROUTINE h5aread_integer_scalar(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_integer_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_integer_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1485,9 +1485,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1500,9 +1500,9 @@ SUBROUTINE h5aread_integer_1(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_integer_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_integer_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1518,9 +1518,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1535,9 +1535,9 @@ SUBROUTINE h5aread_integer_2(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_integer_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_integer_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1553,9 +1553,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1570,9 +1570,9 @@ SUBROUTINE h5aread_integer_3(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_integer_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_integer_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1588,9 +1588,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1605,9 +1605,9 @@ SUBROUTINE h5aread_integer_4(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_integer_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_integer_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1624,9 +1624,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1641,9 +1641,9 @@ SUBROUTINE h5aread_integer_5(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_integer_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_integer_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1660,9 +1660,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1677,9 +1677,9 @@ SUBROUTINE h5aread_integer_6(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_integer_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_integer_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1696,9 +1696,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1713,9 +1713,9 @@ SUBROUTINE h5aread_integer_7(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_integer_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_integer_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1732,9 +1732,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1749,9 +1749,9 @@ SUBROUTINE h5aread_real_scalar(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_real_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_real_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1766,9 +1766,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1781,9 +1781,9 @@ SUBROUTINE h5aread_real_1(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_real_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_real_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1800,9 +1800,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1817,9 +1817,9 @@ SUBROUTINE h5aread_real_2(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_real_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_real_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1836,9 +1836,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1853,9 +1853,9 @@ SUBROUTINE h5aread_real_3(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_real_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_real_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1872,9 +1872,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1889,9 +1889,9 @@ SUBROUTINE h5aread_real_4(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_real_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_real_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1908,9 +1908,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1925,9 +1925,9 @@ SUBROUTINE h5aread_real_5(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_real_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_real_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1944,9 +1944,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1961,9 +1961,9 @@ SUBROUTINE h5aread_real_6(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_real_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_real_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -1980,9 +1980,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -1997,9 +1997,9 @@ SUBROUTINE h5aread_real_7(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_real_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_real_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2016,9 +2016,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2033,9 +2033,9 @@ SUBROUTINE h5aread_double_scalar(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_double_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_double_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2050,9 +2050,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2065,9 +2065,9 @@ SUBROUTINE h5aread_double_1(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_double_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_double_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2084,9 +2084,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2101,9 +2101,9 @@ SUBROUTINE h5aread_double_2(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_double_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_double_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2120,9 +2120,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2137,9 +2137,9 @@ SUBROUTINE h5aread_double_3(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_double_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_double_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2156,9 +2156,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2173,9 +2173,9 @@ SUBROUTINE h5aread_double_4(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_double_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_double_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2192,9 +2192,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2209,9 +2209,9 @@ SUBROUTINE h5aread_double_5(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_double_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_double_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2228,9 +2228,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2245,9 +2245,9 @@ SUBROUTINE h5aread_double_6(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_double_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_double_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2264,9 +2264,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2281,9 +2281,9 @@ SUBROUTINE h5aread_double_7(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_double_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_double_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2300,9 +2300,9 @@ INTERFACE INTEGER FUNCTION h5aread_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c + !DEC$ ENDIF INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2316,9 +2316,9 @@ SUBROUTINE h5aread_char_scalar(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_char_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_char_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2334,10 +2334,10 @@ INTERFACE INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2351,9 +2351,9 @@ SUBROUTINE h5aread_char_1(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_char_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_char_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2370,10 +2370,10 @@ INTERFACE INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2388,9 +2388,9 @@ SUBROUTINE h5aread_char_2(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_char_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_char_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2407,10 +2407,10 @@ INTERFACE INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2425,9 +2425,9 @@ SUBROUTINE h5aread_char_3(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_char_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_char_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2444,10 +2444,10 @@ INTERFACE INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2462,9 +2462,9 @@ SUBROUTINE h5aread_char_4(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_char_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_char_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2481,10 +2481,10 @@ INTERFACE INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2499,9 +2499,9 @@ SUBROUTINE h5aread_char_5(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_char_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_char_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2518,10 +2518,10 @@ INTERFACE INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2536,9 +2536,9 @@ SUBROUTINE h5aread_char_6(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_char_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_char_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2555,10 +2555,10 @@ INTERFACE INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2573,9 +2573,9 @@ SUBROUTINE h5aread_char_7(attr_id, memtype_id, buf, dims, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aread_char_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_char_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype @@ -2592,10 +2592,10 @@ INTERFACE INTEGER FUNCTION h5areadc_c(attr_id, memtype_id, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER(HID_T), INTENT(IN) :: attr_id INTEGER(HID_T), INTENT(IN) :: memtype_id @@ -2609,7 +2609,7 @@ ! !END OVERLOADING ! -!FooDECS ENDIF +!DEC$ ENDIF ! !---------------------------------------------------------------------- @@ -2638,9 +2638,9 @@ SUBROUTINE h5aget_space_f(attr_id, space_id, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aget_space_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aget_space_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(OUT) :: space_id @@ -2653,9 +2653,9 @@ INTERFACE INTEGER FUNCTION h5aget_space_c(attr_id, space_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AGET_SPACE_C'::h5aget_space_c - !FooDECS ENDIF + !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 @@ -2690,9 +2690,9 @@ SUBROUTINE h5aget_type_f(attr_id, type_id, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aget_type_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aget_type_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(OUT) :: type_id @@ -2705,9 +2705,9 @@ INTERFACE INTEGER FUNCTION h5aget_type_c(attr_id, type_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AGET_TYPE_C'::h5aget_type_c - !FooDECS ENDIF + !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 @@ -2744,9 +2744,9 @@ SUBROUTINE h5aget_name_f(attr_id, size, buf, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aget_name_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aget_name_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(SIZE_T), INTENT(IN) :: size ! Buffer size @@ -2761,10 +2761,10 @@ INTERFACE INTEGER FUNCTION h5aget_name_c(attr_id, size, buf) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AGET_NAME_C'::h5aget_name_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 CHARACTER(LEN=*), INTENT(OUT) :: buf @@ -2802,9 +2802,9 @@ SUBROUTINE h5aget_num_attrs_f(obj_id, attr_num, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aget_num_attrs_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aget_num_attrs_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier INTEGER, INTENT(OUT) :: attr_num ! Number of attributes of the @@ -2817,9 +2817,9 @@ INTERFACE INTEGER FUNCTION h5aget_num_attrs_c(obj_id, attr_num) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5AGET_NUM_ATTRS_C'::h5aget_num_attrs_c - !FooDECS ENDIF + !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 @@ -2856,9 +2856,9 @@ SUBROUTINE h5adelete_f(obj_id, name, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5adelete_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5adelete_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier CHARACTER(LEN=*), INTENT(IN) :: name ! Attribute name @@ -2871,10 +2871,10 @@ INTERFACE INTEGER FUNCTION h5adelete_c(obj_id, name, namelen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5ADELETE_C'::h5adelete_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER :: namelen @@ -2911,9 +2911,9 @@ SUBROUTINE h5aclose_f(attr_id, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5aclose_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aclose_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER, INTENT(OUT) :: hdferr ! Error code: @@ -2924,9 +2924,9 @@ INTERFACE INTEGER FUNCTION h5aclose_c(attr_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5ACLOSE_C'::h5aclose_c - !FooDECS ENDIF + !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 7941939..53bbaef 100644 --- a/fortran/src/H5Dff.f90 +++ b/fortran/src/H5Dff.f90 @@ -155,9 +155,9 @@ SUBROUTINE h5dcreate_f(loc_id, name, type_id, space_id, dset_id, & hdferr, creation_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dcreate_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dcreate_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the dataset @@ -178,10 +178,10 @@ INTEGER FUNCTION h5dcreate_c(loc_id, name, namelen, type_id, & space_id, creation_prp_default, dset_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DCREATE_C'::h5dcreate_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER :: namelen @@ -227,9 +227,9 @@ SUBROUTINE h5dopen_f(loc_id, name, dset_id, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dopen_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dopen_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the dataset @@ -243,10 +243,10 @@ INTERFACE INTEGER FUNCTION h5dopen_c(loc_id, name, namelen, dset_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DOPEN_C'::h5dopen_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER :: namelen @@ -285,9 +285,9 @@ SUBROUTINE h5dclose_f(dset_id, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dclose_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dclose_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -299,9 +299,9 @@ INTERFACE INTEGER FUNCTION h5dclose_c(dset_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DCLOSE_C'::h5dclose_c - !FooDECS ENDIF + !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 @@ -313,9 +313,9 @@ SUBROUTINE h5dwrite_reference_obj(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_reference_obj -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_reference_obj +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -344,9 +344,9 @@ mem_space_id_default, & file_space_id_default, xfer_prp_default, ref_buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_REF_OBJ_C'::h5dwrite_ref_obj_c - !FooDECS ENDIF + !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 @@ -385,9 +385,9 @@ SUBROUTINE h5dwrite_reference_dsetreg(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_reference_dsetreg -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_reference_dsetreg +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -416,9 +416,9 @@ mem_space_id_default, & file_space_id_default, xfer_prp_default, ref_buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_REF_REG_C'::h5dwrite_ref_reg_c - !FooDECS ENDIF + !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 @@ -459,9 +459,9 @@ SUBROUTINE h5dwrite_integer_scalar(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_integer_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_integer_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -489,9 +489,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -519,9 +519,9 @@ SUBROUTINE h5dwrite_integer_1(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_integer_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_integer_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -550,9 +550,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -581,9 +581,9 @@ SUBROUTINE h5dwrite_integer_2(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_integer_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_integer_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -612,9 +612,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -644,9 +644,9 @@ SUBROUTINE h5dwrite_integer_3(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_integer_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_integer_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -675,9 +675,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -707,9 +707,9 @@ SUBROUTINE h5dwrite_integer_4(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_integer_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_integer_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -738,9 +738,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -769,9 +769,9 @@ SUBROUTINE h5dwrite_integer_5(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_integer_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_integer_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -800,9 +800,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -833,9 +833,9 @@ SUBROUTINE h5dwrite_integer_6(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_integer_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_integer_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -864,9 +864,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -896,9 +896,9 @@ SUBROUTINE h5dwrite_integer_7(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_integer_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_integer_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -927,9 +927,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -959,9 +959,9 @@ SUBROUTINE h5dwrite_char_scalar(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_char_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_char_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -989,10 +989,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -1020,9 +1020,9 @@ SUBROUTINE h5dwrite_char_1(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_char_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_char_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1051,10 +1051,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -1083,9 +1083,9 @@ SUBROUTINE h5dwrite_char_2(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_char_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_char_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1114,10 +1114,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -1146,9 +1146,9 @@ SUBROUTINE h5dwrite_char_3(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_char_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_char_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1177,10 +1177,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -1209,9 +1209,9 @@ SUBROUTINE h5dwrite_char_4(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_char_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_char_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1240,10 +1240,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -1272,9 +1272,9 @@ SUBROUTINE h5dwrite_char_5(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_char_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_char_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1303,10 +1303,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -1335,9 +1335,9 @@ SUBROUTINE h5dwrite_char_6(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_char_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_char_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1366,10 +1366,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -1398,9 +1398,9 @@ SUBROUTINE h5dwrite_char_7(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_char_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_char_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1429,10 +1429,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -1460,9 +1460,9 @@ SUBROUTINE h5dwrite_real_scalar(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_real_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_real_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1489,9 +1489,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -1518,9 +1518,9 @@ SUBROUTINE h5dwrite_real_1(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_real_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_real_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1549,9 +1549,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -1580,9 +1580,9 @@ SUBROUTINE h5dwrite_real_2(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_real_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_real_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1611,9 +1611,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -1642,9 +1642,9 @@ SUBROUTINE h5dwrite_real_3(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_real_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_real_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1672,9 +1672,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -1703,9 +1703,9 @@ SUBROUTINE h5dwrite_real_4(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_real_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_real_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1733,9 +1733,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -1764,9 +1764,9 @@ SUBROUTINE h5dwrite_real_5(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_real_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_real_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1794,9 +1794,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -1825,9 +1825,9 @@ SUBROUTINE h5dwrite_real_6(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_real_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_real_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1855,9 +1855,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -1886,9 +1886,9 @@ SUBROUTINE h5dwrite_real_7(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_real_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_real_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1916,9 +1916,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -1947,9 +1947,9 @@ SUBROUTINE h5dwrite_double_scalar(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_double_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_double_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -1977,9 +1977,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -2007,9 +2007,9 @@ SUBROUTINE h5dwrite_double_1(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_double_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_double_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -2038,9 +2038,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -2069,9 +2069,9 @@ SUBROUTINE h5dwrite_double_2(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_double_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_double_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -2100,9 +2100,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -2131,9 +2131,9 @@ SUBROUTINE h5dwrite_double_3(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_double_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_double_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -2162,9 +2162,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -2193,9 +2193,9 @@ SUBROUTINE h5dwrite_double_4(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_double_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_double_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -2224,9 +2224,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -2255,9 +2255,9 @@ SUBROUTINE h5dwrite_double_5(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_double_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_double_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -2286,9 +2286,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -2317,9 +2317,9 @@ SUBROUTINE h5dwrite_double_6(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_double_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_double_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -2349,9 +2349,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -2380,9 +2380,9 @@ SUBROUTINE h5dwrite_double_7(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_double_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_double_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -2412,9 +2412,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c - !FooDECS ENDIF + !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 @@ -2482,9 +2482,9 @@ SUBROUTINE h5dread_reference_obj(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_reference_obj -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_reference_obj +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -2514,9 +2514,9 @@ mem_space_id_default, & file_space_id_default, xfer_prp_default, ref_buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_REF_OBJ_C'::h5dread_ref_obj_c - !FooDECS ENDIF + !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 @@ -2554,9 +2554,9 @@ SUBROUTINE h5dread_reference_dsetreg(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_reference_dsetreg -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_reference_dsetreg +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -2586,9 +2586,9 @@ mem_space_id_default, & file_space_id_default, xfer_prp_default, ref_buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_REF_REG_C'::h5dread_ref_reg_c - !FooDECS ENDIF + !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 @@ -2628,9 +2628,9 @@ SUBROUTINE h5dread_integer_scalar(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_integer_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_integer_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -2658,9 +2658,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -2688,9 +2688,9 @@ SUBROUTINE h5dread_integer_1(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_integer_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_integer_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -2719,9 +2719,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -2750,9 +2750,9 @@ SUBROUTINE h5dread_integer_2(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_integer_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_integer_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -2781,9 +2781,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -2813,9 +2813,9 @@ SUBROUTINE h5dread_integer_3(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_integer_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_integer_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -2844,9 +2844,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -2876,9 +2876,9 @@ SUBROUTINE h5dread_integer_4(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_integer_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_integer_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -2907,9 +2907,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -2939,9 +2939,9 @@ SUBROUTINE h5dread_integer_5(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_integer_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_integer_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -2970,9 +2970,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -3002,9 +3002,9 @@ SUBROUTINE h5dread_integer_6(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_integer_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_integer_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3033,9 +3033,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -3065,9 +3065,9 @@ SUBROUTINE h5dread_integer_7(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_integer_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_integer_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3096,9 +3096,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -3127,9 +3127,9 @@ SUBROUTINE h5dread_char_scalar(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_char_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_char_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3157,10 +3157,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -3188,9 +3188,9 @@ SUBROUTINE h5dread_char_1(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_char_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_char_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3219,10 +3219,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -3251,9 +3251,9 @@ SUBROUTINE h5dread_char_2(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_char_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_char_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3282,10 +3282,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -3314,9 +3314,9 @@ SUBROUTINE h5dread_char_3(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_char_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_char_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3345,10 +3345,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -3377,9 +3377,9 @@ SUBROUTINE h5dread_char_4(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_char_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_char_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3408,10 +3408,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -3440,9 +3440,9 @@ SUBROUTINE h5dread_char_5(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_char_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_char_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3471,10 +3471,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -3503,9 +3503,9 @@ SUBROUTINE h5dread_char_6(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_char_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_char_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3534,10 +3534,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -3566,9 +3566,9 @@ SUBROUTINE h5dread_char_7(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_char_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_char_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3597,10 +3597,10 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !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 INTEGER(HID_T) :: mem_space_id_default @@ -3628,9 +3628,9 @@ SUBROUTINE h5dread_real_scalar(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_real_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_real_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3657,9 +3657,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -3687,9 +3687,9 @@ SUBROUTINE h5dread_real_1(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_real_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_real_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3717,9 +3717,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -3748,9 +3748,9 @@ SUBROUTINE h5dread_real_2(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_real_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_real_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3778,9 +3778,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -3809,9 +3809,9 @@ SUBROUTINE h5dread_real_3(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_real_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_real_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3839,9 +3839,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -3870,9 +3870,9 @@ SUBROUTINE h5dread_real_4(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_real_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_real_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3900,9 +3900,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -3931,9 +3931,9 @@ SUBROUTINE h5dread_real_5(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_real_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_real_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -3961,9 +3961,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -3992,9 +3992,9 @@ SUBROUTINE h5dread_real_6(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_real_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_real_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -4022,9 +4022,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -4053,9 +4053,9 @@ SUBROUTINE h5dread_real_7(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_real_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_real_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -4084,9 +4084,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -4114,9 +4114,9 @@ SUBROUTINE h5dread_double_scalar(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_double_scalar -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_double_scalar +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -4144,9 +4144,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -4174,9 +4174,9 @@ SUBROUTINE h5dread_double_1(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_double_1 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_double_1 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -4205,9 +4205,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -4236,9 +4236,9 @@ SUBROUTINE h5dread_double_2(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_double_2 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_double_2 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -4267,9 +4267,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -4298,9 +4298,9 @@ SUBROUTINE h5dread_double_3(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_double_3 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_double_3 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -4329,9 +4329,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -4360,9 +4360,9 @@ SUBROUTINE h5dread_double_4(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_double_4 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_double_4 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -4392,9 +4392,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -4423,9 +4423,9 @@ SUBROUTINE h5dread_double_5(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_double_5 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_double_5 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -4454,9 +4454,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -4485,9 +4485,9 @@ SUBROUTINE h5dread_double_6(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_double_6 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_double_6 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -4517,9 +4517,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -4548,9 +4548,9 @@ SUBROUTINE h5dread_double_7(dset_id, mem_type_id, buf, dims, hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_double_7 -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_double_7 +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -4580,9 +4580,9 @@ file_space_id_default, & xfer_prp_default, buf, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c - !FooDECS ENDIF + !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 @@ -4634,9 +4634,9 @@ !---------------------------------------------------------------------- SUBROUTINE h5dget_space_f(dataset_id, dataspace_id, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dget_space_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dget_space_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier INTEGER(HID_T), INTENT(OUT) :: dataspace_id ! Dataspace identifier @@ -4648,9 +4648,9 @@ INTERFACE INTEGER FUNCTION h5dget_space_c(dataset_id, dataspace_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DGET_SPACE_C'::h5dget_space_c - !FooDECS ENDIF + !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 @@ -4687,9 +4687,9 @@ SUBROUTINE h5dget_type_f(dataset_id, datatype_id, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dget_type_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dget_type_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier INTEGER(HID_T), INTENT(OUT) :: datatype_id ! Datatype identifier @@ -4700,9 +4700,9 @@ INTERFACE INTEGER FUNCTION h5dget_type_c (dataset_id, datatype_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DGET_TYPE_C'::h5dget_type_c - !FooDECS ENDIF + !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 @@ -4740,9 +4740,9 @@ SUBROUTINE h5dextend_f(dataset_id, size, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dextend_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dextend_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: size @@ -4756,9 +4756,9 @@ INTERFACE INTEGER FUNCTION h5dextend_c(dataset_id, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DEXTEND_C'::h5dextend_c - !FooDECS ENDIF + !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 @@ -4797,9 +4797,9 @@ SUBROUTINE h5dget_create_plist_f(dataset_id, plist_id, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dget_create_plist_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dget_create_plist_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier INTEGER(HID_T), INTENT(OUT) :: plist_id ! Dataset creation @@ -4812,9 +4812,9 @@ INTERFACE INTEGER FUNCTION h5dget_create_plist_c(dataset_id, plist_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DGET_CREATE_PLIST_C'::h5dget_create_plist_c - !FooDECS ENDIF + !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 @@ -4849,9 +4849,9 @@ SUBROUTINE h5dget_storage_size_f(dataset_id, size, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dget_storage_size_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dget_storage_size_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier INTEGER(HSIZE_T), INTENT(OUT) :: size @@ -4862,9 +4862,9 @@ INTERFACE INTEGER FUNCTION h5dget_storage_size_c(dataset_id, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DGET_STORAGE_SIZE_C'::h5dget_storage_size_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5DGET_STORAGE_SIZE_C'::h5dget_storage_size_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: dataset_id INTEGER(HSIZE_T), INTENT(OUT) :: size END FUNCTION h5dget_storage_size_c @@ -4901,9 +4901,9 @@ SUBROUTINE h5dvlen_get_max_len_f(dataset_id, type_id, space_id, len, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dvlen_get_max_len_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dvlen_get_max_len_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -4914,9 +4914,9 @@ INTERFACE INTEGER FUNCTION h5dvlen_get_max_len_c(dataset_id, type_id, space_id, len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DVLEN_GET_MAX_LEN_C'::h5dvlen_get_max_len_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5DVLEN_GET_MAX_LEN_C'::h5dvlen_get_max_len_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: dataset_id INTEGER(HID_T), INTENT(IN) :: type_id INTEGER(HID_T), INTENT(IN) :: space_id @@ -4931,9 +4931,9 @@ hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_vl_integer -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_vl_integer +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -4962,9 +4962,9 @@ file_space_id_default, & xfer_prp_default, buf, dims, len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_VL_INTEGER_C'::h5dwrite_vl_integer_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_VL_INTEGER_C'::h5dwrite_vl_integer_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 @@ -4996,9 +4996,9 @@ hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_vl_integer -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_vl_integer +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -5030,9 +5030,9 @@ file_space_id_default, & xfer_prp_default, buf, dims, len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_VL_INTEGER_C'::h5dread_vl_integer_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_VL_INTEGER_C'::h5dread_vl_integer_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 @@ -5064,9 +5064,9 @@ hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_vl_real -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_vl_real +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -5095,9 +5095,9 @@ file_space_id_default, & xfer_prp_default, buf, dims, len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_VL_REAL_C'::h5dwrite_vl_real_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_VL_REAL_C'::h5dwrite_vl_real_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 @@ -5129,9 +5129,9 @@ hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_vl_real -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_vl_real +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -5163,9 +5163,9 @@ file_space_id_default, & xfer_prp_default, buf, dims, len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_VL_REAL_C'::h5dread_vl_real_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_VL_REAL_C'::h5dread_vl_real_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 @@ -5197,9 +5197,9 @@ hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dwrite_vl_string -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_vl_string +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -5231,10 +5231,10 @@ ! xfer_prp_default, tmp_buf, dims, str_len) xfer_prp_default, buf, dims, str_len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DWRITE_VL_STRING_C'::h5dwrite_vl_string_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_VL_STRING_C'::h5dwrite_vl_string_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HID_T), INTENT(IN) :: dset_id INTEGER(HID_T), INTENT(IN) :: mem_type_id INTEGER(HID_T) :: mem_space_id_default @@ -5274,9 +5274,9 @@ hdferr, & mem_space_id, file_space_id, xfer_prp) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dread_vl_string -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_vl_string +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -5308,10 +5308,10 @@ ! xfer_prp_default, tmp_buf, dims, str_len) xfer_prp_default, buf, dims, str_len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DREAD_VL_STRING_C'::h5dread_vl_string_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_VL_STRING_C'::h5dread_vl_string_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HID_T), INTENT(IN) :: dset_id INTEGER(HID_T), INTENT(IN) :: mem_type_id INTEGER(HID_T) :: mem_space_id_default @@ -5373,9 +5373,9 @@ SUBROUTINE h5dfill_integer(fill_value, space_id, buf, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dfill_integer -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dfill_integer +!DEC$endif IMPLICIT NONE INTEGER, INTENT(IN) :: fill_value ! Fill value @@ -5393,9 +5393,9 @@ INTEGER FUNCTION h5dfill_c(fill_value, fill_type_id, space_id, & buf, mem_type_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DFILL_C'::h5dfill_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5DFILL_C'::h5dfill_c + !DEC$ ENDIF INTEGER, INTENT(IN) :: fill_value ! Fill value INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier @@ -5437,9 +5437,9 @@ SUBROUTINE h5dfill_real(fill_valuer, space_id, buf, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dfill_real -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dfill_real +!DEC$endif IMPLICIT NONE REAL, INTENT(IN) :: fill_valuer ! Fill value @@ -5457,9 +5457,9 @@ INTEGER FUNCTION h5dfill_c(fill_valuer, fill_type_id, space_id, & buf, mem_type_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DFILL_C'::h5dfill_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5DFILL_C'::h5dfill_c + !DEC$ ENDIF REAL, INTENT(IN) :: fill_valuer ! Fill value INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier @@ -5500,9 +5500,9 @@ SUBROUTINE h5dfill_double(fill_value, space_id, buf, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dfill_double -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dfill_double +!DEC$endif IMPLICIT NONE DOUBLE PRECISION, INTENT(IN) :: fill_value ! Fill value @@ -5520,9 +5520,9 @@ INTEGER FUNCTION h5dfill_c(fill_value, fill_type_id, space_id, & buf, mem_type_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DFILL_C'::h5dfill_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5DFILL_C'::h5dfill_c + !DEC$ ENDIF DOUBLE PRECISION, INTENT(IN) :: fill_value ! Fill value INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier @@ -5565,9 +5565,9 @@ SUBROUTINE h5dfill_char(fill_value, space_id, buf, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dfill_integer -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dfill_integer +!DEC$endif IMPLICIT NONE CHARACTER, INTENT(IN) :: fill_value ! Fill value @@ -5585,9 +5585,9 @@ INTEGER FUNCTION h5dfillc_c(fill_value, fill_type_id, space_id, & buf, mem_type_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DFILLC_C'::h5dfillc_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5DFILLC_C'::h5dfillc_c + !DEC$ ENDIF CHARACTER, INTENT(IN) :: fill_value ! Fill value INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier @@ -5627,9 +5627,9 @@ SUBROUTINE h5dget_space_status_f(dset_id, flag, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dget_space_status_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dget_space_status_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataspace identifier @@ -5642,9 +5642,9 @@ INTERFACE INTEGER FUNCTION h5dget_space_status_c(dset_id, flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DGET_SPACE_STATUS_C'::h5dget_space_status_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5DGET_SPACE_STATUS_C'::h5dget_space_status_c + !DEC$ ENDIF INTEGER(HID_T) :: dset_id INTEGER :: flag END FUNCTION h5dget_space_status_c diff --git a/fortran/src/H5Eff.f90 b/fortran/src/H5Eff.f90 index 189ff91..6e58bcf 100644 --- a/fortran/src/H5Eff.f90 +++ b/fortran/src/H5Eff.f90 @@ -49,9 +49,9 @@ SUBROUTINE h5eclear_f(hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5eclear_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5eclear_f +!DEC$endif ! IMPLICIT NONE INTEGER, INTENT(OUT) :: hdferr ! Error code @@ -62,9 +62,9 @@ INTERFACE INTEGER FUNCTION h5eclear_c() USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5ECLEAR_C'::h5eclear_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5ECLEAR_C'::h5eclear_c + !DEC$ ENDIF END FUNCTION h5eclear_c END INTERFACE hdferr = h5eclear_c() @@ -97,9 +97,9 @@ SUBROUTINE h5eprint_f(hdferr, name) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5eprint_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5eprint_f +!DEC$endif ! CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: name ! File name INTEGER, INTENT(OUT) :: hdferr ! Error code @@ -111,10 +111,10 @@ INTERFACE INTEGER FUNCTION h5eprint_c1(name, namelen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5EPRINT_C1'::h5eprint_c1 - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5EPRINT_C1'::h5eprint_c1 + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER :: namelen CHARACTER(LEN=*),INTENT(IN) :: name END FUNCTION h5eprint_c1 @@ -124,9 +124,9 @@ INTERFACE INTEGER FUNCTION h5eprint_c2() USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5EPRINT_C2'::h5eprint_c2 - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5EPRINT_C2'::h5eprint_c2 + !DEC$ ENDIF END FUNCTION h5eprint_c2 END INTERFACE namelen = LEN(NAME) @@ -165,9 +165,9 @@ SUBROUTINE h5eget_major_f(error_no, name, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5eget_major_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5eget_major_f +!DEC$endif ! INTEGER, INTENT(IN) :: error_no !Major error number CHARACTER(LEN=*), INTENT(OUT) :: name ! Character string describing @@ -180,10 +180,10 @@ INTERFACE INTEGER FUNCTION h5eget_major_c(error_no, name) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5EGET_MAJOR_C'::h5eget_major_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5EGET_MAJOR_C'::h5eget_major_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER :: error_no CHARACTER(LEN=*) :: name END FUNCTION h5eget_major_c @@ -223,9 +223,9 @@ SUBROUTINE h5eget_minor_f(error_no, name, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5eget_minor_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5eget_minor_f +!DEC$endif ! INTEGER, INTENT(IN) :: error_no !Major error number CHARACTER(LEN=*), INTENT(OUT) :: name ! Character string describing @@ -238,10 +238,10 @@ INTERFACE INTEGER FUNCTION h5eget_minor_c(error_no, name) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5EGET_MINOR_C'::h5eget_minor_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5EGET_MINOR_C'::h5eget_minor_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER :: error_no CHARACTER(LEN=*) :: name END FUNCTION h5eget_minor_c @@ -281,9 +281,9 @@ SUBROUTINE h5eset_auto_f(printflag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5eset_auto_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5eset_auto_f +!DEC$endif ! INTEGER, INTENT(IN) :: printflag !flag to turn automatic error !printing on or off @@ -298,9 +298,9 @@ INTERFACE INTEGER FUNCTION h5eset_auto_c(printflag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5ESET_AUTO_C'::h5eset_auto_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5ESET_AUTO_C'::h5eset_auto_c + !DEC$ ENDIF INTEGER :: printflag END FUNCTION h5eset_auto_c END INTERFACE diff --git a/fortran/src/H5Fff.f90 b/fortran/src/H5Fff.f90 index 6fa308d..24e3945 100644 --- a/fortran/src/H5Fff.f90 +++ b/fortran/src/H5Fff.f90 @@ -52,9 +52,9 @@ creation_prp, access_prp) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fcreate_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fcreate_f +!DEC$endif ! IMPLICIT NONE @@ -79,10 +79,10 @@ INTEGER FUNCTION h5fcreate_c(name, namelen, access_flags, & creation_prp_default, access_prp_default, file_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FCREATE_C':: h5fcreate_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER(HID_T), INTENT(OUT) :: file_id @@ -135,9 +135,9 @@ SUBROUTINE h5fflush_f(object_id, scope, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fflush_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fflush_f +!DEC$endif ! IMPLICIT NONE @@ -165,9 +165,9 @@ INTERFACE INTEGER FUNCTION h5fflush_c(object_id, scope) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FFLUSH_C':: h5fflush_c - !FooDECS ENDIF + !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 @@ -208,9 +208,9 @@ SUBROUTINE h5fmount_f(loc_id, name, child_id, hdferr, access_prp) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fmount_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fmount_f +!DEC$endif ! IMPLICIT NONE @@ -233,10 +233,10 @@ INTEGER FUNCTION h5fmount_c(loc_id, name, namelen, & child_id, access_prp_default) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FMOUNT_C':: h5fmount_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER(HID_T), INTENT(IN) :: child_id @@ -282,9 +282,9 @@ SUBROUTINE h5funmount_f(loc_id, name, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5funmount_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5funmount_f +!DEC$endif ! IMPLICIT NONE @@ -301,10 +301,10 @@ INTERFACE INTEGER FUNCTION h5funmount_c(loc_id, name, namelen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FUNMOUNT_C':: h5funmount_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER :: namelen @@ -347,9 +347,9 @@ access_prp) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fopen_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fopen_f +!DEC$endif ! IMPLICIT NONE @@ -370,10 +370,10 @@ INTEGER FUNCTION h5fopen_c(name, namelen, access_flags, & access_prp_default, file_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FOPEN_C':: h5fopen_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER, INTENT(IN) :: access_flags @@ -419,9 +419,9 @@ SUBROUTINE h5freopen_f(file_id, ret_file_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5freopen_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5freopen_f +!DEC$endif ! IMPLICIT NONE @@ -435,9 +435,9 @@ INTERFACE INTEGER FUNCTION h5freopen_c(file_id, ret_file_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FREOPEN_C':: h5freopen_c - !FooDECS ENDIF + !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 @@ -476,9 +476,9 @@ SUBROUTINE h5fget_create_plist_f(file_id, prop_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fget_create_plist_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fget_create_plist_f +!DEC$endif ! IMPLICIT NONE @@ -493,9 +493,9 @@ INTERFACE INTEGER FUNCTION h5fget_create_plist_c(file_id, prop_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) -!FooMSSATTRIBUTES C,reference,alias:'_H5FGET_CREATE_PLIST_C':: h5fget_create_plist_c - !FooDECS ENDIF + !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 @@ -534,9 +534,9 @@ SUBROUTINE h5fget_access_plist_f(file_id, access_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fget_access_plist_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fget_access_plist_f +!DEC$endif ! IMPLICIT NONE @@ -551,9 +551,9 @@ INTERFACE INTEGER FUNCTION h5fget_access_plist_c(file_id, access_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) -!FooMSSATTRIBUTES C,reference,alias:'_H5FGET_CREATE_PLIST_C':: h5fget_access_plist_c - !FooDECS ENDIF + !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 @@ -592,9 +592,9 @@ SUBROUTINE h5fis_hdf5_f(name, status, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fis_hdf5_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fis_hdf5_f +!DEC$endif ! IMPLICIT NONE @@ -612,10 +612,10 @@ INTERFACE INTEGER FUNCTION h5fis_hdf5_c(name, namelen, flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FIS_HDF5_C':: h5fis_hdf5_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER :: flag @@ -656,9 +656,9 @@ SUBROUTINE h5fclose_f(file_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fclose_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fclose_f +!DEC$endif ! IMPLICIT NONE @@ -671,9 +671,9 @@ INTERFACE INTEGER FUNCTION h5fclose_c(file_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FCLOSE_C':: h5fclose_c - !FooDECS ENDIF + !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 @@ -714,9 +714,9 @@ SUBROUTINE h5fget_obj_count_f(file_id, obj_type, obj_count, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fget_obj_count_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fget_obj_count_f +!DEC$endif ! IMPLICIT NONE @@ -728,9 +728,9 @@ INTERFACE INTEGER FUNCTION h5fget_obj_count_c(file_id, obj_type, obj_count) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FGET_OBJ_COUNT_C':: h5fget_obj_count_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5FGET_OBJ_COUNT_C':: h5fget_obj_count_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: file_id INTEGER, INTENT(IN) :: obj_type ! Object type INTEGER, INTENT(OUT) :: obj_count ! Number of open objects @@ -773,9 +773,9 @@ SUBROUTINE h5fget_obj_ids_f(file_id, obj_type, max_objs, obj_ids, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fget_obj_ids_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fget_obj_ids_f +!DEC$endif ! IMPLICIT NONE @@ -789,9 +789,9 @@ INTERFACE INTEGER FUNCTION h5fget_obj_ids_c(file_id, obj_type, max_objs, obj_ids) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FGET_OBJ_IDS_C':: h5fget_obj_ids_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5FGET_OBJ_IDS_C':: h5fget_obj_ids_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: file_id INTEGER, INTENT(IN) :: obj_type INTEGER, INTENT(IN) :: max_objs @@ -829,9 +829,9 @@ SUBROUTINE h5fget_freespace_f(file_id, free_space, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fget_freespace_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fget_freespace_f +!DEC$endif ! IMPLICIT NONE @@ -843,9 +843,9 @@ INTERFACE INTEGER FUNCTION h5fget_freespace_c(file_id, free_space) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FGET_FREESPACE_C':: h5fget_freespace_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5FGET_FREESPACE_C':: h5fget_freespace_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: file_id INTEGER(HSSIZE_T), INTENT(OUT) :: free_space END FUNCTION h5fget_freespace_c diff --git a/fortran/src/H5Gff.f90 b/fortran/src/H5Gff.f90 index 90cf999..7311ef6 100644 --- a/fortran/src/H5Gff.f90 +++ b/fortran/src/H5Gff.f90 @@ -50,9 +50,9 @@ SUBROUTINE h5gcreate_f(loc_id, name, grp_id, hdferr, size_hint) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5gcreate_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5gcreate_f +!DEC$endif ! IMPLICIT NONE @@ -76,10 +76,10 @@ INTEGER FUNCTION h5gcreate_c(loc_id, name, namelen, & size_hint_default, grp_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5GCREATE_C'::h5gcreate_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER :: namelen @@ -124,9 +124,9 @@ SUBROUTINE h5gopen_f(loc_id, name, grp_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5gopen_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5gopen_f +!DEC$endif ! IMPLICIT NONE @@ -143,10 +143,10 @@ INTERFACE INTEGER FUNCTION h5gopen_c(loc_id, name, namelen, grp_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5GOPEN_C'::h5gopen_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER :: namelen @@ -185,9 +185,9 @@ SUBROUTINE h5gclose_f(grp_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5gclose_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5gclose_f +!DEC$endif ! IMPLICIT NONE @@ -200,9 +200,9 @@ INTERFACE INTEGER FUNCTION h5gclose_c(grp_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5GCLOSE_C'::h5gclose_c - !FooDECS ENDIF + !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 @@ -244,9 +244,9 @@ obj_name, obj_type, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5gget_obj_info_idx_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5gget_obj_info_idx_f +!DEC$endif ! IMPLICIT NONE @@ -268,11 +268,11 @@ namelen, idx, & obj_name, obj_namelen, obj_type) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5GGET_OBJ_INFO_IDX_C'::h5gget_obj_info_idx_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name - !FooDECSATTRIBUTES reference :: obj_name + !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 CHARACTER(LEN=*), INTENT(IN) :: name INTEGER :: namelen @@ -319,9 +319,9 @@ SUBROUTINE h5gn_members_f(loc_id, name, nmembers, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5gn_members_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5gn_members_f +!DEC$endif ! IMPLICIT NONE @@ -339,10 +339,10 @@ INTERFACE INTEGER FUNCTION h5gn_members_c(loc_id, name, namelen, nmembers) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5GN_MEMBERS_C'::h5gn_members_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER :: namelen @@ -391,9 +391,9 @@ new_name, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5glink_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5glink_f +!DEC$endif ! IMPLICIT NONE @@ -419,11 +419,11 @@ current_namelen, new_name, new_namelen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5GLINK_C'::h5glink_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: current_name - !FooDECSATTRIBUTES reference :: new_name + !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 INTEGER, INTENT(IN) :: link_type CHARACTER(LEN=*), INTENT(IN) :: current_name @@ -473,9 +473,9 @@ new_name, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5glink2_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5glink2_f +!DEC$endif ! IMPLICIT NONE @@ -500,11 +500,11 @@ new_name, new_namelen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5GLINK2_C'::h5glink2_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: cur_name - !FooDECSATTRIBUTES reference :: new_name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5GLINK2_C'::h5glink2_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: cur_name + !DEC$ATTRIBUTES reference :: new_name INTEGER(HID_T), INTENT(IN) :: cur_loc_id INTEGER(HID_T), INTENT(IN) :: new_loc_id INTEGER, INTENT(IN) :: link_type @@ -551,9 +551,9 @@ SUBROUTINE h5gunlink_f(loc_id, name, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5gunlink_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5gunlink_f +!DEC$endif ! IMPLICIT NONE @@ -569,10 +569,10 @@ INTERFACE INTEGER FUNCTION h5gunlink_c(loc_id, name, namelen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5GUNLINK_C'::h5gunlink_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER :: namelen @@ -613,9 +613,9 @@ SUBROUTINE h5gmove_f(loc_id, name, new_name, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5gmove_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5gmove_f +!DEC$endif ! IMPLICIT NONE @@ -633,11 +633,11 @@ INTERFACE INTEGER FUNCTION h5gmove_c(loc_id, name, namelen, new_name, new_namelen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5GMOVE_C'::h5gmove_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name - !FooDECSATTRIBUTES reference :: new_name + !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 CHARACTER(LEN=*), INTENT(IN) :: name INTEGER :: namelen @@ -678,9 +678,9 @@ SUBROUTINE h5gmove2_f(src_loc_id, src_name, dst_loc_id, dst_name, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5gmove2_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5gmove2_f +!DEC$endif ! IMPLICIT NONE @@ -700,11 +700,11 @@ INTEGER FUNCTION h5gmove2_c(src_loc_id, src_name, src_namelen, & dst_loc_id, dst_name, dst_namelen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5GMOVE2_C'::h5gmove2_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: src_name - !FooDECSATTRIBUTES reference :: dst_name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5GMOVE2_C'::h5gmove2_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: src_name + !DEC$ATTRIBUTES reference :: dst_name INTEGER(HID_T), INTENT(IN) :: src_loc_id INTEGER(HID_T), INTENT(IN) :: dst_loc_id CHARACTER(LEN=*), INTENT(IN) :: src_name @@ -753,9 +753,9 @@ SUBROUTINE h5gget_linkval_f(loc_id, name, size, buffer, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5gget_linkval_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5gget_linkval_f +!DEC$endif ! IMPLICIT NONE @@ -776,11 +776,11 @@ INTERFACE INTEGER FUNCTION h5gget_linkval_c(loc_id, name, namelen, size, buffer) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5GGET_LINKVAL_C'::h5gget_linkval_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name - !FooDECSATTRIBUTES reference :: buffer + !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 CHARACTER(LEN=*), INTENT(IN) :: name INTEGER :: namelen @@ -822,9 +822,9 @@ SUBROUTINE h5gset_comment_f(loc_id, name, comment, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5gset_comment_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5gset_comment_f +!DEC$endif ! IMPLICIT NONE @@ -843,11 +843,11 @@ INTEGER FUNCTION h5gset_comment_c(loc_id, name, namelen, & comment, commentlen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5GSET_COMMENT_C'::h5gset_comment_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name - !FooDECSATTRIBUTES reference :: comment + !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 CHARACTER(LEN=*), INTENT(IN) :: name INTEGER :: namelen @@ -891,9 +891,9 @@ SUBROUTINE h5gget_comment_f(loc_id, name, size, buffer, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5gget_comment_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5gget_comment_f +!DEC$endif ! IMPLICIT NONE @@ -913,11 +913,11 @@ INTEGER FUNCTION h5gget_comment_c(loc_id, name, namelen, & size, buffer) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5GGET_COMMENT_C'::h5gget_comment_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name - !FooDECSATTRIBUTES reference :: buffer + !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 CHARACTER(LEN=*), INTENT(IN) :: name INTEGER :: namelen diff --git a/fortran/src/H5Iff.f90 b/fortran/src/H5Iff.f90 index 88837f0..a4bc6f6 100644 --- a/fortran/src/H5Iff.f90 +++ b/fortran/src/H5Iff.f90 @@ -54,9 +54,9 @@ SUBROUTINE h5iget_type_f(obj_id, type, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5iget_type_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5iget_type_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier @@ -77,9 +77,9 @@ INTERFACE INTEGER FUNCTION h5iget_type_c(obj_id, type) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5IGET_TYPE_C':: h5iget_type_c - !FooDECS ENDIF + !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 @@ -115,9 +115,9 @@ SUBROUTINE h5iget_name_f(obj_id, buf, buf_size, name_size, hdferr) !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5iget_name_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5iget_name_f +!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier INTEGER(SIZE_T), INTENT(IN) :: buf_size ! Buffer size @@ -132,10 +132,10 @@ INTERFACE INTEGER FUNCTION h5iget_name_c(obj_id, buf, buf_size, name_size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5IGET_NAME_C'::h5iget_name_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: buf + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5IGET_NAME_C'::h5iget_name_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HID_T), INTENT(IN) :: obj_id CHARACTER(LEN=*), INTENT(OUT) :: buf INTEGER(SIZE_T), INTENT(IN) :: buf_size @@ -170,9 +170,9 @@ SUBROUTINE h5iinc_ref_f(obj_id, ref_count, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5iinc_ref_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5iinc_ref_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier @@ -185,9 +185,9 @@ INTERFACE INTEGER FUNCTION h5iinc_ref_c(obj_id, ref_count) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5IINC_REF_C':: h5iinc_ref_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5IINC_REF_C':: h5iinc_ref_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: obj_id INTEGER, INTENT(OUT) :: ref_count END FUNCTION h5iinc_ref_c @@ -219,9 +219,9 @@ SUBROUTINE h5idec_ref_f(obj_id, ref_count, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5idec_ref_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5idec_ref_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier @@ -234,9 +234,9 @@ INTERFACE INTEGER FUNCTION h5idec_ref_c(obj_id, ref_count) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5IDEC_REF_C':: h5idec_ref_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5IDEC_REF_C':: h5idec_ref_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: obj_id INTEGER, INTENT(OUT) :: ref_count END FUNCTION h5idec_ref_c @@ -268,9 +268,9 @@ SUBROUTINE h5iget_ref_f(obj_id, ref_count, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5iget_ref_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5iget_ref_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier @@ -283,9 +283,9 @@ INTERFACE INTEGER FUNCTION h5iget_ref_c(obj_id, ref_count) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5IGET_REF_C':: h5iget_ref_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5IGET_REF_C':: h5iget_ref_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: obj_id INTEGER, INTENT(OUT) :: ref_count END FUNCTION h5iget_ref_c diff --git a/fortran/src/H5Pff.f90 b/fortran/src/H5Pff.f90 index 25c3bd7..87ccdee 100644 --- a/fortran/src/H5Pff.f90 +++ b/fortran/src/H5Pff.f90 @@ -115,9 +115,9 @@ SUBROUTINE h5pcreate_f(class, prp_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pcreate_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pcreate_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: class ! The type of the property list @@ -137,9 +137,9 @@ INTERFACE INTEGER FUNCTION h5pcreate_c(class, prp_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PCREATE_C'::h5pcreate_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PCREATE_C'::h5pcreate_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: class INTEGER(HID_T), INTENT(OUT) :: prp_id END FUNCTION h5pcreate_c @@ -182,9 +182,9 @@ SUBROUTINE h5pset_preserve_f(prp_id, flag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_preserve_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_preserve_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -200,9 +200,9 @@ INTERFACE INTEGER FUNCTION h5pset_preserve_c(prp_id, flag_c) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_PRESERVE_C'::h5pset_preserve_c - !FooDECS ENDIF + !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 :: flag_c END FUNCTION h5pset_preserve_c @@ -243,9 +243,9 @@ SUBROUTINE h5pget_preserve_f(prp_id, flag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_preserve_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_preserve_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -261,9 +261,9 @@ INTERFACE INTEGER FUNCTION h5pget_preserve_c(prp_id, flag_c) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_PRESERVE_C'::h5pget_preserve_c - !FooDECS ENDIF + !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 :: flag_c END FUNCTION h5pget_preserve_c @@ -309,9 +309,9 @@ SUBROUTINE h5pget_class_f(prp_id, classtype, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_class_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_class_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -332,9 +332,9 @@ INTERFACE INTEGER FUNCTION h5pget_class_c(prp_id, classtype) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_CLASS_C'::h5pget_class_c - !FooDECS ENDIF + !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 @@ -373,9 +373,9 @@ SUBROUTINE h5pcopy_f(prp_id, new_prp_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pcopy_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pcopy_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -390,9 +390,9 @@ INTERFACE INTEGER FUNCTION h5pcopy_c(prp_id, new_prp_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PCOPY_C'::h5pcopy_c - !FooDECS ENDIF + !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 @@ -430,9 +430,9 @@ SUBROUTINE h5pclose_f(prp_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pclose_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pclose_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -444,9 +444,9 @@ INTERFACE INTEGER FUNCTION h5pclose_c(prp_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PCLOSE_C'::h5pclose_c - !FooDECS ENDIF + !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 @@ -485,9 +485,9 @@ SUBROUTINE h5pset_chunk_f(prp_id, ndims, dims, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_chunk_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_chunk_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -503,9 +503,9 @@ INTERFACE INTEGER FUNCTION h5pset_chunk_c(prp_id, ndims, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_CHUNK_C'::h5pset_chunk_c - !FooDECS ENDIF + !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 @@ -546,9 +546,9 @@ SUBROUTINE h5pget_chunk_f(prp_id, ndims, dims, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_chunk_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_chunk_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -567,9 +567,9 @@ INTERFACE INTEGER FUNCTION h5pget_chunk_c(prp_id, ndims, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_CHUNK_C'::h5pget_chunk_c - !FooDECS ENDIF + !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 @@ -608,9 +608,9 @@ SUBROUTINE h5pset_deflate_f(prp_id, level, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_deflate_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_deflate_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -623,9 +623,9 @@ INTERFACE INTEGER FUNCTION h5pset_deflate_c(prp_id, level) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_DEFLATE_C'::h5pset_deflate_c - !FooDECS ENDIF + !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 @@ -668,9 +668,9 @@ hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_fill_value_integer -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fill_value_integer +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -686,9 +686,9 @@ INTERFACE INTEGER FUNCTION h5pset_fill_value_c(prp_id, type_id, fillvalue) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FILL_VALUE_C'::h5pset_fill_value_c - !FooDECS ENDIF + !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 @@ -703,9 +703,9 @@ hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_fill_value_integer -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_fill_value_integer +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -721,9 +721,9 @@ INTERFACE INTEGER FUNCTION h5pget_fill_value_c(prp_id, type_id, fillvalue) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_FILL_VALUE_C'::h5pget_fill_value_c - !FooDECS ENDIF + !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 @@ -738,9 +738,9 @@ hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_fill_value_real -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fill_value_real +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -756,9 +756,9 @@ INTERFACE INTEGER FUNCTION h5pset_fill_value_c(prp_id, type_id, fillvalue) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FILL_VALUE_C'::h5pset_fill_value_c - !FooDECS ENDIF + !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 @@ -773,9 +773,9 @@ hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_fill_value_real -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_fill_value_real +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -791,9 +791,9 @@ INTERFACE INTEGER FUNCTION h5pget_fill_value_c(prp_id, type_id, fillvalue) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_FILL_VALUE_C'::h5pget_fill_value_c - !FooDECS ENDIF + !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 @@ -808,9 +808,9 @@ hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_fill_value_double -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fill_value_double +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -826,9 +826,9 @@ INTERFACE INTEGER FUNCTION h5pset_fill_value_c(prp_id, type_id, fillvalue) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FILL_VALUE_C'::h5pset_fill_value_c - !FooDECS ENDIF + !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 @@ -843,9 +843,9 @@ hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_fill_value_double -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_fill_value_double +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -861,9 +861,9 @@ INTERFACE INTEGER FUNCTION h5pget_fill_value_c(prp_id, type_id, fillvalue) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_FILL_VALUE_C'::h5pget_fill_value_c - !FooDECS ENDIF + !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 @@ -877,9 +877,9 @@ hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_fill_value_char -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fill_value_char +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -895,10 +895,10 @@ INTERFACE INTEGER FUNCTION h5pset_fill_valuec_c(prp_id, type_id, fillvalue) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FILL_VALUEC_C'::h5pset_fill_valuec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: fillvalue + !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 CHARACTER, INTENT(IN) :: fillvalue @@ -912,9 +912,9 @@ hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_fill_value_char -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_fill_value_char +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -930,10 +930,10 @@ INTERFACE INTEGER FUNCTION h5pget_fill_valuec_c(prp_id, type_id, fillvalue) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_FILL_VALUEC_C'::h5pget_fill_valuec_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: fillvalue + !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 CHARACTER :: fillvalue @@ -976,9 +976,9 @@ stab, shhdr, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_version_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_version_f +!DEC$endif ! IMPLICIT NONE @@ -1000,9 +1000,9 @@ INTERFACE INTEGER FUNCTION h5pget_version_c(prp_id, boot, freelist, stab, shhdr) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_VERSION_C'::h5pget_version_c - !FooDECS ENDIF + !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 @@ -1042,9 +1042,9 @@ SUBROUTINE h5pset_userblock_f (prp_id, size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_userblock_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_userblock_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1057,9 +1057,9 @@ INTERFACE INTEGER FUNCTION h5pset_userblock_c(prp_id, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_USERBLOCK_C'::h5pset_userblock_c - !FooDECS ENDIF + !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 @@ -1097,9 +1097,9 @@ SUBROUTINE h5pget_userblock_f(prp_id, block_size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_userblock_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_userblock_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1113,9 +1113,9 @@ INTERFACE INTEGER FUNCTION h5pget_userblock_c(prp_id, block_size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_USERBLOCK_C'::h5pget_userblock_c - !FooDECS ENDIF + !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 @@ -1153,9 +1153,9 @@ SUBROUTINE h5pset_sizes_f (prp_id, sizeof_addr, sizeof_size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_sizes_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_sizes_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1171,9 +1171,9 @@ INTERFACE INTEGER FUNCTION h5pset_sizes_c(prp_id, sizeof_addr, sizeof_size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_SIZES_C'::h5pset_sizes_c - !FooDECS ENDIF + !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 @@ -1214,9 +1214,9 @@ SUBROUTINE h5pget_sizes_f(prp_id, sizeof_addr, sizeof_size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_sizes_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_sizes_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1233,9 +1233,9 @@ INTERFACE INTEGER FUNCTION h5pget_sizes_c(prp_id, sizeof_addr, sizeof_size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_SIZES_C'::h5pget_sizes_c - !FooDECS ENDIF + !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 @@ -1275,9 +1275,9 @@ SUBROUTINE h5pset_sym_k_f (prp_id, ik, lk, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_sym_k_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_sym_k_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1292,9 +1292,9 @@ INTERFACE INTEGER FUNCTION h5pset_sym_k_c(prp_id, ik, lk) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_SYM_K_C'::h5pset_sym_k_c - !FooDECS ENDIF + !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 @@ -1335,9 +1335,9 @@ SUBROUTINE h5pget_sym_k_f(prp_id, ik, lk, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_sym_k_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_sym_k_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1351,9 +1351,9 @@ INTERFACE INTEGER FUNCTION h5pget_sym_k_c(prp_id, ik, lk) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_SYM_K_C'::h5pget_sym_k_c - !FooDECS ENDIF + !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 @@ -1392,9 +1392,9 @@ SUBROUTINE h5pset_istore_k_f (prp_id, ik, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_istore_k_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_istore_k_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1408,9 +1408,9 @@ INTERFACE INTEGER FUNCTION h5pset_istore_k_c(prp_id, ik) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_ISTORE_K_C'::h5pset_istore_k_c - !FooDECS ENDIF + !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 @@ -1448,9 +1448,9 @@ SUBROUTINE h5pget_istore_k_f(prp_id, ik, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_istore_k_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_istore_k_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1463,9 +1463,9 @@ INTERFACE INTEGER FUNCTION h5pget_istore_k_c(prp_id, ik) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_ISTORE_K_C'::h5pget_istore_k_c - !FooDECS ENDIF + !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 @@ -1503,9 +1503,9 @@ SUBROUTINE h5pget_driver_f(prp_id, driver, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_driver_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_driver_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1518,9 +1518,9 @@ INTERFACE INTEGER FUNCTION h5pget_driver_c(prp_id, driver) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_DRIVER_C'::h5pget_driver_c - !FooDECS ENDIF + !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 @@ -1556,9 +1556,9 @@ SUBROUTINE h5pset_fapl_stdio_f (prp_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_fapl_stdio_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fapl_stdio_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1570,9 +1570,9 @@ INTERFACE INTEGER FUNCTION h5pset_fapl_stdio_c(prp_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FAPL_STDIO_C'::h5pset_fapl_stdio_c - !FooDECS ENDIF + !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 @@ -1606,9 +1606,9 @@ ! SUBROUTINE h5pget_stdio_f (prp_id, io, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_stdio_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_stdio_f +!DEC$endif ! ! IMPLICIT NONE ! INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1647,9 +1647,9 @@ SUBROUTINE h5pset_fapl_sec2_f (prp_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_fapl_sec2_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fapl_sec2_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1661,9 +1661,9 @@ INTERFACE INTEGER FUNCTION h5pset_fapl_sec2_c(prp_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FAPL_SEC2_C'::h5pset_fapl_sec2_c - !FooDECS ENDIF + !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 @@ -1734,9 +1734,9 @@ SUBROUTINE h5pset_alignment_f(prp_id, threshold, alignment, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_alignment_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_alignment_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1750,9 +1750,9 @@ INTERFACE INTEGER FUNCTION h5pset_alignment_c(prp_id, threshold, alignment) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_ALIGNMENT_C'::h5pset_alignment_c - !FooDECS ENDIF + !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 @@ -1792,9 +1792,9 @@ SUBROUTINE h5pget_alignment_f(prp_id, threshold, alignment, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_alignment_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_alignment_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1808,9 +1808,9 @@ INTERFACE INTEGER FUNCTION h5pget_alignment_c(prp_id, threshold, alignment) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_ALIGNMENT_C'::h5pget_alignment_c - !FooDECS ENDIF + !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 @@ -1850,9 +1850,9 @@ SUBROUTINE h5pset_fapl_core_f(prp_id, increment, backing_store, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_fapl_core_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fapl_core_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1869,9 +1869,9 @@ INTERFACE INTEGER FUNCTION h5pset_fapl_core_c(prp_id, increment, backing_store_flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FAPL_CORE_C'::h5pset_fapl_core_c - !FooDECS ENDIF + !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 :: backing_store_flag @@ -1912,9 +1912,9 @@ SUBROUTINE h5pget_fapl_core_f(prp_id, increment, backing_store, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_fapl_core_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_fapl_core_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1931,9 +1931,9 @@ INTERFACE INTEGER FUNCTION h5pget_fapl_core_c(prp_id, increment, backing_store_flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_FAPL_CORE_C'::h5pget_fapl_core_c - !FooDECS ENDIF + !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 :: backing_store_flag @@ -1975,9 +1975,9 @@ SUBROUTINE h5pset_fapl_family_f(prp_id, memb_size, memb_plist , hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_fapl_family_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fapl_family_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -1994,9 +1994,9 @@ INTERFACE INTEGER FUNCTION h5pset_fapl_family_c(prp_id, memb_size, memb_plist) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FAPL_FAMILY_C'::h5pset_fapl_family_c - !FooDECS ENDIF + !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 @@ -2037,9 +2037,9 @@ SUBROUTINE h5pget_fapl_family_f(prp_id, memb_size, memb_plist , hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_fapl_family_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_fapl_family_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -2056,9 +2056,9 @@ INTERFACE INTEGER FUNCTION h5pget_fapl_family_c(prp_id, memb_size, memb_plist) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_FAPL_FAMILY_C'::h5pget_fapl_family_c - !FooDECS ENDIF + !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 @@ -2102,9 +2102,9 @@ SUBROUTINE h5pset_cache_f(prp_id, mdc_nelmts,rdcc_nelmts, rdcc_nbytes, rdcc_w0, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_cache_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_cache_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -2123,9 +2123,9 @@ INTERFACE INTEGER FUNCTION h5pset_cache_c(prp_id,mdc_nelmts,rdcc_nelmts,rdcc_nbytes,rdcc_w0) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_CACHE_C'::h5pset_cache_c - !FooDECS ENDIF + !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(SIZE_T), INTENT(IN) :: rdcc_nelmts @@ -2171,9 +2171,9 @@ SUBROUTINE h5pget_cache_f(prp_id, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, rdcc_w0, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_cache_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_cache_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -2193,9 +2193,9 @@ INTERFACE INTEGER FUNCTION h5pget_cache_c(prp_id,mdc_nelmts,rdcc_nelmts,rdcc_nbytes,rdcc_w0) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_CACHE_C'::h5pget_cache_c - !FooDECS ENDIF + !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(SIZE_T), INTENT(OUT) :: rdcc_nelmts @@ -2240,9 +2240,9 @@ SUBROUTINE h5pset_fapl_split_f(prp_id, meta_ext, meta_plist, raw_ext, raw_plist, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_fapl_split_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fapl_split_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -2262,11 +2262,11 @@ INTERFACE INTEGER FUNCTION h5pset_fapl_split_c(prp_id,meta_len,meta_ext,meta_plist,raw_len,raw_ext,raw_plist) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FAPL_SPLIT_C'::h5pset_fapl_split_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: meta_ext - !FooDECSATTRIBUTES reference :: raw_ext + !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 CHARACTER(LEN=*), INTENT(IN) :: meta_ext INTEGER(HID_T), INTENT(IN) :: meta_plist @@ -2359,9 +2359,9 @@ SUBROUTINE h5pset_gc_references_f (prp_id, gc_reference, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_gc_references_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_gc_references_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -2375,9 +2375,9 @@ INTERFACE INTEGER FUNCTION h5pset_gc_references_c(prp_id, gc_reference) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_GC_REFERENCES_C'::h5pset_gc_references_c - !FooDECS ENDIF + !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 @@ -2415,9 +2415,9 @@ SUBROUTINE h5pget_gc_references_f (prp_id, gc_reference, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_gc_references_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_gc_references_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -2431,9 +2431,9 @@ INTERFACE INTEGER FUNCTION h5pget_gc_references_c(prp_id, gc_reference) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_GC_REFERENCES_C'::h5pget_gc_references_c - !FooDECS ENDIF + !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 @@ -2475,9 +2475,9 @@ SUBROUTINE h5pset_layout_f (prp_id, layout, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_layout_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_layout_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -2494,9 +2494,9 @@ INTERFACE INTEGER FUNCTION h5pset_layout_c(prp_id, layout) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_LAYOUT_C'::h5pset_layout_c - !FooDECS ENDIF + !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 @@ -2537,9 +2537,9 @@ SUBROUTINE h5pget_layout_f (prp_id, layout, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_layout_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_layout_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -2556,9 +2556,9 @@ INTERFACE INTEGER FUNCTION h5pget_layout_c(prp_id, layout) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_LAYOUT_C'::h5pget_layout_c - !FooDECS ENDIF + !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 @@ -2598,9 +2598,9 @@ SUBROUTINE h5pset_filter_f(prp_id, filter, flags, cd_nelmts, cd_values, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_filter_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_filter_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -2618,9 +2618,9 @@ INTERFACE INTEGER FUNCTION h5pset_filter_c(prp_id, filter, flags, cd_nelmts, cd_values) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FILTER_C'::h5pset_filter_c - !FooDECS ENDIF + !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 @@ -2661,9 +2661,9 @@ SUBROUTINE h5pget_nfilters_f (prp_id, nfilters, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_nfilters_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_nfilters_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -2676,9 +2676,9 @@ INTERFACE INTEGER FUNCTION h5pget_nfilters_c(prp_id, nfilters) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_NFILTERS_C'::h5pget_nfilters_c - !FooDECS ENDIF + !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 @@ -2723,9 +2723,9 @@ SUBROUTINE h5pget_filter_f(prp_id, filter_number, flags, cd_nelmts, cd_values, namelen, name, filter_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_filter_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_filter_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -2750,10 +2750,10 @@ INTEGER FUNCTION h5pget_filter_c(prp_id, filter_number, flags, cd_nelmts, & cd_values, namelen, name, filter_id ) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_FILTER_C'::h5pget_filter_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER, DIMENSION(*), INTENT(OUT) :: cd_values @@ -2801,9 +2801,9 @@ SUBROUTINE h5pset_external_f(prp_id, name, offset,bytes, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_external_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_external_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -2823,10 +2823,10 @@ INTERFACE INTEGER FUNCTION h5pset_external_c(prp_id, name,namelen, offset, bytes) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_EXTERNAL_C'::h5pset_external_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER :: namelen @@ -2868,9 +2868,9 @@ SUBROUTINE h5pget_external_count_f (prp_id, count, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_external_count_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_external_count_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -2883,9 +2883,9 @@ INTERFACE INTEGER FUNCTION h5pget_external_count_c(prp_id, count) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_EXTERNAL_COUNT_C'::h5pget_external_count_c - !FooDECS ENDIF + !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 @@ -2930,9 +2930,9 @@ SUBROUTINE h5pget_external_f(prp_id, idx, name_size, name, offset,bytes, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_external_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_external_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -2952,10 +2952,10 @@ INTERFACE INTEGER FUNCTION h5pget_external_c(prp_id, idx, name_size, name, offset, bytes) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_EXTERNAL_C'::h5pget_external_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER(SIZE_T), INTENT(IN) :: name_size @@ -2999,9 +2999,9 @@ SUBROUTINE h5pset_hyper_cache_f(prp_id, cache, limit, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_hyper_cache_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_hyper_cache_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -3016,9 +3016,9 @@ INTERFACE INTEGER FUNCTION h5pset_hyper_cache_c(prp_id, cache, limit) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_HYPER_CACHE_C'::h5pset_hyper_cache_c - !FooDECS ENDIF + !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 @@ -3060,9 +3060,9 @@ SUBROUTINE h5pget_hyper_cache_f(prp_id, cache, limit, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_hyper_cache_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_hyper_cache_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -3078,9 +3078,9 @@ INTERFACE INTEGER FUNCTION h5pget_hyper_cache_c(prp_id, cache, limit) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_HYPER_CACHE_C'::h5pget_hyper_cache_c - !FooDECS ENDIF + !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 @@ -3122,9 +3122,9 @@ SUBROUTINE h5pset_btree_ratios_f(prp_id, left, middle, right, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_btree_ratios_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_btree_ratios_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -3141,9 +3141,9 @@ INTERFACE INTEGER FUNCTION h5pset_btree_ratios_c(prp_id, left, middle, right) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_BTREE_RATIOS_C'::h5pset_btree_ratios_c - !FooDECS ENDIF + !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 @@ -3185,9 +3185,9 @@ SUBROUTINE h5pget_btree_ratios_f(prp_id, left, middle, right, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_btree_ratios_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_btree_ratios_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -3205,9 +3205,9 @@ INTERFACE INTEGER FUNCTION h5pget_btree_ratios_c(prp_id, left, middle, right) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_BTREE_RATIOS_C'::h5pget_btree_ratios_c - !FooDECS ENDIF + !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 @@ -3249,9 +3249,9 @@ SUBROUTINE h5pget_fclose_degree_f(fapl_id, degree, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_fclose_degree_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_fclose_degree_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: fapl_id ! File Access Property list identifier @@ -3270,9 +3270,9 @@ INTERFACE INTEGER FUNCTION h5pget_fclose_degree_c(fapl_id, degree) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_FCLOSE_DEGREE_C'::h5pget_fclose_degree_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_FCLOSE_DEGREE_C'::h5pget_fclose_degree_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: fapl_id INTEGER, INTENT(OUT) :: degree END FUNCTION h5pget_fclose_degree_c @@ -3312,9 +3312,9 @@ SUBROUTINE h5pset_fclose_degree_f(fapl_id, degree, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_fclose_degree_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fclose_degree_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: fapl_id ! File Access Property list identifier @@ -3330,9 +3330,9 @@ INTERFACE INTEGER FUNCTION h5pset_fclose_degree_c(fapl_id, degree) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FCLOSE_DEGREE_C'::h5pset_fclose_degree_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_FCLOSE_DEGREE_C'::h5pset_fclose_degree_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: fapl_id INTEGER, INTENT(IN) :: degree END FUNCTION h5pset_fclose_degree_c @@ -3369,9 +3369,9 @@ SUBROUTINE h5pequal_f(plist1_id, plist2_id, flag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pequal_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pequal_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist1_id ! Property list identifier @@ -3383,9 +3383,9 @@ INTERFACE INTEGER FUNCTION h5pequal_c(plist1_id, plist2_id, c_flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PEQUAL_C'::h5pequal_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PEQUAL_C'::h5pequal_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist1_id INTEGER(HID_T), INTENT(IN) :: plist2_id INTEGER, INTENT(OUT) :: c_flag @@ -3423,9 +3423,9 @@ SUBROUTINE h5pset_buffer_f(plist_id, size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_buffer_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_buffer_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id ! Data transfer property list identifier @@ -3437,9 +3437,9 @@ INTERFACE INTEGER FUNCTION h5pset_buffer_c(plist_id, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_BUFFER_C'::h5pset_buffer_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_BUFFER_C'::h5pset_buffer_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER(HSIZE_T), INTENT(IN) :: size END FUNCTION h5pset_buffer_c @@ -3474,9 +3474,9 @@ SUBROUTINE h5pget_buffer_f(plist_id, size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_buffer_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_buffer_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id ! Data transfer property list identifier @@ -3488,9 +3488,9 @@ INTERFACE INTEGER FUNCTION h5pget_buffer_c(plist_id, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_BUFFER_C'::h5pget_buffer_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_BUFFER_C'::h5pget_buffer_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER(HSIZE_T), INTENT(OUT) :: size END FUNCTION h5pget_buffer_c @@ -3530,9 +3530,9 @@ SUBROUTINE h5pfill_value_defined_f(plist_id, flag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pfill_value_defined_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pfill_value_defined_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -3542,9 +3542,9 @@ INTERFACE INTEGER FUNCTION h5pfill_value_defined_c(plist_id, flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PFILL_VALUE_DEFINED_C'::h5pfill_value_defined_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PFILL_VALUE_DEFINED_C'::h5pfill_value_defined_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER, INTENT(OUT) :: flag END FUNCTION h5pfill_value_defined_c @@ -3585,9 +3585,9 @@ SUBROUTINE h5pset_alloc_time_f(plist_id, flag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_alloc_time_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_alloc_time_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -3597,9 +3597,9 @@ INTERFACE INTEGER FUNCTION h5pset_alloc_time_c(plist_id, flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_ALLOC_TIME_C'::h5pset_alloc_time_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_ALLOC_TIME_C'::h5pset_alloc_time_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER, INTENT(IN) :: flag END FUNCTION h5pset_alloc_time_c @@ -3640,9 +3640,9 @@ SUBROUTINE h5pget_alloc_time_f(plist_id, flag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_alloc_time_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_alloc_time_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -3652,9 +3652,9 @@ INTERFACE INTEGER FUNCTION h5pget_alloc_time_c(plist_id, flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_ALLOC_TIME_C'::h5pget_alloc_time_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_ALLOC_TIME_C'::h5pget_alloc_time_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER, INTENT(OUT) :: flag END FUNCTION h5pget_alloc_time_c @@ -3693,9 +3693,9 @@ SUBROUTINE h5pset_fill_time_f(plist_id, flag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_fill_time_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fill_time_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -3705,9 +3705,9 @@ INTERFACE INTEGER FUNCTION h5pset_fill_time_c(plist_id, flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FILL_TIME_C'::h5pset_fill_time_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_FILL_TIME_C'::h5pset_fill_time_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER, INTENT(IN) :: flag END FUNCTION h5pset_fill_time_c @@ -3746,9 +3746,9 @@ SUBROUTINE h5pget_fill_time_f(plist_id, flag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_fill_time_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fill_time_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id @@ -3758,9 +3758,9 @@ INTERFACE INTEGER FUNCTION h5pget_fill_time_c(plist_id, flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_FILL_TIME_C'::h5pget_fill_time_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_FILL_TIME_C'::h5pget_fill_time_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER, INTENT(OUT) :: flag END FUNCTION h5pget_fill_time_c @@ -3795,9 +3795,9 @@ SUBROUTINE h5pset_meta_block_size_f(plist_id, size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_meta_block_size_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_meta_block_size_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier @@ -3807,9 +3807,9 @@ INTERFACE INTEGER FUNCTION h5pset_meta_block_size_c(plist_id, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_META_BLOCK_SIZE_C'::h5pset_meta_block_size_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_META_BLOCK_SIZE_C'::h5pset_meta_block_size_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER(HSIZE_T), INTENT(IN) :: size END FUNCTION h5pset_meta_block_size_c @@ -3844,9 +3844,9 @@ SUBROUTINE h5pget_meta_block_size_f(plist_id, size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_meta_block_size_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_meta_block_size_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier @@ -3856,9 +3856,9 @@ INTERFACE INTEGER FUNCTION h5pget_meta_block_size_c(plist_id, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_META_BLOCK_SIZE_C'::h5pget_meta_block_size_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_META_BLOCK_SIZE_C'::h5pget_meta_block_size_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER(HSIZE_T), INTENT(OUT) :: size END FUNCTION h5pget_meta_block_size_c @@ -3893,9 +3893,9 @@ SUBROUTINE h5pset_sieve_buf_size_f(plist_id, size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_sieve_buf_size_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_sieve_buf_size_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier @@ -3905,9 +3905,9 @@ INTERFACE INTEGER FUNCTION h5pset_sieve_buf_size_c(plist_id, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_SIEVE_BUF_SIZE_C'::h5pset_sieve_buf_size_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_SIEVE_BUF_SIZE_C'::h5pset_sieve_buf_size_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER(SIZE_T), INTENT(IN) :: size END FUNCTION h5pset_sieve_buf_size_c @@ -3942,9 +3942,9 @@ SUBROUTINE h5pget_sieve_buf_size_f(plist_id, size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_sieve_buf_size_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_sieve_buf_size_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier @@ -3954,9 +3954,9 @@ INTERFACE INTEGER FUNCTION h5pget_sieve_buf_size_c(plist_id, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_SIEVE_BUF_SIZE_C'::h5pget_sieve_buf_size_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_SIEVE_BUF_SIZE_C'::h5pget_sieve_buf_size_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER(SIZE_T), INTENT(OUT) :: size END FUNCTION h5pget_sieve_buf_size_c @@ -3991,9 +3991,9 @@ SUBROUTINE h5pset_small_data_block_size_f(plist_id, size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_small_data_block_size_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_small_data_block_size_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier @@ -4003,9 +4003,9 @@ INTERFACE INTEGER FUNCTION h5pset_small_data_block_size_c(plist_id, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_SMALL_DATA_BLOCK_SIZE_C'::h5pset_small_data_block_size_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_SMALL_DATA_BLOCK_SIZE_C'::h5pset_small_data_block_size_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER(HSIZE_T), INTENT(IN) :: size END FUNCTION h5pset_small_data_block_size_c @@ -4040,9 +4040,9 @@ SUBROUTINE h5pget_small_data_block_size_f(plist_id, size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_small_data_block_size_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_small_data_block_size_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier @@ -4052,9 +4052,9 @@ INTERFACE INTEGER FUNCTION h5pget_small_data_block_size_c(plist_id, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_SMALL_DATA_BLOCK_SIZE_C'::h5pget_small_data_block_size_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_SMALL_DATA_BLOCK_SIZE_C'::h5pget_small_data_block_size_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER(HSIZE_T), INTENT(OUT) :: size END FUNCTION h5pget_small_data_block_size_c @@ -4089,9 +4089,9 @@ SUBROUTINE h5pset_hyper_vector_size_f(plist_id, size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_hyper_vector_size_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_hyper_vector_size_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id ! Dataset transfer property list identifier @@ -4101,9 +4101,9 @@ INTERFACE INTEGER FUNCTION h5pset_hyper_vector_size_c(plist_id, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_HYPER_VECTOR_SIZE_C'::h5pset_hyper_vector_size_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_HYPER_VECTOR_SIZE_C'::h5pset_hyper_vector_size_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER(SIZE_T), INTENT(IN) :: size END FUNCTION h5pset_hyper_vector_size_c @@ -4138,9 +4138,9 @@ SUBROUTINE h5pget_hyper_vector_size_f(plist_id, size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_hyper_vector_size_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_hyper_vector_size_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist_id ! Dataset transfer property list identifier @@ -4150,9 +4150,9 @@ INTERFACE INTEGER FUNCTION h5pget_hyper_vector_size_c(plist_id, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_HYPER_VECTOR_SIZE_C'::h5pget_hyper_vector_size_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_HYPER_VECTOR_SIZE_C'::h5pget_hyper_vector_size_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER(SIZE_T), INTENT(OUT) :: size END FUNCTION h5pget_hyper_vector_size_c @@ -4188,9 +4188,9 @@ SUBROUTINE h5pset_integer(prp_id, name, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_integer -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_integer +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -4202,10 +4202,10 @@ INTERFACE INTEGER FUNCTION h5pset_c(prp_id, name, name_len, value) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_C'::h5pset_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_C'::h5pset_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -4244,9 +4244,9 @@ SUBROUTINE h5pset_real(prp_id, name, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_real -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_real +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -4258,10 +4258,10 @@ INTERFACE INTEGER FUNCTION h5pset_c(prp_id, name, name_len, value) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_C'::h5pset_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_C'::h5pset_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -4300,9 +4300,9 @@ SUBROUTINE h5pset_double(prp_id, name, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_double -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_double +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -4314,10 +4314,10 @@ INTERFACE INTEGER FUNCTION h5pset_c(prp_id, name, name_len, value) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_C'::h5pset_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_C'::h5pset_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -4356,9 +4356,9 @@ SUBROUTINE h5pset_char(prp_id, name, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_char -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_char +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -4371,11 +4371,11 @@ INTERFACE INTEGER FUNCTION h5psetc_c(prp_id, name, name_len, value, value_len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSETC_C'::h5psetc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name - !FooDECSATTRIBUTES reference :: value + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSETC_C'::h5psetc_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name + !DEC$ATTRIBUTES reference :: value INTEGER(HID_T), INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -4416,9 +4416,9 @@ SUBROUTINE h5pget_integer(prp_id, name, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_integer -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_integer +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -4430,10 +4430,10 @@ INTERFACE INTEGER FUNCTION h5pget_c(prp_id, name, name_len, value) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_C'::h5pget_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_C'::h5pget_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -4472,9 +4472,9 @@ SUBROUTINE h5pget_real(prp_id, name, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_real -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_real +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -4486,10 +4486,10 @@ INTERFACE INTEGER FUNCTION h5pget_c(prp_id, name, name_len, value) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_C'::h5pget_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_C'::h5pget_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -4528,9 +4528,9 @@ SUBROUTINE h5pget_double(prp_id, name, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_double -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_double +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -4542,10 +4542,10 @@ INTERFACE INTEGER FUNCTION h5pget_c(prp_id, name, name_len, value) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_C'::h5pget_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_C'::h5pget_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -4584,9 +4584,9 @@ SUBROUTINE h5pget_char(prp_id, name, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_char -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_char +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -4599,11 +4599,11 @@ INTERFACE INTEGER FUNCTION h5pgetc_c(prp_id, name, name_len, value, value_len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGETC_C'::h5pgetc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name - !FooDECSATTRIBUTES reference :: value + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGETC_C'::h5pgetc_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name + !DEC$ATTRIBUTES reference :: value INTEGER(HID_T), INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -4644,9 +4644,9 @@ SUBROUTINE h5pexist_f(prp_id, name, flag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pexist_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pexist_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -4659,10 +4659,10 @@ INTERFACE INTEGER FUNCTION h5pexist_c(prp_id, name, name_len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PEXIST_C'::h5pexist_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PEXIST_C'::h5pexist_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -4704,9 +4704,9 @@ SUBROUTINE h5pget_size_f(prp_id, name, size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_size_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_size_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -4718,10 +4718,10 @@ INTERFACE INTEGER FUNCTION h5pget_size_c(prp_id, name, name_len, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_SIZE_C'::h5pget_size_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_SIZE_C'::h5pget_size_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -4758,9 +4758,9 @@ SUBROUTINE h5pget_nprops_f(prp_id, nprops, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_nprops_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_nprops_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -4770,9 +4770,9 @@ INTERFACE INTEGER FUNCTION h5pget_nprops_c(prp_id, nprops) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_NPROPS_C'::h5pget_nprops_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_NPROPS_C'::h5pget_nprops_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER(SIZE_T), INTENT(OUT) :: nprops END FUNCTION h5pget_nprops_c @@ -4811,9 +4811,9 @@ SUBROUTINE h5pget_class_name_f(prp_id, name, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_class_name_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_class_name_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -4824,10 +4824,10 @@ INTERFACE INTEGER FUNCTION h5pget_class_name_c(prp_id, name, name_len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_CLASS_NAME_C'::h5pget_class_name_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_CLASS_NAME_C'::h5pget_class_name_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: prp_id CHARACTER(LEN=*), INTENT(INOUT) :: name INTEGER, INTENT(IN) :: name_len @@ -4864,9 +4864,9 @@ SUBROUTINE h5pget_class_parent_f(prp_id, parent_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_class_parent_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_class_parent_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -4877,9 +4877,9 @@ INTERFACE INTEGER FUNCTION h5pget_class_parent_c(prp_id, parent_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_CLASS_PARENT_C'::h5pget_class_parent_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_CLASS_PARENT_C'::h5pget_class_parent_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER(HID_T), INTENT(OUT) :: parent_id END FUNCTION h5pget_class_parent_c @@ -4915,9 +4915,9 @@ SUBROUTINE h5pisa_class_f(plist, pclass, flag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pisa_class_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pisa_class_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist ! Property list identifier @@ -4928,9 +4928,9 @@ INTERFACE INTEGER FUNCTION h5pisa_class_c(plist, pclass) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PISA_CLASS_C'::h5pisa_class_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PISA_CLASS_C'::h5pisa_class_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: plist INTEGER(HID_T), INTENT(IN) :: pclass END FUNCTION h5pisa_class_c @@ -4971,9 +4971,9 @@ SUBROUTINE h5pcopy_prop_f(dst_id, src_id, name, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pcopy_prop_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pcopy_prop_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dst_id ! Destination property list @@ -4986,10 +4986,10 @@ INTERFACE INTEGER FUNCTION h5pcopy_prop_c(dst_id, src_id, name, name_len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PCOPY_PROP_C'::h5pcopy_prop_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PCOPY_PROP_C'::h5pcopy_prop_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: dst_id INTEGER(HID_T), INTENT(IN) :: src_id CHARACTER(LEN=*), INTENT(IN) :: name @@ -5028,9 +5028,9 @@ SUBROUTINE h5premove_f(plid, name, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5premove_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5premove_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plid ! property list identifier @@ -5041,10 +5041,10 @@ INTERFACE INTEGER FUNCTION h5premove_c(plid, name, name_len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PREMOVE_C'::h5premove_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PREMOVE_C'::h5premove_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: plid CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -5082,9 +5082,9 @@ SUBROUTINE h5punregister_f(class, name, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5punregister_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5punregister_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: class ! property list class identifier @@ -5095,10 +5095,10 @@ INTERFACE INTEGER FUNCTION h5punregister_c(class, name, name_len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PUNREGISTER_C'::h5punregister_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PUNREGISTER_C'::h5punregister_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: class CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -5135,9 +5135,9 @@ SUBROUTINE h5pclose_class_f(class, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pclose_class_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pclose_class_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: class ! property list class identifier @@ -5146,9 +5146,9 @@ INTERFACE INTEGER FUNCTION h5pclose_class_c(class) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PCLOSE_CLASS_C'::h5pclose_class_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PCLOSE_CLASS_C'::h5pclose_class_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: class END FUNCTION h5pclose_class_c END INTERFACE @@ -5191,9 +5191,9 @@ SUBROUTINE h5pcreate_class_f(parent, name, class, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pcreate_class_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pcreate_class_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: parent ! parent property list class @@ -5207,10 +5207,10 @@ INTEGER FUNCTION h5pcreate_class_c(parent, name, name_len,& class) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PCREATE_CLASS_C'::h5pcreate_class_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PCREATE_CLASS_C'::h5pcreate_class_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: parent CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -5252,9 +5252,9 @@ SUBROUTINE h5pregister_integer(class, name, size, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pregister_integer -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pregister_integer +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: class ! Property list class identifier @@ -5267,10 +5267,10 @@ INTERFACE INTEGER FUNCTION h5pregister_c(class, name, name_len, size, value) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PREGISTER_C'::h5pregister_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PREGISTER_C'::h5pregister_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: class CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -5313,9 +5313,9 @@ SUBROUTINE h5pregister_real(class, name, size, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pregister_real -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pregister_real +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: class ! Property list class identifier @@ -5328,10 +5328,10 @@ INTERFACE INTEGER FUNCTION h5pregister_c(class, name, name_len, size, value) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PREGISTER_C'::h5pregister_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PREGISTER_C'::h5pregister_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: class CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -5374,9 +5374,9 @@ SUBROUTINE h5pregister_double(class, name, size, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pregister_double -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pregister_double +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: class ! Property list class identifier @@ -5389,10 +5389,10 @@ INTERFACE INTEGER FUNCTION h5pregister_c(class, name, name_len, size, value) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PREGISTER_C'::h5pregister_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PREGISTER_C'::h5pregister_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: class CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -5435,9 +5435,9 @@ SUBROUTINE h5pregister_char(class, name, size, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pregister_char -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pregister_char +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: class ! Property list class identifier @@ -5452,11 +5452,11 @@ INTEGER FUNCTION h5pregisterc_c(class, name, name_len, size, value, & value_len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PREGISTERC_C'::h5pregisterc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name - !FooDECSATTRIBUTES reference :: value + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PREGISTERC_C'::h5pregisterc_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name + !DEC$ATTRIBUTES reference :: value INTEGER(HID_T), INTENT(IN) :: class CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -5499,9 +5499,9 @@ SUBROUTINE h5pinsert_integer(plist, name, size, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pinsert_integer -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pinsert_integer +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist ! Property list identifier @@ -5514,10 +5514,10 @@ INTERFACE INTEGER FUNCTION h5pinsert_c(plist, name, name_len, size, value) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PINSERT_C'::h5pinsert_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PINSERT_C'::h5pinsert_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: plist CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -5559,9 +5559,9 @@ SUBROUTINE h5pinsert_real(plist, name, size, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pinsert_real -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pinsert_real +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist ! Property list identifier @@ -5574,10 +5574,10 @@ INTERFACE INTEGER FUNCTION h5pinsert_c(plist, name, name_len, size, value) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PINSERT_C'::h5pinsert_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PINSERT_C'::h5pinsert_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: plist CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -5619,9 +5619,9 @@ SUBROUTINE h5pinsert_double(plist, name, size, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pinsert_double -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pinsert_double +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist ! Property list identifier @@ -5634,10 +5634,10 @@ INTERFACE INTEGER FUNCTION h5pinsert_c(plist, name, name_len, size, value) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PINSERT_C'::h5pinsert_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PINSERT_C'::h5pinsert_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: plist CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -5679,9 +5679,9 @@ SUBROUTINE h5pinsert_char(plist, name, size, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pinsert_char -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pinsert_char +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist ! Property list identifier @@ -5695,11 +5695,11 @@ INTERFACE INTEGER FUNCTION h5pinsertc_c(plist, name, name_len, size, value, value_len) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PINSERTC_C'::h5pinsertc_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name - !FooDECSATTRIBUTES reference :: value + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PINSERTC_C'::h5pinsertc_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name + !DEC$ATTRIBUTES reference :: value INTEGER(HID_T), INTENT(IN) :: plist CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: name_len @@ -5740,9 +5740,9 @@ SUBROUTINE h5pset_shuffle_f(prp_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_shuffle_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_shuffle_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -5754,9 +5754,9 @@ INTERFACE INTEGER FUNCTION h5pset_shuffle_c(prp_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_SHUFFLE_C'::h5pset_shuffle_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_SHUFFLE_C'::h5pset_shuffle_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: prp_id END FUNCTION h5pset_shuffle_c END INTERFACE @@ -5793,9 +5793,9 @@ SUBROUTINE h5pset_edc_check_f(prp_id, flag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_edc_check_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_edc_check_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -5808,9 +5808,9 @@ INTERFACE INTEGER FUNCTION h5pset_edc_check_c(prp_id, flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_EDC_CHECK_C'::h5pset_edc_check_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_EDC_CHECK_C'::h5pset_edc_check_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER, INTENT(IN) :: flag END FUNCTION h5pset_edc_check_c @@ -5845,9 +5845,9 @@ SUBROUTINE h5pget_edc_check_f(prp_id, flag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_edc_check_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_edc_check_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Dataset transfer property list identifier @@ -5865,9 +5865,9 @@ INTERFACE INTEGER FUNCTION h5pget_edc_check_c(prp_id, flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_EDC_CHECK_C'::h5pget_edc_check_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_EDC_CHECK_C'::h5pget_edc_check_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER, INTENT(OUT) :: flag END FUNCTION h5pget_edc_check_c @@ -5902,9 +5902,9 @@ SUBROUTINE h5pset_fletcher32_f(prp_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_fletcher32_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fletcher32_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -5916,9 +5916,9 @@ INTERFACE INTEGER FUNCTION h5pset_fletcher32_c(prp_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FLETCHER32_C'::h5pset_fletcher32_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_FLETCHER32_C'::h5pset_fletcher32_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: prp_id END FUNCTION h5pset_fletcher32_c END INTERFACE @@ -5953,9 +5953,9 @@ SUBROUTINE h5pset_family_offset_f(prp_id, offset, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_family_offset_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_family_offset_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -5968,9 +5968,9 @@ INTERFACE INTEGER FUNCTION h5pset_family_offset_c(prp_id, offset) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FAMILY_OFFSET_C'::h5pset_family_offset_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_FAMILY_OFFSET_C'::h5pset_family_offset_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER(HSIZE_T), INTENT(IN) :: offset END FUNCTION h5pset_family_offset_c @@ -6009,9 +6009,9 @@ SUBROUTINE h5pset_fapl_multi_l(prp_id, memb_map, memb_fapl, memb_name, memb_addr, relax, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_fapl_multi_l -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fapl_multi_l +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier @@ -6034,10 +6034,10 @@ INTEGER FUNCTION h5pset_fapl_multi_c(prp_id, memb_map, memb_fapl, memb_name, lenm, & maxlen, memb_addr, flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FAPL_MULTI_C'::h5pset_fapl_multi_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: memb_name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_FAPL_MULTI_C'::h5pset_fapl_multi_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: memb_name INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier INTEGER, DIMENSION(0:H5FD_MEM_NTYPES_F-1), INTENT(IN) :: memb_map INTEGER(HID_T), DIMENSION(0:H5FD_MEM_NTYPES_F-1), INTENT(IN) :: memb_fapl @@ -6085,9 +6085,9 @@ SUBROUTINE h5pset_fapl_multi_s(prp_id, relax, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_fapl_multi_s -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fapl_multi_s +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier @@ -6101,9 +6101,9 @@ INTERFACE INTEGER FUNCTION h5pset_fapl_multi_sc(prp_id,flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_FAPL_MULTI_SC'::h5pset_fapl_multi_sc - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_FAPL_MULTI_SC'::h5pset_fapl_multi_sc + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier INTEGER, INTENT(IN) :: flag END FUNCTION h5pset_fapl_multi_sc @@ -6143,9 +6143,9 @@ SUBROUTINE h5pget_fapl_multi_f(prp_id, memb_map, memb_fapl, memb_name, memb_addr, relax, hdferr, maxlen_out) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_fapl_multi_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_fapl_multi_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier @@ -6170,10 +6170,10 @@ INTEGER FUNCTION h5pget_fapl_multi_c(prp_id, memb_map, memb_fapl, memb_name, lenm, & maxlen, memb_addr, flag, c_maxlen_out) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_FAPL_MULTI_C'::h5pget_fapl_multi_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: memb_name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_FAPL_MULTI_C'::h5pget_fapl_multi_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: memb_name INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier INTEGER, DIMENSION(H5FD_MEM_NTYPES_F), INTENT(OUT) :: memb_map INTEGER(HID_T), DIMENSION(H5FD_MEM_NTYPES_F), INTENT(OUT) :: memb_fapl @@ -6222,9 +6222,9 @@ SUBROUTINE h5pset_szip_f(prp_id, options_mask, pixels_per_block, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pset_szip_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_szip_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Dataset creation property @@ -6239,9 +6239,9 @@ INTERFACE INTEGER FUNCTION h5pset_szip_c(prp_id, options_mask, pixels_per_block) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PSET_SZIP_C'::h5pset_szip_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PSET_SZIP_C'::h5pset_szip_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier INTEGER, INTENT(IN) :: options_mask INTEGER, INTENT(IN) :: pixels_per_block @@ -6280,9 +6280,9 @@ SUBROUTINE h5pall_filters_avail_f(prp_id, flag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pall_filters_avail_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pall_filters_avail_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Dataset creation property @@ -6297,9 +6297,9 @@ INTERFACE INTEGER FUNCTION h5pall_filters_avail_c(prp_id, status) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PALL_FILTERS_AVAIL_C'::h5pall_filters_avail_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PALL_FILTERS_AVAIL_C'::h5pall_filters_avail_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier INTEGER, INTENT(OUT) :: status END FUNCTION h5pall_filters_avail_c @@ -6343,9 +6343,9 @@ SUBROUTINE h5pget_filter_by_id_f(prp_id, filter_id, flags, cd_nelmts, cd_values, namelen, name, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pget_filter_by_id_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_filter_by_id_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -6368,10 +6368,10 @@ INTEGER FUNCTION h5pget_filter_by_id_c(prp_id, filter_id, flags, cd_nelmts, & cd_values, namelen, name) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PGET_FILTER_BY_ID_C'::h5pget_filter_by_id_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PGET_FILTER_BY_ID_C'::h5pget_filter_by_id_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER, INTENT(IN) :: filter_id INTEGER, DIMENSION(*), INTENT(OUT) :: cd_values @@ -6417,9 +6417,9 @@ SUBROUTINE h5pmodify_filter_f(prp_id, filter, flags, cd_nelmts, cd_values, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5pmodify_filter_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pmodify_filter_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier @@ -6437,9 +6437,9 @@ INTERFACE INTEGER FUNCTION h5pmodify_filter_c(prp_id, filter, flags, cd_nelmts, cd_values) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5PMODIFY_FILTER_C'::h5pmodify_filter_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5PMODIFY_FILTER_C'::h5pmodify_filter_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER, INTENT(IN) :: filter INTEGER, INTENT(IN) :: flags diff --git a/fortran/src/H5Rff.f90 b/fortran/src/H5Rff.f90 index 9669372..97cebe1 100644 --- a/fortran/src/H5Rff.f90 +++ b/fortran/src/H5Rff.f90 @@ -90,9 +90,9 @@ SUBROUTINE h5rcreate_object_f(loc_id, name, ref, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5rcreate_object_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5rcreate_object_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id ! Location identifier @@ -110,10 +110,10 @@ INTERFACE INTEGER FUNCTION h5rcreate_object_c(ref_f, loc_id, name, namelen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5RCREATE_OBJECT_C':: h5rcreate_object_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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) INTEGER(HID_T), INTENT(IN) :: loc_id @@ -160,9 +160,9 @@ SUBROUTINE h5rcreate_region_f(loc_id, name, space_id, ref, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5rcreate_region_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5rcreate_region_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id ! Location identifier @@ -181,10 +181,10 @@ INTERFACE INTEGER FUNCTION h5rcreate_region_c(ref_f, loc_id, name, namelen, space_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5RCREATE_REGION_C':: h5rcreate_region_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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) INTEGER(HID_T), INTENT(IN) :: loc_id @@ -233,9 +233,9 @@ SUBROUTINE h5rdereference_object_f(dset_id, ref, obj_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5rdereference_object_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5rdereference_object_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -252,9 +252,9 @@ INTERFACE INTEGER FUNCTION h5rdereference_object_c(dset_id, ref_f, obj_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5RDEREFERENCE_OBJECT_C':: h5rdereference_object_c - !FooDECS ENDIF + !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) @@ -299,9 +299,9 @@ SUBROUTINE h5rdereference_region_f(dset_id, ref, obj_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5rdereference_region_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5rdereference_region_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -318,9 +318,9 @@ INTERFACE INTEGER FUNCTION h5rdereference_region_c(dset_id, ref_f, obj_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5RDEREFERENCE_REGION_C':: h5rdereference_region_c - !FooDECS ENDIF + !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) @@ -367,9 +367,9 @@ SUBROUTINE h5rget_region_region_f(dset_id, ref, space_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5rget_region_region_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5rget_region_region_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -384,9 +384,9 @@ INTERFACE INTEGER FUNCTION h5rget_region_region_c(dset_id, ref_f, space_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5RGET_REGION_REGION_C':: h5rget_region_region_c - !FooDECS ENDIF + !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) @@ -437,9 +437,9 @@ SUBROUTINE h5rget_object_type_obj_f(dset_id, ref, obj_type, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5rget_object_type_obj_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5rget_object_type_obj_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier @@ -460,9 +460,9 @@ INTERFACE INTEGER FUNCTION h5rget_object_type_obj_c(dset_id, ref_f, obj_type) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5RGET_OBJECT_TYPE_OBJ_C':: h5rget_object_type_obj_c - !FooDECS ENDIF + !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 f99a809..1657b39 100644 --- a/fortran/src/H5Sff.f90 +++ b/fortran/src/H5Sff.f90 @@ -49,9 +49,9 @@ SUBROUTINE h5screate_simple_f(rank, dims, space_id, hdferr, maxdims) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5screate_simple_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5screate_simple_f +!DEC$endif ! IMPLICIT NONE @@ -72,9 +72,9 @@ INTERFACE INTEGER FUNCTION h5screate_simple_c(rank, dims, maxdims, space_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SCREATE_SIMPLE_C'::h5screate_simple_c - !FooDECS ENDIF + !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) @@ -124,9 +124,9 @@ SUBROUTINE h5sclose_f(space_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sclose_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sclose_f +!DEC$endif ! IMPLICIT NONE @@ -139,9 +139,9 @@ INTERFACE INTEGER FUNCTION h5sclose_c(space_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SCLOSE_C'::h5sclose_c - !FooDECS ENDIF + !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 @@ -178,9 +178,9 @@ SUBROUTINE h5screate_f(classtype, space_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5screate_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5screate_f +!DEC$endif ! IMPLICIT NONE @@ -198,9 +198,9 @@ INTERFACE INTEGER FUNCTION h5screate_c(classtype, space_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SCREATE_C'::h5screate_c - !FooDECS ENDIF + !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 @@ -238,9 +238,9 @@ SUBROUTINE h5scopy_f(space_id, new_space_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5scopy_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5scopy_f +!DEC$endif ! IMPLICIT NONE @@ -255,9 +255,9 @@ INTERFACE INTEGER FUNCTION h5scopy_c(space_id, new_space_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SCOPY_C'::h5scopy_c - !FooDECS ENDIF + !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 @@ -295,9 +295,9 @@ SUBROUTINE h5sget_select_hyper_nblocks_f(space_id, num_blocks, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sget_select_hyper_nblocks_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sget_select_hyper_nblocks_f +!DEC$endif ! IMPLICIT NONE @@ -314,9 +314,9 @@ INTERFACE INTEGER FUNCTION h5sget_select_hyper_nblocks_c (space_id, num_blocks) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) -!FooMSSATTRIBUTES C,reference,alias:'_H5SGET_SELECT_HYPER_NBLOCKS_C'::h5sget_select_hyper_nblocks_c - !FooDECS ENDIF + !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 @@ -357,9 +357,9 @@ num_blocks, buf, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sget_select_hyper_blocklist_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sget_select_hyper_blocklist_f +!DEC$endif ! IMPLICIT NONE @@ -382,9 +382,9 @@ INTEGER FUNCTION h5sget_select_hyper_blocklist_c(space_id, startblock, & num_blocks, buf ) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SGET_SELECT_HYPER_BLOCKLIST_C'::h5sget_select_hyper_blocklist_c - !FooDECS ENDIF + !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), INTENT(IN) :: startblock INTEGER(HSIZE_T), INTENT(IN) :: num_blocks @@ -428,9 +428,9 @@ SUBROUTINE h5sget_select_bounds_f(space_id, start, end, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sget_select_bounds_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sget_select_bounds_f +!DEC$endif ! IMPLICIT NONE @@ -449,9 +449,9 @@ INTERFACE INTEGER FUNCTION h5sget_select_bounds_c(space_id, start, end) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) -!FooMSSATTRIBUTES C,reference,alias:'_H5SGET_SELECT_BOUNDS_C'::h5sget_select_bounds_c - !FooDECS ENDIF + !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(HSSIZE_T), DIMENSION(*), INTENT(OUT) :: start INTEGER(HSSIZE_T), DIMENSION(*), INTENT(OUT) :: end @@ -490,9 +490,9 @@ SUBROUTINE h5sget_select_elem_npoints_f(space_id, num_points, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sget_select_elem_npoints_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sget_select_elem_npoints_f +!DEC$endif ! IMPLICIT NONE @@ -509,9 +509,9 @@ INTERFACE INTEGER FUNCTION h5sget_select_elem_npoints_c (space_id, num_points) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) -!FooMSSATTRIBUTES C,reference,alias:'_H5SGET_SELECT_ELEM_NPOINTS_C'::h5sget_select_elem_npoints_c - !FooDECS ENDIF + !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 @@ -552,9 +552,9 @@ num_points, buf, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sget_select_elem_pointlist_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sget_select_elem_pointlist_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier @@ -573,9 +573,9 @@ INTEGER FUNCTION h5sget_select_elem_pointlist_c(space_id, startpoint, & num_points, buf ) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) -!FooMSSATTRIBUTES C,reference,alias:'_H5SGET_SELECT_ELEM_POINTLIST_C'::h5sget_select_elem_pointlist_c - !FooDECS ENDIF + !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), INTENT(IN) :: startpoint INTEGER(HSIZE_T), INTENT(IN) :: num_points @@ -622,9 +622,9 @@ num_elements, coord, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sselect_elements_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sselect_elements_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier @@ -650,9 +650,9 @@ INTEGER FUNCTION h5sselect_elements_c(space_id, operator,& num_elements,c_c_coord) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SSELECT_ELEMENTS_C'::h5sselect_elements_c - !FooDECS ENDIF + !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 @@ -702,9 +702,9 @@ SUBROUTINE h5sselect_all_f(space_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sselect_all_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sselect_all_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier @@ -716,9 +716,9 @@ INTERFACE INTEGER FUNCTION h5sselect_all_c(space_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SSELECT_ALL_C'::h5sselect_all_c - !FooDECS ENDIF + !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 @@ -755,9 +755,9 @@ SUBROUTINE h5sselect_none_f(space_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sselect_none_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sselect_none_f +!DEC$endif ! IMPLICIT NONE @@ -770,9 +770,9 @@ INTERFACE INTEGER FUNCTION h5sselect_none_c(space_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SSELECT_NONE_C'::h5sselect_none_c - !FooDECS ENDIF + !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 @@ -809,9 +809,9 @@ SUBROUTINE h5sselect_valid_f(space_id, status, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sselect_valid_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sselect_valid_f +!DEC$endif ! IMPLICIT NONE @@ -828,9 +828,9 @@ INTERFACE INTEGER FUNCTION h5sselect_valid_c(space_id, flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SSELECT_VALID_C'::h5sselect_valid_c - !FooDECS ENDIF + !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 @@ -870,9 +870,9 @@ SUBROUTINE h5sget_simple_extent_npoints_f(space_id, npoints, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sget_simple_extent_npoints_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sget_simple_extent_npoints_f +!DEC$endif ! IMPLICIT NONE @@ -887,9 +887,9 @@ INTERFACE INTEGER FUNCTION h5sget_simple_extent_npoints_c( space_id, npoints) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SGET_SIMPLE_EXTENT_NPOINTS_C'::h5sget_simple_extent_npoints_c - !FooDECS ENDIF + !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 @@ -927,9 +927,9 @@ SUBROUTINE h5sget_select_npoints_f(space_id, npoints, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sget_select_npoints_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sget_select_npoints_f +!DEC$endif ! IMPLICIT NONE @@ -944,9 +944,9 @@ INTERFACE INTEGER FUNCTION h5sget_select_npoints_c(space_id, npoints) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SGET_SELECT_NPOINTS_C'::h5sget_select_npoints_c - !FooDECS ENDIF + !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 @@ -984,9 +984,9 @@ SUBROUTINE h5sget_simple_extent_ndims_f(space_id, rank, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sget_simple_extent_ndims_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sget_simple_extent_ndims_f +!DEC$endif ! IMPLICIT NONE @@ -1000,9 +1000,9 @@ INTERFACE INTEGER FUNCTION h5sget_simple_extent_ndims_c(space_id, rank) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SGET_SIMPLE_EXTENT_NDIMS_C'::h5sget_simple_extent_ndims_c - !FooDECS ENDIF + !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 @@ -1042,9 +1042,9 @@ SUBROUTINE h5sget_simple_extent_dims_f(space_id, dims, maxdims, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sget_simple_extent_dims_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sget_simple_extent_dims_f +!DEC$endif ! IMPLICIT NONE @@ -1064,9 +1064,9 @@ INTERFACE INTEGER FUNCTION h5sget_simple_extent_dims_c(space_id, dims, maxdims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SGET_SIMPLE_EXTENT_DIMS_C'::h5sget_simple_extent_dims_c - !FooDECS ENDIF + !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 @@ -1108,9 +1108,9 @@ SUBROUTINE h5sget_simple_extent_type_f(space_id, classtype, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sget_simple_extent_type_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sget_simple_extent_type_f +!DEC$endif ! IMPLICIT NONE @@ -1128,9 +1128,9 @@ INTERFACE INTEGER FUNCTION h5sget_simple_extent_type_c(space_id, classtype) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SGET_SIMPLE_EXTENT_TYPE_C'::h5sget_simple_extent_type_c - !FooDECS ENDIF + !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 @@ -1172,9 +1172,9 @@ maximum_size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sset_extent_simple_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sset_extent_simple_f +!DEC$endif ! IMPLICIT NONE @@ -1196,9 +1196,9 @@ INTEGER FUNCTION h5sset_extent_simple_c(space_id, rank, & current_size, maximum_size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SSET_EXTENT_SIMPLE_C'::h5sset_extent_simple_c - !FooDECS ENDIF + !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 @@ -1240,9 +1240,9 @@ SUBROUTINE h5sis_simple_f(space_id, status, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sis_simple_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sis_simple_f +!DEC$endif ! IMPLICIT NONE @@ -1259,9 +1259,9 @@ INTERFACE INTEGER FUNCTION h5sis_simple_c(space_id, flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SIS_SIMPLE_C'::h5sis_simple_c - !FooDECS ENDIF + !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 @@ -1301,9 +1301,9 @@ SUBROUTINE h5soffset_simple_f(space_id, offset, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5soffset_simple_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5soffset_simple_f +!DEC$endif ! IMPLICIT NONE @@ -1319,9 +1319,9 @@ INTERFACE INTEGER FUNCTION h5soffset_simple_c(space_id, offset) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SOFFSET_SIMPLE_C'::h5soffset_simple_c - !FooDECS ENDIF + !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 @@ -1361,9 +1361,9 @@ SUBROUTINE h5sextent_copy_f(dest_space_id, source_space_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sextent_copy_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sextent_copy_f +!DEC$endif ! IMPLICIT NONE @@ -1379,9 +1379,9 @@ INTERFACE INTEGER FUNCTION h5sextent_copy_c(dest_space_id, source_space_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SEXTENT_COPY_C'::h5sextent_copy_c - !FooDECS ENDIF + !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 @@ -1417,9 +1417,9 @@ SUBROUTINE h5sset_extent_none_f(space_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sset_extent_none_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sset_extent_none_f +!DEC$endif ! IMPLICIT NONE @@ -1432,9 +1432,9 @@ INTERFACE INTEGER FUNCTION h5sset_extent_none_c(space_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SSET_EXTENT_NONE_C'::h5sset_extent_none_c - !FooDECS ENDIF + !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 @@ -1479,9 +1479,9 @@ hdferr, stride, block) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sselect_hyperslab_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sselect_hyperslab_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier @@ -1512,9 +1512,9 @@ INTEGER FUNCTION h5sselect_hyperslab_c(space_id, operator, & start, count, stride, block) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SSELECT_HYPERSLAB_C'::h5sselect_hyperslab_c - !FooDECS ENDIF + !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 @@ -1618,9 +1618,9 @@ ! hyper_id, hdferr, stride, block) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5scombine_hyperslab_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5scombine_hyperslab_f +!DEC$endif ! ! IMPLICIT NONE ! INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier @@ -1656,9 +1656,9 @@ ! INTEGER FUNCTION h5scombine_hyperslab_c(space_id, operator, & ! start, count, stride, block, hyper_id) ! USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SCOMBINE_HYPERSLAB_C'::h5scombine_hyperslab_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5SCOMBINE_HYPERSLAB_C'::h5scombine_hyperslab_c + !DEC$ ENDIF ! INTEGER(HID_T), INTENT(IN) :: space_id ! INTEGER, INTENT(IN) :: operator ! INTEGER(HSSIZE_T), DIMENSION(*), INTENT(IN) :: start @@ -1760,9 +1760,9 @@ ! ds_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5scombine_select_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5scombine_select_f +!DEC$endif ! ! IMPLICIT NONE ! INTEGER(HID_T), INTENT(IN) :: space1_id ! First dataspace identifier @@ -1785,9 +1785,9 @@ ! INTEGER FUNCTION h5scombine_select_c(space1_id, operator, & ! space2_id, ds_id) ! USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SCOMBINE_SELECT_C'::h5scombine_select_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5SCOMBINE_SELECT_C'::h5scombine_select_c + !DEC$ ENDIF ! INTEGER(HID_T), INTENT(IN) :: space1_id ! INTEGER(HID_T), INTENT(IN) :: space2_id ! INTEGER, INTENT(IN) :: operator @@ -1839,9 +1839,9 @@ ! hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sselect_select_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sselect_select_f +!DEC$endif ! ! IMPLICIT NONE ! INTEGER(HID_T), INTENT(INOUT) :: space1_id ! Dataspace identifier to @@ -1864,9 +1864,9 @@ ! INTEGER FUNCTION h5sselect_select_c(space1_id, operator, & ! space2_id) ! USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SSELECT_SELECT_C'::h5sselect_select_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5SSELECT_SELECT_C'::h5sselect_select_c + !DEC$ ENDIF ! INTEGER(HID_T), INTENT(INOUT) :: space1_id ! INTEGER(HID_T), INTENT(IN) :: space2_id ! INTEGER, INTENT(IN) :: operator @@ -1908,9 +1908,9 @@ SUBROUTINE h5sget_select_type_f(space_id, type, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5sget_select_type_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5sget_select_type_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(INOUT) :: space_id ! Dataspace identifier to @@ -1925,9 +1925,9 @@ INTERFACE INTEGER FUNCTION h5sget_select_type_c(space_id, type) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5SGET_SELECT_TYPE_C'::h5sget_select_type_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5SGET_SELECT_TYPE_C'::h5sget_select_type_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: space_id INTEGER, INTENT(OUT) :: type END FUNCTION h5sget_select_type_c diff --git a/fortran/src/H5Tff.f90 b/fortran/src/H5Tff.f90 index d509c6d..336372d 100644 --- a/fortran/src/H5Tff.f90 +++ b/fortran/src/H5Tff.f90 @@ -50,9 +50,9 @@ SUBROUTINE h5topen_f(loc_id, name, type_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5topen_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5topen_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier @@ -68,10 +68,10 @@ INTERFACE INTEGER FUNCTION h5topen_c(loc_id, name, namelen, type_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TOPEN_C'::h5topen_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference ::name + !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 INTEGER :: namelen @@ -114,9 +114,9 @@ SUBROUTINE h5tcommit_f(loc_id, name, type_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tcommit_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tcommit_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier @@ -132,10 +132,10 @@ INTERFACE INTEGER FUNCTION h5tcommit_c(loc_id, name, namelen, type_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TCOMMIT_C'::h5tcommit_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference ::name + !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 INTEGER :: namelen @@ -176,9 +176,9 @@ SUBROUTINE h5tcopy_f(type_id, new_type_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tcopy_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tcopy_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -192,9 +192,9 @@ INTERFACE INTEGER FUNCTION h5tcopy_c(type_id, new_type_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TCOPY_C'::h5tcopy_c - !FooDECS ENDIF + !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 @@ -234,9 +234,9 @@ SUBROUTINE h5tequal_f(type1_id, type2_id, flag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tequal_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tequal_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type1_id ! Datatype identifier @@ -251,9 +251,9 @@ INTERFACE INTEGER FUNCTION h5tequal_c(type1_id, type2_id, c_flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TEQUAL_C'::h5tequal_c - !FooDECS ENDIF + !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 @@ -293,9 +293,9 @@ SUBROUTINE h5tclose_f(type_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tclose_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tclose_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -307,9 +307,9 @@ INTERFACE INTEGER FUNCTION h5tclose_c(type_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TCLOSE_C'::h5tclose_c - !FooDECS ENDIF + !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 @@ -356,9 +356,9 @@ SUBROUTINE h5tget_class_f(type_id, class, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_class_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_class_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -382,9 +382,9 @@ INTERFACE INTEGER FUNCTION h5tget_class_c(type_id, class) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_CLASS_C'::h5tget_class_c - !FooDECS ENDIF + !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 @@ -422,9 +422,9 @@ SUBROUTINE h5tget_size_f(type_id, size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_size_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_size_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -437,9 +437,9 @@ INTERFACE INTEGER FUNCTION h5tget_size_c(type_id, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_SIZE_C'::h5tget_size_c - !FooDECS ENDIF + !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 @@ -477,9 +477,9 @@ SUBROUTINE h5tset_size_f(type_id, size, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tset_size_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tset_size_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -492,9 +492,9 @@ INTERFACE INTEGER FUNCTION h5tset_size_c(type_id, size) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TSET_SIZE_C'::h5tset_size_c - !FooDECS ENDIF + !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 @@ -536,9 +536,9 @@ SUBROUTINE h5tget_order_f(type_id, order, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_order_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_order_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -555,9 +555,9 @@ INTERFACE INTEGER FUNCTION h5tget_order_c(type_id, order) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_ORDER_C'::h5tget_order_c - !FooDECS ENDIF + !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 @@ -599,9 +599,9 @@ SUBROUTINE h5tset_order_f(type_id, order, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tset_order_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tset_order_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -618,9 +618,9 @@ INTERFACE INTEGER FUNCTION h5tset_order_c(type_id, order) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TSET_ORDER_C'::h5tset_order_c - !FooDECS ENDIF + !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 @@ -658,9 +658,9 @@ SUBROUTINE h5tget_precision_f(type_id, precision, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_precision_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_precision_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -673,9 +673,9 @@ INTERFACE INTEGER FUNCTION h5tget_precision_c (type_id, precision) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_PRECISION_C'::h5tget_precision_c - !FooDECS ENDIF + !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 @@ -712,9 +712,9 @@ SUBROUTINE h5tset_precision_f(type_id, precision, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tset_precision_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tset_precision_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -727,9 +727,9 @@ INTERFACE INTEGER FUNCTION h5tset_precision_c (type_id, precision) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TSET_PRECISION_C'::h5tset_precision_c - !FooDECS ENDIF + !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 @@ -766,9 +766,9 @@ SUBROUTINE h5tget_offset_f(type_id, offset, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_offset_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_offset_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -782,9 +782,9 @@ INTERFACE INTEGER FUNCTION h5tget_offset_c(type_id, offset) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_OFFSET_C'::h5tget_offset_c - !FooDECS ENDIF + !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 @@ -821,9 +821,9 @@ SUBROUTINE h5tset_offset_f(type_id, offset, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tset_offset_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tset_offset_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -837,9 +837,9 @@ INTERFACE INTEGER FUNCTION h5tset_offset_c(type_id, offset) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TSET_OFFSET_C'::h5tset_offset_c - !FooDECS ENDIF + !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 @@ -884,9 +884,9 @@ SUBROUTINE h5tget_pad_f(type_id, lsbpad, msbpad, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_pad_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_pad_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -909,9 +909,9 @@ INTERFACE INTEGER FUNCTION h5tget_pad_c(type_id, lsbpad, msbpad) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_PAD_C'::h5tget_pad_c - !FooDECS ENDIF + !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 @@ -956,9 +956,9 @@ SUBROUTINE h5tset_pad_f(type_id, lsbpad, msbpad, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tset_pad_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tset_pad_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -981,9 +981,9 @@ INTEGER FUNCTION h5tset_pad_c(type_id, lsbpad, msbpad) USE H5GLOBAL INTEGER(HID_T), INTENT(IN) :: type_id - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TSET_PAD_C'::h5tset_pad_c - !FooDECS ENDIF + !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 @@ -1025,9 +1025,9 @@ SUBROUTINE h5tget_sign_f(type_id, sign, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_sign_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_sign_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1045,9 +1045,9 @@ INTERFACE INTEGER FUNCTION h5tget_sign_c(type_id, sign) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_SIGN_C'::h5tget_sign_c - !FooDECS ENDIF + !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 @@ -1089,9 +1089,9 @@ SUBROUTINE h5tset_sign_f(type_id, sign, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tset_sign_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tset_sign_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1109,9 +1109,9 @@ INTERFACE INTEGER FUNCTION h5tset_sign_c(type_id, sign) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TSET_SIGN_C'::h5tset_sign_c - !FooDECS ENDIF + !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 @@ -1151,9 +1151,9 @@ SUBROUTINE h5tget_fields_f(type_id, epos, esize, mpos, msize, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_fields_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_fields_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1169,9 +1169,9 @@ INTERFACE INTEGER FUNCTION h5tget_fields_c(type_id, epos, esize, mpos, msize) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_FIELDS_C'::h5tget_fields_c - !FooDECS ENDIF + !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 @@ -1215,9 +1215,9 @@ SUBROUTINE h5tset_fields_f(type_id, epos, esize, mpos, msize, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tset_fields_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tset_fields_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1233,9 +1233,9 @@ INTERFACE INTEGER FUNCTION h5tset_fields_c(type_id, epos, esize, mpos, msize) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TSET_FIELDS_C'::h5tset_fields_c - !FooDECS ENDIF + !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 @@ -1275,9 +1275,9 @@ SUBROUTINE h5tget_ebias_f(type_id, ebias, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_ebias_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_ebias_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1290,9 +1290,9 @@ INTERFACE INTEGER FUNCTION h5tget_ebias_c(type_id, ebias) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_EBIAS_C'::h5tget_ebias_c - !FooDECS ENDIF + !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 @@ -1330,9 +1330,9 @@ SUBROUTINE h5tset_ebias_f(type_id, ebias, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tset_ebias_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tset_ebias_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1345,9 +1345,9 @@ INTERFACE INTEGER FUNCTION h5tset_ebias_c(type_id, ebias) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TSET_EBIAS_C'::h5tset_ebias_c - !FooDECS ENDIF + !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 @@ -1388,9 +1388,9 @@ SUBROUTINE h5tget_norm_f(type_id, norm, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_norm_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_norm_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1408,9 +1408,9 @@ INTERFACE INTEGER FUNCTION h5tget_norm_c(type_id, norm) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_NORM_C'::h5tget_norm_c - !FooDECS ENDIF + !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 @@ -1451,9 +1451,9 @@ SUBROUTINE h5tset_norm_f(type_id, norm, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tset_norm_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tset_norm_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1471,9 +1471,9 @@ INTERFACE INTEGER FUNCTION h5tset_norm_c(type_id, norm) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TSET_NORM_C'::h5tset_norm_c - !FooDECS ENDIF + !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 @@ -1515,9 +1515,9 @@ SUBROUTINE h5tget_inpad_f(type_id, padtype, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_inpad_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_inpad_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1536,9 +1536,9 @@ INTERFACE INTEGER FUNCTION h5tget_inpad_c(type_id, padtype) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_INPAD_C'::h5tget_inpad_c - !FooDECS ENDIF + !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 @@ -1579,9 +1579,9 @@ SUBROUTINE h5tset_inpad_f(type_id, padtype, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tset_inpad_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tset_inpad_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1599,9 +1599,9 @@ INTERFACE INTEGER FUNCTION h5tset_inpad_c(type_id, padtype) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TSET_INPAD_C'::h5tset_inpad_c - !FooDECS ENDIF + !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 @@ -1640,9 +1640,9 @@ SUBROUTINE h5tget_cset_f(type_id, cset, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_cset_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_cset_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1657,9 +1657,9 @@ INTERFACE INTEGER FUNCTION h5tget_cset_c(type_id, cset) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_CSET_C'::h5tget_cset_c - !FooDECS ENDIF + !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 @@ -1698,9 +1698,9 @@ SUBROUTINE h5tset_cset_f(type_id, cset, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tset_cset_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tset_cset_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1715,9 +1715,9 @@ INTERFACE INTEGER FUNCTION h5tset_cset_c(type_id, cset) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TSET_CSET_C'::h5tset_cset_c - !FooDECS ENDIF + !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 @@ -1759,9 +1759,9 @@ SUBROUTINE h5tget_strpad_f(type_id, strpad, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_strpad_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_strpad_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1774,9 +1774,9 @@ INTERFACE INTEGER FUNCTION h5tget_strpad_c(type_id, strpad) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_STRPAD_C'::h5tget_strpad_c - !FooDECS ENDIF + !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 @@ -1818,9 +1818,9 @@ SUBROUTINE h5tset_strpad_f(type_id, strpad, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tset_strpad_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tset_strpad_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1833,9 +1833,9 @@ INTERFACE INTEGER FUNCTION h5tset_strpad_c(type_id, strpad) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TSET_STRPAD_C'::h5tset_strpad_c - !FooDECS ENDIF + !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 @@ -1873,9 +1873,9 @@ SUBROUTINE h5tget_nmembers_f(type_id, num_members, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_nmembers_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_nmembers_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1888,9 +1888,9 @@ INTERFACE INTEGER FUNCTION h5tget_nmembers_c(type_id, num_members) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_NMEMBERS_C'::h5tget_nmembers_c - !FooDECS ENDIF + !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 @@ -1929,9 +1929,9 @@ SUBROUTINE h5tget_member_name_f(type_id, index, member_name, namelen, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_member_name_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_member_name_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -1947,10 +1947,10 @@ INTERFACE INTEGER FUNCTION h5tget_member_name_c(type_id, index, member_name, namelen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_MEMBER_NAME_C'::h5tget_member_name_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: member_name + !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 CHARACTER(LEN=*), INTENT(OUT) :: member_name @@ -1990,9 +1990,9 @@ SUBROUTINE h5tget_member_offset_f(type_id, member_no, offset, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_member_offset_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_member_offset_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -2007,9 +2007,9 @@ INTERFACE INTEGER FUNCTION h5tget_member_offset_c(type_id, member_no, offset ) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_MEMBER_OFFSET_C'::h5tget_member_offset_c - !FooDECS ENDIF + !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 @@ -2046,9 +2046,9 @@ SUBROUTINE h5tget_member_index_f(type_id, name, index, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_member_index_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_member_index_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -2060,10 +2060,10 @@ INTERFACE INTEGER FUNCTION h5tget_member_index_c(type_id, name, namelen, index) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_MEMBER_INDEX_C'::h5tget_member_index_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference ::name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5TGET_MEMBER_INDEX_C'::h5tget_member_index_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference ::name INTEGER(HID_T), INTENT(IN) :: type_id CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: namelen @@ -2102,9 +2102,9 @@ ! SUBROUTINE h5tget_member_dims_f(type_id, field_idx,dims, field_dims, perm, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_member_dims_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_member_dims_f +!DEC$endif ! ! IMPLICIT NONE ! INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -2151,9 +2151,9 @@ SUBROUTINE h5tget_array_dims_f(type_id, dims, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_array_dims_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_array_dims_f +!DEC$endif ! IMPLICIT NONE @@ -2168,9 +2168,9 @@ INTERFACE INTEGER FUNCTION h5tget_array_dims_c(type_id, dims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_ARRAY_DIMS_C'::h5tget_array_dims_c - !FooDECS ENDIF + !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 @@ -2208,9 +2208,9 @@ SUBROUTINE h5tget_array_ndims_f(type_id, ndims, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_array_ndims_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_array_ndims_f +!DEC$endif ! IMPLICIT NONE @@ -2224,9 +2224,9 @@ INTERFACE INTEGER FUNCTION h5tget_array_ndims_c(type_id, ndims) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_ARRAY_NDIMS_C'::h5tget_array_ndims_c - !FooDECS ENDIF + !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 @@ -2264,9 +2264,9 @@ SUBROUTINE h5tget_super_f(type_id, base_type_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_super_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_super_f +!DEC$endif ! IMPLICIT NONE @@ -2281,9 +2281,9 @@ INTERFACE INTEGER FUNCTION h5tget_super_c(type_id, base_type_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_SUPER_C'::h5tget_super_c - !FooDECS ENDIF + !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 @@ -2323,9 +2323,9 @@ SUBROUTINE h5tget_member_type_f(type_id, field_idx, datatype, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_member_type_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_member_type_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -2340,9 +2340,9 @@ INTERFACE INTEGER FUNCTION h5tget_member_type_c(type_id, field_idx , datatype) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_MEMBER_TYPE_C'::h5tget_member_type_c - !FooDECS ENDIF + !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 @@ -2385,9 +2385,9 @@ SUBROUTINE h5tcreate_f(class, size, type_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tcreate_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tcreate_f +!DEC$endif ! IMPLICIT NONE INTEGER, INTENT(IN) :: class ! Datatype class can be one of @@ -2404,9 +2404,9 @@ INTERFACE INTEGER FUNCTION h5tcreate_c(class, size, type_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TCREATE_C'::h5tcreate_c - !FooDECS ENDIF + !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 @@ -2447,9 +2447,9 @@ SUBROUTINE h5tinsert_f(type_id, name, offset, field_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tinsert_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tinsert_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -2467,10 +2467,10 @@ INTERFACE INTEGER FUNCTION h5tinsert_c(type_id, name, namelen, offset, field_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TINSERT_C'::h5tinsert_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER(SIZE_T), INTENT(IN) :: offset @@ -2510,9 +2510,9 @@ SUBROUTINE h5tpack_f(type_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tpack_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tpack_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -2524,9 +2524,9 @@ INTERFACE INTEGER FUNCTION h5tpack_c(type_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TPACK_C'::h5tpack_c - !FooDECS ENDIF + !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 @@ -2560,9 +2560,9 @@ ! SUBROUTINE h5tinsert_array_f(parent_id,name,offset, ndims, dims, member_id, hdferr, perm) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tinsert_array_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tinsert_array_f +!DEC$endif ! ! IMPLICIT NONE ! INTEGER(HID_T), INTENT(IN) :: parent_id ! identifier of the parent compound datatype @@ -2620,9 +2620,9 @@ SUBROUTINE h5tarray_create_f(base_id, rank, dims, type_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tarray_create_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tarray_create_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: base_id ! identifier of array base datatype @@ -2638,9 +2638,9 @@ INTERFACE INTEGER FUNCTION h5tarray_create_c(base_id, rank, dims, type_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TARRAY_CREATE_C'::h5tarray_create_c - !FooDECS ENDIF + !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 @@ -2681,9 +2681,9 @@ SUBROUTINE h5tenum_create_f(parent_id, new_type_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tenum_create_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tenum_create_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: parent_id ! Datatype identifier for @@ -2699,9 +2699,9 @@ INTERFACE INTEGER FUNCTION h5tenum_create_c(parent_id, new_type_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TENUM_CREATE_C'::h5tenum_create_c - !FooDECS ENDIF + !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 @@ -2737,9 +2737,9 @@ SUBROUTINE h5tenum_insert_f(type_id, name, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tenum_insert_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tenum_insert_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -2754,10 +2754,10 @@ INTERFACE INTEGER FUNCTION h5tenum_insert_c(type_id, name, namelen, value) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TENUM_INSERT_C'::h5tenum_insert_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER, INTENT(IN) :: value @@ -2800,9 +2800,9 @@ SUBROUTINE h5tenum_nameof_f(type_id, value, namelen, name, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tenum_nameof_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tenum_nameof_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -2817,10 +2817,10 @@ INTERFACE INTEGER FUNCTION h5tenum_nameof_c(type_id, value, name, namelen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TENUM_NAMEOF_C'::h5tenum_nameof_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER(SIZE_T), INTENT(IN) :: namelen @@ -2861,9 +2861,9 @@ SUBROUTINE h5tenum_valueof_f(type_id, name, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tenum_valueof_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tenum_valueof_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -2878,10 +2878,10 @@ INTERFACE INTEGER FUNCTION h5tenum_valueof_c(type_id, name, namelen, value) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TENUM_VALUEOF_C'::h5tenum_valueof_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !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 INTEGER, INTENT(IN) :: namelen @@ -2922,9 +2922,9 @@ SUBROUTINE h5tget_member_value_f(type_id, member_no, value, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_member_value_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_member_value_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -2938,9 +2938,9 @@ INTERFACE INTEGER FUNCTION h5tget_member_value_c(type_id, member_no, value) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_MEMBER_VALUE_C'::h5tget_member_value_c - !FooDECS ENDIF + !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 @@ -2979,9 +2979,9 @@ SUBROUTINE h5tset_tag_f(type_id, tag, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tset_tag_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tset_tag_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -2996,10 +2996,10 @@ INTERFACE INTEGER FUNCTION h5tset_tag_c(type_id, tag, namelen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TSET_TAG_C'::h5tset_tag_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: tag + !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 INTEGER :: taglen @@ -3039,9 +3039,9 @@ SUBROUTINE h5tget_tag_f(type_id, tag,taglen, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tget_tag_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tget_tag_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -3056,10 +3056,10 @@ INTERFACE INTEGER FUNCTION h5tget_tag_c(type_id, tag, taglen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TGET_TAG_C'::h5tget_tag_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: tag + !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 INTEGER, INTENT(OUT) :: taglen @@ -3095,9 +3095,9 @@ SUBROUTINE h5tvlen_create_f(type_id, vltype_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tvlen_create_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tvlen_create_f +!DEC$endif ! IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier @@ -3107,9 +3107,9 @@ INTERFACE INTEGER FUNCTION h5tvlen_create_c(type_id, vltype_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TVLEN_CREATE_C'::h5tvlen_create_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5TVLEN_CREATE_C'::h5tvlen_create_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: type_id INTEGER(HID_T), INTENT(OUT) :: vltype_id END FUNCTION h5tvlen_create_c @@ -3145,9 +3145,9 @@ SUBROUTINE h5tis_variable_str_f(type_id, status, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5tis_variable_str_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5tis_variable_str_f +!DEC$endif ! IMPLICIT NONE @@ -3164,9 +3164,9 @@ INTERFACE INTEGER FUNCTION h5tis_variable_str_c(type_id, flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5TIS_VARIABLE_STR_C'::h5tis_variable_str_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5TIS_VARIABLE_STR_C'::h5tis_variable_str_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: type_id INTEGER :: flag END FUNCTION h5tis_variable_str_c diff --git a/fortran/src/H5Zff.f90 b/fortran/src/H5Zff.f90 index f7b4232..839ab6f 100644 --- a/fortran/src/H5Zff.f90 +++ b/fortran/src/H5Zff.f90 @@ -47,9 +47,9 @@ SUBROUTINE h5zunregister_f(filter, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5zunregister_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5zunregister_f +!DEC$endif ! IMPLICIT NONE INTEGER, INTENT(IN) :: filter @@ -61,9 +61,9 @@ INTERFACE INTEGER FUNCTION h5zunregister_c (filter) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5ZUNREGISTER_C':: h5zunregister_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5ZUNREGISTER_C':: h5zunregister_c + !DEC$ ENDIF INTEGER, INTENT(IN) :: filter END FUNCTION h5zunregister_c END INTERFACE @@ -94,9 +94,9 @@ SUBROUTINE h5zfilter_avail_f(filter, status, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5zfilter_avail_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5zfilter_avail_f +!DEC$endif ! IMPLICIT NONE @@ -116,9 +116,9 @@ INTERFACE INTEGER FUNCTION h5zfilter_avail_c(filter, flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5ZFILTER_AVAIL_C'::h5zfilter_avail_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5ZFILTER_AVAIL_C'::h5zfilter_avail_c + !DEC$ ENDIF INTEGER, INTENT(IN) :: filter INTEGER :: flag END FUNCTION h5zfilter_avail_c diff --git a/fortran/src/H5_ff.f90 b/fortran/src/H5_ff.f90 index 237d974..6b0db93 100644 --- a/fortran/src/H5_ff.f90 +++ b/fortran/src/H5_ff.f90 @@ -39,9 +39,9 @@ SUBROUTINE h5open_f(error) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5open_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5open_f +!DEC$endif ! USE H5GLOBAL @@ -58,9 +58,9 @@ ! INTERFACE INTEGER FUNCTION h5open_c() - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5OPEN_C'::h5open_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5OPEN_C'::h5open_c + !DEC$ ENDIF END FUNCTION h5open_c END INTERFACE INTERFACE @@ -69,9 +69,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 - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5INIT_TYPES_C'::h5init_types_c - !FooDECS ENDIF + !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 @@ -98,18 +98,18 @@ INTEGER i_H5S_flags(H5S_FLAGS_LEN) INTEGER i_H5T_flags(H5T_FLAGS_LEN) INTEGER i_H5Z_flags(H5Z_FLAGS_LEN) - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5INIT_FLAGS_C'::h5init_flags_c - !FooDECS ENDIF + !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 INTERFACE INTEGER FUNCTION h5init1_flags_c( i_H5LIB_flags ) USE H5GLOBAL INTEGER i_H5LIB_flags(H5LIB_FLAGS_LEN) - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5INIT1_FLAGS_C'::h5init1_flags_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5INIT1_FLAGS_C'::h5init1_flags_c + !DEC$ ENDIF END FUNCTION h5init1_flags_c END INTERFACE error_0 = h5open_c() @@ -155,9 +155,9 @@ SUBROUTINE h5close_f(error) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5close_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5close_f +!DEC$endif ! USE H5GLOBAL @@ -167,9 +167,9 @@ ! INTEGER, EXTERNAL :: h5close_types_c, h5close_c INTERFACE INTEGER FUNCTION h5close_c() - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5CLOSE_C'::h5close_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5CLOSE_C'::h5close_c + !DEC$ ENDIF END FUNCTION h5close_c END INTERFACE INTERFACE @@ -183,9 +183,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 - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5CLOSE_TYPES_C'::h5close_types_c - !FooDECS ENDIF + !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, & @@ -221,9 +221,9 @@ SUBROUTINE h5get_libversion_f(majnum, minnum, relnum, error) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5get_libversion_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5get_libversion_f +!DEC$endif ! USE H5GLOBAL @@ -231,9 +231,9 @@ INTEGER, INTENT(OUT) :: majnum, minnum, relnum, error INTERFACE INTEGER FUNCTION h5get_libversion_c(majnum, minnum, relnum) - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5GET_LIBVERSION_C'::h5get_libversion_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5GET_LIBVERSION_C'::h5get_libversion_c + !DEC$ ENDIF INTEGER, INTENT(OUT) :: majnum, minnum, relnum END FUNCTION h5get_libversion_c END INTERFACE @@ -267,9 +267,9 @@ SUBROUTINE h5check_version_f(majnum, minnum, relnum, error) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5check_version_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5check_version_f +!DEC$endif ! USE H5GLOBAL @@ -278,9 +278,9 @@ INTEGER, INTENT(OUT) :: error INTERFACE INTEGER FUNCTION h5check_version_c(majnum, minnum, relnum) - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5CHECK_VERSION_C'::h5check_version_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5CHECK_VERSION_C'::h5check_version_c + !DEC$ ENDIF INTEGER, INTENT(IN) :: majnum, minnum, relnum END FUNCTION h5check_version_c END INTERFACE @@ -312,9 +312,9 @@ SUBROUTINE h5garbage_collect_f(error) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5garbage_collect_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5garbage_collect_f +!DEC$endif ! USE H5GLOBAL @@ -322,9 +322,9 @@ INTEGER, INTENT(OUT) :: error INTERFACE INTEGER FUNCTION h5garbage_collect_c() - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5GARBAGE_COLLECT_C'::h5garbage_collect_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5GARBAGE_COLLECT_C'::h5garbage_collect_c + !DEC$ ENDIF END FUNCTION h5garbage_collect_c END INTERFACE @@ -355,9 +355,9 @@ SUBROUTINE h5dont_atexit_f(error) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5dont_atexit_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dont_atexit_f +!DEC$endif ! USE H5GLOBAL @@ -365,9 +365,9 @@ INTEGER, INTENT(OUT) :: error INTERFACE INTEGER FUNCTION h5dont_atexit_c() - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5DONT_ATEXIT_C'::h5dont_atexit_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5DONT_ATEXIT_C'::h5dont_atexit_c + !DEC$ ENDIF END FUNCTION h5dont_atexit_c END INTERFACE diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90 index 9c6590d..54fac81 100644 --- a/fortran/src/H5f90global.f90 +++ b/fortran/src/H5f90global.f90 @@ -109,18 +109,18 @@ ! H5T_NATIVE_CHARACTER, & ! H5T_STD_REF_OBJ, & ! H5T_STD_REF_DSETREG -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECS ATTRIBUTES DLLEXPORT :: /PREDEFINED_TYPES/ -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /PREDEFINED_TYPES/ +!DEC$endif COMMON /PREDEFINED_TYPES/ predef_types ! COMMON /FLOATING_TYPES/ H5T_IEEE_F32BE, & ! H5T_IEEE_F32LE, & ! H5T_IEEE_F64BE, & ! H5T_IEEE_F64LE -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECS ATTRIBUTES DLLEXPORT :: /FLOATING_TYPES/ -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /FLOATING_TYPES/ +!DEC$endif COMMON /FLOATING_TYPES/ floating_types ! ! COMMON /INTEGER_TYPES/ H5T_STD_I8BE, & @@ -139,9 +139,9 @@ ! H5T_STD_U32LE, & ! H5T_STD_U64BE, & ! H5T_STD_U64LE -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECS ATTRIBUTES DLLEXPORT :: /INTEGER_TYPES/ -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /INTEGER_TYPES/ +!DEC$endif COMMON /INTEGER_TYPES/ integer_types ! ! Fortran flags @@ -153,9 +153,9 @@ ! INTEGER, PARAMETER :: H5F_FLAGS_LEN = 16 INTEGER H5F_flags(H5F_FLAGS_LEN) -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECS ATTRIBUTES DLLEXPORT :: /H5F_FLAGS/ -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /H5F_FLAGS/ +!DEC$endif COMMON /H5F_FLAGS/ H5F_flags INTEGER :: H5F_ACC_RDWR_F @@ -196,9 +196,9 @@ ! INTEGER, PARAMETER :: H5G_FLAGS_LEN = 8 INTEGER H5G_flags(H5G_FLAGS_LEN) -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECS ATTRIBUTES DLLEXPORT :: /H5G_FLAGS/ -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /H5G_FLAGS/ +!DEC$endif COMMON /H5G_FLAGS/ H5G_flags INTEGER :: H5G_UNKNOWN_F @@ -224,9 +224,9 @@ INTEGER, PARAMETER :: H5D_FLAGS_LEN = 19 INTEGER H5D_flags(H5D_FLAGS_LEN) -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECS ATTRIBUTES DLLEXPORT :: /H5D_FLAGS/ -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /H5D_FLAGS/ +!DEC$endif COMMON /H5D_FLAGS/ H5D_flags INTEGER :: H5D_COMPACT_F @@ -282,9 +282,9 @@ ! INTEGER, PARAMETER :: H5FD_FLAGS_LEN = 11 INTEGER H5FD_flags(H5FD_FLAGS_LEN) -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECS ATTRIBUTES DLLEXPORT :: /H5FD_FLAGS/ -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /H5FD_FLAGS/ +!DEC$endif COMMON /H5FD_FLAGS/ H5FD_flags INTEGER :: H5FD_MPIO_INDEPENDENT_F @@ -316,9 +316,9 @@ ! INTEGER, PARAMETER :: H5E_FLAGS_LEN = 24 INTEGER H5E_flags(H5E_FLAGS_LEN) -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECS ATTRIBUTES DLLEXPORT :: /H5E_FLAGS/ -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /H5E_FLAGS/ +!DEC$endif COMMON /H5E_FLAGS/ H5E_flags INTEGER :: H5E_NONE_MAJOR_F @@ -376,9 +376,9 @@ ! INTEGER, PARAMETER :: H5I_FLAGS_LEN = 7 INTEGER H5I_flags(H5I_FLAGS_LEN) -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECS ATTRIBUTES DLLEXPORT :: /H5I_FLAGS/ -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /H5I_FLAGS/ +!DEC$endif COMMON /H5I_FLAGS/ H5I_flags INTEGER :: H5I_FILE_F @@ -402,9 +402,9 @@ ! INTEGER, PARAMETER :: H5P_FLAGS_LEN = 7 INTEGER H5P_flags(H5P_FLAGS_LEN) -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECS ATTRIBUTES DLLEXPORT :: /H5P_FLAGS/ -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /H5P_FLAGS/ +!DEC$endif COMMON /H5P_FLAGS/ H5P_flags INTEGER :: H5P_FILE_CREATE_F @@ -428,9 +428,9 @@ ! INTEGER, PARAMETER :: H5R_FLAGS_LEN = 2 INTEGER H5R_flags(H5R_FLAGS_LEN) -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECS ATTRIBUTES DLLEXPORT :: /H5R_FLAGS/ -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /H5R_FLAGS/ +!DEC$endif COMMON /H5R_FLAGS/ H5R_flags INTEGER :: H5R_OBJECT_F @@ -444,9 +444,9 @@ ! INTEGER, PARAMETER :: H5S_FLAGS_LEN = 19 INTEGER H5S_flags(H5S_FLAGS_LEN) -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECS ATTRIBUTES DLLEXPORT :: /H5S_FLAGS/ -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /H5S_FLAGS/ +!DEC$endif COMMON /H5S_FLAGS/ H5S_flags INTEGER :: H5S_SCALAR_F @@ -502,9 +502,9 @@ ! INTEGER, PARAMETER :: H5T_FLAGS_LEN = 30 INTEGER H5T_flags(H5T_FLAGS_LEN) -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECS ATTRIBUTES DLLEXPORT :: /H5T_FLAGS/ -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /H5T_FLAGS/ +!DEC$endif COMMON /H5T_FLAGS/ H5T_flags INTEGER :: H5T_NO_CLASS_F @@ -574,9 +574,9 @@ ! INTEGER, PARAMETER :: H5Z_FLAGS_LEN = 11 INTEGER H5Z_flags(H5Z_FLAGS_LEN) -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECS ATTRIBUTES DLLEXPORT :: /H5Z_FLAGS/ -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /H5Z_FLAGS/ +!DEC$endif COMMON /H5Z_FLAGS/ H5Z_flags INTEGER :: H5Z_FILTER_ERROR_F @@ -609,9 +609,9 @@ ! INTEGER, PARAMETER :: H5LIB_FLAGS_LEN = 4 INTEGER :: H5LIB_flags(H5LIB_FLAGS_LEN) -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECS ATTRIBUTES DLLEXPORT :: /H5LIB_FLAGS/ -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /H5LIB_FLAGS/ +!DEC$endif COMMON /H5LIB_FLAGS/ H5LIB_flags INTEGER :: H5_SZIP_AK13_OM_F INTEGER :: H5_SZIP_CHIP_OM_F |