| 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 |