function sinc,x

;	SIN(X)/X function

sz=size(x)

x_type=sz(n_elements(sz)-2)

if (x_type eq 5) or (x_type eq 6) then y_type=x_type $
	else y_type=4


	IF sz(0) eq 0 THEN BEGIN
if x ne 0 then y=sin(x)/x else y=1.+x
goto, exit
	ENDIF

i1=where(x ne 0)
y=make_array(size=sz,val=1.,type=y_type)

	IF (size(i1))(0) eq 0 THEN BEGIN
if i1 lt 0 then goto,exit
	ENDIF

y(i1)=sin(x(i1))/x(i1)

exit:
return,y
end