28 if (result ==
NULL)
return;
61 int i_step,
char *header,
char *comment) {
100 int n_node,
int n_elem,
char *header,
char *comment) {
127 int fg_text, myrank, ret;
135 addfname, myrank,
istep);
161 fp = fopen(filename,
"r");
162 if (fp ==
NULL)
return -1;
219 for (i = 0; i <
nnode; i++) {
227 for (i = 0; i <
nelem; i++) {
248 int *i_step,
char *header,
char *comment,
int *err,
259 header_str, comment_str))
265 int *i_step,
char *header,
char *comment,
int *err,
272 int *i_step,
char *header,
char *comment,
int *err,
279 int *i_step,
char *header,
char *comment,
int *err,
304 double *ptr,
int *err,
int len) {
317 }
else if (*dtype == 2) {
322 size =
sizeof(double) * n * (*n_dof);
331 if (remain ==
NULL) {
336 remain->
next = remainder;
345 double *
ptr,
int *err,
int len) {
350 double *
ptr,
int *err,
int len) {
355 double *
ptr,
int *err,
int len) {
373 for (p = remainder; p; p = q) {
398 int len1,
int len2) {
414 for (p = remainder; p; p = q) {
425 int len1,
int len2) {
430 int *err,
int len1,
int len2) {
435 int len1,
int len2) {
int HECMW_comm_get_rank(void)
#define HECMW_FILENAME_LEN
char * HECMW_ctrl_get_result_fileheader(char *name_ID, int istep, int *fg_text)
char * HECMW_ctrl_get_result_file(char *name_ID, int istep, int *fg_text)
int HECMW_set_error(int errorno, const char *fmt,...)
char * HECMW_strcpy_f2c_r(const char *fstr, int flen, char *buf, int bufsize)
#define HECMW_malloc(size)
void hecmw_result_checkfile_by_name_if_(char *name_ID, int *i_step, int *err, int len)
char * HECMW_result_get_header(char *buff)
void hecmw_result_write_by_name_if__(char *name_ID, int *err, int len)
void hecmw_result_write_by_addfname_if(char *name_ID, char *addfname, int *err, int len1, int len2)
int HECMW_result_get_nnode(void)
void HECMW_result_free_nodeID(void)
int * HECMW_result_get_elemID(int *buff)
void HECMW_RESULT_INIT_IF(int *n_node, int *n_elem, int *nodeID, int *elemID, int *i_step, char *header, char *comment, int *err, int len)
void hecmw_result_write_by_addfname_if__(char *name_ID, char *addfname, int *err, int len1, int len2)
int HECMW_result_get_nelem(void)
int HECMW_result_init(struct hecmwST_local_mesh *hecMESH, int i_step, char *header, char *comment)
void hecmw_result_init_if(int *n_node, int *n_elem, int *nodeID, int *elemID, int *i_step, char *header, char *comment, int *err, int len)
void HECMW_RESULT_WRITE_BY_NAME_IF(char *name_ID, int *err, int len)
void HECMW_RESULT_WRITE_BY_ADDFNAME_IF(char *name_ID, char *addfname, int *err, int len1, int len2)
struct hecmwST_result_data * HECMW_result_read_by_fname(char *filename)
int HECMW_result_write_by_name(char *name_ID)
int HECMW_result_checkfile_by_name(char *name_ID, int i_step)
void HECMW_RESULT_FINALIZE_IF(int *err)
char * HECMW_result_get_comment(char *buff)
void HECMW_result_free(struct hecmwST_result_data *result)
void hecmw_result_init_if_(int *n_node, int *n_elem, int *nodeID, int *elemID, int *i_step, char *header, char *comment, int *err, int len)
void hecmw_result_write_by_name_if(char *name_ID, int *err, int len)
void hecmw_result_add_if__(int *dtype, int *n_dof, char *label, double *ptr, int *err, int len)
int * HECMW_result_get_nodeID(int *buff)
void hecmw_result_checkfile_by_name_if__(char *name_ID, int *i_step, int *err, int len)
void hecmw_result_write_by_name_if_(char *name_ID, int *err, int len)
void HECMW_RESULT_CHECKFILE_BY_NAME_IF(char *name_ID, int *i_step, int *err, int len)
void hecmw_result_finalize_if_(int *err)
void HECMW_RESULT_ADD_IF(int *dtype, int *n_dof, char *label, double *ptr, int *err, int len)
void hecmw_result_write_by_addfname_if_(char *name_ID, char *addfname, int *err, int len1, int len2)
void hecmw_result_finalize_if__(int *err)
void hecmw_result_checkfile_by_name_if(char *name_ID, int *i_step, int *err, int len)
void hecmw_result_init_if__(int *n_node, int *n_elem, int *nodeID, int *elemID, int *i_step, char *header, char *comment, int *err, int len)
void hecmw_result_finalize_if(int *err)
void hecmw_result_add_if_(int *dtype, int *n_dof, char *label, double *ptr, int *err, int len)
struct hecmwST_result_data * HECMW_result_read_by_name(char *name_ID, int i_step)
void HECMW_result_free_elemID(void)
int HECMW_result_finalize(void)
int HECMW_result_write_ST_by_name(char *name_ID, struct hecmwST_result_data *result, int n_node, int n_elem, char *header, char *comment)
void hecmw_result_add_if(int *dtype, int *n_dof, char *label, double *ptr, int *err, int len)
int HECMW_result_write_by_addfname(char *name_ID, char *addfname)
int HECMW_result_write_bin_by_fname(char *filename)
int HECMW_result_write_txt_by_fname(char *filename)
struct hecmwST_result_data * HECMW_result_read_bin_by_fname(char *filename)
struct hecmwST_result_data * HECMW_result_read_txt_by_fname(char *filename)
int HECMW_judge_result_bin_file(char *filename)
int HECMW_result_write_bin_ST_by_fname(char *filename, struct hecmwST_result_data *result, int n_node, int n_elem, char *header, char *comment)
int HECMW_result_write_txt_ST_by_fname(char *filename, struct hecmwST_result_data *result, int n_node, int n_elem, char *header, char *comment)
int HECMW_result_init_body(int n_node, int n_elem, int *nodeID, int *elemID, int i_step, char *header, char *comment)
int HECMW_result_add(int dtype, int n_dof, char *label, double *ptr)
void HECMW_result_clear()
char comment_line[HECMW_MSG_LEN+1]
char head[HECMW_HEADER_LEN+1]
struct fortran_remainder * next