summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFang Guo <fangguo@ncsa.uiuc.edu>2005-07-22 21:39:51 (GMT)
committerFang Guo <fangguo@ncsa.uiuc.edu>2005-07-22 21:39:51 (GMT)
commit2d9a894b5203677c9df5991b30d092d54eb40e5d (patch)
tree37d9426555eda88a420581c3881edaca325dbbbe
parent1a5c3ceeb8541456998d0775e9930ead7f1296a4 (diff)
downloadhdf5-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-xhl/fortran/src/H5IMff.f9096
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