pro plot_ind_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

;Arrays Containing time separation
night10=fltarr(18,6)

;--------Min,hr,date,Min,hr,Date
night10=[[27,22,10,39,22,10],$
	 [41,22,10,53,22,10],$
	 [54,22,10,7,23,10],$
	 [14,23,10,28,23,10],$
	 [29,23,10,42,23,10],$
	 [43,23,10,58,23,10],$
	 [6,00,11,20,00,11],$
	 [20,00,11,00,33,11],$
	 [45,00,11,58,00,11]$ 
	]

for i=0, 8 do begin

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

CN2=return_mass(night10(0,i),night10(1,i),night10(2,i),$
		night10(3,i),night10(4,i),night10(5,i))

plot,CN2(12,*),CN2(0,*),psym=1,xtickunits='time',$
	background='FFFFFF'x,color='000000'x,$
	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(night10(0,i),night10(1,i),night10(2,i),$
                night10(3,i),night10(4,i),night10(5,i))


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(night10(0,i),night10(1,i),night10(2,i),$
                night10(3,i),night10(4,i),night10(5,i))


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)'

xyouts,.2,.98,'Cerro Pachon 2005-05-'+$
	strtrim(night10(2,i),2)+' '+strtrim(night10(1,i),2)+':'+$
	strtrim(night10(0,i),2)+$
        ':00 -- 2005-05-'+$
	strtrim(night10(5,i),2)+' '+strtrim(night10(4,i),2)+':'+$
        strtrim(night10(3,i),2)+':00',color='000000'x,/normal


wait,5

endfor
stop
end