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