diff options
author | Fang Guo <fangguo@ncsa.uiuc.edu> | 2005-07-22 21:39:51 (GMT) |
---|---|---|
committer | Fang Guo <fangguo@ncsa.uiuc.edu> | 2005-07-22 21:39:51 (GMT) |
commit | 2d9a894b5203677c9df5991b30d092d54eb40e5d (patch) | |
tree | 37d9426555eda88a420581c3881edaca325dbbbe | |
parent | 1a5c3ceeb8541456998d0775e9930ead7f1296a4 (diff) | |
download | hdf5-2d9a894b5203677c9df5991b30d092d54eb40e5d.zip hdf5-2d9a894b5203677c9df5991b30d092d54eb40e5d.tar.gz hdf5-2d9a894b5203677c9df5991b30d092d54eb40e5d.tar.bz2 |
[svn-r11114] Purpose:
Improvement
Description:
Add definition for high level fortran dll export for windows
Solution:
Platforms tested:
MSVS 6.0 on window xp, cygwin, heping and copper
Misc. update:
-rwxr-xr-x | hl/fortran/src/H5IMff.f90 | 96 |
1 files changed, 96 insertions, 0 deletions
diff --git a/hl/fortran/src/H5IMff.f90 b/hl/fortran/src/H5IMff.f90 index b5f1e2b..598903a 100755 --- a/hl/fortran/src/H5IMff.f90 +++ b/hl/fortran/src/H5IMff.f90 @@ -47,6 +47,14 @@ subroutine h5immake_image_8bit_f(loc_id,& errcode ) implicit none + +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5immake_image_8bit_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) :: width ! width of image @@ -102,6 +110,13 @@ subroutine h5imread_image_f(loc_id,& errcode ) implicit none + +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5imread_image_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), dimension(*) :: buf ! buffer @@ -154,6 +169,14 @@ subroutine h5immake_image_24bit_f(loc_id,& errcode ) implicit none + +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5immake_image_24bit_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) :: width ! width of image @@ -219,6 +242,14 @@ subroutine h5imget_image_info_f(loc_id,& errcode ) implicit none + +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5imget_image_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) :: width ! width of image @@ -278,6 +309,14 @@ integer function h5imis_image_f(loc_id,& dset_name) implicit none + +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5imis_image_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 @@ -327,6 +366,14 @@ subroutine h5immake_palette_f(loc_id,& errcode ) implicit none + +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5immake_palette_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), dimension(*) :: pal_dims ! dimensions @@ -379,6 +426,13 @@ subroutine h5imlink_palette_f(loc_id,& errcode ) implicit none + +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5imlink_palette_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) :: pal_name ! palette name @@ -432,6 +486,15 @@ subroutine h5imunlink_palette_f(loc_id,& errcode ) implicit none + +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5imunlink_palette_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) :: pal_name ! palette name @@ -486,6 +549,14 @@ subroutine h5imget_npalettes_f(loc_id,& errcode ) implicit none + +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5imget_npalettes_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) :: npals ! palettes @@ -536,6 +607,15 @@ subroutine h5imget_palette_info_f(loc_id,& errcode ) implicit none + + +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5imget_palette_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, intent(in) :: pal_number ! palette number @@ -590,6 +670,14 @@ subroutine h5imget_palette_f(loc_id,& errcode ) implicit none + +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5imget_palette_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(in) :: pal_number ! palette number @@ -639,6 +727,14 @@ integer function h5imis_palette_f(loc_id,& dset_name) implicit none + +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5imis_palette_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 |