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 |