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

Annotation of /gpamela/gpcdes/gpdhit.inc

Parent Directory Parent Directory | Revision Log Revision Log

Revision 3.6 - (hide annotations) (download)
Mon Apr 10 00:07:21 2006 UTC (18 years, 8 months ago) by cafagna
Branch: MAIN
CVS Tags: v4r4, v4r5
Changes since 3.5: +5 -2 lines 
The P0 range in ND hit changed
1 cafagna 3.1 *
2 cafagna 3.6 * $Id: gpdhit.inc,v 3.5 2006/04/09 23:28:55 cafagna Exp $
3 pamela 3.2 *
4     * $Log: gpdhit.inc,v $
5 cafagna 3.6 * Revision 3.5 2006/04/09 23:28:55 cafagna
6     * Several new things, among this: ND and CARD
7     *
8 cafagna 3.5 * Revision 3.4 2005/12/20 12:21:04 cafagna
9     * gpnd directory added along with ND files
10     *
11 cafagna 3.4 * Revision 3.3 2005/06/21 02:42:09 cafagna
12     * Major modification to the geometry and to the random number chain
13     *
14 cafagna 3.3 * Revision 3.2 2003/12/17 11:32:49 pamela
15     * CALO SIMULATION COMPLETED: geometry and special tracking parameters updated and simulation checked by a comparison with the Trieste's standalone Monte Carlo simulation
16     *
17 pamela 3.2 * Revision 3.1.1.1 2002/07/11 16:01:59 cafagna
18     * First GPAMELA release on CVS
19 cafagna 3.1 *
20     *
21     *
22     * gpdhit.inc
23     *
24     *CMZ : 3.00/00 25/01/2002 16.54.40 by Marialuigia Ambriola
25     *CMZ : 2.03/00 31/10/2000 09.49.36 by Francesco Cafagna
26     *CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
27     *CMZ : 2.00/00 25/02/2000 19.00.48 by Francesco Cafagna
28     *CMZ : 1.02/00 22/10/99 15.38.16 by Francesco Cafagna
29     *CMZ : 1.00/02 04/04/96 15.41.47 by Francesco Cafagna
30     *-- Author : Francesco Cafagna 13/02/96
31     *
32     * Data block for GPHIT common
33     *
34     #if defined(GPAMELA_INTER)
35     * Interactive case. The average position inside the set has been stored
36     DATA CHTOF/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
37     + 'P0 ','TIME','PATH','IPAR','EREL'/
38     C ML:
39     C DATA CHTRD/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
40     C + 'EREL','PATH','IPAR','P0 '/
41     DATA (CHTRD(I),I=1,12)/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
42     + 'EREL','PATH','IPAR','P0 ','ETR ','NTR '/
43     C END ML.
44     DATA CHCAT/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
45     + 'EREL','TIME','PATH','IPAR','P0 '/
46     DATA CHCAS/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
47     + 'EREL','TIME','PATH','IPAR','P0 '/
48     DATA CHSPE/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
49     + 'EREL','PATH','IPAR','P0 '/
50 cafagna 3.4 DATA CHND/ 'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
51 cafagna 3.5 + 'EREL','TIME','PATH','IPAR','P0 '/
52     DATA CHCARD/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
53     + 'EREL','TIME','PATH','IPAR','P0 '/
54 cafagna 3.1 #endif
55     #if !defined(GPAMELA_INTER)
56     DATA CHTOF/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
57     + 'P0 ','TIME','PATH','IPAR','EREL'/
58     C ML:
59     C DATA CHTRD/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
60     C + 'EREL','PATH','IPAR','P0 '/
61     DATA (CHTRD(I),I=1,12)/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
62     + 'EREL','PATH','IPAR','P0 ','ETR ','NTR '/
63     C END ML.
64     DATA CHCAT/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
65     + 'EREL','TIME','PATH','IPAR','P0 '/
66     DATA CHCAS/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
67     + 'EREL','TIME','PATH','IPAR','P0 '/
68     DATA CHSPE/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
69     + 'EREL','PATH','IPAR','P0 '/
70     C ML:
71 cafagna 3.4 DATA CHND/ 'XIN','YIN','ZIN','XOUT','YOUT','ZOUT',
72 cafagna 3.5 + 'EREL','TIME','PATH','IPAR','P0 '/
73     DATA CHCARD/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
74     + 'EREL','TIME','PATH','IPAR','P0 '/
75    
76 cafagna 3.1 C +SELF.
77     #endif
78     #if defined(GPAMELA_GARFIELD)
79     DATA CHTRD(13),CHTRD(14)/'EGAR','NGAR'/
80     #endif
81     C END ML.
82     DATA CHCAL/'XAVE','YAVE','ZAVE','EREL'/
83 cafagna 3.3 DATA CHCALI/'MAP ','ESTR'/
84 cafagna 3.1 * No packing required for the last CAL hit to use the GSCHIT routine
85     DATA NBHTOF/NHTOF*32/,NBHTRD/NHTRD*32/,
86     + NBHCAT/NHCAT*32/,NBHCAS/NHCAS*32/,NBHSPE/NHSPE*32/,
87 cafagna 3.5 + NBHCAL/NHCAL*32/,NBHND/NHND*32/,NBHCARD/NHCARD*32/
88 cafagna 3.1 * The coordinates have to be always positive. We need microns for XYZ and eV.
89     * Time is in second but we need psec.
90     DATA OHTOF/6*100.,0.,0.,0.,0.,0./,
91     *ML:
92     * + FHTOF/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
93     + FHTOF/6*10000.,1.E3,1.E12,10000.,1.,1.E9/
94     *END ML.
95     C ML:
96     C DATA OHTRD/6*100.,0.,0.,0.,0./,
97     C + FHTRD/6*10000.,1.E12,10000.,1.,1.E3/
98     #if !defined(GPAMELA_GARFIELD)
99     DATA OHTRD/6*100.,0.,0.,0.,0.,0.,0./,
100     + FHTRD/6*10000.,1.E12,10000.,1.,1.E7,1.E12,1./
101     #endif
102     #if defined(GPAMELA_GARFIELD)
103     DATA OHTRD/6*100.,0.,0.,0.,0.,0.,0.,0.,0./,
104     + FHTRD/6*10000.,1.E12,10000.,1.,1.E7,1.E12,1.,1.E12,1./
105     #endif
106     C END ML.
107     DATA OHCAT/6*100.,0.,0.,0.,0.,0./,
108     + FHCAT/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
109     DATA OHCAS/6*100.,0.,0.,0.,0.,0./,
110     + FHCAS/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
111 cafagna 3.5 DATA OHCARD/6*100.,0.,0.,0.,0.,0./,
112     + FHCARD/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
113 cafagna 3.1 DATA OHSPE/6*100.,0.,0.,0.,0./,
114     + FHSPE/6*10000.,1.E9,10000.,1.,1.E3/
115     *EM:
116 pamela 3.2 *ml: 21/03/2003:
117     c DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/
118     cml DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E5/
119 cafagna 3.1 c DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/
120 pamela 3.2 DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/
121 cafagna 3.3 DATA OHCALI/0.,0./,FHCALI/1.,1.E9/
122 pamela 3.2 *end ml.
123 cafagna 3.1 *END EM.
124 cafagna 3.5 DATA OHND/6*100.,0.,0.,0.,0.,0./,
125 cafagna 3.6 + FHND/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
126 cafagna 3.1
127    
128    
129    
130    
131    
132    
  ViewVC Help
Powered by ViewVC 1.1.23