[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdtr11.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:28  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.27  by  S.Giani
*-- Author :
      SUBROUTINE GDTR11(J,IDIR,JNODE)
C.
C.    ******************************************************************
C.    *                                                                *
C.    *       Down a node on the tree                                  *
C.    *                                                                *
C.    *       J = node pointer (input/output)                          *
C.    *       IDIR = direction of search; IDIR=1 for down              *
C.    *              and IDIR=2 for right (input/output)               *
C.    *       JNODE = starting node of tree scanning (input)           *
C.    *                                                                *
C.    *    ==>Called by : GDTR10                                       *
C.    *       Author : P.Zanarini   *********                          *
C.    *                                                                *
C.    ******************************************************************
C.
#include "geant321/gcdraw.inc"
#include "geant321/gcbank.inc"
C.
C.    ------------------------------------------------------------------
C.
      JX=IQ(JXON1+J)
      IF (LEVVER.EQ.MAXV) JX=0
      IF (JX.EQ.0) THEN
         CALL GDTR12(J)
         IF (J.EQ.JNODE) THEN
            IDIR=0
         ELSE
            JB=IQ(JBRO1+J)
            IF (JB.EQ.0) THEN
               JM=IQ(JMOT1+J)
               LEVVER=LEVVER-1
               IF (JM.EQ.0) THEN
                  IDIR=0
               ELSE
                  J=JM
                  JJ=-J
                  CALL GDTR12(JJ)
                  IF (J.EQ.JNODE) THEN
                     IDIR=0
                  ELSE
                     IDIR=2
                  ENDIF
               ENDIF
            ELSE
               J=JB
               IDIR=1
            ENDIF
         ENDIF
      ELSE
         LEVVER=LEVVER+1
         MLEVV=MAX(MLEVV,LEVVER)
         J=JX
         IDIR=1
      ENDIF
      END
Commit	Line	Data
fe4da5cc	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 GDTR11(J,IDIR,JNODE)
	13	C.
	14	C. ******************************************************************
	15	C. * *
	16	C. * Down a node on the tree *
	17	C. * *
	18	C. * J = node pointer (input/output) *
	19	C. * IDIR = direction of search; IDIR=1 for down *
	20	C. * and IDIR=2 for right (input/output) *
	21	C. * JNODE = starting node of tree scanning (input) *
	22	C. * *
	23	C. * ==>Called by : GDTR10 *
	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	JX=IQ(JXON1+J)
	34	IF (LEVVER.EQ.MAXV) JX=0
	35	IF (JX.EQ.0) THEN
	36	CALL GDTR12(J)
	37	IF (J.EQ.JNODE) THEN
	38	IDIR=0
	39	ELSE
	40	JB=IQ(JBRO1+J)
	41	IF (JB.EQ.0) THEN
	42	JM=IQ(JMOT1+J)
	43	LEVVER=LEVVER-1
	44	IF (JM.EQ.0) THEN
	45	IDIR=0
	46	ELSE
	47	J=JM
	48	JJ=-J
	49	CALL GDTR12(JJ)
	50	IF (J.EQ.JNODE) THEN
	51	IDIR=0
	52	ELSE
	53	IDIR=2
	54	ENDIF
	55	ENDIF
	56	ELSE
	57	J=JB
	58	IDIR=1
	59	ENDIF
	60	ENDIF
	61	ELSE
	62	LEVVER=LEVVER+1
	63	MLEVV=MAX(MLEVV,LEVVER)
	64	J=JX
65	IDIR=1
66	ENDIF
67	END