summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2023-05-17 15:38:31 (GMT)
committerGitHub <noreply@github.com>2023-05-17 15:38:31 (GMT)
commit560e7d6728f2003784b550530a3424a61ade04d5 (patch)
tree3141318ae88f9f9e028fe4cd49cefe23972bdf92 /fortran/src
parente1f346377f3d7cf97b66f5633748716595db22e2 (diff)
downloadhdf5-560e7d6728f2003784b550530a3424a61ade04d5.zip
hdf5-560e7d6728f2003784b550530a3424a61ade04d5.tar.gz
hdf5-560e7d6728f2003784b550530a3424a61ade04d5.tar.bz2
Updated INTENT to IN for C_PTR types dummy args. (#2961)
* Changed to INTENT(IN) for C_PTR dummy args since it refers to whether C_PTR can be changed and does not relate to the INTENT state of the target.
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5Aff.F9076
-rw-r--r--fortran/src/H5Dff.F9056
-rw-r--r--fortran/src/H5Fff.F9020
-rw-r--r--fortran/src/H5Gff.F9024
-rw-r--r--fortran/src/H5Lff.F9026
-rw-r--r--fortran/src/H5Off.F9030
-rw-r--r--fortran/src/H5Pff.F9020
-rw-r--r--fortran/src/H5Tff.F9014
8 files changed, 133 insertions, 133 deletions
diff --git a/fortran/src/H5Aff.F90 b/fortran/src/H5Aff.F90
index fab86bd..8159731 100644
--- a/fortran/src/H5Aff.F90
+++ b/fortran/src/H5Aff.F90
@@ -229,8 +229,8 @@ CONTAINS
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T) , INTENT(IN), OPTIONAL :: acpl_id
INTEGER(HID_T) , INTENT(IN), OPTIONAL :: aapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: acpl_id_default
@@ -622,8 +622,8 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
TYPE(C_PTR) :: file_default = C_NULL_PTR
@@ -797,8 +797,8 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: lapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: lapl_id_default
@@ -908,8 +908,8 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: aapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN) , OPTIONAL :: line
INTEGER(HID_T) :: aapl_id_default
@@ -1178,8 +1178,8 @@ CONTAINS
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: aapl_id
INTEGER(HID_T), INTENT(IN), OPTIONAL :: lapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN) , OPTIONAL :: line
INTEGER(HID_T) :: aapl_id_default
@@ -1534,8 +1534,8 @@ CONTAINS
INTEGER(HID_T), INTENT(IN), OPTIONAL :: acpl_id
INTEGER(HID_T), INTENT(IN), OPTIONAL :: aapl_id
INTEGER(HID_T), INTENT(IN), OPTIONAL :: lapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: acpl_id_default
@@ -1657,11 +1657,11 @@ CONTAINS
IMPLICIT NONE
INTEGER(HID_T) , INTENT(IN) :: obj_id
CHARACTER(LEN=*), INTENT(IN) :: attr_name
- TYPE(C_PTR) , INTENT(INOUT) :: attr_exists
+ TYPE(C_PTR) , INTENT(IN) :: attr_exists
INTEGER(HID_T) , INTENT(IN) :: es_id
INTEGER , INTENT(OUT) :: hdferr
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
CHARACTER(LEN=LEN_TRIM(attr_name)+1,KIND=C_CHAR) :: c_attr_name
@@ -1774,12 +1774,12 @@ CONTAINS
INTEGER (HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: obj_name
CHARACTER(LEN=*), INTENT(IN) :: attr_name
- TYPE(C_PTR) , INTENT(INOUT) :: attr_exists
+ TYPE(C_PTR) , INTENT(IN) :: attr_exists
INTEGER (HID_T), INTENT(IN) :: es_id
INTEGER , INTENT(OUT) :: hdferr
INTEGER (HID_T), INTENT(IN) , OPTIONAL :: lapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN) , OPTIONAL :: line
INTEGER(HID_T) :: lapl_id_default
@@ -1912,8 +1912,8 @@ CONTAINS
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: aapl_id
INTEGER(HID_T), INTENT(IN), OPTIONAL :: lapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: aapl_id_default
@@ -2026,8 +2026,8 @@ CONTAINS
CHARACTER(LEN=*), INTENT(IN) :: new_attr_name
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
TYPE(C_PTR) :: file_default = C_NULL_PTR
@@ -2084,13 +2084,13 @@ CONTAINS
SUBROUTINE h5aread_async_f(attr_id, mem_type_id, buf, es_id, hdferr, file, func, line)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id
- INTEGER(HID_T), INTENT(IN) :: mem_type_id
- TYPE(C_PTR) , INTENT(INOUT) :: buf
- INTEGER(HID_T), INTENT(IN) :: es_id
- INTEGER , INTENT(OUT) :: hdferr
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ INTEGER(HID_T), INTENT(IN) :: attr_id
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id
+ TYPE(C_PTR) , INTENT(IN) :: buf
+ INTEGER(HID_T), INTENT(IN) :: es_id
+ INTEGER , INTENT(OUT) :: hdferr
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
TYPE(C_PTR) :: file_default = C_NULL_PTR
@@ -2140,11 +2140,11 @@ CONTAINS
SUBROUTINE h5awrite_async_f(attr_id, mem_type_id, buf, es_id, hdferr, file, func, line)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id
- INTEGER(HID_T), INTENT(IN) :: mem_type_id
- TYPE(C_PTR) , INTENT(IN) :: buf
- INTEGER(HID_T), INTENT(IN) :: es_id
- INTEGER , INTENT(OUT) :: hdferr
+ INTEGER(HID_T), INTENT(IN) :: attr_id
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id
+ TYPE(C_PTR) , INTENT(IN) :: buf
+ 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
@@ -2239,10 +2239,10 @@ CONTAINS
!! See C API: @ref H5Aread()
!!
SUBROUTINE h5aread_f(attr_id, memtype_id, buf, hdferr)
- INTEGER(HID_T), INTENT(IN) :: attr_id
- INTEGER(HID_T), INTENT(IN) :: memtype_id
- TYPE(C_PTR) , INTENT(INOUT) :: buf
- INTEGER , INTENT(OUT) :: hdferr
+ INTEGER(HID_T), INTENT(IN) :: attr_id
+ INTEGER(HID_T), INTENT(IN) :: memtype_id
+ TYPE(C_PTR) , INTENT(IN) :: buf
+ INTEGER , INTENT(OUT) :: hdferr
END SUBROUTINE h5aread_f
!>
diff --git a/fortran/src/H5Dff.F90 b/fortran/src/H5Dff.F90
index 06034ac..21f13fd 100644
--- a/fortran/src/H5Dff.F90
+++ b/fortran/src/H5Dff.F90
@@ -311,8 +311,8 @@ CONTAINS
INTEGER(HID_T), INTENT(IN), OPTIONAL :: dcpl_id
INTEGER(HID_T), INTENT(IN), OPTIONAL :: lcpl_id
INTEGER(HID_T), INTENT(IN), OPTIONAL :: dapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: lcpl_id_default
@@ -439,8 +439,8 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: dapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: dapl_id_default
@@ -528,8 +528,8 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
TYPE(C_PTR) :: file_default = C_NULL_PTR
@@ -673,8 +673,8 @@ CONTAINS
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: fsize
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
TYPE(C_PTR) :: file_default = C_NULL_PTR
@@ -1377,8 +1377,8 @@ CONTAINS
INTEGER(HID_T), INTENT(OUT) :: dataspace_id
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
TYPE(C_PTR) :: file_default = C_NULL_PTR
@@ -1455,11 +1455,11 @@ CONTAINS
!!
SUBROUTINE h5dvlen_reclaim_f(type_id, space_id, plist_id, buf, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id
- INTEGER(HID_T), INTENT(IN) :: space_id
- INTEGER(HID_T), INTENT(IN) :: plist_id
- TYPE(C_PTR) , INTENT(INOUT) :: buf
- INTEGER , INTENT(OUT) :: hdferr
+ INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(HID_T), INTENT(IN) :: plist_id
+ TYPE(C_PTR) , INTENT(IN) :: buf
+ INTEGER , INTENT(OUT) :: hdferr
INTERFACE
INTEGER FUNCTION h5dvlen_reclaim_c(type_id, space_id, plist_id, buf) BIND(C, NAME='h5dvlen_reclaim_c')
@@ -1502,14 +1502,14 @@ CONTAINS
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
- TYPE(C_PTR), INTENT(INOUT) :: buf
+ TYPE(C_PTR), INTENT(IN) :: buf
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id
INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id
INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
TYPE(C_PTR) :: file_default = C_NULL_PTR
@@ -1575,8 +1575,8 @@ CONTAINS
INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id
INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id
INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
TYPE(C_PTR) :: file_default = C_NULL_PTR
@@ -1662,7 +1662,7 @@ CONTAINS
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
- TYPE(C_PTR), INTENT(INOUT) :: buf
+ TYPE(C_PTR), INTENT(IN) :: buf
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id
INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id
@@ -1773,9 +1773,9 @@ CONTAINS
SUBROUTINE h5dfill_f(fill_value, fill_type_id, buf, buf_type_id, space_id, hdferr)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
IMPLICIT NONE
- TYPE(C_PTR) :: fill_value
+ TYPE(C_PTR), INTENT(IN) :: fill_value
INTEGER(HID_T), INTENT(IN) :: fill_type_id
- TYPE(C_PTR) :: buf
+ TYPE(C_PTR), INTENT(IN) :: buf
INTEGER(HID_T), INTENT(IN) :: buf_type_id
INTEGER(HID_T), INTENT(IN) :: space_id
END SUBROUTINE h5dfill_f
@@ -2101,7 +2101,7 @@ CONTAINS
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
- TYPE(C_PTR), INTENT(INOUT) :: buf
+ TYPE(C_PTR), INTENT(IN) :: buf
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id
INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id
@@ -2126,9 +2126,9 @@ CONTAINS
SUBROUTINE h5dfill_ptr(fill_value, fill_type_id, buf, buf_type_id, space_id, hdferr)
IMPLICIT NONE
- TYPE(C_PTR) :: fill_value
+ TYPE(C_PTR) , INTENT(IN) :: fill_value
INTEGER(HID_T), INTENT(IN) :: fill_type_id
- TYPE(C_PTR) :: buf
+ TYPE(C_PTR) , INTENT(IN) :: buf
INTEGER(HID_T), INTENT(IN) :: buf_type_id
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER, INTENT(OUT) :: hdferr
@@ -2288,7 +2288,7 @@ CONTAINS
INTEGER(HID_T), INTENT(IN), DIMENSION(*) :: mem_type_id
INTEGER(HID_T), INTENT(IN), DIMENSION(*) :: mem_space_id
INTEGER(HID_T), INTENT(IN), DIMENSION(*) :: file_space_id
- TYPE(C_PTR), DIMENSION(*) :: buf
+ TYPE(C_PTR), INTENT(IN), DIMENSION(*) :: buf
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp
@@ -2339,7 +2339,7 @@ CONTAINS
INTEGER(HID_T), INTENT(IN), DIMENSION(*) :: mem_type_id
INTEGER(HID_T), INTENT(IN), DIMENSION(*) :: mem_space_id
INTEGER(HID_T), INTENT(IN), DIMENSION(*) :: file_space_id
- TYPE(C_PTR), DIMENSION(*) :: buf
+ TYPE(C_PTR), INTENT(IN), DIMENSION(*) :: buf
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp
diff --git a/fortran/src/H5Fff.F90 b/fortran/src/H5Fff.F90
index f1a0d2a..d7db4b8 100644
--- a/fortran/src/H5Fff.F90
+++ b/fortran/src/H5Fff.F90
@@ -147,8 +147,8 @@ CONTAINS
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
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: creation_prp_default
@@ -248,8 +248,8 @@ CONTAINS
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
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
TYPE(C_PTR) :: file_default = C_NULL_PTR
@@ -436,8 +436,8 @@ CONTAINS
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
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: access_prp_default
@@ -529,8 +529,8 @@ CONTAINS
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
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
TYPE(C_PTR) :: file_default = C_NULL_PTR
@@ -737,8 +737,8 @@ CONTAINS
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
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
TYPE(C_PTR) :: file_default = C_NULL_PTR
diff --git a/fortran/src/H5Gff.F90 b/fortran/src/H5Gff.F90
index 655c226..f961299 100644
--- a/fortran/src/H5Gff.F90
+++ b/fortran/src/H5Gff.F90
@@ -287,8 +287,8 @@ CONTAINS
INTEGER(HID_T) , INTENT(IN), OPTIONAL :: lcpl_id
INTEGER(HID_T) , INTENT(IN), OPTIONAL :: gcpl_id
INTEGER(HID_T) , INTENT(IN), OPTIONAL :: gapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: lcpl_id_default
@@ -438,8 +438,8 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: gapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: gapl_id_default
@@ -522,8 +522,8 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: grp_id
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
TYPE(C_PTR) :: file_default = C_NULL_PTR
@@ -1092,8 +1092,8 @@ CONTAINS
TYPE(H5G_info_t), INTENT(OUT), TARGET :: ginfo
INTEGER(HID_T) , INTENT(IN) :: es_id
INTEGER , INTENT(OUT) :: hdferr
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
TYPE(C_PTR) :: ptr
@@ -1256,8 +1256,8 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: lapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: lapl_id_default
@@ -1430,8 +1430,8 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: lapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: lapl_id_default
diff --git a/fortran/src/H5Lff.F90 b/fortran/src/H5Lff.F90
index 9111144..790a65d 100644
--- a/fortran/src/H5Lff.F90
+++ b/fortran/src/H5Lff.F90
@@ -196,8 +196,8 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: lapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: lapl_id_default
@@ -318,8 +318,8 @@ CONTAINS
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: lcpl_id
INTEGER(HID_T), INTENT(IN), OPTIONAL :: lapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: lcpl_id_default
@@ -451,8 +451,8 @@ CONTAINS
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: lcpl_id
INTEGER(HID_T), INTENT(IN), OPTIONAL :: lapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: lcpl_id_default
@@ -664,8 +664,8 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: lapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: lapl_id_default
@@ -779,12 +779,12 @@ CONTAINS
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
- TYPE(C_PTR) , INTENT(INOUT) :: link_exists
+ TYPE(C_PTR) , INTENT(IN) :: link_exists
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER, INTENT(OUT) :: hdferr
INTEGER(HID_T), INTENT(IN), OPTIONAL :: lapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: lapl_id_default
@@ -1388,8 +1388,8 @@ CONTAINS
INTEGER , INTENT(OUT) :: return_value
INTEGER(HID_T) , INTENT(IN) :: es_id
INTEGER , INTENT(OUT) :: hdferr
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
TYPE(C_PTR) :: file_default = C_NULL_PTR
diff --git a/fortran/src/H5Off.F90 b/fortran/src/H5Off.F90
index 215f6e8..7810b6e 100644
--- a/fortran/src/H5Off.F90
+++ b/fortran/src/H5Off.F90
@@ -283,8 +283,8 @@ CONTAINS
INTEGER(HID_T) , INTENT(IN) :: es_id
INTEGER , INTENT(OUT) :: hdferr
INTEGER(HID_T) , INTENT(IN), OPTIONAL :: lapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: lapl_id_default
@@ -368,8 +368,8 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: object_id
INTEGER(HID_T), INTENT(IN) :: es_id
INTEGER , INTENT(OUT) :: hdferr
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
TYPE(C_PTR) :: file_default = C_NULL_PTR
@@ -516,8 +516,8 @@ CONTAINS
INTEGER , INTENT(OUT) :: hdferr
INTEGER(HID_T) , INTENT(IN), OPTIONAL :: ocpypl_id
INTEGER(HID_T) , INTENT(IN), OPTIONAL :: lcpl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: ocpypl_id_default, lcpl_id_default
@@ -867,8 +867,8 @@ CONTAINS
INTEGER(HID_T) , INTENT(IN) :: es_id
INTEGER , INTENT(OUT) :: hdferr
INTEGER(HID_T) , INTENT(IN), OPTIONAL :: lapl_id
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN), OPTIONAL :: line
INTEGER(HID_T) :: lapl_id_default
@@ -1026,8 +1026,8 @@ CONTAINS
INTEGER, INTENT(IN) :: index_type
INTEGER, INTENT(IN) :: order
- TYPE(C_FUNPTR):: op
- TYPE(C_PTR) :: op_data
+ TYPE(C_FUNPTR), INTENT(IN) :: op
+ TYPE(C_PTR), INTENT(IN) :: op_data
INTEGER, INTENT(OUT) :: return_value
INTEGER, INTENT(OUT) :: hdferr
INTEGER, INTENT(IN), OPTIONAL :: fields
@@ -1133,13 +1133,13 @@ CONTAINS
IMPLICIT NONE
INTEGER(HID_T) , INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
- TYPE(C_PTR) , INTENT(INOUT) :: object_info
+ TYPE(C_PTR) , INTENT(IN) :: object_info
INTEGER(HID_T) , INTENT(IN) :: es_id
INTEGER , INTENT(OUT) :: hdferr
INTEGER(HID_T) , INTENT(IN) , OPTIONAL :: lapl_id
INTEGER , INTENT(IN) , OPTIONAL :: fields
- TYPE(C_PTR), OPTIONAL :: file
- TYPE(C_PTR), OPTIONAL :: func
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: file
+ TYPE(C_PTR), OPTIONAL, INTENT(IN) :: func
INTEGER , INTENT(IN) , OPTIONAL :: line
CHARACTER(LEN=LEN_TRIM(name)+1,KIND=C_CHAR) :: c_name
@@ -1326,8 +1326,8 @@ CONTAINS
INTEGER , INTENT(IN) :: index_type
INTEGER , INTENT(IN) :: order
- TYPE(C_FUNPTR) :: op
- TYPE(C_PTR) :: op_data
+ TYPE(C_FUNPTR) , INTENT(IN) :: op
+ TYPE(C_PTR) , INTENT(IN) :: op_data
INTEGER , INTENT(OUT) :: return_value
INTEGER , INTENT(OUT) :: hdferr
INTEGER(HID_T) , INTENT(IN) , OPTIONAL :: lapl_id
diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90
index 098a6c3..5ccc367 100644
--- a/fortran/src/H5Pff.F90
+++ b/fortran/src/H5Pff.F90
@@ -4457,7 +4457,7 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
SUBROUTINE h5pget_f(prp_id, name, value, hdferr)
INTEGER(HID_T) , INTENT(IN) :: prp_id
CHARACTER(LEN=*), INTENT(IN) :: name
- TYPE(C_PTR) , INTENT(OUT) :: value
+ TYPE(C_PTR) , INTENT(IN) :: value
INTEGER , INTENT(OUT) :: hdferr
END SUBROUTINE h5pget_f
@@ -4675,7 +4675,7 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HID_T), INTENT(IN) :: type_id
- TYPE(C_PTR) :: fillvalue
+ TYPE(C_PTR) , INTENT(IN) :: fillvalue
INTEGER , INTENT(OUT) :: hdferr
hdferr = h5pget_fill_value_c(prp_id, type_id, fillvalue)
@@ -4825,7 +4825,7 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id
CHARACTER(LEN=*), INTENT(IN) :: name
- TYPE(C_PTR), INTENT(INOUT) :: value
+ TYPE(C_PTR), INTENT(IN) :: value
INTEGER, INTENT(OUT) :: hdferr
INTEGER :: name_len
@@ -4998,8 +4998,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER(HID_T) , INTENT(OUT) :: class
INTEGER , INTENT(OUT) :: hdferr
- TYPE(C_PTR) , OPTIONAL :: create_data, copy_data, close_data
- TYPE(C_FUNPTR) , OPTIONAL :: create, copy, close
+ TYPE(C_PTR) , OPTIONAL, INTENT(IN) :: create_data, copy_data, close_data
+ TYPE(C_FUNPTR) , OPTIONAL, INTENT(IN) :: create, copy, close
INTEGER :: name_len
TYPE(C_PTR) :: create_data_default, copy_data_default, close_data_default
TYPE(C_FUNPTR) :: create_default, copy_default, close_default
@@ -5090,10 +5090,10 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
!!
SUBROUTINE h5pget_file_image_f(fapl_id, buf_ptr, buf_len_ptr, hdferr)
IMPLICIT NONE
- INTEGER(HID_T) , INTENT(IN) :: fapl_id
- TYPE(C_PTR) , INTENT(INOUT), DIMENSION(*) :: buf_ptr
- INTEGER(SIZE_T), INTENT(OUT) :: buf_len_ptr
- INTEGER , INTENT(OUT) :: hdferr
+ INTEGER(HID_T) , INTENT(IN) :: fapl_id
+ TYPE(C_PTR) , INTENT(IN), DIMENSION(*) :: buf_ptr
+ INTEGER(SIZE_T), INTENT(OUT) :: buf_len_ptr
+ INTEGER , INTENT(OUT) :: hdferr
INTERFACE
INTEGER FUNCTION h5pget_file_image_c(fapl_id, buf_ptr, buf_len_ptr) &
@@ -6114,7 +6114,7 @@ END SUBROUTINE h5pget_virtual_dsetname_f
INTEGER(HID_T) , INTENT(IN) :: plist_id
INTEGER(HID_T) , INTENT(IN) :: new_vol_id
INTEGER , INTENT(OUT) :: hdferr
- TYPE(C_PTR) , OPTIONAL :: new_vol_info
+ TYPE(C_PTR) , INTENT(IN), OPTIONAL :: new_vol_info
TYPE(C_PTR) :: new_vol_info_default
diff --git a/fortran/src/H5Tff.F90 b/fortran/src/H5Tff.F90
index 84b9654..29550b7 100644
--- a/fortran/src/H5Tff.F90
+++ b/fortran/src/H5Tff.F90
@@ -2040,13 +2040,13 @@ CONTAINS
!!
SUBROUTINE h5tconvert_f(src_id, dst_id, nelmts, buf, hdferr, background, plist_id)
IMPLICIT NONE
- INTEGER(HID_T) , INTENT(IN) :: src_id
- INTEGER(HID_T) , INTENT(IN) :: dst_id
- INTEGER(SIZE_T), INTENT(IN) :: nelmts
- TYPE(C_PTR) , INTENT(INOUT) :: buf
- INTEGER , INTENT(OUT) :: hdferr
- TYPE(C_PTR) , INTENT(INOUT), OPTIONAL :: background
- INTEGER(HID_T) , INTENT(IN) , OPTIONAL :: plist_id
+ INTEGER(HID_T) , INTENT(IN) :: src_id
+ INTEGER(HID_T) , INTENT(IN) :: dst_id
+ INTEGER(SIZE_T), INTENT(IN) :: nelmts
+ TYPE(C_PTR) , INTENT(IN) :: buf
+ INTEGER , INTENT(OUT) :: hdferr
+ TYPE(C_PTR) , INTENT(IN), OPTIONAL :: background
+ INTEGER(HID_T) , INTENT(IN), OPTIONAL :: plist_id
INTEGER(HID_T) :: plist_id_default
TYPE(C_PTR) :: background_default