; small.pro,  started 8-28-98 by ERW
;
;


function small,image,z=z
; 'image'  gets halved in size

s = size(image)
if (s(0) eq 2) then begin
	; 2-D array
	result=rebin(image,s(1)/2,s(2)/2)
endif else begin
	; 3-D array
	if (keyword_set(z)) then begin
		; HELP!
		result=rebin(image,s(1),s(2),s(3)/3)
	endif else begin
		result=rebin(image,s(1)/2,s(2)/2,s(3))
	endelse
endelse

return, result
end