FUNCTION SGN,X
;+
; FUNCTION SGN,X
; Computes the standard signum function for any list of values represented
; by the vector x.
;
; USAGE:
; x=FINDGEN(1001)/20-25 CREATE A VECTOR ON THE INTERVAL [-25,25]
; y=SGN((x-8)/5) Construct a function that is shifted and stretched
;
; HISTORY
; Written by Harvey Rhody, September 1997
;-

RETURN,0.0*X-(X LT 0)+(X GT 0)
END