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

Annotation of /gpamela/gpcdes/gpgeo.inc

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3.8 - (hide annotations) (download)
Fri Dec 16 10:20:14 2005 UTC (18 years, 11 months ago) by cafagna
Branch: MAIN
Changes since 3.7: +6 -13 lines
Bug fixed in the new update

1 cafagna 3.7 *
2 cafagna 3.8 * $Id: gpgeo.inc,v 3.7 2005/12/16 09:13:52 cafagna Exp $
3     *
4     * $Log: gpgeo.inc,v $
5     * Revision 3.7 2005/12/16 09:13:52 cafagna
6     * New small valume added to the tracker frame
7 cafagna 3.7 *
8     * Revision 3.6 2005/12/13 10:31:29 pam-ba
9     * added a new volume, TPGI, in the spectrometer
10     *
11     * Revision 3.5 2005/12/05 12:15:20 pam-ba
12     * new spectrometer geometry and internal magnetic field
13     *
14     * Revision 3.4 2005/07/25 11:53:21 cafagna
15     * Several updates. See history for details
16     *
17     * Revision 3.3 2005/06/21 02:42:13 cafagna
18     * Major modification to the geometry and to the random number chain
19     *
20     * Revision 3.2 2002/12/05 10:17:42 pamela
21     * Update CAS and CALO geometries and positions. Makefile updated as well
22     *
23     * Revision 3.1.1.1 2002/07/11 16:01:59 cafagna
24     * First GPAMELA release on CVS
25     *
26     *
27     *
28     * gpgeo.inc
29     *
30     * 16/07/2004 16.44.06 by Alexey Bakaldin
31     * 27/08/2002 15.28.12 by Jens Lund
32     *CMZ : 3.00/00 14/11/2000 09.13.05 by Emiliano Mocchiutti
33     *CMZ : 2.02/00 12/10/2000 17.59.14 by Francesco Cafagna
34     *CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
35     *CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna
36     *CMZ : 1.02/00 08/11/99 11.10.27 by Francesco Cafagna
37     *CMZ : 1.00/02 02/04/96 16.44.16 by Francesco Cafagna
38     *-- Author :
39     C
40     C Common with the volumes parameters for PAMELA
41     C
42     c ml: 28/10/04:
43     C REAL PAME,SHEL,TFLA,SHEI,TSPH,S11,S12,S21,S22,S31,
44     REAL PAME,SHEL,TFLA,SHEI,TSPH,S11,S12,S21,S22,TPLA,S31,
45     c end ml.
46     c ml: 27/10/04:
47     c + S32,S4,S11X,SC11,S12Y,SC12,S21X,SC21,S22Y,SC22,
48     c ml:20/12/04:
49     c da commentare:
50     + S32,S4,S11Y,SC11,S12X,SC12,S21X,SC21,S22Y,SC22,
51     C DA SCOMMENTARE:
52     C + S32,S4,STOF,SGLU,SPV1,SMYL,S11Y,S12X,SPV2,S21X,S22Y,
53     C OK:
54     c end ml.
55     + S31Y,SC31,S32X,SC32,CATB,CATL,CATT,CASX,CASY,
56     *AB:
57     + MSHE,BSPH,
58     *END: AB.
59     *EM:
60     + CSSX,CSSY,CASXD,CASYD,CATH,CATF,CATO,CATP,
61     *END: EM.
62     *JeL:
63     + CASA, CATA,
64     *END: JeL.
65     *ml: 10/11/04:
66     c + TRDS,TRDT,TRDB,TRFR,TRFI,TRBS,TRSO,TRSI,TRRA,
67     C + TRDS,TRDT,TRDB,TRFR,TRFI,TRBS,TRAL,TRSO,TRSI,TRRA,
68 cafagna 3.8 + TRDS,TRDT,TRDB,TRFR,TRBS,TRAL,TRSO,TRSI,TRRA,
69 cafagna 3.7 + TRFU,TRFD,TRFM,TRFL,TRR2,TRR0,TRI0,TRRF,TRRI,
70     *end ml.
71     + TRAN,TRAI,SPEB,MGFR,MGPL,MGPA,MGPI,TPGA,TPGU,TPGD,TPGI
72     c ml: 20/04/05:
73     c + TRPB,TRPL,TRSL,TSPA,THBP,TRCP,CALB,CALS,CAPL,CANS,
74     + TRPB,TPAS,TPAI,TRSL,TSPA,THBP,TRCP,TBAL,CALB,CALS,
75     + CAPL,CANS,
76     c end ml.
77     *END F.V.&ML.
78     + CASI,CG10,CAAB,XYZPOR,XYZSOR,ZSHEL,
79     *AB:
80     + ZMSHE,ZBSPH,
81     *END: AB.
82     + ZTFLA,ZSHEI,ZTSPH,ZS11,ZS12,ZTRD,ZS21,ZS22,
83     + ZCAT,ZCAS,
84     c ml: 28/10/04:
85     C + ZSPEC,ZS31,ZS32,ZCAL,ZS4,DCASIX,DCASIY,DCASIZ,
86     + ZTPLA,ZSPEBP,ZSPEC,XGLUE,ZS31,ZS32,ZCAL,ZS4,DCASIX,
87     + DCASIY,DCASIZ,
88     c end ml.
89     + SCTIC,GAPTOP,
90     + GAPTRD,CASIOFF,CALSTWID,XGEN,YGEN,ZGEN,XDGEN,YDGEN,
91     *EM:
92     + CAGL,CAKP,CAKA,C10C,CAAD,CAPD,
93     *END EM.
94     * MA
95     + DZM0, DZST
96     C
97     C Some usefull quantities to calculate volumes dimentions
98     C
99     c ml: 27/10/04:
100     c INTEGER NTRSL,NCAPL,NCAPLD,NCASTR,NS11X,
101     c + NS12Y,NS21X,NS22Y,NS31Y,NS32X
102     INTEGER NTRSL,NTHBP,NCAPL,NCAPLD,NCASTR,NS11Y,
103     + NS12X,NS21X,NS22Y,NS31Y,NS32X
104     C
105     *AB:
106     COMMON /GPCGEO/PAME( 3),SHEL( 5),TFLA( 3),SHEI( 3),
107     + MSHE( 3),BSPH(6),TSPH( 6),TPLA( 3),
108     *END: AB.
109     c ml: 28/10/04:
110     + S11( 3),S12( 3),S21( 3),S22( 3),S31( 3),
111     c end ml.
112     c ml: 27/10/04:
113     c + S32( 3),S4( 3),S11X( 3),SC11( 3),
114     C DA COMMENTARE:
115     + S32( 3),S4( 3),S11Y( 3),SC11( 3),
116     C DA SCOMMENTARE:
117     C + S32( 3),S4( 3),STOF( 3),SGLU( 3),SPV1( 3),
118     C + SMYL( 3),S11Y( 3),S12X( 3)SPV2( 3),S21X( 3),
119     C + S22Y( 3),S31Y( 3),SC31( 3),S32X( 3),SC32( 3),
120     C OK:
121     c + S12Y( 3),SC12( 3),S21X( 3),SC21( 3),S22Y( 3),
122     C DA COMMENTARE:
123     + S12X( 3),SC12( 3),S21X( 3),SC21( 3),S22Y( 3),
124     + SC22( 3),S31Y( 3),SC31( 3),S32X( 3),SC32( 3),
125     C OK:
126     + CATB( 3),CATL( 3),CATT( 3),CASX( 3),CASY( 3),
127     C end ml.
128     *EM:
129     + CSSX( 3),CSSY( 3),CATH( 3),CATF( 3),
130     + CATO( 3),CATP( 3),
131     *END: EM.
132     *JeL:
133     + CASA( 3),CATA( 3),
134     *END: JeL.
135     *ml: 10/11/04:
136     C + TRDS( 3),TRDT( 3),TRDB( 3),TRFR( 3),TRFI( 3),
137     + TRDS( 3),TRDT( 3),TRDB( 3),TRFR( 3),
138     c + TRBS( 3),TRSO( 3),TRSI( 3),TRRA( 3),TRAN( 3),
139     c + TRAI( 3),
140     + TRBS( 3),TRAL( 3),TRSO( 3),TRSI( 3),TRRA( 3),
141     + TRFU( 3),TRFD( 3),TRFM( 3),TRFL( 3),TRR2( 3),
142     + TRR0( 3),TRI0( 3),TRRF( 3),TRRI( 3),TRAN( 3),
143     + TRAI( 3),
144     *end ml.
145     + SPEB( 3),MGFR( 3),MGPL( 3),MGPA( 3),MGPI( 3),
146     c ml:20/04/05:
147     c + TRPB( 3),TRPL( 3),TRSL( 3),TSPA( 3),THBP( 3),
148     + TPGA( 3),TPGU( 3),TPGD( 3),TPGI( 3),TRPB( 3),
149     + TPAS( 3),TPAI( 3),TRSL( 3),TSPA( 3),THBP( 3),
150     + TRCP( 3),TBAL( 3),
151     c end ml.
152     + CALB( 3),CALS( 3),
153     * F.C.&ML:
154     C + CAPL( 3),CASI( 3),CAAD( 3),CAPD( 3),
155     + CAPL( 3),CASI( 3),CAAD( 3),CAPD( 3),CANS( 3),
156     * END F.C.&ML.
157     + CG10( 3),CAAB( 3),XYZPOR(3),XYZSOR(3),
158     *EM:
159     + CAGL( 3),CAKP( 3),CAKA( 3),C10C( 3),
160     + CASXD,CASYD,
161     *END EM.
162     *MA
163     + DZM0, DZST,
164     * end MA
165     + SCTIC,ZSHEL,ZTFLA,ZSHEI,ZTSPH,ZS11,ZS12,
166     *AB:
167     + ZMSHE,ZBSPH,
168     *END: AB.
169     c ml: 28/10/04
170     c + ZTRD,ZS21,ZS22,ZCAT,ZCAS,ZSPEC,
171     + ZTRD,ZS21,ZS22,ZTPLA,ZCAT,ZCAS,ZSPEBP,ZSPEC,
172     + XGLUE,
173     c end ml.
174     + ZS31,ZS32,ZCAL,ZS4,DCASIX,DCASIY,DCASIZ,
175     + GAPTOP,GAPTRD,
176     + CASIOFF,CALSTWID,XGEN,YGEN,ZGEN,XDGEN,YDGEN,
177     + NTRSL,NTHBP,NCAPL,NCAPLD,
178     c ml: 27/10/04:
179     c + NCASTR,NS11X,NS12Y,NS21X,NS22Y,NS31Y,NS32X
180     + NCASTR,NS11Y,NS12X,NS21X,NS22Y,NS31Y,NS32X
181     c end ml.
182     C

  ViewVC Help
Powered by ViewVC 1.1.23