FUNCTION Odd, arg

; Returns 1 if the argument is an odd integer,
;         0 if it is an even integer, and
;        -1 if it is not an integer.
;
; Written by DPSteele, January 28, 1997.

s=Size(arg)
typ=s(s(0)+1)

IF (typ LT 1) OR (3 LT typ) $
    THEN Return,-1 $
    ELSE Return,Byte(Abs(arg-2L*(arg/2L)))

END