summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-28 19:01:52 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-28 19:01:52 (GMT)
commit834fab687f2b98da0b14c1ca0da344e842ad9206 (patch)
tree61ac513e1f3a84acc75ed7dcb71f57ec68f59a63 /fortran/src
parent241bbc426c69704f401b8db4fa35859bfb33c359 (diff)
downloadhdf5-834fab687f2b98da0b14c1ca0da344e842ad9206.zip
hdf5-834fab687f2b98da0b14c1ca0da344e842ad9206.tar.gz
hdf5-834fab687f2b98da0b14c1ca0da344e842ad9206.tar.bz2
[svn-r26950] Added DLL exports for windows.
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5test_kind.F9052
1 files changed, 52 insertions, 0 deletions
diff --git a/fortran/src/H5test_kind.F90 b/fortran/src/H5test_kind.F90
index cb5af11..f12f430 100644
--- a/fortran/src/H5test_kind.F90
+++ b/fortran/src/H5test_kind.F90
@@ -486,6 +486,13 @@ WRITE(*,'(40(A,/))') &
k = rkind_numbers(i)
WRITE(chr2,'(I2)') k
DO j = 1, 8
+
+! DLL definitions for windows
+ WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_DLL)'
+ WRITE(11,'(A)') '!DEC$attributes dllexport :: h5awrite_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
+ WRITE(11,'(A)') '!DEC$endif'
+
+! Subroutine API
WRITE(11,'(A)') ' SUBROUTINE h5awrite_kind_'//TRIM(ADJUSTL(chr2))&
&//'_rank'//chr_rank(j)//'(attr_id, memtype_id, buf, dims, hdferr)'
WRITE(11,'(A)') ' IMPLICIT NONE'
@@ -507,6 +514,11 @@ WRITE(*,'(40(A,/))') &
k = rkind_numbers(i)
WRITE(chr2,'(I2)') k
DO j = 1, 8
+! DLL definitions for windows
+ WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_DLL)'
+ WRITE(11,'(A)') '!DEC$attributes dllexport :: h5aread_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
+ WRITE(11,'(A)') '!DEC$endif'
+! Subroutine API
WRITE(11,'(A)') ' SUBROUTINE h5aread_kind_'//TRIM(ADJUSTL(chr2))&
&//'_rank'//chr_rank(j)//'(attr_id, memtype_id, buf, dims, hdferr)'
WRITE(11,'(A)') ' IMPLICIT NONE'
@@ -532,6 +544,11 @@ WRITE(*,'(40(A,/))') &
k = rkind_numbers(i)
WRITE(chr2,'(I2)') k
DO j = 1, 8
+! DLL definitions for windows
+ WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_DLL)'
+ WRITE(11,'(A)') '!DEC$attributes dllexport :: h5dread_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
+ WRITE(11,'(A)') '!DEC$endif'
+! Subroutine API
WRITE(11,'(A)') ' SUBROUTINE h5dread_kind_'//TRIM(ADJUSTL(chr2))&
&//'_rank'//chr_rank(j)//'(dset_id, mem_type_id, buf, dims, hdferr, &'
WRITE(11,'(A)') ' mem_space_id, file_space_id, xfer_prp)'
@@ -568,6 +585,11 @@ WRITE(*,'(40(A,/))') &
k = rkind_numbers(i)
WRITE(chr2,'(I2)') k
DO j = 1, 8
+! DLL definitions for windows
+ WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_DLL)'
+ WRITE(11,'(A)') '!DEC$attributes dllexport :: h5dwrite_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
+ WRITE(11,'(A)') '!DEC$endif'
+! Subroutine API
WRITE(11,'(A)') ' SUBROUTINE h5dwrite_kind_'//TRIM(ADJUSTL(chr2))&
&//'_rank'//chr_rank(j)//'(dset_id, mem_type_id, buf, dims, hdferr, &'
WRITE(11,'(A)') ' mem_space_id, file_space_id, xfer_prp)'
@@ -606,6 +628,11 @@ WRITE(*,'(40(A,/))') &
DO i = 1, ir
k = rkind_numbers(i)
WRITE(chr2,'(I2)') k
+! DLL definitions for windows
+ WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_DLL)'
+ WRITE(11,'(A)') '!DEC$attributes dllexport :: h5pset_fill_value_kind_'//TRIM(ADJUSTL(chr2))
+ WRITE(11,'(A)') '!DEC$endif'
+! Subroutine API
WRITE(11,'(A)') ' SUBROUTINE h5pset_fill_value_kind_'//TRIM(ADJUSTL(chr2))&
&//'(prp_id, type_id, fillvalue, hdferr)'
WRITE(11,'(A)') ' IMPLICIT NONE'
@@ -623,6 +650,11 @@ WRITE(*,'(40(A,/))') &
DO i = 1, ir
k = rkind_numbers(i)
WRITE(chr2,'(I2)') k
+! DLL definitions for windows
+ WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_DLL)'
+ WRITE(11,'(A)') '!DEC$attributes dllexport :: h5pget_fill_value_kind_'//TRIM(ADJUSTL(chr2))
+ WRITE(11,'(A)') '!DEC$endif'
+! Subroutine API
WRITE(11,'(A)') ' SUBROUTINE h5pget_fill_value_kind_'//TRIM(ADJUSTL(chr2))&
&//'(prp_id, type_id, fillvalue, hdferr)'
WRITE(11,'(A)') ' IMPLICIT NONE'
@@ -640,6 +672,11 @@ WRITE(*,'(40(A,/))') &
DO i = 1, ir
k = rkind_numbers(i)
WRITE(chr2,'(I2)') k
+! DLL definitions for windows
+ WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_DLL)'
+ WRITE(11,'(A)') '!DEC$attributes dllexport :: h5pset_kind_'//TRIM(ADJUSTL(chr2))
+ WRITE(11,'(A)') '!DEC$endif'
+! Subroutine API
WRITE(11,'(A)') ' SUBROUTINE h5pset_kind_'//TRIM(ADJUSTL(chr2))&
&//'(prp_id, name, value, hdferr)'
WRITE(11,'(A)') ' IMPLICIT NONE'
@@ -660,6 +697,11 @@ WRITE(*,'(40(A,/))') &
DO i = 1, ir
k = rkind_numbers(i)
WRITE(chr2,'(I2)') k
+! DLL definitions for windows
+ WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_DLL)'
+ WRITE(11,'(A)') '!DEC$attributes dllexport :: h5pget_kind_'//TRIM(ADJUSTL(chr2))
+ WRITE(11,'(A)') '!DEC$endif'
+! Subroutine API
WRITE(11,'(A)') ' SUBROUTINE h5pget_kind_'//TRIM(ADJUSTL(chr2))&
&//'(prp_id, name, value, hdferr)'
WRITE(11,'(A)') ' IMPLICIT NONE'
@@ -679,6 +721,11 @@ WRITE(*,'(40(A,/))') &
DO i = 1, ir
k = rkind_numbers(i)
WRITE(chr2,'(I2)') k
+! DLL definitions for windows
+ WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_DLL)'
+ WRITE(11,'(A)') '!DEC$attributes dllexport :: h5pregister_kind_'//TRIM(ADJUSTL(chr2))
+ WRITE(11,'(A)') '!DEC$endif'
+! Subroutine API
WRITE(11,'(A)') 'SUBROUTINE h5pregister_kind_'//TRIM(ADJUSTL(chr2))&
&//'(class, name, size, value, hdferr)'
WRITE(11,'(A)') ' IMPLICIT NONE'
@@ -699,6 +746,11 @@ WRITE(*,'(40(A,/))') &
DO i = 1, ir
k = rkind_numbers(i)
WRITE(chr2,'(I2)') k
+! DLL definitions for windows
+ WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_DLL)'
+ WRITE(11,'(A)') '!DEC$attributes dllexport :: h5pinsert_kind_'//TRIM(ADJUSTL(chr2))
+ WRITE(11,'(A)') '!DEC$endif'
+! Subroutine API
WRITE(11,'(A)') ' SUBROUTINE h5pinsert_kind_'//TRIM(ADJUSTL(chr2))&
&//'(plist, name, size, value, hdferr)'
WRITE(11,'(A)') ' IMPLICIT NONE'