FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex, | intent(in), | dimension (-ntgrid:) | :: | a | ||
complex, | intent(in), | dimension (-ntgrid:) | :: | b | ||
real, | intent(out) | :: | axb |
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