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 |