pro thm_pot2dens,pot,dens,Te=Te
;
; Program takes probe potential (V>0) and produces plasma density assuming
; Te remains constant throughout interval. Te (eV), dens(percc), pot(volts)
;
if not(keyword_set(Te)) then Te=1.
;
;scale=12.
;dens=scale*exp(((12.-pot)/(3.36+0.14*pot)))/sqrt(Te) ; natural exponential
dens=460.*10^((offset-pot)/1.5)+34.*10^((offset-pot)/7.)+1.6*10^((offset-pot)/30.)
;
;
return
;
end