function sigfigarr,inarr,figs

sz=size(inarr)
dim=n_elements(sz)-3

if (dim eq 0) then begin
	output=sigfig(inarr,figs)
	if total(output eq '10000') ne 0 then $
		output(where(output eq '10000'))='-----'
	return,output
endif

if (dim eq 1) then begin
	output=strarr(sz(1))
	for i=0,sz(1)-1 do begin
		output(i)=sigfig(inarr(i),figs)
	endfor
	if total(output eq '10000') ne 0 then $
		output(where(output eq '10000'))='-----'
	return,output
endif

if (dim eq 2) then begin
	output=strarr(sz(1),sz(2))
	for i=0,sz(1)-1 do begin
		for j=0,sz(2)-1 do begin
			output(i,j)=sigfig(inarr(i,j),figs)
		endfor	
	endfor
	if total(output eq '10000') ne 0 then $
		output(where(output eq '10000'))='-----'
	return,output
endif

return,0
end