birth_part_assign Subroutine

public subroutine birth_part_assign(p1, p2)

Defines how to assign BirthParticle types to eachother

Arguments

Type IntentOptional AttributesName
type(BirthParticle), intent(out) :: p1
type(BirthParticle), intent(in) :: p2

Called by

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

Contents

Source Code


Source Code

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