cyl_to_uvw Subroutine

  1. fidasim.f90
  2. libfida
  3. cyl_to_uvw

public subroutine cyl_to_uvw(cyl, uvw)

Convert cylindrical coordinate cyl to machine coordinate uvw

Arguments

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

Called by

proc~~cyl_to_uvw~~CalledByGraph proc~cyl_to_uvw cyl_to_uvw proc~in_plasma in_plasma proc~in_plasma->proc~cyl_to_uvw proc~cold_spec cold_spec proc~cold_spec->proc~cyl_to_uvw proc~get_plasma get_plasma proc~cold_spec->proc~get_plasma proc~store_photons store_photons proc~cold_spec->proc~store_photons proc~mc_passive_grid mc_passive_grid proc~mc_passive_grid->proc~cyl_to_uvw proc~cyl_to_xyz cyl_to_xyz proc~cyl_to_xyz->proc~cyl_to_uvw proc~track_cylindrical track_cylindrical proc~track_cylindrical->proc~cyl_to_uvw proc~track_cylindrical->proc~in_plasma proc~track_cylindrical->proc~get_plasma proc~get_fields get_fields proc~track_cylindrical->proc~get_fields proc~read_mc read_mc proc~read_mc->proc~in_plasma proc~dcx_spec dcx_spec proc~dcx_spec->proc~in_plasma proc~dcx_spec->proc~get_plasma proc~dcx_spec->proc~store_photons program~fidasim fidasim program~fidasim->proc~cold_spec program~fidasim->proc~dcx_spec proc~make_diagnostic_grids make_diagnostic_grids program~fidasim->proc~make_diagnostic_grids proc~pfida_f pfida_f program~fidasim->proc~pfida_f proc~nbi_spec nbi_spec program~fidasim->proc~nbi_spec proc~halo_spec halo_spec program~fidasim->proc~halo_spec proc~pfida_mc pfida_mc program~fidasim->proc~pfida_mc proc~fida_weights_los fida_weights_los program~fidasim->proc~fida_weights_los proc~make_beam_grid make_beam_grid program~fidasim->proc~make_beam_grid proc~pnpa_mc pnpa_mc program~fidasim->proc~pnpa_mc proc~pnpa_f pnpa_f program~fidasim->proc~pnpa_f proc~dcx dcx program~fidasim->proc~dcx proc~npa_weights npa_weights program~fidasim->proc~npa_weights proc~read_distribution read_distribution program~fidasim->proc~read_distribution proc~neutron_f neutron_f program~fidasim->proc~neutron_f proc~fida_f fida_f program~fidasim->proc~fida_f proc~cfpd_f cfpd_f program~fidasim->proc~cfpd_f proc~neutron_mc neutron_mc program~fidasim->proc~neutron_mc proc~npa_f npa_f program~fidasim->proc~npa_f proc~fida_mc fida_mc program~fidasim->proc~fida_mc proc~ndmc ndmc program~fidasim->proc~ndmc proc~bremsstrahlung bremsstrahlung program~fidasim->proc~bremsstrahlung proc~halo halo program~fidasim->proc~halo proc~fida_weights_mc fida_weights_mc program~fidasim->proc~fida_weights_mc proc~npa_mc npa_mc program~fidasim->proc~npa_mc proc~mc_fastion_pass_grid mc_fastion_pass_grid proc~mc_fastion_pass_grid->proc~mc_passive_grid proc~mc_fastion_pass_grid->proc~get_fields proc~get_distribution get_distribution proc~mc_fastion_pass_grid->proc~get_distribution proc~get_position get_position proc~get_position->proc~cyl_to_xyz proc~make_diagnostic_grids->proc~track_cylindrical proc~make_diagnostic_grids->proc~get_fields proc~track track proc~make_diagnostic_grids->proc~track proc~make_passive_grid make_passive_grid proc~make_diagnostic_grids->proc~make_passive_grid proc~mc_nbi mc_nbi proc~mc_nbi->proc~in_plasma proc~get_plasma->proc~in_plasma proc~get_plasma->proc~get_position proc~get_plasma_extrema get_plasma_extrema proc~get_plasma_extrema->proc~in_plasma proc~pfida_f->proc~track_cylindrical proc~pfida_f->proc~mc_fastion_pass_grid proc~pfida_f->proc~get_plasma proc~store_fida_photons store_fida_photons proc~pfida_f->proc~store_fida_photons proc~get_fields->proc~in_plasma proc~get_fields->proc~get_position proc~track->proc~in_plasma proc~track->proc~get_plasma proc~track->proc~get_fields proc~nbi_spec->proc~in_plasma proc~nbi_spec->proc~store_photons proc~halo_spec->proc~in_plasma proc~halo_spec->proc~get_plasma proc~halo_spec->proc~store_photons proc~pfida_mc->proc~track_cylindrical proc~pfida_mc->proc~get_plasma proc~pfida_mc->proc~get_fields proc~pfida_mc->proc~store_fida_photons proc~fida_weights_los->proc~in_plasma proc~fida_weights_los->proc~get_plasma proc~fida_weights_los->proc~get_fields proc~fida_weights_los->proc~track proc~get_ep_denf get_ep_denf proc~fida_weights_los->proc~get_ep_denf proc~make_beam_grid->proc~in_plasma proc~get_ep_denf->proc~get_position proc~pnpa_mc->proc~get_plasma proc~pnpa_mc->proc~get_fields proc~attenuate attenuate proc~pnpa_mc->proc~attenuate proc~store_npa store_npa proc~pnpa_mc->proc~store_npa proc~pnpa_f->proc~mc_fastion_pass_grid proc~pnpa_f->proc~get_plasma proc~pnpa_f->proc~attenuate proc~pnpa_f->proc~store_npa proc~get_distribution->proc~get_position proc~dcx->proc~get_plasma proc~dcx->proc~track proc~dcx->proc~store_photons proc~attenuate->proc~get_plasma proc~npa_weights->proc~get_fields proc~npa_weights->proc~get_ep_denf proc~npa_weights->proc~attenuate proc~read_distribution->proc~read_mc proc~neutron_f->proc~get_plasma proc~neutron_f->proc~get_fields proc~store_fw_photons store_fw_photons proc~store_fw_photons->proc~get_fields proc~fida_f->proc~get_plasma proc~fida_f->proc~track proc~mc_fastion mc_fastion proc~fida_f->proc~mc_fastion proc~fida_f->proc~store_fida_photons proc~cfpd_f->proc~get_plasma proc~cfpd_f->proc~get_fields proc~cfpd_f->proc~get_ep_denf proc~neutron_mc->proc~get_plasma proc~neutron_mc->proc~get_fields proc~make_passive_grid->proc~get_plasma_extrema proc~npa_f->proc~get_plasma proc~npa_f->proc~attenuate proc~npa_f->proc~mc_fastion proc~npa_f->proc~store_npa proc~fida_mc->proc~get_plasma proc~fida_mc->proc~get_fields proc~fida_mc->proc~track proc~fida_mc->proc~store_fida_photons proc~mc_fastion->proc~get_fields proc~mc_fastion->proc~get_distribution proc~ndmc->proc~mc_nbi proc~ndmc->proc~get_plasma proc~ndmc->proc~get_fields proc~ndmc->proc~track proc~store_nbi_photons store_nbi_photons proc~ndmc->proc~store_nbi_photons proc~bremsstrahlung->proc~get_plasma proc~store_npa->proc~get_fields proc~store_photons->proc~get_fields proc~halo->proc~get_plasma proc~halo->proc~track proc~halo->proc~store_photons proc~fida_weights_mc->proc~get_plasma proc~fida_weights_mc->proc~get_fields proc~fida_weights_mc->proc~track proc~fida_weights_mc->proc~get_ep_denf proc~fida_weights_mc->proc~store_fw_photons proc~npa_mc->proc~get_fields proc~npa_mc->proc~attenuate proc~npa_mc->proc~store_npa proc~store_fida_photons->proc~store_photons proc~store_nbi_photons->proc~store_photons

Contents

Source Code

cyl_to_uvw

Source Code

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

    uvw(1) = cyl(1) * cos(cyl(3))
    uvw(2) = cyl(1) * sin(cyl(3))
    uvw(3) = cyl(2)

end subroutine cyl_to_uvw