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%cross_grid = p2%cross_grid
    p1%r          = p2%r
    p1%z          = p2%z
    p1%phi_enter  = p2%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