4286       INTEGER           :: CBLKNBR, N  component
4732       ord%CBLKNBR = 2*ord%NSLAVES-1
4757       CALL MUMPS_733(ord%TREETAB, ord%CBLKNBR, id%INFO,
4760      &     SIZES, ord%CBLKNBR)
4766       CALL MUMPS_733(ord%SON, ord%CBLKNBR, id%INFO,
4768       CALL MUMPS_733(ord%BROTHER, ord%CBLKNBR, id%INFO,
4770       CALL MUMPS_733(ord%NW, ord%CBLKNBR, id%INFO,
4912      &           ord%PERMTAB, ord%PERITAB, ord%CBLKNBR, ord%RANGTAB,
4940       CALL  MPI_BCAST (ord%CBLKNBR, 1,      MPI_INTEGER,
4950       CALL MUMPS_733(ord%SON, ord%CBLKNBR, id%INFO,
4952       CALL MUMPS_733(ord%BROTHER, ord%CBLKNBR, id%INFO,
4954       CALL MUMPS_733(ord%NW, ord%CBLKNBR, id%INFO,
5083       ALIST(1)    = ord%CBLKNBR
5084       AWEIGHTS(1) = ord%NW(ord%CBLKNBR)
5101       IF((ord%CBLKNBR .EQ. 1) .OR.
5102      &     ( RPROC .LT. CMUMPS_779(ord%CBLKNBR, ord) )) THEN
5104          ord%TOPNODES(2) = ord%RANGTAB(ord%CBLKNBR+1) - ord%RANGTAB(1)
5106          ord%TOPNODES(4) = ord%RANGTAB(ord%CBLKNBR+1)-1
5713       SUBROUTINE CMUMPS_778(TREETAB, RANGTAB, SIZES, CBLKNBR)  argument
5715       INTEGER           :: CBLKNBR  local
5718       ALLOCATE(PERM(CBLKNBR))
5719       TREETAB(CBLKNBR) = -1
5720       IF(CBLKNBR .EQ. 1) THEN
5726       LCHILD = CBLKNBR - (CBLKNBR+1)/2
5727       RCHILD = CBLKNBR-1
5729       PERM(CBLKNBR) = CBLKNBR
5730       PERM(LCHILD) = CBLKNBR+1 - (2*K+1)
5731       PERM(RCHILD) = CBLKNBR+1 - (2*K)
5732       TREETAB(RCHILD) = CBLKNBR
5733       TREETAB(LCHILD) = CBLKNBR
5734       IF(CBLKNBR .GT. 3) THEN
5735          CALL REC_TREETAB(TREETAB, PERM, (CBLKNBR-1)/2,
5736      &        LCHILD, CBLKNBR, 2*K+1)
5737          CALL REC_TREETAB(TREETAB, PERM, (CBLKNBR-1)/2,
5738      &        RCHILD, CBLKNBR, 2*K)
5741       DO I=1, CBLKNBR
5748      &     ROOTN, CBLKNBR, K)
5750       INTEGER           :: SUBNODES, ROOTN, K, CBLKNBR  local
5754       PERM(LCHILD) = CBLKNBR+1 - (2*K+1)
5755       PERM(RCHILD) = CBLKNBR+1 - (2*K)
5760      &        CBLKNBR, 2*K+1)
5762      &        CBLKNBR, 2*K)
6389       DO I=1, ord%CBLKNBR