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	*
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