FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_transfer_result_c.f90
Go to the documentation of this file.
1!-------------------------------------------------------------------------------
2! Copyright (c) 2019 FrontISTR Commons
3! This software is released under the MIT License, see LICENSE.txt
4!-------------------------------------------------------------------------------
6
7subroutine hecmw_dist_result_copy_f2c(adapRES)
8 use hecmw_util
10 use hecmw_io
12 type (hecmwST_result_data):: adapRES
13
14
15
16 if(adapres%nn_component .gt.0) then
17 call hecmw_set_result_node(adapres%nn_component,adapres%nn_dof,adapres%node_label, &
18 adapres%node_val_item)
19 deallocate (adapres%node_val_item)
20 endif
21 if(adapres%ne_component .gt.0) then
22 call hecmw_set_result_elem(adapres%ne_component,adapres%ne_dof, adapres%elem_label, &
23 adapres%elem_val_item)
24 deallocate (adapres%elem_val_item)
25 endif
26
27end subroutine hecmw_dist_result_copy_f2c
28
subroutine hecmw_dist_result_copy_f2c(adapres)
Dynamic Load Balancing.
I/O and Utility memo) Intel 9 compiler generates codes to wast stack memory when an array of string i...
I/O and Utility.
Definition: hecmw_io.f90:7
I/O and Utility.
I/O and Utility.
Definition: hecmw_util_f.F90:7