GEANT321/gdraw/gdtr99.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:29  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.27  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GDTR99(IVTREE)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Delete the tree structure build by GDTR0                 *
  17 C.    *       on the view bank IVTREE                                  *
  18 C.    *                                                                *
  19 C.    *       IVTREE= view bank used to store tree structure (input)   *
  20 C.    *                                                                *
  21 C.    *    ==>Called by : GDFSPC, GDTREE                               *
  22 C.    *       Author : P.Zanarini   *********                          *
  23 C.    *                                                                *
  24 C.    ******************************************************************
  25 C.
  26 #include "geant321/gcbank.inc"
  27 #include "geant321/gcdraw.inc"
  28 C.
  29 C.    ------------------------------------------------------------------
  30 C.
  31       IF (NKVIEW.EQ.IVTREE) THEN
  32          Q(JDRAW+IVTREE)=1.
  33          CALL MZDROP(IXCONS,LQ(JDRAW-IVTREE),' ')
  34          NKVIEW=IVTREE-1
  35       ELSE
  36          Q(JDRAW+IVTREE)=1.
  37          CALL GDELET(IVTREE)
  38       ENDIF
  39       END