hecmw_adapt_init.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2019 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
 
subroutine hecmw_adapt_init (hecMESH)
 
  use  hecmw_util
  type      (hecmwST_local_mesh) :: hecMESH
 
  if (hecmesh%my_rank.eq.0) write (*,'(/,a)') '#allocate (n_node, nn_int, n_elem, ne_int)'
  call hecmw_adapt_allocate   (hecmesh)
 
  if (hecmesh%my_rank.eq.0) write (*,'(/,a)') '#ACTIVE'
  call hecmw_adapt_active (hecmesh)
 
  if (hecmesh%my_rank.eq.0) write (*,'(/,a)') '#E-COMM.TAB.'
  call hecmw_adapt_edge_comm_table (hecmesh)
  if (hecmesh%my_rank.eq.0) write (*,'(  a)') '#C-COMM.TAB.'
  call hecmw_adapt_cell_comm_table (hecmesh)
 
end subroutine hecmw_adapt_init