diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-01-27 22:13:23 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-01-27 22:13:23 (GMT) |
commit | dcde3e4cdf751d564e17dceb2d55bf20bc4ba68e (patch) | |
tree | 6ab85c0bdb5105585d589c77359db822ba7409f8 /fortran/src/H5Fff_F03.f90 | |
parent | 3ffdf81de41c8a3ebf79a6c593407a8f98dd1b01 (diff) | |
download | hdf5-dcde3e4cdf751d564e17dceb2d55bf20bc4ba68e.zip hdf5-dcde3e4cdf751d564e17dceb2d55bf20bc4ba68e.tar.gz hdf5-dcde3e4cdf751d564e17dceb2d55bf20bc4ba68e.tar.bz2 |
[svn-r24651] Merged changes in the fortran directory from the trunk into the branch,
svn merge -r23351:24650 https://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran .
Tested: jam (gcc, intel), koala (gcc)
Diffstat (limited to 'fortran/src/H5Fff_F03.f90')
-rw-r--r-- | fortran/src/H5Fff_F03.f90 | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/fortran/src/H5Fff_F03.f90 b/fortran/src/H5Fff_F03.f90 index 1ccd39a..83d46be 100644 --- a/fortran/src/H5Fff_F03.f90 +++ b/fortran/src/H5Fff_F03.f90 @@ -46,16 +46,17 @@ CONTAINS ! PURPOSE ! Retrieves a copy of the image of an existing, open file. ! -! Inputs: +! INPUTS ! file_id - Target file identifier. ! buf_ptr - Pointer to the buffer into which the image of the HDF5 file is to be copied. ! buf_len - Size of the supplied buffer. ! -! Outputs: +! OUTPUTS ! hdferr - error code: ! 0 on success and -1 on failure -! Optional: -! buf_size - The size in bytes of the buffer required to store the file image. +! OPTIONAL PARAMETERS +! buf_size - Returns the size in bytes of the buffer required to store the file image, +! no data will be copied. ! ! AUTHOR ! M. Scot Breitenfeld @@ -65,11 +66,11 @@ CONTAINS SUBROUTINE h5fget_file_image_f(file_id, buf_ptr, buf_len, hdferr, buf_size) USE, INTRINSIC :: ISO_C_BINDING IMPLICIT NONE - INTEGER(HID_T) , INTENT(IN) :: file_id - TYPE(C_PTR) , INTENT(INOUT) :: buf_ptr - INTEGER(SIZE_T) , INTENT(IN) :: buf_len - INTEGER(SIZE_T) , INTENT(OUT), OPTIONAL :: buf_size - INTEGER , INTENT(OUT) :: hdferr + INTEGER(HID_T) , INTENT(IN) :: file_id + TYPE(C_PTR) , INTENT(INOUT) :: buf_ptr + INTEGER(SIZE_T), INTENT(IN) :: buf_len + INTEGER , INTENT(OUT) :: hdferr + INTEGER(SIZE_T), INTENT(OUT) , OPTIONAL :: buf_size !***** INTEGER(SIZE_T) :: buf_size_default |