FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex, | intent(in), | dimension (-ntgrid:) | :: | a | ||
complex, | intent(in), | dimension (-ntgrid:) | :: | b | ||
complex, | intent(out) | :: | axb |
subroutine average_theta_complex_complex_complex_t (a, b, axb)
use theta_grid, only: ntgrid, field_line_average
implicit none
complex, dimension (-ntgrid:), intent (in) :: a, b
complex, intent (out) :: axb
axb = field_line_average(conjg(a)*b)
end subroutine average_theta_complex_complex_complex_t