pro disp_synop, cr_num, time=time, indir=indir, $
  type=type, sse=sse, ssc=ssc, ssw=ssw, allsxt=allsxt, $
  kphel=kphel, kpmag=kpmag, gbosxt=gbosxt, $
  version=version, xwin=xwin, index_out=index_out, $
  qstop=qstop, zbuffer=zbuffer


if n_elements(type) eq 0 then type = 1

if keyword_set(sse) then type = 0
if keyword_set(ssc) then type = 1
if keyword_set(ssw) then type = 2
if keyword_set(allsxt) then type = 3
if keyword_set(kphel) then type = 4
if keyword_set(kpmag) then type = 5
if keyword_set(gbosxt) then type = 6

if keyword_set(time) then cr_num = fix(tim2carr(cr_num,/dc))

if n_elements(cr_num) eq 0 then $
  cr_num = fix(get_carr(!stime)) - 1
start_tim = carr2ex(cr_num)
end_tim = carr2ex(cr_num+1)
time_string = '    ' + strtrim(strmid(fmt_tim(start_tim),0,9),2) + $
          ' to ' + strtrim(strmid(fmt_tim(end_tim),0,9),2) + '    '

case type of    
  0: begin
       prefix = 'sse_cr'
       version = 2
       title_arr = 'SXT Synoptic Map - Carr Rot ' + $
     strtrim(cr_num,2) + time_string + '- Lon -45'
     end
  1: begin
       prefix = 'ssc_cr'
       version = 2
       title_arr = 'SXT Synoptic Map - Carr Rot ' + $
     strtrim(cr_num,2) + time_string + '- Lon 0'
     end
  2: begin
       prefix = 'ssw_cr'
       version = 2
       title_arr = 'SXT Synoptic Map - Carr Rot ' + $
     strtrim(cr_num,2) + time_string + '- Lon +45'
     end
  3: begin
       prefix = ['sse_cr','ssc_cr','ssw_cr']
       version = [2,2,2]
       title_arr = ['SXT Synoptic Map - Carr Rot ' + $
             strtrim(cr_num,2) + time_string + '- Lon -45', $
            'SXT Synoptic Map - Carr Rot ' + $
             strtrim(cr_num,2) + time_string + '- Lon 0', $
            'SXT Synoptic Map - Carr Rot ' + $
             strtrim(cr_num,2) + time_string + '- Lon +45']
     end
  4: begin
       prefix = 'gki_cr'
       version = 1
       title_arr = 'Kitt Peak Helium 10830 - Carr Rot ' + $
     strtrim(cr_num,2)
     end
  5: begin
       prefix = 'gkm_cr'
       version = 1
       title_arr = 'Kitt Peak Magnetogram - Carr Rot ' + $
     strtrim(cr_num,2)
     end
  6: begin
       prefix = ['ssc_cr','gki_cr','gkm_cr']
       version = [2,1,1]
       title_arr = ['SXT Synoptic Map - Carr Rot ' + $
             strtrim(cr_num,2) + time_string, $
            'Kitt Peak Helium 10830 - Carr Rot ' + $
             strtrim(cr_num,2) + time_string, $
            'Kitt Peak Magnetogram - Carr Rot ' + $
             strtrim(cr_num,2) + time_string]
     end
  else: begin
      prefix = 'ssc_cr'
      title_arr = 'SXT Synoptic Map - Carr Rot ' + $
      strtrim(cr_num,2) + ' - Lon 0'
    end
endcase

;if n_elements(indir) eq 0 then indir = '/yd3/slater/synoptic'
if n_elements(indir) eq 0 then indir = '$DIR_GEN_SYNOPTIC'
if n_elements(version) eq 0 then version = 2
if n_elements(xwin) eq 0 then xwin = 768

infil = indir + '/' + prefix + string(cr_num,format='(i4.2)') + $
        'a.0' + strtrim(version,2)
ss_exist = where(file_exist(infil))
if (ss_exist(0) eq -1) then begin
  print,' No files for selected range.', $
    fmt_tim(start_tim), fmt_tim(end_tim)
  return
endif
infil = infil(ss_exist)

if type le 3 then begin
  rd_xda,infil,-1,index,data
  xsiz_in = n_elements(data(*,0))
  ysiz_in = n_elements(data(0,*))
endif
if (type eq 4) or (type eq 5) then begin
  data = rfits(infil(0),header=h)
  xsiz_in = n_elements(data(*,0))
  ysiz_in = n_elements(data(0,*))
endif
if (type eq 6) then begin
  rd_xda,infil(0),0,index,data
  xsiz_in = n_elements(data(*,0))
  ysiz_in = n_elements(data(0,*))
  buff = rfits(infil(1),header=hbuff)
  data = $
    [[[data]],[[congrid(buff,xsiz_in,ysiz_in,interp=interp)]]]
  h = hbuff
  buff = rfits(infil(2),header=hbuff)
  data = $
    [[[data]],[[congrid(buff,xsiz_in,ysiz_in,interp=interp)]]]
  h = [h,hbuff]
endif

;mtv,data,xwin=xwin,xb=[.2,.05,.05,.05],yb=.2, $
;  xtitle_arr='Carrington Longitude', $
;  ytitle_arr=['Latitude','',''], $
;  xr=[0,360], $
;  xtic=8,ytic=6, $
;  title_arr=title_arr

mtv,data,xwin=xwin, xnum=1, $
  xtitle_arr='Carrington Longitude', $
  ytitle_arr='Latitude', $
  xr=[0,360], $
  xtic=8,ytic=6, $
  title_arr=title_arr, zbuffer=zbuffer

if keyword_set(qstop) then stop

end