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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
use crate;
use ;
/// Quick CIRS −> ICRS
///
/// Quick CIRS RA,Dec to ICRS astrometric place, given the star-
/// independent astrometry parameters.
///
/// Use of this function is appropriate when efficiency is important and
/// where many star positions are all to be transformed for one date.
/// The star-independent astrometry parameters can be obtained by
/// calling one of the functions iauApci[13], iauApcg[13], iauApco[13]
/// or iauApcs[13].
///
/// This function is part of the International Astronomical Union's
/// SOFA (Standards of Fundamental Astronomy) software collection.
///
/// Status: support function.
///
/// Given:
/// ri,di double CIRS RA,Dec (radians)
/// astrom iauASTROM* star-independent astrometry parameters:
/// pmt double PM time interval (SSB, Julian years)
/// eb double[3] SSB to observer (vector, au)
/// eh double[3] Sun to observer (unit vector)
/// em double distance from Sun to observer (au)
/// v double[3] barycentric observer velocity (vector, c)
/// bm1 double sqrt(1-|v|^2): reciprocal of Lorenz factor
/// bpn double[3][3] bias-precession-nutation matrix
/// along double longitude + s' (radians)
/// xpl double polar motion xp wrt local meridian (radians)
/// ypl double polar motion yp wrt local meridian (radians)
/// sphi double sine of geodetic latitude
/// cphi double cosine of geodetic latitude
/// diurab double magnitude of diurnal aberration vector
/// eral double "local" Earth rotation angle (radians)
/// refa double refraction constant A (radians)
/// refb double refraction constant B (radians)
///
/// Returned:
/// rc,dc double ICRS astrometric RA,Dec (radians)
///
/// Notes:
///
/// 1) Only the Sun is taken into account in the light deflection
/// correction.
///
/// 2) Iterative techniques are used for the aberration and light
/// deflection corrections so that the functions iauAtic13 (or
/// iauAticq) and iauAtci13 (or iauAtciq) are accurate inverses;
/// even at the edge of the Sun's disk the discrepancy is only about
/// 1 nanoarcsecond.
///
/// Called:
/// iauS2c spherical coordinates to unit vector
/// iauTrxp product of transpose of r-matrix and p-vector
/// iauZp zero p-vector
/// iauAb stellar aberration
/// iauLdsun light deflection by the Sun
/// iauC2s p-vector to spherical
/// iauAnp normalize angle into range +/- pi
///
/// This revision: 2013 October 9
///
/// SOFA release 2023-10-11
///
/// Copyright (C) 2023 IAU SOFA Board. See notes at end.
///