Distance and Bearing: Difference between revisions
m
→Fortran: Visual Tidy up
Bwana Pete (talk | contribs) |
Bwana Pete (talk | contribs) m (→Fortran: Visual Tidy up) |
||
Line 265:
function bearing(lat1 , lon1 , lat2 , lon2)
real(real64) , parameter :: toradians = acos( - 1.0D0)/180.0D0
real(real64) :: bearing
real(real64) , intent(in) :: lat1
Line 412 ⟶ 411:
1399 Lille-Lesquin Airport France LFQQ 66.3 149
10747 Thurrock Airfield United Kingdom EGMT 68.4 272</small>
=={{header|J}}==
| |||