cyl_to_xyz Subroutine

  1. fidasim.f90
  2. libfida
  3. cyl_to_xyz

public subroutine cyl_to_xyz(cyl, xyz)

Convert cylindrical coordinate cyl to beam coordinate xyz

Arguments

Type IntentOptional AttributesName
real(kind=Float64), intent(in), dimension(3):: cyl
real(kind=Float64), intent(out), dimension(3):: xyz

Calls

proc~~cyl_to_xyz~~CallsGraph proc~cyl_to_xyz cyl_to_xyz proc~uvw_to_xyz uvw_to_xyz proc~cyl_to_xyz->proc~uvw_to_xyz proc~cyl_to_uvw cyl_to_uvw proc~cyl_to_xyz->proc~cyl_to_uvw

Called by

proc~~cyl_to_xyz~~CalledByGraph proc~cyl_to_xyz cyl_to_xyz proc~get_position get_position proc~get_position->proc~cyl_to_xyz proc~get_plasma get_plasma proc~get_plasma->proc~get_position proc~pnpa_f pnpa_f proc~pnpa_f->proc~get_plasma proc~attenuate attenuate proc~pnpa_f->proc~attenuate proc~dcx_spec dcx_spec proc~dcx_spec->proc~get_plasma proc~dcx dcx proc~dcx->proc~get_plasma proc~mc_halo mc_halo proc~dcx->proc~mc_halo proc~bremsstrahlung bremsstrahlung proc~bremsstrahlung->proc~get_plasma proc~fida_weights_mc fida_weights_mc proc~fida_weights_mc->proc~get_plasma proc~fida_weights_los fida_weights_los proc~fida_weights_los->proc~get_plasma proc~pfida_mc pfida_mc proc~pfida_mc->proc~get_plasma proc~pnpa_mc pnpa_mc proc~pnpa_mc->proc~get_plasma proc~pnpa_mc->proc~attenuate proc~fida_f fida_f proc~fida_f->proc~get_plasma proc~neutron_mc neutron_mc proc~neutron_mc->proc~get_plasma proc~mc_halo->proc~get_plasma proc~npa_f npa_f proc~npa_f->proc~get_plasma proc~npa_f->proc~attenuate proc~get_beam_cx_rate get_beam_cx_rate proc~npa_f->proc~get_beam_cx_rate proc~cold_spec cold_spec proc~cold_spec->proc~get_plasma proc~pfida_f pfida_f proc~pfida_f->proc~get_plasma proc~attenuate->proc~get_plasma proc~neutron_f neutron_f proc~neutron_f->proc~get_plasma proc~get_beam_cx_rate->proc~get_plasma proc~halo_spec halo_spec proc~halo_spec->proc~get_plasma proc~halo halo proc~halo->proc~get_plasma proc~halo->proc~mc_halo proc~npa_weights npa_weights proc~npa_weights->proc~attenuate proc~npa_weights->proc~get_beam_cx_rate program~fidasim fidasim program~fidasim->proc~pnpa_f program~fidasim->proc~dcx_spec program~fidasim->proc~dcx program~fidasim->proc~bremsstrahlung program~fidasim->proc~fida_weights_mc program~fidasim->proc~fida_weights_los program~fidasim->proc~pfida_mc program~fidasim->proc~pnpa_mc program~fidasim->proc~fida_f program~fidasim->proc~neutron_mc program~fidasim->proc~npa_f program~fidasim->proc~cold_spec program~fidasim->proc~pfida_f program~fidasim->proc~neutron_f program~fidasim->proc~halo_spec program~fidasim->proc~halo program~fidasim->proc~npa_weights proc~npa_mc npa_mc program~fidasim->proc~npa_mc proc~npa_mc->proc~attenuate proc~npa_mc->proc~get_beam_cx_rate

Contents

Source Code

cyl_to_xyz

Source Code

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