restore,'GONG_MAG/sarah_gong_footpts_2.sav'
for j = 0,179 do begin
 for i = 1,359,2 do begin
   if map(i-1,j) ne 0. and map(i+1,j) ne 0. then map(i,j) = map(i+1,j)
 endfor
endfor