*DECK     DMPTREE 
          SUBROUTINE DMPTREE( CTR, TREE , LTREE , TXT ) 
  
**        DMP TREE - PRINT DEPENDENCY TREE ( BDT/CIP )
  
          IMPLICIT INTEGER(A-Z) 
          INTEGER TREE(LTREE),TXT(1),CTR(5),SUBTTL(6) 
          COMMON/LINE/LINECM(2) 
          COMMON/MCG/XX(2),SEQTIME
          DATA SUBTTL(1) /
     .  58L     LST    TIME    SUCC  PRED  USES  N.PR  INST            /
  
          FIELD(X,P,L) = SHIFT(X,60-P).A. .N.MASK(60-L) 
          SUCCO(X) = FIELD(X,24,18) 
          SUCC(X) = FIELD(X,26,16)+1
          PRED(X) = FIELD(X,2,16)+1 
  
          USES(X) = FIELD(X,48,9) 
          LST(X) = FIELD(X,18,15) 
          NPRED(X) = FIELD(X,0,18)
  
          CTR(1) = CTR(1) + 1 
          LN = FIELD(TXT,30,18) 
          PRINT 5,CTR(1),LN 
 5        FORMAT(//*  CALL*I5* TO TREE DMP,LINE NUMBER = *I5) 
          CALL SETST( 6 , SUBTTL )
          LINECM = LINECM(2)
  
          SLAST = 0 
          DO 30 J = 1,LTREE 
          S = SUCC( TREE(J) ) 
          P = PRED( TREE(J) ) 
          IF( S .EQ. SLAST ) GO TO 20 
  
          SLAST = S 
          SO = SUCCO( TREE(J) ) 
          LW = TXT( SO + 4 )
          RK = LST(LW)
          PR = SEQTIME - RK 
          U = USES(LW)
          NP = NPRED(LW)
          PRINT 15,RK,PR,S,P,U,NP 
 15       FORMAT(3I8,3I6,2X)
          CALL PRNT RLI( TXT( SO + 1 ) )
          GO TO 30
  
 20       PRINT 25,P
 25       FORMAT(24X,I6/) 
  
 30       CONTINUE
  
          LINECM = 0
          RETURN
          END 
