xyz_to_cyl Subroutine

public subroutine xyz_to_cyl(xyz, cyl)

Convert beam coordinate xyz to cylindrical coordinate cyl

Arguments

TypeIntentOptionalAttributesName
real(kind=Float64), intent(in), dimension(3):: xyz
real(kind=Float64), intent(out), dimension(3):: cyl

Calls

proc~~xyz_to_cyl~~CallsGraph proc~xyz_to_cyl xyz_to_cyl proc~xyz_to_uvw xyz_to_uvw proc~xyz_to_cyl->proc~xyz_to_uvw proc~uvw_to_cyl uvw_to_cyl proc~xyz_to_cyl->proc~uvw_to_cyl

Called by

proc~~xyz_to_cyl~~CalledByGraph proc~xyz_to_cyl xyz_to_cyl proc~get_passive_grid_indices get_passive_grid_indices proc~get_passive_grid_indices->proc~xyz_to_cyl proc~track_cylindrical track_cylindrical proc~track_cylindrical->proc~get_passive_grid_indices proc~store_photons store_photons proc~store_photons->proc~get_passive_grid_indices proc~store_photon_birth store_photon_birth proc~store_photon_birth->proc~get_passive_grid_indices proc~dcx_spec dcx_spec proc~dcx_spec->proc~store_photons proc~store_fida_photons store_fida_photons proc~store_fida_photons->proc~store_photons proc~store_nbi_photons store_nbi_photons proc~store_nbi_photons->proc~store_photons proc~dcx dcx proc~dcx->proc~store_photons proc~dcx->proc~store_photon_birth proc~fida_f fida_f proc~fida_f->proc~store_photon_birth proc~fida_f->proc~store_fida_photons proc~fida_mc fida_mc proc~fida_mc->proc~store_photon_birth proc~fida_mc->proc~store_fida_photons proc~pfida_f pfida_f proc~pfida_f->proc~track_cylindrical proc~pfida_f->proc~store_photon_birth proc~pfida_f->proc~store_fida_photons proc~pfida_mc pfida_mc proc~pfida_mc->proc~track_cylindrical proc~pfida_mc->proc~store_photon_birth proc~pfida_mc->proc~store_fida_photons proc~halo halo proc~halo->proc~store_photons proc~halo->proc~store_photon_birth proc~nbi_spec nbi_spec proc~nbi_spec->proc~store_photons proc~halo_spec halo_spec proc~halo_spec->proc~store_photons proc~cold_spec cold_spec proc~cold_spec->proc~store_photons proc~make_diagnostic_grids make_diagnostic_grids proc~make_diagnostic_grids->proc~track_cylindrical program~fidasim fidasim program~fidasim->proc~dcx_spec program~fidasim->proc~dcx program~fidasim->proc~fida_f program~fidasim->proc~fida_mc program~fidasim->proc~pfida_f program~fidasim->proc~pfida_mc program~fidasim->proc~halo program~fidasim->proc~nbi_spec program~fidasim->proc~halo_spec program~fidasim->proc~cold_spec program~fidasim->proc~make_diagnostic_grids proc~ndmc ndmc program~fidasim->proc~ndmc proc~ndmc->proc~store_nbi_photons

Contents

Source Code


Source Code

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