FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
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
8
9 use hecmw_util
10
11 implicit none
12 private
13 public :: hecmw_couple_finalize
14
15contains
16
17subroutine 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
25end subroutine hecmw_couple_finalize
26
void hecmw_couple_finalize_if(char *boundary_id, int *err, int len)
subroutine, public hecmw_couple_finalize(boundary_id)
I/O and Utility.
Definition: hecmw_util_f.F90:7
integer(kind=kint) function hecmw_comm_get_comm()
subroutine hecmw_abort(comm)