polar_to_cart Subroutine

public subroutine polar_to_cart(equi, rho, theta, phi, x, y)

Coordinate transformation from Cartesian to polar

Arguments

Type IntentOptional Attributes Name
class(equilibrium_t), intent(inout) :: equi

Equilibrium
real(kind=FP), intent(in) :: rho

Polar coordinate rho
real(kind=FP), intent(in) :: theta

Polar coordinate theta (geometric poloidal angle)
real(kind=FP), intent(in) :: phi

Toroidal angle
real(kind=FP), intent(out) :: x

Cartesian coordinate x
real(kind=FP), intent(out) :: y

Cartesian coordinate y

Calls

proc~~polar_to_cart~~CallsGraph proc~polar_to_cart polar_to_cart mag_axis_loc mag_axis_loc proc~polar_to_cart->mag_axis_loc proc~find_zero find_zero proc~polar_to_cart->proc~find_zero proc~get_stderr get_stderr proc~polar_to_cart->proc~get_stderr func func proc~find_zero->func

Called by

proc~~polar_to_cart~~CalledByGraph proc~polar_to_cart polar_to_cart proc~create_flux_surface_average_csr create_flux_surface_average_csr proc~create_flux_surface_average_csr->proc~polar_to_cart proc~create_polar_map_matrix create_polar_map_matrix proc~create_polar_map_matrix->proc~polar_to_cart proc~create_surface_average_csr create_surface_average_csr proc~create_surface_average_csr->proc~polar_to_cart program~diagnose_poincare diagnose_poincare program~diagnose_poincare->proc~polar_to_cart