diff options
author | Scott Wegner <swegner@hdfgroup.org> | 2008-09-03 15:01:28 (GMT) |
---|---|---|
committer | Scott Wegner <swegner@hdfgroup.org> | 2008-09-03 15:01:28 (GMT) |
commit | 442565636a5c638c40f882af087c0e92c52753f3 (patch) | |
tree | aa042e78f22e9df6d266faa05a9e1d1538b62a0d /fortran/src/H5Eff.f90 | |
parent | 39b9ddf4c8da6d815bd1d81382d480092020b57e (diff) | |
download | hdf5-442565636a5c638c40f882af087c0e92c52753f3.zip hdf5-442565636a5c638c40f882af087c0e92c52753f3.tar.gz hdf5-442565636a5c638c40f882af087c0e92c52753f3.tar.bz2 |
[svn-r15583] Purpose: Add Windows Fortran DLL export code to separate DEF file.
Description:
In in Fortran source code, there was a great deal of code that was necessary for Windows DLLs, and ignored for others systems. To remove some of the bloat in the source code, we moved these definitions into separate *.def file, which will be used on by the Windows DLL project.
Tested:
VS2005 on WinXP
Note: The Windows project file will still need to be edited-- I will check that in soon.
Diffstat (limited to 'fortran/src/H5Eff.f90')
-rw-r--r-- | fortran/src/H5Eff.f90 | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/fortran/src/H5Eff.f90 b/fortran/src/H5Eff.f90 index 74ee739..319d939 100644 --- a/fortran/src/H5Eff.f90 +++ b/fortran/src/H5Eff.f90 @@ -50,10 +50,6 @@ SUBROUTINE h5eclear_f(hdferr) ! !This definition is needed for Windows DLLs -!DEC$if defined(BUILD_HDF5_DLL) -!DEC$attributes dllexport :: h5eclear_f -!DEC$endif -! IMPLICIT NONE INTEGER, INTENT(OUT) :: hdferr ! Error code @@ -98,10 +94,6 @@ SUBROUTINE h5eprint_f(hdferr, name) ! !This definition is needed for Windows DLLs -!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 ! INTEGER, EXTERNAL :: h5eprint_c1, h5eprint_c2 @@ -167,10 +159,6 @@ SUBROUTINE h5eget_major_f(error_no, name, namelen, hdferr) ! !This definition is needed for Windows DLLs -!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 ! the error. @@ -227,10 +215,6 @@ SUBROUTINE h5eget_minor_f(error_no, name, hdferr) ! !This definition is needed for Windows DLLs -!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 ! the error @@ -285,10 +269,6 @@ SUBROUTINE h5eset_auto_f(printflag, hdferr) ! !This definition is needed for Windows DLLs -!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 !possible values are: |