Geant4  10.02.p03
Functions/Subroutines
TestEm4/geant3/src/ugeom.F File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine ugeom
 

Function/Subroutine Documentation

◆ ugeom()

subroutine ugeom ( )

Definition at line 3 of file TestEm4/geant3/src/ugeom.F.

3 *
4 * *** Define user geometry set up
5 *
6 *
7  dimension par(3)
8  dimension ac6f6(2),zc6f6(2),wc6f6(2)
9 *
10 * *** C6F6 compound parameters
11  DATA ac6f6/12.02, 19.01/
12  DATA zc6f6/ 6. , 9. /
13  DATA wc6f6/ 6. , 6. /
14 *
15  CALL gsmixt(1,'C6F6',ac6f6,zc6f6,1.61,-2,wc6f6)
16 *
17 *
18 * *** Defines USER tracking media parameters
19  imat = 1
20  fieldm = 0.0
21  ifield = 0
22  tmaxfd = 10.0
23  stemax = 1000.
24  deemax = 0.20
25  epsil = 0.001
26  stmin = 0.010
27 *
28  CALL gstmed( 1,'C6F6',imat, 0 ,ifield,fieldm,tmaxfd,
29  * stemax,deemax,epsil,stmin, 0 , 0 )
30 *
31 *
32 * *** Geometry
33  par(1) = 0.
34  par(2) = 5.
35  par(3) = 5.
36  CALL gsvolu('C6F6','TUBE',1,par,3,ivol)
37 *
38 * *** Close geometry banks. (obligatory system routine)
39  CALL ggclos
40 *
41 *
42 * *** dessin
43  CALL gsatt ('*','SEEN',1)
44 *
45  DO ix = 1,3
46  CALL gdopen (ix)
47  scale = 1.75
48  paxis = 0.
49  saxis = 1.
50  CALL gdrawc ('C6F6',ix,0.,10.,9.5,scale,scale)
51  CALL gdaxis (paxis,paxis,paxis,saxis)
52  CALL gdscal (10. , 0.3)
53  CALL gdclos
54  END DO
55 *
56 
scale
Double_t scale
Definition: advanced/microbeam/plot.C:25