average_theta_complex_complex_real_t Subroutine

private subroutine average_theta_complex_complex_real_t(a, b, axb)

Uses

FIXME : Add documentation

Arguments

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

Contents


Source Code

  subroutine average_theta_complex_complex_real_t (a, b, axb)
    use theta_grid, only: ntgrid
    implicit none
    complex, dimension (-ntgrid:), intent (in) :: a, b
    real, intent (out) :: axb
    complex :: axbcomplex

    call average_theta(a, b, axbcomplex)
    axb = real(axbcomplex)
  end subroutine average_theta_complex_complex_real_t