49 class(
pc_t),
target,
allocatable,
intent(inout) :: pc
50 character(len=*),
intent(in) :: pctype
52 if (
allocated(pc))
then
57 if (trim(pctype) .eq.
'jacobi')
then
65 else if (pctype(1:4) .eq.
'hsmg')
then
67 else if(trim(pctype) .eq.
'ident')
then
74 call neko_error(
'Unknown preconditioner '//trim(pctype))
81 class(
pc_t),
allocatable,
intent(inout) :: pc
83 if (
allocated(pc))
then
84 select type(pcp => pc)
Identity Krylov preconditioner for accelerators.
Jacobi preconditioner accelerator backend.
Krylov preconditioner (identity)
integer, parameter neko_bcknd_sx
integer, parameter neko_bcknd_device
subroutine precon_destroy(pc)
Destroy a preconditioner.
subroutine precon_factory(pc, pctype)
Create a preconditioner.
Jacobi preconditioner SX-Aurora backend.
Defines a canonical Krylov preconditioner for accelerators.
Defines a jacobi preconditioner.
Defines a canonical Krylov preconditioner.
Defines a jacobi preconditioner.
Defines a canonical Krylov preconditioner.
Defines a jacobi preconditioner for SX-Aurora.