FUNCTION MOD(I,J)

	IF(J .EQ. 0) THEN
		MOD = 0
	ELSE
		MOD = IREM(I/J)
	ENDIF

	RETURN
	END