cart2polar Function

public function cart2polar(coord, n) result(polar)

Convert from cartesian coordinates (in the x-y plane) to polar coordinates (radius,angle)

Arguments

TypeIntentOptionalAttributesName
real(kind=rk), intent(in) :: coord(n,3)
integer, intent(in) :: n

Return Value real(kind=rk)(n,2)

Polar coordinates, radius (first entry) and angle (second entry)


Called by

proc~~cart2polar~~CalledByGraph proc~cart2polar cart2polar proc~tem_eval_cylindricalwave tem_eval_cylindricalWave proc~tem_eval_cylindricalwave->proc~cart2polar proc~tem_spatial_for_coord tem_spatial_for_coord proc~tem_spatial_for_coord->proc~tem_eval_cylindricalwave proc~tem_spacetime_for_coord tem_spacetime_for_coord proc~tem_spacetime_for_coord->proc~tem_eval_cylindricalwave proc~tem_spacetime_scalar_for_index tem_spacetime_scalar_for_index proc~tem_spacetime_scalar_for_index->proc~tem_spacetime_for_coord interface~tem_spacetime_for tem_spacetime_for interface~tem_spacetime_for->proc~tem_spacetime_for_coord proc~tem_spatial_scalar_for_index tem_spatial_scalar_for_index proc~tem_spatial_scalar_for_index->proc~tem_spatial_for_coord interface~tem_spatial_for tem_spatial_for interface~tem_spatial_for->proc~tem_spatial_for_coord proc~tem_spacetime_for_stcoord tem_spacetime_for_stcoord proc~tem_spacetime_for_stcoord->proc~tem_spacetime_for_coord

Contents


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), public :: x

X coordinate

real(kind=rk), public :: y

Y coordinate

integer, public :: i