summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFang Guo <fangguo@ncsa.uiuc.edu>2005-07-22 21:43:19 (GMT)
committerFang Guo <fangguo@ncsa.uiuc.edu>2005-07-22 21:43:19 (GMT)
commita073dac37ba9c600f1edc6175039f39f675e334d (patch)
tree987548858dbf048d7bbfe8fc6e2a73ef24793503
parent2d9a894b5203677c9df5991b30d092d54eb40e5d (diff)
downloadhdf5-a073dac37ba9c600f1edc6175039f39f675e334d.zip
hdf5-a073dac37ba9c600f1edc6175039f39f675e334d.tar.gz
hdf5-a073dac37ba9c600f1edc6175039f39f675e334d.tar.bz2
[svn-r11115] Purpose:
Improvement Description: Add high level fortran dll export definition for windows Solution: Platforms tested: MSVS 6.0 on windows XP, cygwin, heping and copper Misc. update:
-rwxr-xr-xhl/fortran/src/H5LTff.f90414
-rwxr-xr-xhl/fortran/src/H5TBff.f90192
2 files changed, 603 insertions, 3 deletions
diff --git a/hl/fortran/src/H5LTff.f90 b/hl/fortran/src/H5LTff.f90
index 2714d9f..9f761c4 100755
--- a/hl/fortran/src/H5LTff.f90
+++ b/hl/fortran/src/H5LTff.f90
@@ -15,12 +15,11 @@
!
! This file contains FORTRAN90 interfaces for H5LT functions
!
-
+
module h5lt
use h5fortran_types
use hdf5
-
interface h5ltmake_dataset_f
module procedure h5ltmake_dataset_f_int1
module procedure h5ltmake_dataset_f_int2
@@ -112,6 +111,14 @@ subroutine h5ltmake_dataset_f_int1(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_f_int1
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -168,7 +175,15 @@ subroutine h5ltmake_dataset_f_int2(loc_id,&
buf,&
errcode )
- implicit none
+ implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_f_int2
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -228,6 +243,14 @@ subroutine h5ltmake_dataset_f_int3(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_f_int3
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -288,6 +311,14 @@ subroutine h5ltmake_dataset_f_float1(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_f_float1
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -345,6 +376,14 @@ subroutine h5ltmake_dataset_f_float2(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_f_float2
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -404,6 +443,14 @@ subroutine h5ltmake_dataset_f_float3(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_f_float3
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -463,6 +510,14 @@ subroutine h5ltmake_dataset_f_double1(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_f_double1
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -520,6 +575,14 @@ subroutine h5ltmake_dataset_f_double2(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_f_double2
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -579,6 +642,14 @@ subroutine h5ltmake_dataset_f_double3(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_f_double3
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -639,6 +710,14 @@ subroutine h5ltread_dataset_f_int1(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_f_int1
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hid_t), intent(in) :: type_id ! datatype identifier
@@ -693,6 +772,14 @@ subroutine h5ltread_dataset_f_int2(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_f_int2
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hid_t), intent(in) :: type_id ! datatype identifier
@@ -749,6 +836,14 @@ subroutine h5ltread_dataset_f_int3(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_f_int3
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hid_t), intent(in) :: type_id ! datatype identifier
@@ -808,6 +903,14 @@ subroutine h5ltread_dataset_f_float1(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_f_float1
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hid_t), intent(in) :: type_id ! datatype identifier
@@ -862,6 +965,15 @@ subroutine h5ltread_dataset_f_float2(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_f_float2
+!DEC$endif
+!
+
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hid_t), intent(in) :: type_id ! datatype identifier
@@ -918,6 +1030,14 @@ subroutine h5ltread_dataset_f_float3(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_f_float3
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hid_t), intent(in) :: type_id ! datatype identifier
@@ -975,6 +1095,14 @@ subroutine h5ltread_dataset_f_double1(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport ::h5ltread_dataset_f_double1
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hid_t), intent(in) :: type_id ! datatype identifier
@@ -1029,6 +1157,14 @@ subroutine h5ltread_dataset_f_double2(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_f_double2
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hid_t), intent(in) :: type_id ! datatype identifier
@@ -1085,6 +1221,14 @@ subroutine h5ltread_dataset_f_double3(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_f_double3
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hid_t), intent(in) :: type_id ! datatype identifier
@@ -1142,6 +1286,14 @@ subroutine h5ltmake_dataset_int_f_1 (loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_int_f_1
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -1197,6 +1349,14 @@ subroutine h5ltmake_dataset_int_f_2 (loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_int_f_2
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -1256,6 +1416,14 @@ subroutine h5ltmake_dataset_int_f_3 (loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_int_f_3
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -1316,6 +1484,14 @@ subroutine h5ltmake_dataset_float_f_1 (loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_float_f_1
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -1371,6 +1547,14 @@ subroutine h5ltmake_dataset_float_f_2 (loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_float_f_2
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -1428,6 +1612,14 @@ subroutine h5ltmake_dataset_float_f_3 (loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_float_f_3
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -1488,6 +1680,14 @@ subroutine h5ltmake_dataset_double_f_1 (loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_double_f_1
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -1546,6 +1746,14 @@ subroutine h5ltmake_dataset_double_f_2 (loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_double_f_2
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -1603,6 +1811,14 @@ subroutine h5ltmake_dataset_double_f_3 (loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_double_f_3
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: rank ! rank
@@ -1661,6 +1877,14 @@ subroutine h5ltread_dataset_int_f_1(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_int_f_1
+!DEC$endif
+!
+
integer(HID_T), intent(IN) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
@@ -1716,6 +1940,14 @@ subroutine h5ltread_dataset_int_f_2(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_int_f_2
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
@@ -1770,6 +2002,14 @@ subroutine h5ltread_dataset_int_f_3(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_int_f_3
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
@@ -1825,6 +2065,14 @@ subroutine h5ltread_dataset_float_f_1(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_float_f_1
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
@@ -1880,6 +2128,14 @@ subroutine h5ltread_dataset_float_f_2(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_float_f_2
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
@@ -1934,6 +2190,14 @@ subroutine h5ltread_dataset_float_f_3(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_float_f_3
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
@@ -1988,6 +2252,14 @@ subroutine h5ltread_dataset_double_f_1(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_double_f_1
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
@@ -2043,6 +2315,14 @@ subroutine h5ltread_dataset_double_f_2(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_double_f_2
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
@@ -2097,6 +2377,14 @@ subroutine h5ltread_dataset_double_f_3(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_double_f_3
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
@@ -2151,6 +2439,14 @@ subroutine h5ltmake_dataset_string_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltmake_dataset_string_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: buf ! data buffer
@@ -2199,6 +2495,14 @@ subroutine h5ltread_dataset_string_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltread_dataset_string_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(inout) :: buf ! data buffer
@@ -2257,6 +2561,14 @@ subroutine h5ltset_attribute_int_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltset_attribute_int_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
@@ -2315,6 +2627,14 @@ subroutine h5ltset_attribute_float_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltset_attribute_float_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
@@ -2373,6 +2693,14 @@ subroutine h5ltset_attribute_double_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltset_attribute_double_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
@@ -2431,6 +2759,14 @@ subroutine h5ltset_attribute_string_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltset_attribute_string_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
@@ -2488,6 +2824,14 @@ subroutine h5ltget_attribute_int_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltget_attribute_int_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
@@ -2544,6 +2888,14 @@ subroutine h5ltget_attribute_float_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltget_attribute_float_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
@@ -2599,6 +2951,14 @@ subroutine h5ltget_attribute_double_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltget_attribute_double_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
@@ -2654,6 +3014,14 @@ subroutine h5ltget_attribute_string_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltget_attribute_string_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
@@ -2712,6 +3080,14 @@ subroutine h5ltget_dataset_ndims_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltget_dataset_ndims_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(inout) :: rank ! rank
@@ -2760,6 +3136,14 @@ integer function h5ltfind_dataset_f(loc_id,&
dset_name)
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltfind_dataset_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer :: errcode ! error code
@@ -2809,6 +3193,14 @@ subroutine h5ltget_dataset_info_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltget_dataset_info_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hsize_t),dimension(*),intent(inout):: dims ! dimensions
@@ -2868,6 +3260,14 @@ subroutine h5ltget_attribute_ndims_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltget_attribute_ndims_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
@@ -2926,6 +3326,14 @@ subroutine h5ltget_attribute_info_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5ltget_attribute_info_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
diff --git a/hl/fortran/src/H5TBff.f90 b/hl/fortran/src/H5TBff.f90
index 5d435e2..d7458ac 100755
--- a/hl/fortran/src/H5TBff.f90
+++ b/hl/fortran/src/H5TBff.f90
@@ -92,6 +92,14 @@ subroutine h5tbmake_table_f(table_title,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbmake_table_f
+!DEC$endif
+!
+
character(len=*), intent(in) :: table_title ! name of the dataset
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
@@ -198,6 +206,14 @@ subroutine h5tbwrite_field_name_f_int(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbwrite_field_name_f_int
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
@@ -265,6 +281,14 @@ subroutine h5tbwrite_field_name_f_float(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbwrite_field_name_f_float
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
@@ -334,6 +358,14 @@ subroutine h5tbwrite_field_name_f_double(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbwrite_field_name_f_double
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
@@ -401,6 +433,14 @@ subroutine h5tbwrite_field_name_f_string(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbwrite_field_name_f_string
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
@@ -469,6 +509,14 @@ subroutine h5tbread_field_name_f_int(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbread_field_name_f_int
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
@@ -536,6 +584,14 @@ subroutine h5tbread_field_name_f_float(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbread_field_name_f_float
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
@@ -603,6 +659,14 @@ subroutine h5tbread_field_name_f_double(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbread_field_name_f_double
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
@@ -670,6 +734,14 @@ subroutine h5tbread_field_name_f_string(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbread_field_name_f_string
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
@@ -738,6 +810,14 @@ subroutine h5tbwrite_field_index_f_int(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbwrite_field_index_f_int
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
@@ -801,6 +881,14 @@ subroutine h5tbwrite_field_index_f_float(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbwrite_field_index_f_float
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
@@ -866,6 +954,14 @@ subroutine h5tbwrite_field_index_f_double(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbwrite_field_index_f_double
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
@@ -929,6 +1025,14 @@ subroutine h5tbwrite_field_index_f_string(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbwrite_field_index_f_string
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
@@ -993,6 +1097,14 @@ subroutine h5tbread_field_index_f_int(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport ::h5tbread_field_index_f_int
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
@@ -1056,6 +1168,14 @@ subroutine h5tbread_field_index_f_float(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbread_field_index_f_float
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
@@ -1119,6 +1239,14 @@ subroutine h5tbread_field_index_f_double(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbread_field_index_f_double
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
@@ -1182,6 +1310,14 @@ subroutine h5tbread_field_index_f_string(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbread_field_index_f_string
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
@@ -1244,6 +1380,14 @@ subroutine h5tbinsert_field_f_int(loc_id,&
buf,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbinsert_field_f_int
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
@@ -1309,6 +1453,14 @@ subroutine h5tbinsert_field_f_float(loc_id,&
buf,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbinsert_field_f_float
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
@@ -1374,6 +1526,14 @@ subroutine h5tbinsert_field_f_double(loc_id,&
buf,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbinsert_field_f_double
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
@@ -1440,6 +1600,14 @@ subroutine h5tbinsert_field_f_string(loc_id,&
buf,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbinsert_field_f_string
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
@@ -1503,6 +1671,14 @@ subroutine h5tbdelete_field_f(loc_id,&
field_name,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbdelete_field_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
@@ -1561,6 +1737,14 @@ subroutine h5tbget_table_info_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbget_table_info_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hsize_t), intent(inout):: nfields ! nfields
@@ -1616,6 +1800,14 @@ subroutine h5tbget_field_info_f(loc_id,&
errcode )
implicit none
+
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tbget_field_info_f
+!DEC$endif
+!
+
integer(hid_t), intent(in) :: loc_id ! file or group identifier
character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hsize_t), intent(in):: nfields ! nfields