43 type,
public,
abstract ::
ax_t
55 module subroutine ax_helm_factory(object, full_formulation)
56 class(ax_t),
allocatable,
intent(inout) :: object
57 logical,
intent(in) :: full_formulation
58 end subroutine ax_helm_factory
61 public :: ax_helm_factory
71 subroutine ax_compute(w, u, coef, msh, Xh)
78 type(
space_t),
intent(inout) :: Xh
79 type(
mesh_t),
intent(inout) :: msh
80 type(
coef_t),
intent(inout) :: coef
81 real(kind=
rp),
intent(inout) :: w(xh%lx, xh%ly, xh%lz, msh%nelv)
82 real(kind=
rp),
intent(inout) :: u(xh%lx, xh%ly, xh%lz, msh%nelv)
83 end subroutine ax_compute
98 subroutine ax_compute_vector(this, au, av, aw, u, v, w, coef, msh, Xh)
105 class(ax_t),
intent(in) :: this
106 type(
space_t),
intent(inout) :: Xh
107 type(
mesh_t),
intent(inout) :: msh
108 type(
coef_t),
intent(inout) :: coef
109 real(kind=
rp),
intent(inout) :: au(xh%lx, xh%ly, xh%lz, msh%nelv)
110 real(kind=
rp),
intent(inout) :: av(xh%lx, xh%ly, xh%lz, msh%nelv)
111 real(kind=
rp),
intent(inout) :: aw(xh%lx, xh%ly, xh%lz, msh%nelv)
112 real(kind=
rp),
intent(inout) :: u(xh%lx, xh%ly, xh%lz, msh%nelv)
113 real(kind=
rp),
intent(inout) :: v(xh%lx, xh%ly, xh%lz, msh%nelv)
114 real(kind=
rp),
intent(inout) :: w(xh%lx, xh%ly, xh%lz, msh%nelv)
115 end subroutine ax_compute_vector
Abstract interface for computing inside a Krylov method, taking 3 components of a vector field in a ...
Factory routine for the a Helmholtz problem matrix-vector product. The selection is based on the comp...
Defines a Matrix-vector product.
integer, parameter, public rp
Global precision used in computations.
Defines a function space.
Base type for a matrix-vector product providing .
Coefficients defined on a given (mesh, ) tuple. Arrays use indices (i,j,k,e): element e,...
The function space for the SEM solution fields.