diff --git a/src/H5Block.c b/src/H5Block.c
index 36525f1..200794f 100644
--- a/src/H5Block.c
+++ b/src/H5Block.c
@@ -1775,7 +1775,7 @@ H5BlockGetFieldAttribInfo (
 
   \return \c H5PART_SUCCESS or error code
 */
-static h5part_int64_t
+h5part_int64_t
 _read_field_attrib (
 	H5PartFile *f,				/*!< IN: file handle */
 	const char *field_name,			/*!< IN: field name */
diff --git a/src/H5BlockF.c b/src/H5BlockF.c
index 5c5b85c..30637f9 100755
--- a/src/H5BlockF.c
+++ b/src/H5BlockF.c
@@ -35,12 +35,6 @@
 #define h5bl_getfieldinfo F77NAME (					\
 					h5bl_getfieldinfo_,		\
 					H5BL_GETFIELDINFO )
-#define h5bl_writefieldattrib_r8 F77NAME (				\
-					h5bl_writefieldattrib_r8_,	\
-					H5BL_WRITEFIELDATTRIB_R8 )
-#define h5bl_writefieldattrib_i8 F77NAME (				\
-					h5bl_writefieldattrib_i8_,	\
-					H5BL_WRITEFIELDATTRIB_I8 )
 #define h5bl_writefieldattrib_string F77NAME (			\
 					h5bl_writefieldattrib_string_,	\
 					H5BL_WRITEFIELDATTRIB_STRING )
@@ -212,57 +206,6 @@ h5bl_getfieldinfo (
 	return herr;
 }
 
-h5part_int64_t
-h5bl_writefieldattrib_r8 (
-	h5part_int64_t *f,
-	const char *field_name,
-	const char *attrib_name,
-	const h5part_float64_t *attrib_value,
-	const h5part_int64_t *attrib_nelem,
-	const int l_field_name,
-	const int l_attrib_name
-	) {
-
-	H5PartFile *filehandle = (H5PartFile*)(size_t)*f;
-
-	char *field_name2 = _H5Part_strdupfor2c ( field_name,  l_field_name );
-	char *attrib_name2 =_H5Part_strdupfor2c ( attrib_name, l_attrib_name );
-
-	h5part_int64_t herr = H5BlockWriteFieldAttrib (
-		filehandle, field_name2, attrib_name2, H5PART_FLOAT64,
-		attrib_value, *attrib_nelem );
-
-	free ( field_name2 );
-	free ( attrib_name2 );
-	return herr;
-}
-
-
-h5part_int64_t
-h5bl_writefieldattrib_i8 (
-	h5part_int64_t *f,
-	const char *field_name,
-	const char *attrib_name,
-	const h5part_int64_t *attrib_value,
-	const h5part_int64_t *attrib_nelem,
-	const int l_field_name,
-	const int l_attrib_name
-	) {
-
-	H5PartFile *filehandle = (H5PartFile*)(size_t)*f;
-
-	char *field_name2 = _H5Part_strdupfor2c ( field_name,  l_field_name );
-	char *attrib_name2 =_H5Part_strdupfor2c ( attrib_name, l_attrib_name );
-
-	h5part_int64_t herr = H5BlockWriteFieldAttrib (
-		filehandle, field_name2, attrib_name2, H5PART_INT64,
-		attrib_value, *attrib_nelem );
-
-	free ( field_name2 );
-	free ( attrib_name2 );
-	return herr;
-}
-
 h5part_int64_t
 h5bl_writefieldattrib_string (
 	h5part_int64_t *f,
diff --git a/src/H5BlockF90.inc b/src/H5BlockF90.inc
index d9e1ca1..cec5ff7 100644
--- a/src/H5BlockF90.inc
+++ b/src/H5BlockF90.inc
@@ -61,23 +61,7 @@ INTEGER*8 FUNCTION h5bl_getfieldinfo ( filehandle, idx, field_name, grid_rank, g
   INTEGER*8, INTENT(OUT) :: grid_dims(*)
   INTEGER*8, INTENT(OUT) :: field_dims
 END FUNCTION
-
-INTEGER*8 FUNCTION h5bl_writefieldattrib_r8 ( 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
-  REAL*8, INTENT(IN) :: attrib_value(*) ! The array of data to write into the attribute
-  INTEGER*8, INTENT(IN) :: attrib_nelem ! Number of elements in the attrib array
-END FUNCTION
-
-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
-  INTEGER*8, INTENT(IN) :: attrib_value(*)      ! The array of data to write into the attribute
-  INTEGER*8, INTENT(IN) :: attrib_nelem ! Number of elements in the attrib array
-END FUNCTION
-      
+     
 INTEGER*8 FUNCTION h5bl_writefieldattrib_string ( filehandle, field_name, attrib_name, attrib_value )
   INTEGER*8, INTENT(IN) :: filehandle
   CHARACTER(LEN=*), INTENT(IN) :: field_name    ! The name of the field