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

Diff of /gpamela/gpcdes/gpdhit.inc

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

revision 3.1 by cafagna, Thu Jul 11 16:01:59 2002 UTC revision 3.7 by cafagna, Tue May 2 18:00:10 2006 UTC
# Line 1  Line 1 
1  *  *
2  * $Id$  * $Id: gpdhit.inc,v 3.6 2006/04/10 00:07:21 cafagna Exp $
3    *
4    * $Log: gpdhit.inc,v $
5    * Revision 3.6  2006/04/10 00:07:21  cafagna
6    * The P0 range in ND hit changed
7    *
8    * Revision 3.5  2006/04/09 23:28:55  cafagna
9    * Several new things, among this: ND and CARD
10    *
11    * Revision 3.4  2005/12/20 12:21:04  cafagna
12    * gpnd directory added along with ND files
13    *
14    * Revision 3.3  2005/06/21 02:42:09  cafagna
15    * Major modification to the geometry and to the random number chain
16    *
17    *     Revision 3.2 2003/12/17 11:32:49 pamela CALO SIMULATION COMPLETED:
18    *     geometry and special tracking parameters updated and simulation
19    *     checked by a comparison with the Trieste's standalone Monte Carlo
20    *     simulation
21    *
22    * Revision 3.1.1.1  2002/07/11 16:01:59  cafagna
23    * First GPAMELA release on CVS
24  *  *
 * $Log$  
25  *  *
26  *  *
27  * gpdhit.inc  * gpdhit.inc
# Line 19  Line 39 
39  #if defined(GPAMELA_INTER)  #if defined(GPAMELA_INTER)
40  * Interactive case. The average position inside the set has been stored  * Interactive case. The average position inside the set has been stored
41        DATA CHTOF/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',        DATA CHTOF/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
42       +           'P0  ','TIME','PATH','IPAR','EREL'/       +           'EREL','TIME','PATH','IPAR','P0  '/
43  C ML:  C ML:
44  C      DATA CHTRD/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',  C      DATA CHTRD/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
45  C     +           'EREL','PATH','IPAR','P0  '/  C     +           'EREL','PATH','IPAR','P0  '/
# Line 32  C END ML. Line 52  C END ML.
52       +           'EREL','TIME','PATH','IPAR','P0  '/       +           'EREL','TIME','PATH','IPAR','P0  '/
53        DATA CHSPE/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',        DATA CHSPE/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
54       +           'EREL','PATH','IPAR','P0  '/       +           'EREL','PATH','IPAR','P0  '/
55          DATA CHND/ 'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
56         +           'EREL','TIME','PATH','IPAR','P0  '/
57          DATA CHCARD/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
58         +            'EREL','TIME','PATH','IPAR','P0  '/
59  #endif  #endif
60  #if !defined(GPAMELA_INTER)  #if !defined(GPAMELA_INTER)
61        DATA CHTOF/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',        DATA CHTOF/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
62       +           'P0  ','TIME','PATH','IPAR','EREL'/       +           'EREL','TIME','PATH','IPAR','P0  '/
63  C ML:  C ML:
64  C      DATA CHTRD/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',  C      DATA CHTRD/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
65  C     +           'EREL','PATH','IPAR','P0  '/  C     +           'EREL','PATH','IPAR','P0  '/
# Line 49  C END ML. Line 73  C END ML.
73        DATA CHSPE/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',        DATA CHSPE/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
74       +           'EREL','PATH','IPAR','P0  '/       +           'EREL','PATH','IPAR','P0  '/
75  C ML:  C ML:
76          DATA CHND/ 'XIN','YIN','ZIN','XOUT','YOUT','ZOUT',
77         +           'EREL','TIME','PATH','IPAR','P0  '/
78          DATA CHCARD/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
79         +            'EREL','TIME','PATH','IPAR','P0  '/
80    
81  C +SELF.  C +SELF.
82  #endif  #endif
83  #if defined(GPAMELA_GARFIELD)  #if defined(GPAMELA_GARFIELD)
# Line 56  C +SELF. Line 85  C +SELF.
85  #endif  #endif
86  C END ML.  C END ML.
87        DATA CHCAL/'XAVE','YAVE','ZAVE','EREL'/        DATA CHCAL/'XAVE','YAVE','ZAVE','EREL'/
88          DATA CHCALI/'MAP ','ESTR'/
89  * 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
90        DATA NBHTOF/NHTOF*32/,NBHTRD/NHTRD*32/,        DATA NBHTOF/NHTOF*32/,NBHTRD/NHTRD*32/,
91       +     NBHCAT/NHCAT*32/,NBHCAS/NHCAS*32/,NBHSPE/NHSPE*32/,       +     NBHCAT/NHCAT*32/,NBHCAS/NHCAS*32/,NBHSPE/NHSPE*32/,
92       +     NBHCAL/NHCAL*32/       +     NBHCAL/NHCAL*32/,NBHND/NHND*32/,NBHCARD/NHCARD*32/
93  * 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.
94  * Time is in second but we need psec.  * Time is in second but we need psec.
95        DATA OHTOF/6*100.,0.,0.,0.,0.,0./,        DATA OHTOF/6*100.,0.,0.,0.,0.,0./,
96  *ML:  *ML:
97  *     +     FHTOF/6*10000.,1.E9,1.E12,10000.,1.,1.E3/  *     +     FHTOF/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
98       +     FHTOF/6*10000.,1.E3,1.E12,10000.,1.,1.E9/       +     FHTOF/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
99  *END ML.  *END ML.
100  C ML:  C ML:
101  C      DATA OHTRD/6*100.,0.,0.,0.,0./,  C      DATA OHTRD/6*100.,0.,0.,0.,0./,
# Line 83  C END ML. Line 113  C END ML.
113       +     FHCAT/6*10000.,1.E9,1.E12,10000.,1.,1.E3/       +     FHCAT/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
114        DATA OHCAS/6*100.,0.,0.,0.,0.,0./,        DATA OHCAS/6*100.,0.,0.,0.,0.,0./,
115       +     FHCAS/6*10000.,1.E9,1.E12,10000.,1.,1.E3/       +     FHCAS/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
116          DATA OHCARD/6*100.,0.,0.,0.,0.,0./,
117         +     FHCARD/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
118        DATA OHSPE/6*100.,0.,0.,0.,0./,        DATA OHSPE/6*100.,0.,0.,0.,0./,
119       +     FHSPE/6*10000.,1.E9,10000.,1.,1.E3/       +     FHSPE/6*10000.,1.E9,10000.,1.,1.E3/
120  *EM:  *EM:
121    *ml: 21/03/2003:
122    c       DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/
123    cml      DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E5/
124  c      DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/  c      DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/
125        DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E5/        DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/
126          DATA OHCALI/0.,0./,FHCALI/1.,1.E9/
127    *end ml.
128  *END EM.  *END EM.
129          DATA OHND/6*100.,0.,0.,0.,0.,0./,
130         +     FHND/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
131    
132    
133    
Legend:
Removed from v.3.1  
changed lines
  Added in v.3.7
  ViewVC Help
Powered by ViewVC 1.1.23