GEANT321/gdraw/gdtr10.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:28  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 GDTR10(JNODE)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Plot tree structure from JNODE                           *
  17 C.    *                                                                *
  18 C.    *       JNODE = starting node of tree scanning (input)           *
  19 C.    *                                                                *
  20 C.    *    ==>Called by : GDTREE                                       *
  21 C.    *       Author : P.Zanarini   *********                          *
  22 C.    *                                                                *
  23 C.    ******************************************************************
  24 C.
  25 #include "geant321/gcdraw.inc"
  26 #include "geant321/gcbank.inc"
  27 C.
  28 C.    ------------------------------------------------------------------
  29 C.
  30       J=JNODE
  31       IDIR=1
  32    10 CONTINUE
  33       IF (IDIR.EQ.1) THEN
  34          CALL GDTR11(J,IDIR,JNODE)
  35          GO TO 10
  36       ELSE IF (IDIR.EQ.2) THEN
  37    20    JB=IQ(JBRO1+J)
  38          IF (JB.EQ.0) THEN
  39             J=IQ(JMOT1+J)
  40             IF (J.EQ.0) GO TO 999
  41             LEVVER=LEVVER-1
  42             JJ=-J
  43             CALL GDTR12(JJ)
  44             IF (J.EQ.JNODE) GO TO 999
  45             GO TO 20
  46          ELSE
  47             J=JB
  48             CALL GDTR11(J,IDIR,JNODE)
  49             GO TO 10
  50          ENDIF
  51       ELSE
  52          GO TO 999
  53       ENDIF
  54   999 RETURN
  55       END