Derived types and interfaces
type	sll_t_qn_solver_2d_fem_sps_stencil_new_assembler

Functions/Subroutines
subroutine	s_qn_solver_2d_fem_sps_stencil_new_assembler__init (self, n1, n2, p1, p2, weak_form)

subroutine	s_qn_solver_2d_fem_sps_stencil_new_assembler__add_element_mat (self, k1, k2, data_1d_eta1, data_1d_eta2, int_volume, inv_metric, coeffs1, coeffs2, A, M)

subroutine	s_qn_solver_2d_fem_sps_stencil_new_assembler__add_element_rhs (self, k1, k2, data_1d_eta1, data_1d_eta2, data_2d_rhs, int_volume, bs)

Function/Subroutine Documentation

◆ s_qn_solver_2d_fem_sps_stencil_new_assembler__add_element_mat()

subroutine sll_m_qn_solver_2d_fem_sps_stencil_new_assembler::s_qn_solver_2d_fem_sps_stencil_new_assembler__add_element_mat	(	class(sll_t_qn_solver_2d_fem_sps_stencil_new_assembler), intent(in)	self,
		integer, intent(in)	k1,
		integer, intent(in)	k2,
		real(wp), dimension(:, :, :, :), intent(in)	data_1d_eta1,
		real(wp), dimension(:, :, :, :), intent(in)	data_1d_eta2,
		real(wp), dimension(:, :, :, :), intent(in)	int_volume,
		real(wp), dimension(:, :, :, :, :, :), intent(in)	inv_metric,
		real(wp), dimension(:, :, :, :), intent(in)	coeffs1,
		real(wp), dimension(:, :, :, :), intent(in)	coeffs2,
		real(wp), dimension(-self%p1:, -self%p2:, :, :), intent(inout)	A,
		real(wp), dimension(-self%p1:, -self%p2:, :, :), intent(inout)	M
	)

private

subroutine sll_m_qn_solver_2d_fem_sps_stencil_new_assembler::s_qn_solver_2d_fem_sps_stencil_new_assembler__add_element_rhs	(	class(sll_t_qn_solver_2d_fem_sps_stencil_new_assembler), intent(in)	self,
		integer, intent(in)	k1,
		integer, intent(in)	k2,
		real(wp), dimension(:, :, :, :), intent(in)	data_1d_eta1,
		real(wp), dimension(:, :, :, :), intent(in)	data_1d_eta2,
		real(wp), dimension(:, :, :, :), intent(in)	data_2d_rhs,
		real(wp), dimension(:, :, :, :), intent(in)	int_volume,
		real(wp), dimension(:, :), intent(inout)	bs
	)

private

subroutine sll_m_qn_solver_2d_fem_sps_stencil_new_assembler::s_qn_solver_2d_fem_sps_stencil_new_assembler__init	(	class(sll_t_qn_solver_2d_fem_sps_stencil_new_assembler), intent(inout)	self,
		integer, intent(in)	n1,
		integer, intent(in)	n2,
		integer, intent(in)	p1,
		integer, intent(in)	p2,
		class(sll_t_qn_solver_2d_fem_sps_weak_form), intent(in), target	weak_form
	)

private

integer, parameter wp = f64

private