blob: e2c1991b782ea6d2e0b37c430dfd94c58f24f056 (
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
36
|
.help prebn Jun99 "Slalib Package"
.nf
SUBROUTINE slPRBN (BEP0, BEP1, RMATP)
- - - - - -
P R B N
- - - - - -
Generate the matrix of precession between two epochs,
using the old, pre-IAU1976, Bessel-Newcomb model, using
Kinoshita's formulation (double precision)
Given:
BEP0 dp beginning Besselian epoch
BEP1 dp ending Besselian epoch
Returned:
RMATP dp(3,3) precession matrix
The matrix is in the sense V(BEP1) = RMATP * V(BEP0)
Reference:
Kinoshita, H. (1975) 'Formulas for precession', SAO Special
Report No. 364, Smithsonian Institution Astrophysical
Observatory, Cambridge, Massachusetts.
Called: slDEUL
P.T.Wallace Starlink 23 August 1996
Copyright (C) 1996 Rutherford Appleton Laboratory
Copyright (C) 1995 Association of Universities for Research in Astronomy Inc.
.fi
.endhelp
|
