New TTask based method to do Digits To clusters. Works with files of multiple
[u/mrichter/AliRoot.git] / TGeant3 / galicef.F
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)
21 10000      FORMAT(' *** GXDRAW ***:',
22      +            ' No more space to store MCVOL information.')
23             CALL GMAIL(0,0)
24             WRITE(CHMAIL, 10100)
25 10100      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)
31 10200       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