Possibility to have different binaries in the same tree introduced

[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / divon / tredmp.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:03:24  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      SUBROUTINE TREDMP(NDIM)
      COMMON /ISTRGE/ MXRGNS,TREE(4,1),DUMMY1(11996)
      COMMON /RSTRGE/ RSTSZE,PARTN(18001)
      INTEGER RSTSZE
      INTEGER TREE
      REAL PARTN
      COMMON /TRESZE/ ENTREE,ENTBUC
      INTEGER ENTREE,ENTBUC
      COMMON /LIMITS/ GMINUS(10),GPLUS(10)
      COMMON /BUKSZE/ MAXWRD
      INTEGER MAXWRD
      REAL UMINUS(10),UPLUS(10)
      INTEGER PARENT
      WRITE(6,10) ENTREE
 10   FORMAT('1TREE HAS ',I5,' NONTERMINAL NODES')
      DO 30 I=1,ENTREE
      WRITE(6,20) I,(TREE(J,I),J=1,4),PARTN(I)
 20   FORMAT(' NONTERMINAL NODE(',I5,') = ',4I5,G13.5)
 30   CONTINUE
      RETURN
#if defined(CERNLIB_DOUBLE)||!defined(CERNLIB_F4)
      ENTRY BUKDMP(NDIM)
#endif
#if (defined(CERNLIB_SINGLE))&&(defined(CERNLIB_F4))
      ENTRY BUKDMP
#endif
      WRITE(6,40) ENTBUC
 40   FORMAT('1PARTITIONING HAS ',I5,' TOTAL REGIONS')
      K=MXRGNS
      DO 100 I=1,ENTBUC
      WRITE(6,50) I
 50   FORMAT(' REGION',I6)
      PARENT=1
      DO 60 J=1,NDIM
      UMINUS(J)=GMINUS(J)
      UPLUS(J)=GPLUS(J)
 60   CONTINUE
      CALL BOUNDS(I,PARENT,TREE,PARTN,UMINUS,UPLUS)
      DO 80 J=1,NDIM
      WRITE(6,70) UMINUS(J),J,UPLUS(J)
 70   FORMAT(1X,G13.5,' .LT. X(',I2,') .LE. ',G13.5)
 80   CONTINUE
      WRITE(6,90) (PARTN(K+J),J=1,MAXWRD)
 90   FORMAT(' REGION INFORMATION = ',8G13.5/1X,9G13.5/1X,
     1 9G13.5/1X,9G13.5)
      K=K+MAXWRD
 100  CONTINUE
      RETURN
      END