;The procedure tableplot_wc.pro plots the sliding window averaged calibrations
;to a PostScript file. It is used by tablemain_wc.pro.
;Use is as follows:
;   tableplot_wc,full,yrsl,nums,corq,$
;             mandbfits,mandbavg,xrng,yrngm,yrngb,refdates
;
;Where all parameters are inputs except count which initially is an input
;but is transferred back and forth with tablemain.pro until counttot is
;reached.
;
;BWBerger 1/99
;
;Modified by weiguo wang 11/3/99 for wcreek
;Modified by BWB 2/23/00 
; to use /data/davis/cheas/wcreek/data/cal/plots/averaged
; instead of /data/davis2/wcreek/data/cal/plots/averaged
; Modeified by W wang 9/8/00 use /davis/s1 instead of data/davis
; modified 8/25/01 use davis/s2 replace davis/s1/cheas
; modified 02/18/03, use eddy/s4 to replace davis/s2

pro tableplot_lc,full,yrls,nums,corq,$
              mandbfits,mandbavg,xrng,yrngm,yrngb,refdates

if full eq 1 then begin
   xrng=[0,365]
endif

  printps1,'/eddy/s4/lcreek/data/cal/plots/averaged/avg'+yrls+'_'+nums+'_'+corq+'.ps','portrait'
  mplot,1,2

;Get the appropriate subtitles for the plots
if corq eq 'c' then begin
   subtitle1='mc'
   subtitle2='bc'
   
endif 
if corq eq 'q' then begin
   subtitle1='mq'
   subtitle2='bq'
  
endif

plot,mandbfits(0,*),mandbfits(1,*),psym=2,$
     xrange=xrng,yrange=yrngm,xstyle=1,ystyle=1,$
     ytitle=subtitle1
oplot,mandbavg(0,*),mandbavg(1,*)
refline,1,0,refdates,1

plot,mandbfits(0,*),mandbfits(2,*),psym=2,$
     xrange=xrng,yrange=yrngb,xstyle=1,ystyle=1,$
     ytitle=subtitle2,xtitle='Julian Day, '+yrls
oplot,mandbavg(0,*),mandbavg(2,*)
refline,1,0,refdates,1

xyouts,.5,1,'Licor calibration; Averaged over '+nums+' half-days',/normal,alignment=0.5

;Close and reset things if done
printps2
cplot


return
end