https://github.com/cran/SoDA
Revision abb11e53fd1d4cd6d80e90fa5a000adda65fe209 authored by jmc on 14 July 2008, 00:00:00 UTC, committed by Gabor Csardi on 14 July 2008, 00:00:00 UTC
1 parent 9e5b9bb
Tip revision: abb11e53fd1d4cd6d80e90fa5a000adda65fe209 authored by jmc on 14 July 2008, 00:00:00 UTC
version 1.0-3
version 1.0-3
Tip revision: abb11e5
geodistv.f
subroutine geodistv(lat1,lon1,lat2,lon2,dist, n)
double precision lat1(1), lon1(1), lat2(1), lon2(1), dist(1)
integer n
double precision faz, baz
double precision a,f
integer i
a = 6378137.00
f = 1./298.257223563
do 200 i=1,n
call geoddist(lat1(i), lon1(i), lat2(i), lon2(i), a, f,
1 faz, baz, dist(i))
200 continue
end
Computing file changes ...