C***   BITS
      INTEGER*4 FUNCTION BITS(SHIFT)
      INTEGER SHIFT
      BITS=000002**SHIFT
      RETURN
      END