C     .TITLE MOD
C
C   4 AUG 74 - J.A. SMITH
C
      FUNCTION MOD (I,J)
      MOD = I - (I/J)*J
      RETURN
      END