gpamela/gpcdes/gpmat.inc

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