a, b, c += coeffs(1:3, l)*g at the points labelled l; launch as vector_norm_squared.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=dp), | intent(in), | device | :: | coeffs(3,n_label) | ||
| real(kind=dp), | intent(in), | device, dimension(:, :, :) | :: | g | ||
| real(kind=dp), | intent(in), | device, dimension(:, :, :) | :: | label | ||
| real(kind=dp), | intent(inout), | device, dimension(:, :, :) | :: | a | ||
| real(kind=dp), | intent(inout), | device, dimension(:, :, :) | :: | b | ||
| real(kind=dp), | intent(inout), | device, dimension(:, :, :) | :: | c | ||
| integer, | intent(in), | value | :: | n_label | ||
| integer, | intent(in), | value | :: | n | ||
| integer, | intent(in), | value | :: | n_i_pad | ||
| integer, | intent(in), | value | :: | n_j |