5 * Revision 1.1.1.1 1995/10/24 10:20:29 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.27 by S.Giani
12 SUBROUTINE GDTR6(JMAX)
14 C. ******************************************************************
16 C. * Build all optimized tree *
18 C. * JMAX = total number of nodes (output) *
20 C. * ==>Called by : GDTR0 *
21 C. * Author : P.Zanarini ********* *
23 C. ******************************************************************
25 #include "geant321/gcdraw.inc"
26 #include "geant321/gcbank.inc"
28 C. ------------------------------------------------------------------
35 IF (IQ(JDUP+J).EQ.0) THEN
40 20 IF (JB.EQ.0) GO TO 30
52 IQ(JNAM1+1)=IQ(JNAM+1)
56 IF (IQ(JSCA+J).NE.0) CALL GDTR5(J)