🚀 go-pugleaf

kroeker@oc1.oc.chemie.th-darmstadt.de (Martin Kroeker) writes:
: Could somebody please point me to a fortran source code that provides the
: functionality of the non-standard functions IAND, IOR, IEOR and BTEST ?
: I am trying to port a database application from a soon-to-be-junked IBM
: mainframe to a workstation where the fortran compiler is in fact f2c, and my
: own attempts at these bit-handling functions have failed miserably.
: Thanks in advance,
: Martin

Here's some...

      INTEGER*2 FUNCTION IAND(I1,I2)
C BITWISE LOGICAL FUNCTIONS - MAY HAVE TO BE CHANGED
C  ACCORDING TO A GIVEN SYSTEM'S IMPLEMENTATION
      INTEGER*2 I1,I2
      IAND = I1.AND.I2
      RETURN
      END

      INTEGER*2 FUNCTION IXOR(I1,I2)
      INTEGER*2 I1,I2
      IXOR = I1.XOR.I2
      RETURN
      END

      INTEGER*2 FUNCTION IOR(I1,I2)
      INTEGER*2 I1,I2
      IOR = I1.OR.I2
      RETURN
      END

      INTEGER*2 FUNCTION INOT(I1)
      INTEGER*2 I1
      INOT = .NOT.I1
      RETURN
      END

-- 
------------------------------------------------------------------------------
| Mark Stucky                         | Email:                               |
| United Technologies Research Center |     mark@ardnt1.res.utc.com          |
| East Hartford, CT.                  |or   mbs@utrcgw.res.utc.com           |