; Routine to show the spectral importance of uxj (W_L0)
; relative to the magnetic energy spectrum.
;
@param
;
; default values
;
default,B0,0.3
default,t1,0.
default,t2,1e6
default,nx,256
;
power,v1='hel_uxj',k=k,i=i,spec1=spec_uxj,/noplot,tt=tt
speuxj=spec_uxj(*,i-2) & speu=speuxj & speb=speuxj
power,k=k,i=i,spec1=spec_u,spec2=spec_b,/noplot
;
; find average
;
kmax=nx/2
good=where(tt gt t1 and tt lt t2)
for kk=1,kmax-1 do begin
    speuxj(kk)=mean(spec_uxj(kk,good))
    speu(kk)=mean(spec_u(kk,good))
    speb(kk)=mean(spec_b(kk,good))
end
;
; plot results
;
!p.charsize=1.6
!p.title='!8B!6!d0!n(!8u!6x!8j!6)!dk!n/!8E!s!6!dk!r!uM!n'
!p.multi=[0,1,2]
plot_oo,k,speuxj*B0/speb,xr=[1,128],yr=[1e-2,10]
oplot,k,k-k+1.,li=1
plot_oi,k,speuxj*B0/speb,xr=[1,128],yr=[-2e-1,2e-1]
oplot,k,k-k,li=1
;
; some print out
;
print,'nx=',nx
print,'B0=',B0
print,'t1=',t1
print,'t2=',t2
;
!p.multi=[0,1,1]
!p.title=''
;
END