24 real(kind=
kreal) :: time_precond = 0.d0
32 integer(kind=kint) :: sym
36 select case(hecmat%NDOF)
58 select case(hecmat%NDOF)
79 real(kind=
kreal),
intent(inout) :: r(:)
80 real(kind=
kreal),
intent(inout) :: z(:), zp(:)
81 real(kind=
kreal),
intent(inout) :: commtime
82 integer(kind=kint ) :: i, n, np, nndof, npndof
85 nndof = n * hecmat%NDOF
86 npndof = np * hecmat%NDOF
106 select case(hecmat%NDOF)
integer(kind=kint) function, public hecmw_mat_get_iterpremax(hecMAT)
subroutine, public hecmw_precond_11_setup(hecMAT, hecMESH, sym)
subroutine, public hecmw_precond_11_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime)
subroutine, public hecmw_precond_11_clear(hecMAT)
subroutine, public hecmw_precond_22_setup(hecMAT, hecMESH, sym)
subroutine, public hecmw_precond_22_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime)
subroutine, public hecmw_precond_22_clear(hecMAT)
subroutine, public hecmw_precond_33_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime)
subroutine, public hecmw_precond_33_clear(hecMAT)
subroutine, public hecmw_precond_33_setup(hecMAT, hecMESH, sym)
subroutine, public hecmw_precond_44_setup(hecMAT, hecMESH, sym)
subroutine, public hecmw_precond_44_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime)
subroutine, public hecmw_precond_44_clear(hecMAT)
subroutine, public hecmw_precond_66_setup(hecMAT, hecMESH, sym)
subroutine, public hecmw_precond_66_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime)
subroutine, public hecmw_precond_66_clear(hecMAT)
subroutine, public hecmw_precond_nn_setup(hecMAT, hecMESH, sym)
subroutine, public hecmw_precond_nn_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime)
subroutine, public hecmw_precond_nn_clear(hecMAT)
subroutine, public hecmw_precond_clear_timer
real(kind=kreal) function, public hecmw_precond_get_timer()
subroutine, public hecmw_precond_clear(hecMAT)
subroutine, public hecmw_precond_setup(hecMAT, hecMESH, sym)
subroutine, public hecmw_precond_apply(hecMESH, hecMAT, R, Z, ZP, COMMtime)
integer(kind=4), parameter kreal