gpamela/gpspe/gpspev.F

*
* $Id$
*
* $Log$
*
*CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.06  by  Francesco Cafagna
*CMZ :  1.02/00 07/03/97  14.48.41  by  Francesco Cafagna
*CMZ :  1.00/02 06/02/96  17.34.50  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   09/12/95
      SUBROUTINE GPSPEV
************************************************************************
*                                                                      *
* Volumes definition for the silicon tracking system and magnet        *
* Called by: GPGEM                                                     *
* Author: Francesco Cafagna, 05/12/95 13.39.41                         *
*                                                                      *
************************************************************************
#include "gpgeo.inc"
#include "gpmed.inc"
*
      INTEGER IROT,IVOLU,N,NMED,NUM
      REAL X,Y,Z
*
*  Define the SPEB     volume
*
      NMED= MN2
      CALL GSVOLU('SPEB','BOX ',NMED,SPEB, 3,IVOLU)
*
*  Define the MGPL     volume
*
      NMED= MMAG
      CALL GSVOLU('MGPL','BOX ',NMED,MGPL, 3,IVOLU)
*
*  Define the MGPI     volume
*
      NMED= MN2
      CALL GSVOLU('MGPI','BOX ',NMED,MGPI, 3,IVOLU)
*
*  Define the TRPB     volume
*
      NMED= MAL
      CALL GSVOLU('TRPB','BOX ',NMED,TRPB, 3,IVOLU)
*
*  Define the TRPL     volume
*
      NMED= MN2
      CALL GSVOLU('TRPL','BOX ',NMED,TRPL, 3,IVOLU)
*
*  Define the TRSL     volume
*
      NMED= MN2
      CALL GSVOLU('TRSL','BOX ',NMED,TRSL, 3,IVOLU)
*
*  Define the TSPA     volume
*
      NMED= MSIT
      CALL GSVOLU('TSPA','BOX ',NMED,TSPA, 3,IVOLU)
*
*  Define the TRCP     volume
*
      NMED= MCF
      CALL GSVOLU('TRCP','BOX ',NMED,TRCP, 3,IVOLU)
*
* Positioning volume TSPA     into the mother TRSL
*
      N= 1
      X= 0.
      Y= TRSL(2) - TSPA(2)
      Z= 0.
      CALL GSPOS('TSPA',N,'TRSL',X,Y,Z,0,'ONLY')
      N= 2
      Y= Y - 2.*TSPA(2)
      CALL GSPOS('TSPA',N,'TRSL',X,Y,Z,0,'ONLY')
*
* Positioning volume TRCP     into the mother TRSL
*
      N= 1
      Z= 0.
      Y= 0.
      X= -TRSL(1) + TRCP(1)
      CALL GSPOS('TRCP',N,'TRSL',X,Y,Z,0,'ONLY')
      N= 2
      X= -X
      CALL GSPOS('TRCP',N,'TRSL',X,Y,Z,0,'ONLY')
*
* Positioning volume TRSL     into the mother TRPL
*
      Y= 0.
      Z= 0.
      DO I=1, NTRSL
         X= -TRPL(1) + TRSL(1) +2.*(I-1)*TRSL(1)
         CALL GSPOS('TRSL',I,'TRPL',X,Y,Z,0,'ONLY')
      ENDDO
*
* Positioning volume MGPI     into the mother MGPL
*
      N= 1
      X= 0.
      Y= 0.
      Z= 0.
      CALL GSPOS('MGPI',N,'MGPL',X,Y,Z,0,'ONLY')
*
* Positioning volume TRPL     into the mother TRPB
*
      N= 1
      Z= 0.
      CALL GSPOS('TRPL',N,'TRPB',X,Y,Z,0,'ONLY')
*
* Positioning volumes TRPB & MGPL into the mother SPEB
*
      N= 1
      X= 0.
      Y= 0.
      Z= SPEB(3) - TRPB(3)
      CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,0,'ONLY')
      DO I=1, 5
         Z= Z - TRPB(3) - MGPL(3)
         N= I
         CALL GSPOS('MGPL',N,'SPEB',X,Y,Z,0,'ONLY')
         Z= Z - MGPL(3) - TRPB(3)
         N= (I+1)
         CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,0,'ONLY')
      ENDDO
*
      RETURN
      END
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola
7			*CMZ : 2.00/00 03/03/2000 15.39.06 by Francesco Cafagna
8			*CMZ : 1.02/00 07/03/97 14.48.41 by Francesco Cafagna
9			*CMZ : 1.00/02 06/02/96 17.34.50 by Francesco Cafagna
10			*-- Author : Francesco Cafagna 09/12/95
11			SUBROUTINE GPSPEV
12			************************************************************************
13			* *
14			* Volumes definition for the silicon tracking system and magnet *
15			* Called by: GPGEM *
16			* Author: Francesco Cafagna, 05/12/95 13.39.41 *
17			* *
18			************************************************************************
19			#include "gpgeo.inc"
20			#include "gpmed.inc"
21			*
22			INTEGER IROT,IVOLU,N,NMED,NUM
23			REAL X,Y,Z
24			*
25			* Define the SPEB volume
26			*
27			NMED= MN2
28			CALL GSVOLU('SPEB','BOX ',NMED,SPEB, 3,IVOLU)
29			*
30			* Define the MGPL volume
31			*
32			NMED= MMAG
33			CALL GSVOLU('MGPL','BOX ',NMED,MGPL, 3,IVOLU)
34			*
35			* Define the MGPI volume
36			*
37			NMED= MN2
38			CALL GSVOLU('MGPI','BOX ',NMED,MGPI, 3,IVOLU)
39			*
40			* Define the TRPB volume
41			*
42			NMED= MAL
43			CALL GSVOLU('TRPB','BOX ',NMED,TRPB, 3,IVOLU)
44			*
45			* Define the TRPL volume
46			*
47			NMED= MN2
48			CALL GSVOLU('TRPL','BOX ',NMED,TRPL, 3,IVOLU)
49			*
50			* Define the TRSL volume
51			*
52			NMED= MN2
53			CALL GSVOLU('TRSL','BOX ',NMED,TRSL, 3,IVOLU)
54			*
55			* Define the TSPA volume
56			*
57			NMED= MSIT
58			CALL GSVOLU('TSPA','BOX ',NMED,TSPA, 3,IVOLU)
59			*
60			* Define the TRCP volume
61			*
62			NMED= MCF
63			CALL GSVOLU('TRCP','BOX ',NMED,TRCP, 3,IVOLU)
64			*
65			* Positioning volume TSPA into the mother TRSL
66			*
67			N= 1
68			X= 0.
69			Y= TRSL(2) - TSPA(2)
70			Z= 0.
71			CALL GSPOS('TSPA',N,'TRSL',X,Y,Z,0,'ONLY')
72			N= 2
73			Y= Y - 2.*TSPA(2)
74			CALL GSPOS('TSPA',N,'TRSL',X,Y,Z,0,'ONLY')
75			*
76			* Positioning volume TRCP into the mother TRSL
77			*
78			N= 1
79			Z= 0.
80			Y= 0.
81			X= -TRSL(1) + TRCP(1)
82			CALL GSPOS('TRCP',N,'TRSL',X,Y,Z,0,'ONLY')
83			N= 2
84			X= -X
85			CALL GSPOS('TRCP',N,'TRSL',X,Y,Z,0,'ONLY')
86			*
87			* Positioning volume TRSL into the mother TRPL
88			*
89			Y= 0.
90			Z= 0.
91			DO I=1, NTRSL
92			X= -TRPL(1) + TRSL(1) +2.(I-1)TRSL(1)
93			CALL GSPOS('TRSL',I,'TRPL',X,Y,Z,0,'ONLY')
94			ENDDO
95			*
96			* Positioning volume MGPI into the mother MGPL
97			*
98			N= 1
99			X= 0.
100			Y= 0.
101			Z= 0.
102			CALL GSPOS('MGPI',N,'MGPL',X,Y,Z,0,'ONLY')
103			*
104			* Positioning volume TRPL into the mother TRPB
105			*
106			N= 1
107			Z= 0.
108			CALL GSPOS('TRPL',N,'TRPB',X,Y,Z,0,'ONLY')
109			*
110			* Positioning volumes TRPB & MGPL into the mother SPEB
111			*
112			N= 1
113			X= 0.
114			Y= 0.
115			Z= SPEB(3) - TRPB(3)
116			CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,0,'ONLY')
117			DO I=1, 5
118			Z= Z - TRPB(3) - MGPL(3)
119			N= I
120			CALL GSPOS('MGPL',N,'SPEB',X,Y,Z,0,'ONLY')
121			Z= Z - MGPL(3) - TRPB(3)
122			N= (I+1)
123			CALL GSPOS('TRPB',N,'SPEB',X,Y,Z,0,'ONLY')
124			ENDDO
125			*
126			RETURN
127			END