Analyzer/ONEEV/h_uginit.f - view

Return to h_uginit.f CVS log

Up to [HallC] / Analyzer / ONEEV

File: [HallC] / Analyzer / ONEEV / h_uginit.f (download)
Revision: 1.1, Tue Mar 14 21:27:13 1995 UTC (29 years, 6 months ago) by cdaq
Branch: MAIN
CVS Tags: spring03, sep0596, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, oct1199, nov2696, mduality, may2495, mar-24-2003, jul2895, jan2496, jan1896, jan1796, gep_online, gep3, fpi2, emc, e01004, dec0198, bigcal, baryon, aug-12-2003, apr3096, apr0695, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS

Initial revision

      subroutine h_uginit
*
* Do the GEANT initalization
*
* August, 1994, Pat Welch, Oregon State University, tpw@physics.orst.edu
*
* $Log: h_uginit.f,v $
* Revision 1.1  1995/03/14 21:27:13  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(4,90.,345.,90.,75.,0.,0.)

      call h_one_ev_geometry            ! define the geometry
      call h_one_ev_detectors           ! define sensitive detectors
      call ggclos                       ! close geometry structures

      call gphysi                       ! init physics interaction vars

      end

Analyzer/Replay: Mark Jones, Documents: Stephen Wood