Convert beam coordinate xyz
to cylindrical coordinate cyl
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=Float64), | intent(in), | dimension(3) | :: | xyz | ||
real(kind=Float64), | intent(out), | dimension(3) | :: | cyl |
subroutine xyz_to_cyl(xyz, cyl)
!+ Convert beam coordinate `xyz` to cylindrical coordinate `cyl`
real(Float64), dimension(3), intent(in) :: xyz
real(Float64), dimension(3), intent(out) :: cyl
real(Float64), dimension(3) :: uvw
call xyz_to_uvw(xyz, uvw)
call uvw_to_cyl(uvw, cyl)
end subroutine xyz_to_cyl