Geant4  9.6.p02
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
ugeom.F
Go to the documentation of this file.
1 
2  SUBROUTINE ugeom
3 *
4 * *** Define user geometry set up
5 *
6 *
7 #include "detector.inc"
8 *
9  dimension par(3)
10 
11  dimension aair(2),zair(2),wair(2)
12  dimension ah2o(2),zh2o(2),wh2o(2)
13 *
14 * *** Air compound parameters
15  DATA aair/14.01, 16.00/
16  DATA zair/ 7. , 8. /
17  DATA wair/ 0.7 , 0.3 /
18 *
19 * *** Air compound parameters
20  DATA ah2o/ 1.01, 16.00/
21  DATA zh2o/ 1. , 8. /
22  DATA wh2o/ 2. , 1. /
23 *
24 * *** Defines USER perticular materials
25  CALL gsmixt( 1,'Air' , aair ,zair, 1.29e-3, 2 , wair)
26  CALL gsmate( 2,'H2 Liquid', 1.01, 1., 0.0708 , 865., 790., 0,0)
27  CALL gsmixt( 3,'Water' , ah2o ,zh2o, 1.0 ,-2 , wh2o)
28  CALL gsmate( 4,'Liquid Ar', 39.95, 18., 1.39 , 14.0, 84.0, 0,0)
29  CALL gsmate( 5,'Aluminium', 26.98, 13., 2.7 , 8.9, 37.2, 0,0)
30  CALL gsmate( 6,'Iron' , 55.85, 26., 7.87 , 1.76, 17.1, 0,0)
31  CALL gsmate( 7,'Tungsten' ,183.85, 74., 19.30 , 0.35, 18.5, 0,0)
32  CALL gsmate( 8,'Lead' ,207.19, 82., 11.35 , 0.56, 18.5, 0,0)
33  CALL gsmate( 9,'Uranium' ,238.03, 92., 18.95 , 0.32, 12. , 0,0)
34  CALL gsmate(10,'Germanium', 72.61, 32., 5.323 , 2.30, 16.6, 0,0)
35 *
36 * *** Defines USER tracking media parameters
37  ifield = 0
38  fieldm = 0.
39  tmaxfd = 10.0
40  stemax = 1000.
41  deemax = 1.
42  epsil = 0.001
43  stmin = 0.010
44 *
45  CALL gstmed( 1,'Container',imat, 0 ,ifield,fieldm,tmaxfd,
46  * stemax,deemax,epsil,stmin, 0 , 0 )
47 *
48 *
49 * *** Geometry
50  par(1) = boxsize/2.
51  par(2) = boxsize/2.
52  par(3) = boxsize/2.
53  CALL gsvolu('aBox','BOX ',1,par,3,ivol)
54 *
55 * *** Close geometry banks. (obligatory system routine)
56  CALL ggclos
57 *
58 *
59 * *** dessin
60  CALL gsatt('*','SEEN',1)
61 *
62  DO ix = 1,3
63  CALL gdopen(ix)
64  scale = 18./boxsize
65  paxis = 0.
66  saxis = 0.1*boxsize
67  CALL gdrawc('aBox',ix,0.,10.,9.3,scale,scale)
68  CALL gdaxis(paxis,paxis,paxis,saxis)
69  CALL gdscal(10. , 0.3)
70  CALL gdclos
71  END DO
72 *
73 
74  END