FUNCTION INTERSECTION,A,B
;+
;C=INTERSECTION(A,B) is the intersection of the sets A and B. It is assumed
;that A and B have some form of integer values. That is, they
;come from the set of non-negative integers.
;-

mx=MAX([A,B])
T1=INTARR(mx+1)
T2=T1
T1[A]=1
T2[B]=1
T=T1 AND T2
S=WHERE(T EQ 1)
RETURN,S
END