Defines how to assign NeutralParticle types to eachother
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(NeutralParticle), | intent(out) | :: | p1 | |||
type(NeutralParticle), | intent(in) | :: | p2 |
subroutine neutral_part_assign(p1, p2)
!+ Defines how to assign [[NeutralParticle]] types to eachother
type(NeutralParticle), intent(in) :: p2
type(NeutralParticle), intent(out) :: p1
p1%w = p2%w
p1%v = p2%v
end subroutine neutral_part_assign