*DECK     PRNTABV 
          SUBROUTINE PRNTABV( NAME , BVT )
          IMPLICIT INTEGER(A-Z) 
  
**        PRNTABV - PRINT A BIT VECTOR
*                NAME = 5L NAM  , OR A RIGHT ADJUSTED BINARY NUMBER 
*                BVT - FWA OF BIT VECTOR
  
          COMMON/BVINFO/ VL, NVAR /LINE/LINECM(2) 
          INTEGER BVT(1),B(3) 
 1        FORMAT(/) 
  
          LINECM = LINECM(2)
          VN = 2-60 
  
          DO 40 J = 1,VL
          VN = VN + 60
          IF( SHIFT(NAME,-54) .EQ. 0 ) GO TO 5
          PRINT 2,NAME
 2        FORMAT(A5)
          GO TO 15
 5        PRINT 3,NAME
 3        FORMAT(I4,1X) 
  
 15       VM = MIN0( NVAR+1 , VN+59 ) 
          DO 25 I = VN,VM,3 
 25       PRINT 26,I
 26       FORMAT(I4)
          PRINT 4 
 4        FORMAT(/7X) 
  
          KG = ( (VM-VN)/3 + 1 ) *3 
          BW = BVT(J) 
  
          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       CONTINUE
  
          LINECM = 0
          RETURN
  
          END 
