C This file: http://ftp.aset.psu.edu/pub/ger/fortran/hdk/ieor.for
C
      FUNCTION IEOR(I1,I2)
      REAL E
      INTEGER IE
      EQUIVALENCE (E,IE)
      E=EOR(I1,I2)
      IEOR=IE
      RETURN
      END