source: trunk/FACT++/sofa/doc/sofa_lib.lis@ 18350

Last change on this file since 18350 was 18346, checked in by tbretz, 9 years ago
File size: 28.6 KB
Line 
1sofa_lib.lis 2015 January 30
2
3 ----------------------
4 SOFA Astronomy Library
5 ----------------------
6
7
8PREFACE
9
10The routines described here comprise the SOFA astronomy library. Their
11general appearance and coding style conforms to conventions agreed by
12the SOFA Board, and their functions, names and algorithms have been
13ratified by the Board. Procedures for soliciting and agreeing additions
14to the library are still evolving.
15
16
17PROGRAMMING LANGUAGES
18
19The SOFA routines are available in two programming languages at present:
20Fortran 77 and ANSI C.
21
22Except for a single obsolete Fortran routine, which has no C equivalent,
23there is a one-to-one relationship between the two language versions.
24The naming convention is such that a SOFA routine referred to
25generically as "EXAMPL" exists as a Fortran subprogram iau_EXAMPL and a
26C function iauExampl. The calls for the two versions are very similar,
27with the same arguments in the same order. In a few cases, the C
28equivalent of a Fortran SUBROUTINE subprogram uses a return value rather
29than an argument.
30
31
32GENERAL PRINCIPLES
33
34The principal function of the SOFA Astronomy Library is to provide
35definitive algorithms. A secondary function is to provide software
36suitable for convenient direct use by writers of astronomical
37applications.
38
39The astronomy routines call on the SOFA vector/matrix library routines,
40which are separately listed.
41
42The routines are designed to exploit the full floating-point accuracy
43of the machines on which they run, and not to rely on compiler
44optimizations. Within these constraints, the intention is that the code
45corresponds to the published formulation (if any).
46
47Dates are always Julian Dates (except in calendar conversion routines)
48and are expressed as two double precision numbers which sum to the
49required value.
50
51A distinction is made between routines that implement IAU-approved
52models and those that use those models to create other results. The
53former are referred to as "canonical models" in the preamble comments;
54the latter are described as "support routines".
55
56Using the library requires knowledge of positional astronomy and
57time-scales. These topics are covered in "Explanatory Supplement to the
58Astronomical Almanac", 3rd Edition, Sean E. Urban &
59P. Kenneth Seidelmann (eds.), University Science Books, 2013. Recent
60developments are documented in the scientific journals, and references
61to the relevant papers are given in the SOFA code as required. The IERS
62Conventions are also an essential reference. The routines concerned
63with Earth attitude (precession-nutation etc.) are described in the SOFA
64document sofa_pn.pdf. Those concerned with transformations between
65different time scales are described in sofa_ts_f.pdf (Fortran) and
66sofa_ts_c.pdf (C). Those concerned with astrometric transformations
67are described in sofa_ast_f.pdf (Fortran) and sofa_ast_c (C).
68
69
70ROUTINES
71
72 Calendars
73
74 CAL2JD Gregorian calendar to Julian Day number
75 EPB Julian Date to Besselian Epoch
76 EPB2JD Besselian Epoch to Julian Date
77 EPJ Julian Date to Julian Epoch
78 EPJ2JD Julian Epoch to Julian Date
79 JD2CAL Julian Date to Gregorian year, month, day, fraction
80 JDCALF Julian Date to Gregorian date for formatted output
81
82 Astrometry
83
84 AB apply stellar aberration
85 APCG prepare for ICRS <-> GCRS, geocentric, special
86 APCG13 prepare for ICRS <-> GCRS, geocentric
87 APCI prepare for ICRS <-> CIRS, terrestrial, special
88 APCI13 prepare for ICRS <-> CIRS, terrestrial
89 APCO prepare for ICRS <-> observed, terrestrial, special
90 APCO13 prepare for ICRS <-> observed, terrestrial
91 APCS prepare for ICRS <-> CIRS, space, special
92 APCS13 prepare for ICRS <-> CIRS, space
93 APER insert ERA into context
94 APER13 update context for Earth rotation
95 APIO prepare for CIRS <-> observed, terrestrial, special
96 APIO13 prepare for CIRS <-> observed, terrestrial
97 ATCI13 catalog -> CIRS
98 ATCIQ quick ICRS -> CIRS
99 ATCIQN quick ICRS -> CIRS, multiple deflections
100 ATCIQZ quick astrometric ICRS -> CIRS
101 ATCO13 ICRS -> observed
102 ATIC13 CIRS -> ICRS
103 ATICQ quick CIRS -> ICRS
104 ATCIQN quick CIRS -> ICRS, multiple deflections
105 ATIO13 CIRS -> observed
106 ATIOQ quick CIRS -> observed
107 ATOC13 observed -> astrometric ICRS
108 ATOI13 observed -> CIRS
109 ATOIQ quick observed -> CIRS
110 LD light deflection by a single solar-system body
111 LDN light deflection by multiple solar-system bodies
112 LDSUN light deflection by the Sun
113 PMPX apply proper motion and parallax
114 PMSAFE apply proper motion, with zero-parallax precautions
115 PVTOB observatory position and velocity
116 PVSTAR space motion pv-vector to star catalog data
117 REFCO refraction constants
118 STARPM apply proper motion
119 STARPV star catalog data to space motion pv-vector
120
121 Time scales
122
123 D2DTF format 2-part JD for output
124 DAT Delta(AT) (=TAI-UTC) for a given UTC date
125 DTDB TDB-TT
126 DTF2D encode time and date fields into 2-part JD
127 TAITT TAI to TT
128 TAIUT1 TAI to UT1
129 TAIUTC TAI to UTC
130 TCBTDB TCB to TDB
131 TCGTT TCG to TT
132 TDBTCB TDB to TCB
133 TDBTT TDB to TT
134 TTTAI TT to TAI
135 TTTCG TT to TCG
136 TTTDB TT to TDB
137 TTUT1 TT to UT1
138 UT1TAI UT1 to TAI
139 UT1TT UT1 to TT
140 UT1UTC UT1 to UTC
141 UTCTAI UTC to TAI
142 UTCUT1 UTC to UT1
143
144 Earth rotation angle and sidereal time
145
146 EE00 equation of the equinoxes, IAU 2000
147 EE00A equation of the equinoxes, IAU 2000A
148 EE00B equation of the equinoxes, IAU 2000B
149 EE06A equation of the equinoxes, IAU 2006/2000A
150 EECT00 equation of the equinoxes complementary terms, IAU 2000
151 EQEQ94 equation of the equinoxes, IAU 1994
152 ERA00 Earth rotation angle, IAU 2000
153 GMST00 Greenwich mean sidereal time, IAU 2000
154 GMST06 Greenwich mean sidereal time, IAU 2006
155 GMST82 Greenwich mean sidereal time, IAU 1982
156 GST00A Greenwich apparent sidereal time, IAU 2000A
157 GST00B Greenwich apparent sidereal time, IAU 2000B
158 GST06 Greenwich apparent ST, IAU 2006, given NPB matrix
159 GST06A Greenwich apparent sidereal time, IAU 2006/2000A
160 GST94 Greenwich apparent sidereal time, IAU 1994
161
162 Ephemerides (limited precision)
163
164 EPV00 Earth position and velocity
165 PLAN94 major-planet position and velocity
166
167 Precession, nutation, polar motion
168
169 BI00 frame bias components, IAU 2000
170 BP00 frame bias and precession matrices, IAU 2000
171 BP06 frame bias and precession matrices, IAU 2006
172 BPN2XY extract CIP X,Y coordinates from NPB matrix
173 C2I00A celestial-to-intermediate matrix, IAU 2000A
174 C2I00B celestial-to-intermediate matrix, IAU 2000B
175 C2I06A celestial-to-intermediate matrix, IAU 2006/2000A
176 C2IBPN celestial-to-intermediate matrix, given NPB matrix, IAU 2000
177 C2IXY celestial-to-intermediate matrix, given X,Y, IAU 2000
178 C2IXYS celestial-to-intermediate matrix, given X,Y and s
179 C2T00A celestial-to-terrestrial matrix, IAU 2000A
180 C2T00B celestial-to-terrestrial matrix, IAU 2000B
181 C2T06A celestial-to-terrestrial matrix, IAU 2006/2000A
182 C2TCIO form CIO-based celestial-to-terrestrial matrix
183 C2TEQX form equinox-based celestial-to-terrestrial matrix
184 C2TPE celestial-to-terrestrial matrix given nutation, IAU 2000
185 C2TXY celestial-to-terrestrial matrix given CIP, IAU 2000
186 EO06A equation of the origins, IAU 2006/2000A
187 EORS equation of the origins, given NPB matrix and s
188 FW2M Fukushima-Williams angles to r-matrix
189 FW2XY Fukushima-Williams angles to X,Y
190 NUM00A nutation matrix, IAU 2000A
191 NUM00B nutation matrix, IAU 2000B
192 NUM06A nutation matrix, IAU 2006/2000A
193 NUMAT form nutation matrix
194 NUT00A nutation, IAU 2000A
195 NUT00B nutation, IAU 2000B
196 NUT06A nutation, IAU 2006/2000A
197 NUT80 nutation, IAU 1980
198 NUTM80 nutation matrix, IAU 1980
199 OBL06 mean obliquity, IAU 2006
200 OBL80 mean obliquity, IAU 1980
201 PB06 zeta,z,theta precession angles, IAU 2006, including bias
202 PFW06 bias-precession Fukushima-Williams angles, IAU 2006
203 PMAT00 precession matrix (including frame bias), IAU 2000
204 PMAT06 PB matrix, IAU 2006
205 PMAT76 precession matrix, IAU 1976
206 PN00 bias/precession/nutation results, IAU 2000
207 PN00A bias/precession/nutation, IAU 2000A
208 PN00B bias/precession/nutation, IAU 2000B
209 PN06 bias/precession/nutation results, IAU 2006
210 PN06A bias/precession/nutation results, IAU 2006/2000A
211 PNM00A classical NPB matrix, IAU 2000A
212 PNM00B classical NPB matrix, IAU 2000B
213 PNM06A classical NPB matrix, IAU 2006/2000A
214 PNM80 precession/nutation matrix, IAU 1976/1980
215 P06E precession angles, IAU 2006, equinox based
216 POM00 polar motion matrix
217 PR00 IAU 2000 precession adjustments
218 PREC76 accumulated precession angles, IAU 1976
219 S00 the CIO locator s, given X,Y, IAU 2000A
220 S00A the CIO locator s, IAU 2000A
221 S00B the CIO locator s, IAU 2000B
222 S06 the CIO locator s, given X,Y, IAU 2006
223 S06A the CIO locator s, IAU 2006/2000A
224 SP00 the TIO locator s', IERS 2003
225 XY06 CIP, IAU 2006/2000A, from series
226 XYS00A CIP and s, IAU 2000A
227 XYS00B CIP and s, IAU 2000B
228 XYS06A CIP and s, IAU 2006/2000A
229
230 Fundamental arguments for nutation etc.
231
232 FAD03 mean elongation of the Moon from the Sun
233 FAE03 mean longitude of Earth
234 FAF03 mean argument of the latitude of the Moon
235 FAJU03 mean longitude of Jupiter
236 FAL03 mean anomaly of the Moon
237 FALP03 mean anomaly of the Sun
238 FAMA03 mean longitude of Mars
239 FAME03 mean longitude of Mercury
240 FANE03 mean longitude of Neptune
241 FAOM03 mean longitude of the Moon's ascending node
242 FAPA03 general accumulated precession in longitude
243 FASA03 mean longitude of Saturn
244 FAUR03 mean longitude of Uranus
245 FAVE03 mean longitude of Venus
246
247 Star catalog conversions
248
249 FK52H transform FK5 star data into the Hipparcos system
250 FK5HIP FK5 to Hipparcos rotation and spin
251 FK5HZ FK5 to Hipparcos assuming zero Hipparcos proper motion
252 H2FK5 transform Hipparcos star data into the FK5 system
253 HFK5Z Hipparcos to FK5 assuming zero Hipparcos proper motion
254
255 Galactic coordinates
256
257 G2ICRS transform IAU 1958 galactic coordinates to ICRS
258 ICRS2G transform ICRS coordinates to IAU 1958 Galactic
259
260 Geodetic/geocentric
261
262 EFORM a,f for a nominated Earth reference ellipsoid
263 GC2GD geocentric to geodetic for a nominated ellipsoid
264 GC2GDE geocentric to geodetic given ellipsoid a,f
265 GD2GC geodetic to geocentric for a nominated ellipsoid
266 GD2GCE geodetic to geocentric given ellipsoid a,f
267
268 Obsolete
269
270 C2TCEO former name of C2TCIO
271
272
273CALLS: FORTRAN VERSION
274
275 CALL iau_AB ( PNAT, V, S, BM1, PPR )
276 CALL iau_APCG ( DATE1, DATE2, EB, EH, ASTROM )
277 CALL iau_APCG13 ( DATE1, DATE2, ASTROM )
278 CALL iau_APCI ( DATE1, DATE2, EB, EH, X, Y, S, ASTROM )
279 CALL iau_APCI13 ( DATE1, DATE2, ASTROM, EO )
280 CALL iau_APCO ( DATE1, DATE2, EB, EH, X, Y, S,
281 : THETA, ELONG, PHI, HM, XP, YP, SP,
282 : REFA, REFB, ASTROM )
283 CALL iau_APCO13 ( UTC1, UTC2, DUT1, ELONG, PHI, HM, XP, YP,
284 : PHPA, TC, RH, WL, ASTROM, EO, J )
285 CALL iau_APCS ( DATE1, DATE2, PV, EB, EH, ASTROM )
286 CALL iau_APCS13 ( DATE1, DATE2, PV, ASTROM )
287 CALL iau_APER ( THETA, ASTROM )
288 CALL iau_APER13 ( UT11, UT12, ASTROM )
289 CALL iau_APIO ( SP, THETA, ELONG, PHI, HM, XP, YP,
290 : REFA, REFB, ASTROM )
291 CALL iau_APIO13 ( UTC1, UTC2, DUT1, ELONG, PHI, HM, XP, YP,
292 : PHPA, TC, RH, WL, ASTROM, J )
293 CALL iau_ATCI13 ( RC, DC, PR, PD, PX, RV, DATE1, DATE2, RI, DI, EO )
294 CALL iau_ATCIQ ( RC, DC, PR, PD, PX, RV, ASTROM, RI, DI )
295 CALL iau_ATCIQN ( RC, DC, PR, PD, PX, RV, ASTROM, N, B, RI, DI )
296 CALL iau_ATCIQZ ( RC, DC, ASTROM, RI, DI )
297 CALL iau_ATCO13 ( RC, DC, PR, PD, PX, RV, UTC1, UTC2, DUT1, ELONG,
298 : PHI, HM, XP, YP, PHPA, TC, RH, WL,
299 : AOB, ZOB, HOB, DOB, ROB, EO, J )
300 CALL iau_ATIC13 ( RI, DI, DATE1, DATE2, RC, DC, EO )
301 CALL iau_ATICQ ( RI, DI, ASTROM, RC, DC )
302 CALL iau_ATCIQN ( RI, DI, ASTROM, N, B, RC, DC )
303 CALL iau_ATIO13 ( RI, DI, UTC1, UTC2, DUT1, ELONG, PHI, HM, XP, YP,
304 PHPA, TC, RH, WL, AOB, ZOB, HOB, DOB, ROB, J )
305 CALL iau_ATIOQ ( RI, DI, ASTROM, AOB, ZOB, HOB, DOB, ROB )
306 CALL iau_ATOC13 ( TYPE, OB1, OB2, UTC1, UTC2, DUT1,
307 : ELONG, PHI, HM, XP, YP, PHPA, TC, RH, WL,
308 : RC, DC, J )
309 CALL iau_ATOI13 ( TYPE, OB1, OB2, UTC1, UTC2, DUT1,
310 : ELONG, PHI, HM, XP, YP, PHPA, TC, RH, WL,
311 : RI, DI, J )
312 CALL iau_ATOIQ ( TYPE, OB1, OB2, ASTROM, RI, DI )
313 CALL iau_BI00 ( DPSIBI, DEPSBI, DRA )
314 CALL iau_BP00 ( DATE1, DATE2, RB, RP, RBP )
315 CALL iau_BP06 ( DATE1, DATE2, RB, RP, RBP )
316 CALL iau_BPN2XY ( RBPN, X, Y )
317 CALL iau_C2I00A ( DATE1, DATE2, RC2I )
318 CALL iau_C2I00B ( DATE1, DATE2, RC2I )
319 CALL iau_C2I06A ( DATE1, DATE2, RC2I )
320 CALL iau_C2IBPN ( DATE1, DATE2, RBPN, RC2I )
321 CALL iau_C2IXY ( DATE1, DATE2, X, Y, RC2I )
322 CALL iau_C2IXYS ( X, Y, S, RC2I )
323 CALL iau_C2T00A ( TTA, TTB, UTA, UTB, XP, YP, RC2T )
324 CALL iau_C2T00B ( TTA, TTB, UTA, UTB, XP, YP, RC2T )
325 CALL iau_C2T06A ( TTA, TTB, UTA, UTB, XP, YP, RC2T )
326 CALL iau_C2TCEO ( RC2I, ERA, RPOM, RC2T )
327 CALL iau_C2TCIO ( RC2I, ERA, RPOM, RC2T )
328 CALL iau_C2TEQX ( RBPN, GST, RPOM, RC2T )
329 CALL iau_C2TPE ( TTA, TTB, UTA, UTB, DPSI, DEPS, XP, YP, RC2T )
330 CALL iau_C2TXY ( TTA, TTB, UTA, UTB, X, Y, XP, YP, RC2T )
331 CALL iau_CAL2JD ( IY, IM, ID, DJM0, DJM, J )
332 CALL iau_D2DTF ( SCALE, NDP, D1, D2, IY, IM, ID, IHMSF, J )
333 CALL iau_DAT ( IY, IM, ID, FD, DELTAT, J )
334 D = iau_DTDB ( DATE1, DATE2, UT, ELONG, U, V )
335 CALL iau_DTF2D ( SCALE, IY, IM, ID, IHR, IMN, SEC, D1, D2, J )
336 D = iau_EE00 ( DATE1, DATE2, EPSA, DPSI )
337 D = iau_EE00A ( DATE1, DATE2 )
338 D = iau_EE00B ( DATE1, DATE2 )
339 D = iau_EE06A ( DATE1, DATE2 )
340 D = iau_EECT00 ( DATE1, DATE2 )
341 CALL iau_EFORM ( N, A, F, J )
342 D = iau_EO06A ( DATE1, DATE2 )
343 D = iau_EORS ( RNPB, S )
344 D = iau_EPB ( DJ1, DJ2 )
345 CALL iau_EPB2JD ( EPB, DJM0, DJM )
346 D = iau_EPJ ( DJ1, DJ2 )
347 CALL iau_EPJ2JD ( EPJ, DJM0, DJM )
348 CALL iau_EPV00 ( DJ1, DJ2, PVH, PVB, J )
349 D = iau_EQEQ94 ( DATE1, DATE2 )
350 D = iau_ERA00 ( DJ1, DJ2 )
351 D = iau_FAD03 ( T )
352 D = iau_FAE03 ( T )
353 D = iau_FAF03 ( T )
354 D = iau_FAJU03 ( T )
355 D = iau_FAL03 ( T )
356 D = iau_FALP03 ( T )
357 D = iau_FAMA03 ( T )
358 D = iau_FAME03 ( T )
359 D = iau_FANE03 ( T )
360 D = iau_FAOM03 ( T )
361 D = iau_FAPA03 ( T )
362 D = iau_FASA03 ( T )
363 D = iau_FAUR03 ( T )
364 D = iau_FAVE03 ( T )
365 CALL iau_FK52H ( R5, D5, DR5, DD5, PX5, RV5,
366 : RH, DH, DRH, DDH, PXH, RVH )
367 CALL iau_FK5HIP ( R5H, S5H )
368 CALL iau_FK5HZ ( R5, D5, DATE1, DATE2, RH, DH )
369 CALL iau_FW2M ( GAMB, PHIB, PSI, EPS, R )
370 CALL iau_FW2XY ( GAMB, PHIB, PSI, EPS, X, Y )
371 CALL iau_G2ICRS ( DL, DB, DR, DD )
372 CALL iau_GC2GD ( N, XYZ, ELONG, PHI, HEIGHT, J )
373 CALL iau_GC2GDE ( A, F, XYZ, ELONG, PHI, HEIGHT, J )
374 CALL iau_GD2GC ( N, ELONG, PHI, HEIGHT, XYZ, J )
375 CALL iau_GD2GCE ( A, F, ELONG, PHI, HEIGHT, XYZ, J )
376 D = iau_GMST00 ( UTA, UTB, TTA, TTB )
377 D = iau_GMST06 ( UTA, UTB, TTA, TTB )
378 D = iau_GMST82 ( UTA, UTB )
379 D = iau_GST00A ( UTA, UTB, TTA, TTB )
380 D = iau_GST00B ( UTA, UTB )
381 D = iau_GST06 ( UTA, UTB, TTA, TTB, RNPB )
382 D = iau_GST06A ( UTA, UTB, TTA, TTB )
383 D = iau_GST94 ( UTA, UTB )
384 CALL iau_H2FK5 ( RH, DH, DRH, DDH, PXH, RVH,
385 : R5, D5, DR5, DD5, PX5, RV5 )
386 CALL iau_HFK5Z ( RH, DH, DATE1, DATE2, R5, D5, DR5, DD5 )
387 CALL iau_ICRS2G ( DR, DD, DL, DB )
388 CALL iau_JD2CAL ( DJ1, DJ2, IY, IM, ID, FD, J )
389 CALL iau_JDCALF ( NDP, DJ1, DJ2, IYMDF, J )
390 CALL iau_LD ( BM, P, Q, E, EM, DLIM, P1 )
391 CALL iau_LDN ( N, B, OB, SC, SN )
392 CALL iau_LDSUN ( P, E, EM, P1 )
393 CALL iau_NUM00A ( DATE1, DATE2, RMATN )
394 CALL iau_NUM00B ( DATE1, DATE2, RMATN )
395 CALL iau_NUM06A ( DATE1, DATE2, RMATN )
396 CALL iau_NUMAT ( EPSA, DPSI, DEPS, RMATN )
397 CALL iau_NUT00A ( DATE1, DATE2, DPSI, DEPS )
398 CALL iau_NUT00B ( DATE1, DATE2, DPSI, DEPS )
399 CALL iau_NUT06A ( DATE1, DATE2, DPSI, DEPS )
400 CALL iau_NUT80 ( DATE1, DATE2, DPSI, DEPS )
401 CALL iau_NUTM80 ( DATE1, DATE2, RMATN )
402 D = iau_OBL06 ( DATE1, DATE2 )
403 D = iau_OBL80 ( DATE1, DATE2 )
404 CALL iau_PB06 ( DATE1, DATE2, BZETA, BZ, BTHETA )
405 CALL iau_PFW06 ( DATE1, DATE2, GAMB, PHIB, PSIB, EPSA )
406 CALL iau_PLAN94 ( DATE1, DATE2, NP, PV, J )
407 CALL iau_PMAT00 ( DATE1, DATE2, RBP )
408 CALL iau_PMAT06 ( DATE1, DATE2, RBP )
409 CALL iau_PMAT76 ( DATE1, DATE2, RMATP )
410 CALL iau_PMPX ( RC, DC, PR, PD, PX, RV, PMT, POB, PCO )
411 CALL iau_PMSAFE ( RA1, DEC1, PMR1, PMD1, PX1, RV1,
412 : EP1A, EP1B, EP2A, EP2B,
413 : RA2, DEC2, PMR2, PMD2, PX2, RV2, J )
414 CALL iau_PN00 ( DATE1, DATE2, DPSI, DEPS,
415 : EPSA, RB, RP, RBP, RN, RBPN )
416 CALL iau_PN00A ( DATE1, DATE2,
417 : DPSI, DEPS, EPSA, RB, RP, RBP, RN, RBPN )
418 CALL iau_PN00B ( DATE1, DATE2,
419 : DPSI, DEPS, EPSA, RB, RP, RBP, RN, RBPN )
420 CALL iau_PN06 ( DATE1, DATE2, DPSI, DEPS,
421 : EPSA, RB, RP, RBP, RN, RBPN )
422 CALL iau_PN06A ( DATE1, DATE2,
423 : DPSI, DEPS, RB, RP, RBP, RN, RBPN )
424 CALL iau_PNM00A ( DATE1, DATE2, RBPN )
425 CALL iau_PNM00B ( DATE1, DATE2, RBPN )
426 CALL iau_PNM06A ( DATE1, DATE2, RNPB )
427 CALL iau_PNM80 ( DATE1, DATE2, RMATPN )
428 CALL iau_P06E ( DATE1, DATE2,
429 : EPS0, PSIA, OMA, BPA, BQA, PIA, BPIA,
430 : EPSA, CHIA, ZA, ZETAA, THETAA, PA, GAM, PHI, PSI )
431 CALL iau_POM00 ( XP, YP, SP, RPOM )
432 CALL iau_PR00 ( DATE1, DATE2, DPSIPR, DEPSPR )
433 CALL iau_PREC76 ( DATE01, DATE02, DATE11, DATE12, ZETA, Z, THETA )
434 CALL iau_PVSTAR ( PV, RA, DEC, PMR, PMD, PX, RV, J )
435 CALL iau_PVTOB ( ELONG, PHI, HM, XP, YP, SP, THETA, PV )
436 CALL iau_REFCO ( PHPA, TC, RH, WL, REFA, REFB )
437 D = iau_S00 ( DATE1, DATE2, X, Y )
438 D = iau_S00A ( DATE1, DATE2 )
439 D = iau_S00B ( DATE1, DATE2 )
440 D = iau_S06 ( DATE1, DATE2, X, Y )
441 D = iau_S06A ( DATE1, DATE2 )
442 D = iau_SP00 ( DATE1, DATE2 )
443 CALL iau_STARPM ( RA1, DEC1, PMR1, PMD1, PX1, RV1,
444 : EP1A, EP1B, EP2A, EP2B,
445 : RA2, DEC2, PMR2, PMD2, PX2, RV2, J )
446 CALL iau_STARPV ( RA, DEC, PMR, PMD, PX, RV, PV, J )
447 CALL iau_TAITT ( TAI1, TAI2, TT1, TT2, J )
448 CALL iau_TAIUT1 ( TAI1, TAI2, DTA, UT11, UT12, J )
449 CALL iau_TAIUTC ( TAI1, TAI2, UTC1, UTC2, J )
450 CALL iau_TCBTDB ( TCB1, TCB2, TDB1, TDB2, J )
451 CALL iau_TCGTT ( TCG1, TCG2, TT1, TT2, J )
452 CALL iau_TDBTCB ( TDB1, TDB2, TCB1, TCB2, J )
453 CALL iau_TDBTT ( TDB1, TDB2, DTR, TT1, TT2, J )
454 CALL iau_TTTAI ( TT1, TT2, TAI1, TAI2, J )
455 CALL iau_TTTCG ( TT1, TT2, TCG1, TCG2, J )
456 CALL iau_TTTDB ( TT1, TT2, DTR, TDB1, TDB2, J )
457 CALL iau_TTUT1 ( TT1, TT2, DT, UT11, UT12, J )
458 CALL iau_UT1TAI ( UT11, UT12, TAI1, TAI2, J )
459 CALL iau_UT1TT ( UT11, UT12, DT, TT1, TT2, J )
460 CALL iau_UT1UTC ( UT11, UT12, DUT, UTC1, UTC2, J )
461 CALL iau_UTCTAI ( UTC1, UTC2, DTA, TAI1, TAI2, J )
462 CALL iau_UTCUT1 ( UTC1, UTC2, DUT, UT11, UT12, J )
463 CALL iau_XY06 ( DATE1, DATE2, X, Y )
464 CALL iau_XYS00A ( DATE1, DATE2, X, Y, S )
465 CALL iau_XYS00B ( DATE1, DATE2, X, Y, S )
466 CALL iau_XYS06A ( DATE1, DATE2, X, Y, S )
467
468
469CALLS: C VERSION
470
471 iauAb ( pnat, v, s, bm1, ppr );
472 iauApcg ( date1, date2, eb, eh, &astrom );
473 iauApcg13 ( date1, date2, &astrom );
474 iauApci ( date1, date2, eb, eh, x, y, s, &astrom );
475 iauApci13 ( date1, date2, &astrom, &eo );
476 iauApco ( date1, date2, eb, eh, x, y, s,
477 theta, elong, phi, hm, xp, yp, sp,
478 refa, refb, &astrom );
479 i = iauApco13 ( utc1, utc2, dut1, elong, phi, hm, xp, yp,
480 phpa, tc, rh, wl, &astrom, &eo );
481 iauApcs ( date1, date2, pv, eb, eh, &astrom );
482 iauApcs13 ( date1, date2, pv, &astrom );
483 iauAper ( theta, &astrom );
484 iauAper13 ( ut11, ut12, &astrom );
485 iauApio ( sp, theta, elong, phi, hm, xp, yp, refa, refb,
486 &astrom );
487 i = iauApio13 ( utc1, utc2, dut1, elong, phi, hm, xp, yp,
488 phpa, tc, rh, wl, &astrom );
489 iauAtci13 ( rc, dc, pr, pd, px, rv, date1, date2,
490 &ri, &di, &eo );
491 iauAtciq ( rc, dc, pr, pd, px, rv, &astrom, &ri, &di );
492 iauAtciqn ( rc, dc, pr, pd, px, rv, astrom, n, b, &ri, &di );
493 iauAtciqz ( rc, dc, &astrom, &ri, &di );
494 i = iauAtco13 ( rc, dc, pr, pd, px, rv, utc1, utc2, dut1,
495 elong phi, hm, xp, yp, phpa, tc, rh, wl,
496 aob, zob, hob, dob, rob, eo );
497 iauAtic13 ( ri, di, date1, date2, &rc, &dc, &eo );
498 iauAticq ( ri, di, &astrom, &rc, &dc );
499 iauAtciqn ( ri, di, astrom, n, b, &rc, &dc );
500 i = iauAtio13 ( ri, di, utc1, utc2, dut1, elong, phi, hm, xp, yp,
501 phpa, tc, rh, wl, aob, zob, hob, dob, rob );
502 iauAtioq ( ri, di, &astrom, &aob, &zob, &hob, &dob, &rob );
503 i = iauAtoc13 ( type, ob1, ob2, utc1, utc2, dut1,
504 elong, phi, hm, xp, yp, phpa, tc, rh, wl,
505 &rc, &dc );
506 i = iauAtoi13 ( type, ob1, ob2, utc1, utc2, dut1, elong, phi, hm,
507 xp, yp, phpa, tc, rh, wl, &ri, &di );
508 iauAtoiq ( type, ob1, ob2, &astrom, &ri, &di );
509 iauBi00 ( &dpsibi, &depsbi, &dra );
510 iauBp00 ( date1, date2, rb, rp, rbp );
511 iauBp06 ( date1, date2, rb, rp, rbp );
512 iauBpn2xy ( rbpn, &x, &y );
513 iauC2i00a ( date1, date2, rc2i );
514 iauC2i00b ( date1, date2, rc2i );
515 iauC2i06a ( date1, date2, rc2i );
516 iauC2ibpn ( date1, date2, rbpn, rc2i );
517 iauC2ixy ( date1, date2, x, y, rc2i );
518 iauC2ixys ( x, y, s, rc2i );
519 iauC2t00a ( tta, ttb, uta, utb, xp, yp, rc2t );
520 iauC2t00b ( tta, ttb, uta, utb, xp, yp, rc2t );
521 iauC2t06a ( tta, ttb, uta, utb, xp, yp, rc2t );
522 iauC2tcio ( rc2i, era, rpom, rc2t );
523 iauC2teqx ( rbpn, gst, rpom, rc2t );
524 iauC2tpe ( tta, ttb, uta, utb, dpsi, deps, xp, yp, rc2t );
525 iauC2txy ( tta, ttb, uta, utb, x, y, xp, yp, rc2t );
526 i = iauCal2jd ( iy, im, id, &djm0, &djm );
527 i = iauD2dtf ( scale, ndp, d1, d2, &iy, &im, &id, ihmsf );
528 i = iauDat ( iy, im, id, fd, &deltat );
529 d = iauDtdb ( date1, date2, ut, elong, u, v );
530 i = iauDtf2d ( scale, iy, im, id, ihr, imn, sec, &d1, &d2 );
531 d = iauEe00 ( date1, date2, epsa, dpsi );
532 d = iauEe00a ( date1, date2 );
533 d = iauEe00b ( date1, date2 );
534 d = iauEe06 ( date1, date2 );
535 d = iauEect00 ( date1, date2 );
536 i = iauEform ( n, &a, &f );
537 d = iauEo06 ( date1, date2 );
538 d = iauEors ( rnpb, s );
539 d = iauEpb ( dj1, dj2 );
540 iauEpb2jd ( epb, &djm0, &djm );
541 d = iauEpj ( dj1, dj2 );
542 iauEpj2jd ( epj, &djm0, &djm );
543 i = iauEpv00 ( dj1, dj2, pvh, pvb );
544 d = iauEqeq94 ( date1, date2 );
545 d = iauEra00 ( dj1, dj2 );
546 d = iauFad03 ( t );
547 d = iauFae03 ( t );
548 d = iauFaf03 ( t );
549 d = iauFaju03 ( t );
550 d = iauFal03 ( t );
551 d = iauFalp03 ( t );
552 d = iauFama03 ( t );
553 d = iauFame03 ( t );
554 d = iauFane03 ( t );
555 d = iauFaom03 ( t );
556 d = iauFapa03 ( t );
557 d = iauFasa03 ( t );
558 d = iauFaur03 ( t );
559 d = iauFave03 ( t );
560 iauFk52h ( r5, d5, dr5, dd5, px5, rv5,
561 &rh, &dh, &drh, &ddh, &pxh, &rvh );
562 iauFk5hip ( r5h, s5h );
563 iauFk5hz ( r5, d5, date1, date2, &rh, &dh );
564 iauFw2m ( gamb, phib, psi, eps, r );
565 iauFw2xy ( gamb, phib, psi, eps, &x, &y );
566 iauG2icrs ( dl, db, &dr, &dd );
567 i = iauGc2gd ( n, xyz, &elong, &phi, &height );
568 i = iauGc2gde ( a, f, xyz, &elong, &phi, &height );
569 i = iauGd2gc ( n, elong, phi, height, xyz );
570 i = iauGd2gce ( a, f, elong, phi, height, xyz );
571 d = iauGmst00 ( uta, utb, tta, ttb );
572 d = iauGmst06 ( uta, utb, tta, ttb );
573 d = iauGmst82 ( uta, utb );
574 d = iauGst00a ( uta, utb, tta, ttb );
575 d = iauGst00b ( uta, utb );
576 d = iauGst06 ( uta, utb, tta, ttb, rnpb );
577 d = iauGst06a ( uta, utb, tta, ttb );
578 d = iauGst94 ( uta, utb );
579 iauH2fk5 ( rh, dh, drh, ddh, pxh, rvh,
580 &r5, &d5, &dr5, &dd5, &px5, &rv5 );
581 iauHfk5z ( rh, dh, date1, date2,
582 &r5, &d5, &dr5, &dd5 );
583 iauIcrs2g ( dr, dd, &dl, &db );
584 i = iauJd2cal ( dj1, dj2, &iy, &im, &id, &fd );
585 i = iauJdcalf ( ndp, dj1, dj2, iymdf );
586 iauLd ( bm, p, q, e, em, dlim, p1 );
587 iauLdn ( n, b, ob, sc, sn );
588 iauLdsun ( p, e, em, p1 );
589 iauNum00a ( date1, date2, rmatn );
590 iauNum00b ( date1, date2, rmatn );
591 iauNum06a ( date1, date2, rmatn );
592 iauNumat ( epsa, dpsi, deps, rmatn );
593 iauNut00a ( date1, date2, &dpsi, &deps );
594 iauNut00b ( date1, date2, &dpsi, &deps );
595 iauNut06a ( date1, date2, &dpsi, &deps );
596 iauNut80 ( date1, date2, &dpsi, &deps );
597 iauNutm80 ( date1, date2, rmatn );
598 d = iauObl06 ( date1, date2 );
599 d = iauObl80 ( date1, date2 );
600 iauPb06 ( date1, date2, &bzeta, &bz, &btheta );
601 iauPfw06 ( date1, date2, &gamb, &phib, &psib, &epsa );
602 i = iauPlan94 ( date1, date2, np, pv );
603 iauPmat00 ( date1, date2, rbp );
604 iauPmat06 ( date1, date2, rbp );
605 iauPmat76 ( date1, date2, rmatp );
606 iauPmpx ( rc, dc, pr, pd, px, rv, pmt, pob, pco );
607 i = iauPmsafe ( ra1, dec1, pmr1, pmd1, px1, rv1,
608 ep1a, ep1b, ep2a, ep2b,
609 &ra2, &dec2, &pmr2, &pmd2, &px2, &rv2);
610 iauPn00 ( date1, date2, dpsi, deps,
611 &epsa, rb, rp, rbp, rn, rbpn );
612 iauPn00a ( date1, date2,
613 &dpsi, &deps, &epsa, rb, rp, rbp, rn, rbpn );
614 iauPn00b ( date1, date2,
615 &dpsi, &deps, &epsa, rb, rp, rbp, rn, rbpn );
616 iauPn06 ( date1, date2, dpsi, deps,
617 &epsa, rb, rp, rbp, rn, rbpn );
618 iauPn06a ( date1, date2,
619 &dpsi, &deps, &epsa, rb, rp, rbp, rn, rbpn );
620 iauPnm00a ( date1, date2, rbpn );
621 iauPnm00b ( date1, date2, rbpn );
622 iauPnm06a ( date1, date2, rnpb );
623 iauPnm80 ( date1, date2, rmatpn );
624 iauP06e ( date1, date2,
625 &eps0, &psia, &oma, &bpa, &bqa, &pia, &bpia,
626 &epsa, &chia, &za, &zetaa, &thetaa, &pa,
627 &gam, &phi, &psi );
628 iauPom00 ( xp, yp, sp, rpom );
629 iauPr00 ( date1, date2, &dpsipr, &depspr );
630 iauPrec76 ( date01, date02, date11, date12, &zeta, &z, &theta );
631 i = iauPvstar ( pv, &ra, &dec, &pmr, &pmd, &px, &rv );
632 iauPvtob ( elong, phi, hm, xp, yp, sp, theta, pv );
633 iauRefco ( phpa, tc, rh, wl, refa, refb );
634 d = iauS00 ( date1, date2, x, y );
635 d = iauS00a ( date1, date2 );
636 d = iauS00b ( date1, date2 );
637 d = iauS06 ( date1, date2, x, y );
638 d = iauS06a ( date1, date2 );
639 d = iauSp00 ( date1, date2 );
640 i = iauStarpm ( ra1, dec1, pmr1, pmd1, px1, rv1,
641 ep1a, ep1b, ep2a, ep2b,
642 &ra2, &dec2, &pmr2, &pmd2, &px2, &rv2 );
643 i = iauStarpv ( ra, dec, pmr, pmd, px, rv, pv );
644 i = iauTaitt ( tai1, tai2, &tt1, &tt2 );
645 i = iauTaiut1 ( tai1, tai2, dta, &ut11, &ut12 );
646 i = iauTaiutc ( tai1, tai2, &utc1, &utc2 );
647 i = iauTcbtdb ( tcb1, tcb2, &tdb1, &tdb2 );
648 i = iauTcgtt ( tcg1, tcg2, &tt1, &tt2 );
649 i = iauTdbtcb ( tdb1, tdb2, &tcb1, &tcb2 );
650 i = iauTdbtt ( tdb1, tdb2, dtr, &tt1, &tt2 );
651 i = iauTttai ( tt1, tt2, &tai1, &tai2 );
652 i = iauTttcg ( tt1, tt2, &tcg1, &tcg2 );
653 i = iauTttdb ( tt1, tt2, dtr, &tdb1, &tdb2 );
654 i = iauTtut1 ( tt1, tt2, dt, &ut11, &ut12 );
655 i = iauUt1tai ( ut11, ut12, &tai1, &tai2 );
656 i = iauUt1tt ( ut11, ut12, dt, &tt1, &tt2 );
657 i = iauUt1utc ( ut11, ut12, dut, &utc1, &utc2 );
658 i = iauUtctai ( utc1, utc2, dta, &tai1, &tai2 );
659 i = iauUtcut1 ( utc1, utc2, dut, &ut11, &ut12 );
660 iauXy06 ( date1, date2, &x, &y );
661 iauXys00a ( date1, date2, &x, &y, &s );
662 iauXys00b ( date1, date2, &x, &y, &s );
663 iauXys06a ( date1, date2, &x, &y, &s );
Note: See TracBrowser for help on using the repository browser.