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