2 #include "sll_working_precision.h"
24 sll_real64 :: sign = 1.0_f64
47 self%delta_x = delta_x
49 self%n_rows = self%n_dofs
50 self%n_cols = self%n_dofs
52 self%n_global_rows = self%n_rows
53 self%n_global_cols = self%n_cols
68 sll_real64,
intent( in ) :: x(:)
69 sll_real64,
intent( out ) :: y(:)
71 sll_real64 :: scratch1(self%n_dofs), scratch2(self%n_dofs)
77 call self%mass1%dot( scratch1, scratch2 )
83 call self%mass0%dot( x, y )
86 y = y + self%sign * scratch1
module for abstract linear operator
subroutine print_info_schur_eb_1d(self)
subroutine create_linear_operator_schur_eb_1d(self, mass0, mass1, n_dofs, delta_x)
subroutine dot_schur_eb_1d(self, x, y)
subroutine free_schur_eb_1d(self)
module for Compressed Sparse Row Matrix (CSR)
Utilites for Maxwell solver's with spline finite elements.
subroutine, public sll_s_multiply_g_1d(n_dofs, delta_x, in, out)
Multiplication of the input vector in by the derivative matrix G.
subroutine, public sll_s_multiply_gt_1d(n_dofs, delta_x, in, out)
Multiplication of the input vector in by the transposed derivative matrix G^T
class for abstract linear operator