[svn-r15598] Description:

Moved all the windows DLL function declarations to one file (hdf5_fortrandll.def).

1 files changed, 2 insertions, 101 deletions

diff --git a/fortran/src/H5Fff.f90 b/fortran/src/H5Fff.f90
index 6cf6c05..b48beb8 100644
--- a/fortran/src/H5Fff.f90
+++ b/fortran/src/H5Fff.f90
@@ -51,13 +51,6 @@
 !----------------------------------------------------------------------
           SUBROUTINE h5fcreate_f(name, access_flags, file_id, hdferr, &
                                  creation_prp, access_prp)
-!
-!This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5fcreate_f
-!DEC$endif
-!
-           
             IMPLICIT NONE 
             CHARACTER(LEN=*), INTENT(IN) :: name   ! Name of the file
             INTEGER, INTENT(IN) :: access_flags    ! File access flags
@@ -134,13 +127,6 @@
 ! Comment:		
 !----------------------------------------------------------------------
           SUBROUTINE h5fflush_f(object_id, scope, hdferr)
-!
-!This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5fflush_f
-!DEC$endif
-!
-           
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: object_id !identifier for any object
                                                     !associate with a file, 
@@ -207,13 +193,6 @@
 !----------------------------------------------------------------------
  
           SUBROUTINE h5fmount_f(loc_id, name, child_id, hdferr, access_prp)
-!
-!This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5fmount_f
-!DEC$endif
-!
-           
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: loc_id   ! Identifier for file or group 
                                                    ! in which dsetname is defined 
@@ -281,13 +260,6 @@
 !----------------------------------------------------------------------
 
           SUBROUTINE h5funmount_f(loc_id, name, hdferr)
-!
-!This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5funmount_f
-!DEC$endif
-!
-           
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: loc_id   ! Identifier for file or group 
                                                    ! at which the specified file 
@@ -346,13 +318,6 @@
 !----------------------------------------------------------------------
           SUBROUTINE h5fopen_f(name, access_flags, file_id, hdferr, &
                                access_prp)
-!
-!This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5fopen_f
-!DEC$endif
-!
-           
             IMPLICIT NONE
             CHARACTER(LEN=*), INTENT(IN) :: name   ! Name of the file
             INTEGER, INTENT(IN) :: access_flags    ! File access flags
@@ -418,13 +383,6 @@
 !----------------------------------------------------------------------
 
           SUBROUTINE h5freopen_f(file_id, ret_file_id, hdferr)
-!
-!This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5freopen_f
-!DEC$endif
-!
-           
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: file_id      ! File identifier 
             INTEGER(HID_T), INTENT(OUT) :: ret_file_id ! New File identifier 
@@ -475,13 +433,6 @@
 !----------------------------------------------------------------------
           
           SUBROUTINE h5fget_create_plist_f(file_id, prop_id, hdferr)
-!
-!This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5fget_create_plist_f
-!DEC$endif
-!
-           
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: file_id    ! File identifier 
             INTEGER(HID_T), INTENT(OUT) :: prop_id   ! File creation property
@@ -533,13 +484,6 @@
 !----------------------------------------------------------------------
 
           SUBROUTINE h5fget_access_plist_f(file_id, access_id, hdferr)
-!
-!This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5fget_access_plist_f
-!DEC$endif
-!
-           
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: file_id      ! File identifier 
             INTEGER(HID_T), INTENT(OUT) :: access_id   ! File access property
@@ -591,13 +535,6 @@
 !----------------------------------------------------------------------
  
           SUBROUTINE h5fis_hdf5_f(name, status, hdferr)
-!
-!This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5fis_hdf5_f
-!DEC$endif
-!
-           
             IMPLICIT NONE
             CHARACTER(LEN=*), INTENT(IN) :: name   ! Name of the file
             LOGICAL, INTENT(OUT) :: status         ! Indicates if file
@@ -655,13 +592,6 @@
 !----------------------------------------------------------------------
           
           SUBROUTINE h5fclose_f(file_id, hdferr)
-!
-!This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5fclose_f
-!DEC$endif
-!
-
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
             INTEGER, INTENT(OUT) :: hdferr        ! Error code
@@ -713,13 +643,6 @@
 !----------------------------------------------------------------------
           
           SUBROUTINE h5fget_obj_count_f(file_id, obj_type, obj_count, hdferr)
-!
-!This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5fget_obj_count_f
-!DEC$endif
-!
-
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
             INTEGER, INTENT(IN)  :: obj_type      ! Object type
@@ -772,13 +695,6 @@
 !----------------------------------------------------------------------
           
           SUBROUTINE h5fget_obj_ids_f(file_id, obj_type, max_objs, obj_ids, hdferr)
-!
-!This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5fget_obj_ids_f
-!DEC$endif
-!
-
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
             INTEGER, INTENT(IN)  :: obj_type   ! Object type
@@ -828,13 +744,6 @@
 !----------------------------------------------------------------------
           
           SUBROUTINE h5fget_freespace_f(file_id, free_space, hdferr)
-!
-!This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5fget_freespace_f
-!DEC$endif
-!
-
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
             INTEGER(HSSIZE_T), INTENT(OUT) :: free_space 
@@ -878,11 +787,7 @@
 !----------------------------------------------------------------------
 
 
-          SUBROUTINE h5fget_name_f(obj_id, buf, size, hdferr) 
-!This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5fget_name_f
-!DEC$endif
+          SUBROUTINE h5fget_name_f(obj_id, buf, size, hdferr)
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: obj_id   ! Object identifier 
             CHARACTER(LEN=*), INTENT(INOUT) :: buf   
@@ -931,11 +836,7 @@
 !----------------------------------------------------------------------
 
 
-          SUBROUTINE h5fget_filesize_f(file_id, size, hdferr) 
-!This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5fget_filesize_f
-!DEC$endif
+          SUBROUTINE h5fget_filesize_f(file_id, size, hdferr)
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: file_id  ! file identifier
             INTEGER(HSIZE_T), INTENT(OUT) :: size  ! Size of the file