home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD2.img / d4xx / d499 / diglib / diglib.lzh / source / IAND.for < prev    next >
Text File  |  1991-05-01  |  112b  |  7 lines
  1.         INTEGER*1 FUNCTION IAND(I,J)
  2.         IMPLICIT NONE
  3.         INTEGER*1 I,J
  4.     IAND = I .AND. J
  5.     RETURN
  6.     END
  7.