31 integer(kind=kint),
intent(in) :: sym
49 write (*,
'(/a )')
'#### HEC-MW-SOLVER-E-1001'
50 write (*,
'( a/)')
' inconsistent solver/preconditioning'
88 real(kind=
kreal),
intent(in) :: r(:)
89 real(kind=
kreal),
intent(out) :: z(:), zp(:)
90 real(kind=
kreal),
intent(inout) :: time_precond
91 real(kind=
kreal),
intent(inout) :: commtime
92 integer(kind=kint ) :: i, iterpre, iterpremax
93 real(kind=
kreal) :: start_time, end_time
96 do iterpre= 1, iterpremax
114 time_precond = time_precond + end_time - start_time
117 do i= 1, hecmat%N * hecmat%NDOF
120 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_bilu_nn_setup(hecmat)
subroutine, public hecmw_precond_bilu_nn_apply(ww, ndof)
subroutine, public hecmw_precond_bilu_nn_clear()
subroutine, public hecmw_precond_diag_nn_clear()
subroutine, public hecmw_precond_diag_nn_setup(hecmat)
subroutine, public hecmw_precond_diag_nn_apply(ww, ndof)
subroutine, public hecmw_precond_ml_nn_setup(hecmat, hecmesh, sym)
subroutine, public hecmw_precond_ml_nn_clear()
subroutine, public hecmw_precond_ml_nn_apply(ww)
subroutine, public hecmw_precond_nn_clear(hecmat)
subroutine, public hecmw_precond_nn_apply(hecmesh, hecmat, r, z, zp, time_precond, commtime)
subroutine, public hecmw_precond_nn_setup(hecmat, hecmesh, sym)
subroutine, public hecmw_precond_rif_nn_clear()
subroutine, public hecmw_precond_rif_nn_setup(hecmat)
subroutine, public hecmw_precond_rif_nn_apply(zp, ndof)
subroutine, public hecmw_precond_nn_sainv_apply(r, zp)
subroutine, public hecmw_precond_nn_sainv_clear()
subroutine, public hecmw_precond_nn_sainv_setup(hecmat)
subroutine, public hecmw_precond_ssor_nn_setup(hecmat)
subroutine, public hecmw_precond_ssor_nn_clear(hecmat)
subroutine, public hecmw_precond_ssor_nn_apply(zp, ndof)
This module provides linear equation solver interface for MUMPS.
subroutine, public hecmw_solve_direct_mumps(hecmesh, hecmat)
subroutine, public hecmw_matresid_nn(hecmesh, hecmat, x, b, r, commtime)
integer(kind=kint) function hecmw_comm_get_comm()
integer(kind=4), parameter kreal
subroutine hecmw_abort(comm)
real(kind=kreal) function hecmw_wtime()