function equiv,a,b

;	Returns scalar 1 if input variables of any but the same type
;	are equal and scalar 0 if not.

c = where((a ne b),count)
c=(count eq 0)
	return,c
	end