npr_assign Subroutine

public subroutine npr_assign(r1, r2)

Defines how to assign NeutralParticleReservoir to eachother

Arguments

TypeIntentOptionalAttributesName
type(NeutralParticleReservoir), intent(inout) :: r1
type(NeutralParticleReservoir), intent(in) :: r2

Calls

proc~~npr_assign~~CallsGraph proc~npr_assign npr_assign proc~init_reservoir init_reservoir proc~npr_assign->proc~init_reservoir interface~randu randu proc~init_reservoir->interface~randu

Called by

proc~~npr_assign~~CalledByGraph proc~npr_assign npr_assign proc~np_assign np_assign proc~np_assign->proc~npr_assign interface~assignment(=) assignment(=) interface~assignment(=)->proc~npr_assign interface~assignment(=)->proc~np_assign

Contents

Source Code


Source Code

subroutine npr_assign(r1,r2)
    !+ Defines how to assign [[NeutralParticleReservoir]] to eachother
    type(NeutralParticleReservoir), intent(in) :: r2
    type(NeutralParticleReservoir), intent(inout) :: r1

    if(r2%k.eq.0) return
    call init_reservoir(r1) !r2%k)
    r1%n = r2%n
    r1%k = r2%k
    r1%i = r2%i
    r1%W = r2%W
    r1%R = r2%R

end subroutine npr_assign