fast_ion_assign Subroutine

  1. fidasim.f90
  2. libfida
  3. fast_ion_assign

public subroutine fast_ion_assign(p1, p2)

Defines how to assign FastIon types to eachother

Arguments

Type IntentOptional AttributesName
type(FastIon), intent(out) :: p1
type(FastIon), intent(in) :: p2

Called by

proc~~fast_ion_assign~~CalledByGraph proc~fast_ion_assign fast_ion_assign interface~assignment(=) assignment(=) interface~assignment(=)->proc~fast_ion_assign

Contents

Source Code

fast_ion_assign

Source Code

subroutine fast_ion_assign(p1, p2)
    !+ Defines how to assign [[FastIon]] types to eachother
    type(FastIon), intent(in)  :: p2
    type(FastIon), intent(out) :: p1

    p1%beam_grid_cross_grid = p2%beam_grid_cross_grid
    p1%r                    = p2%r
    p1%z                    = p2%z
    p1%phi                  = p2%phi
    p1%beam_grid_phi_enter  = p2%beam_grid_phi_enter
    p1%delta_phi            = p2%delta_phi
    p1%energy               = p2%energy
    p1%pitch                = p2%pitch
    p1%vabs                 = p2%vabs
    p1%vr                   = p2%vr
    p1%vt                   = p2%vt
    p1%vz                   = p2%vz
    p1%weight               = p2%weight
    p1%class                = p2%class

end subroutine fast_ion_assign