FrontISTR  5.7.0
Large-scale structural analysis program with finit element method
hecmw_precond_SAINV.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 !-------------------------------------------------------------------------------
5 
7  use hecmw_util
10  implicit none
11 
12  private
16 
17 contains
18 
19  subroutine hecmw_precond_sainv_setup(hecMAT)
20  implicit none
21  type (hecmwst_matrix), intent(inout) :: hecmat
22 
23  select case(hecmat%NDOF)
24  case(3)
25  call hecmw_precond_sainv_33_setup(hecmat)
26  case default
27  call hecmw_precond_sainv_nn_setup(hecmat)
28  end select
29  end subroutine hecmw_precond_sainv_setup
30 
31  subroutine hecmw_precond_sainv_clear(NDOF)
32  implicit none
33  integer(kind=kint), intent(in) :: ndof
34 
35  select case(ndof)
36  case(3)
38  case default
40  end select
41  end subroutine hecmw_precond_sainv_clear
42 
43  subroutine hecmw_precond_sainv_apply(R, ZP, NDOF)
44  implicit none
45  real(kind=kreal), intent(in) :: r(:)
46  real(kind=kreal), intent(inout) :: zp(:)
47  integer(kind=kint), intent(in) :: ndof
48 
49  select case(ndof)
50  case(3)
52  case default
54  end select
55  end subroutine hecmw_precond_sainv_apply
56 
57 end module hecmw_precond_sainv
subroutine, public hecmw_precond_sainv_33_apply(R, ZP)
subroutine, public hecmw_precond_sainv_33_clear()
subroutine, public hecmw_precond_sainv_33_setup(hecMAT)
subroutine, public hecmw_precond_sainv_nn_clear()
subroutine, public hecmw_precond_sainv_nn_apply(R, ZP)
subroutine, public hecmw_precond_sainv_nn_setup(hecMAT)
subroutine, public hecmw_precond_sainv_setup(hecMAT)
subroutine, public hecmw_precond_sainv_clear(NDOF)
subroutine, public hecmw_precond_sainv_apply(R, ZP, NDOF)
I/O and Utility.
Definition: hecmw_util_f.F90:7
integer(kind=4), parameter kreal