FrontISTR  5.7.1
Large-scale structural analysis program with finit element method
hecmw_couple_finalize_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 
7 module hecmw_couple_finalize_f
8 
9  use hecmw_util
10 
11  implicit none
12  private
13  public :: hecmw_couple_finalize
14 
15 contains
16 
17 subroutine hecmw_couple_finalize(boundary_id)
18 
19  character(len=HECMW_NAME_LEN), intent(in) :: boundary_id
20  integer(kind=kint) :: ierr
21 
22  call hecmw_couple_finalize_if(boundary_id, ierr)
23  if(ierr /= 0) call hecmw_abort(hecmw_comm_get_comm())
24 
25 end subroutine hecmw_couple_finalize
26 
27 end module hecmw_couple_finalize_f
hecmw_couple_finalize_if
void hecmw_couple_finalize_if(char *boundary_id, int *err, int len)
Definition: hecmw_couple_finalize_if.c:15
hecmw_couple_finalize_f
Coupling Interface.
Definition: hecmw_couple_finalize_f.f90:7
hecmw_couple_finalize_f::hecmw_couple_finalize
subroutine, public hecmw_couple_finalize(boundary_id)
Definition: hecmw_couple_finalize_f.f90:18
hecmw_util
I/O and Utility.
Definition: hecmw_util_f.F90:7
hecmw_util::hecmw_comm_get_comm
integer(kind=kint) function hecmw_comm_get_comm()
Definition: hecmw_util_f.F90:571
hecmw_util::hecmw_abort
subroutine hecmw_abort(comm)
Definition: hecmw_util_f.F90:534