diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-16 22:09:32 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-16 22:09:32 (GMT) |
| commit | d7fd1ed9c789dedad5d623a41abf8006e360f410 (patch) | |
| tree | d777d50bb5f9e4616f130ac4e41cb66528eb3531 /fortran/src | |
| parent | b8c6d8191cbdfd228efab639f90341a95929c127 (diff) | |
| download | hdf5-d7fd1ed9c789dedad5d623a41abf8006e360f410.zip hdf5-d7fd1ed9c789dedad5d623a41abf8006e360f410.tar.gz hdf5-d7fd1ed9c789dedad5d623a41abf8006e360f410.tar.bz2 | |
[svn-r26830] Added BIND(C) to Fortran H5R APIs.
Diffstat (limited to 'fortran/src')
| -rw-r--r-- | fortran/src/H5Rff.F90 | 36 |
1 files changed, 21 insertions, 15 deletions
diff --git a/fortran/src/H5Rff.F90 b/fortran/src/H5Rff.F90 index 69455c8..f9b6b68 100644 --- a/fortran/src/H5Rff.F90 +++ b/fortran/src/H5Rff.F90 @@ -33,9 +33,9 @@ ! !***** -MODULE H5R +MODULE H5R + USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR, C_SIGNED_CHAR USE H5GLOBAL - USE, INTRINSIC :: ISO_C_BINDING ! If you change the value of these parameters, do not forget to change corresponding ! values in the H5f90.h file. @@ -96,8 +96,9 @@ MODULE H5R INTERFACE INTEGER FUNCTION h5rget_name_ptr_c(loc_id, ref_type, ref, name, name_len, size_default) & BIND(C, NAME='h5rget_name_ptr_c') - USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_char, c_ptr - USE H5GLOBAL + IMPORT :: c_char, c_ptr + IMPORT :: HID_T, SIZE_T + IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id INTEGER, INTENT(IN) :: ref_type TYPE(C_PTR), INTENT(IN), VALUE :: ref @@ -110,8 +111,9 @@ MODULE H5R INTERFACE INTEGER FUNCTION h5rdereference_ptr_c(obj_id, ref_type, ref, ref_obj_id) & BIND(C, NAME='h5rdereference_ptr_c') - USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_ptr - USE H5GLOBAL + IMPORT :: c_ptr + IMPORT :: HID_T + IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id INTEGER, INTENT(IN) :: ref_type TYPE(C_PTR), INTENT(IN), VALUE :: ref @@ -122,8 +124,9 @@ MODULE H5R INTERFACE INTEGER FUNCTION h5rcreate_ptr_c(ref, loc_id, name, namelen, ref_type, space_id) & BIND(C, NAME='h5rcreate_ptr_c') - USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_char, c_ptr - USE H5GLOBAL + IMPORT :: c_ptr, c_char + IMPORT :: HID_T + IMPLICIT NONE TYPE(C_PTR), VALUE :: ref INTEGER(HID_T), INTENT(IN) :: loc_id CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: name @@ -136,8 +139,9 @@ MODULE H5R INTERFACE INTEGER FUNCTION h5rget_region_ptr_c(dset_id, ref, space_id) & BIND(C, NAME='h5rget_region_ptr_c') - USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_ptr - USE H5GLOBAL + IMPORT :: c_ptr + IMPORT :: HID_T + IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id TYPE(C_PTR), VALUE :: ref INTEGER(HID_T), INTENT(OUT) :: space_id @@ -195,7 +199,8 @@ CONTAINS INTERFACE INTEGER FUNCTION h5rget_object_type_obj_c(dset_id, ref_f, obj_type) BIND(C, NAME='h5rget_object_type_obj_c') - USE H5GLOBAL + IMPORT :: HID_T, HADDR_T + IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id INTEGER(HADDR_T) :: ref_f INTEGER, INTENT(OUT) :: obj_type @@ -247,7 +252,7 @@ CONTAINS INTERFACE INTEGER FUNCTION h5rget_region_region_c(dset_id, ref_f, space_id) BIND(C, NAME='h5rget_region_region_c') - USE H5GLOBAL + IMPORT :: HID_T, REF_REG_BUF_LEN IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id INTEGER :: ref_f(REF_REG_BUF_LEN) @@ -386,7 +391,7 @@ CONTAINS INTERFACE INTEGER FUNCTION h5rcreate_region_c(ref_f, loc_id, name, namelen, space_id) BIND(C,NAME='h5rcreate_region_c') - USE H5GLOBAL + IMPORT :: HID_T, REF_REG_BUF_LEN IMPORT :: C_CHAR IMPLICIT NONE INTEGER :: ref_f(REF_REG_BUF_LEN) @@ -763,8 +768,9 @@ CONTAINS INTERFACE INTEGER FUNCTION h5rget_obj_type_c(loc_id, ref_type, ref, obj_type) & BIND(C, NAME='h5rget_obj_type_c') - USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_ptr - USE H5GLOBAL + IMPORT :: C_PTR + IMPORT :: HID_T + IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: loc_id INTEGER, INTENT(IN) :: ref_type TYPE(C_PTR), VALUE :: ref |