JIMMY first commit.

[u/mrichter/AliRoot.git] / HERWIG / jimmy / divon4 / tredmp.F

*CMZ :          23/08/93  13.30.10  by  Jonathan Butterworth
*-- Author :
      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
      ENTRY BUKDMP(NDIM)
      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