average_all_complex_xy Subroutine

private subroutine average_all_complex_xy(a, avg, distributed)

Uses

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
complex, intent(in), dimension (ntheta0, naky) :: a
complex, intent(out) :: avg
logical, intent(in) :: distributed

Contents

Source Code

average_all_complex_xy

Source Code

  subroutine average_all_complex_xy(a, avg, distributed)
    use kt_grids, only: naky, ntheta0
    implicit none
    complex, dimension (ntheta0, naky), intent (in) :: a
    complex, dimension (ntheta0) :: axb_by_kx
    complex, intent(out) :: avg
    logical,intent(in) :: distributed

    call average_ky(a, axb_by_kx, distributed)
    avg = sum(axb_by_kx)
  end subroutine average_all_complex_xy