1 |
* |
* |
2 |
* $Id: gpmat.inc,v 3.4 2006/05/02 11:46:13 pam-ba Exp $ |
* $Id: gpmat.inc,v 3.5 2006/05/18 10:52:32 pam-ba Exp $ |
3 |
* |
* |
4 |
* $Log: gpmat.inc,v $ |
* $Log: gpmat.inc,v $ |
5 |
|
* Revision 3.5 2006/05/18 10:52:32 pam-ba |
6 |
|
* TOF geometry completed and a new material, the polystyrene (density 35 g/l), added |
7 |
|
* |
8 |
* Revision 3.4 2006/05/02 11:46:13 pam-ba |
* Revision 3.4 2006/05/02 11:46:13 pam-ba |
9 |
* TOF geometry and position updated and a new material, the mylar, added |
* TOF geometry and position updated and a new material, the mylar, added |
10 |
* |
* |
65 |
*JeL: |
*JeL: |
66 |
INTEGER NMPLAS |
INTEGER NMPLAS |
67 |
*END JeL. |
*END JeL. |
68 |
INTEGER NMMYL,NMPOL |
INTEGER NMMYL,NMPOL,NMCAD |
69 |
REAL ASCIN,ZSCIN,WSCIN,DSCIN, |
REAL ASCIN,ZSCIN,WSCIN,DSCIN, |
70 |
+ AN2G,ZN2G,DN2G,RN2G, |
+ AN2G,ZN2G,DN2G,RN2G, |
71 |
+ AG10,ZG10,WG10,DG10, |
+ AG10,ZG10,WG10,DG10, |
78 |
+ AWCAL,ZWCAL,DWCAL,WWCAL, |
+ AWCAL,ZWCAL,DWCAL,WWCAL, |
79 |
+ ACERA,ZCERA,DCERA,WCERA, |
+ ACERA,ZCERA,DCERA,WCERA, |
80 |
+ AMYL,ZMYL,DMYL,WMYL, |
+ AMYL,ZMYL,DMYL,WMYL, |
81 |
+ APOL,ZPOL,DPOL,WPOL |
+ APOL,ZPOL,DPOL,WPOL, |
82 |
|
+ ACAD,ZCAD,DCAD,RCAD |
83 |
COMMON/GPCMAT/ NMSCIN,NMG10,NMN2,NMSITR,NMSICA,NMXE,NMTRAD,NMAER, |
COMMON/GPCMAT/ NMSCIN,NMG10,NMN2,NMSITR,NMSICA,NMXE,NMTRAD,NMAER, |
84 |
*EM: |
*EM: |
85 |
+ NMCERA,NMG10C,NMWCAL, |
+ NMCERA,NMG10C,NMWCAL, |
87 |
*JeL: |
*JeL: |
88 |
+ NMPLAS, |
+ NMPLAS, |
89 |
*END JeL. |
*END JeL. |
90 |
+ NMMYL,NMPOL, |
+ NMMYL,NMPOL,NMCAD, |
91 |
+ ASCIN(2),ZSCIN(2),WSCIN(2),DSCIN, |
+ ASCIN(2),ZSCIN(2),WSCIN(2),DSCIN, |
92 |
+ AN2G,ZN2G,DN2G,RN2G, |
+ AN2G,ZN2G,DN2G,RN2G, |
93 |
+ AG10(2),ZG10(2),WG10(2),DG10, |
+ AG10(2),ZG10(2),WG10(2),DG10, |
102 |
+ ACERA(4),ZCERA(4),WCERA(4),DCERA, |
+ ACERA(4),ZCERA(4),WCERA(4),DCERA, |
103 |
*END EM. |
*END EM. |
104 |
+ AMYL(3),ZMYL(3),DMYL,WMYL(3), |
+ AMYL(3),ZMYL(3),DMYL,WMYL(3), |
105 |
+ APOL(2),ZPOL(2),DPOL,WPOL(2) |
+ APOL(2),ZPOL(2),DPOL,WPOL(2), |
106 |
|
+ ACAD,ZCAD,DCAD,RCAD |
107 |
C |
C |