From 5dbe8fb16107025f5fb5cbb74dd418985d96a978 Mon Sep 17 00:00:00 2001 From: Achim Gsell Date: Fri, 31 Jan 2014 15:31:31 +0100 Subject: [PATCH] src/include/H5Block_attribs.f90: bugfix in declaration of h5bl_writefieldattrib_string() --- src/include/H5Block_attribs.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/include/H5Block_attribs.f90 b/src/include/H5Block_attribs.f90 index 6e4e397..7afa123 100644 --- a/src/include/H5Block_attribs.f90 +++ b/src/include/H5Block_attribs.f90 @@ -56,12 +56,11 @@ !! See \ref H5BlockWriteFieldAttribString !! \return 0 on success or error code !< - INTEGER*8 FUNCTION h5bl_writefieldattrib_string (filehandle, field_name, attrib_name, attrib_value, attrib_nelems) + INTEGER*8 FUNCTION h5bl_writefieldattrib_string (filehandle, field_name, attrib_name, attrib_value) INTEGER*8, INTENT(IN) :: filehandle !< file handle CHARACTER(LEN=*), INTENT(IN) :: field_name !< name of field CHARACTER(LEN=*), INTENT(IN) :: attrib_name !< name of attribute CHARACTER(LEN=*), INTENT(IN) :: attrib_value!< attribute data to be written - INTEGER*8, INTENT(IN) :: attrib_nelems !< number of elements in data array END FUNCTION h5bl_writefieldattrib_string !>