/[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.1 by cafagna, Thu Jul 11 16:02:14 2002 UTC revision 3.2 by cafagna, Tue Jun 21 02:42:27 2005 UTC
# Line 1  Line 1 
1    
2  *  *
3  * $Id$  * $Id: gpspev.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $
4    *
5    * $Log: gpspev.F,v $
6    * Revision 3.1.1.1  2002/07/11 16:02:14  cafagna
7    * First GPAMELA release on CVS
8  *  *
 * $Log$  
9  *  *
10  *CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola  *CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola
11  *CMZ :  2.00/00 03/03/2000  15.39.06  by  Francesco Cafagna  *CMZ :  2.00/00 03/03/2000  15.39.06  by  Francesco Cafagna
# Line 41  Line 45 
45  *  *
46        NMED= MAL        NMED= MAL
47        CALL GSVOLU('TRPB','BOX ',NMED,TRPB, 3,IVOLU)        CALL GSVOLU('TRPB','BOX ',NMED,TRPB, 3,IVOLU)
48    *****
49    cC ml 20/04/05:
50  *  *
51  *  Define the TRPL     volume  cc*  Define the TRPL     volume
52    *  Define the TPAS and TPAI volume
53  *  *
54        NMED= MN2        NMED= MN2
55        CALL GSVOLU('TRPL','BOX ',NMED,TRPL, 3,IVOLU)  CC      CALL GSVOLU('TRPL','BOX ',NMED,TRPL, 3,IVOLU)
56          CALL GSVOLU('TPAS','BOX ',NMED,TPAS, 3,IVOLU)
57          CALL GSVOLU('TPAI','BOX ',NMED,TPAI, 3,IVOLU)
58    CC end ml.
59    ****************
60  *  *
61  *  Define the TRSL     volume  *  Define the TRSL     volume
62  *  *
63        NMED= MN2  c ml: 26/11/04:
64    c      NMED= MN2
65          NMED=MSIT
66        CALL GSVOLU('TRSL','BOX ',NMED,TRSL, 3,IVOLU)        CALL GSVOLU('TRSL','BOX ',NMED,TRSL, 3,IVOLU)
67  *  *
68    * Define the THBP volume
69    *
70          NMED=MAL
71          CALL GSVOLU('THBP','BOX ',NMED,THBP, 3,IVOLU)
72    C end ml.
73    *
74  *  Define the TSPA     volume  *  Define the TSPA     volume
75  *  *
76        NMED= MSIT        NMED= MSIT
# Line 66  Line 85 
85  *  *
86        N= 1        N= 1
87        X= 0.        X= 0.
88        Y= TRSL(2) - TSPA(2)  c ml: 26/11/66:
89    c      Y= TRSL(2) - TSPA(2)
90          Y=+TRSL(2)/2
91        Z= 0.        Z= 0.
92        CALL GSPOS('TSPA',N,'TRSL',X,Y,Z,0,'ONLY')        CALL GSPOS('TSPA',N,'TRSL',X,Y,Z,0,'ONLY')
93        N= 2        N= 2
94        Y= Y - 2.*TSPA(2)  C      Y= Y - 2.*TSPA(2)
95          Y=-TRSL(2)/2
96        CALL GSPOS('TSPA',N,'TRSL',X,Y,Z,0,'ONLY')        CALL GSPOS('TSPA',N,'TRSL',X,Y,Z,0,'ONLY')
97    c ml: 26/11/04:
98  *  *
99  * Positioning volume TRCP     into the mother TRSL  c* Positioning volume TRCP     into the mother TRSL
100  *  CC ml 20/04/05:
101        N= 1  CC* Positioning volume TRCP into mother TRPL
102        Z= 0.  * Positioning volume TRCP into mother TRPB
103        Y= 0.  *
104        X= -TRSL(1) + TRCP(1)  c      N= 1
105        CALL GSPOS('TRCP',N,'TRSL',X,Y,Z,0,'ONLY')  CC ml 20/04/05:
106        N= 2  cc      Z= 0.
107        X= -X  cc      Y= 0.
108        CALL GSPOS('TRCP',N,'TRSL',X,Y,Z,0,'ONLY')        Z=-TRPB(3)+0.11+TRCP(3)
109          Y=-TRPB(2)+1.5-0.225+TRCP(2)
110    CC end ml.
111          DO I=1,4
112    CC ml 20/04/05:        
113    CC         X=-TRPL(1)+(2*I-1)*TRCP(1)+2*(I-1)*TRSL(1)
114             X=-TRPB(1)+2.29+(2*I-1)*TRCP(1)+2*(I-1)*TRSL(1)
115    CC end ml
116    c         CALL GSPOS('TRCP',I,'TRPL',X,Y,Z,0,'ONLY')
117             CALL GSPOS('TRCP',I,'TRPB',X,Y,Z,0,'ONLY')
118          ENDDO  
119    c      X= -TRSL(1) + TRCP(1)
120    c      CALL GSPOS('TRCP',N,'TRSL',X,Y,Z,0,'ONLY')
121    C      N= 2
122    C      X= -X
123    C      CALL GSPOS('TRCP',N,'TRSL',X,Y,Z,0,'ONLY')
124    *****
125    cc ml 20/04/05:
126    *
127    *** Positioning volume TRSL     into the mother TRPL
128    * Positioning volume TRSL     into the mother TRPB
129    *
130    c ml: 26/11/04:
131    C      Y= 0.
132    cc      Y=THBP(2)
133          Y=-TRPB(2)+1.5+2*THBP(2)+TRSL(2)
134    C      Y=2.75
135    CC      Z= 0.
136          Z=-TRPB(3)+0.11+TRCP(3)
137          DO I=1, NTRSL
138    c         X= -TRPL(1) + TRSL(1) +2.*(I-1)*TRSL(1)
139    cc         X= -TRPL(1) + 2*I*TRCP(1)+(2*I-1)*TRSL(1)
140             X=-TRPB(1)+2.29+2*I*TRCP(1)+(2*I-1)*TRSL(1)
141    cc         CALL GSPOS('TRSL',I,'TRPL',X,Y,Z,0,'ONLY')
142             CALL GSPOS('TRSL',I,'TRPB',X,Y,Z,0,'ONLY')
143          ENDDO
144    **********
145    cc ml: 20/04/05
146  *  *
147  * Positioning volume TRSL     into the mother TRPL  ********* Positioning volume THBP     into the mother TRPL
148    * Positioning volume THBP     into the mother TRPB
149  *  *
150        Y= 0.  cc      Y=-TRSL(2)
151        Z= 0.        Y=-TRPB(2)+1.5+THBP(2)
152        DO I=1, NTRSL  cc      Z= 0.
153           X= -TRPL(1) + TRSL(1) +2.*(I-1)*TRSL(1)        Z=-TRPB(3)+0.11+TRCP(3)
154           CALL GSPOS('TRSL',I,'TRPL',X,Y,Z,0,'ONLY')        DO I=1, NTHBP
155    CC         X= -TRPL(1) + 2*I*TRCP(1)+(2*I-1)*THBP(1)
156             X=-TRPB(1)+2.29+2*I*TRCP(1)+(2*I-1)*THBP(1)
157    cc         CALL GSPOS('THBP',I,'TRPL',X,Y,Z,0,'ONLY')
158             CALL GSPOS('THBP',I,'TRPB',X,Y,Z,0,'ONLY')
159        ENDDO        ENDDO
160    c end ml.
161    cc ml: 20/04/05
162    *
163    * Positioning volume TPAI into the mother TRPB
164    *
165          X=-TRPB(1)+2.29+TPAI(1)
166          Y=-TRPB(2)+1.5+2.5+TPAI(2)
167          Z=-TRPB(3)+TPAI(3)
168          CALL GSPOS('TPAI',I,'TRPB',X,Y,Z,0,'ONLY')
169    *
170    * Positioning volume TPAS into the mother TRPB
171    *
172          X=-TRPB(1)+2.29+TPAS(1)
173          Y=-TRPB(2)+1.5+TPAS(2)
174          Z=-TRPB(3)+0.11+2*TRCP(3)+TPAS(3)
175          CALL GSPOS('TPAS',I,'TRPB',X,Y,Z,0,'ONLY')
176    c end ml.
177    
178  *  *
179  * Positioning volume MGPI     into the mother MGPL  * Positioning volume MGPI     into the mother MGPL
180  *  *
# Line 100  Line 183 
183        Y= 0.        Y= 0.
184        Z= 0.        Z= 0.
185        CALL GSPOS('MGPI',N,'MGPL',X,Y,Z,0,'ONLY')        CALL GSPOS('MGPI',N,'MGPL',X,Y,Z,0,'ONLY')
186  *  C Ml: 20/04/05:
187  * Positioning volume TRPL     into the mother TRPB  c*
188  *  c* Positioning volume TRPL     into the mother TRPB
189        N= 1  c*
190        Z= 0.  c      N= 1
191        CALL GSPOS('TRPL',N,'TRPB',X,Y,Z,0,'ONLY')  c      Z= 0.
192    c      CALL GSPOS('TRPL',N,'TRPB',X,Y,Z,0,'ONLY')
193    c end ml.
194  *  *
195  * Positioning volumes TRPB & MGPL into the mother SPEB  * Positioning volumes TRPB & MGPL into the mother SPEB
196  *  *
Legend:
Removed from v.3.1  
changed lines
  Added in v.3.2
  ViewVC Help
Powered by ViewVC 1.1.23