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