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

Annotation of /gpamela/gpcdes/gpdgeo.inc

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3.1 - (hide annotations) (download)
Thu Jul 11 16:01:59 2002 UTC (22 years, 5 months ago) by cafagna
Branch: MAIN
Branch point for: v3r0
Initial revision

1 cafagna 3.1 *
2     * $Id$
3     *
4     * $Log$
5     *
6     *
7     * gpdgeo.inc
8     *
9     *CMZ : 3.00/00 14/11/2000 09.13.05 by Emiliano Mocchiutti
10     *CMZ : 2.02/00 12/10/2000 18.43.21 by Francesco Cafagna
11     *CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
12     *CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna
13     *CMZ : 1.02/00 04/02/2000 18.40.04 by Francesco Cafagna
14     *CMZ : 1.01/00 06/05/96 11.40.48 by Francesco Cafagna
15     *CMZ : 1.00/02 02/04/96 16.44.16 by Francesco Cafagna
16     *-- Author : Francesco Cafagna 05/12/95
17     DATA PAME/0.,75.,200./
18     DATA SHEL/69.8,70.,75./
19     C DATA TFLA/126.8,127.,0.,33.45,0.,360./
20     DATA TFLA/0.,75.,.125/
21     DATA TSPH/0., 150.,0.,0.,0.,360./
22     DATA GAPTOP/2./
23     C TOF data
24     DATA S11/22.,19.2,.45/
25     DATA S12/22.,19.2,.45/
26     DATA S21/9.,7.2,.35/
27     DATA S22/9.,7.2,.35/
28     DATA S31/9.,7.2,.35/
29     DATA S32/9.,7.2,.35/
30     DATA S4/18.,16.,.5/
31     DATA SCTIC/0.025/
32     DATA NS11X/9/
33     DATA NS12Y/9/
34     DATA NS21X/4/
35     DATA NS22Y/4/
36     DATA NS31Y/4/
37     DATA NS32X/4/
38     DATA ZS11,ZS12,ZS21,ZS22,ZS31,ZS32,ZS4
39     + /107.8,106.8,74.9,74.1,27.1,26.3,2.3/
40     C CAT data
41     *EM:
42     c DATA CATB/22.05,21.05,0.55/
43     DATA CATB/22.2,21.3,0.5/
44     c DATA CATL/15.75,6.675,0.55/
45     c DATA CATT/6.3,14.375,0.55/
46     DATA CATL/2.6,14.9,0.4/
47     DATA CATT/8.45,21.2,0.4/
48     DATA CATH/9.4,7.7,0.5/
49     DATA CATF/2.6,3.15,0.4/
50     DATA CATO/9.3,0.05,0.5/
51     DATA CATP/0.05,7.7,0.5/
52     DATA ZCAT/75.75/
53     C CAS data
54     *EM:
55     C DATA CASX/15.25,0.55,23./
56     C DATA CASY/0.55,14.75,23./
57     DATA CSSX/15.7,0.5,21.6/
58     DATA CSSY/0.5,15.7,21.6/
59     DATA CASX/15.6,0.4,21.5/
60     DATA CASY/0.4,15.6,21.5/
61     DATA CASXD/2.4/
62     DATA CASYD/2.2/
63     DATA ZCAS/51.25/
64     *END: EM.
65     C TRD data
66     DATA TRFR/19,17.5,.2/
67     DATA TRFI/15.5,14.,.2/
68     DATA TRBS/3.3,18.5,1./
69     DATA TRDS/24.,24.5,13.5/
70     DATA TRDT/3.,3.,.25/
71     DATA TRDB/17.7,18.5,0/
72     DATA TRSO/0.197,0.2,14./
73     C DATA TRSI/0.,0.197,14./
74     DATA TRSI/0.,0.2,14./
75     DATA TRRA/13.2,14.,0/
76     DATA TRAN/1.75,1.75,1.0/
77     DATA TRAI/1.75,1.65,0.9/
78     DATA ZTRD/90.55/
79     DATA GAPTRD/1.5/
80     C Spectrometer data
81     DATA SPEB/12.,11.4,0./
82     DATA MGPL/12.,11.4,4.05/
83     DATA MGPI/8.05,6.55,4.05/
84     DATA TRPB/12.,11.4,0.4/
85     DATA TRPL/0.,7.,0.4/
86     DATA TRSL/0.,7.,0./
87     DATA TSPA/2.6666,3.5,0.015/
88     DATA TRCP/0.005,7.,0.3/
89     DATA ZSPEC/50.6/
90     DATA NTRSL/3/
91     C Calorimeter data
92     *EM:
93     * DATA CASI/3.9,3.9,0.019/
94     DATA CASI/3.904,3.904,0.019/
95     DATA CG10/12.1,12.1,0.0875/
96     DATA C10C/12.1,12.1,0.08/
97     DATA CAAB/12.1,12.1,0.133/
98     DATA CAPL/12.1,12.1,0./
99     DATA CAAD/12.1,12.1,0.133/
100     DATA CAPD/12.1,12.1,0./
101     DATA CALB/19.7,19.7,10.2/
102     DATA CALS/20.,20.,10.5/
103     DATA ZCAL/13.05/
104     * DATA CALSTWID/0.36/
105     DATA CALSTWID/0.244/
106     *
107     * NOTE: IF you change NCAPL, remember to modify the NCPL, NCSI, NOCAPL,
108     * NOCASI array dimentions in $GPKEY, $GPDKEY common and data block.
109     * The corresponding FFKEY call in GPFFR must be changed as well.
110     * The GPDAT loop on these arrays should be checked too.
111     *
112     DATA NCAPL/22/
113     DATA NCAPLD/1/
114     C DATA DCASIX/0.3/
115     DATA DCASIX/0.292/
116     C DATA DCASIY/0.3/
117     DATA DCASIY/0.292/
118     DATA DCASIZ/0.15/
119     DATA NCASTR/32/
120     *
121     DATA CAKA/12.,12.1,0.005/
122     DATA CAGL/12.,12.1,0.005/
123     DATA CAKP/12.,12.1,0.0025/
124     *END EM.
125     C

  ViewVC Help
Powered by ViewVC 1.1.23