pro synop_gif_loop, carrot1, carrot2

if (n_elements(carrot1) eq 0) then begin
	print,"must specify a carrington rotation"
	return
	end
if (n_elements(carrot2) eq 0) then carrot2 = carrot1

for i = carrot1, carrot2 do begin
    istr = strtrim(string(i),1)
    print, 'Carrington Rotation = ', istr
    mdir = '/synoptic/carrot/M/' + istr
;    idir = '/synop/Ic/' + istr
mmr = mdir + '/synop_Mr_'
mml = mdir + '/synop_Ml_'
mE = 'E.' + istr + '.fits'
mW = 'W.' + istr + '.fits'
m0 = '.' + istr + '.fits'

m00 = '0'
m15 = '15'
m30 = '30'
m45 = '45'
m60 = '60'

;    i3 = idir + '/synop_Ic_N=3.' + istr + '.fits'
;    i5 = idir + '/synop_Ic_N=5.' + istr + '.fits'
mmm = mmr + m00 + m0
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Central Meridian - Radial Component'
mmm = mml + m00 + m0
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Central Meridian - Line-of-Sight'

mmm = mmr + m15 + mE
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 15E - Radial Component'
mmm = mml + m15 + mE
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 15E - Line-of-Sight'
mmm = mmr + m15 + mW
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 15W - Radial Component'
mmm = mml + m15 + mW
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 15W - Line-of-Sight'

mmm = mmr + m30 + mE
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 30E - Radial Component'
mmm = mml + m30 + mE
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 30E - Line-of-Sight'
mmm = mmr + m30 + mW
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 30W - Radial Component'
mmm = mml + m30 + mW
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 30W - Line-of-Sight'

mmm = mmr + m45 + mE
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 45E - Radial Component'
mmm = mml + m45 + mE
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 45E - Line-of-Sight'
mmm = mmr + m45 + mW
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 45W - Radial Component'
mmm = mml + m45 + mW
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 45W - Line-of-Sight'

mmm = mmr + m60 + mE
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 60E - Radial Component'
mmm = mml + m60 + mE
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 60E - Line-of-Sight'
mmm = mmr + m60 + mW
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 60W - Radial Component'
mmm = mml + m60 + mW
    print, mmm
    plot_synop, in=mmm, /gif, /next, /carrot, title2='Data from 60W - Line-of-Sight'

;    plot_mdi_synop, in=mmm, /gif, /next, /carrot

;    print, i3
;    plot_mdi_synop, in=i3, /gif, /next, /carrot
;    print, i5
;    plot_mdi_synop, in=i5, /gif, /next, /carrot
end

end