1 |
* |
2 |
* $Id: gpmat.inc,v 3.1.1.1 2002/07/11 16:02:00 cafagna Exp $ |
3 |
* |
4 |
* $Log: gpmat.inc,v $ |
5 |
* Revision 3.1.1.1 2002/07/11 16:02:00 cafagna |
6 |
* First GPAMELA release on CVS |
7 |
* |
8 |
* |
9 |
* |
10 |
* gpmat.inc |
11 |
* |
12 |
* 03/10/2002 10.42.39 by Jens Lund |
13 |
*CMZ : 2.02/00 11/10/2000 20.14.33 by Francesco Cafagna |
14 |
*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola |
15 |
*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna |
16 |
*CMZ : 1.02/00 18/03/97 18.25.29 by Francesco Cafagna |
17 |
*CMZ : 1.00/02 15/03/96 17.47.37 by Francesco Cafagna |
18 |
*-- Author : Francesco Cafagna 05/12/95 |
19 |
C |
20 |
C Common with material definitions |
21 |
C |
22 |
C |
23 |
C Plast. sci: H 50%, C 50% , Rho=1.032 g/cm**3 from P.D.Book |
24 |
C G10 : SiO2 60%, Epoxy 40%, Rho=1.7 g/cm**3 from P.D.Book |
25 |
C Epoxy from CRC handbook (Raw estimation) |
26 |
c G10C : Si 53%, O 30%, C 15%, H 2%, Rho=1.7 g/cm**3 from Mirko, |
27 |
C for Calorimeter |
28 |
C N2 (Gas) : A=14.01, Z=7, Rho=1.25 g/l |
29 |
C Silicon : A=28.09, Z=14,Rho=2.33 g/cm**3, X0=9.36 from P.D.Book |
30 |
C Xenon : A=131.29, Z=54,Rho=5.858 g/l, X0=1447.6cm from P.D.Book |
31 |
C TRD rad. : Carbon fiber with density 0.060 g/cm**3, used in TS93 |
32 |
C Aerogel : A=96.11, Z=54 (Comp. n(SiO2)+2n(H2O)), Rho=.2g/cm**3 (Ave.), |
33 |
C X0=150 cm, from P.D.Book |
34 |
C Tungsten : W 95%, Cu 2.5%, Ni 2.5%, Rho=18.1 g/cm**3 from Mirko-Aerostudi |
35 |
C Kaolinite : Al 21%, Si 21.7%, O 55.8%, H 1.5% Rho=2.594 g/cm**3 (insulator |
36 |
C for calorimeter) from Mirko et al. |
37 |
C |
38 |
C The NM*** numbers are the material numbers in the JMATE structure |
39 |
C Note that the Silicon has been duplicate to allow the changing of |
40 |
C the special tracking parameter for both TRACKER and CALORIMETER |
41 |
C |
42 |
C |
43 |
C For Silicon special parameter has been added to be used in the Straggling |
44 |
C simulation. These parameter are stored into the User word in the JMAT |
45 |
C structure |
46 |
C |
47 |
INTEGER NMSCIN,NMG10,NMN2,NMSITR,NMSICA,NMXE,NMTRAD,NMAER |
48 |
*EM: |
49 |
INTEGER NMCERA,NMG10C,NMWCAL |
50 |
*END EM. |
51 |
*JeL: |
52 |
INTEGER NMPLAS |
53 |
*END JeL. |
54 |
REAL ASCIN,ZSCIN,WSCIN,DSCIN, |
55 |
+ AN2G,ZN2G,DN2G,RN2G, |
56 |
+ AG10,ZG10,WG10,DG10, |
57 |
+ AG10C,ZG10C,WG10C,DG10C, |
58 |
+ ASI ,ZSI ,DSI ,RSI, |
59 |
+ AXE ,ZXE ,DXE ,RXE, |
60 |
+ ATRAD ,ZTRAD ,DTRAD ,RTRAD, |
61 |
+ AAER ,ZAER ,DAER ,RAER, |
62 |
+ D2SICA,D2SITR, |
63 |
+ AWCAL,ZWCAL,DWCAL,WWCAL, |
64 |
+ ACERA,ZCERA,DCERA,WCERA |
65 |
COMMON/GPCMAT/ NMSCIN,NMG10,NMN2,NMSITR,NMSICA,NMXE,NMTRAD,NMAER, |
66 |
*EM: |
67 |
+ NMCERA,NMG10C,NMWCAL, |
68 |
*END EM. |
69 |
*JeL: |
70 |
+ NMPLAS, |
71 |
*END JeL. |
72 |
+ ASCIN(2),ZSCIN(2),WSCIN(2),DSCIN, |
73 |
+ AN2G,ZN2G,DN2G,RN2G, |
74 |
+ AG10(2),ZG10(2),WG10(2),DG10, |
75 |
+ ASI,ZSI,DSI,RSI, |
76 |
+ AXE,ZXE,DXE,RXE, |
77 |
+ ATRAD,ZTRAD,DTRAD,RTRAD, |
78 |
+ AAER,ZAER,DAER,RAER, |
79 |
+ D2SICA,D2SITR, |
80 |
*EM: |
81 |
+ AG10C(4),ZG10C(4),WG10C(4),DG10C, |
82 |
+ AWCAL(3),ZWCAL(3),DWCAL,WWCAL(3), |
83 |
+ ACERA(4),ZCERA(4),WCERA(4),DCERA |
84 |
*END EM. |
85 |
C |