diff options
| author | Mohamad Chaarawi <chaarawi@hdfgroup.org> | 2016-04-15 16:11:52 (GMT) |
|---|---|---|
| committer | Mohamad Chaarawi <chaarawi@hdfgroup.org> | 2016-04-15 16:11:52 (GMT) |
| commit | 88dbe657cf1e0975e7a837b90d39e11566f7bfb3 (patch) | |
| tree | 002c2e760ae699e17203b7f9f79019a3fb84bc6e /fortran | |
| parent | 257689f6b4511ed3031d08d638550aa2e864d294 (diff) | |
| parent | 18e360b9fa7fdce30a25d62a7139b9e69c56bf01 (diff) | |
| download | hdf5-inactive/multi_rd_wd_coll_io.zip hdf5-inactive/multi_rd_wd_coll_io.tar.gz hdf5-inactive/multi_rd_wd_coll_io.tar.bz2 | |
[svn-r29709] another merge from trunk.inactive/multi_rd_wd_coll_io
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5_buildiface.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/src/H5_buildiface.F90 b/fortran/src/H5_buildiface.F90 index bd6ecc3..4b00d80 100644 --- a/fortran/src/H5_buildiface.F90 +++ b/fortran/src/H5_buildiface.F90 @@ -397,7 +397,7 @@ PROGRAM H5_buildiface WRITE(11,'(A)') ' INTEGER(HID_T) , INTENT(IN) :: attr_id' WRITE(11,'(A)') ' INTEGER(HID_T) , INTENT(IN) :: memtype_id' 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(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(IN)'//TRIM(rank_dim_line(j))//', TARGET :: buf' WRITE(11,'(A)') ' INTEGER , INTENT(OUT) :: hdferr' WRITE(11,'(A)') ' TYPE(C_PTR) :: f_ptr' |