00001
00002
00003
00004
00005
00006
00007
00008
00009
00010 interface
00011
00012 subroutine direct(a, f, lat1, lon1, azi1, s12a12, arcmod,
00013 + lat2, lon2, azi2, omask, a12s12, m12, MM12, MM21, SS12)
00014 double precision, intent(in) :: a, f, lat1, lon1, azi1, s12a12
00015 logical, intent(in) :: arcmod
00016 integer, intent(in) :: omask
00017 double precision, intent(out) :: lat2, lon2, azi2
00018 double precision, intent(out) :: a12s12, m12, MM12, MM21, SS12
00019 end subroutine direct
00020
00021 subroutine invers(a, f, lat1, lon1, lat2, lon2,
00022 + s12, azi1, azi2, omask, a12, m12, MM12, MM21, SS12)
00023 double precision, intent(in) :: a, f, lat1, lon1, lat2, lon2
00024 integer, intent(in) :: omask
00025 double precision, intent(out) :: s12, azi1, azi2
00026 double precision, intent(out) :: a12, m12, MM12, MM21, SS12
00027 end subroutine invers
00028
00029 subroutine area(a, f, lats, lons, n, AA, PP)
00030 integer, intent(in) :: n
00031 double precision, intent(in) :: a, f, lats(n), lons(n)
00032 double precision, intent(out) :: AA, PP
00033 end subroutine area
00034
00035 end interface