1 *CMZ : 30/12/98 16.23.44 by Rene Brun
2 *-- Author : Rene Brun 30/12/98
3 subroutine setclip(name,xmin,xmax,ymin,ymax,zmin,zmax)
5 * define the clip box parameters for volume name
7 #undef CERNLIB_GEANT321_GCUNIT_INC
8 #include "geant321/gcunit.inc"
9 #undef CERNLIB_GEANT321_GCMUTR_INC
10 #include "geant321/gcmutr.inc"
11 #undef CERNLIB_GEANT321_GCGOBJ_INC
12 #include "geant321/gcgobj.inc"
15 real xmin,xmax,ymin,ymax,zmin,zmax
19 IF(NCVOLS.EQ.MULTRA)THEN
21 10000 FORMAT(' *** GXDRAW ***:',
22 + ' No more space to store MCVOL information.')
25 10100 FORMAT(' *** GXDRAW ***: Please reset MCVOL')
29 IF(XMIN.GE.XMAX.OR.YMIN.GE.YMAX.OR.ZMIN.GE.ZMAX)THEN
31 10200 FORMAT(' Wrong Box limits. Check values ')
44 IF(GXMIN(NCVOLS).GT.-99999.)IHOLE=1
45 * Resetting Mcvol mode
46 IF(GNNVV(NCVOLS).EQ.'.')THEN
61 subroutine setbomb(boom)
65 #undef CERNLIB_GEANT321_GCMUTR_INC
66 #include "geant321/gcmutr.inc"