;; -*-IDLWAVE-*-------------------------------------------------------
;;  Filename:      idl_template.pro
;;  Author:        Eddie Baron <baron@nhn.ou.edu>
;;  Created at:    Mon May 10 14:56:30 2004
;;  Modified at:   Thu Feb 14 10:18:42 2008
;;  Modified by:   Eddie Baron <baron@ou.edu>
;;  Version:       
;;  Description:   
;; -------------------------------------------------------------------
paper=0
!x.thick=3
!y.thick=3
!p.thick=3
!p.charsize=1.2
!p.charthick=1.6
!x.charsize=1.4
;!x.charthick=1.2
!y.charsize=1.4
;!y.charthick=1.2
!x.margin=[20,5]
!y.margin=[6,2]
!x.title="!4k!3 ("+string('305'OB)+")"
!y.title='F!D!4k!3!N (arbitrary units)'
;!x.title=TeXtoIDL("\lambda\mbox{ (\AA)}")
!y.title=TeXtoIDL("F_\lambda (arbitrary units)")



readcol,'~baron/bru2/spec/sn92a/sn92a_d05_hst+ctio.dat',wldat,fldat


model_dir='./'
model_name='pah_5p02822_16_day20_128_rhoe_ve2550_stir1_vs16_newinterp'
model_num='402'
rdsyngf,model_dir+model_name+'.7.'+model_num+'.gz',wl2,fl2
;
; strip '.' from filename for plots
;
figure_name="sn94d_"+model_name
while(strpos(figure_name,'.') ne -1) do strput,figure_name,'_',strpos(figure_name,'.')
;
;
if paper ne 0 then psplotl,figure_name+'_'+model_num+'.eps'
;
plot,wldat,fldat,xstyle=1,/ynozero,xrange=[2000,9000]
scalem,wldat,fldat,wl1,fl1,fs1,lnorm=7000.
scalem,wldat,fldat,wl2,fl2,fs2,lnorm=7000.
oplot,wl1,fs1,color=fsc_color('red',!D.Table_Size-1)
oplot,wl2,fs2,color=fsc_color('blue',!D.Table_Size-2)
if paper ne 0 then reset_xplot