blob: 538474d1a1cab22b9f3ab1d1673525c8010a2204 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
.help geoc Jun99 "Slalib Package"
.nf
SUBROUTINE slGEOC (P, H, R, Z)
- - - - -
G E O C
- - - - -
Convert geodetic position to geocentric (double precision)
Given:
P dp latitude (geodetic, radians)
H dp height above reference spheroid (geodetic, metres)
Returned:
R dp distance from Earth axis (AU)
Z dp distance from plane of Earth equator (AU)
Notes:
1) Geocentric latitude can be obtained by evaluating ATAN2(Z,R).
2) IAU 1976 constants are used.
Reference:
Green,R.M., Spherical Astronomy, CUP 1985, p98.
P.T.Wallace Starlink 4th October 1989
Copyright (C) 1995 Rutherford Appleton Laboratory
Copyright (C) 1995 Association of Universities for Research in Astronomy Inc.
.fi
.endhelp
|
