/[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.4 by pam-ba, Mon Dec 5 12:15:21 2005 UTC revision 3.5 by pam-ba, Tue Dec 13 10:31:29 2005 UTC
# Line 1  Line 1 
1    
2  *  *
3  * $Id: gpspev.F,v 3.3 2005/07/25 11:53:21 cafagna Exp $  * $Id: gpspev.F,v 3.4 2005/12/05 12:15:21 pam-ba Exp $
4  *  *
5  * $Log: gpspev.F,v $  * $Log: gpspev.F,v $
6    * Revision 3.4  2005/12/05 12:15:21  pam-ba
7    * new spectrometer geometry and internal magnetic field
8    *
9  * Revision 3.3  2005/07/25 11:53:21  cafagna  * Revision 3.3  2005/07/25 11:53:21  cafagna
10  * Several updates. See history for details  * Several updates. See history for details
11  *  *
# Line 103  C end ml. Line 106  C end ml.
106        NMED= MN2        NMED= MN2
107        CALL GSVOLU('TPGA','BOX ',NMED,TPGA, 3,IVOLU)        CALL GSVOLU('TPGA','BOX ',NMED,TPGA, 3,IVOLU)
108  *  *
109    *  Define the TPGI     volume
110    *
111          NMED= MN2
112          CALL GSVOLU('TPGI','BOX ',NMED,TPGI, 3,IVOLU)
113    *
114  *  Define the TPGU     volume  *  Define the TPGU     volume
115  *  *
116        NMED= MN2        NMED= MN2
# Line 240  c end ml. Line 248  c end ml.
248        Y=0.        Y=0.
249        CALL GSPOS('TPGD',N,'MGFR',X,Y,Z,0,'ONLY')        CALL GSPOS('TPGD',N,'MGFR',X,Y,Z,0,'ONLY')
250  *  *
251    * Positioning volume TPGI     into the mother MGFR under MGPL
252    *
253          N=1
254          X=0.
255          Z=-MGFR(3)+2*TPGD(3)+TPGI(3)
256          Y=0.
257          CALL GSPOS('TPGI',N,'MGFR',X,Y,Z,0,'ONLY')
258    *
259  * Positioning volume MGPI     into the mother MGPL  * Positioning volume MGPI     into the mother MGPL
260  *  *
261        N= 1        N= 1
262        X= 0.        X= 0.
263        Y= 0.        Y= 0.
264  CC ML 10/11/05:  Positioning volume MGPI     into the mother MGFR  CC ML 10/11/05:  Positioning volume MGPI     into the mother MGPA
265        Z= 0.        Z= 0.
266        CALL GSPOS('MGPI',N,'MGPA',X,Y,Z,0,'ONLY')        CALL GSPOS('MGPI',N,'MGPA',X,Y,Z,0,'ONLY')
267  C      Z= -MGFR(3)+2*TPGD(3)+MGPI(3)  C      Z= -MGFR(3)+2*TPGD(3)+MGPI(3)
# Line 254  C      CALL GSPOS('MGPI',N,'MGFR',X,Y,Z, Line 270  C      CALL GSPOS('MGPI',N,'MGFR',X,Y,Z,
270  * Positioning volume MGPL     into the mother MGFR  * Positioning volume MGPL     into the mother MGFR
271  *  *
272  c ml: 10/11/05  c ml: 10/11/05
273          N=1
274  c      Z=-MGFR(3)+MGPL(3)  c      Z=-MGFR(3)+MGPL(3)
275        Z=-MGFR(3)+2*TPGD(3)+MGPI(3)        Z=-MGFR(3)+2*(TPGD(3)+TPGI(3))+MGPL(3)
276        CALL GSPOS('MGPL',N,'MGFR',X,Y,Z,0,'ONLY')        CALL GSPOS('MGPL',N,'MGFR',X,Y,Z,0,'ONLY')
277  *  *
278    * Positioning volume TPGI     into the mother MGFR over MGPL
279    *
280          N=2
281          X=0.
282          Z=-MGFR(3)+2*(TPGD(3)+TPGI(3)+MGPL(3))+TPGI(3)
283          Y=0.
284          CALL GSPOS('TPGI',N,'MGFR',X,Y,Z,0,'ONLY')
285    *
286  * Positioning volume TPGA     into the mother MGFR  * Positioning volume TPGA     into the mother MGFR
287  *  *
288  C ML: 10/11/05  C ML: 10/11/05
289          N=1
290        X=0.        X=0.
291        Y=MGFR(2)-2*(MGFR(2)-TRPB(2))-TPGA(2)        Y=MGFR(2)-2*(MGFR(2)-TRPB(2))-TPGA(2)
292  C      Z=-MGFR(3)+2*MGPL(3)+TPGA(3)  C      Z=-MGFR(3)+2*MGPL(3)+TPGA(3)
293        Z=MGFR(3)-2*TPGU(3)-2*TRPB(3)-TPGA(3)  C      Z=MGFR(3)-2*TPGU(3)-2*TRPB(3)-TPGA(3)
294          Z=-MGFR(3)+2*(TPGD(3)+TPGI(3)+MGPL(3)+TPGI(3))+TPGA(3)
295  C      Y=-0.75  C      Y=-0.75
296        CALL GSPOS('TPGA',N,'MGFR',X,Y,Z,0,'ONLY')        CALL GSPOS('TPGA',N,'MGFR',X,Y,Z,0,'ONLY')
297  *  *
# Line 276  C      Y= SPEB(2) - TRPB(2) Line 303  C      Y= SPEB(2) - TRPB(2)
303        Y= -MGFR(2) + TRPB(2)        Y= -MGFR(2) + TRPB(2)
304  C      Z= SPEB(3) - TRPB(3)  C      Z= SPEB(3) - TRPB(3)
305  c      Z=-MGFR(3)+2*MGPL(3)+2*TPGA(3)+TRPB(3)  c      Z=-MGFR(3)+2*MGPL(3)+2*TPGA(3)+TRPB(3)
306        Z=MGFR(3)-2*TPGU(3)-TRPB(3)  C      Z=MGFR(3)-2*TPGU(3)-TRPB(3)
307          Z=-MGFR(3)+2*(TPGD(3)+TPGI(3)+MGPL(3)+TPGI(3)+TPGA(3))+TRPB(3)
308  C      CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,0,'ONLY')  C      CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,0,'ONLY')
309        CALL GSPOS('TRPB',N,'MGFR',X,Y,Z,0,'ONLY')        CALL GSPOS('TRPB',N,'MGFR',X,Y,Z,0,'ONLY')
310  c      CALL GSPOS('TRPB',N,'MGFR',X,Y,Z,9,'ONLY')  c      CALL GSPOS('TRPB',N,'MGFR',X,Y,Z,9,'ONLY')
# Line 310  c      CALL GSPOS('TRPB',N,'SPEB',X,Y,Z, Line 338  c      CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,
338  * Positioning volume TPGU     into the mother MGFR  * Positioning volume TPGU     into the mother MGFR
339  *  *
340        X=0.        X=0.
341        Z=MGFR(3)-TPGU(3)  C      Z=MGFR(3)-TPGU(3)
342          Z=-MGFR(3)+2*(TPGD(3)+TPGI(3)+MGPL(3)+TPGI(3)+TPGA(3)+TRPB(3))+
343         +   TPGU(3)
344        Y=-MGFR(2)+TRPB(2)        Y=-MGFR(2)+TRPB(2)
345        CALL GSPOS('TPGU',N,'MGFR',X,Y,Z,0,'ONLY')        CALL GSPOS('TPGU',N,'MGFR',X,Y,Z,0,'ONLY')
346  *  *
Legend:
Removed from v.3.4  
changed lines
  Added in v.3.5
  ViewVC Help
Powered by ViewVC 1.1.23