50 real(kind=
rp),
intent(in) :: values(:)
51 integer :: n_fields, i, n
53 n_fields = fields%size()
54 n = fields%item_size(1)
57 call cadd(fields%items(i)%ptr%x, values(i), n)
Implements the cpu kernel for the const_source_term_t type.
subroutine, public const_source_term_compute_cpu(fields, values)
Computes the constant source term on the cpu.
subroutine, public cadd(a, s, n)
Add a scalar to vector .
integer, parameter, public rp
Global precision used in computations.
field_list_t, To be able to group fields together