***********************************************************************
* 
        subroutine callgen(igen,nvtx,xvert)
*
* created : 19/01/2000  by R. Schicker
*
* last modified on 21/07/2000 by R. Holzmann
*
* interface to various event generators
***********************************************************************
      implicit none

      real xvert(3)
      integer igen, nvtx

      if(igen.lt.1 .or. igen.gt.9) then
         write(6,*) '*** unknown generator type:', igen
         return
      end if

      if (igen.eq.1) call cosgen                       ! cosmics

      if (igen.ge.2 .and. igen.le.8) call thermalgen(igen,nvtx,xvert) ! thermal

c     if (igen.eq.3) call refevt(nvtx,xvert)           ! ref trajectories

      return
      end