gpamela/gpcdes/gpmat.inc

*
* $Id: gpmat.inc,v 3.6 2006/10/13 16:36:58 pam-ba Exp $
*
* $Log: gpmat.inc,v $
* Revision 3.6  2006/10/13 16:36:58  pam-ba
* Added a new material, the cadmium, for ND
*
* Revision 3.5  2006/05/18 10:52:32  pam-ba
* TOF geometry completed and a new material, the polystyrene (density 35 g/l), added
*
* Revision 3.4  2006/05/02 11:46:13  pam-ba
* TOF geometry and position updated and a new material, the mylar, added
*
* Revision 3.3  2003/12/17 11:32:49  pamela
* CALO SIMULATION COMPLETED: geometry and special tracking parameters updated and simulation checked by a comparison with the Trieste's standalone Monte Carlo simulation
*
* Revision 3.2  2002/12/05 10:17:42  pamela
* Update CAS and CALO geometries and positions. Makefile updated as well
*
* Revision 3.1.1.1  2002/07/11 16:02:00  cafagna
* First GPAMELA release on CVS
*
*
*
* gpmat.inc
*
*               03/10/2002  10.42.39  by  Jens Lund
*CMZ :  2.02/00 11/10/2000  20.14.33  by  Francesco Cafagna
*CMZ :  2.01/00 05/04/2000  14.35.17  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
*CMZ :  1.02/00 18/03/97  18.25.29  by  Francesco Cafagna
*CMZ :  1.00/02 15/03/96  17.47.37  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   05/12/95
C
C Common with material definitions
C
C
C Plast. sci: H 50%, C 50%  , Rho=1.032 g/cm**3 from P.D.Book
C G10       : SiO2 60%, Epoxy 40%, Rho=1.7 g/cm**3 from P.D.Book
C             Epoxy from CRC handbook (Raw estimation)
c G10C      : Si 53%, O 30%, C 15%, H 2%, Rho=1.7 g/cm**3 from Mirko,
C             for Calorimeter
C N2 (Gas)  : A=14.01, Z=7, Rho=1.25 g/l
C Silicon   : A=28.09, Z=14,Rho=2.33 g/cm**3, X0=9.36 from P.D.Book
C Xenon     : A=131.29, Z=54,Rho=5.858 g/l, X0=1447.6cm from P.D.Book
C TRD rad.  : Carbon fiber with density 0.060 g/cm**3, used in TS93
C Aerogel   : A=96.11, Z=54 (Comp. n(SiO2)+2n(H2O)), Rho=.2g/cm**3 (Ave.),
C             X0=150 cm, from P.D.Book
C Tungsten  : W 95%, Cu 2.5%, Ni 2.5%, Rho=18.1 g/cm**3 from Mirko-Aerostudi
C Kaolinite : Al 21%, Si 21.7%, O 55.8%, H 1.5% Rho=2.594 g/cm**3 (insulator
C             for calorimeter) from Mirko et al.
C Mylar     : C5H4O2: Rho=1.39 g/cm**3 from P. D. Book 
C Polystirene: C8H8: from P. D. Book Rho=35 g/l=350 g/cm**3 from Beppe Osteria 
C Cadmium    : for ND: A=, Z=, Rho=, Xo=
C He3        : from Leonov: Z=2, A=3 Rho=.001246 g/cm3, Xo=107.86 cm
C Polyethylene(CH2): for ND from Leonv: A=12.011,1.00794, Z=6,1, Rho=.93 g/cm3
C TAV        : Titanium alloy for top plate: Ti(90%), Al(6%), Va(4%):
c              Z=(22,13,23), A=(47.867,26.9815,50.9415),Rho=4.49234 g/cm3
C
C The NM*** numbers are the material numbers in the JMATE structure
C Note that the Silicon has been duplicate to allow the changing of
C the special tracking parameter for both TRACKER and CALORIMETER
C
C
C For Silicon special parameter has been added to be used in the Straggling
C simulation. These parameter are stored into the User word in the JMAT
C structure
C
      INTEGER NMSCIN,NMG10,NMN2,NMSITR,NMSICA,NMXE,NMTRAD,NMAER
*EM:
      INTEGER NMCERA,NMG10C,NMWCAL
*END EM.
*JeL:
      INTEGER NMPLAS
*END JeL.
      INTEGER NMMYL,NMPOL,NMCAD,NMTAV,NMHE3,NMCH2
      REAL ASCIN,ZSCIN,WSCIN,DSCIN,
     +     AN2G,ZN2G,DN2G,RN2G,
     +     AG10,ZG10,WG10,DG10,
     +     AG10C,ZG10C,WG10C,DG10C,
     +     ASI ,ZSI ,DSI ,RSI, ABSI,
     +     AXE ,ZXE ,DXE ,RXE,
     +     ATRAD ,ZTRAD ,DTRAD ,RTRAD,
     +     AAER ,ZAER ,DAER ,RAER,
     +     D2SICA,D2SITR,
     +     AWCAL,ZWCAL,DWCAL,WWCAL,
     +     ACERA,ZCERA,DCERA,WCERA,
     +     AMYL,ZMYL,DMYL,WMYL,
     +     APOL,ZPOL,DPOL,WPOL,
     +     ACAD,ZCAD,DCAD,RCAD,
     +     ATAV,ZTAV,DTAV,WTAV,
     +     AHE3,ZHE3,DHE3,RHE3,
     +     APOLND,ZPOLND,DPOLND,WPOLND
      COMMON/GPCMAT/ NMSCIN,NMG10,NMN2,NMSITR,NMSICA,NMXE,NMTRAD,NMAER,
*EM:
     +              NMCERA,NMG10C,NMWCAL,
*END EM.
*JeL:
     +              NMPLAS,
*END JeL.
     +              NMMYL,NMPOL,NMCAD,NMTAV,NMHE3,NMCH2,
     +              ASCIN(2),ZSCIN(2),WSCIN(2),DSCIN,
     +              AN2G,ZN2G,DN2G,RN2G,
     +              AG10(2),ZG10(2),WG10(2),DG10,
     +              ASI,ZSI,DSI,RSI,ABSI,
     +              AXE,ZXE,DXE,RXE,
     +              ATRAD,ZTRAD,DTRAD,RTRAD,
     +              AAER,ZAER,DAER,RAER,
     +              D2SICA,D2SITR,
*EM:
     +              AG10C(4),ZG10C(4),WG10C(4),DG10C,
     +              AWCAL(3),ZWCAL(3),DWCAL,WWCAL(3),
     +              ACERA(4),ZCERA(4),WCERA(4),DCERA,
*END EM.
     +              AMYL(3),ZMYL(3),DMYL,WMYL(3),
     +              APOL(2),ZPOL(2),DPOL,WPOL(2),
     +              ACAD,ZCAD,DCAD,RCAD,
     +              ATAV(3),ZTAV(3),DTAV,WTAV(3),
     +              AHE3, ZHE3, DHE3, RHE3,
     +              APOLND(2),ZPOLND(2),DPOLND,WPOLND(2)
C


1	cafagna	3.1	*
2	pam-ba	3.7	* $Id: gpmat.inc,v 3.6 2006/10/13 16:36:58 pam-ba Exp $
3	pamela	3.2	*
4			* $Log: gpmat.inc,v $
5	pam-ba	3.7	* Revision 3.6 2006/10/13 16:36:58 pam-ba
6			* Added a new material, the cadmium, for ND
7			*
8	pam-ba	3.6	* Revision 3.5 2006/05/18 10:52:32 pam-ba
9			* TOF geometry completed and a new material, the polystyrene (density 35 g/l), added
10			*
11	pam-ba	3.5	* Revision 3.4 2006/05/02 11:46:13 pam-ba
12			* TOF geometry and position updated and a new material, the mylar, added
13			*
14	pam-ba	3.4	* Revision 3.3 2003/12/17 11:32:49 pamela
15			* CALO SIMULATION COMPLETED: geometry and special tracking parameters updated and simulation checked by a comparison with the Trieste's standalone Monte Carlo simulation
16			*
17	pamela	3.3	* Revision 3.2 2002/12/05 10:17:42 pamela
18			* Update CAS and CALO geometries and positions. Makefile updated as well
19			*
20	pamela	3.2	* Revision 3.1.1.1 2002/07/11 16:02:00 cafagna
21			* First GPAMELA release on CVS
22	cafagna	3.1	*
23			*
24			*
25			* gpmat.inc
26			*
27	pamela	3.2	* 03/10/2002 10.42.39 by Jens Lund
28	cafagna	3.1	*CMZ : 2.02/00 11/10/2000 20.14.33 by Francesco Cafagna
29			*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
30			*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna
31			*CMZ : 1.02/00 18/03/97 18.25.29 by Francesco Cafagna
32			*CMZ : 1.00/02 15/03/96 17.47.37 by Francesco Cafagna
33			*-- Author : Francesco Cafagna 05/12/95
34			C
35			C Common with material definitions
36			C
37			C
38			C Plast. sci: H 50%, C 50% , Rho=1.032 g/cm**3 from P.D.Book
39			C G10 : SiO2 60%, Epoxy 40%, Rho=1.7 g/cm**3 from P.D.Book
40			C Epoxy from CRC handbook (Raw estimation)
41			c G10C : Si 53%, O 30%, C 15%, H 2%, Rho=1.7 g/cm**3 from Mirko,
42			C for Calorimeter
43			C N2 (Gas) : A=14.01, Z=7, Rho=1.25 g/l
44			C Silicon : A=28.09, Z=14,Rho=2.33 g/cm**3, X0=9.36 from P.D.Book
45			C Xenon : A=131.29, Z=54,Rho=5.858 g/l, X0=1447.6cm from P.D.Book
46			C TRD rad. : Carbon fiber with density 0.060 g/cm**3, used in TS93
47			C Aerogel : A=96.11, Z=54 (Comp. n(SiO2)+2n(H2O)), Rho=.2g/cm**3 (Ave.),
48			C X0=150 cm, from P.D.Book
49			C Tungsten : W 95%, Cu 2.5%, Ni 2.5%, Rho=18.1 g/cm**3 from Mirko-Aerostudi
50			C Kaolinite : Al 21%, Si 21.7%, O 55.8%, H 1.5% Rho=2.594 g/cm**3 (insulator
51			C for calorimeter) from Mirko et al.
52	pam-ba	3.4	C Mylar : C5H4O2: Rho=1.39 g/cm**3 from P. D. Book
53	pam-ba	3.5	C Polystirene: C8H8: from P. D. Book Rho=35 g/l=350 g/cm**3 from Beppe Osteria
54	pam-ba	3.7	C Cadmium : for ND: A=, Z=, Rho=, Xo=
55			C He3 : from Leonov: Z=2, A=3 Rho=.001246 g/cm3, Xo=107.86 cm
56			C Polyethylene(CH2): for ND from Leonv: A=12.011,1.00794, Z=6,1, Rho=.93 g/cm3
57			C TAV : Titanium alloy for top plate: Ti(90%), Al(6%), Va(4%):
58			c Z=(22,13,23), A=(47.867,26.9815,50.9415),Rho=4.49234 g/cm3
59	cafagna	3.1	C
60			C The NM*** numbers are the material numbers in the JMATE structure
61			C Note that the Silicon has been duplicate to allow the changing of
62			C the special tracking parameter for both TRACKER and CALORIMETER
63			C
64			C
65			C For Silicon special parameter has been added to be used in the Straggling
66			C simulation. These parameter are stored into the User word in the JMAT
67			C structure
68			C
69			INTEGER NMSCIN,NMG10,NMN2,NMSITR,NMSICA,NMXE,NMTRAD,NMAER
70			*EM:
71			INTEGER NMCERA,NMG10C,NMWCAL
72			*END EM.
73	pamela	3.2	*JeL:
74			INTEGER NMPLAS
75			*END JeL.
76	pam-ba	3.7	INTEGER NMMYL,NMPOL,NMCAD,NMTAV,NMHE3,NMCH2
77	cafagna	3.1	REAL ASCIN,ZSCIN,WSCIN,DSCIN,
78			+ AN2G,ZN2G,DN2G,RN2G,
79			+ AG10,ZG10,WG10,DG10,
80			+ AG10C,ZG10C,WG10C,DG10C,
81	pamela	3.3	+ ASI ,ZSI ,DSI ,RSI, ABSI,
82	cafagna	3.1	+ AXE ,ZXE ,DXE ,RXE,
83			+ ATRAD ,ZTRAD ,DTRAD ,RTRAD,
84			+ AAER ,ZAER ,DAER ,RAER,
85			+ D2SICA,D2SITR,
86			+ AWCAL,ZWCAL,DWCAL,WWCAL,
87	pam-ba	3.4	+ ACERA,ZCERA,DCERA,WCERA,
88	pam-ba	3.5	+ AMYL,ZMYL,DMYL,WMYL,
89	pam-ba	3.6	+ APOL,ZPOL,DPOL,WPOL,
90	pam-ba	3.7	+ ACAD,ZCAD,DCAD,RCAD,
91			+ ATAV,ZTAV,DTAV,WTAV,
92			+ AHE3,ZHE3,DHE3,RHE3,
93			+ APOLND,ZPOLND,DPOLND,WPOLND
94	cafagna	3.1	COMMON/GPCMAT/ NMSCIN,NMG10,NMN2,NMSITR,NMSICA,NMXE,NMTRAD,NMAER,
95			*EM:
96			+ NMCERA,NMG10C,NMWCAL,
97			*END EM.
98	pamela	3.2	*JeL:
99			+ NMPLAS,
100			*END JeL.
101	pam-ba	3.7	+ NMMYL,NMPOL,NMCAD,NMTAV,NMHE3,NMCH2,
102	cafagna	3.1	+ ASCIN(2),ZSCIN(2),WSCIN(2),DSCIN,
103			+ AN2G,ZN2G,DN2G,RN2G,
104			+ AG10(2),ZG10(2),WG10(2),DG10,
105	pamela	3.3	+ ASI,ZSI,DSI,RSI,ABSI,
106	cafagna	3.1	+ AXE,ZXE,DXE,RXE,
107			+ ATRAD,ZTRAD,DTRAD,RTRAD,
108			+ AAER,ZAER,DAER,RAER,
109			+ D2SICA,D2SITR,
110			*EM:
111			+ AG10C(4),ZG10C(4),WG10C(4),DG10C,
112			+ AWCAL(3),ZWCAL(3),DWCAL,WWCAL(3),
113	pam-ba	3.4	+ ACERA(4),ZCERA(4),WCERA(4),DCERA,
114	cafagna	3.1	*END EM.
115	pam-ba	3.5	+ AMYL(3),ZMYL(3),DMYL,WMYL(3),
116	pam-ba	3.6	+ APOL(2),ZPOL(2),DPOL,WPOL(2),
117	pam-ba	3.7	+ ACAD,ZCAD,DCAD,RCAD,
118			+ ATAV(3),ZTAV(3),DTAV,WTAV(3),
119			+ AHE3, ZHE3, DHE3, RHE3,
120			+ APOLND(2),ZPOLND(2),DPOLND,WPOLND(2)
121	cafagna	3.1	C
122	pam-ba	3.7
123