50 real(kind=
rp),
intent(in) :: values(:)
51 integer :: n_fields, i, n
53 n_fields = fields%size()
54 n = fields%item_size(1)
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)
Add a scalar to vector .
integer, parameter, public rp
Global precision used in computations.
field_list_t, To be able to group fields together