Defines how to assign NeutralParticleReservoir to eachother
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(NeutralParticleReservoir), | intent(inout) | :: | r1 | |||
type(NeutralParticleReservoir), | intent(in) | :: | r2 |
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