FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_dist_result_copy_c2f.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_c2f(hecMESHnew, adapRES)
8 use hecmw_util
10 use hecmw_io
12 type (hecmwST_local_mesh) :: hecMESHnew
13 type (hecmwST_result_data):: adapRES
14
15 if(adapres%nn_component .gt.0) then
16 do i=1, adapres%nn_component
17 in=in+adapres%nn_dof(i)
18 enddo
19 allocate (adapres%node_val_item(in*hecmeshnew%n_node))
20 call hecmw_dlb_get_result_node(adapres%node_val_item)
21 endif
22 if(adapres%ne_component .gt.0) then
23 do i=1, adapres%ne_component
24 in=in+adapres%ne_dof(i)
25 enddo
26 allocate (adapres%elem_val_item(in*hecmeshnew%n_elem))
27 call hecmw_dlb_get_result_elem(adapres%elem_val_item)
28 endif
29
30end subroutine hecmw_dist_result_copy_c2f
31
subroutine hecmw_dist_result_copy_c2f(hecmeshnew, 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