FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_adapt_init.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_adapt_init (hecMESH)
8
9 use hecmw_util
10 type (hecmwST_local_mesh) :: hecMESH
11
12 if (hecmesh%my_rank.eq.0) write (*,'(/,a)') '#allocate (n_node, nn_int, n_elem, ne_int)'
13 call hecmw_adapt_allocate (hecmesh)
14
15 if (hecmesh%my_rank.eq.0) write (*,'(/,a)') '#ACTIVE'
16 call hecmw_adapt_active (hecmesh)
17
18 if (hecmesh%my_rank.eq.0) write (*,'(/,a)') '#E-COMM.TAB.'
19 call hecmw_adapt_edge_comm_table (hecmesh)
20 if (hecmesh%my_rank.eq.0) write (*,'( a)') '#C-COMM.TAB.'
21 call hecmw_adapt_cell_comm_table (hecmesh)
22
23end subroutine hecmw_adapt_init
subroutine hecmw_adapt_active(hecmesh)
Adaptive Mesh Refinement.
subroutine hecmw_adapt_allocate(hecmesh)
Adaptive Mesh Refinement.
subroutine hecmw_adapt_cell_comm_table(hecmesh)
Adaptive Mesh Refinement.
subroutine hecmw_adapt_edge_comm_table(hecmesh)
Adaptive Mesh Refinement.
subroutine hecmw_adapt_init(hecmesh)
Adaptive Mesh Refinement.
I/O and Utility.
Definition: hecmw_util_f.F90:7