c
      Subroutine UnpackEnLowBytes(lowbytes,eword)

c                               Author: K.Desler

      Implicit None

#include "partap.inc"
#include "ptcoen.inc"

      Integer LowBytes, eword(4)

      Integer Bit0To7
      Integer Bit8To31
      Integer Bit7

      Parameter (Bit0To7   ='000000FF'x)
      Parameter (Bit7 = '00000080'x)
      Parameter (Bit8To31 = 'FFFFFF00'x)

      Integer IOr, IAnd, IShft, i

 
      do i = 1, 4
          eword(i) = IShft(lowbytes, -8*(i-1))
          eword(i) = IAnd(eword(i), Bit0To7)
          if (IAnd(eword(i), Bit7) .ne. 0) then
              eword(i) = IOr(eword(i), Bit8To31)
          endif
      enddo

      return
      end