FUNCTION CLIP,A,T
;+
;S=CLIP(A,T) returns S=A except small (absolute) values are zeroed.
;The values are clipped at the threshold T. The default for
;T is 1E-6. Hence, S=CLIP(A) zeros everything smaller than 1e-6.
;
;H. Rhody, July, 2000
;-

IF N_PARAMS() LT 2 THEN T=1e-6

RETURN,A*(ABS(A) GE T)
END