/[PAMELA software]/gpamela/gpspe/gpspev.F
ViewVC logotype

Diff of /gpamela/gpspe/gpspev.F

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.6 by cafagna, Fri Dec 16 09:13:59 2005 UTC revision 3.10 by cafagna, Fri Dec 1 12:25:51 2006 UTC
# Line 1  Line 1 
1    *
2  *  * $Id: gpspev.F,v 3.9 2006/06/30 15:38:16 pam-ba Exp $
3  * $Id: gpspev.F,v 3.5 2005/12/13 10:31:29 pam-ba Exp $  *
4  *  * $Log: gpspev.F,v $
5  * $Log: gpspev.F,v $  * Revision 3.9  2006/06/30 15:38:16  pam-ba
6  * Revision 3.5  2005/12/13 10:31:29  pam-ba  * S22 and S12 heights positioned in GPAMELA at the nominal heights in PAMELA (see document: Main geometrical parameters of the PAMELA sub-detectors, 20 December 2005)
7  * added a new volume, TPGI, in the spectrometer  *
8  *  * Revision 3.8  2006/05/02 12:02:43  bottai
9  * Revision 3.4  2005/12/05 12:15:21  pam-ba  * micrometric adjustment of spe geometry
10  * new spectrometer geometry and internal magnetic field  *
11  *  * Revision 3.7  2005/12/16 10:20:23  cafagna
12  * Revision 3.3  2005/07/25 11:53:21  cafagna  * Bug fixed in the new update
13  * Several updates. See history for details  *
14  *  * Revision 3.6  2005/12/16 09:13:59  cafagna
15  * Revision 3.2  2005/06/21 02:42:27  cafagna  * New small valume added to the tracker frame
16  * Major modification to the geometry and to the random number chain  *
17  *  * Revision 3.5  2005/12/13 10:31:29  pam-ba
18  * Revision 3.1.1.1  2002/07/11 16:02:14  cafagna  * added a new volume, TPGI, in the spectrometer
19  * First GPAMELA release on CVS  *
20  *  * Revision 3.4  2005/12/05 12:15:21  pam-ba
21  *  * new spectrometer geometry and internal magnetic field
22  *CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola  *
23  *CMZ :  2.00/00 03/03/2000  15.39.06  by  Francesco Cafagna  * Revision 3.3  2005/07/25 11:53:21  cafagna
24  *CMZ :  1.02/00 07/03/97  14.48.41  by  Francesco Cafagna  * Several updates. See history for details
25  *CMZ :  1.00/02 06/02/96  17.34.50  by  Francesco Cafagna  *
26  *-- Author :    Francesco Cafagna   09/12/95  * Revision 3.2  2005/06/21 02:42:27  cafagna
27        SUBROUTINE GPSPEV  * Major modification to the geometry and to the random number chain
28  ************************************************************************  *
29  *                                                                      *  * Revision 3.1.1.1  2002/07/11 16:02:14  cafagna
30  * Volumes definition for the silicon tracking system and magnet        *  * First GPAMELA release on CVS
31  * Called by: GPGEM                                                     *  *
32  * Author: Francesco Cafagna, 05/12/95 13.39.41                         *  *
33  *                                                                      *  *CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola
34  ************************************************************************  *CMZ :  2.00/00 03/03/2000  15.39.06  by  Francesco Cafagna
35  #include "gpgeo.inc"  *CMZ :  1.02/00 07/03/97  14.48.41  by  Francesco Cafagna
36  #include "gpmed.inc"  *CMZ :  1.00/02 06/02/96  17.34.50  by  Francesco Cafagna
37  *  *-- Author :    Francesco Cafagna   09/12/95
38        INTEGER IROT,IVOLU,N,NMED,NUM        SUBROUTINE GPSPEV
39        REAL X,Y,Z  ************************************************************************
40  *  *                                                                      *
41  *  Define the SPEB     volume  * Volumes definition for the silicon tracking system and magnet        *
42  *  * Called by: GPGEM                                                     *
43        NMED= MN2  * Author: Francesco Cafagna, 05/12/95 13.39.41                         *
44        CALL GSVOLU('SPEB','BOX ',NMED,SPEB, 3,IVOLU)  *                                                                      *
45  *  ************************************************************************
46  *  Define the MGFR     volume  #include "gpgeo.inc"
47  *  #include "gpmed.inc"
48        NMED= MAL  *
49        CALL GSVOLU('MGFR','BOX ',NMED,MGFR, 3,IVOLU)        INTEGER IROT,IVOLU,N,NMED,NUM
50  *        REAL X,Y,Z
51  *  Define the MGPL     volume  *
52  *  *  Define the SPEB     volume
53        NMED= MMAG  *
54        CALL GSVOLU('MGPL','BOX ',NMED,MGPL, 3,IVOLU)        NMED= MN2
55  *        CALL GSVOLU('SPEB','BOX ',NMED,SPEB, 3,IVOLU)
56  *  Define the MGPI     volume  *
57  *  *  Define the MGFR     volume
58        NMED= MN2  *
59        CALL GSVOLU('MGPI','BOX ',NMED,MGPI, 3,IVOLU)        NMED= MAL
60  *        CALL GSVOLU('MGFR','BOX ',NMED,MGFR, 3,IVOLU)
61  *  Define the TRPB     volume  *
62  *  *  Define the MGPL     volume
63        NMED= MAL  *
64        CALL GSVOLU('TRPB','BOX ',NMED,TRPB, 3,IVOLU)        NMED= MMAG
65  *****        CALL GSVOLU('MGPL','BOX ',NMED,MGPL, 3,IVOLU)
66  cC ml 20/04/05:  *
67  *  *  Define the MGPI     volume
68  cc*  Define the TRPL     volume  *
69  *  Define the TPAS and TPAI volume        NMED= MN2
70  *        CALL GSVOLU('MGPI','BOX ',NMED,MGPI, 3,IVOLU)
71        NMED= MN2  *
72  CC      CALL GSVOLU('TRPL','BOX ',NMED,TRPL, 3,IVOLU)  *  Define the TRPB     volume
73        CALL GSVOLU('TPAS','BOX ',NMED,TPAS, 3,IVOLU)  *
74        NMED= MAL        NMED= MAL
75        CALL GSVOLU('TPAI','BOX ',NMED,TPAI, 3,IVOLU)        CALL GSVOLU('TRPB','BOX ',NMED,TRPB, 3,IVOLU)
76  CC end ml.  *****
77  ****************  cC ml 20/04/05:
78  *  *
79  *  Define the TRSL     volume  cc*  Define the TRPL     volume
80  *  *  Define the TPAS and TPAI volume
81  c ml: 26/11/04:  *
82  c      NMED= MN2        NMED= MN2
83        NMED=MSIT  CC      CALL GSVOLU('TRPL','BOX ',NMED,TRPL, 3,IVOLU)
84        CALL GSVOLU('TRSL','BOX ',NMED,TRSL, 3,IVOLU)        CALL GSVOLU('TPAS','BOX ',NMED,TPAS, 3,IVOLU)
85  *        NMED= MAL
86  * Define the THBP volume        CALL GSVOLU('TPAI','BOX ',NMED,TPAI, 3,IVOLU)
87  *  CC end ml.
88        NMED=MG10C  ****************
89        CALL GSVOLU('THBP','BOX ',NMED,THBP, 3,IVOLU)  *
90  C end ml.  *  Define the TRSL     volume
91  *  *
92  *  Define the TSPA     volume  c ml: 26/11/04:
93  *  c      NMED= MN2
94        NMED= MSIT        NMED=MSIT
95        CALL GSVOLU('TSPA','BOX ',NMED,TSPA, 3,IVOLU)        CALL GSVOLU('TRSL','BOX ',NMED,TRSL, 3,IVOLU)
96  *  *
97  *  Define the TRCP     volume  * Define the THBP volume
98  *  *
99        NMED= MCF        NMED=MG10C
100        CALL GSVOLU('TRCP','BOX ',NMED,TRCP, 3,IVOLU)        CALL GSVOLU('THBP','BOX ',NMED,THBP, 3,IVOLU)
101  *  C end ml.
102  *  Define the TBAL     volume  *
103  *  *  Define the TSPA     volume
104        NMED= MAL  *
105        CALL GSVOLU('TBAL','BOX ',NMED,TBAL, 3,IVOLU)        NMED= MSIT
106  *        CALL GSVOLU('TSPA','BOX ',NMED,TSPA, 3,IVOLU)
107  *  Define the MGPA     volume  *
108  *  *  Define the TRCP     volume
109        NMED= MAL  *
110        CALL GSVOLU('MGPA','BOX ',NMED,MGPA, 3,IVOLU)        NMED= MCF
111  *        CALL GSVOLU('TRCP','BOX ',NMED,TRCP, 3,IVOLU)
112  *  Define the TPGA     volume  *
113  *  *  Define the TBAL     volume
114        NMED= MN2  *
115        CALL GSVOLU('TPGA','BOX ',NMED,TPGA, 3,IVOLU)        NMED= MAL
116  *        CALL GSVOLU('TBAL','BOX ',NMED,TBAL, 3,IVOLU)
117  *  Define the TPGI     volume  *
118  *  *  Define the MGPA     volume
119        NMED= MN2  *
120        CALL GSVOLU('TPGI','BOX ',NMED,TPGI, 3,IVOLU)        NMED= MAL
121  *        CALL GSVOLU('MGPA','BOX ',NMED,MGPA, 3,IVOLU)
122  *  Define the TPGU     volume  *
123  *  *  Define the TPGA     volume
124        NMED= MN2  *
125        CALL GSVOLU('TPGU','BOX ',NMED,TPGU, 3,IVOLU)        NMED= MN2
126  *        CALL GSVOLU('TPGA','BOX ',NMED,TPGA, 3,IVOLU)
127  *  Define the TPGD     volume  *
128  *  *  Define the TPGI     volume
129        NMED= MN2  *
130        CALL GSVOLU('TPGD','BOX ',NMED,TPGD, 3,IVOLU)        NMED= MN2
131          CALL GSVOLU('TPGI','BOX ',NMED,TPGI, 3,IVOLU)
132  *  *
133  * Positioning volume TSPA     into the mother TRSL  *  Define the TPGU     volume
134  *  *
135        N= 1        NMED= MN2
136        X= 0.        CALL GSVOLU('TPGU','BOX ',NMED,TPGU, 3,IVOLU)
137        Y= 0.  *
138        Z= 0.  *  Define the TPGD     volume
139        CALL GSPOS('TSPA',N,'TRSL',X,Y,Z,0,'ONLY')  *
140  C #       N= 2        NMED= MN2
141  C # C      Y= Y - 2.*TSPA(2)        CALL GSVOLU('TPGD','BOX ',NMED,TPGD, 3,IVOLU)
142  C #       Y=-TRSL(2)/2  
143  C #       CALL GSPOS('TSPA',N,'TRSL',X,Y,Z,0,'ONLY')  *
144  c ml: 26/11/04:  * Positioning volume TSPA     into the mother TRSL
145  * Positioning volume TRCP into mother TPAS  *
146  C # Caf mod on 19 Jul 2005 all volumes are placed inside the TPAS one        GLUEX=XGLUE-0.0005
147  C #       Z=-TRPB(3)+0.11+TRCP(3)        GLUEY=XGLUE
148  C #       Y=-TRPB(2)+1.5-0.225+TRCP(2)        N= 1
149  CC end ml.        X= 0.
150  c      Z=-TRPB(3)+2*TPAI(3)+TRCP(3)        Y= 0.
151        Z=TRPB(3)-2*TPAI(3)-TRCP(3)        Z= 0.
152        y=-0.225-TPAS(2)+TRCP(2)        CALL GSPOS('TSPA',N,'TRSL',X,Y,Z,0,'ONLY')
153  C # end CAF mod  C #       N= 2
154        TPASSPACE=TPAS(1)-(3*TRSL(1)+4*TRCP(1)+3*XGLUE)  C # C      Y= Y - 2.*TSPA(2)
155        DO I=1,4  C #       Y=-TRSL(2)/2
156  CC ml 20/04/05:          C #       CALL GSPOS('TSPA',N,'TRSL',X,Y,Z,0,'ONLY')
157  CC         X=-TRPL(1)+(2*I-1)*TRCP(1)+2*(I-1)*TRSL(1)  c ml: 26/11/04:
158  C # Caf mod on 19 Jul 2005 all volumes are placed inside the TPAS one  * Positioning volume TRCP into mother TPAS
159  C #          X=-TRPB(1)+2.29+(2*I-1)*TRCP(1)+2*(I-1)*TRSL(1)  C # Caf mod on 19 Jul 2005 all volumes are placed inside the TPAS one
160  c ml: 19/9/05: introducing the glue between TRCP and the silicon ladders.  C #       Z=-TRPB(3)+0.11+TRCP(3)
161  c              for now the glue is a space of nitrogen of 0.015 mm  C #       Y=-TRPB(2)+1.5-0.225+TRCP(2)
162  c         X=-TPAS(1)+(2*I-1)*TRCP(1)+2*(I-1)*TRSL(1)  CC end ml.
163  C Ml. 15/12/05: introducing a space (along x) between the inner part of the  c      Z=-TRPB(3)+2*TPAI(3)+TRCP(3)
164  c  aluminum frame and respectively the first and the last carbon fiber barrel.        Z=TRPB(3)-2*TPAI(3)-TRCP(3)
165  c It is has been done increasing the dimension of TPAS along x:        y=-TPAS(2)+TRCP(2)
166  C         X=-TPAS(1)+2*(I-1)*XGLUE+(2*I-1)*TRCP(1)+2*(I-1)*TRSL(1)  C # end CAF mod
167           X=-TPAS(1)+TPASSPACE+2*(I-1)*XGLUE+(2*I-1)*TRCP(1)+        TPASSPACE=TPAS(1)-(3*TRSL(1)+4*TRCP(1)+3*GLUEX)
168       +      2*(I-1)*TRSL(1)        DO I=1,4
169  CC end ml  CC ml 20/04/05:        
170           CALL GSPOS('TRCP',I,'TPAS',X,Y,Z,0,'ONLY')  CC         X=-TRPL(1)+(2*I-1)*TRCP(1)+2*(I-1)*TRSL(1)
171  C # end CAF mod  C # Caf mod on 19 Jul 2005 all volumes are placed inside the TPAS one
172        ENDDO    C #          X=-TRPB(1)+2.29+(2*I-1)*TRCP(1)+2*(I-1)*TRSL(1)
173  cc ml 20/04/05:  c ml: 19/9/05: introducing the glue between TRCP and the silicon ladders.
174  * Positioning volume TRSL     into the mother TPAS  c              for now the glue is a space of nitrogen of 0.015 mm
175  C # Caf mod on 19 Jul 2005 all volumes are placed inside the TPAS one  c         X=-TPAS(1)+(2*I-1)*TRCP(1)+2*(I-1)*TRSL(1)
176  C #       Y=-TRPB(2)+1.5+2*THBP(2)+TRSL(2)  C Ml. 15/12/05: introducing a space (along x) between the inner part of the
177  C      Y=2.75  c  aluminum frame and respectively the first and the last carbon fiber barrel.
178  CC      Z= 0.  c It is has been done increasing the dimension of TPAS along x:
179  C      Z=-0.005  C         X=-TPAS(1)+2*(I-1)*XGLUE+(2*I-1)*TRCP(1)+2*(I-1)*TRSL(1)
180  c      Z=-TRPB(3)+2*TPAI(3)+TRCP(3)           X=-TPAS(1)+TPASSPACE+2*(I-1)*GLUEX+(2*I-1)*TRCP(1)+
181        Z=TRPB(3)-2*TPAI(3)-TRCP(3)       +      2*(I-1)*TRSL(1)
182        DO I=1, NTRSL  CC end ml
183  c ml: 20/9/05 introducing the glue between TRCP and the silicon ladders.           CALL GSPOS('TRCP',I,'TPAS',X,Y,Z,0,'ONLY')
184  c         X=-TPAS(1)+2*(MOD(I-1,3)+1)*TRCP(1)+  C # end CAF mod
185  c     +        (2*(MOD(I-1,3)+1)-1)*TRSL(1)        ENDDO  
186           X=-TPAS(1)+2*(MOD(I-1,3)+1)*TRCP(1)+  cc ml 20/04/05:
187       +   (2*(MOD(I-1,3)+1)-1)*XGLUE+(2*(MOD(I-1,3)+1)-1)*TRSL(1)          * Positioning volume TRSL     into the mother TPAS
188           IF(I.LE.3) THEN  C # Caf mod on 19 Jul 2005 all volumes are placed inside the TPAS one
189  C ml: 22/9/05:  C #       Y=-TRPB(2)+1.5+2*THBP(2)+TRSL(2)
190  c            Y=TPAS(2)-TRSL(2)  C      Y=2.75
191              Y=TPAS(2)-0.1485-TRSL(2)  CC      Z= 0.
192           ELSE  C      Z=-0.005
193  C            Y=TPAS(2)-3*TRSL(2)  c      Z=-TRPB(3)+2*TPAI(3)+TRCP(3)
194              Y=TPAS(2)-0.1485-XGLUE-3*TRSL(2)        Z=TRPB(3)-2*TPAI(3)-TRCP(3)
195           ENDIF        DO I=1, NTRSL
196           CALL GSPOS('TRSL',I,'TPAS',X,Y,Z,0,'ONLY')  c ml: 20/9/05 introducing the glue between TRCP and the silicon ladders.
197        ENDDO  c         X=-TPAS(1)+2*(MOD(I-1,3)+1)*TRCP(1)+
198  C # end CAF mod  c     +        (2*(MOD(I-1,3)+1)-1)*TRSL(1)
199  **********           X=-TPAS(1)+TPASSPACE+2*(MOD(I-1,3)+1)*TRCP(1)+
200  cc ml: 20/04/05       +   (2*(MOD(I-1,3)+1)-1)*GLUEX+(2*(MOD(I-1,3)+1)-1)*TRSL(1)
201  * Positioning volume THBP     into the mother TPAS           IF(I.LE.3) THEN
202  C # Caf mod on 19 Jul 2005 all volumes are placed inside the TPAS one  C ml: 22/9/05:
203  C #       Y=-TRPB(2)+1.5+THBP(2)  c            Y=TPAS(2)-TRSL(2)
204  C # cc      Z= 0.              Y=TPAS(2)-0.1485+0.0005-TRSL(2)
205  C #       Z=-TRPB(3)+0.11+TRCP(3)           ELSE
206  c ml: 22/9/05:  C            Y=TPAS(2)-3*TRSL(2)
207  c      Y=-TPAS(2)+THBP(2)              Y=TPAS(2)-0.1485-GLUEY-3*TRSL(2)
208        Y=-TPAS(2)+0.1485+THBP(2)           ENDIF
209  C      Z=-0.005           CALL GSPOS('TRSL',I,'TPAS',X,Y,Z,0,'ONLY')
210  c      Z=-TRPB(3)+2*TPAI(3)+TRCP(3)        ENDDO
211        Z=TRPB(3)-2*TPAI(3)-TRCP(3)  C # end CAF mod
212        DO I=1, NTHBP  **********
213  CC         X= -TRPL(1) + 2*I*TRCP(1)+(2*I-1)*THBP(1)  cc ml: 20/04/05
214  C #          X=-TRPB(1)+2.29+2*I*TRCP(1)+(2*I-1)*THBP(1)  * Positioning volume THBP     into the mother TPAS
215  c ml: 21/9/05 introducing the glue between the carbon barrel and the silicon  C # Caf mod on 19 Jul 2005 all volumes are placed inside the TPAS one
216  c       ladders  C #       Y=-TRPB(2)+1.5+THBP(2)
217  c         X=-TPAS(1)+2*I*TRCP(1)+(2*I-1)*THBP(1)  C # cc      Z= 0.
218           X=-TPAS(1)+2*I*TRCP(1)+(2*I-1)*THBP(1)+  C #       Z=-TRPB(3)+0.11+TRCP(3)
219       +      (2*(MOD(I-1,3)+1)-1)*XGLUE  c ml: 22/9/05:
220           CALL GSPOS('THBP',I,'TPAS',X,Y,Z,0,'ONLY')  c      Y=-TPAS(2)+THBP(2)
221        ENDDO        Y=-TPAS(2)+0.1485+THBP(2)
222  c end ml.  C      Z=-0.005
223  cc ml: 20/04/05  c      Z=-TRPB(3)+2*TPAI(3)+TRCP(3)
224  *        Z=TRPB(3)-2*TPAI(3)-TRCP(3)
225  * Positioning volume TPAI into the mother TPAS        DO I=1, NTHBP
226  *  CC         X= -TRPL(1) + 2*I*TRCP(1)+(2*I-1)*THBP(1)
227  C # Mod By Caf on 19th Jul 2005 all volumes inside the TPAS  C #          X=-TRPB(1)+2.29+2*I*TRCP(1)+(2*I-1)*THBP(1)
228        X=0  c ml: 21/9/05 introducing the glue between the carbon barrel and the silicon
229        Y=-TPAS(2)+TPAI(2)  c       ladders
230  c      Z=-TPAS(3)+TPAI(3)  c         X=-TPAS(1)+2*I*TRCP(1)+(2*I-1)*THBP(1)
231        Z=TRPB(3)-TPAI(3)           X=-TPAS(1)+TPASSPACE+2*I*TRCP(1)+(2*I-1)*THBP(1)+
232  C #       X=-TRPB(1)+2.29+TPAI(1)       +      (2*(MOD(I-1,3)+1)-1)*GLUEX
233  C #       Y=-TRPB(2)+1.5+2.5+TPAI(2)           CALL GSPOS('THBP',I,'TPAS',X,Y,Z,0,'ONLY')
234  C #       Z=-TRPB(3)+TPAI(3)        ENDDO
235        CALL GSPOS('TPAI',I,'TPAS',X,Y,Z,0,'ONLY')  c end ml.
236  C # end CAF mod  cc ml: 20/04/05
237  *  *
238  * Positioning volume TPAS into the mother TRPB  * Positioning volume TPAI into the mother TPAS
239  *  *
240  C # Mod By Caf on 15th Jul 2005  C # Mod By Caf on 19th Jul 2005 all volumes inside the TPAS
241        X=0        X=0
242        Y=-TRPB(2)+1.5+TPAS(2)        Y=-TPAS(2)+TPAI(2)
243        Z=0  c      Z=-TPAS(3)+TPAI(3)
244  C #       X=-TRPB(1)+2.29+TPAS(1)        Z=TRPB(3)-TPAI(3)
245  C #       Y=-TRPB(2)+1.5+TPAS(2)  C #       X=-TRPB(1)+2.29+TPAI(1)
246  C #       Z=-TRPB(3)+0.11+2*TRCP(3)+TPAS(3)  C #       Y=-TRPB(2)+1.5+2.5+TPAI(2)
247        CALL GSPOS('TPAS',I,'TRPB',X,Y,Z,0,'ONLY')  C #       Z=-TRPB(3)+TPAI(3)
248  c end ml.        CALL GSPOS('TPAI',I,'TPAS',X,Y,Z,0,'ONLY')
249  *  C # end CAF mod
250  * Positioning volume MGPA     into the mother MGPL  *
251  *  * Positioning volume TPAS into the mother TRPB
252        N= 1  *
253        X= 0.  C # Mod By Caf on 15th Jul 2005
254        Y= 0.        X=0
255        Z= 0.        Y=-TRPB(2)+1.5+TPAS(2)
256        CALL GSPOS('MGPA',N,'MGPL',X,Y,Z,0,'ONLY')        Z=0
257  *  C #       X=-TRPB(1)+2.29+TPAS(1)
258  * Positioning volume TPGD     into the mother MGFR  C #       Y=-TRPB(2)+1.5+TPAS(2)
259  *  C #       Z=-TRPB(3)+0.11+2*TRCP(3)+TPAS(3)
260        X=0.        CALL GSPOS('TPAS',I,'TRPB',X,Y,Z,0,'ONLY')
261        Z=-MGFR(3)+TPGD(3)  c end ml.
262        Y=0.  *
263        CALL GSPOS('TPGD',N,'MGFR',X,Y,Z,0,'ONLY')  * Positioning volume MGPA     into the mother MGPL
264  *  *
265  <<<<<<< gpspev.F        N= 1
266  * Positioning volume TPGI     into the mother MGFR under MGPL        X= 0.
267  *        Y= 0.
268        N=1        Z= 0.
269        X=0.        CALL GSPOS('MGPA',N,'MGPL',X,Y,Z,0,'ONLY')
270        Z=-MGFR(3)+2*TPGD(3)+TPGI(3)  *
271        Y=0.  * Positioning volume TPGD     into the mother MGFR
272        CALL GSPOS('TPGI',N,'MGFR',X,Y,Z,0,'ONLY')  *
273  *        X=0.
274  =======        Z=-MGFR(3)+TPGD(3)
275  * Positioning volume TPGI     into the mother MGFR under MGPL        Y=0.
276  *        CALL GSPOS('TPGD',N,'MGFR',X,Y,Z,0,'ONLY')
277        N=1  *
278        X=0.  * Positioning volume TPGI     into the mother MGFR under MGPL
279        Z=-MGFR(3)+2*TPGD(3)+TPGI(3)  *
280        Y=0.        N=1
281        CALL GSPOS('TPGI',N,'MGFR',X,Y,Z,0,'ONLY')        X=0.
282  *        Z=-MGFR(3)+2*TPGD(3)+TPGI(3)
283  >>>>>>> 3.5        Y=0.
284  * Positioning volume MGPI     into the mother MGPL        CALL GSPOS('TPGI',N,'MGFR',X,Y,Z,0,'ONLY')
285  *  *
286        N= 1  * Positioning volume MGPI     into the mother MGPL
287        X= 0.  *
288        Y= 0.        N= 1
289  CC ML 10/11/05:  Positioning volume MGPI     into the mother MGPA        X= 0.
290        Z= 0.        Y= 0.
291        CALL GSPOS('MGPI',N,'MGPA',X,Y,Z,0,'ONLY')  CC ML 10/11/05:  Positioning volume MGPI     into the mother MGPA
292  C      Z= -MGFR(3)+2*TPGD(3)+MGPI(3)        Z= 0.
293  C      CALL GSPOS('MGPI',N,'MGFR',X,Y,Z,0,'ONLY')        CALL GSPOS('MGPI',N,'MGPA',X,Y,Z,0,'ONLY')
294  *  C      Z= -MGFR(3)+2*TPGD(3)+MGPI(3)
295  * Positioning volume MGPL     into the mother MGFR  C      CALL GSPOS('MGPI',N,'MGFR',X,Y,Z,0,'ONLY')
296  *  *
297  c ml: 10/11/05  * Positioning volume MGPL     into the mother MGFR
298        N=1  *
299  c      Z=-MGFR(3)+MGPL(3)  c ml: 10/11/05
300        Z=-MGFR(3)+2*(TPGD(3)+TPGI(3))+MGPL(3)        N=1
301        CALL GSPOS('MGPL',N,'MGFR',X,Y,Z,0,'ONLY')  c      Z=-MGFR(3)+MGPL(3)
302  *        Z=-MGFR(3)+2*(TPGD(3)+TPGI(3))+MGPL(3)
303  <<<<<<< gpspev.F        CALL GSPOS('MGPL',N,'MGFR',X,Y,Z,0,'ONLY')
304  * Positioning volume TPGI     into the mother MGFR above MGPL  *
305  *  * Positioning volume TPGI     into the mother MGFR above MGPL
306        N=2  *
307        X=0.        N=2
308        Z=-MGFR(3)+2*(TPGD(3)+TPGI(3)+MGPL(3))+TPGI(3)        X=0.
309        Y=0.        Z=-MGFR(3)+2*(TPGD(3)+TPGI(3)+MGPL(3))+TPGI(3)
310        CALL GSPOS('TPGI',N,'MGFR',X,Y,Z,0,'ONLY')        Y=0.
311  *        CALL GSPOS('TPGI',N,'MGFR',X,Y,Z,0,'ONLY')
312  =======  *
313  * Positioning volume TPGI     into the mother MGFR over MGPL  * Positioning volume TPGA     into the mother MGFR
314  *  *
315        N=2  C ML: 10/11/05
316        X=0.        N=1
317        Z=-MGFR(3)+2*(TPGD(3)+TPGI(3)+MGPL(3))+TPGI(3)        X=0.
318        Y=0.        Y=MGFR(2)-2*(MGFR(2)-TRPB(2))-TPGA(2)
319        CALL GSPOS('TPGI',N,'MGFR',X,Y,Z,0,'ONLY')  C      Z=-MGFR(3)+2*MGPL(3)+TPGA(3)
320  *  C      Z=MGFR(3)-2*TPGU(3)-2*TRPB(3)-TPGA(3)
321  >>>>>>> 3.5        Z=-MGFR(3)+2*(TPGD(3)+TPGI(3)+MGPL(3)+TPGI(3))+TPGA(3)
322  * Positioning volume TPGA     into the mother MGFR  C      Y=-0.75
323  *        CALL GSPOS('TPGA',N,'MGFR',X,Y,Z,0,'ONLY')
324  C ML: 10/11/05  *
325        N=1  * Positioning volumes TRPB & MGPL into the mother SPEB
326        X=0.  *
327        Y=MGFR(2)-2*(MGFR(2)-TRPB(2))-TPGA(2)        N= 1
328  C      Z=-MGFR(3)+2*MGPL(3)+TPGA(3)        X= 0.
329  C      Z=MGFR(3)-2*TPGU(3)-2*TRPB(3)-TPGA(3)  C      Y= SPEB(2) - TRPB(2)
330        Z=-MGFR(3)+2*(TPGD(3)+TPGI(3)+MGPL(3)+TPGI(3))+TPGA(3)        Y= -MGFR(2) + TRPB(2)
331  C      Y=-0.75  C      Z= SPEB(3) - TRPB(3)
332        CALL GSPOS('TPGA',N,'MGFR',X,Y,Z,0,'ONLY')  c      Z=-MGFR(3)+2*MGPL(3)+2*TPGA(3)+TRPB(3)
333  *  C      Z=MGFR(3)-2*TPGU(3)-TRPB(3)
334  * Positioning volumes TRPB & MGPL into the mother SPEB        Z=-MGFR(3)+2*(TPGD(3)+TPGI(3)+MGPL(3)+TPGI(3)+TPGA(3))+TRPB(3)
335  *  C      CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,0,'ONLY')
336        N= 1        CALL GSPOS('TRPB',N,'MGFR',X,Y,Z,0,'ONLY')
337        X= 0.  c      CALL GSPOS('TRPB',N,'MGFR',X,Y,Z,9,'ONLY')
338  C      Y= SPEB(2) - TRPB(2)        Z=SPEB(3)
339        Y= -MGFR(2) + TRPB(2)        DO I=1, 5
340  C      Z= SPEB(3) - TRPB(3)           X= 0.
341  c      Z=-MGFR(3)+2*MGPL(3)+2*TPGA(3)+TRPB(3)           Y= 0.
342  C      Z=MGFR(3)-2*TPGU(3)-TRPB(3)  C         Z= Z - TRPB(3) - MGFR(3)
343        Z=-MGFR(3)+2*(TPGD(3)+TPGI(3)+MGPL(3)+TPGI(3)+TPGA(3))+TRPB(3)           Z=Z-MGFR(3)
344  C      CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,0,'ONLY')           N= I
345        CALL GSPOS('TRPB',N,'MGFR',X,Y,Z,0,'ONLY')           CALL GSPOS('MGFR',N,'SPEB',X,Y,Z,0,'ONLY')
346  c      CALL GSPOS('TRPB',N,'MGFR',X,Y,Z,9,'ONLY')  C         Y= SPEB(2) - TRPB(2)
347        Z=SPEB(3)  C         Z= Z - MGFR(3) - TRPB(3)
348        DO I=1, 5  C         N= (I+1)
349           X= 0.  C         IF(I.EQ.5) THEN
350           Y= 0.  CC            CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,10,'ONLY')
351  C         Z= Z - TRPB(3) - MGFR(3)  C            CALL GSPOS('TRPB',N,'MGFR',X,Y,Z,10,'ONLY')
352           Z=Z-MGFR(3)  C         ELSE
353           N= I  CC            CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,0,'ONLY')
354           CALL GSPOS('MGFR',N,'SPEB',X,Y,Z,0,'ONLY')  C            CALL GSPOS('TRPB',N,'MGFR',X,Y,Z,0,'ONLY')
355  C         Y= SPEB(2) - TRPB(2)  C         ENDIF
356  C         Z= Z - MGFR(3) - TRPB(3)           Z=Z-MGFR(3)
357  C         N= (I+1)        ENDDO
358  C         IF(I.EQ.5) THEN        N=2
359  CC            CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,10,'ONLY')        X=0.
360  C            CALL GSPOS('TRPB',N,'MGFR',X,Y,Z,10,'ONLY')        Y=MGFR(2) - TRPB(2)
361  C         ELSE        Z=Z-TRPB(3)
362  CC            CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,0,'ONLY')        ZTRPB=Z
363  C            CALL GSPOS('TRPB',N,'MGFR',X,Y,Z,0,'ONLY')  c      CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,4,'ONLY')
364  C         ENDIF        CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,10,'ONLY')
365           Z=Z-MGFR(3)  *
366        ENDDO  * Positioning volume TBAL into the mother SPEB
367        N=2  *
368        X=0.        DO I=1,2
369        Y=MGFR(2) - TRPB(2)  C DTBAL is the distance along x of the volumes TBAL from the end of TRPB
370        Z=Z-TRPB(3)           DTBAL=3.6
371        ZTRPB=Z           N=I
372  c      CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,4,'ONLY')           IF(I.EQ.1) THEN
373        CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,10,'ONLY')              X=TRPB(1)-3.6-TBAL(1)
374  *           ELSE
375  * Positioning volume TBAL into the mother SPEB              X=-(TRPB(1)-3.6-TBAL(1))
376  *           ENDIF
377        DO I=1,2           Y=MGFR(2) - 2*TRPB(2)-TBAL(2)
378  C DTBAL is the distance along x of the volumes TBAL from the end of TRPB           Z=ZTRPB
379           DTBAL=3.6           CALL GSPOS('TBAL',N,'SPEB',X,Y,Z,0,'ONLY')
380           N=I        ENDDO
381           IF(I.EQ.1) THEN  *
382              X=TRPB(1)-3.6-TBAL(1)  * Positioning volume TPGU     into the mother MGFR
383           ELSE  *
384              X=-(TRPB(1)-3.6-TBAL(1))        X=0.
385           ENDIF  C      Z=MGFR(3)-TPGU(3)
386           Y=MGFR(2) - 2*TRPB(2)-TBAL(2)        Z=-MGFR(3)+2*(TPGD(3)+TPGI(3)+MGPL(3)+TPGI(3)+TPGA(3)+TRPB(3))+
387           Z=ZTRPB       +   TPGU(3)      
388           CALL GSPOS('TBAL',N,'SPEB',X,Y,Z,0,'ONLY')        Y=-MGFR(2)+TRPB(2)
389        ENDDO        CALL GSPOS('TPGU',N,'MGFR',X,Y,Z,0,'ONLY')
390  *  *
391  * Positioning volume TPGU     into the mother MGFR        RETURN
392  *        END
       X=0.  
 <<<<<<< gpspev.F  
 C      Z=MGFR(3)-TPGU(3)  
       Z=-MGFR(3)+2*(TPGD(3)+TPGI(3)+MGPL(3)+TPGI(3)+TPGA(3)+TRPB(3))+  
      +   TPGU(3)        
 =======  
 C      Z=MGFR(3)-TPGU(3)  
       Z=-MGFR(3)+2*(TPGD(3)+TPGI(3)+MGPL(3)+TPGI(3)+TPGA(3)+TRPB(3))+  
      +   TPGU(3)  
 >>>>>>> 3.5  
       Y=-MGFR(2)+TRPB(2)  
       CALL GSPOS('TPGU',N,'MGFR',X,Y,Z,0,'ONLY')  
 *  
       RETURN  
       END  
Legend:
Removed from v.3.6  
changed lines
  Added in v.3.10
  ViewVC Help
Powered by ViewVC 1.1.23