/[PAMELA software]/gpamela/gpcdes/gpmat.inc
ViewVC logotype

Diff of /gpamela/gpcdes/gpmat.inc

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.6 by pam-ba, Fri Oct 13 16:36:58 2006 UTC revision 3.7 by pam-ba, Fri Nov 10 11:39:34 2006 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpmat.inc,v 3.5 2006/05/18 10:52:32 pam-ba Exp $  * $Id: gpmat.inc,v 3.6 2006/10/13 16:36:58 pam-ba Exp $
3  *  *
4  * $Log: gpmat.inc,v $  * $Log: gpmat.inc,v $
5    * Revision 3.6  2006/10/13 16:36:58  pam-ba
6    * Added a new material, the cadmium, for ND
7    *
8  * Revision 3.5  2006/05/18 10:52:32  pam-ba  * 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  * TOF geometry completed and a new material, the polystyrene (density 35 g/l), added
10  *  *
# Line 48  C Kaolinite : Al 21%, Si 21.7%, O 55.8%, Line 51  C Kaolinite : Al 21%, Si 21.7%, O 55.8%,
51  C             for calorimeter) from Mirko et al.  C             for calorimeter) from Mirko et al.
52  C Mylar     : C5H4O2: Rho=1.39 g/cm**3 from P. D. Book  C Mylar     : C5H4O2: Rho=1.39 g/cm**3 from P. D. Book
53  C Polystirene: C8H8: from P. D. Book Rho=35 g/l=350 g/cm**3 from Beppe Osteria  C Polystirene: C8H8: from P. D. Book Rho=35 g/l=350 g/cm**3 from Beppe Osteria
54    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  C  C
60  C The NM*** numbers are the material numbers in the JMATE structure  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  C Note that the Silicon has been duplicate to allow the changing of
# Line 65  C Line 73  C
73  *JeL:  *JeL:
74        INTEGER NMPLAS        INTEGER NMPLAS
75  *END JeL.  *END JeL.
76        INTEGER NMMYL,NMPOL,NMCAD        INTEGER NMMYL,NMPOL,NMCAD,NMTAV,NMHE3,NMCH2
77        REAL ASCIN,ZSCIN,WSCIN,DSCIN,        REAL ASCIN,ZSCIN,WSCIN,DSCIN,
78       +     AN2G,ZN2G,DN2G,RN2G,       +     AN2G,ZN2G,DN2G,RN2G,
79       +     AG10,ZG10,WG10,DG10,       +     AG10,ZG10,WG10,DG10,
# Line 79  C Line 87  C
87       +     ACERA,ZCERA,DCERA,WCERA,       +     ACERA,ZCERA,DCERA,WCERA,
88       +     AMYL,ZMYL,DMYL,WMYL,       +     AMYL,ZMYL,DMYL,WMYL,
89       +     APOL,ZPOL,DPOL,WPOL,       +     APOL,ZPOL,DPOL,WPOL,
90       +     ACAD,ZCAD,DCAD,RCAD       +     ACAD,ZCAD,DCAD,RCAD,
91         +     ATAV,ZTAV,DTAV,WTAV,
92         +     AHE3,ZHE3,DHE3,RHE3,
93         +     APOLND,ZPOLND,DPOLND,WPOLND
94        COMMON/GPCMAT/ NMSCIN,NMG10,NMN2,NMSITR,NMSICA,NMXE,NMTRAD,NMAER,        COMMON/GPCMAT/ NMSCIN,NMG10,NMN2,NMSITR,NMSICA,NMXE,NMTRAD,NMAER,
95  *EM:  *EM:
96       +              NMCERA,NMG10C,NMWCAL,       +              NMCERA,NMG10C,NMWCAL,
# Line 87  C Line 98  C
98  *JeL:  *JeL:
99       +              NMPLAS,       +              NMPLAS,
100  *END JeL.  *END JeL.
101       +              NMMYL,NMPOL,NMCAD,       +              NMMYL,NMPOL,NMCAD,NMTAV,NMHE3,NMCH2,
102       +              ASCIN(2),ZSCIN(2),WSCIN(2),DSCIN,       +              ASCIN(2),ZSCIN(2),WSCIN(2),DSCIN,
103       +              AN2G,ZN2G,DN2G,RN2G,       +              AN2G,ZN2G,DN2G,RN2G,
104       +              AG10(2),ZG10(2),WG10(2),DG10,       +              AG10(2),ZG10(2),WG10(2),DG10,
# Line 103  C Line 114  C
114  *END EM.  *END EM.
115       +              AMYL(3),ZMYL(3),DMYL,WMYL(3),       +              AMYL(3),ZMYL(3),DMYL,WMYL(3),
116       +              APOL(2),ZPOL(2),DPOL,WPOL(2),       +              APOL(2),ZPOL(2),DPOL,WPOL(2),
117       +              ACAD,ZCAD,DCAD,RCAD       +              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  C  C
122    
123    
Legend:
Removed from v.3.6  
changed lines
  Added in v.3.7
  ViewVC Help
Powered by ViewVC 1.1.23