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 device_cadd(fields%fields(i)%f%x_d, values(i), n)
Implements the device kernel for the const_source_term_t type.
subroutine, public const_source_term_compute_device(fields, values)
Computes the constant source term on the device.
subroutine, public device_cadd(a_d, c, n)
integer, parameter, public rp
Global precision used in computations.
field_list_t, To be able to group fields together