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