+ NASA Homepage + NASA GISS Homepage + Model E Resource Homepage
function horzdist_2pts(i1, j1, i2, j2)
real*8
integer