31 integer(kind=kint),
intent(in) :: sym
79 real(kind=
kreal),
intent(in) :: r(:)
80 real(kind=
kreal),
intent(out) :: z(:), zp(:)
81 real(kind=
kreal),
intent(inout) :: time_precond
82 real(kind=
kreal),
intent(inout) :: commtime
83 integer(kind=kint ) :: i, iterpre, iterpremax
84 real(kind=
kreal) :: start_time, end_time
87 do iterpre= 1, iterpremax
107 time_precond = time_precond + end_time - start_time
110 do i= 1, hecmat%N * hecmat%NDOF
113 if (iterpre.eq.iterpremax)
exit
integer(kind=kint) function, public hecmw_mat_get_iterpremax(hecMAT)
integer(kind=kint) function, public hecmw_mat_get_precond(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_bilu_33_clear()
subroutine, public hecmw_precond_bilu_33_apply(WW)
subroutine, public hecmw_precond_bilu_33_setup(hecMAT)
subroutine, public hecmw_precond_diag_33_apply(WW)
subroutine, public hecmw_precond_diag_33_clear()
subroutine, public hecmw_precond_diag_33_setup(hecMAT)
subroutine, public hecmw_precond_ml_33_apply(WW)
subroutine, public hecmw_precond_ml_33_clear()
subroutine, public hecmw_precond_ml_33_setup(hecMAT, hecMESH, sym)
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_rif_33_apply(ZP)
subroutine, public hecmw_precond_rif_33_setup(hecMAT)
subroutine, public hecmw_precond_rif_33_clear()
subroutine, public hecmw_precond_33_sainv_setup(hecMAT)
subroutine, public hecmw_precond_33_sainv_apply(R, ZP)
subroutine, public hecmw_precond_33_sainv_clear()
subroutine, public hecmw_precond_ssor_33_apply(ZP)
subroutine, public hecmw_precond_ssor_33_setup(hecMAT)
subroutine, public hecmw_precond_ssor_33_clear(hecMAT)
subroutine, public hecmw_matresid_33(hecMESH, hecMAT, X, B, R, COMMtime)
integer(kind=4), parameter kreal
real(kind=kreal) function hecmw_wtime()