1 cdaq  1.1       subroutine h_uginit
 2           *
 3           * Do the GEANT initalization
 4           *
 5           * August, 1994, Pat Welch, Oregon State University, tpw@physics.orst.edu
 6           *
 7           * $Log:$
 8           
 9                 implicit none
10           
11                 call ginit                        ! init GEANT
12                 call gzinit                       ! init GEANT data structs
13                 call gdinit                       ! init GEANT drawing package
14           
15                 call gpart                        ! init particle structures
16                 call gmate                        ! init materials structures
17                 call gsrotm(1,90.,0.,90.,90.,0.,0.)
18                 call gsrotm(2,90.,90.,90.,0.,0.,0.)
19                 call gsrotm(3,90.,15.,90.,105.,0.,0.)
20                 call gsrotm(4,90.,345.,90.,75.,0.,0.)
21           
22 cdaq  1.1       call h_one_ev_geometry            ! define the geometry
23                 call h_one_ev_detectors           ! define sensitive detectors
24                 call ggclos                       ! close geometry structures
25           
26                 call gphysi                       ! init physics interaction vars
27           
28                 end