if !d.name eq 'PS' then begin
  device,xsize=18,ysize=12,yoffset=3
  !p.charthick=4 & !p.thick=4 & !x.thick=4 & !y.thick=4
end
;
;  mv idl.ps ~/tex/hydro/stratorot/fig/lam-re.ps
;  $Id: lam-re.pro,v 1.5 2006/02/26 16:40:03 brandenb Exp $
;
;  plots the growth rate as a function of Reynolds number
;
file='lam-re.dat'
a=rtable(file,3,head=3)
Re=reform(a(0,*))
lam=reform(a(1,*))
!p.charsize=1.8
!x.title='!6Re'
!y.title='!7k!6 / !7X!6!din!n'
;
!x.range=[200,800]
!y.range=[0e-4,8e-3]*5
plot,re,lam,ps=-4,li=1
;
file='lam-re2.dat'
a=rtable(file,3,head=3)
Re=reform(a(0,*))
lam=reform(a(1,*))
oplot,re,lam,ps=-5,li=2
;
file='lam-re5.dat'
a=rtable(file,3,head=3)
Re=reform(a(0,*))
lam=reform(a(1,*))
oplot,re,lam,ps=-6,li=3
;
END