/[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.4 by cafagna, Tue Dec 20 12:21:04 2005 UTC revision 3.6 by cafagna, Mon Apr 10 00:07:21 2006 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpdhit.inc,v 3.3 2005/06/21 02:42:09 cafagna Exp $  * $Id: gpdhit.inc,v 3.5 2006/04/09 23:28:55 cafagna Exp $
3  *  *
4  * $Log: gpdhit.inc,v $  * $Log: gpdhit.inc,v $
5    * Revision 3.5  2006/04/09 23:28:55  cafagna
6    * Several new things, among this: ND and CARD
7    *
8    * Revision 3.4  2005/12/20 12:21:04  cafagna
9    * gpnd directory added along with ND files
10    *
11  * Revision 3.3  2005/06/21 02:42:09  cafagna  * Revision 3.3  2005/06/21 02:42:09  cafagna
12  * Major modification to the geometry and to the random number chain  * Major modification to the geometry and to the random number chain
13  *  *
# Line 42  C END ML. Line 48  C END ML.
48        DATA CHSPE/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',        DATA CHSPE/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
49       +           'EREL','PATH','IPAR','P0  '/       +           'EREL','PATH','IPAR','P0  '/
50        DATA CHND/ 'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',        DATA CHND/ 'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
51       +           'EREL','TIME','IPAR','P0  '/       +           'EREL','TIME','PATH','IPAR','P0  '/
52          DATA CHCARD/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
53         +            'EREL','TIME','PATH','IPAR','P0  '/
54  #endif  #endif
55  #if !defined(GPAMELA_INTER)  #if !defined(GPAMELA_INTER)
56        DATA CHTOF/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',        DATA CHTOF/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
# Line 61  C END ML. Line 69  C END ML.
69       +           'EREL','PATH','IPAR','P0  '/       +           'EREL','PATH','IPAR','P0  '/
70  C ML:  C ML:
71        DATA CHND/ 'XIN','YIN','ZIN','XOUT','YOUT','ZOUT',        DATA CHND/ 'XIN','YIN','ZIN','XOUT','YOUT','ZOUT',
72       +           'EREL','TIME','IPAR','P0  '/       +           'EREL','TIME','PATH','IPAR','P0  '/
73          DATA CHCARD/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
74         +            'EREL','TIME','PATH','IPAR','P0  '/
75    
76  C +SELF.  C +SELF.
77  #endif  #endif
78  #if defined(GPAMELA_GARFIELD)  #if defined(GPAMELA_GARFIELD)
# Line 73  C END ML. Line 84  C END ML.
84  * 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
85        DATA NBHTOF/NHTOF*32/,NBHTRD/NHTRD*32/,        DATA NBHTOF/NHTOF*32/,NBHTRD/NHTRD*32/,
86       +     NBHCAT/NHCAT*32/,NBHCAS/NHCAS*32/,NBHSPE/NHSPE*32/,       +     NBHCAT/NHCAT*32/,NBHCAS/NHCAS*32/,NBHSPE/NHSPE*32/,
87       +     NBHCAL/NHCAL*32/,NBHND/NHND*32/       +     NBHCAL/NHCAL*32/,NBHND/NHND*32/,NBHCARD/NHCARD*32/
88  * 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.
89  * Time is in second but we need psec.  * Time is in second but we need psec.
90        DATA OHTOF/6*100.,0.,0.,0.,0.,0./,        DATA OHTOF/6*100.,0.,0.,0.,0.,0./,
# Line 97  C END ML. Line 108  C END ML.
108       +     FHCAT/6*10000.,1.E9,1.E12,10000.,1.,1.E3/       +     FHCAT/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
109        DATA OHCAS/6*100.,0.,0.,0.,0.,0./,        DATA OHCAS/6*100.,0.,0.,0.,0.,0./,
110       +     FHCAS/6*10000.,1.E9,1.E12,10000.,1.,1.E3/       +     FHCAS/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
111          DATA OHCARD/6*100.,0.,0.,0.,0.,0./,
112         +     FHCARD/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
113        DATA OHSPE/6*100.,0.,0.,0.,0./,        DATA OHSPE/6*100.,0.,0.,0.,0./,
114       +     FHSPE/6*10000.,1.E9,10000.,1.,1.E3/       +     FHSPE/6*10000.,1.E9,10000.,1.,1.E3/
115  *EM:  *EM:
# Line 108  c      DATA OHCAL/3*100.,0./,FHCAL/3*100 Line 121  c      DATA OHCAL/3*100.,0./,FHCAL/3*100
121        DATA OHCALI/0.,0./,FHCALI/1.,1.E9/        DATA OHCALI/0.,0./,FHCALI/1.,1.E9/
122  *end ml.  *end ml.
123  *END EM.  *END EM.
124        DATA OHND/6*100.,0.,0.,0.,0./,        DATA OHND/6*100.,0.,0.,0.,0.,0./,
125       +     FHND/6*10000.,1.E9,1.E12,1.,1.E9/       +     FHND/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
126    
127    
128    
Legend:
Removed from v.3.4  
changed lines
  Added in v.3.6
  ViewVC Help
Powered by ViewVC 1.1.23