summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Fff.F90
diff options
context:
space:
mode:
authorDana Robinson <43805+derobins@users.noreply.github.com>2023-04-22 06:25:12 (GMT)
committerGitHub <noreply@github.com>2023-04-22 06:25:12 (GMT)
commit7707859279a60b32d2b6c915442a7c04d44445b4 (patch)
tree890d16aa2408b270368b36ea4f05ca20fe2f16f6 /fortran/src/H5Fff.F90
parenta4371b6fce577852691dfdeac642dec1dd4b9453 (diff)
downloadhdf5-7707859279a60b32d2b6c915442a7c04d44445b4.zip
hdf5-7707859279a60b32d2b6c915442a7c04d44445b4.tar.gz
hdf5-7707859279a60b32d2b6c915442a7c04d44445b4.tar.bz2
Merge with develop (#2790)
Diffstat (limited to 'fortran/src/H5Fff.F90')
-rw-r--r--fortran/src/H5Fff.F90421
1 files changed, 370 insertions, 51 deletions
diff --git a/fortran/src/H5Fff.F90 b/fortran/src/H5Fff.F90
index 551db7d..f1a0d2a 100644
--- a/fortran/src/H5Fff.F90
+++ b/fortran/src/H5Fff.F90
@@ -43,6 +43,7 @@ MODULE H5F
! Number of objects opened in H5open_f
INTEGER(SIZE_T) :: H5OPEN_NUM_OBJ
+
#ifndef H5_DOXYGEN
INTERFACE
INTEGER(C_INT) FUNCTION h5fis_accessible(name, &
@@ -81,46 +82,127 @@ CONTAINS
INTEGER, INTENT(IN) :: access_flags
INTEGER(HID_T), INTENT(OUT) :: file_id
INTEGER, INTENT(OUT) :: hdferr
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: creation_prp
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: access_prp
+ INTEGER(HID_T), INTENT(IN), OPTIONAL :: creation_prp
+ INTEGER(HID_T), INTENT(IN), OPTIONAL :: access_prp
+
INTEGER(HID_T) :: creation_prp_default
INTEGER(HID_T) :: access_prp_default
- INTEGER :: namelen ! Length of the name character string
+ CHARACTER(LEN=LEN_TRIM(name)+1,KIND=C_CHAR) :: c_name
INTERFACE
- INTEGER FUNCTION h5fcreate_c(name, namelen, access_flags, &
- creation_prp_default, access_prp_default, file_id) BIND(C,NAME='h5fcreate_c')
+ INTEGER(HID_T) FUNCTION H5Fcreate(name, access_flags, &
+ creation_prp_default, access_prp_default) BIND(C,NAME='H5Fcreate')
IMPORT :: C_CHAR
IMPORT :: HID_T
- CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: name
- INTEGER, INTENT(IN) :: access_flags
- INTEGER(HID_T), INTENT(OUT) :: file_id
- INTEGER(HID_T), INTENT(IN) :: creation_prp_default
- INTEGER(HID_T), INTENT(IN) :: access_prp_default
- INTEGER :: namelen
- END FUNCTION h5fcreate_c
+ CHARACTER(KIND=C_CHAR), DIMENSION(*) :: name
+ INTEGER, VALUE :: access_flags
+ INTEGER(HID_T), VALUE :: creation_prp_default
+ INTEGER(HID_T), VALUE :: access_prp_default
+ END FUNCTION H5Fcreate
END INTERFACE
+ c_name = TRIM(name)//C_NULL_CHAR
+
creation_prp_default = H5P_DEFAULT_F
access_prp_default = H5P_DEFAULT_F
IF (PRESENT(creation_prp)) creation_prp_default = creation_prp
IF (PRESENT(access_prp)) access_prp_default = access_prp
- namelen = LEN_TRIM(name)
- hdferr = h5fcreate_c(name, namelen, access_flags, &
- creation_prp_default, access_prp_default, file_id)
+
+ file_id = h5fcreate(c_name, access_flags, &
+ creation_prp_default, access_prp_default)
+
+ hdferr = 0
+ IF(file_id.LT.0) hdferr = -1
END SUBROUTINE h5fcreate_f
+
!>
!! \ingroup FH5F
!!
-!! \brief Flushes all buffers associated with a file to disk
+!! \brief Asynchronously creates HDF5 files.
!!
-!! \param object_id Identifier of object used to identify the file.
-!! \param scope Specifies the scope of the flushing action. Possible values are:
-!! \li H5F_SCOPE_GLOBAL_F
-!! \li H5F_SCOPE_LOCAL_F
+!! \param name Name of the file to create
+!! \param access_flags File access flags. Allowable values are:
+!! \li H5F_ACC_TRUNC_F
+!! \li H5F_ACC_EXCL_F
+!! \param file_id File identifier
+!! \param es_id \es_id
!! \param hdferr \fortran_error
+!! \param creation_prp File creation property list identifier
+!! \param access_prp File access property list identifier
+!! \param file \fortran_file
+!! \param func \fortran_func
+!! \param line \fortran_line
+!!
+!! See C API: @ref H5Fcreate_async()
+!!
+ SUBROUTINE h5fcreate_async_f(name, access_flags, file_id, es_id, hdferr, &
+ creation_prp, access_prp, file, func, line)
+ IMPLICIT NONE
+ CHARACTER(LEN=*), INTENT(IN) :: name
+ INTEGER, INTENT(IN) :: access_flags
+ INTEGER(HID_T), INTENT(OUT) :: file_id
+ INTEGER(HID_T), INTENT(IN) :: es_id
+ INTEGER, INTENT(OUT) :: hdferr
+ INTEGER(HID_T), INTENT(IN), OPTIONAL :: creation_prp
+ INTEGER(HID_T), INTENT(IN), OPTIONAL :: access_prp
+ TYPE(C_PTR), OPTIONAL :: file
+ TYPE(C_PTR), OPTIONAL :: func
+ INTEGER , INTENT(IN), OPTIONAL :: line
+
+ INTEGER(HID_T) :: creation_prp_default
+ INTEGER(HID_T) :: access_prp_default
+ CHARACTER(LEN=LEN_TRIM(name)+1,KIND=C_CHAR) :: c_name
+ TYPE(C_PTR) :: file_default = C_NULL_PTR
+ TYPE(C_PTR) :: func_default = C_NULL_PTR
+ INTEGER(KIND=C_INT) :: line_default = 0
+
+ INTERFACE
+ INTEGER(HID_T) FUNCTION H5Fcreate_async(file, func, line, name, access_flags, &
+ creation_prp_default, access_prp_default, es_id) BIND(C,NAME='H5Fcreate_async')
+ IMPORT :: C_CHAR, C_INT, C_PTR
+ IMPORT :: HID_T
+ IMPLICIT NONE
+ TYPE(C_PTR), VALUE :: file
+ TYPE(C_PTR), VALUE :: func
+ INTEGER(C_INT), VALUE :: line
+ CHARACTER(KIND=C_CHAR), DIMENSION(*) :: name
+ INTEGER, VALUE :: access_flags
+ INTEGER(HID_T), VALUE :: creation_prp_default
+ INTEGER(HID_T), VALUE :: access_prp_default
+ INTEGER(HID_T), VALUE :: es_id
+ END FUNCTION H5Fcreate_async
+ END INTERFACE
+
+ c_name = TRIM(name)//C_NULL_CHAR
+
+ creation_prp_default = H5P_DEFAULT_F
+ access_prp_default = H5P_DEFAULT_F
+
+ IF(PRESENT(creation_prp)) creation_prp_default = creation_prp
+ IF(PRESENT(access_prp)) access_prp_default = access_prp
+ IF(PRESENT(file)) file_default = file
+ IF(PRESENT(func)) func_default = func
+ IF(PRESENT(line)) line_default = INT(line, C_INT)
+
+ file_id = H5Fcreate_async(file_default, func_default, line_default, &
+ c_name, access_flags, creation_prp_default, access_prp_default, es_id)
+
+ hdferr = 0
+ IF(file_id.LT.0) hdferr = -1
+
+ END SUBROUTINE h5fcreate_async_f
+!>
+!! \ingroup FH5F
+!!
+!! \brief Flushes all buffers associated with a file to disk.
+!!
+!! \param object_id Identifier of object used to identify the file.
+!! \param scope Specifies the scope of the flushing action. Possible values are:
+!! \li H5F_SCOPE_GLOBAL_F
+!! \li H5F_SCOPE_LOCAL_F
+!! \param hdferr \fortran_error
!!
!! See C API: @ref H5Fflush()
!!
@@ -131,20 +213,75 @@ CONTAINS
INTEGER, INTENT(OUT) :: hdferr
INTERFACE
- INTEGER FUNCTION h5fflush_c(object_id, scope) BIND(C,NAME='h5fflush_c')
+ INTEGER FUNCTION H5Fflush(object_id, scope) BIND(C,NAME='H5Fflush')
+ IMPORT :: C_INT
IMPORT :: HID_T
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: object_id
- INTEGER, INTENT(IN) :: scope
- END FUNCTION h5fflush_c
+ INTEGER(HID_T), VALUE :: object_id
+ INTEGER(C_INT), VALUE :: scope
+ END FUNCTION H5Fflush
END INTERFACE
- hdferr = h5fflush_c(object_id, scope)
+ hdferr = H5Fflush(object_id, INT(scope, C_INT))
END SUBROUTINE h5fflush_f
!>
!! \ingroup FH5F
!!
+!! \brief Asynchronously flushes all buffers associated with a file to disk.
+!!
+!! \param object_id Identifier of object used to identify the file.
+!! \param scope Specifies the scope of the flushing action. Possible values are:
+!! \li H5F_SCOPE_GLOBAL_F
+!! \li H5F_SCOPE_LOCAL_F
+!! \param es_id \es_id
+!! \param hdferr \fortran_error
+!! \param file \fortran_file
+!! \param func \fortran_func
+!! \param line \fortran_line
+!!
+!! See C API: @ref H5Fflush_async()
+!!
+ SUBROUTINE h5fflush_async_f(object_id, scope, es_id, hdferr, file, func, line)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: object_id
+ INTEGER, INTENT(IN) :: scope
+ INTEGER(HID_T), INTENT(IN) :: es_id
+ INTEGER, INTENT(OUT) :: hdferr
+ TYPE(C_PTR), OPTIONAL :: file
+ TYPE(C_PTR), OPTIONAL :: func
+ INTEGER , INTENT(IN), OPTIONAL :: line
+
+ TYPE(C_PTR) :: file_default = C_NULL_PTR
+ TYPE(C_PTR) :: func_default = C_NULL_PTR
+ INTEGER(KIND=C_INT) :: line_default = 0
+
+ INTERFACE
+ INTEGER FUNCTION H5Fflush_async(file, func, line, object_id, scope, es_id) &
+ BIND(C,NAME='H5Fflush_async')
+ IMPORT :: C_CHAR, C_INT, C_PTR
+ IMPORT :: HID_T
+ IMPLICIT NONE
+ TYPE(C_PTR), VALUE :: file
+ TYPE(C_PTR), VALUE :: func
+ INTEGER(C_INT), VALUE :: line
+ INTEGER(HID_T), VALUE :: object_id
+ INTEGER(C_INT), VALUE :: scope
+ INTEGER(HID_T), VALUE :: es_id
+ END FUNCTION H5Fflush_async
+ END INTERFACE
+
+ IF(PRESENT(file)) file_default = file
+ IF(PRESENT(func)) func_default = func
+ IF(PRESENT(line)) line_default = INT(line, C_INT)
+
+ hdferr = H5Fflush_async(file_default, func_default, line_default, &
+ object_id, INT(scope, C_INT), es_id)
+
+ END SUBROUTINE h5fflush_async_f
+!>
+!! \ingroup FH5F
+!!
!! \brief Mounts a file.
!!
!! \param loc_id The identifier for of file or group in which name is defined.
@@ -161,7 +298,7 @@ CONTAINS
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER(HID_T), INTENT(IN) :: child_id
INTEGER, INTENT(OUT) :: hdferr
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: access_prp
+ INTEGER(HID_T), INTENT(IN), OPTIONAL :: access_prp
INTEGER(HID_T) :: access_prp_default
INTEGER :: namelen ! Length of the name character string
@@ -219,6 +356,7 @@ CONTAINS
hdferr = h5funmount_c(loc_id, name, namelen)
END SUBROUTINE h5funmount_f
+
!>
!! \ingroup FH5F
!!
@@ -240,30 +378,106 @@ CONTAINS
INTEGER, INTENT(IN) :: access_flags
INTEGER(HID_T), INTENT(OUT) :: file_id
INTEGER, INTENT(OUT) :: hdferr
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: access_prp
+ INTEGER(HID_T), INTENT(IN), OPTIONAL :: access_prp
+
INTEGER(HID_T) :: access_prp_default
- INTEGER :: namelen ! Length of the name character string
+ CHARACTER(LEN=LEN_TRIM(name)+1,KIND=C_CHAR) :: c_name
INTERFACE
- INTEGER FUNCTION h5fopen_c(name, namelen, access_flags, &
- access_prp_default, file_id) BIND(C,NAME='h5fopen_c')
- IMPORT :: C_CHAR
+ INTEGER(HID_T) FUNCTION H5Fopen(name, access_flags, access_prp_default) &
+ BIND(C,NAME='H5Fopen')
+ IMPORT :: C_CHAR, C_INT, C_PTR
IMPORT :: HID_T
IMPLICIT NONE
- CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: name
- INTEGER :: namelen
- INTEGER, INTENT(IN) :: access_flags
- INTEGER(HID_T), INTENT(IN) :: access_prp_default
- INTEGER(HID_T), INTENT(OUT) :: file_id
- END FUNCTION h5fopen_c
+ CHARACTER(KIND=C_CHAR), DIMENSION(*) :: name
+ INTEGER(C_INT), VALUE :: access_flags
+ INTEGER(HID_T), VALUE :: access_prp_default
+ END FUNCTION H5Fopen
END INTERFACE
+ c_name = TRIM(name)//C_NULL_CHAR
+
access_prp_default = H5P_DEFAULT_F
- IF (PRESENT(access_prp)) access_prp_default = access_prp
- namelen = LEN_TRIM(name)
- hdferr = h5fopen_c(name, namelen, access_flags, &
- access_prp_default, file_id)
+
+ IF(PRESENT(access_prp)) access_prp_default = access_prp
+
+ file_id = H5Fopen(c_name, INT(access_flags, C_INT), access_prp_default)
+
+ hdferr = 0
+ IF(file_id.LT.0) hdferr = -1
+
END SUBROUTINE h5fopen_f
+
+!>
+!! \ingroup FH5F
+!!
+!! \brief Asynchronously opens HDF5 file.
+!!
+!! \param name Name of the file to acecss.
+!! \param access_flags File access flags. Allowable values are:
+!! \li H5F_ACC_RDWR_F
+!! \li H5F_ACC_RDONLY_F
+!! \param file_id File identifier
+!! \param es_id \es_id
+!! \param hdferr \fortran_error
+!! \param access_prp File access property list identifier
+!! \param file \fortran_file
+!! \param func \fortran_func
+!! \param line \fortran_line
+!!
+!! See C API: @ref H5Fopen_async()
+!!
+ SUBROUTINE h5fopen_async_f(name, access_flags, file_id, es_id, hdferr, &
+ access_prp, file, func, line)
+ IMPLICIT NONE
+ CHARACTER(LEN=*), INTENT(IN) :: name
+ INTEGER, INTENT(IN) :: access_flags
+ INTEGER(HID_T), INTENT(OUT) :: file_id
+ INTEGER(HID_T), INTENT(IN) :: es_id
+ INTEGER, INTENT(OUT) :: hdferr
+ INTEGER(HID_T), INTENT(IN), OPTIONAL :: access_prp
+ TYPE(C_PTR), OPTIONAL :: file
+ TYPE(C_PTR), OPTIONAL :: func
+ INTEGER , INTENT(IN), OPTIONAL :: line
+
+ INTEGER(HID_T) :: access_prp_default
+ CHARACTER(LEN=LEN_TRIM(name)+1,KIND=C_CHAR) :: c_name
+ TYPE(C_PTR) :: file_default = C_NULL_PTR
+ TYPE(C_PTR) :: func_default = C_NULL_PTR
+ INTEGER(KIND=C_INT) :: line_default = 0
+
+ INTERFACE
+ INTEGER(HID_T) FUNCTION H5Fopen_async(file, func, line, name, access_flags, access_prp_default, es_id) &
+ BIND(C,NAME='H5Fopen_async')
+ IMPORT :: C_CHAR, C_INT, C_PTR
+ IMPORT :: HID_T
+ IMPLICIT NONE
+ TYPE(C_PTR), VALUE :: file
+ TYPE(C_PTR), VALUE :: func
+ INTEGER(C_INT), VALUE :: line
+ CHARACTER(KIND=C_CHAR), DIMENSION(*) :: name
+ INTEGER(C_INT), VALUE :: access_flags
+ INTEGER(HID_T), VALUE :: access_prp_default
+ INTEGER(HID_T), VALUE :: es_id
+ END FUNCTION H5Fopen_async
+ END INTERFACE
+
+ c_name = TRIM(name)//C_NULL_CHAR
+
+ access_prp_default = H5P_DEFAULT_F
+
+ IF(PRESENT(access_prp)) access_prp_default = access_prp
+ IF(PRESENT(file)) file_default = file
+ IF(PRESENT(func)) func_default = func
+ IF(PRESENT(line)) line_default = INT(line, C_INT)
+
+ file_id = H5Fopen_async(file_default, func_default, line_default, &
+ c_name, INT(access_flags, C_INT), access_prp_default, es_id)
+
+ hdferr = 0
+ IF(file_id.LT.0) hdferr = -1
+
+ END SUBROUTINE h5fopen_async_f
!>
!! \ingroup FH5F
!!
@@ -281,20 +495,75 @@ CONTAINS
INTEGER(HID_T), INTENT(OUT) :: ret_file_id
INTEGER, INTENT(OUT) :: hdferr
INTERFACE
- INTEGER FUNCTION h5freopen_c(file_id, ret_file_id) BIND(C,NAME='h5freopen_c')
+ INTEGER(HID_T) FUNCTION H5Freopen(file_id) BIND(C,NAME='H5Freopen')
IMPORT :: HID_T
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: file_id
- INTEGER(HID_T), INTENT(OUT) :: ret_file_id
- END FUNCTION h5freopen_c
+ INTEGER(HID_T), VALUE :: file_id
+ END FUNCTION H5Freopen
END INTERFACE
- hdferr = h5freopen_c(file_id, ret_file_id)
+ ret_file_id = h5freopen(file_id)
+
+ hdferr = 0
+ IF(ret_file_id.LT.0) hdferr = -1
END SUBROUTINE h5freopen_f
!>
!! \ingroup FH5F
!!
+!! \brief Asynchronously reopens HDF5 file.
+!!
+!! \param file_id Identifier of a file for which an additional identifier is required.
+!! \param ret_file_id New file identifier.
+!! \param es_id \es_id
+!! \param hdferr \fortran_error
+!! \param file \fortran_file
+!! \param func \fortran_func
+!! \param line \fortran_line
+!!
+!! See C API: @ref H5Freopen_async()
+!!
+ SUBROUTINE h5freopen_async_f(file_id, ret_file_id, es_id, hdferr, file, func, line)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: file_id
+ INTEGER(HID_T), INTENT(OUT) :: ret_file_id
+ INTEGER(HID_T), INTENT(IN) :: es_id
+ INTEGER, INTENT(OUT) :: hdferr
+ TYPE(C_PTR), OPTIONAL :: file
+ TYPE(C_PTR), OPTIONAL :: func
+ INTEGER , INTENT(IN), OPTIONAL :: line
+
+ TYPE(C_PTR) :: file_default = C_NULL_PTR
+ TYPE(C_PTR) :: func_default = C_NULL_PTR
+ INTEGER(KIND=C_INT) :: line_default = 0
+
+ INTERFACE
+ INTEGER(HID_T) FUNCTION H5Freopen_async(file, func, line, file_id, es_id) &
+ BIND(C,NAME='H5Freopen_async')
+ IMPORT :: C_CHAR, C_INT, C_PTR
+ IMPORT :: HID_T
+ IMPLICIT NONE
+ TYPE(C_PTR), VALUE :: file
+ TYPE(C_PTR), VALUE :: func
+ INTEGER(C_INT), VALUE :: line
+ INTEGER(HID_T), VALUE :: file_id
+ INTEGER(HID_T), VALUE :: es_id
+ END FUNCTION H5Freopen_async
+ END INTERFACE
+
+ IF(PRESENT(file)) file_default = file
+ IF(PRESENT(func)) func_default = func
+ IF(PRESENT(line)) line_default = INT(line, C_INT)
+
+ ret_file_id = h5freopen_async(file_default, func_default, line_default, file_id, es_id)
+
+ hdferr = 0
+ IF(ret_file_id.LT.0) hdferr = -1
+
+ END SUBROUTINE h5freopen_async_f
+!>
+!! \ingroup FH5F
+!!
!! \brief Returns a file creation property list identifier.
!!
!! \param file_id Identifier of a file to creation property list of.
@@ -366,7 +635,7 @@ CONTAINS
CHARACTER(LEN=*), INTENT(IN) :: name
LOGICAL, INTENT(OUT) :: status
INTEGER, INTENT(OUT) :: hdferr
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: access_prp
+ INTEGER(HID_T), INTENT(IN), OPTIONAL :: access_prp
INTEGER(HID_T) :: access_prp_default
CHARACTER(LEN=LEN_TRIM(name)+1,KIND=C_CHAR) :: c_name
@@ -437,20 +706,70 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: file_id
INTEGER, INTENT(OUT) :: hdferr
INTERFACE
- INTEGER FUNCTION h5fclose_c(file_id) BIND(C,NAME='h5fclose_c')
+ INTEGER(C_INT) FUNCTION H5Fclose(file_id) BIND(C,NAME='H5Fclose')
+ IMPORT :: C_INT
IMPORT :: HID_T
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: file_id
- END FUNCTION h5fclose_c
+ INTEGER(HID_T), VALUE :: file_id
+ END FUNCTION H5Fclose
END INTERFACE
- hdferr = h5fclose_c(file_id)
+ hdferr = INT(H5Fclose(file_id))
END SUBROUTINE h5fclose_f
!>
!! \ingroup FH5F
!!
+!! \brief Asynchronously closes HDF5 file.
+!!
+!! \param file_id File identifier
+!! \param es_id \es_id
+!! \param hdferr \fortran_error
+!! \param file \fortran_file
+!! \param func \fortran_func
+!! \param line \fortran_line
+!!
+!! See C API: @ref H5Fclose_async()
+!!
+ SUBROUTINE h5fclose_async_f(file_id, es_id, hdferr, file, func, line)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: file_id
+ INTEGER(HID_T), INTENT(IN) :: es_id
+ INTEGER, INTENT(OUT) :: hdferr
+ TYPE(C_PTR), OPTIONAL :: file
+ TYPE(C_PTR), OPTIONAL :: func
+ INTEGER , INTENT(IN), OPTIONAL :: line
+
+ TYPE(C_PTR) :: file_default = C_NULL_PTR
+ TYPE(C_PTR) :: func_default = C_NULL_PTR
+ INTEGER(KIND=C_INT) :: line_default = 0
+
+ INTERFACE
+ INTEGER(C_INT) FUNCTION H5Fclose_async(file, func, line, file_id, es_id) &
+ BIND(C,NAME='H5Fclose_async')
+ IMPORT :: C_CHAR, C_INT, C_PTR
+ IMPORT :: HID_T
+ IMPLICIT NONE
+ TYPE(C_PTR), VALUE :: file
+ TYPE(C_PTR), VALUE :: func
+ INTEGER(C_INT), VALUE :: line
+ INTEGER(HID_T), VALUE :: file_id
+ INTEGER(HID_T), VALUE :: es_id
+ END FUNCTION H5Fclose_async
+ END INTERFACE
+
+ IF(PRESENT(file)) file_default = file
+ IF(PRESENT(func)) func_default = func
+ IF(PRESENT(line)) line_default = INT(line, C_INT)
+
+ hdferr = INT(H5Fclose_async(file_default, func_default, line_default, file_id, es_id))
+
+ END SUBROUTINE h5fclose_async_f
+
+!>
+!! \ingroup FH5F
+!!
!! \brief Gets number of the objects open within a file
!!
!! \param file_id File identifier.