1 |
* |
* |
2 |
* $Id: gpdhit.inc,v 3.1.1.1 2002/07/11 16:01:59 cafagna Exp $ |
* $Id: gpdhit.inc,v 3.4 2005/12/20 12:21:04 cafagna Exp $ |
3 |
* |
* |
4 |
* $Log: gpdhit.inc,v $ |
* $Log: gpdhit.inc,v $ |
5 |
|
* Revision 3.4 2005/12/20 12:21:04 cafagna |
6 |
|
* gpnd directory added along with ND files |
7 |
|
* |
8 |
|
* Revision 3.3 2005/06/21 02:42:09 cafagna |
9 |
|
* Major modification to the geometry and to the random number chain |
10 |
|
* |
11 |
|
* Revision 3.2 2003/12/17 11:32:49 pamela |
12 |
|
* CALO SIMULATION COMPLETED: geometry and special tracking parameters updated and simulation checked by a comparison with the Trieste's standalone Monte Carlo simulation |
13 |
|
* |
14 |
* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna |
* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna |
15 |
* First GPAMELA release on CVS |
* First GPAMELA release on CVS |
16 |
* |
* |
44 |
+ 'EREL','TIME','PATH','IPAR','P0 '/ |
+ 'EREL','TIME','PATH','IPAR','P0 '/ |
45 |
DATA CHSPE/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT', |
DATA CHSPE/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT', |
46 |
+ 'EREL','PATH','IPAR','P0 '/ |
+ 'EREL','PATH','IPAR','P0 '/ |
47 |
|
DATA CHND/ 'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT', |
48 |
|
+ 'EREL','TIME','PATH','IPAR','P0 '/ |
49 |
|
DATA CHCARD/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT', |
50 |
|
+ 'EREL','TIME','PATH','IPAR','P0 '/ |
51 |
#endif |
#endif |
52 |
#if !defined(GPAMELA_INTER) |
#if !defined(GPAMELA_INTER) |
53 |
DATA CHTOF/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT', |
DATA CHTOF/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT', |
65 |
DATA CHSPE/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT', |
DATA CHSPE/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT', |
66 |
+ 'EREL','PATH','IPAR','P0 '/ |
+ 'EREL','PATH','IPAR','P0 '/ |
67 |
C ML: |
C ML: |
68 |
|
DATA CHND/ 'XIN','YIN','ZIN','XOUT','YOUT','ZOUT', |
69 |
|
+ 'EREL','TIME','PATH','IPAR','P0 '/ |
70 |
|
DATA CHCARD/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT', |
71 |
|
+ 'EREL','TIME','PATH','IPAR','P0 '/ |
72 |
|
|
73 |
C +SELF. |
C +SELF. |
74 |
#endif |
#endif |
75 |
#if defined(GPAMELA_GARFIELD) |
#if defined(GPAMELA_GARFIELD) |
77 |
#endif |
#endif |
78 |
C END ML. |
C END ML. |
79 |
DATA CHCAL/'XAVE','YAVE','ZAVE','EREL'/ |
DATA CHCAL/'XAVE','YAVE','ZAVE','EREL'/ |
80 |
|
DATA CHCALI/'MAP ','ESTR'/ |
81 |
* No packing required for the last CAL hit to use the GSCHIT routine |
* No packing required for the last CAL hit to use the GSCHIT routine |
82 |
DATA NBHTOF/NHTOF*32/,NBHTRD/NHTRD*32/, |
DATA NBHTOF/NHTOF*32/,NBHTRD/NHTRD*32/, |
83 |
+ NBHCAT/NHCAT*32/,NBHCAS/NHCAS*32/,NBHSPE/NHSPE*32/, |
+ NBHCAT/NHCAT*32/,NBHCAS/NHCAS*32/,NBHSPE/NHSPE*32/, |
84 |
+ NBHCAL/NHCAL*32/ |
+ NBHCAL/NHCAL*32/,NBHND/NHND*32/,NBHCARD/NHCARD*32/ |
85 |
* The coordinates have to be always positive. We need microns for XYZ and eV. |
* The coordinates have to be always positive. We need microns for XYZ and eV. |
86 |
* Time is in second but we need psec. |
* Time is in second but we need psec. |
87 |
DATA OHTOF/6*100.,0.,0.,0.,0.,0./, |
DATA OHTOF/6*100.,0.,0.,0.,0.,0./, |
105 |
+ FHCAT/6*10000.,1.E9,1.E12,10000.,1.,1.E3/ |
+ FHCAT/6*10000.,1.E9,1.E12,10000.,1.,1.E3/ |
106 |
DATA OHCAS/6*100.,0.,0.,0.,0.,0./, |
DATA OHCAS/6*100.,0.,0.,0.,0.,0./, |
107 |
+ FHCAS/6*10000.,1.E9,1.E12,10000.,1.,1.E3/ |
+ FHCAS/6*10000.,1.E9,1.E12,10000.,1.,1.E3/ |
108 |
|
DATA OHCARD/6*100.,0.,0.,0.,0.,0./, |
109 |
|
+ FHCARD/6*10000.,1.E9,1.E12,10000.,1.,1.E3/ |
110 |
DATA OHSPE/6*100.,0.,0.,0.,0./, |
DATA OHSPE/6*100.,0.,0.,0.,0./, |
111 |
+ FHSPE/6*10000.,1.E9,10000.,1.,1.E3/ |
+ FHSPE/6*10000.,1.E9,10000.,1.,1.E3/ |
112 |
*EM: |
*EM: |
115 |
cml DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E5/ |
cml DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E5/ |
116 |
c DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/ |
c DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/ |
117 |
DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/ |
DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/ |
118 |
|
DATA OHCALI/0.,0./,FHCALI/1.,1.E9/ |
119 |
*end ml. |
*end ml. |
120 |
*END EM. |
*END EM. |
121 |
|
DATA OHND/6*100.,0.,0.,0.,0.,0./, |
122 |
|
+ FHND/6*10000.,1.E9,1.E12,10000.,1.,1.E9/ |
123 |
|
|
124 |
|
|
125 |
|
|