gpamela/gpcat/gpcatv.F

*
* $Id$
*
* $Log$
*
*CMZ :  3.00/00 14/11/2000  09.13.05  by  Emiliano Mocchiutti
*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.00/02 08/02/96  17.12.36  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   08/02/96
      SUBROUTINE GPCATV
************************************************************************
*                                                                      *
* Volumes definition for the TOP  anticoincidence counters             *
* Called by: GPGEO                                                     *
*                                                                      *
* Author: Francesco Cafagna, 08/02/96 16.58.49                         *
*                                                                      *
************************************************************************
#include "gpgeo.inc"
#include "gpmed.inc"
*
      INTEGER IROT,IVOLU,N,NMED,NUM
      REAL X,Y,Z
*EM:
      NMED=MSCIN
*
*  Define the CATL     volume
*
      CALL GSVOLU('CATL','BOX ',NMED,CATL, 3,IVOLU)
*
*  Define the CATT     volume
*
      CALL GSVOLU('CATT','BOX ',NMED,CATT, 3,IVOLU)
*
      NMED=MN2
*
*  Define the CATH     volume
*
      CALL GSVOLU('CATH','BOX ',NMED,CATH, 3,IVOLU)
*
*  Define the CATF     volume
*
      CALL GSVOLU('CATF','BOX ',NMED,CATF, 3,IVOLU)
*
      NMED=MAL
*
*  Define the CATB     volume
*
      CALL GSVOLU('CATB','BOX ',NMED,CATB, 3,IVOLU)
*
*  Define the CATO     volume
*
      CALL GSVOLU('CATO','BOX ',NMED,CATO, 3,IVOLU)
*
*  Define the CATP     volume
*
      CALL GSVOLU('CATP','BOX ',NMED,CATP, 3,IVOLU)
*
* Positioning volume CATT     into the mother CATB
*
      N = 1
C      X= CATL(1)-CATB(1)
C      Y= CATL(2)+(2.*CATT(2)-CATB(2))
      X = -CATT(1)
      Y = 0.
      Z = 0.
      CALL GSPOS('CATT',N,'CATB',X,Y,Z,0,'ONLY')
      N = 2
      X = -X
      Y = -Y
      Z = 0.
      CALL GSPOS('CATT',N,'CATB',X,Y,Z,0,'ONLY')
*
* Positioning volume CATL     into the mother CATB
*
      N = 1
C      X = -CATT(1)-(2.*CATL(1)-CATB(1))
C      Y = CATT(2)-CATB(2)
      X = -(2*CATT(1)+CATL(1))
      Y = 0.
      Z = 0.
      CALL GSPOS('CATL',N,'CATB',X,Y,Z,0,'ONLY')
      N = 2
      X = -X
      Y = -Y
      Z = 0.
      CALL GSPOS('CATL',N,'CATB',X,Y,Z,0,'ONLY')
*
* Positioning volume CATH     into the mother CATB
*
      N = 1
      X = 0.
      Y = 0.
      Z = 0.
      CALL GSPOS('CATH',N,'CATB',X,Y,Z,0,'ONLY')
*
* Positioning volume CATF     into the mother CATB
*
      N = 1
      X = -(2*CATT(1)+CATL(1))
      Y = CATL(2)+CATF(2)
      Z = 0.
      CALL GSPOS('CATF',N,'CATB',X,Y,Z,0,'ONLY')
      N = 2
      X = X
      Y = -Y
      Z = 0.
      CALL GSPOS('CATF',N,'CATB',X,Y,Z,0,'ONLY')
      N = 3
      X = -X
      Y = Y
      Z = 0.
      CALL GSPOS('CATF',N,'CATB',X,Y,Z,0,'ONLY')
      N = 4
      X = X
      Y = -Y
      Z = 0.
      CALL GSPOS('CATF',N,'CATB',X,Y,Z,0,'ONLY')

*
* Positioning volume CATP  into the mother CATB
*
      N = 1
      X = -CATH(1)+CATP(1)
      Y = 0.
      Z = 0.
      CALL GSPOS('CATP',N,'CATB',X,Y,Z,0,'ONLY')
      N = 2
      X = -X
      Y = Y
      Z = 0.
      CALL GSPOS('CATP',N,'CATB',X,Y,Z,0,'ONLY')
*
* Positioning volume CATO  into the mother CATB
*
      N = 1
      X = 0.
      Y = -CATH(2)+CATO(2)
      Z = 0.
      CALL GSPOS('CATO',N,'CATB',X,Y,Z,0,'ONLY')
      N = 2
      X = X
      Y = -Y
      Z = 0.
      CALL GSPOS('CATO',N,'CATB',X,Y,Z,0,'ONLY')
*
      RETURN
      END
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*CMZ : 3.00/00 14/11/2000 09.13.05 by Emiliano Mocchiutti
7	*CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola
8	*CMZ : 2.00/00 03/03/2000 15.39.06 by Francesco Cafagna
9	*CMZ : 1.00/02 08/02/96 17.12.36 by Francesco Cafagna
10	*-- Author : Francesco Cafagna 08/02/96
11	SUBROUTINE GPCATV
12	************************************************************************
13	* *
14	* Volumes definition for the TOP anticoincidence counters *
15	* Called by: GPGEO *
16	* *
17	* Author: Francesco Cafagna, 08/02/96 16.58.49 *
18	* *
19	************************************************************************
20	#include "gpgeo.inc"
21	#include "gpmed.inc"
22	*
23	INTEGER IROT,IVOLU,N,NMED,NUM
24	REAL X,Y,Z
25	*EM:
26	NMED=MSCIN
27	*
28	* Define the CATL volume
29	*
30	CALL GSVOLU('CATL','BOX ',NMED,CATL, 3,IVOLU)
31	*
32	* Define the CATT volume
33	*
34	CALL GSVOLU('CATT','BOX ',NMED,CATT, 3,IVOLU)
35	*
36	NMED=MN2
37	*
38	* Define the CATH volume
39	*
40	CALL GSVOLU('CATH','BOX ',NMED,CATH, 3,IVOLU)
41	*
42	* Define the CATF volume
43	*
44	CALL GSVOLU('CATF','BOX ',NMED,CATF, 3,IVOLU)
45	*
46	NMED=MAL
47	*
48	* Define the CATB volume
49	*
50	CALL GSVOLU('CATB','BOX ',NMED,CATB, 3,IVOLU)
51	*
52	* Define the CATO volume
53	*
54	CALL GSVOLU('CATO','BOX ',NMED,CATO, 3,IVOLU)
55	*
56	* Define the CATP volume
57	*
58	CALL GSVOLU('CATP','BOX ',NMED,CATP, 3,IVOLU)
59	*
60	* Positioning volume CATT into the mother CATB
61	*
62	N = 1
63	C X= CATL(1)-CATB(1)
64	C Y= CATL(2)+(2.*CATT(2)-CATB(2))
65	X = -CATT(1)
66	Y = 0.
67	Z = 0.
68	CALL GSPOS('CATT',N,'CATB',X,Y,Z,0,'ONLY')
69	N = 2
70	X = -X
71	Y = -Y
72	Z = 0.
73	CALL GSPOS('CATT',N,'CATB',X,Y,Z,0,'ONLY')
74	*
75	* Positioning volume CATL into the mother CATB
76	*
77	N = 1
78	C X = -CATT(1)-(2.*CATL(1)-CATB(1))
79	C Y = CATT(2)-CATB(2)
80	X = -(2*CATT(1)+CATL(1))
81	Y = 0.
82	Z = 0.
83	CALL GSPOS('CATL',N,'CATB',X,Y,Z,0,'ONLY')
84	N = 2
85	X = -X
86	Y = -Y
87	Z = 0.
88	CALL GSPOS('CATL',N,'CATB',X,Y,Z,0,'ONLY')
89	*
90	* Positioning volume CATH into the mother CATB
91	*
92	N = 1
93	X = 0.
94	Y = 0.
95	Z = 0.
96	CALL GSPOS('CATH',N,'CATB',X,Y,Z,0,'ONLY')
97	*
98	* Positioning volume CATF into the mother CATB
99	*
100	N = 1
101	X = -(2*CATT(1)+CATL(1))
102	Y = CATL(2)+CATF(2)
103	Z = 0.
104	CALL GSPOS('CATF',N,'CATB',X,Y,Z,0,'ONLY')
105	N = 2
106	X = X
107	Y = -Y
108	Z = 0.
109	CALL GSPOS('CATF',N,'CATB',X,Y,Z,0,'ONLY')
110	N = 3
111	X = -X
112	Y = Y
113	Z = 0.
114	CALL GSPOS('CATF',N,'CATB',X,Y,Z,0,'ONLY')
115	N = 4
116	X = X
117	Y = -Y
118	Z = 0.
119	CALL GSPOS('CATF',N,'CATB',X,Y,Z,0,'ONLY')
120
121	*
122	* Positioning volume CATP into the mother CATB
123	*
124	N = 1
125	X = -CATH(1)+CATP(1)
126	Y = 0.
127	Z = 0.
128	CALL GSPOS('CATP',N,'CATB',X,Y,Z,0,'ONLY')
129	N = 2
130	X = -X
131	Y = Y
132	Z = 0.
133	CALL GSPOS('CATP',N,'CATB',X,Y,Z,0,'ONLY')
134	*
135	* Positioning volume CATO into the mother CATB
136	*
137	N = 1
138	X = 0.
139	Y = -CATH(2)+CATO(2)
140	Z = 0.
141	CALL GSPOS('CATO',N,'CATB',X,Y,Z,0,'ONLY')
142	N = 2
143	X = X
144	Y = -Y
145	Z = 0.
146	CALL GSPOS('CATO',N,'CATB',X,Y,Z,0,'ONLY')
147	*
148	RETURN
149	END