+ NASA Homepage + NASA GISS Homepage + Model E Resource Homepage
real*8 function ei(ti, si)
real*8, intent(in)