summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5_buildiface.F90
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2023-04-21 16:07:48 (GMT)
committerGitHub <noreply@github.com>2023-04-21 16:07:48 (GMT)
commitdef21b1e33f2499ed4d51af0708d12242d63fa63 (patch)
tree50c816935eb0672962b68c8e702ad28d291637c5 /fortran/src/H5_buildiface.F90
parent07c4360b4d4f8459571815d624522eb7e01b02f6 (diff)
downloadhdf5-def21b1e33f2499ed4d51af0708d12242d63fa63.zip
hdf5-def21b1e33f2499ed4d51af0708d12242d63fa63.tar.gz
hdf5-def21b1e33f2499ed4d51af0708d12242d63fa63.tar.bz2
Added Fortran Async APIs (#2715)
H5A, H5D, H5ES, H5G, H5F, H5L and H5O async APIs were added.
Diffstat (limited to 'fortran/src/H5_buildiface.F90')
-rw-r--r--fortran/src/H5_buildiface.F9036
1 files changed, 18 insertions, 18 deletions
diff --git a/fortran/src/H5_buildiface.F90 b/fortran/src/H5_buildiface.F90
index c473e51..4572b4c 100644
--- a/fortran/src/H5_buildiface.F90
+++ b/fortran/src/H5_buildiface.F90
@@ -717,9 +717,9 @@ PROGRAM H5_buildiface
WRITE(11,'(A)') ' INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims'
WRITE(11,'(A)') ' REAL(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(INOUT)'//TRIM(rank_dim_line(j))//', TARGET :: buf'
WRITE(11,'(A)') ' INTEGER, INTENT(OUT) :: hdferr'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp'
WRITE(11,'(A)') ' INTEGER(HID_T) :: xfer_prp_default'
WRITE(11,'(A)') ' INTEGER(HID_T) :: mem_space_id_default'
WRITE(11,'(A)') ' INTEGER(HID_T) :: file_space_id_default'
@@ -756,9 +756,9 @@ PROGRAM H5_buildiface
WRITE(11,'(A)') ' INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims'
WRITE(11,'(A)') ' INTEGER(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(INOUT)'//TRIM(rank_dim_line(j))//', TARGET :: buf'
WRITE(11,'(A)') ' INTEGER, INTENT(OUT) :: hdferr'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp'
WRITE(11,'(A)') ' INTEGER(HID_T) :: xfer_prp_default'
WRITE(11,'(A)') ' INTEGER(HID_T) :: mem_space_id_default'
WRITE(11,'(A)') ' INTEGER(HID_T) :: file_space_id_default'
@@ -790,9 +790,9 @@ PROGRAM H5_buildiface
WRITE(11,'(A)') ' INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims'
WRITE(11,'(A)') ' CHARACTER(LEN=*), INTENT(INOUT)'//TRIM(rank_dim_line(j))//', TARGET :: buf'
WRITE(11,'(A)') ' INTEGER, INTENT(OUT) :: hdferr'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp'
WRITE(11,'(A)') ' INTEGER(HID_T) :: xfer_prp_default'
WRITE(11,'(A)') ' INTEGER(HID_T) :: mem_space_id_default'
WRITE(11,'(A)') ' INTEGER(HID_T) :: file_space_id_default'
@@ -829,9 +829,9 @@ PROGRAM H5_buildiface
WRITE(11,'(A)') ' INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims'
WRITE(11,'(A)') ' REAL(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(IN)'//TRIM(rank_dim_line(j))//', TARGET :: buf'
WRITE(11,'(A)') ' INTEGER, INTENT(OUT) :: hdferr'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp'
WRITE(11,'(A)') ' INTEGER(HID_T) :: xfer_prp_default'
WRITE(11,'(A)') ' INTEGER(HID_T) :: mem_space_id_default'
WRITE(11,'(A)') ' INTEGER(HID_T) :: file_space_id_default'
@@ -867,9 +867,9 @@ PROGRAM H5_buildiface
WRITE(11,'(A)') ' INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims'
WRITE(11,'(A)') ' INTEGER(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(IN)'//TRIM(rank_dim_line(j))//', TARGET :: buf'
WRITE(11,'(A)') ' INTEGER, INTENT(OUT) :: hdferr'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp'
WRITE(11,'(A)') ' INTEGER(HID_T) :: xfer_prp_default'
WRITE(11,'(A)') ' INTEGER(HID_T) :: mem_space_id_default'
WRITE(11,'(A)') ' INTEGER(HID_T) :: file_space_id_default'
@@ -900,9 +900,9 @@ PROGRAM H5_buildiface
WRITE(11,'(A)') ' INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims'
WRITE(11,'(A)') ' CHARACTER(LEN=*),INTENT(IN)'//TRIM(rank_dim_line(j))//', TARGET :: buf'
WRITE(11,'(A)') ' INTEGER, INTENT(OUT) :: hdferr'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id'
- WRITE(11,'(A)') ' INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id'
+ WRITE(11,'(A)') ' INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp'
WRITE(11,'(A)') ' INTEGER(HID_T) :: xfer_prp_default'
WRITE(11,'(A)') ' INTEGER(HID_T) :: mem_space_id_default'
WRITE(11,'(A)') ' INTEGER(HID_T) :: file_space_id_default'