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/H5Off.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/H5Off.f90')
| -rw-r--r-- | fortran/src/H5Off.f90 | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/fortran/src/H5Off.f90 b/fortran/src/H5Off.f90 index c64b82d..4e7a3be 100644 --- a/fortran/src/H5Off.f90 +++ b/fortran/src/H5Off.f90 @@ -48,9 +48,6 @@ CONTAINS SUBROUTINE h5olink_f(object_id, new_loc_id, new_link_name, hdferr, lcpl_id, lapl_id) !This definition is needed for Windows DLLs -!DEC$if defined(BUILD_HDF5_DLL) -!DEC$attributes dllexport :: h5olink_f -!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: object_id ! Object to be linked INTEGER(HID_T), INTENT(IN) :: new_loc_id ! File or group identifier specifying @@ -119,9 +116,6 @@ CONTAINS SUBROUTINE h5oopen_f(loc_id, name, obj_id, hdferr, lapl_id) !This definition is needed for Windows DLLs -!DEC$if defined(BUILD_HDF5_DLL) -!DEC$attributes dllexport :: h5oopen_f -!DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier CHARACTER(LEN=*), INTENT(IN) :: name ! Path to the object, relative to loc_id |