FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real, | intent(in), | dimension (:,:,:) | :: | f | ||
real, | intent(out), | dimension (:,:) | :: | favg | ||
logical, | intent(in) | :: | distributed |
subroutine average_kx_xys (f, favg, distributed)
use species, only: nspec
implicit none
real, dimension (:,:,:), intent (in) :: f
real, dimension (:,:), intent (out) :: favg
logical,intent(in) :: distributed
integer :: is
do is = 1,nspec
call average_kx_xy(f(:,:,is), favg(:, is), distributed)
end do
end subroutine average_kx_xys