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

Contents of /gpamela/gpcdes/gpdhit.inc

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3.1.1.1 - (show annotations) (download) (vendor branch)
Thu Jul 11 16:01:59 2002 UTC (22 years, 4 months ago) by cafagna
Branch: v3r0
CVS Tags: firstrelease, v3r3, v3r1, v3r2
Changes since 3.1: +0 -0 lines
First GPAMELA release on CVS

1 *
2 * $Id$
3 *
4 * $Log$
5 *
6 *
7 * gpdhit.inc
8 *
9 *CMZ : 3.00/00 25/01/2002 16.54.40 by Marialuigia Ambriola
10 *CMZ : 2.03/00 31/10/2000 09.49.36 by Francesco Cafagna
11 *CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
12 *CMZ : 2.00/00 25/02/2000 19.00.48 by Francesco Cafagna
13 *CMZ : 1.02/00 22/10/99 15.38.16 by Francesco Cafagna
14 *CMZ : 1.00/02 04/04/96 15.41.47 by Francesco Cafagna
15 *-- Author : Francesco Cafagna 13/02/96
16 *
17 * Data block for GPHIT common
18 *
19 #if defined(GPAMELA_INTER)
20 * Interactive case. The average position inside the set has been stored
21 DATA CHTOF/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
22 + 'P0 ','TIME','PATH','IPAR','EREL'/
23 C ML:
24 C DATA CHTRD/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
25 C + 'EREL','PATH','IPAR','P0 '/
26 DATA (CHTRD(I),I=1,12)/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
27 + 'EREL','PATH','IPAR','P0 ','ETR ','NTR '/
28 C END ML.
29 DATA CHCAT/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
30 + 'EREL','TIME','PATH','IPAR','P0 '/
31 DATA CHCAS/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
32 + 'EREL','TIME','PATH','IPAR','P0 '/
33 DATA CHSPE/'XAVE','YAVE','ZAVE','XOUT','YOUT','ZOUT',
34 + 'EREL','PATH','IPAR','P0 '/
35 #endif
36 #if !defined(GPAMELA_INTER)
37 DATA CHTOF/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
38 + 'P0 ','TIME','PATH','IPAR','EREL'/
39 C ML:
40 C DATA CHTRD/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
41 C + 'EREL','PATH','IPAR','P0 '/
42 DATA (CHTRD(I),I=1,12)/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
43 + 'EREL','PATH','IPAR','P0 ','ETR ','NTR '/
44 C END ML.
45 DATA CHCAT/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
46 + 'EREL','TIME','PATH','IPAR','P0 '/
47 DATA CHCAS/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
48 + 'EREL','TIME','PATH','IPAR','P0 '/
49 DATA CHSPE/'XIN ','YIN ','ZIN ','XOUT','YOUT','ZOUT',
50 + 'EREL','PATH','IPAR','P0 '/
51 C ML:
52 C +SELF.
53 #endif
54 #if defined(GPAMELA_GARFIELD)
55 DATA CHTRD(13),CHTRD(14)/'EGAR','NGAR'/
56 #endif
57 C END ML.
58 DATA CHCAL/'XAVE','YAVE','ZAVE','EREL'/
59 * No packing required for the last CAL hit to use the GSCHIT routine
60 DATA NBHTOF/NHTOF*32/,NBHTRD/NHTRD*32/,
61 + NBHCAT/NHCAT*32/,NBHCAS/NHCAS*32/,NBHSPE/NHSPE*32/,
62 + NBHCAL/NHCAL*32/
63 * The coordinates have to be always positive. We need microns for XYZ and eV.
64 * Time is in second but we need psec.
65 DATA OHTOF/6*100.,0.,0.,0.,0.,0./,
66 *ML:
67 * + FHTOF/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
68 + FHTOF/6*10000.,1.E3,1.E12,10000.,1.,1.E9/
69 *END ML.
70 C ML:
71 C DATA OHTRD/6*100.,0.,0.,0.,0./,
72 C + FHTRD/6*10000.,1.E12,10000.,1.,1.E3/
73 #if !defined(GPAMELA_GARFIELD)
74 DATA OHTRD/6*100.,0.,0.,0.,0.,0.,0./,
75 + FHTRD/6*10000.,1.E12,10000.,1.,1.E7,1.E12,1./
76 #endif
77 #if defined(GPAMELA_GARFIELD)
78 DATA OHTRD/6*100.,0.,0.,0.,0.,0.,0.,0.,0./,
79 + FHTRD/6*10000.,1.E12,10000.,1.,1.E7,1.E12,1.,1.E12,1./
80 #endif
81 C END ML.
82 DATA OHCAT/6*100.,0.,0.,0.,0.,0./,
83 + FHCAT/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
84 DATA OHCAS/6*100.,0.,0.,0.,0.,0./,
85 + FHCAS/6*10000.,1.E9,1.E12,10000.,1.,1.E3/
86 DATA OHSPE/6*100.,0.,0.,0.,0./,
87 + FHSPE/6*10000.,1.E9,10000.,1.,1.E3/
88 *EM:
89 c DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E9/
90 DATA OHCAL/3*100.,0./,FHCAL/3*10000.,1.E5/
91 *END EM.
92
93
94
95
96
97
98

  ViewVC Help
Powered by ViewVC 1.1.23