home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / games / volume11 / adven2 / part01 / iors.f < prev    next >
Text File  |  1990-08-23  |  704b  |  26 lines
  1. c     this file is not needed for most modern Fortran compilers
  2. c     it is for the f2c system or as a TEMPLATE for code if your
  3. c     Fortran compiler lacks these functions
  4.       integer function ior(i,j)
  5.       implicit integer (a-z)
  6.       ior = i+j
  7. c        change the '+' above to '|' in the c code
  8. c        emitted by f2c
  9.       return
  10.       end
  11.       integer function iand(i,j)
  12.       implicit integer (a-z)
  13.       iand = i+j
  14. c        change the '+' above to '&' in the c code
  15. c        emitted by f2c
  16.       return
  17.       end
  18.       integer function ieor(i,j)
  19.       implicit integer (a-z)
  20.       ieor = i+j
  21. c        change the '+' above to '^' in the c code
  22. c        emitted by f2c
  23.       return
  24.       end
  25.  
  26.