diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-12-15 19:17:49 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-12-15 19:17:49 (GMT) |
| commit | 41245b50b68c9f5469cf715006f099cc9b00a6c3 (patch) | |
| tree | 7b3fff0818ffea46462c17b093c66d1e466d37ed /fortran/src/H5Tff.f90 | |
| parent | 327484d5031e566b9c4c12a26e6d5576b32262d6 (diff) | |
| download | hdf5-41245b50b68c9f5469cf715006f099cc9b00a6c3.zip hdf5-41245b50b68c9f5469cf715006f099cc9b00a6c3.tar.gz hdf5-41245b50b68c9f5469cf715006f099cc9b00a6c3.tar.bz2 | |
[svn-r16197] Maintenance: Merged trunk into the hdf5_1_8 branch
(used svn merge -r 15741:16196 http://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran).
Diffstat (limited to 'fortran/src/H5Tff.f90')
| -rw-r--r-- | fortran/src/H5Tff.f90 | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/fortran/src/H5Tff.f90 b/fortran/src/H5Tff.f90 index eb4ff30..4849f0e 100644 --- a/fortran/src/H5Tff.f90 +++ b/fortran/src/H5Tff.f90 @@ -1770,7 +1770,7 @@ CONTAINS ! index - filed index (0-based) ! Outputs: ! member_name - buffer to hold member's name -! namelen - name lenght +! namelen - name length ! hdferr: - error code ! Success: 0 ! Failure: -1 @@ -2811,7 +2811,7 @@ CONTAINS !---------------------------------------------------------------------- ! Name: h5tvlen_create_f ! -! Purpose: Creates a new variable-lenght datatype. +! Purpose: Creates a new variable-length datatype. ! ! Inputs: ! type_id - identifier iof base datatype @@ -3132,6 +3132,7 @@ CONTAINS !DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5TDECODE_C'::h5tdecode_c !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf CHARACTER(LEN=*), INTENT(IN) :: buf INTEGER(HID_T), INTENT(OUT) :: obj_id ! Object ID END FUNCTION h5tdecode_c @@ -3180,6 +3181,7 @@ CONTAINS !DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5TENCODE_C'::h5tencode_c !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: buf INTEGER(HID_T), INTENT(IN) :: obj_id CHARACTER(LEN=*), INTENT(OUT) :: buf INTEGER(SIZE_T), INTENT(INOUT) :: nalloc @@ -3339,5 +3341,4 @@ CONTAINS hdferr = h5tget_native_type_c(dtype_id, direction, native_dtype_id) END SUBROUTINE h5tget_native_type_f - END MODULE H5T |