Defines how to assign BirthParticle types to eachother
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(BirthParticle), | intent(out) | :: | p1 | |||
type(BirthParticle), | intent(in) | :: | p2 |
subroutine birth_part_assign(p1, p2)
!+ Defines how to assign [[BirthParticle]] types to eachother
type(BirthParticle), intent(in) :: p2
type(BirthParticle), intent(out) :: p1
p1%neut_type = p2%neut_type
p1%ind = p2%ind
p1%ri = p2%ri
p1%vi = p2%vi
p1%ri_gc = p2%ri_gc
p1%weight = p2%weight
p1%energy = p2%energy
p1%pitch = p2%pitch
end subroutine birth_part_assign