BLOCK DATA
    
      INTEGER     BITS (16) 
      INTEGER     BIT00,BIT01,BIT02,BIT03,BIT04,BIT05,BIT06,BIT07   
      INTEGER     BIT08,BIT09,BIT10,BIT11,BIT12,BIT13,BIT14,BIT15   
      INTEGER     BIT, BITNO
      COMMON      /BITDFN/ BITS 
      COMMON      /BITDFN/ BIT, BITNO   
      EQUIVALENCE (BITS(1),BIT00),(BITS(2),BIT01),(BITS(3),BIT02)   
      EQUIVALENCE (BITS(4),BIT03),(BITS(5),BIT04),(BITS(6),BIT05)   
      EQUIVALENCE (BITS(7),BIT06),(BITS(8),BIT07),(BITS(9),BIT08)   
      EQUIVALENCE (BITS(10),BIT09),(BITS(11),BIT10) 
      EQUIVALENCE (BITS(12),BIT11),(BITS(13),BIT12) 
      EQUIVALENCE (BITS(14),BIT13),(BITS(15),BIT14) 
      EQUIVALENCE (BITS(16),BIT15)  
      DATA        BIT00 /1/ 
      DATA        BIT01 /2/ 
      DATA        BIT02 /4/ 
      DATA        BIT03 /8/ 
      DATA        BIT04 /16/
      DATA        BIT05 /32/
      DATA        BIT06 /64/
      DATA        BIT07 /128/   
      DATA        BIT08 /256/   
      DATA        BIT09 /512/   
      DATA        BIT10 /1024/  
      DATA        BIT11 /2048/  
      DATA        BIT12 /4096/  
      DATA        BIT13 /8192/  
      DATA        BIT14 /16384/ 
      END