GEANT321/gxint/goptim.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:21:48  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.33  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GOPTIM(IOPT)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *    Changes the geometry optimization level.                    *
  17 C.    *    Reprocess the geometry initialization phase.                *
  18 C.    *                                                                *
  19 C.    *    Called by : <GXINT>                                         *
  20 C.    *    Authors   : R.Brun  *********                               *
  21 C.    *                                                                *
  22 C.    ******************************************************************
  23 C.
  24 #include "geant321/gcbank.inc"
  25 #include "geant321/gcnum.inc"
  26 #include "geant321/gcopti.inc"
  27 C.    ------------------------------------------------------------------
  28 *
  29       IOPTIM=IOPT
  30       IF(JVOLUM.LE.0)GO TO 999
  31       JN=LQ(JVOLUM)
  32       IF(JN.GT.0)CALL MZDROP(IXCONS,JN,' ')
  33       DO 20 IVO = 1,NVOLUM
  34          JVO = LQ(JVOLUM-IVO)
  35          IQ(JVO) = IBCLR(IQ(JVO),0)
  36          NIN   = Q(JVO+3)
  37          IF(NIN.GT.0) THEN
  38             ISEARC = Q(JVO+1)
  39             IF(ISEARC.LT.0) THEN
  40                Q(JVO+1)=-Q(LQ(LQ(JVO-NIN-1))+1)
  41             ENDIF
  42             NINL = IQ(JVO-2)
  43             DO 10 I = NIN+1,NINL
  44                JN=LQ(JVO-I)
  45                IF(JN.GT.0)CALL MZDROP(IXCONS,JN,' ')
  46    10       CONTINUE
  47          ENDIF
  48    20 CONTINUE
  49 *
  50       CALL GGCLOS
  51   999 END