npa_part_assign Subroutine

  1. fidasim.f90
  2. libfida
  3. npa_part_assign

public subroutine npa_part_assign(p1, p2)

Defines how to assign NPAParticle types to eachother

Arguments

TypeIntentOptionalAttributesName
type(NPAParticle), intent(out) :: p1
type(NPAParticle), intent(in) :: p2

Called by

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

Contents

Source Code

npa_part_assign

Source Code

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

    p1%xi = p2%xi
    p1%yi = p2%yi
    p1%zi = p2%zi
    p1%xf = p2%xf
    p1%yf = p2%yf
    p1%zf = p2%zf
    p1%weight = p2%weight
    p1%energy = p2%energy
    p1%pitch = p2%pitch
    p1%detector = p2%detector

end subroutine npa_part_assign