!  GeTriggerEvent.f90
!
!  Generate one event according to a given charged multiplicity.
!
!  Detlef Irmscher, Thomas Ullrich, Uni Heidelberg, September 1993
!  Last update: 16.3.95 tu
!
subroutine GeTriggerEvent(nch,bpar)
   use genesis_m, self=>GeTriggerEvent
   implicit none
   integer :: nch
   real    :: bpar
   call GeInitTrigger (nch,bpar)
   call GeDecayLoop
end subroutine GeTriggerEvent