;|-----------------------------------------------------------------|
;|                                                                 |
;|    Subroutine FILEPLOT                                          |
;|                                                                 |
;|    plots three graphs in a systematic fashion.                  |
;|                                                                 |
;|-----------------------------------------------------------------|

pro fileplot;

@gia_var.inc


tt=tmax-tmin
yy1=max1-min1
yy2=max2-min2
yy3=max3-min3


Device, Set_Resolution=[2400,2400], Z_Buffer=0
Erase

print,'Plotting file '+strtrim(itnum,2)

!P.Multi=[0,1,3]
!Y.Charsize=1.2
;!X.Charsize=1.2

;Plotting Neutral velocities

	!P.position=[0.1,0.7,0.9,0.9]
	plot,neu_hut,neu_hvel,psym=1, xstyle=1,ystyle=1,symsize=.5,$
	title='Neutral vel,Ion vel and Ion Density plots for file '+strtrim(name,2),$
	ytitle ='Neutral Vel(m/sec)',xtitle='UT',Yrange=[min1,max1],xrange=[tmin,tmax],$
	xcharsize=0.01
	xyouts,tmin+tt*0.1,min1+yy1*1.20,Orbitnum, charsize=1.1,alignment=1
	xyouts,tmin+tt*1.01,min1+yy1*0.2,'+ Horizontal',charsize=0.75
	xyouts,tmin+tt*1.01,min1+yy1*0.1,'.  Vertical',charsize=0.75
	   ;OVERPLOT
	oplot,neu_vut,neu_vvel,psym=3,symsize=.5

;Plotting Ion  velocities

	!P.position=[0.1,0.5,0.9,0.7]
	Plot,sdsvtime,sdsvvel,xstyle=1,ystyle = 1,psym=3,symsize=.5,ytitle='Sds Vvelocity ',$
	  xtitle='U.T.',yrange=[min2,max2],xrange=[tmin,tmax],xcharsize=0.01
	xyouts,tmin+tt*1.01,min2+yy2*0.2,'+ Horizontal',charsize=0.75
	xyouts,tmin+tt*1.01,min2+yy2*0.1,'.  Vertical',charsize=0.75
	     ;OVERPLOT
	
	oplot,sdshtime,sdshvel,psym=1,symsize=.5

;Plotting Ion Densities (N)

 
	!P.position=[0.1,0.3,0.9,0.5]
	plot,time,N,psym=1,xcharsize=1,xrange=[tmin,tmax],yrange=[min3,max3],xstyle=1,ystyle=1,$
            ytitle='Density'
	        xyouts,tmin-tt*0.05,min3-0.2*yy3,'UT (ms)', charsize=.75
		xyouts,tmin-tt*0.05,min3-0.3*yy3,'ILAT', charsize=.75
		xyouts,tmin-tt*0.05,min3-0.4*yy3,'MLT', charsize=.75
		xyouts,tmin-tt*0.05,min3-0.5*yy3,'ALT', charsize=.75
		xyouts,tmin-tt*0.05,min3-0.6*yy3,'GLAT', charsize=.75
		xyouts,tmin-tt*0.05,min3-0.7*yy3,'GLON', charsize=.75
	
;for j=1.,2.5,.5 do begin
	
;	xyouts,time(j*l_step*512.),min3-0.2*yy3,time(j*l_step*512.), charsize=.75,alignment=0.25
;	xyouts,time(j*l_step*512.),min3-0.3*yy3,DILAT(j*l_step), charsize=.75,alignment=0.5
;	xyouts,time(j*l_step*512.),min3-0.4*yy3,DMLT(j*l_step), charsize=.75,alignment=0.5
;	xyouts,time(j*l_step*512.),min3-0.5*yy3,DALT(j*l_step), charsize=.75,alignment=0.5
;	xyouts,time(j*l_step*512.),min3-0.6*yy3,DGLAT(j*l_step), charsize=.75,alignment=0.5
;	xyouts,time(j*l_step*512.),min3-0.7*yy3,DGLON(j*l_step), charsize=.75,alignment=0.5
;	  
;endfor

snapshot = TVRD()
TVLCT, r, g, b, /Get

image24 = BytArr(3, 2400, 2400)
image24[0,*,*] = 255-r[snapshot]
image24[1,*,*] = 255-g[snapshot]
image24[2,*,*] = 255-b[snapshot]

Write_JPEG,'/usr33/users/klenzing/images/'+strtrim(name,2)+strtrim(itnum,2)+'.jpg',image24,True=1,Quality=75	


end;------------------------------------------------------------------------------------