pc_read_var,obj=var,/bb,/trimall
power3d_v,var.bb,wav=k
oplot,k,1e-7/k
tvscl,var.bb(*,*,11,2)
END