New geometry files from R.Barbera
[u/mrichter/AliRoot.git] / TGeant3 / galicef.F
CommitLineData
fe4da5cc 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)
4*
5* define the clip box parameters for volume name
6*
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"
13*KEND.
14 character *(*) name
15 real xmin,xmax,ymin,ymax,zmin,zmax
16*
17 IHOLE=0
18 NCVOLS=NCVOLS+1
19 IF(NCVOLS.EQ.MULTRA)THEN
20 WRITE(CHMAIL, 10000)
2110000 FORMAT(' *** GXDRAW ***:',
22 + ' No more space to store MCVOL information.')
23 CALL GMAIL(0,0)
24 WRITE(CHMAIL, 10100)
2510100 FORMAT(' *** GXDRAW ***: Please reset MCVOL')
26 CALL GMAIL(0,0)
27 return
28 ENDIF
29 IF(XMIN.GE.XMAX.OR.YMIN.GE.YMAX.OR.ZMIN.GE.ZMAX)THEN
30 WRITE(CHMAIL,10200)
3110200 FORMAT(' Wrong Box limits. Check values ')
32 CALL GMAIL(0,0)
33 return
34 ENDIF
35****SG
36 GNNVV(NCVOLS)=NAME
37 GNASH(NCVOLS)='BOX'
38 GXMIN(NCVOLS)=XMIN
39 GXMAX(NCVOLS)=XMAX
40 GYMIN(NCVOLS)=YMIN
41 GYMAX(NCVOLS)=YMAX
42 GZMIN(NCVOLS)=ZMIN
43 GZMAX(NCVOLS)=ZMAX
44 IF(GXMIN(NCVOLS).GT.-99999.)IHOLE=1
45* Resetting Mcvol mode
46 IF(GNNVV(NCVOLS).EQ.'.')THEN
47 IHOLE=0
48 DO 10 JJ=1,NCVOLS
49 GNNVV(JJ)=' '
50 GXMIN(JJ)=-100000
51 GXMAX(JJ)=-99999
52 GYMIN(JJ)=-100000
53 GYMAX(JJ)=-99999
54 GZMIN(JJ)=-100000
55 GZMAX(JJ)=-99999
56 10 CONTINUE
57 NCVOLS=0
58 ENDIF
59 end
60
61 subroutine setbomb(boom)
62*
63* set the bomb factor
64*
65#undef CERNLIB_GEANT321_GCMUTR_INC
66#include "geant321/gcmutr.inc"
67*KEND.
68*
69 real boom
70*
71 gboom = boom
72 end