continued working on Fortran interface

src/include/h5core/h5_core.h

@@ -14,6 +14,7 @@
 #include "h5u_readwrite.h"
 #include "h5u_model.h"
 
+#include "h5b_readwrite.h"
 #include "h5b_model.h"
 #include "h5b_attribs.h"
 

src/include/h5core/h5_openclose.h

@@ -75,4 +75,16 @@ h5_traverse_steps (
 	h5_file_t * f			/*!< file handle		*/
 	);
 
+char *
+h5_strdupfor2c (
+	const char *s,
+	const ssize_t len
+	);
+
+char *
+h5_strc2for (
+	char * const str,
+	const ssize_t l_str
+	);
+	
 #endif

src/include/h5core/h5b_attribs.h

@@ -11,6 +11,15 @@ h5_write_field_attrib (
 	const h5_int64_t attrib_nelem		/*!< IN: number of elements */
 	);
 
+h5_err_t
+h5_read_field_attrib (
+	h5_file_t *const f,			/*!< IN: file handle */
+	const char *field_name,			/*!< IN: field name */
+	const char *attrib_name,		/*!< IN: attribute name */
+	const h5_int64_t attrib_type,		/*!< IN: attribute type */
+	void *buffer		                /*!< OUT: attribute value */
+	);
+
 h5_ssize_t
 h5b_get_num_field_attribs (
 	h5_file_t *const f,			/*<! IN: file handle */

src/include/h5core/h5b_readwrite.h

@@ -0,0 +1,40 @@
+#ifndef __H5B_READWRITE_H
+#define __H5B_READWRITE_H
+
+h5_err_t
+h5b_write_scalar_data (
+	h5_file_t *const f,		/*!< IN: file handle */
+	const char *field_name,		/*!< IN: name of field */
+	const void *data,		/*!< IN: data to write */
+	const hid_t type		/*!< IN: data type */
+	);
+
+h5_err_t
+h5b_write_vector3d_data (
+	h5_file_t *const f,		/*!< IN: file handle */
+	const char *field_name,		/*!< IN: name of field */
+	const void *xdata,		/*!< IN: x data to write */
+	const void *ydata,		/*!< IN: y data to write */
+	const void *zdata,		/*!< IN: z data to write */
+	const hid_t type		/*!< IN: data type */
+	);
+
+h5_err_t
+h5b_read_scalar_data (
+	h5_file_t *const f,		/*!< IN: file handle */
+	const char *field_name,		/*!< IN: name of field */
+	void *data,			/*!< OUT: read bufer */
+	const hid_t type		/*!< IN: data type */
+	);
+
+h5_err_t
+h5b_read_vector3d_data (
+	h5_file_t *const f,		/*!< IN: file handle */
+	const char *field_name,		/*!< IN: name of field */
+	void *xdata,			/*!< IN: x data to write */
+	void *ydata,			/*!< IN: y data to write */
+	void *zdata,			/*!< IN: z data to write */
+	const hid_t type		/*!< IN: data type */
+	);
+
+#endif