Lines Matching refs:mesh
12 static struct hecmwST_local_mesh *mesh; variable
19 mesh->hecmw_flag_adapt = *((int *)src); in set_hecmw_flag_adapt()
24 mesh->hecmw_flag_initcon = *((int *)src); in set_hecmw_flag_initcon()
29 mesh->hecmw_flag_parttype = *((int *)src); in set_hecmw_flag_parttype()
34 mesh->hecmw_flag_partdepth = *((int *)src); in set_hecmw_flag_partdepth()
39 mesh->hecmw_flag_version = *((int *)src); in set_hecmw_flag_version()
44 mesh->hecmw_flag_partcontact = *((int *)src); in set_hecmw_flag_partcontact()
49 void *dst = mesh->gridfile; in set_gridfile()
55 mesh->hecmw_n_file = *((int *)src); in set_hecmw_n_file()
62 if (mesh->hecmw_n_file <= 0) return 0; in set_files()
64 mesh->files = HECMW_calloc(mesh->hecmw_n_file, sizeof(*mesh->files)); in set_files()
65 if (mesh->files == NULL) { in set_files()
69 for (i = 0; i < mesh->hecmw_n_file; i++) { in set_files()
71 mesh->files[i] = HECMW_strcpy_f2c(src_point, HECMW_FILENAME_LEN); in set_files()
72 if (mesh->files[i] == NULL) goto error; in set_files()
76 if (mesh->files) { in set_files()
77 for (i = 0; i < mesh->hecmw_n_file; i++) { in set_files()
78 HECMW_free(mesh->files[i]); in set_files()
81 HECMW_free(mesh->files); in set_files()
82 mesh->files = NULL; in set_files()
87 void *dst = mesh->header; in set_header()
93 mesh->zero_temp = *((double *)src); in set_zero_temp()
98 mesh->n_node = *((int *)src); in set_n_node()
103 mesh->n_node_gross = *((int *)src); in set_n_node_gross()
108 mesh->nn_middle = *((int *)src); in set_nn_middle()
113 mesh->nn_internal = *((int *)src); in set_nn_internal()
120 if (mesh->nn_internal <= 0) return 0; in set_node_internal_list()
121 size = sizeof(*mesh->node_internal_list) * mesh->nn_internal; in set_node_internal_list()
122 mesh->node_internal_list = HECMW_malloc(size); in set_node_internal_list()
123 if (mesh->node_internal_list == NULL) { in set_node_internal_list()
127 memcpy(mesh->node_internal_list, src, size); in set_node_internal_list()
134 if (mesh->n_node_gross <= 0) return 0; in set_node_ID()
135 size = sizeof(*mesh->node_ID) * 2 * mesh->n_node_gross; in set_node_ID()
136 mesh->node_ID = HECMW_malloc(size); in set_node_ID()
137 if (mesh->node_ID == NULL) { in set_node_ID()
141 memcpy(mesh->node_ID, src, size); in set_node_ID()
148 if (mesh->n_node_gross <= 0) return 0; in set_global_node_ID()
149 size = sizeof(*mesh->global_node_ID) * mesh->n_node_gross; in set_global_node_ID()
150 mesh->global_node_ID = HECMW_malloc(size); in set_global_node_ID()
151 if (mesh->global_node_ID == NULL) { in set_global_node_ID()
155 memcpy(mesh->global_node_ID, src, size); in set_global_node_ID()
162 if (mesh->n_node_gross <= 0) return 0; in set_node()
163 size = sizeof(*mesh->node) * 3 * mesh->n_node_gross; in set_node()
164 mesh->node = HECMW_malloc(size); in set_node()
165 if (mesh->node == NULL) { in set_node()
169 memcpy(mesh->node, src, size); in set_node()
174 mesh->n_dof = *((int *)src); in set_n_dof()
179 mesh->n_dof_grp = *((int *)src); in set_n_dof_grp()
184 mesh->n_dof_tot = *((int *)src); in set_n_dof_tot()
191 if (mesh->n_dof_grp <= 0) return 0; in set_node_dof_index()
192 size = sizeof(*mesh->node_dof_index) * (mesh->n_dof_grp + 1); in set_node_dof_index()
193 mesh->node_dof_index = HECMW_malloc(size); in set_node_dof_index()
194 if (mesh->node_dof_index == NULL) { in set_node_dof_index()
198 memcpy(mesh->node_dof_index, src, size); in set_node_dof_index()
205 if (mesh->n_dof_grp <= 0) return 0; in set_node_dof_item()
206 size = sizeof(*mesh->node_dof_item) * mesh->n_dof_grp; in set_node_dof_item()
207 mesh->node_dof_item = HECMW_malloc(size); in set_node_dof_item()
208 if (mesh->node_dof_item == NULL) { in set_node_dof_item()
212 memcpy(mesh->node_dof_item, src, size); in set_node_dof_item()
219 if (mesh->n_node_gross <= 0) return 0; in set_node_val_index()
220 size = sizeof(*mesh->node_val_index) * (mesh->n_node_gross + 1); in set_node_val_index()
221 mesh->node_val_index = HECMW_malloc(size); in set_node_val_index()
222 if (mesh->node_val_index == NULL) { in set_node_val_index()
226 memcpy(mesh->node_val_index, src, size); in set_node_val_index()
233 if (mesh->n_node_gross <= 0) return 0; in set_node_val_item()
234 if (mesh->node_val_index == NULL) return 0; in set_node_val_item()
235 if (mesh->node_val_index[mesh->n_node_gross] <= 0) return 0; in set_node_val_item()
238 sizeof(*mesh->node_val_item) * mesh->node_val_index[mesh->n_node_gross]; in set_node_val_item()
239 mesh->node_val_item = HECMW_malloc(size); in set_node_val_item()
240 if (mesh->node_val_item == NULL) { in set_node_val_item()
244 memcpy(mesh->node_val_item, src, size); in set_node_val_item()
251 if (mesh->n_node_gross <= 0) return 0; in set_node_init_val_index()
252 size = sizeof(*mesh->node_init_val_index) * (mesh->n_node_gross + 1); in set_node_init_val_index()
253 mesh->node_init_val_index = HECMW_malloc(size); in set_node_init_val_index()
254 if (mesh->node_init_val_index == NULL) { in set_node_init_val_index()
258 memcpy(mesh->node_init_val_index, src, size); in set_node_init_val_index()
265 if (mesh->n_node_gross <= 0) return 0; in set_node_init_val_item()
266 if (mesh->node_init_val_index == NULL) return 0; in set_node_init_val_item()
267 if (mesh->node_init_val_index[mesh->n_node_gross] <= 0) return 0; in set_node_init_val_item()
269 size = sizeof(*mesh->node_init_val_item) * in set_node_init_val_item()
270 mesh->node_init_val_index[mesh->n_node_gross]; in set_node_init_val_item()
271 mesh->node_init_val_item = HECMW_malloc(size); in set_node_init_val_item()
272 if (mesh->node_init_val_item == NULL) { in set_node_init_val_item()
276 memcpy(mesh->node_init_val_item, src, size); in set_node_init_val_item()
281 mesh->n_elem = *((int *)src); in set_n_elem()
286 mesh->n_elem_gross = *((int *)src); in set_n_elem_gross()
291 mesh->ne_internal = *((int *)src); in set_ne_internal()
298 if (mesh->ne_internal <= 0) return 0; in set_elem_internal_list()
299 size = sizeof(*mesh->elem_internal_list) * mesh->ne_internal; in set_elem_internal_list()
300 mesh->elem_internal_list = HECMW_malloc(size); in set_elem_internal_list()
301 if (mesh->elem_internal_list == NULL) { in set_elem_internal_list()
305 memcpy(mesh->elem_internal_list, src, size); in set_elem_internal_list()
312 if (mesh->n_elem_gross <= 0) return 0; in set_elem_ID()
313 size = sizeof(*mesh->elem_ID) * 2 * mesh->n_elem_gross; in set_elem_ID()
314 mesh->elem_ID = HECMW_malloc(size); in set_elem_ID()
315 if (mesh->elem_ID == NULL) { in set_elem_ID()
319 memcpy(mesh->elem_ID, src, size); in set_elem_ID()
326 if (mesh->n_elem_gross <= 0) return 0; in set_global_elem_ID()
327 size = sizeof(*mesh->global_elem_ID) * mesh->n_elem_gross; in set_global_elem_ID()
328 mesh->global_elem_ID = HECMW_malloc(size); in set_global_elem_ID()
329 if (mesh->global_elem_ID == NULL) { in set_global_elem_ID()
333 memcpy(mesh->global_elem_ID, src, size); in set_global_elem_ID()
340 if (mesh->n_elem_gross <= 0) return 0; in set_elem_type()
341 size = sizeof(*mesh->elem_type) * mesh->n_elem_gross; in set_elem_type()
342 mesh->elem_type = HECMW_malloc(size); in set_elem_type()
343 if (mesh->elem_type == NULL) { in set_elem_type()
347 memcpy(mesh->elem_type, src, size); in set_elem_type()
352 mesh->n_elem_type = *((int *)src); in set_n_elem_type()
359 if (mesh->n_elem_type <= 0) return 0; in set_elem_type_index()
360 size = sizeof(*mesh->elem_type_index) * (mesh->n_elem_type + 1); in set_elem_type_index()
361 mesh->elem_type_index = HECMW_malloc(size); in set_elem_type_index()
362 if (mesh->elem_type_index == NULL) { in set_elem_type_index()
366 memcpy(mesh->elem_type_index, src, size); in set_elem_type_index()
373 if (mesh->n_elem_type <= 0) return 0; in set_elem_type_item()
374 size = sizeof(*mesh->elem_type_item) * mesh->n_elem_type; in set_elem_type_item()
375 mesh->elem_type_item = HECMW_malloc(size); in set_elem_type_item()
376 if (mesh->elem_type_item == NULL) { in set_elem_type_item()
380 memcpy(mesh->elem_type_item, src, size); in set_elem_type_item()
387 if (mesh->n_elem_gross <= 0) return 0; in set_elem_node_index()
388 size = sizeof(*mesh->elem_node_index) * (mesh->n_elem_gross + 1); in set_elem_node_index()
389 mesh->elem_node_index = HECMW_malloc(size); in set_elem_node_index()
390 if (mesh->elem_node_index == NULL) { in set_elem_node_index()
394 memcpy(mesh->elem_node_index, src, size); in set_elem_node_index()
401 if (mesh->n_elem_gross <= 0) return 0; in set_elem_node_item()
402 if (mesh->elem_node_index == NULL) return 0; in set_elem_node_item()
403 if (mesh->elem_node_index[mesh->n_elem_gross] <= 0) return 0; in set_elem_node_item()
406 sizeof(*mesh->elem_node_item) * mesh->elem_node_index[mesh->n_elem_gross]; in set_elem_node_item()
407 mesh->elem_node_item = HECMW_malloc(size); in set_elem_node_item()
408 if (mesh->elem_node_item == NULL) { in set_elem_node_item()
412 memcpy(mesh->elem_node_item, src, size); in set_elem_node_item()
419 if (mesh->n_elem_gross <= 0) return 0; in set_section_ID()
420 size = sizeof(*mesh->section_ID) * mesh->n_elem_gross; in set_section_ID()
421 mesh->section_ID = HECMW_malloc(size); in set_section_ID()
422 if (mesh->section_ID == NULL) { in set_section_ID()
426 memcpy(mesh->section_ID, src, size); in set_section_ID()
431 mesh->n_elem_mat_ID = *((int *)src); in set_n_elem_mat_ID()
438 if (mesh->n_elem_gross <= 0) return 0; in set_elem_mat_ID_index()
439 size = sizeof(*mesh->elem_mat_ID_index) * (mesh->n_elem_gross + 1); in set_elem_mat_ID_index()
440 mesh->elem_mat_ID_index = HECMW_malloc(size); in set_elem_mat_ID_index()
441 if (mesh->elem_mat_ID_index == NULL) { in set_elem_mat_ID_index()
445 memcpy(mesh->elem_mat_ID_index, src, size); in set_elem_mat_ID_index()
452 if (mesh->n_elem_gross <= 0) return 0; in set_elem_mat_ID_item()
453 if (mesh->elem_mat_ID_index == NULL) return 0; in set_elem_mat_ID_item()
454 if (mesh->elem_mat_ID_index[mesh->n_elem_gross] <= 0) return 0; in set_elem_mat_ID_item()
456 size = sizeof(*mesh->elem_mat_ID_item) * in set_elem_mat_ID_item()
457 mesh->elem_mat_ID_index[mesh->n_elem_gross]; in set_elem_mat_ID_item()
458 mesh->elem_mat_ID_item = HECMW_malloc(size); in set_elem_mat_ID_item()
459 if (mesh->elem_mat_ID_item == NULL) { in set_elem_mat_ID_item()
463 memcpy(mesh->elem_mat_ID_item, src, size); in set_elem_mat_ID_item()
470 if (mesh->n_elem_gross <= 0) return 0; in set_elem_mat_int_index()
471 size = sizeof(*mesh->elem_mat_int_index) * (mesh->n_elem_gross + 1); in set_elem_mat_int_index()
472 mesh->elem_mat_int_index = HECMW_malloc(size); in set_elem_mat_int_index()
473 if (mesh->elem_mat_int_index == NULL) { in set_elem_mat_int_index()
477 memcpy(mesh->elem_mat_int_index, src, size); in set_elem_mat_int_index()
484 if (mesh->n_elem_gross <= 0) return 0; in set_elem_mat_int_val()
485 if (mesh->elem_mat_int_index == NULL) return 0; in set_elem_mat_int_val()
486 if (mesh->elem_mat_int_index[mesh->n_elem_gross] <= 0) return 0; in set_elem_mat_int_val()
488 size = sizeof(*mesh->elem_mat_int_val) * in set_elem_mat_int_val()
489 mesh->elem_mat_int_index[mesh->n_elem_gross]; in set_elem_mat_int_val()
490 mesh->elem_mat_int_val = HECMW_malloc(size); in set_elem_mat_int_val()
491 if (mesh->elem_mat_int_val == NULL) { in set_elem_mat_int_val()
495 memcpy(mesh->elem_mat_int_val, src, size); in set_elem_mat_int_val()
502 if (mesh->n_elem_gross <= 0) return 0; in set_elem_val_index()
503 size = sizeof(*mesh->elem_val_index) * (mesh->n_elem_gross + 1); in set_elem_val_index()
504 mesh->elem_val_index = HECMW_malloc(size); in set_elem_val_index()
505 if (mesh->elem_val_index == NULL) { in set_elem_val_index()
509 memcpy(mesh->elem_val_index, src, size); in set_elem_val_index()
516 if (mesh->n_elem_gross <= 0) return 0; in set_elem_val_item()
517 if (mesh->elem_val_index == NULL) return 0; in set_elem_val_item()
518 if (mesh->elem_val_index[mesh->n_elem_gross] <= 0) return 0; in set_elem_val_item()
521 sizeof(*mesh->elem_val_item) * mesh->elem_val_index[mesh->n_elem_gross]; in set_elem_val_item()
522 mesh->elem_val_item = HECMW_malloc(size); in set_elem_val_item()
523 if (mesh->elem_val_item == NULL) { in set_elem_val_item()
527 memcpy(mesh->elem_val_item, src, size); in set_elem_val_item()
532 mesh->zero = *((int *)src); in set_zero()
537 mesh->HECMW_COMM = HECMW_Comm_f2c(*((HECMW_Fint *)src)); in set_HECMW_COMM()
542 mesh->PETOT = *((int *)src); in set_PETOT()
547 mesh->PEsmpTOT = *((int *)src); in set_PEsmpTOT()
552 mesh->my_rank = *((int *)src); in set_my_rank()
557 mesh->errnof = *((int *)src); in set_errnof()
562 mesh->n_subdomain = *((int *)src); in set_n_subdomain()
567 mesh->n_neighbor_pe = *((int *)src); in set_n_neighbor_pe()
574 if (mesh->n_neighbor_pe <= 0) return 0; in set_neighbor_pe()
575 size = sizeof(*mesh->neighbor_pe) * mesh->n_neighbor_pe; in set_neighbor_pe()
576 mesh->neighbor_pe = HECMW_malloc(size); in set_neighbor_pe()
577 if (mesh->neighbor_pe == NULL) { in set_neighbor_pe()
581 memcpy(mesh->neighbor_pe, src, size); in set_neighbor_pe()
588 if (mesh->n_neighbor_pe <= 0) return 0; in set_import_index()
589 size = sizeof(*mesh->import_index) * (mesh->n_neighbor_pe + 1); in set_import_index()
590 mesh->import_index = HECMW_malloc(size); in set_import_index()
591 if (mesh->import_index == NULL) { in set_import_index()
595 memcpy(mesh->import_index, src, size); in set_import_index()
602 if (mesh->n_neighbor_pe <= 0) return 0; in set_import_item()
603 if (mesh->import_index == NULL) return 0; in set_import_item()
604 if (mesh->import_index[mesh->n_neighbor_pe] <= 0) return 0; in set_import_item()
606 size = sizeof(*mesh->import_item) * mesh->import_index[mesh->n_neighbor_pe]; in set_import_item()
607 mesh->import_item = HECMW_malloc(size); in set_import_item()
608 if (mesh->import_item == NULL) { in set_import_item()
612 memcpy(mesh->import_item, src, size); in set_import_item()
619 if (mesh->n_neighbor_pe <= 0) return 0; in set_export_index()
620 size = sizeof(*mesh->export_index) * (mesh->n_neighbor_pe + 1); in set_export_index()
621 mesh->export_index = HECMW_malloc(size); in set_export_index()
622 if (mesh->export_index == NULL) { in set_export_index()
626 memcpy(mesh->export_index, src, size); in set_export_index()
633 if (mesh->n_neighbor_pe <= 0) return 0; in set_export_item()
634 if (mesh->export_index == NULL) return 0; in set_export_item()
635 if (mesh->export_index[mesh->n_neighbor_pe] <= 0) return 0; in set_export_item()
637 size = sizeof(*mesh->export_item) * mesh->export_index[mesh->n_neighbor_pe]; in set_export_item()
638 mesh->export_item = HECMW_malloc(size); in set_export_item()
639 if (mesh->export_item == NULL) { in set_export_item()
643 memcpy(mesh->export_item, src, size); in set_export_item()
650 if (mesh->n_neighbor_pe <= 0) return 0; in set_shared_index()
651 size = sizeof(*mesh->shared_index) * (mesh->n_neighbor_pe + 1); in set_shared_index()
652 mesh->shared_index = HECMW_malloc(size); in set_shared_index()
653 if (mesh->shared_index == NULL) { in set_shared_index()
657 memcpy(mesh->shared_index, src, size); in set_shared_index()
664 if (mesh->n_neighbor_pe <= 0) return 0; in set_shared_item()
665 if (mesh->shared_index == NULL) return 0; in set_shared_item()
666 if (mesh->shared_index[mesh->n_neighbor_pe] <= 0) return 0; in set_shared_item()
668 size = sizeof(*mesh->shared_item) * mesh->shared_index[mesh->n_neighbor_pe]; in set_shared_item()
669 mesh->shared_item = HECMW_malloc(size); in set_shared_item()
670 memcpy(mesh->shared_item, src, size); in set_shared_item()
675 mesh->coarse_grid_level = *((int *)src); in set_coarse_grid_level()
680 mesh->n_adapt = *((int *)src); in set_n_adapt()
687 if (mesh->n_node_gross <= 0) return 0; in set_when_i_was_refined_node()
688 size = sizeof(*mesh->when_i_was_refined_node) * mesh->n_node_gross; in set_when_i_was_refined_node()
689 mesh->when_i_was_refined_node = HECMW_malloc(size); in set_when_i_was_refined_node()
690 if (mesh->when_i_was_refined_node == NULL) { in set_when_i_was_refined_node()
694 memcpy(mesh->when_i_was_refined_node, src, size); in set_when_i_was_refined_node()
701 if (mesh->n_elem_gross <= 0) return 0; in set_when_i_was_refined_elem()
702 size = sizeof(*mesh->when_i_was_refined_elem) * mesh->n_elem_gross; in set_when_i_was_refined_elem()
703 mesh->when_i_was_refined_elem = HECMW_malloc(size); in set_when_i_was_refined_elem()
704 if (mesh->when_i_was_refined_elem == NULL) { in set_when_i_was_refined_elem()
708 memcpy(mesh->when_i_was_refined_elem, src, size); in set_when_i_was_refined_elem()
715 if (mesh->n_elem_gross <= 0) return 0; in set_adapt_parent_type()
716 size = sizeof(*mesh->adapt_parent_type) * mesh->n_elem_gross; in set_adapt_parent_type()
717 mesh->adapt_parent_type = HECMW_malloc(size); in set_adapt_parent_type()
718 if (mesh->adapt_parent_type == NULL) { in set_adapt_parent_type()
722 memcpy(mesh->adapt_parent_type, src, size); in set_adapt_parent_type()
729 if (mesh->n_elem_gross <= 0) return 0; in set_adapt_type()
730 size = sizeof(*mesh->adapt_type) * mesh->n_elem_gross; in set_adapt_type()
731 mesh->adapt_type = HECMW_malloc(size); in set_adapt_type()
732 if (mesh->adapt_type == NULL) { in set_adapt_type()
736 memcpy(mesh->adapt_type, src, size); in set_adapt_type()
743 if (mesh->n_elem_gross <= 0) return 0; in set_adapt_level()
744 size = sizeof(*mesh->adapt_level) * mesh->n_elem_gross; in set_adapt_level()
745 mesh->adapt_level = HECMW_malloc(size); in set_adapt_level()
746 if (mesh->adapt_level == NULL) { in set_adapt_level()
750 memcpy(mesh->adapt_level, src, size); in set_adapt_level()
757 if (mesh->n_elem_gross <= 0) return 0; in set_adapt_parent()
758 size = sizeof(*mesh->adapt_parent) * 2 * mesh->n_elem_gross; in set_adapt_parent()
759 mesh->adapt_parent = HECMW_malloc(size); in set_adapt_parent()
760 if (mesh->adapt_parent == NULL) { in set_adapt_parent()
764 memcpy(mesh->adapt_parent, src, size); in set_adapt_parent()
771 if (mesh->n_elem_gross <= 0) return 0; in set_adapt_children_index()
772 size = sizeof(*mesh->adapt_children_index) * (mesh->n_elem_gross + 1); in set_adapt_children_index()
773 mesh->adapt_children_index = HECMW_malloc(size); in set_adapt_children_index()
774 if (mesh->adapt_children_index == NULL) { in set_adapt_children_index()
778 memcpy(mesh->adapt_children_index, src, size); in set_adapt_children_index()
785 if (mesh->n_elem_gross <= 0) return 0; in set_adapt_children_item()
786 if (mesh->adapt_children_index == NULL) return 0; in set_adapt_children_item()
787 if (mesh->adapt_children_index[mesh->n_elem_gross] <= 0) return 0; in set_adapt_children_item()
789 size = sizeof(*mesh->adapt_children_item) * 2 * in set_adapt_children_item()
790 mesh->adapt_children_index[mesh->n_elem_gross]; in set_adapt_children_item()
791 mesh->adapt_children_item = HECMW_malloc(size); in set_adapt_children_item()
792 if (mesh->adapt_children_item == NULL) { in set_adapt_children_item()
796 memcpy(mesh->adapt_children_item, src, size); in set_adapt_children_item()
801 mesh->n_refine = *((int *)src); in set_n_refine()
808 if (mesh->n_node_gross <= 0) return 0; in set_node_old2new()
809 size = sizeof(*mesh->node_old2new) * mesh->n_node_gross; in set_node_old2new()
810 mesh->node_old2new = HECMW_malloc(size); in set_node_old2new()
811 if (mesh->node_old2new == NULL) { in set_node_old2new()
815 memcpy(mesh->node_old2new, src, size); in set_node_old2new()
822 if (mesh->n_node_gross <= 0) return 0; in set_node_new2old()
823 size = sizeof(*mesh->node_new2old) * mesh->n_node_gross; in set_node_new2old()
824 mesh->node_new2old = HECMW_malloc(size); in set_node_new2old()
825 if (mesh->node_new2old == NULL) { in set_node_new2old()
829 memcpy(mesh->node_new2old, src, size); in set_node_new2old()
836 if (mesh->n_elem_gross <= 0) return 0; in set_elem_old2new()
837 size = sizeof(*mesh->elem_old2new) * mesh->n_elem_gross; in set_elem_old2new()
838 mesh->elem_old2new = HECMW_malloc(size); in set_elem_old2new()
839 if (mesh->elem_old2new == NULL) { in set_elem_old2new()
843 memcpy(mesh->elem_old2new, src, size); in set_elem_old2new()
850 if (mesh->n_elem_gross <= 0) return 0; in set_elem_new2old()
851 size = sizeof(*mesh->elem_new2old) * mesh->n_elem_gross; in set_elem_new2old()
852 mesh->elem_new2old = HECMW_malloc(size); in set_elem_new2old()
853 if (mesh->elem_new2old == NULL) { in set_elem_new2old()
857 memcpy(mesh->elem_new2old, src, size); in set_elem_new2old()
864 if (mesh->n_elem_gross <= 0) return 0; in set_n_node_refine_hist()
865 size = sizeof(*mesh->n_node_refine_hist) * mesh->n_refine; in set_n_node_refine_hist()
866 mesh->n_node_refine_hist = HECMW_malloc(size); in set_n_node_refine_hist()
867 if (mesh->n_node_refine_hist == NULL) { in set_n_node_refine_hist()
871 memcpy(mesh->n_node_refine_hist, src, size); in set_n_node_refine_hist()
876 mesh->section->n_sect = *((int *)src); in set_n_sect()
883 if (mesh->section->n_sect <= 0) return 0; in set_sect_type()
884 size = sizeof(*mesh->section->sect_type) * mesh->section->n_sect; in set_sect_type()
885 mesh->section->sect_type = HECMW_malloc(size); in set_sect_type()
886 if (mesh->section->sect_type == NULL) { in set_sect_type()
890 memcpy(mesh->section->sect_type, src, size); in set_sect_type()
897 if (mesh->section->n_sect <= 0) return 0; in set_sect_opt()
898 size = sizeof(*mesh->section->sect_opt) * mesh->section->n_sect; in set_sect_opt()
899 mesh->section->sect_opt = HECMW_malloc(size); in set_sect_opt()
900 if (mesh->section->sect_opt == NULL) { in set_sect_opt()
904 memcpy(mesh->section->sect_opt, src, size); in set_sect_opt()
911 if (mesh->section->n_sect <= 0) return 0; in set_sect_mat_ID_index()
913 sizeof(*mesh->section->sect_mat_ID_index) * (mesh->section->n_sect + 1); in set_sect_mat_ID_index()
914 mesh->section->sect_mat_ID_index = HECMW_malloc(size); in set_sect_mat_ID_index()
915 if (mesh->section->sect_mat_ID_index == NULL) { in set_sect_mat_ID_index()
919 memcpy(mesh->section->sect_mat_ID_index, src, size); in set_sect_mat_ID_index()
926 if (mesh->section->n_sect <= 0) return 0; in set_sect_mat_ID_item()
927 if (mesh->section->sect_mat_ID_index == NULL) return 0; in set_sect_mat_ID_item()
928 if (mesh->section->sect_mat_ID_index[mesh->section->n_sect] <= 0) return 0; in set_sect_mat_ID_item()
930 size = sizeof(*mesh->section->sect_mat_ID_item) * in set_sect_mat_ID_item()
931 mesh->section->sect_mat_ID_index[mesh->section->n_sect]; in set_sect_mat_ID_item()
932 mesh->section->sect_mat_ID_item = HECMW_malloc(size); in set_sect_mat_ID_item()
933 if (mesh->section->sect_mat_ID_item == NULL) { in set_sect_mat_ID_item()
937 memcpy(mesh->section->sect_mat_ID_item, src, size); in set_sect_mat_ID_item()
944 if (mesh->section->n_sect <= 0) return 0; in set_sect_I_index()
945 size = sizeof(*mesh->section->sect_I_index) * (mesh->section->n_sect + 1); in set_sect_I_index()
946 mesh->section->sect_I_index = HECMW_malloc(size); in set_sect_I_index()
947 if (mesh->section->sect_I_index == NULL) { in set_sect_I_index()
951 memcpy(mesh->section->sect_I_index, src, size); in set_sect_I_index()
958 if (mesh->section->n_sect <= 0) return 0; in set_sect_I_item()
959 if (mesh->section->sect_I_index == NULL) return 0; in set_sect_I_item()
960 if (mesh->section->sect_I_index[mesh->section->n_sect] <= 0) return 0; in set_sect_I_item()
962 size = sizeof(*mesh->section->sect_I_item) * in set_sect_I_item()
963 mesh->section->sect_I_index[mesh->section->n_sect]; in set_sect_I_item()
964 mesh->section->sect_I_item = HECMW_malloc(size); in set_sect_I_item()
965 if (mesh->section->sect_I_item == NULL) { in set_sect_I_item()
969 memcpy(mesh->section->sect_I_item, src, size); in set_sect_I_item()
976 if (mesh->section->n_sect <= 0) return 0; in set_sect_R_index()
977 size = sizeof(*mesh->section->sect_R_index) * (mesh->section->n_sect + 1); in set_sect_R_index()
978 mesh->section->sect_R_index = HECMW_malloc(size); in set_sect_R_index()
979 if (mesh->section->sect_R_index == NULL) { in set_sect_R_index()
983 memcpy(mesh->section->sect_R_index, src, size); in set_sect_R_index()
990 if (mesh->section->n_sect <= 0) return 0; in set_sect_R_item()
991 if (mesh->section->sect_R_index == NULL) return 0; in set_sect_R_item()
992 if (mesh->section->sect_R_index[mesh->section->n_sect] <= 0) return 0; in set_sect_R_item()
994 size = sizeof(*mesh->section->sect_R_item) * in set_sect_R_item()
995 mesh->section->sect_R_index[mesh->section->n_sect]; in set_sect_R_item()
996 mesh->section->sect_R_item = HECMW_malloc(size); in set_sect_R_item()
997 if (mesh->section->sect_R_item == NULL) { in set_sect_R_item()
1001 memcpy(mesh->section->sect_R_item, src, size); in set_sect_R_item()
1006 mesh->material->n_mat = *((int *)src); in set_n_mat()
1011 mesh->material->n_mat_item = *((int *)src); in set_n_mat_item()
1016 mesh->material->n_mat_subitem = *((int *)src); in set_n_mat_subitem()
1021 mesh->material->n_mat_table = *((int *)src); in set_n_mat_table()
1027 struct hecmwST_material *mat = mesh->material; in set_mat_name()
1056 if (mesh->material->n_mat <= 0) return 0; in set_mat_item_index()
1057 size = sizeof(*mesh->material->mat_item_index) * (mesh->material->n_mat + 1); in set_mat_item_index()
1058 mesh->material->mat_item_index = HECMW_malloc(size); in set_mat_item_index()
1059 if (mesh->material->mat_item_index == NULL) { in set_mat_item_index()
1063 memcpy(mesh->material->mat_item_index, src, size); in set_mat_item_index()
1070 if (mesh->material->n_mat_item <= 0) return 0; in set_mat_subitem_index()
1071 size = sizeof(*mesh->material->mat_subitem_index) * in set_mat_subitem_index()
1072 (mesh->material->n_mat_item + 1); in set_mat_subitem_index()
1073 mesh->material->mat_subitem_index = HECMW_malloc(size); in set_mat_subitem_index()
1074 if (mesh->material->mat_subitem_index == NULL) { in set_mat_subitem_index()
1078 memcpy(mesh->material->mat_subitem_index, src, size); in set_mat_subitem_index()
1085 if (mesh->material->n_mat_subitem <= 0) return 0; in set_mat_table_index()
1086 size = sizeof(*mesh->material->mat_table_index) * in set_mat_table_index()
1087 (mesh->material->n_mat_subitem + 1); in set_mat_table_index()
1088 mesh->material->mat_table_index = HECMW_malloc(size); in set_mat_table_index()
1089 if (mesh->material->mat_table_index == NULL) { in set_mat_table_index()
1093 memcpy(mesh->material->mat_table_index, src, size); in set_mat_table_index()
1100 if (mesh->material->n_mat_table <= 0) return 0; in set_mat_val()
1101 size = sizeof(*mesh->material->mat_val) * mesh->material->n_mat_table; in set_mat_val()
1102 mesh->material->mat_val = HECMW_malloc(size); in set_mat_val()
1103 if (mesh->material->mat_val == NULL) { in set_mat_val()
1107 memcpy(mesh->material->mat_val, src, size); in set_mat_val()
1114 if (mesh->material->n_mat_table <= 0) return 0; in set_mat_temp()
1115 size = sizeof(*mesh->material->mat_temp) * mesh->material->n_mat_table; in set_mat_temp()
1116 mesh->material->mat_temp = HECMW_malloc(size); in set_mat_temp()
1117 if (mesh->material->mat_temp == NULL) { in set_mat_temp()
1121 memcpy(mesh->material->mat_temp, src, size); in set_mat_temp()
1126 mesh->mpc->n_mpc = *((int *)src); in set_n_mpc()
1133 if (mesh->mpc->n_mpc <= 0) return 0; in set_mpc_index()
1134 size = sizeof(*mesh->mpc->mpc_index) * (mesh->mpc->n_mpc + 1); in set_mpc_index()
1135 mesh->mpc->mpc_index = HECMW_malloc(size); in set_mpc_index()
1136 if (mesh->mpc->mpc_index == NULL) { in set_mpc_index()
1140 memcpy(mesh->mpc->mpc_index, src, size); in set_mpc_index()
1147 if (mesh->mpc->n_mpc <= 0) return 0; in set_mpc_item()
1148 if (mesh->mpc->mpc_index == NULL) return 0; in set_mpc_item()
1149 if (mesh->mpc->mpc_index[mesh->mpc->n_mpc] <= 0) return 0; in set_mpc_item()
1151 size = sizeof(*mesh->mpc->mpc_item) * mesh->mpc->mpc_index[mesh->mpc->n_mpc]; in set_mpc_item()
1152 mesh->mpc->mpc_item = HECMW_malloc(size); in set_mpc_item()
1153 if (mesh->mpc->mpc_item == NULL) { in set_mpc_item()
1157 memcpy(mesh->mpc->mpc_item, src, size); in set_mpc_item()
1164 if (mesh->mpc->n_mpc <= 0) return 0; in set_mpc_dof()
1165 if (mesh->mpc->mpc_index == NULL) return 0; in set_mpc_dof()
1166 if (mesh->mpc->mpc_index[mesh->mpc->n_mpc] <= 0) return 0; in set_mpc_dof()
1168 size = sizeof(*mesh->mpc->mpc_dof) * mesh->mpc->mpc_index[mesh->mpc->n_mpc]; in set_mpc_dof()
1169 mesh->mpc->mpc_dof = HECMW_malloc(size); in set_mpc_dof()
1170 if (mesh->mpc->mpc_dof == NULL) { in set_mpc_dof()
1174 memcpy(mesh->mpc->mpc_dof, src, size); in set_mpc_dof()
1181 if (mesh->mpc->n_mpc <= 0) return 0; in set_mpc_val()
1182 if (mesh->mpc->mpc_index == NULL) return 0; in set_mpc_val()
1183 if (mesh->mpc->mpc_index[mesh->mpc->n_mpc] <= 0) return 0; in set_mpc_val()
1185 size = sizeof(*mesh->mpc->mpc_val) * mesh->mpc->mpc_index[mesh->mpc->n_mpc]; in set_mpc_val()
1186 mesh->mpc->mpc_val = HECMW_malloc(size); in set_mpc_val()
1187 if (mesh->mpc->mpc_val == NULL) { in set_mpc_val()
1191 memcpy(mesh->mpc->mpc_val, src, size); in set_mpc_val()
1198 if (mesh->mpc->n_mpc <= 0) return 0; in set_mpc_const()
1200 size = sizeof(*mesh->mpc->mpc_const) * mesh->mpc->n_mpc; in set_mpc_const()
1201 mesh->mpc->mpc_const = HECMW_malloc(size); in set_mpc_const()
1202 if (mesh->mpc->mpc_const == NULL) { in set_mpc_const()
1206 memcpy(mesh->mpc->mpc_const, src, size); in set_mpc_const()
1211 mesh->amp->n_amp = *((int *)src); in set_n_amp()
1217 struct hecmwST_amplitude *amp = mesh->amp; in set_amp_name()
1246 if (mesh->amp->n_amp <= 0) return 0; in set_amp_type_definition()
1247 size = sizeof(*mesh->amp->amp_type_definition) * mesh->amp->n_amp; in set_amp_type_definition()
1248 mesh->amp->amp_type_definition = HECMW_malloc(size); in set_amp_type_definition()
1249 if (mesh->amp->amp_type_definition == NULL) { in set_amp_type_definition()
1253 memcpy(mesh->amp->amp_type_definition, src, size); in set_amp_type_definition()
1260 if (mesh->amp->n_amp <= 0) return 0; in set_amp_type_time()
1261 size = sizeof(*mesh->amp->amp_type_time) * mesh->amp->n_amp; in set_amp_type_time()
1262 mesh->amp->amp_type_time = HECMW_malloc(size); in set_amp_type_time()
1263 if (mesh->amp->amp_type_time == NULL) { in set_amp_type_time()
1267 memcpy(mesh->amp->amp_type_time, src, size); in set_amp_type_time()
1274 if (mesh->amp->n_amp <= 0) return 0; in set_amp_type_value()
1275 size = sizeof(*mesh->amp->amp_type_value) * mesh->amp->n_amp; in set_amp_type_value()
1276 mesh->amp->amp_type_value = HECMW_malloc(size); in set_amp_type_value()
1277 if (mesh->amp->amp_type_value == NULL) { in set_amp_type_value()
1281 memcpy(mesh->amp->amp_type_value, src, size); in set_amp_type_value()
1288 if (mesh->amp->n_amp <= 0) return 0; in set_amp_index()
1289 size = sizeof(*mesh->amp->amp_index) * (mesh->amp->n_amp + 1); in set_amp_index()
1290 mesh->amp->amp_index = HECMW_malloc(size); in set_amp_index()
1291 if (mesh->amp->amp_index == NULL) { in set_amp_index()
1295 memcpy(mesh->amp->amp_index, src, size); in set_amp_index()
1302 if (mesh->amp->n_amp <= 0) return 0; in set_amp_val()
1303 if (mesh->amp->amp_index == NULL) return 0; in set_amp_val()
1304 if (mesh->amp->amp_index[mesh->amp->n_amp] <= 0) return 0; in set_amp_val()
1306 size = sizeof(*mesh->amp->amp_val) * mesh->amp->amp_index[mesh->amp->n_amp]; in set_amp_val()
1307 mesh->amp->amp_val = HECMW_malloc(size); in set_amp_val()
1308 if (mesh->amp->amp_val == NULL) { in set_amp_val()
1312 memcpy(mesh->amp->amp_val, src, size); in set_amp_val()
1319 if (mesh->amp->n_amp <= 0) return 0; in set_amp_table()
1320 if (mesh->amp->amp_index == NULL) return 0; in set_amp_table()
1321 if (mesh->amp->amp_index[mesh->amp->n_amp] <= 0) return 0; in set_amp_table()
1323 size = sizeof(*mesh->amp->amp_table) * mesh->amp->amp_index[mesh->amp->n_amp]; in set_amp_table()
1324 mesh->amp->amp_table = HECMW_malloc(size); in set_amp_table()
1325 if (mesh->amp->amp_table == NULL) { in set_amp_table()
1329 memcpy(mesh->amp->amp_table, src, size); in set_amp_table()
1334 mesh->node_group->n_grp = *((int *)src); in set_ngrp_n_grp()
1339 mesh->node_group->n_bc = *((int *)src); in set_ngrp_n_bc()
1345 struct hecmwST_node_grp *grp = mesh->node_group; in set_ngrp_grp_name()
1374 if (mesh->node_group->n_grp <= 0) return 0; in set_ngrp_grp_index()
1375 size = sizeof(*mesh->node_group->grp_index) * (mesh->node_group->n_grp + 1); in set_ngrp_grp_index()
1376 mesh->node_group->grp_index = HECMW_malloc(size); in set_ngrp_grp_index()
1377 if (mesh->node_group->grp_index == NULL) { in set_ngrp_grp_index()
1381 memcpy(mesh->node_group->grp_index, src, size); in set_ngrp_grp_index()
1388 if (mesh->node_group->n_grp <= 0) return 0; in set_ngrp_grp_item()
1389 if (mesh->node_group->grp_index == NULL) return 0; in set_ngrp_grp_item()
1390 if (mesh->node_group->grp_index[mesh->node_group->n_grp] <= 0) return 0; in set_ngrp_grp_item()
1392 size = sizeof(*mesh->node_group->grp_item) * in set_ngrp_grp_item()
1393 mesh->node_group->grp_index[mesh->node_group->n_grp]; in set_ngrp_grp_item()
1394 mesh->node_group->grp_item = HECMW_malloc(size); in set_ngrp_grp_item()
1395 if (mesh->node_group->grp_item == NULL) { in set_ngrp_grp_item()
1399 memcpy(mesh->node_group->grp_item, src, size); in set_ngrp_grp_item()
1406 if (mesh->node_group->n_bc <= 0) return 0; in set_ngrp_bc_grp_ID()
1407 size = sizeof(*mesh->node_group->bc_grp_ID) * mesh->node_group->n_bc; in set_ngrp_bc_grp_ID()
1408 mesh->node_group->bc_grp_ID = HECMW_malloc(size); in set_ngrp_bc_grp_ID()
1409 if (mesh->node_group->bc_grp_ID == NULL) { in set_ngrp_bc_grp_ID()
1413 memcpy(mesh->node_group->bc_grp_ID, src, size); in set_ngrp_bc_grp_ID()
1420 if (mesh->node_group->n_bc <= 0) return 0; in set_ngrp_bc_grp_type()
1421 size = sizeof(*mesh->node_group->bc_grp_type) * mesh->node_group->n_bc; in set_ngrp_bc_grp_type()
1422 mesh->node_group->bc_grp_type = HECMW_malloc(size); in set_ngrp_bc_grp_type()
1423 if (mesh->node_group->bc_grp_type == NULL) { in set_ngrp_bc_grp_type()
1427 memcpy(mesh->node_group->bc_grp_type, src, size); in set_ngrp_bc_grp_type()
1434 if (mesh->node_group->n_bc <= 0) return 0; in set_ngrp_bc_grp_index()
1435 size = sizeof(*mesh->node_group->bc_grp_index) * mesh->node_group->n_bc; in set_ngrp_bc_grp_index()
1436 mesh->node_group->bc_grp_index = HECMW_malloc(size); in set_ngrp_bc_grp_index()
1437 if (mesh->node_group->bc_grp_index == NULL) { in set_ngrp_bc_grp_index()
1441 memcpy(mesh->node_group->bc_grp_index, src, size); in set_ngrp_bc_grp_index()
1448 if (mesh->node_group->n_bc <= 0) return 0; in set_ngrp_bc_grp_dof()
1449 size = sizeof(*mesh->node_group->bc_grp_dof) * mesh->node_group->n_bc; in set_ngrp_bc_grp_dof()
1450 mesh->node_group->bc_grp_dof = HECMW_malloc(size); in set_ngrp_bc_grp_dof()
1451 if (mesh->node_group->bc_grp_dof == NULL) { in set_ngrp_bc_grp_dof()
1455 memcpy(mesh->node_group->bc_grp_dof, src, size); in set_ngrp_bc_grp_dof()
1462 if (mesh->node_group->n_bc <= 0) return 0; in set_ngrp_bc_grp_val()
1463 size = sizeof(*mesh->node_group->bc_grp_val) * mesh->node_group->n_bc; in set_ngrp_bc_grp_val()
1464 mesh->node_group->bc_grp_val = HECMW_malloc(size); in set_ngrp_bc_grp_val()
1465 if (mesh->node_group->bc_grp_val == NULL) { in set_ngrp_bc_grp_val()
1469 memcpy(mesh->node_group->bc_grp_val, src, size); in set_ngrp_bc_grp_val()
1474 mesh->elem_group->n_grp = *((int *)src); in set_egrp_n_grp()
1479 mesh->elem_group->n_bc = *((int *)src); in set_egrp_n_bc()
1485 struct hecmwST_elem_grp *grp = mesh->elem_group; in set_egrp_grp_name()
1514 if (mesh->elem_group->n_grp <= 0) return 0; in set_egrp_grp_index()
1515 size = sizeof(*mesh->elem_group->grp_index) * (mesh->elem_group->n_grp + 1); in set_egrp_grp_index()
1516 mesh->elem_group->grp_index = HECMW_malloc(size); in set_egrp_grp_index()
1517 if (mesh->elem_group->grp_index == NULL) { in set_egrp_grp_index()
1521 memcpy(mesh->elem_group->grp_index, src, size); in set_egrp_grp_index()
1528 if (mesh->elem_group->n_grp <= 0) return 0; in set_egrp_grp_item()
1529 if (mesh->elem_group->grp_index == NULL) return 0; in set_egrp_grp_item()
1530 if (mesh->elem_group->grp_index[mesh->elem_group->n_grp] <= 0) return 0; in set_egrp_grp_item()
1532 size = sizeof(*mesh->elem_group->grp_item) * in set_egrp_grp_item()
1533 mesh->elem_group->grp_index[mesh->elem_group->n_grp]; in set_egrp_grp_item()
1534 mesh->elem_group->grp_item = HECMW_malloc(size); in set_egrp_grp_item()
1535 if (mesh->elem_group->grp_item == NULL) { in set_egrp_grp_item()
1539 memcpy(mesh->elem_group->grp_item, src, size); in set_egrp_grp_item()
1546 if (mesh->elem_group->n_bc <= 0) return 0; in set_egrp_bc_grp_ID()
1547 size = sizeof(*mesh->elem_group->bc_grp_ID) * mesh->elem_group->n_bc; in set_egrp_bc_grp_ID()
1548 mesh->elem_group->bc_grp_ID = HECMW_malloc(size); in set_egrp_bc_grp_ID()
1549 if (mesh->elem_group->bc_grp_ID == NULL) { in set_egrp_bc_grp_ID()
1553 memcpy(mesh->elem_group->bc_grp_ID, src, size); in set_egrp_bc_grp_ID()
1560 if (mesh->elem_group->n_bc <= 0) return 0; in set_egrp_bc_grp_type()
1561 size = sizeof(*mesh->elem_group->bc_grp_type) * mesh->elem_group->n_bc; in set_egrp_bc_grp_type()
1562 mesh->elem_group->bc_grp_type = HECMW_malloc(size); in set_egrp_bc_grp_type()
1563 if (mesh->elem_group->bc_grp_type == NULL) { in set_egrp_bc_grp_type()
1567 memcpy(mesh->elem_group->bc_grp_type, src, size); in set_egrp_bc_grp_type()
1574 if (mesh->elem_group->n_bc <= 0) return 0; in set_egrp_bc_grp_index()
1575 size = sizeof(*mesh->elem_group->bc_grp_index) * mesh->elem_group->n_bc; in set_egrp_bc_grp_index()
1576 mesh->elem_group->bc_grp_index = HECMW_malloc(size); in set_egrp_bc_grp_index()
1577 if (mesh->elem_group->bc_grp_index == NULL) { in set_egrp_bc_grp_index()
1581 memcpy(mesh->elem_group->bc_grp_index, src, size); in set_egrp_bc_grp_index()
1588 if (mesh->elem_group->n_bc <= 0) return 0; in set_egrp_bc_grp_val()
1589 size = sizeof(*mesh->elem_group->bc_grp_val) * mesh->elem_group->n_bc; in set_egrp_bc_grp_val()
1590 mesh->elem_group->bc_grp_val = HECMW_malloc(size); in set_egrp_bc_grp_val()
1591 if (mesh->elem_group->bc_grp_val == NULL) { in set_egrp_bc_grp_val()
1595 memcpy(mesh->elem_group->bc_grp_val, src, size); in set_egrp_bc_grp_val()
1600 mesh->surf_group->n_grp = *((int *)src); in set_sgrp_n_grp()
1605 mesh->surf_group->n_bc = *((int *)src); in set_sgrp_n_bc()
1611 struct hecmwST_surf_grp *grp = mesh->surf_group; in set_sgrp_grp_name()
1640 if (mesh->surf_group->n_grp <= 0) return 0; in set_sgrp_grp_index()
1641 size = sizeof(*mesh->surf_group->grp_index) * (mesh->surf_group->n_grp + 1); in set_sgrp_grp_index()
1642 mesh->surf_group->grp_index = HECMW_malloc(size); in set_sgrp_grp_index()
1643 if (mesh->surf_group->grp_index == NULL) { in set_sgrp_grp_index()
1647 memcpy(mesh->surf_group->grp_index, src, size); in set_sgrp_grp_index()
1654 if (mesh->surf_group->n_grp <= 0) return 0; in set_sgrp_grp_item()
1655 if (mesh->surf_group->grp_index == NULL) return 0; in set_sgrp_grp_item()
1656 if (mesh->surf_group->grp_index[mesh->surf_group->n_grp] <= 0) return 0; in set_sgrp_grp_item()
1658 size = sizeof(*mesh->surf_group->grp_item) * 2 * in set_sgrp_grp_item()
1659 mesh->surf_group->grp_index[mesh->surf_group->n_grp]; in set_sgrp_grp_item()
1660 mesh->surf_group->grp_item = HECMW_malloc(size); in set_sgrp_grp_item()
1661 if (mesh->surf_group->grp_item == NULL) { in set_sgrp_grp_item()
1665 memcpy(mesh->surf_group->grp_item, src, size); in set_sgrp_grp_item()
1672 if (mesh->surf_group->n_bc <= 0) return 0; in set_sgrp_bc_grp_ID()
1673 size = sizeof(*mesh->surf_group->bc_grp_ID) * mesh->surf_group->n_bc; in set_sgrp_bc_grp_ID()
1674 mesh->surf_group->bc_grp_ID = HECMW_malloc(size); in set_sgrp_bc_grp_ID()
1675 if (mesh->surf_group->bc_grp_ID == NULL) { in set_sgrp_bc_grp_ID()
1679 memcpy(mesh->surf_group->bc_grp_ID, src, size); in set_sgrp_bc_grp_ID()
1686 if (mesh->surf_group->n_bc <= 0) return 0; in set_sgrp_bc_grp_type()
1687 size = sizeof(*mesh->surf_group->bc_grp_type) * mesh->surf_group->n_bc; in set_sgrp_bc_grp_type()
1688 mesh->surf_group->bc_grp_type = HECMW_malloc(size); in set_sgrp_bc_grp_type()
1689 if (mesh->surf_group->bc_grp_type == NULL) { in set_sgrp_bc_grp_type()
1693 memcpy(mesh->surf_group->bc_grp_type, src, size); in set_sgrp_bc_grp_type()
1700 if (mesh->surf_group->n_bc <= 0) return 0; in set_sgrp_bc_grp_index()
1701 size = sizeof(*mesh->surf_group->bc_grp_index) * 2 * mesh->surf_group->n_bc; in set_sgrp_bc_grp_index()
1702 mesh->surf_group->bc_grp_index = HECMW_malloc(size); in set_sgrp_bc_grp_index()
1703 if (mesh->surf_group->bc_grp_index == NULL) { in set_sgrp_bc_grp_index()
1707 memcpy(mesh->surf_group->bc_grp_index, src, size); in set_sgrp_bc_grp_index()
1714 if (mesh->surf_group->n_bc <= 0) return 0; in set_sgrp_bc_grp_val()
1715 size = sizeof(*mesh->surf_group->bc_grp_val) * mesh->surf_group->n_bc; in set_sgrp_bc_grp_val()
1716 mesh->surf_group->bc_grp_val = HECMW_malloc(size); in set_sgrp_bc_grp_val()
1717 if (mesh->surf_group->bc_grp_val == NULL) { in set_sgrp_bc_grp_val()
1721 memcpy(mesh->surf_group->bc_grp_val, src, size); in set_sgrp_bc_grp_val()
1726 mesh->contact_pair->n_pair = *((int *)src); in set_contact_pair_n_pair()
1732 struct hecmwST_contact_pair *cpair = mesh->contact_pair; in set_contact_pair_name()
1761 if (mesh->contact_pair->n_pair <= 0) return 0; in set_contact_pair_type()
1762 size = sizeof(*mesh->contact_pair->type) * (mesh->contact_pair->n_pair); in set_contact_pair_type()
1763 mesh->contact_pair->type = HECMW_malloc(size); in set_contact_pair_type()
1764 if (mesh->contact_pair->type == NULL) { in set_contact_pair_type()
1768 memcpy(mesh->contact_pair->type, src, size); in set_contact_pair_type()
1775 if (mesh->contact_pair->n_pair <= 0) return 0; in set_contact_pair_slave_grp_id()
1777 sizeof(*mesh->contact_pair->slave_grp_id) * (mesh->contact_pair->n_pair); in set_contact_pair_slave_grp_id()
1778 mesh->contact_pair->slave_grp_id = HECMW_malloc(size); in set_contact_pair_slave_grp_id()
1779 if (mesh->contact_pair->slave_grp_id == NULL) { in set_contact_pair_slave_grp_id()
1783 memcpy(mesh->contact_pair->slave_grp_id, src, size); in set_contact_pair_slave_grp_id()
1790 if (mesh->contact_pair->n_pair <= 0) return 0; in set_contact_pair_slave_orisgrp_id()
1792 sizeof(*mesh->contact_pair->slave_orisgrp_id) * (mesh->contact_pair->n_pair); in set_contact_pair_slave_orisgrp_id()
1793 mesh->contact_pair->slave_orisgrp_id = HECMW_malloc(size); in set_contact_pair_slave_orisgrp_id()
1794 if (mesh->contact_pair->slave_orisgrp_id == NULL) { in set_contact_pair_slave_orisgrp_id()
1798 memcpy(mesh->contact_pair->slave_orisgrp_id, src, size); in set_contact_pair_slave_orisgrp_id()
1805 if (mesh->contact_pair->n_pair <= 0) return 0; in set_contact_pair_master_grp_id()
1807 sizeof(*mesh->contact_pair->master_grp_id) * (mesh->contact_pair->n_pair); in set_contact_pair_master_grp_id()
1808 mesh->contact_pair->master_grp_id = HECMW_malloc(size); in set_contact_pair_master_grp_id()
1809 if (mesh->contact_pair->master_grp_id == NULL) { in set_contact_pair_master_grp_id()
1813 memcpy(mesh->contact_pair->master_grp_id, src, size); in set_contact_pair_master_grp_id()
2029 mesh = local_mesh; in HECMW_dist_copy_f2c_init()
2034 mesh = NULL; in HECMW_dist_copy_f2c_finalize()
2048 if (mesh == NULL) { in hecmw_dist_copy_f2c_set_if()