]>
Commit | Line | Data |
---|---|---|
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) | |
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 |