50 real(kind=
rp),
intent(in) :: values(:)
51 integer :: n_fields, i, n
53 n_fields =
size(fields%fields)
54 n = fields%fields(1)%f%dof%size()
57 call cadd(fields%fields(i)%f%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