read_gif,'res1.gif',image,reddeb1,greendeb1,bluedeb1
res1image=congrid(image,1440,480)

read_gif,'res7.gif',image,reddeb7,greendeb7,bluedeb7
res7image=congrid(image,1440,480)

res1_2068=fltarr(1440,720)
res7_2068=fltarr(1440,720)

for i = 120,599 do begin
 res1_2068(*,i)=res1image(*,i-120)
 res7_2068(*,i)=res7image(*,i-120)
endfor

save,filename='subsurf_2068.sav',res1_2068,res7_2068,reddeb1,greendeb1,bluedeb1,reddeb7,greendeb7,bluedeb7

end