average_kx_xys Subroutine

private subroutine average_kx_xys(f, favg, distributed)

Uses

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
real, intent(in), dimension (:,:,:) :: f
real, intent(out), dimension (:,:) :: favg
logical, intent(in) :: distributed

Contents

Source Code


Source Code

  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