x_slice_weighted_sum Subroutine

public subroutine x_slice_weighted_sum(sum_f, f, w, n_f, i_slice, n_i, n_groups_pad, n_j)

Sum of the slice f(:, i_slice, :) with the weight w(j) on the points of stacked index j.

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(out) :: sum_f
real(kind=dp), intent(in) :: f(SZ,n_f,n_groups_pad*n_i)
real(kind=dp), intent(in) :: w(n_j)
integer, intent(in) :: n_f
integer, intent(in) :: i_slice
integer, intent(in) :: n_i
integer, intent(in) :: n_groups_pad
integer, intent(in) :: n_j