*DECK     PRNTBV
          SUBROUTINE PRNTBV( BVT , INDX , NV )
  
**        PRNTBV - PRINT BIT VECTORS / LIVE EXIT VECTORS
  
          IMPLICIT INTEGER(A-Z) 
          INTEGER BVT(1),INDX(1) , B(3) , VECTBL(3) 
          COMMON/BVINFO/ VL, NVAR /LINE/LINECM(2) 
          DATA VECTBL / 5H DEF  , 5H UBD  , 5H USE   /
  
          LINENR(X) = SHIFT(X,-18).A.77777B 
          SETX(X) = X.A.377777B 
 1        FORMAT(/) 
 2        FORMAT(/*  -- BIT VECTORS --*)
 3        FORMAT(1X/) 
          PRINT 2 
          K = 1 
          MODE = 0
          WI = INDX + 1 
  
 5        LINECM = LINECM(2)
  
*         LOOP FOR VECTOR 
          DO 50 KK = 1,NV 
          BLINE = 0 
          VN = 2-60 
  
          DO 40 J = 1,VL
          VN = VN + 60
          BW = BVT(WI)
          IF( BW .NE. 0 ) GO TO 15
          IF( (MASK(1).A.BW) .EQ. 0 ) GO TO 40
  
 15       VM = MIN0( NVAR-1 , VN+59 ) 
          IF( BLINE .NE. 0 ) GO TO 16 
          PRINT 3 
          BLINE = 1 
 16       IF( K .EQ. 0 ) GO TO 20 
          PRINT 21,VECTBL(K)
 21       FORMAT(A5)
          GO TO 24
 20       I = LINENR( INDX(2*KK+1) )
          PRINT 23,I
 23       FORMAT(I5)
  
 24       DO 25 I = VN,VM,3 
 25       PRINT 26,I
 26       FORMAT(I4)
  
          PRINT 4 
 4        FORMAT(/7X) 
          KG = VM+1 - VN
  
          DO 30 I = 1,KG,3
          SC = 1 - I
          B(1) = SHIFT(BW,SC).A.1 
          B(2) = SHIFT(BW,SC-1).A.1 
          B(3) = SHIFT(BW,SC-2).A.1 
 30       PRINT 22,B
 22       FORMAT(1X,3O1)
          PRINT 1 
  
 40       WI = WI + 1 
          IF( MODE .NE. 0 ) GO TO 45
          K = K + 1 
          GO TO 50
 45       WI = SETX( INDX(2*KK+3) ) + MODE
 50       CONTINUE
  
          LINECM = 0
          IF( MODE .NE. 0 ) CALL SETST( 0 ) 
          RETURN
  
*         PRNTLX - PRINT PROGRAM LIVE EXIT BIT VECTORS
  
          ENTRY  PRNTLX 
          CALL SETST( 3 , 28L LINE   LIVE EXIT VECTORS            ) 
          K = 0 
          MODE = 3*VL + 1 
          WI = SETX( INDX(3) ) + MODE 
          GO TO 5 
  
          END 
