source: trunk/examples/extended/electromagnetic/TestEm4/geant3/src/ugeom.F @ 807

Last change on this file since 807 was 807, checked in by garnier, 16 years ago

update
File size: 3.3 KB
Line 
1
2      SUBROUTINE UGEOM                                                         
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                                                                               
57      END                                                                       
Note: See TracBrowser for help on using the repository browser.