diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-03-31 14:25:44 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-03-31 14:25:44 (GMT) |
| commit | 3936548bc56b478ad6cd16bcc268fc205a02d7c0 (patch) | |
| tree | 98547c311a245a426759aa59adfc372ff18895ff /fortran/src/H5Aff_F03.f90 | |
| parent | 963bace0d15244768f28d549289e5e383ca9e421 (diff) | |
| download | hdf5-3936548bc56b478ad6cd16bcc268fc205a02d7c0.zip hdf5-3936548bc56b478ad6cd16bcc268fc205a02d7c0.tar.gz hdf5-3936548bc56b478ad6cd16bcc268fc205a02d7c0.tar.bz2 | |
[svn-r24930] Merged changes in the trunk to the branch,
svn merge -r24650:24929 https://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran .
tested: jam (intel, pgi, gnu)
Diffstat (limited to 'fortran/src/H5Aff_F03.f90')
| -rw-r--r-- | fortran/src/H5Aff_F03.f90 | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/fortran/src/H5Aff_F03.f90 b/fortran/src/H5Aff_F03.f90 index 26c911a..807f6fa 100644 --- a/fortran/src/H5Aff_F03.f90 +++ b/fortran/src/H5Aff_F03.f90 @@ -1065,17 +1065,16 @@ CONTAINS CHARACTER(LEN=*), INTENT(INOUT) :: buf ! Attribute data INTEGER, INTENT(OUT) :: hdferr ! Error code - CALL h5aread_char_scalar_fix(attr_id, memtype_id, buf, LEN(buf), dims, hdferr) + CALL h5aread_char_scalar_fix(attr_id, memtype_id, buf, LEN(buf), hdferr) END SUBROUTINE h5aread_char_scalar - SUBROUTINE h5aread_char_scalar_fix(attr_id, memtype_id, buf, buf_len, dims, hdferr) + SUBROUTINE h5aread_char_scalar_fix(attr_id, memtype_id, buf, buf_len, hdferr) USE, INTRINSIC :: ISO_C_BINDING IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype ! identifier (in memory) - INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes INTEGER, INTENT(IN) :: buf_len CHARACTER(LEN=buf_len), INTENT(INOUT), TARGET :: buf ! Attribute data INTEGER, INTENT(OUT) :: hdferr ! Error code |