store_births Subroutine

  1. fidasim.f90
  2. libfida
  3. store_births

public subroutine store_births(ind, neut_type, dflux)

Store birth particles/density in birth

Arguments

TypeIntentOptionalAttributesName
integer(kind=Int32), intent(in), dimension(3):: ind

beam_grid indices
integer(kind=Int32), intent(in) :: neut_type

Neutral type
real(kind=Float64), intent(in) :: dflux

Deposited flux

Called by

proc~~store_births~~CalledByGraph proc~store_births store_births proc~ndmc ndmc proc~ndmc->proc~store_births program~fidasim fidasim program~fidasim->proc~ndmc

Contents

Source Code

store_births

Source Code

subroutine store_births(ind, neut_type, dflux)
    !+ Store birth particles/density in [[libfida:birth]]
    integer(Int32), dimension(3), intent(in) :: ind
        !+ [[libfida:beam_grid]] indices
    integer(Int32), intent(in)               :: neut_type
        !+ Neutral type
    real(Float64), intent(in)                :: dflux
        !+ Deposited flux

    !$OMP ATOMIC UPDATE
    birth%dens( neut_type,ind(1),ind(2),ind(3))= &
     birth%dens(neut_type,ind(1),ind(2),ind(3)) + dflux
    !$OMP END ATOMIC
end subroutine store_births