20 integer(kind=kint),
save :: id
22 logical,
save :: INITIALIZED = .false.
32 integer(kind=kint),
intent(in) :: sym
33 integer(kind=kint) :: ierr
34 integer(kind=kint),
save :: n_recycle = 0
36 if (hecmat%Iarray(98) == 1)
then
38 else if (hecmat%Iarray(97) == 1)
then
47 call hecmw_ml_wrapper_setup(id, sym, hecmat%NDOF, ierr)
56 real(kind=
kreal),
intent(inout) :: ww(:)
57 integer(kind=kint) :: ierr
58 call hecmw_ml_wrapper_apply(id, ww, ierr)
64 integer(kind=kint) :: ierr
65 call hecmw_ml_wrapper_clear(id, ierr)
subroutine, public hecmw_mat_id_set(hecMAT, hecMESH, id)
subroutine, public hecmw_mat_id_clear(id)
subroutine, public hecmw_precond_ml_nn_apply(WW)
subroutine, public hecmw_precond_ml_nn_clear()
subroutine, public hecmw_precond_ml_nn_setup(hecMAT, hecMESH, sym)
integer(kind=4), parameter kreal