summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2016-03-29 14:46:58 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2016-03-29 14:46:58 (GMT)
commit6b21276650e7ffb00c516bafb53e7b646df29c83 (patch)
tree5ff65bb7a1f32297fbdeff63ae4e519a14c3d969 /fortran/src
parent261f8c83611db7b19f3a697720926d825b375a1d (diff)
downloadhdf5-6b21276650e7ffb00c516bafb53e7b646df29c83.zip
hdf5-6b21276650e7ffb00c516bafb53e7b646df29c83.tar.gz
hdf5-6b21276650e7ffb00c516bafb53e7b646df29c83.tar.bz2
[svn-r29591] Changed buf variable in h5awrite_f from INOUT to IN
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5_buildiface.F902
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'