uvw_to_cyl Subroutine

public subroutine uvw_to_cyl(uvw, cyl)

Convert machine coordinate uvw to cylindrical coordinate cyl

Arguments

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

Called by

proc~~uvw_to_cyl~~CalledByGraph proc~uvw_to_cyl uvw_to_cyl proc~in_passive_grid in_passive_grid proc~in_passive_grid->proc~uvw_to_cyl proc~get_plasma_extrema get_plasma_extrema proc~get_plasma_extrema->proc~uvw_to_cyl proc~xyz_to_cyl xyz_to_cyl proc~xyz_to_cyl->proc~uvw_to_cyl proc~grid_intersect grid_intersect proc~grid_intersect->proc~in_passive_grid proc~get_passive_grid_indices get_passive_grid_indices proc~get_passive_grid_indices->proc~xyz_to_cyl proc~make_passive_grid make_passive_grid proc~make_passive_grid->proc~get_plasma_extrema proc~fida_weights_los fida_weights_los proc~fida_weights_los->proc~grid_intersect proc~mc_nbi mc_nbi proc~mc_nbi->proc~grid_intersect proc~store_photons store_photons proc~store_photons->proc~get_passive_grid_indices proc~track_cylindrical track_cylindrical proc~track_cylindrical->proc~get_passive_grid_indices proc~store_photon_birth store_photon_birth proc~store_photon_birth->proc~get_passive_grid_indices proc~circle_grid_intersect circle_grid_intersect proc~circle_grid_intersect->proc~grid_intersect proc~make_diagnostic_grids make_diagnostic_grids proc~make_diagnostic_grids->proc~grid_intersect proc~make_diagnostic_grids->proc~make_passive_grid proc~make_diagnostic_grids->proc~track_cylindrical program~fidasim fidasim program~fidasim->proc~fida_weights_los program~fidasim->proc~make_diagnostic_grids proc~dcx_spec dcx_spec program~fidasim->proc~dcx_spec proc~ndmc ndmc program~fidasim->proc~ndmc proc~dcx dcx program~fidasim->proc~dcx proc~fida_f fida_f program~fidasim->proc~fida_f proc~fida_mc fida_mc program~fidasim->proc~fida_mc proc~halo halo program~fidasim->proc~halo proc~nbi_spec nbi_spec program~fidasim->proc~nbi_spec proc~halo_spec halo_spec program~fidasim->proc~halo_spec proc~cold_spec cold_spec program~fidasim->proc~cold_spec proc~pfida_mc pfida_mc program~fidasim->proc~pfida_mc proc~pfida_f pfida_f program~fidasim->proc~pfida_f proc~read_distribution read_distribution program~fidasim->proc~read_distribution proc~dcx_spec->proc~store_photons proc~store_fida_photons store_fida_photons proc~store_fida_photons->proc~store_photons proc~ndmc->proc~mc_nbi proc~store_nbi_photons store_nbi_photons proc~ndmc->proc~store_nbi_photons proc~read_mc read_mc proc~read_mc->proc~circle_grid_intersect proc~store_nbi_photons->proc~store_photons proc~dcx->proc~store_photons proc~dcx->proc~store_photon_birth proc~fida_f->proc~store_photon_birth proc~fida_f->proc~store_fida_photons proc~fida_mc->proc~store_photon_birth proc~fida_mc->proc~store_fida_photons proc~halo->proc~store_photons proc~halo->proc~store_photon_birth proc~nbi_spec->proc~store_photons proc~halo_spec->proc~store_photons proc~cold_spec->proc~store_photons proc~pfida_mc->proc~track_cylindrical proc~pfida_mc->proc~store_photon_birth proc~pfida_mc->proc~store_fida_photons proc~pfida_f->proc~track_cylindrical proc~pfida_f->proc~store_photon_birth proc~pfida_f->proc~store_fida_photons proc~read_distribution->proc~read_mc

Contents

Source Code


Source Code

subroutine uvw_to_cyl(uvw, cyl)
    !+ Convert machine coordinate `uvw` to cylindrical coordinate `cyl`
    real(Float64), dimension(3), intent(in)  :: uvw
    real(Float64), dimension(3), intent(out) :: cyl

    cyl(1) = sqrt(uvw(1)*uvw(1) + uvw(2)*uvw(2))
    cyl(2) = uvw(3)
    cyl(3) = atan2(uvw(2),uvw(1))

end subroutine uvw_to_cyl