GEANT321/gdraw/gdtr12.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 GDTR12(JJ)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Plot a node of the tree                                  *
  17 C.    *                                                                *
  18 C.    *       JJ = node pointer; negative when tree is being           *
  19 C.    *            scanned from bottom to up; positive when            *
  20 C.    *            it is scanned top to bottom or left to right        *
  21 C.    *            (input)                                             *
  22 C.    *                                                                *
  23 C.    *    ==>Called by : GDTR10, GDTR11                               *
  24 C.    *       Author : P.Zanarini   *********                          *
  25 C.    *                                                                *
  26 C.    ******************************************************************
  27 C.
  28 #include "geant321/gcdraw.inc"
  29 #include "geant321/gcbank.inc"
  30 C.
  31 C.    ------------------------------------------------------------------
  32 C.
  33       J=IABS(JJ)
  34       IQ(JSCA1+J)=1
  35       IF (LEVVER.EQ.MAXV.AND.IQ(JXON1+J).NE.0) IQ(JSCA1+J)=-1
  36       IF (JJ.GT.0) THEN
  37          LEVHOR=LEVHOR+1
  38          Q(JULEV+J)=LEVHOR
  39       ELSE
  40          JX=IQ(JXON1+J)
  41          UL=Q(JULEV+JX)
  42    10    JB=JX
  43          JX=IQ(JBRO1+JB)
  44          IF (JX.NE.0) GO TO 10
  45          UR=Q(JULEV+JB)
  46          Q(JULEV+J)=(UL+UR)/2.
  47       ENDIF
  48       Q(JVLEV+J)=LEVVER
  49       END