!  GeDecayLoop.f90
!
!  Loops over the parent particles and lets them decay. Open do-loop,
!  for itree, because lasttree gets pushed by adding decayed
!  particles to end of treeList.
!
!  Detlef Irmscher, Thomas Ullrich, Uni Heidelberg, September 1993
!  Last update: 16.3.95 tu
!
subroutine GeDecayLoop
    use genesis_m, self=>GeDecayLoop
    implicit none
    integer :: itree

    ! loop over parent particles
    itree = 0
    do
       itree = itree + 1
       if (itree > lasttree)  exit     ! end of treeList reached
       call GeLetDecay (itree)                ! let particle decay
    enddo
end subroutine GeDecayLoop