gpamela/gpcas/gpcasv.F

*
* $Id$
*
* $Log$
*
*CMZ :  3.00/00 13/11/2000  09.08.20  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.02/00 07/03/97  21.47.47  by  Francesco Cafagna
*CMZ :  1.00/02 08/02/96  17.18.05  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   08/02/96
      SUBROUTINE GPCASV
************************************************************************
*                                                                      *
* Volumes definition for the side 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
*
      NMED=MAL
*
*  Define the CAS cradle volume
*
      CALL GSVOLU('CSSX','BOX ',NMED,CSSX, 3,IVOLU)
      CALL GSVOLU('CSSY','BOX ',NMED,CSSY, 3,IVOLU)
*EM:
* Define the CAS scintillator volume
*
      NMED=MSCIN
      CALL GSVOLU('CASX','BOX ',NMED,CASX,3,IVOLU)
      CALL GSVOLU('CASY','BOX ',NMED,CASY,3,IVOLU)
*
* Positioning Scintillators in cradles
*
      N = 1
      X = 0.
      Y = 0.
      Z = 0.
      CALL GSPOS('CASX',N,'CSSX',X,Y,Z,0,'ONLY')
      CALL GSPOS('CASY',N,'CSSY',X,Y,Z,0,'ONLY')
*END: EM.
*
      RETURN
      END
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*CMZ : 3.00/00 13/11/2000 09.08.20 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.02/00 07/03/97 21.47.47 by Francesco Cafagna
10	*CMZ : 1.00/02 08/02/96 17.18.05 by Francesco Cafagna
11	*-- Author : Francesco Cafagna 08/02/96
12	SUBROUTINE GPCASV
13	************************************************************************
14	* *
15	* Volumes definition for the side anticoincidence counters *
16	* Called by: GPGEO *
17	* *
18	* Author: Francesco Cafagna, 08/02/96 16.58.49 *
19	* *
20	************************************************************************
21	#include "gpgeo.inc"
22	#include "gpmed.inc"
23	*
24	INTEGER IROT,IVOLU,N,NMED,NUM
25	REAL X,Y,Z
26	*
27	NMED=MAL
28	*
29	* Define the CAS cradle volume
30	*
31	CALL GSVOLU('CSSX','BOX ',NMED,CSSX, 3,IVOLU)
32	CALL GSVOLU('CSSY','BOX ',NMED,CSSY, 3,IVOLU)
33	*EM:
34	* Define the CAS scintillator volume
35	*
36	NMED=MSCIN
37	CALL GSVOLU('CASX','BOX ',NMED,CASX,3,IVOLU)
38	CALL GSVOLU('CASY','BOX ',NMED,CASY,3,IVOLU)
39	*
40	* Positioning Scintillators in cradles
41	*
42	N = 1
43	X = 0.
44	Y = 0.
45	Z = 0.
46	CALL GSPOS('CASX',N,'CSSX',X,Y,Z,0,'ONLY')
47	CALL GSPOS('CASY',N,'CSSY',X,Y,Z,0,'ONLY')
48	*END: EM.
49	*
50	RETURN
51	END