function de_stripe, image

;Frank Varosi STX @ NASA/GSFC 1995

	sim = size( image )

	if (sim(0) NE 2) then begin
		message,"need an image (2-D matrix)",/INFO
		return, image
	   endif

	for i=4,sim(1)-1,4 do $
		image(*,i) = veclinterp( image(*,i-1), image(*,i+1), 0.5, 0,1 )

return, image
end