pro scpot2dens,scpot,dens,Te=Te
;
; Program takes SC potential (V>0) and produces plasma density assuming
; Te remains constant throughout interval. Te (eV), dens(percc), scpot(volts)
;
if not(keyword_set(Te)) then Te=1.
;
dens=exp((12.-scpot)/(3.36+0.14*scpot))/sqrt(Te) ; natural exponential
;
return
;
end