FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_couple_get_mesh_f.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
8
9 use hecmw_util
10 use hecmw_io
13
14 implicit none
15 private
16 public :: hecmw_couple_get_mesh
17
18contains
19
20subroutine hecmw_couple_get_mesh(name_ID, unit_ID, mesh)
21
22 character(len=HECMW_NAME_LEN), intent(in) :: name_id
23 character(len=HECMW_NAME_LEN), intent(in) :: unit_id
24 type(hecmwst_local_mesh), intent(out) :: mesh
25
26 call hecmw_get_mesh(name_id, mesh)
27
28 mesh%PETOT = hecmw_intracomm_get_size_u(unit_id)
29 mesh%my_rank = hecmw_intracomm_get_rank_u(unit_id)
30 mesh%MPI_COMM = hecmw_intracomm_get_comm_u(unit_id)
31
32end subroutine hecmw_couple_get_mesh
33
subroutine, public hecmw_couple_get_mesh(name_id, unit_id, mesh)
Coupling Interface.
integer(kind=kint) function, public hecmw_intracomm_get_rank_u(unit_id)
integer(kind=kint) function, public hecmw_intracomm_get_size_u(unit_id)
integer(kind=kint) function, public hecmw_intracomm_get_comm_u(unit_id)
I/O and Utility.
Definition: hecmw_io.f90:7
subroutine, public hecmw_get_mesh(name_id, mesh)
Definition: hecmw_io.f90:27
I/O and Utility.
Definition: hecmw_util_f.F90:7