xyz_to_uvw Subroutine

public subroutine xyz_to_uvw(xyz, uvw)

Convert beam coordinate xyz to machine coordinate uvw

Arguments

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

Called by

proc~~xyz_to_uvw~~CalledByGraph proc~xyz_to_uvw xyz_to_uvw proc~write_birth_profile write_birth_profile proc~write_birth_profile->proc~xyz_to_uvw proc~write_beam_grid write_beam_grid proc~write_birth_profile->proc~write_beam_grid proc~store_npa store_npa proc~store_npa->proc~xyz_to_uvw proc~get_fields get_fields proc~store_npa->proc~get_fields proc~write_beam_grid->proc~xyz_to_uvw proc~in_plasma in_plasma proc~in_plasma->proc~xyz_to_uvw proc~get_ep_denf get_ep_denf proc~get_ep_denf->proc~xyz_to_uvw proc~get_distribution get_distribution proc~get_distribution->proc~xyz_to_uvw proc~write_neutrals write_neutrals proc~write_neutrals->proc~write_beam_grid proc~make_beam_grid make_beam_grid proc~make_beam_grid->proc~in_plasma proc~fida_weights_mc fida_weights_mc proc~fida_weights_mc->proc~get_ep_denf proc~fida_weights_mc->proc~get_fields proc~get_plasma get_plasma proc~fida_weights_mc->proc~get_plasma proc~track track proc~fida_weights_mc->proc~track proc~get_fields->proc~in_plasma proc~fida_weights_los fida_weights_los proc~fida_weights_los->proc~in_plasma proc~fida_weights_los->proc~get_fields proc~fida_weights_los->proc~get_plasma proc~fida_weights_los->proc~track proc~write_npa_weights write_npa_weights proc~write_npa_weights->proc~write_beam_grid proc~get_plasma->proc~in_plasma proc~track->proc~in_plasma proc~mc_nbi mc_nbi proc~mc_nbi->proc~in_plasma proc~npa_f npa_f proc~npa_f->proc~store_npa proc~npa_f->proc~get_plasma proc~mc_fastion mc_fastion proc~npa_f->proc~mc_fastion proc~get_beam_cx_rate get_beam_cx_rate proc~npa_f->proc~get_beam_cx_rate proc~attenuate attenuate proc~npa_f->proc~attenuate program~fidasim fidasim program~fidasim->proc~write_birth_profile program~fidasim->proc~write_neutrals program~fidasim->proc~make_beam_grid program~fidasim->proc~fida_weights_mc program~fidasim->proc~fida_weights_los program~fidasim->proc~npa_f proc~npa_mc npa_mc program~fidasim->proc~npa_mc proc~halo halo program~fidasim->proc~halo proc~dcx dcx program~fidasim->proc~dcx proc~read_distribution read_distribution program~fidasim->proc~read_distribution proc~read_chords read_chords program~fidasim->proc~read_chords proc~ndmc ndmc program~fidasim->proc~ndmc proc~fida_f fida_f program~fidasim->proc~fida_f proc~neutron_mc neutron_mc program~fidasim->proc~neutron_mc proc~read_npa read_npa program~fidasim->proc~read_npa proc~bremsstrahlung bremsstrahlung program~fidasim->proc~bremsstrahlung proc~neutron_f neutron_f program~fidasim->proc~neutron_f proc~npa_weights npa_weights program~fidasim->proc~npa_weights proc~fida_mc fida_mc program~fidasim->proc~fida_mc proc~npa_mc->proc~store_npa proc~npa_mc->proc~get_fields proc~npa_mc->proc~get_beam_cx_rate proc~npa_mc->proc~attenuate proc~write_dcx write_dcx proc~write_dcx->proc~write_beam_grid proc~mc_fastion->proc~get_distribution proc~mc_fastion->proc~get_fields proc~read_mc read_mc proc~read_mc->proc~in_plasma proc~halo->proc~get_plasma proc~halo->proc~track proc~mc_halo mc_halo proc~halo->proc~mc_halo proc~dcx->proc~get_plasma proc~dcx->proc~track proc~dcx->proc~mc_halo proc~store_fw_photons store_fw_photons proc~store_fw_photons->proc~get_fields proc~read_distribution->proc~read_mc proc~read_chords->proc~track proc~ndmc->proc~track proc~ndmc->proc~mc_nbi proc~fida_f->proc~get_plasma proc~fida_f->proc~track proc~fida_f->proc~mc_fastion proc~neutron_mc->proc~get_fields proc~neutron_mc->proc~get_plasma proc~mc_halo->proc~get_plasma proc~get_beam_cx_rate->proc~get_plasma proc~read_npa->proc~get_fields proc~attenuate->proc~get_plasma proc~store_bes_photons store_bes_photons proc~store_bes_photons->proc~get_fields proc~bremsstrahlung->proc~get_plasma proc~neutron_f->proc~get_fields proc~neutron_f->proc~get_plasma proc~npa_weights->proc~get_fields proc~npa_weights->proc~write_npa_weights proc~npa_weights->proc~get_beam_cx_rate proc~npa_weights->proc~attenuate proc~store_fida_photons store_fida_photons proc~store_fida_photons->proc~get_fields proc~fida_mc->proc~get_fields proc~fida_mc->proc~track

Contents

Source Code


Source Code

subroutine xyz_to_uvw(xyz, uvw)
    !+ Convert beam coordinate `xyz` to machine coordinate `uvw`
    real(Float64), dimension(3), intent(in)  :: xyz
    real(Float64), dimension(3), intent(out) :: uvw

    real(Float64), dimension(3) :: origin
    real(Float64), dimension(3,3) :: basis

    origin = beam_grid%origin
    basis = beam_grid%basis
    uvw = matmul(basis,xyz)
    uvw = uvw + origin

end subroutine xyz_to_uvw