get_vol_average_one Subroutine

private subroutine get_vol_average_one(a, b, axb, axb_by_mode)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
complex, intent(in), dimension (:,:) :: a
complex, intent(in), dimension (:,:) :: b
real, intent(out) :: axb
real, intent(out), dimension (:,:) :: axb_by_mode

Contents

Source Code

get_vol_average_one

Source Code

  subroutine get_vol_average_one (a, b, axb, axb_by_mode)
    implicit none
    complex, dimension (:,:), intent (in) :: a, b
    real, intent (out) :: axb
    real, dimension (:,:), intent (out) :: axb_by_mode

    axb_by_mode = real(conjg(a)*b)

    call get_volume_average (axb_by_mode, axb)

  end subroutine get_vol_average_one