blob: bbe3ceff1a9179df71e6deb9a6f32beff51783b7 (
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
34
35
|
.help prenut Jun99 "Slalib Package"
.nf
SUBROUTINE slPRNU (EPOCH, DATE, RMATPN)
- - - - - - -
P R N U
- - - - - - -
Form the matrix of precession and nutation (IAU1976/FK5)
(double precision)
Given:
EPOCH dp Julian Epoch for mean coordinates
DATE dp Modified Julian Date (JD-2400000.5)
for true coordinates
Returned:
RMATPN dp(3,3) combined precession/nutation matrix
Called: slPREC, slEPJ, slNUT, slDMXM
Notes:
1) The epoch and date are TDB (loosely ET).
2) The matrix is in the sense V(true) = RMATPN * V(mean)
P.T.Wallace Starlink April 1987
Copyright (C) 1995 Rutherford Appleton Laboratory
Copyright (C) 1995 Association of Universities for Research in Astronomy Inc.
.fi
.endhelp
|
