subroutine s_uginit
*
* Do the GEANT initalization
*
* August, 1994, Pat Welch, Oregon State University, tpw@physics.orst.edu
*
* Modified from HMS version, h_uginit, March 1995 by
* Derek van Westrum (vanwestr@cebaf.gov)
*
* $Log: s_uginit.f,v $
* Revision 1.1  1995/07/31 15:15:28  cdaq
* Initial revision
*

      implicit none      

      call ginit                        ! init GEANT
      call gzinit                       ! init GEANT data structs
      call gdinit                       ! init GEANT drawing package

      call gpart                        ! init particle structures
      call gmate                        ! init materials structures
      call gsrotm(1,90.,0.,90.,90.,0.,0.)
      call gsrotm(2,90.,90.,90.,0.,0.,0.)
*      call gsrotm(3,90.,15.,90.,105.,0.,0.)
      call gsrotm(3,90.,-60.,90.,-150.,0.,0.)
      call gsrotm(4,90.,60.,90.,150.,0.,0.)
*      call gsrotm(3,90.,-30.,90.,-120.,0.,0.)
*      call gsrotm(4,90.,30.,90.,120.,0.,0.)

      call s_one_ev_geometry            ! define the geometry
      call s_one_ev_detectors           ! define sensitive detectors
      call ggclos                       ! close geometry structures

      call gphysi                       ! init physics interaction vars

      end