pro plot_mass,min1=min1,hr1=hr1,date1=date1,min2=min2,hr2=hr2,date2=date2

If (not keyword_set(min1)) then min1=50
If (not keyword_set(hr1)) then hr1=22
If (not keyword_set(date1)) then date1=10
If (not keyword_set(min2)) then min2=30
If (not keyword_set(hr2)) then hr2=3
If (not keyword_set(date2)) then date2=11

!p.multi=[0,2,2]

CN2=return_mass(min1,hr1,date1,min2,hr2,date2)

plot,CN2(12,*),CN2(0,*),psym=1,xtickunits='time',$
	background='FFFFFF'x,color='000000'x,$
	Title='Cerro Pachon 2005-05-'+strtrim(date1,2)+' 00:'+$
	strtrim(hr1,2)+':00 -- 2005-05-'+strtrim(date2,2)+' 00:'+$
	strtrim(hr2,2)+':00',$
	xtitle='Date & Time (UT)',ytitle='CN2'
oplot,CN2(12,*),CN2(1,*),psym=2,color='FF0000'x
oplot,CN2(12,*),CN2(2,*),psym=3,color='00FF00'x
oplot,CN2(12,*),CN2(3,*),psym=4,color='0000FF'x
oplot,CN2(12,*),CN2(4,*),psym=5,color='FFFF00'x
oplot,CN2(12,*),CN2(5,*),psym=6,color='FF00FF'x

DIMM=return_dimm(min1,hr1,date1,min2,hr2,date2)

plot,DIMM(4,*),DIMM(0,*),psym=1,xtickunits='time',$
	background='FFFFFF'x,color='000000'x,$
	xtitle='Date & Time (UT)',ytitle='Seeing (arcseconds)'

WIND=return_wind(min1,hr1,date1,min2,hr2,date2)

plot,WIND(2,*),WIND(1,*),psym=1,xtickunits='time',$
        background='FFFFFF'x,color='000000'x,$
	ytitle='Direction',xtitle='Date & Time (UT)'

plot,WIND(2,*),WIND(0,*),psym=1,xtickunits='time',$
        background='FFFFFF'x,color='000000'x,$
        ytitle='Speed (m/s)',xtitle='Date & Time (UT)'

end