From e35679ba5622e3d1c7c53d8eadc4b9d8adde5c87 Mon Sep 17 00:00:00 2001 From: Achim Gsell Date: Thu, 21 Sep 2006 21:15:55 +0000 Subject: [PATCH] src/H5BlockF90.inc - h5bl_getfieldinfo() * syntax error fixed --- src/H5BlockF90.inc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/H5BlockF90.inc b/src/H5BlockF90.inc index 0c44980..329e32d 100644 --- a/src/H5BlockF90.inc +++ b/src/H5BlockF90.inc @@ -71,7 +71,7 @@ INTEGER*8 FUNCTION h5bl_getfieldinfo ( filehandle, idx, field_name, grid_rank, grid_dims, field_dims ) INTEGER*8, INTENT(IN) :: filehandle - INTEGER*8, INTENT(IN) :: idx, + INTEGER*8, INTENT(IN) :: idx CHARACTER(LEN=*), INTENT(OUT) :: field_name INTEGER*8, INTENT(OUT) :: grid_rank INTEGER*8, INTENT(OUT) :: grid_dims(:) @@ -86,7 +86,7 @@ INTEGER*8, INTENT(IN) :: attrib_nelem ! Number of elements in the attrib array END FUNCTION - INTEGER*8 FUNCTION h5bl_writefieldattrib_i8 (filehandle,attrib_name,attrib_value,attrib_nelem) + INTEGER*8 FUNCTION h5bl_writefieldattrib_i8 (filehandle, field_name, attrib_name,attrib_value,attrib_nelem) INTEGER*8, INTENT(IN) :: filehandle CHARACTER(LEN=*), INTENT(IN) :: field_name ! The name of the field CHARACTER(LEN=*), INTENT(IN) :: attrib_name ! The name of the attribute