gpamela/gpcdes/gpmat.inc

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