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

Annotation of /gpamela/gpcdes/gpgeo.inc

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3.9 - (hide annotations) (download)
Tue Dec 20 12:21:04 2005 UTC (18 years, 11 months ago) by cafagna
Branch: MAIN
Changes since 3.8: +10 -2 lines
gpnd directory added along with ND files

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

  ViewVC Help
Powered by ViewVC 1.1.23