@common_multi
f1="MgI_marcs_sun_ETL_blends_8806"
f2="MgI_marcs_sun_NETL_8806"
f3="MgI_marcs_sun_NETL_blends_8806"
kr=18

default,f1
mulrd
double,kr,flux,xETL,yETL
default,f2
mulrd
double,kr,flux,xNETL,yNETL
;default,f3
;mulrd
;double,kr,flux,xx,yy

set_plot,'x'

angstrom = "!3"+STRING(197B)+"!X"
delta    = "!4D!3";"!4"+String(144B)+"!X"

plot,xNETL,yNETL/yNETL(0),xrange=[-3,3],yrange=[0,1.2],xtitle=delta+'!4k!3 ['+angstrom+']',ytitle='Flux relatif',linestyle=1
oplot,xETL,yETL/yETL(0)
;oplot,xx,yy/yy(0),linestyle=2
plots,[-3.9,-3.1],[1.05,1.05]
plots,[-2.0,-1.2],[1.05,1.05],linestyle=1
;plots,[0.0,0.8],[1.05,1.05],linestyle=2
xyouts,-3,1.05,"ETL"
xyouts,-1.1,1.05,"HETL"
;xyouts,0.9,1.05,"HETL + blends"

set_plot,'ps'
!P.thick=3
!P.charsize=2
!P.charthick=3

tek_color

device,filename='prof.eps',/color,/encap
plot,xETL,yETL/yETL(0),xrange=[-4,4],yrange=[0,1.2],xtitle=delta+'!4k!3 ['+angstrom+']',ytitle='Flux relatif'
oplot,xNETL,yNETL/yNETL(0),color=2
;oplot,xx,yy/yy(0),color=4
plots,[-3.9,-3.1],[1.05,1.05]
plots,[-2.0,-1.2],[1.05,1.05],color=2
;plots,[0.0,0.8],[1.05,1.05],color=4
xyouts,-3,1.05,"ETL"
xyouts,-1.1,1.05,"HETL"
;xyouts,0.9,1.05,"HETL+blends"
device,/close

set_plot,'x'