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	cafagna	3.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