neutral_part_assign Subroutine

public subroutine neutral_part_assign(p1, p2)

Defines how to assign NeutralParticle types to eachother

Arguments

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

Called by

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

Contents

Source Code


Source Code

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