--- /dev/null
+*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