FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_transfer_data_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_transfer_data_c2f (hecMESHnew, adapRES)
8
9 use hecmw_util
10 use hecmw_io
12 use hecmw_result
13 type (hecmwST_local_mesh) :: hecMESHnew
14 type (hecmwST_result_data):: adapRES
15 write (*,'(/,a)') '#start transfer from c to fortran'
16
17 call hecmw_dist_free(hecmeshnew)
18 write (*,'(/,a)') '#ok to deallocate'
19 call hecmw_dlb_c2f_init()
20 write(*,*) 'my_rank=',hecmeshnew%my_rank
21 if(hecmeshnew%my_rank .eq. 0) write (*,'(/,a)') '#ok to initialize'
22 call hecmw_dist_copy_c2f(hecmeshnew, ierr)
23 write (*,'(/,a)') '#ok to copy'
24 print *, hecmeshnew%n_node
25 call hecmw_dlb_c2f_finalize
26 call hecmw_dist_result_copy_c2f(hecmeshnew, adapres)
27end subroutine hecmw_transfer_data_c2f
28
subroutine hecmw_dist_result_copy_c2f(hecmeshnew, adapres)
Dynamic Load Balancing.
subroutine hecmw_transfer_data_c2f(hecmeshnew, adapres)
Dynamic Load Balancing.
subroutine, public hecmw_dist_copy_c2f(mesh, ierr)
I/O and Utility.
Definition: hecmw_io.f90:7
I/O and Utility.
I/O and Utility.
Definition: hecmw_util_f.F90:7