diff options
Diffstat (limited to 'fortran/src/H5Fff.f90')
-rw-r--r-- | fortran/src/H5Fff.f90 | 166 |
1 files changed, 83 insertions, 83 deletions
diff --git a/fortran/src/H5Fff.f90 b/fortran/src/H5Fff.f90 index 6fa308d..24e3945 100644 --- a/fortran/src/H5Fff.f90 +++ b/fortran/src/H5Fff.f90 @@ -52,9 +52,9 @@ creation_prp, access_prp) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fcreate_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fcreate_f +!DEC$endif ! IMPLICIT NONE @@ -79,10 +79,10 @@ INTEGER FUNCTION h5fcreate_c(name, namelen, access_flags, & creation_prp_default, access_prp_default, file_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FCREATE_C':: h5fcreate_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5FCREATE_C':: h5fcreate_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name CHARACTER(LEN=*), INTENT(IN) :: name INTEGER, INTENT(IN) :: access_flags INTEGER(HID_T), INTENT(OUT) :: file_id @@ -135,9 +135,9 @@ SUBROUTINE h5fflush_f(object_id, scope, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fflush_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fflush_f +!DEC$endif ! IMPLICIT NONE @@ -165,9 +165,9 @@ INTERFACE INTEGER FUNCTION h5fflush_c(object_id, scope) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FFLUSH_C':: h5fflush_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5FFLUSH_C':: h5fflush_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: object_id INTEGER, INTENT(IN) :: scope END FUNCTION h5fflush_c @@ -208,9 +208,9 @@ SUBROUTINE h5fmount_f(loc_id, name, child_id, hdferr, access_prp) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fmount_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fmount_f +!DEC$endif ! IMPLICIT NONE @@ -233,10 +233,10 @@ INTEGER FUNCTION h5fmount_c(loc_id, name, namelen, & child_id, access_prp_default) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FMOUNT_C':: h5fmount_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5FMOUNT_C':: h5fmount_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: loc_id CHARACTER(LEN=*), INTENT(IN) :: name INTEGER(HID_T), INTENT(IN) :: child_id @@ -282,9 +282,9 @@ SUBROUTINE h5funmount_f(loc_id, name, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5funmount_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5funmount_f +!DEC$endif ! IMPLICIT NONE @@ -301,10 +301,10 @@ INTERFACE INTEGER FUNCTION h5funmount_c(loc_id, name, namelen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FUNMOUNT_C':: h5funmount_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5FUNMOUNT_C':: h5funmount_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name INTEGER(HID_T), INTENT(IN) :: loc_id CHARACTER(LEN=*), INTENT(IN) :: name INTEGER :: namelen @@ -347,9 +347,9 @@ access_prp) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fopen_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fopen_f +!DEC$endif ! IMPLICIT NONE @@ -370,10 +370,10 @@ INTEGER FUNCTION h5fopen_c(name, namelen, access_flags, & access_prp_default, file_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FOPEN_C':: h5fopen_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5FOPEN_C':: h5fopen_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name CHARACTER(LEN=*), INTENT(IN) :: name INTEGER :: namelen INTEGER, INTENT(IN) :: access_flags @@ -419,9 +419,9 @@ SUBROUTINE h5freopen_f(file_id, ret_file_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5freopen_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5freopen_f +!DEC$endif ! IMPLICIT NONE @@ -435,9 +435,9 @@ INTERFACE INTEGER FUNCTION h5freopen_c(file_id, ret_file_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FREOPEN_C':: h5freopen_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5FREOPEN_C':: h5freopen_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: file_id INTEGER(HID_T), INTENT(OUT) :: ret_file_id END FUNCTION h5freopen_c @@ -476,9 +476,9 @@ SUBROUTINE h5fget_create_plist_f(file_id, prop_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fget_create_plist_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fget_create_plist_f +!DEC$endif ! IMPLICIT NONE @@ -493,9 +493,9 @@ INTERFACE INTEGER FUNCTION h5fget_create_plist_c(file_id, prop_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) -!FooMSSATTRIBUTES C,reference,alias:'_H5FGET_CREATE_PLIST_C':: h5fget_create_plist_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) +!MS$ATTRIBUTES C,reference,alias:'_H5FGET_CREATE_PLIST_C':: h5fget_create_plist_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: file_id INTEGER(HID_T), INTENT(OUT) :: prop_id END FUNCTION h5fget_create_plist_c @@ -534,9 +534,9 @@ SUBROUTINE h5fget_access_plist_f(file_id, access_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fget_access_plist_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fget_access_plist_f +!DEC$endif ! IMPLICIT NONE @@ -551,9 +551,9 @@ INTERFACE INTEGER FUNCTION h5fget_access_plist_c(file_id, access_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) -!FooMSSATTRIBUTES C,reference,alias:'_H5FGET_CREATE_PLIST_C':: h5fget_access_plist_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) +!MS$ATTRIBUTES C,reference,alias:'_H5FGET_CREATE_PLIST_C':: h5fget_access_plist_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: file_id INTEGER(HID_T), INTENT(OUT) :: access_id END FUNCTION h5fget_access_plist_c @@ -592,9 +592,9 @@ SUBROUTINE h5fis_hdf5_f(name, status, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fis_hdf5_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fis_hdf5_f +!DEC$endif ! IMPLICIT NONE @@ -612,10 +612,10 @@ INTERFACE INTEGER FUNCTION h5fis_hdf5_c(name, namelen, flag) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FIS_HDF5_C':: h5fis_hdf5_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5FIS_HDF5_C':: h5fis_hdf5_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: name CHARACTER(LEN=*), INTENT(IN) :: name INTEGER :: namelen INTEGER :: flag @@ -656,9 +656,9 @@ SUBROUTINE h5fclose_f(file_id, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fclose_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fclose_f +!DEC$endif ! IMPLICIT NONE @@ -671,9 +671,9 @@ INTERFACE INTEGER FUNCTION h5fclose_c(file_id) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FCLOSE_C':: h5fclose_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5FCLOSE_C':: h5fclose_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: file_id END FUNCTION h5fclose_c END INTERFACE @@ -714,9 +714,9 @@ SUBROUTINE h5fget_obj_count_f(file_id, obj_type, obj_count, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fget_obj_count_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fget_obj_count_f +!DEC$endif ! IMPLICIT NONE @@ -728,9 +728,9 @@ INTERFACE INTEGER FUNCTION h5fget_obj_count_c(file_id, obj_type, obj_count) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FGET_OBJ_COUNT_C':: h5fget_obj_count_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5FGET_OBJ_COUNT_C':: h5fget_obj_count_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: file_id INTEGER, INTENT(IN) :: obj_type ! Object type INTEGER, INTENT(OUT) :: obj_count ! Number of open objects @@ -773,9 +773,9 @@ SUBROUTINE h5fget_obj_ids_f(file_id, obj_type, max_objs, obj_ids, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fget_obj_ids_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fget_obj_ids_f +!DEC$endif ! IMPLICIT NONE @@ -789,9 +789,9 @@ INTERFACE INTEGER FUNCTION h5fget_obj_ids_c(file_id, obj_type, max_objs, obj_ids) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FGET_OBJ_IDS_C':: h5fget_obj_ids_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5FGET_OBJ_IDS_C':: h5fget_obj_ids_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: file_id INTEGER, INTENT(IN) :: obj_type INTEGER, INTENT(IN) :: max_objs @@ -829,9 +829,9 @@ SUBROUTINE h5fget_freespace_f(file_id, free_space, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5fget_freespace_f -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5fget_freespace_f +!DEC$endif ! IMPLICIT NONE @@ -843,9 +843,9 @@ INTERFACE INTEGER FUNCTION h5fget_freespace_c(file_id, free_space) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5FGET_FREESPACE_C':: h5fget_freespace_c - !FooDECS ENDIF + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5FGET_FREESPACE_C':: h5fget_freespace_c + !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: file_id INTEGER(HSSIZE_T), INTENT(OUT) :: free_space END FUNCTION h5fget_freespace_c |