/[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.2 by pamela, Wed Dec 17 11:32:49 2003 UTC revision 3.9 by pamela, Tue Jan 29 18:25:16 2008 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpdhit.inc,v 3.1.1.1 2002/07/11 16:01:59 cafagna Exp $  * $Id: gpdhit.inc,v 3.8 2006/05/11 00:15:51 cafagna Exp $
3  *  *
4  * $Log: gpdhit.inc,v $  * $Log: gpdhit.inc,v $
5    * Revision 3.8  2006/05/11 00:15:51  cafagna
6    * A bug in hits retrival for calorimeter
7    *
8    * Revision 3.7  2006/05/02 18:00:10  cafagna
9    * Bugs fixed in TOF set definition, TOF hit back to the original naming scheme
10    *
11    * Revision 3.6  2006/04/10 00:07:21  cafagna
12    * The P0 range in ND hit changed
13    *
14    * Revision 3.5  2006/04/09 23:28:55  cafagna
15    * Several new things, among this: ND and CARD
16    *
17    * Revision 3.4  2005/12/20 12:21:04  cafagna
18    * gpnd directory added along with ND files
19    *
20    * Revision 3.3  2005/06/21 02:42:09  cafagna
21    * Major modification to the geometry and to the random number chain
22    *
23    *     Revision 3.2 2003/12/17 11:32:49 pamela CALO SIMULATION COMPLETED:
24    *     geometry and special tracking parameters updated and simulation
25    *     checked by a comparison with the Trieste's standalone Monte Carlo
26    *     simulation
27    *
28  * Revision 3.1.1.1  2002/07/11 16:01:59  cafagna  * Revision 3.1.1.1  2002/07/11 16:01:59  cafagna
29  * First GPAMELA release on CVS  * First GPAMELA release on CVS
30  *  *
# Line 22  Line 45 
45  #if defined(GPAMELA_INTER)  #if defined(GPAMELA_INTER)
46  * Interactive case. The average position inside the set has been stored  * Interactive case. The average position inside the set has been stored
47        DATA CHTOF/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',        DATA CHTOF/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
48       +           'P0  ','TIME','PATH','IPAR','EREL'/       +           'EREL','TIME','PATH','IPAR','P0  '/
49  C ML:  C ML:
50  C      DATA CHTRD/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',  C      DATA CHTRD/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
51  C     +           'EREL','PATH','IPAR','P0  '/  C     +           'EREL','PATH','IPAR','P0  '/
# Line 35  C END ML. Line 58  C END ML.
58       +           'EREL','TIME','PATH','IPAR','P0  '/       +           'EREL','TIME','PATH','IPAR','P0  '/
59        DATA CHSPE/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',        DATA CHSPE/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
60       +           'EREL','PATH','IPAR','P0  '/       +           'EREL','PATH','IPAR','P0  '/
61          DATA CHND/ 'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
62         +           'EREL','TIME','PATH','IPAR','P0  '/
63          DATA CHCARD/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
64         +            'EREL','TIME','PATH','IPAR','P0  '/
65  #endif  #endif
66  #if !defined(GPAMELA_INTER)  #if !defined(GPAMELA_INTER)
67        DATA CHTOF/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',        DATA CHTOF/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
68       +           'P0  ','TIME','PATH','IPAR','EREL'/       +           'EREL','TIME','PATH','IPAR','P0  '/
69  C ML:  C ML:
70  C      DATA CHTRD/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',  C      DATA CHTRD/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
71  C     +           'EREL','PATH','IPAR','P0  '/  C     +           'EREL','PATH','IPAR','P0  '/
# Line 52  C END ML. Line 79  C END ML.
79        DATA CHSPE/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',        DATA CHSPE/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
80       +           'EREL','PATH','IPAR','P0  '/       +           'EREL','PATH','IPAR','P0  '/
81  C ML:  C ML:
82          DATA CHND/ 'XIN','YIN','ZIN','XOUT','YOUT','ZOUT',
83         +           'EREL','TIME','PATH','IPAR','P0  '/
84          DATA CHCARD/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
85         +            'EREL','TIME','PATH','IPAR','P0  '/
86    
87  C +SELF.  C +SELF.
88  #endif  #endif
89  #if defined(GPAMELA_GARFIELD)  #if defined(GPAMELA_GARFIELD)
# Line 59  C +SELF. Line 91  C +SELF.
91  #endif  #endif
92  C END ML.  C END ML.
93        DATA CHCAL/'XAVE','YAVE','ZAVE','EREL'/        DATA CHCAL/'XAVE','YAVE','ZAVE','EREL'/
94          DATA CHCALI/'MAP ','ESTR'/
95  * 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
96        DATA NBHTOF/NHTOF*32/,NBHTRD/NHTRD*32/,        DATA NBHTOF/NHTOF*32/,NBHTRD/NHTRD*32/,
97       +     NBHCAT/NHCAT*32/,NBHCAS/NHCAS*32/,NBHSPE/NHSPE*32/,       +     NBHCAT/NHCAT*32/,NBHCAS/NHCAS*32/,NBHSPE/NHSPE*32/,
98       +     NBHCAL/NHCAL*32/       +     NBHCAL/NHCAL*32/,NBHCALI/NHCALI*32/,NBHND/NHND*32/,
99         +     NBHCARD/NHCARD*32/
100  * 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.
101  * Time is in second but we need psec.  * Time is in second but we need psec.
102        DATA OHTOF/6*100.,0.,0.,0.,0.,0./,        DATA OHTOF/6*100.,0.,0.,0.,0.,0./,
103  *ML:  *ML:
104  *     +     FHTOF/6*10000.,1.E9,1.E12,10000.,1.,1.E3/  *     +     FHTOF/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
105       +     FHTOF/6*10000.,1.E3,1.E12,10000.,1.,1.E9/       +     FHTOF/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
106  *END ML.  *END ML.
107  C ML:  C ML:
108  C      DATA OHTRD/6*100.,0.,0.,0.,0./,  C      DATA OHTRD/6*100.,0.,0.,0.,0./,
# Line 86  C END ML. Line 120  C END ML.
120       +     FHCAT/6*10000.,1.E9,1.E12,10000.,1.,1.E3/       +     FHCAT/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
121        DATA OHCAS/6*100.,0.,0.,0.,0.,0./,        DATA OHCAS/6*100.,0.,0.,0.,0.,0./,
122       +     FHCAS/6*10000.,1.E9,1.E12,10000.,1.,1.E3/       +     FHCAS/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
123          DATA OHCARD/6*100.,0.,0.,0.,0.,0./,
124         +     FHCARD/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
125        DATA OHSPE/6*100.,0.,0.,0.,0./,        DATA OHSPE/6*100.,0.,0.,0.,0./,
126       +     FHSPE/6*10000.,1.E9,10000.,1.,1.E3/       +     FHSPE/6*10000.,1.E9,10000.,1.,1.E3/
127  *EM:  *EM:
# Line 94  c       DATA OHCAL/3*100.,0./,FHCAL/3*10 Line 130  c       DATA OHCAL/3*100.,0./,FHCAL/3*10
130  cml      DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E5/  cml      DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E5/
131  c      DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/  c      DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/
132        DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/        DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/
133          DATA OHCALI/0.,0./,FHCALI/1.,1.E9/
134  *end ml.  *end ml.
135  *END EM.  *END EM.
136          DATA OHND/6*100.,0.,0.,0.,0.,0./,
137         +     FHND/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
   
   
   
   
   
Legend:
Removed from v.3.2  
changed lines
  Added in v.3.9
  ViewVC Help
Powered by ViewVC 1.1.23