Index: /trunk/FACT++/sofa/00READ.ME =================================================================== --- /trunk/FACT++/sofa/00READ.ME (revision 18346) +++ /trunk/FACT++/sofa/00READ.ME (revision 18346) @@ -0,0 +1,49 @@ + +SOFA-Issue: 2015-02-09 + +This is the IAU Standards of Fundamental Astronomy (SOFA) Libraries product, +issued on 2015-02-09. The tag `SOFA-Issue' above defines this release and +differentiates it from previous or subsequent releases of the SOFA product. +The 00READ.ME file must remain with this distribution set. + +Changes made since the previous release are noted in the file changes.lis. + +Notes: + +1/ Unix users: The distribution set contains a simple makefile which + can be used to create a single object library for the SOFA Libraries. + To build the object library: + + a/ Examine the makefile to be sure definition of the C compiler + is correct for your system. You need an ANSI standard compliant + C compiler. Edit the CCOMPC macro in the makefile as necessary. + + b/ To create libsofa.a, execute make: + + % make + + (where % is the shell prompt). + + c/ To remove the object files: + + % make clean + + To link with the SOFA library, include the library in the compile/link + command in the normal Unix fashion, eg: + + % gcc myprog.c -o myprog libsofa.a + + You should specify the appropriate C compiler name for `gcc' + in the above command sequence. + + +2/ Windows/DOS/Mac users: There is no `build' procedure to create a linkable + object library or DLL for the SOFA Libraries. This is due to the many + different C compilers and development environments available on + Windows/DOS and Mac machines. + + To use the SOFA routines with your program(s), you must use your preferred + development environment to create the appropriate library or DLL. + +IAU SOFA Center +2015/02/09 Index: /trunk/FACT++/sofa/doc/board.lis =================================================================== --- /trunk/FACT++/sofa/doc/board.lis (revision 18346) +++ /trunk/FACT++/sofa/doc/board.lis (revision 18346) @@ -0,0 +1,35 @@ +board.lis 2014 February 20 + + + +IAU STANDARDS OF FUNDAMENTAL ASTRONOMY BOARD + + +Current Membership + + John Bangert United States Naval Observatory, retired + Steven Bell Her Majesty's Nautical Almanac Office + Nicole Capitaine Paris Observatory + William Folkner Jet Propulsion Laboratory + Catherine Hohenkerk Her Majesty's Nautical Almanac Office (Chair) + Jinling Li Shanghai Astronomical Observatory + Brian Luzum United States Naval Observatory (IERS) + Zinovy Malkin Pulkovo Observatory, St Petersburg + Jeffrey Percival University of Wisconsin + Scott Ransom National Radio Astronomy Observatory + Patrick Wallace RAL Space, retired + + +Past Members + + Mark Calabretta Australia Telescope National Facility, retired + Wim Brouw University of Groningen + Anne-Marie Gontier Paris Observatory + George Hobbs Australia Telescope National Facility + George Kaplan United States Naval Observatory + Dennis McCarthy United States Naval Observatory + Skip Newhall Jet Propulsion Laboratory + Jin Wen-Jing Shanghai Observatory + + +The e-mail for the Board chair is Catherine.Hohenkerk@ukho.gov.uk Index: /trunk/FACT++/sofa/doc/changes.lis =================================================================== --- /trunk/FACT++/sofa/doc/changes.lis (revision 18346) +++ /trunk/FACT++/sofa/doc/changes.lis (revision 18346) @@ -0,0 +1,135 @@ + Updates for SOFA Release 11 : 2015 February 2 + - - - - - - - - - - - - - - - - - - - - - - - + +Changes/updates fall into the following categories: + +1. A leap second at the end of June 2015, requires updates to the + iau_DAT (dat.for) and iauDat (dat.c) routines. + +2. Introduction of two new routines, G2ICRS and ICRS2G (both Fortran + and C), creating a new category entitled "Galactic coordinates". + +3. A few minor changes to a few routines to remove some compiler + warnings; (1) Changes in the test for zero in C2IXYZ, GC2GDE, RM2V, + RV2M, and multithread precaution in CAL2JD in the Fortan version only. + +4. Updated test programs t_sofa_f.for and t_sofa_c.c. Updated the + include header file sofa.h. + +5. Documentation revision, moving the routines STARPV and PVSTAR + (category Star Space Motion) and PMSAFE and STARPM (category Star + Catalog Conversions) into Astrometry. This results in the removal + of the category Star Space Motion. + ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +Fortran: +-------- + +iau_C2IXYS there was a test for zero that could potentially cause + compiler warnings. The test has been changed. + +iau_CAL2JD a value in a DATA-initialized array was being changed + during execution. This had consequences for multi-thread + code. The algorithm has been changed to avoid the + difficulty. + +iau_DAT a leap second is now required in UTC for 2015 June 30. + +iau_G2ICRS transformation from Galactic Coordinates to ICRS. A new + routine. + +iau_GC2GDE there was a test for zero that could potentially cause + compiler warnings. The test has been changed. + +iau_ICRS2G transformation from ICRS to Galactic Coordinates. A new + routine. + +iau_RM2V there was a test for zero that could potentially cause + compiler warnings. The test has been changed. + +iau_RV2M there was a test for zero that could potentially cause + compiler warnings. The test has been changed. + +t_sofa_f program updated with the two new Galactic Coordinate + tansformations. + ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +ANSI C: +------- + +iauC2ixys there was a test for zero that could potentially cause + compiler warnings. The test has been changed. + +iauDat a leap second is now required in UTC for 2015 June 30. + +iauG2icrs transformation from Galactic Coordinates to ICRS. A new + routine. + +iauGc2gde there was a test for zero that could potentially cause + compiler warnings. The test has been changed. + +iauIcrs2g transformation from Galactic Coordinates to ICRS. A new + routine. + +iauRm2v there was a test for zero that could potentially cause + compiler warnings. The test has been changed. + +iauRv2m there was a test for zero that could potentially cause + compiler warnings. The test has been changed. + +sofa.h addition of the new functions, removal of duplicate + functions. All functions are listed in the categories + that are given on the website and in the manual. + +t_sofa_c program updated with the two new Galactic Coordinate + tansformations. + ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +Documentation: +-------------- + +intro.lis Minor change. + +sofa_lib.lis New routines added. The routines STARPV, PVSTA, PMSAFE and + STARPM into Astrometry. Category Star Space Motion deleted. + This list harmonised with sofa.h and the website. + ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +End of Updates +2015 February 9 +CYH/SAB + ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Updates for SOFA Release 11a : 2015 March 4 + - - - - - - - - - - - - - - - - - - - - - - + +This minor release (11a) contains a change to suppress a warning message +given by one C compiler. The change does not affect the behaviour of the +routine and it is not essential that you update your libraries +(particularly if you are a Fortran user). + +The change had already been made in the 2014 September 9 (10c) release, +but due to an oversight was not present in the current release. The +Fortran code has also been modified for harmony. + +Summary of Changes + +iauDat A change has been made to the ANSI C version to suppress + an array bounds warning produced by recent gcc versions. + +iau_DAT A change has been made to the Fortran version to ensure + equivalence between the Fortran and ANSI C versions. + ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +End of Updates +2015 March 4 +CYH ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Index: /trunk/FACT++/sofa/doc/consts.lis =================================================================== --- /trunk/FACT++/sofa/doc/consts.lis (revision 18346) +++ /trunk/FACT++/sofa/doc/consts.lis (revision 18346) @@ -0,0 +1,54 @@ +consts.lis 2008 September 30 + + +SOFA Fortran constants +---------------------- + +These must be used exactly as presented below. + +* Pi + DOUBLE PRECISION DPI + PARAMETER ( DPI = 3.141592653589793238462643D0 ) + +* 2Pi + DOUBLE PRECISION D2PI + PARAMETER ( D2PI = 6.283185307179586476925287D0 ) + +* Radians to hours + DOUBLE PRECISION DR2H + PARAMETER ( DR2H = 3.819718634205488058453210D0 ) + +* Radians to seconds + DOUBLE PRECISION DR2S + PARAMETER ( DR2S = 13750.98708313975701043156D0 ) + +* Radians to degrees + DOUBLE PRECISION DR2D + PARAMETER ( DR2D = 57.29577951308232087679815D0 ) + +* Radians to arc seconds + DOUBLE PRECISION DR2AS + PARAMETER ( DR2AS = 206264.8062470963551564734D0 ) + +* Hours to radians + DOUBLE PRECISION DH2R + PARAMETER ( DH2R = 0.2617993877991494365385536D0 ) + +* Seconds to radians + DOUBLE PRECISION DS2R + PARAMETER ( DS2R = 7.272205216643039903848712D-5 ) + +* Degrees to radians + DOUBLE PRECISION DD2R + PARAMETER ( DD2R = 1.745329251994329576923691D-2 ) + +* Arc seconds to radians + DOUBLE PRECISION DAS2R + PARAMETER ( DAS2R = 4.848136811095359935899141D-6 ) + + +SOFA C constants +---------------- + +The constants used by the C version of SOFA are defined in the header +file sofam.h. Index: /trunk/FACT++/sofa/doc/contents.lis =================================================================== --- /trunk/FACT++/sofa/doc/contents.lis (revision 18346) +++ /trunk/FACT++/sofa/doc/contents.lis (revision 18346) @@ -0,0 +1,25 @@ +contents.lis 2008 October 8 + + + -------- + CONTENTS + -------- + + + + + + 1) Introduction + + 2) The SOFA Astronomy Library + + 3) The SOFA Vector/Matrix Library + + 4) The individual routines + + + A1 The SOFA copyright notice + + A2 Constants + + A3 SOFA Board membership Index: /trunk/FACT++/sofa/doc/copyr.lis =================================================================== --- /trunk/FACT++/sofa/doc/copyr.lis (revision 18346) +++ /trunk/FACT++/sofa/doc/copyr.lis (revision 18346) @@ -0,0 +1,105 @@ +copyr.lis 2015 January 5 + + +COPYRIGHT NOTICE + + +Text equivalent to the following appears at the end of every SOFA +routine. (There are small formatting differences between the Fortran +and C versions.) + +*+---------------------------------------------------------------------- +* +* Copyright (C) 2015 +* Standards Of Fundamental Astronomy Board +* of the International Astronomical Union. +* +* ===================== +* SOFA Software License +* ===================== +* +* NOTICE TO USER: +* +* BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +* CONDITIONS WHICH APPLY TO ITS USE. +* +* 1. The Software is owned by the IAU SOFA Board ("SOFA"). +* +* 2. Permission is granted to anyone to use the SOFA software for any +* purpose, including commercial applications, free of charge and +* without payment of royalties, subject to the conditions and +* restrictions listed below. +* +* 3. You (the user) may copy and distribute SOFA source code to others, +* and use and adapt its code and algorithms in your own software, +* on a world-wide, royalty-free basis. That portion of your +* distribution that does not consist of intact and unchanged copies +* of SOFA source code files is a "derived work" that must comply +* with the following requirements: +* +* a) Your work shall be marked or carry a statement that it +* (i) uses routines and computations derived by you from +* software provided by SOFA under license to you; and +* (ii) does not itself constitute software provided by and/or +* endorsed by SOFA. +* +* b) The source code of your derived work must contain descriptions +* of how the derived work is based upon, contains and/or differs +* from the original SOFA software. +* +* c) The names of all routines in your derived work shall not +* include the prefix "iau" or "sofa" or trivial modifications +* thereof such as changes of case. +* +* d) The origin of the SOFA components of your derived work must +* not be misrepresented; you must not claim that you wrote the +* original software, nor file a patent application for SOFA +* software or algorithms embedded in the SOFA software. +* +* e) These requirements must be reproduced intact in any source +* distribution and shall apply to anyone to whom you have +* granted a further right to modify the source code of your +* derived work. +* +* Note that, as originally distributed, the SOFA software is +* intended to be a definitive implementation of the IAU standards, +* and consequently third-party modifications are discouraged. All +* variations, no matter how minor, must be explicitly marked as +* such, as explained above. +* +* 4. You shall not cause the SOFA software to be brought into +* disrepute, either by misuse, or use for inappropriate tasks, or +* by inappropriate modification. +* +* 5. The SOFA software is provided "as is" and SOFA makes no warranty +* as to its use or performance. SOFA does not and cannot warrant +* the performance or results which the user may obtain by using the +* SOFA software. SOFA makes no warranties, express or implied, as +* to non-infringement of third party rights, merchantability, or +* fitness for any particular purpose. In no event will SOFA be +* liable to the user for any consequential, incidental, or special +* damages, including any lost profits or lost savings, even if a +* SOFA representative has been advised of such damages, or for any +* claim by any third party. +* +* 6. The provision of any version of the SOFA software under the terms +* and conditions specified herein does not imply that future +* versions will also be made available under the same terms and +* conditions. +* +* In any published work or commercial product which uses the SOFA +* software directly, acknowledgement (see www.iausofa.org) is +* appreciated. +* +* Correspondence concerning SOFA software should be addressed as +* follows: +* +* By email: sofa@ukho.gov.uk +* By post: IAU SOFA Center +* HM Nautical Almanac Office +* UK Hydrographic Office +* Admiralty Way, Taunton +* Somerset, TA1 2DN +* United Kingdom +* +*----------------------------------------------------------------------- Index: /trunk/FACT++/sofa/doc/intro.lis =================================================================== --- /trunk/FACT++/sofa/doc/intro.lis (revision 18346) +++ /trunk/FACT++/sofa/doc/intro.lis (revision 18346) @@ -0,0 +1,213 @@ +intro.lis 2015 January 29 + + + ------------------------------- + THE IAU-SOFA SOFTWARE LIBRARIES + ------------------------------- + + + SOFA stands for "Standards Of Fundamental Astronomy". The SOFA + software libraries are a collection of subprograms, in source- + code form, which implement official IAU algorithms for fundamental- + astronomy computations. The subprograms at present comprise 166 + "astronomy" routines supported by 55 "vector/matrix" routines, + available in both Fortran77 and C implementations. + + +THE SOFA INITIATIVE + +SOFA is an IAU Service which operates as a Standing Working Group under +Division A (Fundamental Astronomy). + +The IAU set up the SOFA initiative at the 1994 General Assembly, to +promulgate an authoritative set of fundamental-astronomy constants and +algorithms. At the subsequent General Assembly, in 1997, the +appointment of a review board and the selection of a site for the SOFA +Center (the outlet for SOFA products) were announced. + +The SOFA initiative was originally proposed by the IAU Working Group on +Astronomical Standards (WGAS), under the chairmanship of +Toshio Fukushima. The proposal was for "...new arrangements to +establish and maintain an accessible and authoritative set of constants, +algorithms and procedures that implement standard models used in +fundamental astronomy". The SOFA Software Libraries implement the +"algorithms" part of the SOFA initiative. They were developed under the +supervision of an international panel called the SOFA Board. The +current membership of this panel is listed in an appendix. + +A feature of the original SOFA software proposals was that the products +would be self-contained and not depend on other software. This includes +basic documentation, which, like the present file, will mostly be plain +ASCII text. It should also be noted that there is no assumption that +the software will be used on a particular computer and Operating System. +Although OS-related facilities may be present (Unix make files for +instance, use by the SOFA Center of automatic code management systems, +HTML versions of some documentation), the routines themselves will be +visible as individual text files and will run on a variety of platforms. + + +ALGORITHMS + +The SOFA Board's initial goal has been to create a set of callable +subprograms. Whether "subroutines" or "functions", they are all +referred to simply as "routines". They are designed for use by software +developers wishing to write complete applications; no runnable, free- +standing applications are included in SOFA's present plans. + +The algorithms are drawn from a variety of sources. Because most of the +routines so far developed have either been standard "text-book" +operations or implement well-documented standard algorithms, it has not +been necessary to invite the whole community to submit algorithms, +though consultation with authorities has occurred where necessary. It +should also be noted that consistency with the conventions published by +the International Earth Rotation Service was a stipulation in the +original SOFA proposals, further constraining the software designs. +This state of affairs will continue to exist for some time, as there is +a large backlog of agreed extensions to work on. However, in the future +the Board may decide to call for proposals, and is in the meantime +willing to look into any suggestions that are received by the SOFA +Center. + + +SCOPE + +The routines currently available are listed in the next two chapters of +this document. + +The "astronomy" library comprises 164 routines (plus one obsolete +Fortran routine that now appears under a revised name). The areas +addressed include calendars, astrometry, time scales, Earth rotation, +ephemerides, precession-nutation, star catalog transformations, +and geodetic/geocentric transformations. + +The "vector-matrix" library, comprising 55 routines, contains a +collection of simple tools for manipulating the vectors, matrices and +angles used by the astronomy routines. + +There is no explicit commitment by SOFA to support historical models, +though as time goes on a legacy of superseded models will naturally +accumulate. There is, for example, no support of B1950/FK4 star +coordinates, or pre-1976 precession models, though these capabilities +could be added were there significant demand. + +Though the SOFA software libraries are rather limited in scope, and are +likely to remain so for a considerable time, they do offer distinct +advantages to prospective users. In particular, the routines are: + + * authoritative: they are IAU-backed and have been constructed with + great care; + + * practical: they are straightforward to use in spite of being + precise and rigorous (to some stated degree); + + * accessible and supported: they are downloadable from an easy-to- + find place, they are in an integrated and consistent form, they + come with adequate internal documentation, and help for users is + available. + + +VERSIONS + +Once it has been published, an issue is never revised or updated, and +remains accessible indefinitely. Subsequent issues may, however, +include corrected versions under the original routine name and +filenames. However, where a different model is introduced, it will have +a different name. + +The issues will be referred to by the date when they were announced. +The frequency of re-issue will be decided by the Board, taking into +account the importance of the changes and the impact on the user +community. + + +DOCUMENTATION + +At present there is little free-standing documentation about individual +routines. However, each routine has preamble comments which specify in +detail what the routine does and how it is used. + +The file sofa_pn.pdf describes the SOFA tools for precession-nutation +and other aspects of Earth attitude and includes example code and (see +the appendix) diagrams showing the interrelationships between the +routines supporting the latest (IAU 2006/2000A) models. Four other +documents introduce time scale transformations (sofa_ts_f.pdf and +sofa_ts_c.pdf for Fortran and C users respectively) and astrometric +transformations (sofa_ast_f.pdf and sofa_ast_c.pdf). + + +PROGRAMMING LANGUAGES AND STANDARDS + +The SOFA routines are available in two programming languages at present: +Fortran77 and ANSI C. Related software in other languages is under +consideration. + +The Fortran code conforms to ANSI X3.9-1978 in all but two minor +respects: each has an IMPLICIT NONE declaration, and its name has a +prefix of "iau_" and may be longer than 6 characters. A global edit to +erase both of these will produce ANSI-compliant code with no change in +its function. + +Coding style, and restrictions on the range of language features, have +been much debated by the Board, and the results comply with the majority +view. There is (at present) no document that defines the standards, but +the code itself offers a wide range of examples of what is acceptable. + +The Fortran routines contain explicit numerical constants (the INCLUDE +statement is not part of ANSI Fortran77). These are drawn from the +file consts.lis, which is listed in an appendix. Constants for the +SOFA/C functions are defined in a header file sofam.h. + +The naming convention is such that a SOFA routine referred to +generically as "EXAMPL" exists as a Fortran subprogram iau_EXAMPL and a +C function iauExampl. The calls for the two versions are very similar, +with the same arguments in the same order. In a few cases, the C +equivalent of a Fortran SUBROUTINE subprogram uses a return value rather +than an argument. + +Each language version includes a "testbed" main-program that can be used +to verify that the SOFA routines have been correctly compiled on the end +user's system. The Fortran and C versions are called t_sofa_f.for and +t_sofa_c.c respectively. The testbeds execute every SOFA routine and +check that the results are within expected accuracy margins. It is not +possible to guarantee that all platforms will meet the rather stringent +criteria that have been used, and an occasional warning message may be +encountered on some systems. + + +COPYRIGHT ISSUES + +Copyright for all of the SOFA software and documentation is owned by the +IAU SOFA Board. The Software is made available free of charge for all +classes of user, including commercial. However, there are strict rules +designed to avoid unauthorized variants coming into circulation. It is +permissible to distribute derived works and other modifications, but +they must be clearly marked to avoid confusion with the SOFA originals. + +Further details are included in the block of comments which concludes +every routine. The text is also set out in an appendix to the present +document. + + +ACCURACY + +The SOFA policy is to organize the calculations so that the machine +accuracy is fully exploited. The gap between the precision of the +underlying model or theory and the computational resolution has to be +kept as large as possible, hopefully leaving several orders of +magnitude of headroom. + +The SOFA routines in some cases involve design compromises between rigor +and ease of use (and also speed, though nowadays this is seldom a major +concern). + + +ACKNOWLEDGEMENTS + +The Board is indebted to a number of contributors, who are acknowledged +in the preamble comments of the routines concerned. + +The Board's effort is provided by the members' individual institutes. + +Resources for operating the SOFA Center are provided by Her Majesty's +Nautical Almanac Office, operated by the United Kingdom Hydrographic +Office. Index: /trunk/FACT++/sofa/doc/manual.lis =================================================================== --- /trunk/FACT++/sofa/doc/manual.lis (revision 18346) +++ /trunk/FACT++/sofa/doc/manual.lis (revision 18346) @@ -0,0 +1,16477 @@ + + + + + + + + + + + + + + + + + + + T H E + + + SSSSS OOOOOO FFFFFFFFFFFFF AAAAAAA + SSSSSSSSSS OOOOOOOOOOOO FFFFFFFFFFFF AAAAAAAA + SSSSSSSSSSS OOOOOOOOOOOOOO FFFFFFFFFFFF AAAA AAAA + SSSS S OOOOOO OOOOO FFFF AAAA AAAA + SSSSS OOOOO OOOO FFFFF AAAA AAAA + SSSSSSSSSS OOOO OOOOO FFFFFFFFFFFF AAAA AAAA + SSSSSSSSS OOOOO OOOO FFFFFFFFFFFF AAAAAAAAAAAAA + SSSSS OOOO OOOO FFFF AAAAAAAAAAAAAA + S SSSS OOOOO OOOOO FFFF AAAAAAAAAAAAAAA + SSSSSSSSSSS OOOOOOOOOOOOO FFFF AAAA AAAAA + SSSSSSSSS OOOOOOOOOO FFFF AAAA AAAAA + SSSS OOOOO FFFF AAAA AAAAA + + + S O F T W A R E + + L I B R A R I E S + + + + + + + International Astronomical Union + + Division A: Fundamental Astronomy + + + Standards Of Fundamental Astronomy Board + + + + + + Release 11 + + 2015 February 09 + + +contents.lis 2008 October 8 + + + -------- + CONTENTS + -------- + + + + + + 1) Introduction + + 2) The SOFA Astronomy Library + + 3) The SOFA Vector/Matrix Library + + 4) The individual routines + + + A1 The SOFA copyright notice + + A2 Constants + + A3 SOFA Board membership + + +intro.lis 2015 January 29 + + + ------------------------------- + THE IAU-SOFA SOFTWARE LIBRARIES + ------------------------------- + + + SOFA stands for "Standards Of Fundamental Astronomy". The SOFA + software libraries are a collection of subprograms, in source- + code form, which implement official IAU algorithms for fundamental- + astronomy computations. The subprograms at present comprise 166 + "astronomy" routines supported by 55 "vector/matrix" routines, + available in both Fortran77 and C implementations. + + +THE SOFA INITIATIVE + +SOFA is an IAU Service which operates as a Standing Working Group under +Division A (Fundamental Astronomy). + +The IAU set up the SOFA initiative at the 1994 General Assembly, to +promulgate an authoritative set of fundamental-astronomy constants and +algorithms. At the subsequent General Assembly, in 1997, the +appointment of a review board and the selection of a site for the SOFA +Center (the outlet for SOFA products) were announced. + +The SOFA initiative was originally proposed by the IAU Working Group on +Astronomical Standards (WGAS), under the chairmanship of +Toshio Fukushima. The proposal was for "...new arrangements to +establish and maintain an accessible and authoritative set of constants, +algorithms and procedures that implement standard models used in +fundamental astronomy". The SOFA Software Libraries implement the +"algorithms" part of the SOFA initiative. They were developed under the +supervision of an international panel called the SOFA Board. The +current membership of this panel is listed in an appendix. + +A feature of the original SOFA software proposals was that the products +would be self-contained and not depend on other software. This includes +basic documentation, which, like the present file, will mostly be plain +ASCII text. It should also be noted that there is no assumption that +the software will be used on a particular computer and Operating System. +Although OS-related facilities may be present (Unix make files for +instance, use by the SOFA Center of automatic code management systems, +HTML versions of some documentation), the routines themselves will be +visible as individual text files and will run on a variety of platforms. + + +ALGORITHMS + +The SOFA Board's initial goal has been to create a set of callable +subprograms. Whether "subroutines" or "functions", they are all +referred to simply as "routines". They are designed for use by software +developers wishing to write complete applications; no runnable, free- +standing applications are included in SOFA's present plans. + +The algorithms are drawn from a variety of sources. Because most of the +routines so far developed have either been standard "text-book" +operations or implement well-documented standard algorithms, it has not +been necessary to invite the whole community to submit algorithms, +though consultation with authorities has occurred where necessary. It +should also be noted that consistency with the conventions published by +the International Earth Rotation Service was a stipulation in the +original SOFA proposals, further constraining the software designs. +This state of affairs will continue to exist for some time, as there is +a large backlog of agreed extensions to work on. However, in the future +the Board may decide to call for proposals, and is in the meantime +willing to look into any suggestions that are received by the SOFA +Center. + + +SCOPE + +The routines currently available are listed in the next two chapters of +this document. + +The "astronomy" library comprises 164 routines (plus one obsolete +Fortran routine that now appears under a revised name). The areas +addressed include calendars, astrometry, time scales, Earth rotation, +ephemerides, precession-nutation, star catalog transformations, +and geodetic/geocentric transformations. + +The "vector-matrix" library, comprising 55 routines, contains a +collection of simple tools for manipulating the vectors, matrices and +angles used by the astronomy routines. + +There is no explicit commitment by SOFA to support historical models, +though as time goes on a legacy of superseded models will naturally +accumulate. There is, for example, no support of B1950/FK4 star +coordinates, or pre-1976 precession models, though these capabilities +could be added were there significant demand. + +Though the SOFA software libraries are rather limited in scope, and are +likely to remain so for a considerable time, they do offer distinct +advantages to prospective users. In particular, the routines are: + + * authoritative: they are IAU-backed and have been constructed with + great care; + + * practical: they are straightforward to use in spite of being + precise and rigorous (to some stated degree); + + * accessible and supported: they are downloadable from an easy-to- + find place, they are in an integrated and consistent form, they + come with adequate internal documentation, and help for users is + available. + + +VERSIONS + +Once it has been published, an issue is never revised or updated, and +remains accessible indefinitely. Subsequent issues may, however, +include corrected versions under the original routine name and +filenames. However, where a different model is introduced, it will have +a different name. + +The issues will be referred to by the date when they were announced. +The frequency of re-issue will be decided by the Board, taking into +account the importance of the changes and the impact on the user +community. + + +DOCUMENTATION + +At present there is little free-standing documentation about individual +routines. However, each routine has preamble comments which specify in +detail what the routine does and how it is used. + +The file sofa_pn.pdf describes the SOFA tools for precession-nutation +and other aspects of Earth attitude and includes example code and (see +the appendix) diagrams showing the interrelationships between the +routines supporting the latest (IAU 2006/2000A) models. Four other +documents introduce time scale transformations (sofa_ts_f.pdf and +sofa_ts_c.pdf for Fortran and C users respectively) and astrometric +transformations (sofa_ast_f.pdf and sofa_ast_c.pdf). + + +PROGRAMMING LANGUAGES AND STANDARDS + +The SOFA routines are available in two programming languages at present: +Fortran77 and ANSI C. Related software in other languages is under +consideration. + +The Fortran code conforms to ANSI X3.9-1978 in all but two minor +respects: each has an IMPLICIT NONE declaration, and its name has a +prefix of "iau_" and may be longer than 6 characters. A global edit to +erase both of these will produce ANSI-compliant code with no change in +its function. + +Coding style, and restrictions on the range of language features, have +been much debated by the Board, and the results comply with the majority +view. There is (at present) no document that defines the standards, but +the code itself offers a wide range of examples of what is acceptable. + +The Fortran routines contain explicit numerical constants (the INCLUDE +statement is not part of ANSI Fortran77). These are drawn from the +file consts.lis, which is listed in an appendix. Constants for the +SOFA/C functions are defined in a header file sofam.h. + +The naming convention is such that a SOFA routine referred to +generically as "EXAMPL" exists as a Fortran subprogram iau_EXAMPL and a +C function iauExampl. The calls for the two versions are very similar, +with the same arguments in the same order. In a few cases, the C +equivalent of a Fortran SUBROUTINE subprogram uses a return value rather +than an argument. + +Each language version includes a "testbed" main-program that can be used +to verify that the SOFA routines have been correctly compiled on the end +user's system. The Fortran and C versions are called t_sofa_f.for and +t_sofa_c.c respectively. The testbeds execute every SOFA routine and +check that the results are within expected accuracy margins. It is not +possible to guarantee that all platforms will meet the rather stringent +criteria that have been used, and an occasional warning message may be +encountered on some systems. + + +COPYRIGHT ISSUES + +Copyright for all of the SOFA software and documentation is owned by the +IAU SOFA Board. The Software is made available free of charge for all +classes of user, including commercial. However, there are strict rules +designed to avoid unauthorized variants coming into circulation. It is +permissible to distribute derived works and other modifications, but +they must be clearly marked to avoid confusion with the SOFA originals. + +Further details are included in the block of comments which concludes +every routine. The text is also set out in an appendix to the present +document. + + +ACCURACY + +The SOFA policy is to organize the calculations so that the machine +accuracy is fully exploited. The gap between the precision of the +underlying model or theory and the computational resolution has to be +kept as large as possible, hopefully leaving several orders of +magnitude of headroom. + +The SOFA routines in some cases involve design compromises between rigor +and ease of use (and also speed, though nowadays this is seldom a major +concern). + + +ACKNOWLEDGEMENTS + +The Board is indebted to a number of contributors, who are acknowledged +in the preamble comments of the routines concerned. + +The Board's effort is provided by the members' individual institutes. + +Resources for operating the SOFA Center are provided by Her Majesty's +Nautical Almanac Office, operated by the United Kingdom Hydrographic +Office. + + +sofa_lib.lis 2015 January 30 + + ---------------------- + SOFA Astronomy Library + ---------------------- + + +PREFACE + +The routines described here comprise the SOFA astronomy library. Their +general appearance and coding style conforms to conventions agreed by +the SOFA Board, and their functions, names and algorithms have been +ratified by the Board. Procedures for soliciting and agreeing additions +to the library are still evolving. + + +PROGRAMMING LANGUAGES + +The SOFA routines are available in two programming languages at present: +Fortran 77 and ANSI C. + +Except for a single obsolete Fortran routine, which has no C equivalent, +there is a one-to-one relationship between the two language versions. +The naming convention is such that a SOFA routine referred to +generically as "EXAMPL" exists as a Fortran subprogram iau_EXAMPL and a +C function iauExampl. The calls for the two versions are very similar, +with the same arguments in the same order. In a few cases, the C +equivalent of a Fortran SUBROUTINE subprogram uses a return value rather +than an argument. + + +GENERAL PRINCIPLES + +The principal function of the SOFA Astronomy Library is to provide +definitive algorithms. A secondary function is to provide software +suitable for convenient direct use by writers of astronomical +applications. + +The astronomy routines call on the SOFA vector/matrix library routines, +which are separately listed. + +The routines are designed to exploit the full floating-point accuracy +of the machines on which they run, and not to rely on compiler +optimizations. Within these constraints, the intention is that the code +corresponds to the published formulation (if any). + +Dates are always Julian Dates (except in calendar conversion routines) +and are expressed as two double precision numbers which sum to the +required value. + +A distinction is made between routines that implement IAU-approved +models and those that use those models to create other results. The +former are referred to as "canonical models" in the preamble comments; +the latter are described as "support routines". + +Using the library requires knowledge of positional astronomy and +time-scales. These topics are covered in "Explanatory Supplement to the +Astronomical Almanac", 3rd Edition, Sean E. Urban & +P. Kenneth Seidelmann (eds.), University Science Books, 2013. Recent +developments are documented in the scientific journals, and references +to the relevant papers are given in the SOFA code as required. The IERS +Conventions are also an essential reference. The routines concerned +with Earth attitude (precession-nutation etc.) are described in the SOFA +document sofa_pn.pdf. Those concerned with transformations between +different time scales are described in sofa_ts_f.pdf (Fortran) and +sofa_ts_c.pdf (C). Those concerned with astrometric transformations +are described in sofa_ast_f.pdf (Fortran) and sofa_ast_c (C). + + +ROUTINES + + Calendars + + CAL2JD Gregorian calendar to Julian Day number + EPB Julian Date to Besselian Epoch + EPB2JD Besselian Epoch to Julian Date + EPJ Julian Date to Julian Epoch + EPJ2JD Julian Epoch to Julian Date + JD2CAL Julian Date to Gregorian year, month, day, fraction + JDCALF Julian Date to Gregorian date for formatted output + + Astrometry + + AB apply stellar aberration + APCG prepare for ICRS <-> GCRS, geocentric, special + APCG13 prepare for ICRS <-> GCRS, geocentric + APCI prepare for ICRS <-> CIRS, terrestrial, special + APCI13 prepare for ICRS <-> CIRS, terrestrial + APCO prepare for ICRS <-> observed, terrestrial, special + APCO13 prepare for ICRS <-> observed, terrestrial + APCS prepare for ICRS <-> CIRS, space, special + APCS13 prepare for ICRS <-> CIRS, space + APER insert ERA into context + APER13 update context for Earth rotation + APIO prepare for CIRS <-> observed, terrestrial, special + APIO13 prepare for CIRS <-> observed, terrestrial + ATCI13 catalog -> CIRS + ATCIQ quick ICRS -> CIRS + ATCIQN quick ICRS -> CIRS, multiple deflections + ATCIQZ quick astrometric ICRS -> CIRS + ATCO13 ICRS -> observed + ATIC13 CIRS -> ICRS + ATICQ quick CIRS -> ICRS + ATCIQN quick CIRS -> ICRS, multiple deflections + ATIO13 CIRS -> observed + ATIOQ quick CIRS -> observed + ATOC13 observed -> astrometric ICRS + ATOI13 observed -> CIRS + ATOIQ quick observed -> CIRS + LD light deflection by a single solar-system body + LDN light deflection by multiple solar-system bodies + LDSUN light deflection by the Sun + PMPX apply proper motion and parallax + PMSAFE apply proper motion, with zero-parallax precautions + PVTOB observatory position and velocity + PVSTAR space motion pv-vector to star catalog data + REFCO refraction constants + STARPM apply proper motion + STARPV star catalog data to space motion pv-vector + + Time scales + + D2DTF format 2-part JD for output + DAT Delta(AT) (=TAI-UTC) for a given UTC date + DTDB TDB-TT + DTF2D encode time and date fields into 2-part JD + TAITT TAI to TT + TAIUT1 TAI to UT1 + TAIUTC TAI to UTC + TCBTDB TCB to TDB + TCGTT TCG to TT + TDBTCB TDB to TCB + TDBTT TDB to TT + TTTAI TT to TAI + TTTCG TT to TCG + TTTDB TT to TDB + TTUT1 TT to UT1 + UT1TAI UT1 to TAI + UT1TT UT1 to TT + UT1UTC UT1 to UTC + UTCTAI UTC to TAI + UTCUT1 UTC to UT1 + + Earth rotation angle and sidereal time + + EE00 equation of the equinoxes, IAU 2000 + EE00A equation of the equinoxes, IAU 2000A + EE00B equation of the equinoxes, IAU 2000B + EE06A equation of the equinoxes, IAU 2006/2000A + EECT00 equation of the equinoxes complementary terms, IAU 2000 + EQEQ94 equation of the equinoxes, IAU 1994 + ERA00 Earth rotation angle, IAU 2000 + GMST00 Greenwich mean sidereal time, IAU 2000 + GMST06 Greenwich mean sidereal time, IAU 2006 + GMST82 Greenwich mean sidereal time, IAU 1982 + GST00A Greenwich apparent sidereal time, IAU 2000A + GST00B Greenwich apparent sidereal time, IAU 2000B + GST06 Greenwich apparent ST, IAU 2006, given NPB matrix + GST06A Greenwich apparent sidereal time, IAU 2006/2000A + GST94 Greenwich apparent sidereal time, IAU 1994 + + Ephemerides (limited precision) + + EPV00 Earth position and velocity + PLAN94 major-planet position and velocity + + Precession, nutation, polar motion + + BI00 frame bias components, IAU 2000 + BP00 frame bias and precession matrices, IAU 2000 + BP06 frame bias and precession matrices, IAU 2006 + BPN2XY extract CIP X,Y coordinates from NPB matrix + C2I00A celestial-to-intermediate matrix, IAU 2000A + C2I00B celestial-to-intermediate matrix, IAU 2000B + C2I06A celestial-to-intermediate matrix, IAU 2006/2000A + C2IBPN celestial-to-intermediate matrix, given NPB matrix, IAU 2000 + C2IXY celestial-to-intermediate matrix, given X,Y, IAU 2000 + C2IXYS celestial-to-intermediate matrix, given X,Y and s + C2T00A celestial-to-terrestrial matrix, IAU 2000A + C2T00B celestial-to-terrestrial matrix, IAU 2000B + C2T06A celestial-to-terrestrial matrix, IAU 2006/2000A + C2TCIO form CIO-based celestial-to-terrestrial matrix + C2TEQX form equinox-based celestial-to-terrestrial matrix + C2TPE celestial-to-terrestrial matrix given nutation, IAU 2000 + C2TXY celestial-to-terrestrial matrix given CIP, IAU 2000 + EO06A equation of the origins, IAU 2006/2000A + EORS equation of the origins, given NPB matrix and s + FW2M Fukushima-Williams angles to r-matrix + FW2XY Fukushima-Williams angles to X,Y + NUM00A nutation matrix, IAU 2000A + NUM00B nutation matrix, IAU 2000B + NUM06A nutation matrix, IAU 2006/2000A + NUMAT form nutation matrix + NUT00A nutation, IAU 2000A + NUT00B nutation, IAU 2000B + NUT06A nutation, IAU 2006/2000A + NUT80 nutation, IAU 1980 + NUTM80 nutation matrix, IAU 1980 + OBL06 mean obliquity, IAU 2006 + OBL80 mean obliquity, IAU 1980 + PB06 zeta,z,theta precession angles, IAU 2006, including bias + PFW06 bias-precession Fukushima-Williams angles, IAU 2006 + PMAT00 precession matrix (including frame bias), IAU 2000 + PMAT06 PB matrix, IAU 2006 + PMAT76 precession matrix, IAU 1976 + PN00 bias/precession/nutation results, IAU 2000 + PN00A bias/precession/nutation, IAU 2000A + PN00B bias/precession/nutation, IAU 2000B + PN06 bias/precession/nutation results, IAU 2006 + PN06A bias/precession/nutation results, IAU 2006/2000A + PNM00A classical NPB matrix, IAU 2000A + PNM00B classical NPB matrix, IAU 2000B + PNM06A classical NPB matrix, IAU 2006/2000A + PNM80 precession/nutation matrix, IAU 1976/1980 + P06E precession angles, IAU 2006, equinox based + POM00 polar motion matrix + PR00 IAU 2000 precession adjustments + PREC76 accumulated precession angles, IAU 1976 + S00 the CIO locator s, given X,Y, IAU 2000A + S00A the CIO locator s, IAU 2000A + S00B the CIO locator s, IAU 2000B + S06 the CIO locator s, given X,Y, IAU 2006 + S06A the CIO locator s, IAU 2006/2000A + SP00 the TIO locator s', IERS 2003 + XY06 CIP, IAU 2006/2000A, from series + XYS00A CIP and s, IAU 2000A + XYS00B CIP and s, IAU 2000B + XYS06A CIP and s, IAU 2006/2000A + + Fundamental arguments for nutation etc. + + FAD03 mean elongation of the Moon from the Sun + FAE03 mean longitude of Earth + FAF03 mean argument of the latitude of the Moon + FAJU03 mean longitude of Jupiter + FAL03 mean anomaly of the Moon + FALP03 mean anomaly of the Sun + FAMA03 mean longitude of Mars + FAME03 mean longitude of Mercury + FANE03 mean longitude of Neptune + FAOM03 mean longitude of the Moon's ascending node + FAPA03 general accumulated precession in longitude + FASA03 mean longitude of Saturn + FAUR03 mean longitude of Uranus + FAVE03 mean longitude of Venus + + Star catalog conversions + + FK52H transform FK5 star data into the Hipparcos system + FK5HIP FK5 to Hipparcos rotation and spin + FK5HZ FK5 to Hipparcos assuming zero Hipparcos proper motion + H2FK5 transform Hipparcos star data into the FK5 system + HFK5Z Hipparcos to FK5 assuming zero Hipparcos proper motion + + Galactic coordinates + + G2ICRS transform IAU 1958 galactic coordinates to ICRS + ICRS2G transform ICRS coordinates to IAU 1958 Galactic + + Geodetic/geocentric + + EFORM a,f for a nominated Earth reference ellipsoid + GC2GD geocentric to geodetic for a nominated ellipsoid + GC2GDE geocentric to geodetic given ellipsoid a,f + GD2GC geodetic to geocentric for a nominated ellipsoid + GD2GCE geodetic to geocentric given ellipsoid a,f + + Obsolete + + C2TCEO former name of C2TCIO + + +CALLS: FORTRAN VERSION + + CALL iau_AB ( PNAT, V, S, BM1, PPR ) + CALL iau_APCG ( DATE1, DATE2, EB, EH, ASTROM ) + CALL iau_APCG13 ( DATE1, DATE2, ASTROM ) + CALL iau_APCI ( DATE1, DATE2, EB, EH, X, Y, S, ASTROM ) + CALL iau_APCI13 ( DATE1, DATE2, ASTROM, EO ) + CALL iau_APCO ( DATE1, DATE2, EB, EH, X, Y, S, + : THETA, ELONG, PHI, HM, XP, YP, SP, + : REFA, REFB, ASTROM ) + CALL iau_APCO13 ( UTC1, UTC2, DUT1, ELONG, PHI, HM, XP, YP, + : PHPA, TC, RH, WL, ASTROM, EO, J ) + CALL iau_APCS ( DATE1, DATE2, PV, EB, EH, ASTROM ) + CALL iau_APCS13 ( DATE1, DATE2, PV, ASTROM ) + CALL iau_APER ( THETA, ASTROM ) + CALL iau_APER13 ( UT11, UT12, ASTROM ) + CALL iau_APIO ( SP, THETA, ELONG, PHI, HM, XP, YP, + : REFA, REFB, ASTROM ) + CALL iau_APIO13 ( UTC1, UTC2, DUT1, ELONG, PHI, HM, XP, YP, + : PHPA, TC, RH, WL, ASTROM, J ) + CALL iau_ATCI13 ( RC, DC, PR, PD, PX, RV, DATE1, DATE2, RI, DI, EO ) + CALL iau_ATCIQ ( RC, DC, PR, PD, PX, RV, ASTROM, RI, DI ) + CALL iau_ATCIQN ( RC, DC, PR, PD, PX, RV, ASTROM, N, B, RI, DI ) + CALL iau_ATCIQZ ( RC, DC, ASTROM, RI, DI ) + CALL iau_ATCO13 ( RC, DC, PR, PD, PX, RV, UTC1, UTC2, DUT1, ELONG, + : PHI, HM, XP, YP, PHPA, TC, RH, WL, + : AOB, ZOB, HOB, DOB, ROB, EO, J ) + CALL iau_ATIC13 ( RI, DI, DATE1, DATE2, RC, DC, EO ) + CALL iau_ATICQ ( RI, DI, ASTROM, RC, DC ) + CALL iau_ATCIQN ( RI, DI, ASTROM, N, B, RC, DC ) + CALL iau_ATIO13 ( RI, DI, UTC1, UTC2, DUT1, ELONG, PHI, HM, XP, YP, + PHPA, TC, RH, WL, AOB, ZOB, HOB, DOB, ROB, J ) + CALL iau_ATIOQ ( RI, DI, ASTROM, AOB, ZOB, HOB, DOB, ROB ) + CALL iau_ATOC13 ( TYPE, OB1, OB2, UTC1, UTC2, DUT1, + : ELONG, PHI, HM, XP, YP, PHPA, TC, RH, WL, + : RC, DC, J ) + CALL iau_ATOI13 ( TYPE, OB1, OB2, UTC1, UTC2, DUT1, + : ELONG, PHI, HM, XP, YP, PHPA, TC, RH, WL, + : RI, DI, J ) + CALL iau_ATOIQ ( TYPE, OB1, OB2, ASTROM, RI, DI ) + CALL iau_BI00 ( DPSIBI, DEPSBI, DRA ) + CALL iau_BP00 ( DATE1, DATE2, RB, RP, RBP ) + CALL iau_BP06 ( DATE1, DATE2, RB, RP, RBP ) + CALL iau_BPN2XY ( RBPN, X, Y ) + CALL iau_C2I00A ( DATE1, DATE2, RC2I ) + CALL iau_C2I00B ( DATE1, DATE2, RC2I ) + CALL iau_C2I06A ( DATE1, DATE2, RC2I ) + CALL iau_C2IBPN ( DATE1, DATE2, RBPN, RC2I ) + CALL iau_C2IXY ( DATE1, DATE2, X, Y, RC2I ) + CALL iau_C2IXYS ( X, Y, S, RC2I ) + CALL iau_C2T00A ( TTA, TTB, UTA, UTB, XP, YP, RC2T ) + CALL iau_C2T00B ( TTA, TTB, UTA, UTB, XP, YP, RC2T ) + CALL iau_C2T06A ( TTA, TTB, UTA, UTB, XP, YP, RC2T ) + CALL iau_C2TCEO ( RC2I, ERA, RPOM, RC2T ) + CALL iau_C2TCIO ( RC2I, ERA, RPOM, RC2T ) + CALL iau_C2TEQX ( RBPN, GST, RPOM, RC2T ) + CALL iau_C2TPE ( TTA, TTB, UTA, UTB, DPSI, DEPS, XP, YP, RC2T ) + CALL iau_C2TXY ( TTA, TTB, UTA, UTB, X, Y, XP, YP, RC2T ) + CALL iau_CAL2JD ( IY, IM, ID, DJM0, DJM, J ) + CALL iau_D2DTF ( SCALE, NDP, D1, D2, IY, IM, ID, IHMSF, J ) + CALL iau_DAT ( IY, IM, ID, FD, DELTAT, J ) + D = iau_DTDB ( DATE1, DATE2, UT, ELONG, U, V ) + CALL iau_DTF2D ( SCALE, IY, IM, ID, IHR, IMN, SEC, D1, D2, J ) + D = iau_EE00 ( DATE1, DATE2, EPSA, DPSI ) + D = iau_EE00A ( DATE1, DATE2 ) + D = iau_EE00B ( DATE1, DATE2 ) + D = iau_EE06A ( DATE1, DATE2 ) + D = iau_EECT00 ( DATE1, DATE2 ) + CALL iau_EFORM ( N, A, F, J ) + D = iau_EO06A ( DATE1, DATE2 ) + D = iau_EORS ( RNPB, S ) + D = iau_EPB ( DJ1, DJ2 ) + CALL iau_EPB2JD ( EPB, DJM0, DJM ) + D = iau_EPJ ( DJ1, DJ2 ) + CALL iau_EPJ2JD ( EPJ, DJM0, DJM ) + CALL iau_EPV00 ( DJ1, DJ2, PVH, PVB, J ) + D = iau_EQEQ94 ( DATE1, DATE2 ) + D = iau_ERA00 ( DJ1, DJ2 ) + D = iau_FAD03 ( T ) + D = iau_FAE03 ( T ) + D = iau_FAF03 ( T ) + D = iau_FAJU03 ( T ) + D = iau_FAL03 ( T ) + D = iau_FALP03 ( T ) + D = iau_FAMA03 ( T ) + D = iau_FAME03 ( T ) + D = iau_FANE03 ( T ) + D = iau_FAOM03 ( T ) + D = iau_FAPA03 ( T ) + D = iau_FASA03 ( T ) + D = iau_FAUR03 ( T ) + D = iau_FAVE03 ( T ) + CALL iau_FK52H ( R5, D5, DR5, DD5, PX5, RV5, + : RH, DH, DRH, DDH, PXH, RVH ) + CALL iau_FK5HIP ( R5H, S5H ) + CALL iau_FK5HZ ( R5, D5, DATE1, DATE2, RH, DH ) + CALL iau_FW2M ( GAMB, PHIB, PSI, EPS, R ) + CALL iau_FW2XY ( GAMB, PHIB, PSI, EPS, X, Y ) + CALL iau_G2ICRS ( DL, DB, DR, DD ) + CALL iau_GC2GD ( N, XYZ, ELONG, PHI, HEIGHT, J ) + CALL iau_GC2GDE ( A, F, XYZ, ELONG, PHI, HEIGHT, J ) + CALL iau_GD2GC ( N, ELONG, PHI, HEIGHT, XYZ, J ) + CALL iau_GD2GCE ( A, F, ELONG, PHI, HEIGHT, XYZ, J ) + D = iau_GMST00 ( UTA, UTB, TTA, TTB ) + D = iau_GMST06 ( UTA, UTB, TTA, TTB ) + D = iau_GMST82 ( UTA, UTB ) + D = iau_GST00A ( UTA, UTB, TTA, TTB ) + D = iau_GST00B ( UTA, UTB ) + D = iau_GST06 ( UTA, UTB, TTA, TTB, RNPB ) + D = iau_GST06A ( UTA, UTB, TTA, TTB ) + D = iau_GST94 ( UTA, UTB ) + CALL iau_H2FK5 ( RH, DH, DRH, DDH, PXH, RVH, + : R5, D5, DR5, DD5, PX5, RV5 ) + CALL iau_HFK5Z ( RH, DH, DATE1, DATE2, R5, D5, DR5, DD5 ) + CALL iau_ICRS2G ( DR, DD, DL, DB ) + CALL iau_JD2CAL ( DJ1, DJ2, IY, IM, ID, FD, J ) + CALL iau_JDCALF ( NDP, DJ1, DJ2, IYMDF, J ) + CALL iau_LD ( BM, P, Q, E, EM, DLIM, P1 ) + CALL iau_LDN ( N, B, OB, SC, SN ) + CALL iau_LDSUN ( P, E, EM, P1 ) + CALL iau_NUM00A ( DATE1, DATE2, RMATN ) + CALL iau_NUM00B ( DATE1, DATE2, RMATN ) + CALL iau_NUM06A ( DATE1, DATE2, RMATN ) + CALL iau_NUMAT ( EPSA, DPSI, DEPS, RMATN ) + CALL iau_NUT00A ( DATE1, DATE2, DPSI, DEPS ) + CALL iau_NUT00B ( DATE1, DATE2, DPSI, DEPS ) + CALL iau_NUT06A ( DATE1, DATE2, DPSI, DEPS ) + CALL iau_NUT80 ( DATE1, DATE2, DPSI, DEPS ) + CALL iau_NUTM80 ( DATE1, DATE2, RMATN ) + D = iau_OBL06 ( DATE1, DATE2 ) + D = iau_OBL80 ( DATE1, DATE2 ) + CALL iau_PB06 ( DATE1, DATE2, BZETA, BZ, BTHETA ) + CALL iau_PFW06 ( DATE1, DATE2, GAMB, PHIB, PSIB, EPSA ) + CALL iau_PLAN94 ( DATE1, DATE2, NP, PV, J ) + CALL iau_PMAT00 ( DATE1, DATE2, RBP ) + CALL iau_PMAT06 ( DATE1, DATE2, RBP ) + CALL iau_PMAT76 ( DATE1, DATE2, RMATP ) + CALL iau_PMPX ( RC, DC, PR, PD, PX, RV, PMT, POB, PCO ) + CALL iau_PMSAFE ( RA1, DEC1, PMR1, PMD1, PX1, RV1, + : EP1A, EP1B, EP2A, EP2B, + : RA2, DEC2, PMR2, PMD2, PX2, RV2, J ) + CALL iau_PN00 ( DATE1, DATE2, DPSI, DEPS, + : EPSA, RB, RP, RBP, RN, RBPN ) + CALL iau_PN00A ( DATE1, DATE2, + : DPSI, DEPS, EPSA, RB, RP, RBP, RN, RBPN ) + CALL iau_PN00B ( DATE1, DATE2, + : DPSI, DEPS, EPSA, RB, RP, RBP, RN, RBPN ) + CALL iau_PN06 ( DATE1, DATE2, DPSI, DEPS, + : EPSA, RB, RP, RBP, RN, RBPN ) + CALL iau_PN06A ( DATE1, DATE2, + : DPSI, DEPS, RB, RP, RBP, RN, RBPN ) + CALL iau_PNM00A ( DATE1, DATE2, RBPN ) + CALL iau_PNM00B ( DATE1, DATE2, RBPN ) + CALL iau_PNM06A ( DATE1, DATE2, RNPB ) + CALL iau_PNM80 ( DATE1, DATE2, RMATPN ) + CALL iau_P06E ( DATE1, DATE2, + : EPS0, PSIA, OMA, BPA, BQA, PIA, BPIA, + : EPSA, CHIA, ZA, ZETAA, THETAA, PA, GAM, PHI, PSI ) + CALL iau_POM00 ( XP, YP, SP, RPOM ) + CALL iau_PR00 ( DATE1, DATE2, DPSIPR, DEPSPR ) + CALL iau_PREC76 ( DATE01, DATE02, DATE11, DATE12, ZETA, Z, THETA ) + CALL iau_PVSTAR ( PV, RA, DEC, PMR, PMD, PX, RV, J ) + CALL iau_PVTOB ( ELONG, PHI, HM, XP, YP, SP, THETA, PV ) + CALL iau_REFCO ( PHPA, TC, RH, WL, REFA, REFB ) + D = iau_S00 ( DATE1, DATE2, X, Y ) + D = iau_S00A ( DATE1, DATE2 ) + D = iau_S00B ( DATE1, DATE2 ) + D = iau_S06 ( DATE1, DATE2, X, Y ) + D = iau_S06A ( DATE1, DATE2 ) + D = iau_SP00 ( DATE1, DATE2 ) + CALL iau_STARPM ( RA1, DEC1, PMR1, PMD1, PX1, RV1, + : EP1A, EP1B, EP2A, EP2B, + : RA2, DEC2, PMR2, PMD2, PX2, RV2, J ) + CALL iau_STARPV ( RA, DEC, PMR, PMD, PX, RV, PV, J ) + CALL iau_TAITT ( TAI1, TAI2, TT1, TT2, J ) + CALL iau_TAIUT1 ( TAI1, TAI2, DTA, UT11, UT12, J ) + CALL iau_TAIUTC ( TAI1, TAI2, UTC1, UTC2, J ) + CALL iau_TCBTDB ( TCB1, TCB2, TDB1, TDB2, J ) + CALL iau_TCGTT ( TCG1, TCG2, TT1, TT2, J ) + CALL iau_TDBTCB ( TDB1, TDB2, TCB1, TCB2, J ) + CALL iau_TDBTT ( TDB1, TDB2, DTR, TT1, TT2, J ) + CALL iau_TTTAI ( TT1, TT2, TAI1, TAI2, J ) + CALL iau_TTTCG ( TT1, TT2, TCG1, TCG2, J ) + CALL iau_TTTDB ( TT1, TT2, DTR, TDB1, TDB2, J ) + CALL iau_TTUT1 ( TT1, TT2, DT, UT11, UT12, J ) + CALL iau_UT1TAI ( UT11, UT12, TAI1, TAI2, J ) + CALL iau_UT1TT ( UT11, UT12, DT, TT1, TT2, J ) + CALL iau_UT1UTC ( UT11, UT12, DUT, UTC1, UTC2, J ) + CALL iau_UTCTAI ( UTC1, UTC2, DTA, TAI1, TAI2, J ) + CALL iau_UTCUT1 ( UTC1, UTC2, DUT, UT11, UT12, J ) + CALL iau_XY06 ( DATE1, DATE2, X, Y ) + CALL iau_XYS00A ( DATE1, DATE2, X, Y, S ) + CALL iau_XYS00B ( DATE1, DATE2, X, Y, S ) + CALL iau_XYS06A ( DATE1, DATE2, X, Y, S ) + + +CALLS: C VERSION + + iauAb ( pnat, v, s, bm1, ppr ); + iauApcg ( date1, date2, eb, eh, &astrom ); + iauApcg13 ( date1, date2, &astrom ); + iauApci ( date1, date2, eb, eh, x, y, s, &astrom ); + iauApci13 ( date1, date2, &astrom, &eo ); + iauApco ( date1, date2, eb, eh, x, y, s, + theta, elong, phi, hm, xp, yp, sp, + refa, refb, &astrom ); + i = iauApco13 ( utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, &astrom, &eo ); + iauApcs ( date1, date2, pv, eb, eh, &astrom ); + iauApcs13 ( date1, date2, pv, &astrom ); + iauAper ( theta, &astrom ); + iauAper13 ( ut11, ut12, &astrom ); + iauApio ( sp, theta, elong, phi, hm, xp, yp, refa, refb, + &astrom ); + i = iauApio13 ( utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, &astrom ); + iauAtci13 ( rc, dc, pr, pd, px, rv, date1, date2, + &ri, &di, &eo ); + iauAtciq ( rc, dc, pr, pd, px, rv, &astrom, &ri, &di ); + iauAtciqn ( rc, dc, pr, pd, px, rv, astrom, n, b, &ri, &di ); + iauAtciqz ( rc, dc, &astrom, &ri, &di ); + i = iauAtco13 ( rc, dc, pr, pd, px, rv, utc1, utc2, dut1, + elong phi, hm, xp, yp, phpa, tc, rh, wl, + aob, zob, hob, dob, rob, eo ); + iauAtic13 ( ri, di, date1, date2, &rc, &dc, &eo ); + iauAticq ( ri, di, &astrom, &rc, &dc ); + iauAtciqn ( ri, di, astrom, n, b, &rc, &dc ); + i = iauAtio13 ( ri, di, utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, aob, zob, hob, dob, rob ); + iauAtioq ( ri, di, &astrom, &aob, &zob, &hob, &dob, &rob ); + i = iauAtoc13 ( type, ob1, ob2, utc1, utc2, dut1, + elong, phi, hm, xp, yp, phpa, tc, rh, wl, + &rc, &dc ); + i = iauAtoi13 ( type, ob1, ob2, utc1, utc2, dut1, elong, phi, hm, + xp, yp, phpa, tc, rh, wl, &ri, &di ); + iauAtoiq ( type, ob1, ob2, &astrom, &ri, &di ); + iauBi00 ( &dpsibi, &depsbi, &dra ); + iauBp00 ( date1, date2, rb, rp, rbp ); + iauBp06 ( date1, date2, rb, rp, rbp ); + iauBpn2xy ( rbpn, &x, &y ); + iauC2i00a ( date1, date2, rc2i ); + iauC2i00b ( date1, date2, rc2i ); + iauC2i06a ( date1, date2, rc2i ); + iauC2ibpn ( date1, date2, rbpn, rc2i ); + iauC2ixy ( date1, date2, x, y, rc2i ); + iauC2ixys ( x, y, s, rc2i ); + iauC2t00a ( tta, ttb, uta, utb, xp, yp, rc2t ); + iauC2t00b ( tta, ttb, uta, utb, xp, yp, rc2t ); + iauC2t06a ( tta, ttb, uta, utb, xp, yp, rc2t ); + iauC2tcio ( rc2i, era, rpom, rc2t ); + iauC2teqx ( rbpn, gst, rpom, rc2t ); + iauC2tpe ( tta, ttb, uta, utb, dpsi, deps, xp, yp, rc2t ); + iauC2txy ( tta, ttb, uta, utb, x, y, xp, yp, rc2t ); + i = iauCal2jd ( iy, im, id, &djm0, &djm ); + i = iauD2dtf ( scale, ndp, d1, d2, &iy, &im, &id, ihmsf ); + i = iauDat ( iy, im, id, fd, &deltat ); + d = iauDtdb ( date1, date2, ut, elong, u, v ); + i = iauDtf2d ( scale, iy, im, id, ihr, imn, sec, &d1, &d2 ); + d = iauEe00 ( date1, date2, epsa, dpsi ); + d = iauEe00a ( date1, date2 ); + d = iauEe00b ( date1, date2 ); + d = iauEe06 ( date1, date2 ); + d = iauEect00 ( date1, date2 ); + i = iauEform ( n, &a, &f ); + d = iauEo06 ( date1, date2 ); + d = iauEors ( rnpb, s ); + d = iauEpb ( dj1, dj2 ); + iauEpb2jd ( epb, &djm0, &djm ); + d = iauEpj ( dj1, dj2 ); + iauEpj2jd ( epj, &djm0, &djm ); + i = iauEpv00 ( dj1, dj2, pvh, pvb ); + d = iauEqeq94 ( date1, date2 ); + d = iauEra00 ( dj1, dj2 ); + d = iauFad03 ( t ); + d = iauFae03 ( t ); + d = iauFaf03 ( t ); + d = iauFaju03 ( t ); + d = iauFal03 ( t ); + d = iauFalp03 ( t ); + d = iauFama03 ( t ); + d = iauFame03 ( t ); + d = iauFane03 ( t ); + d = iauFaom03 ( t ); + d = iauFapa03 ( t ); + d = iauFasa03 ( t ); + d = iauFaur03 ( t ); + d = iauFave03 ( t ); + iauFk52h ( r5, d5, dr5, dd5, px5, rv5, + &rh, &dh, &drh, &ddh, &pxh, &rvh ); + iauFk5hip ( r5h, s5h ); + iauFk5hz ( r5, d5, date1, date2, &rh, &dh ); + iauFw2m ( gamb, phib, psi, eps, r ); + iauFw2xy ( gamb, phib, psi, eps, &x, &y ); + iauG2icrs ( dl, db, &dr, &dd ); + i = iauGc2gd ( n, xyz, &elong, &phi, &height ); + i = iauGc2gde ( a, f, xyz, &elong, &phi, &height ); + i = iauGd2gc ( n, elong, phi, height, xyz ); + i = iauGd2gce ( a, f, elong, phi, height, xyz ); + d = iauGmst00 ( uta, utb, tta, ttb ); + d = iauGmst06 ( uta, utb, tta, ttb ); + d = iauGmst82 ( uta, utb ); + d = iauGst00a ( uta, utb, tta, ttb ); + d = iauGst00b ( uta, utb ); + d = iauGst06 ( uta, utb, tta, ttb, rnpb ); + d = iauGst06a ( uta, utb, tta, ttb ); + d = iauGst94 ( uta, utb ); + iauH2fk5 ( rh, dh, drh, ddh, pxh, rvh, + &r5, &d5, &dr5, &dd5, &px5, &rv5 ); + iauHfk5z ( rh, dh, date1, date2, + &r5, &d5, &dr5, &dd5 ); + iauIcrs2g ( dr, dd, &dl, &db ); + i = iauJd2cal ( dj1, dj2, &iy, &im, &id, &fd ); + i = iauJdcalf ( ndp, dj1, dj2, iymdf ); + iauLd ( bm, p, q, e, em, dlim, p1 ); + iauLdn ( n, b, ob, sc, sn ); + iauLdsun ( p, e, em, p1 ); + iauNum00a ( date1, date2, rmatn ); + iauNum00b ( date1, date2, rmatn ); + iauNum06a ( date1, date2, rmatn ); + iauNumat ( epsa, dpsi, deps, rmatn ); + iauNut00a ( date1, date2, &dpsi, &deps ); + iauNut00b ( date1, date2, &dpsi, &deps ); + iauNut06a ( date1, date2, &dpsi, &deps ); + iauNut80 ( date1, date2, &dpsi, &deps ); + iauNutm80 ( date1, date2, rmatn ); + d = iauObl06 ( date1, date2 ); + d = iauObl80 ( date1, date2 ); + iauPb06 ( date1, date2, &bzeta, &bz, &btheta ); + iauPfw06 ( date1, date2, &gamb, &phib, &psib, &epsa ); + i = iauPlan94 ( date1, date2, np, pv ); + iauPmat00 ( date1, date2, rbp ); + iauPmat06 ( date1, date2, rbp ); + iauPmat76 ( date1, date2, rmatp ); + iauPmpx ( rc, dc, pr, pd, px, rv, pmt, pob, pco ); + i = iauPmsafe ( ra1, dec1, pmr1, pmd1, px1, rv1, + ep1a, ep1b, ep2a, ep2b, + &ra2, &dec2, &pmr2, &pmd2, &px2, &rv2); + iauPn00 ( date1, date2, dpsi, deps, + &epsa, rb, rp, rbp, rn, rbpn ); + iauPn00a ( date1, date2, + &dpsi, &deps, &epsa, rb, rp, rbp, rn, rbpn ); + iauPn00b ( date1, date2, + &dpsi, &deps, &epsa, rb, rp, rbp, rn, rbpn ); + iauPn06 ( date1, date2, dpsi, deps, + &epsa, rb, rp, rbp, rn, rbpn ); + iauPn06a ( date1, date2, + &dpsi, &deps, &epsa, rb, rp, rbp, rn, rbpn ); + iauPnm00a ( date1, date2, rbpn ); + iauPnm00b ( date1, date2, rbpn ); + iauPnm06a ( date1, date2, rnpb ); + iauPnm80 ( date1, date2, rmatpn ); + iauP06e ( date1, date2, + &eps0, &psia, &oma, &bpa, &bqa, &pia, &bpia, + &epsa, &chia, &za, &zetaa, &thetaa, &pa, + &gam, &phi, &psi ); + iauPom00 ( xp, yp, sp, rpom ); + iauPr00 ( date1, date2, &dpsipr, &depspr ); + iauPrec76 ( date01, date02, date11, date12, &zeta, &z, &theta ); + i = iauPvstar ( pv, &ra, &dec, &pmr, &pmd, &px, &rv ); + iauPvtob ( elong, phi, hm, xp, yp, sp, theta, pv ); + iauRefco ( phpa, tc, rh, wl, refa, refb ); + d = iauS00 ( date1, date2, x, y ); + d = iauS00a ( date1, date2 ); + d = iauS00b ( date1, date2 ); + d = iauS06 ( date1, date2, x, y ); + d = iauS06a ( date1, date2 ); + d = iauSp00 ( date1, date2 ); + i = iauStarpm ( ra1, dec1, pmr1, pmd1, px1, rv1, + ep1a, ep1b, ep2a, ep2b, + &ra2, &dec2, &pmr2, &pmd2, &px2, &rv2 ); + i = iauStarpv ( ra, dec, pmr, pmd, px, rv, pv ); + i = iauTaitt ( tai1, tai2, &tt1, &tt2 ); + i = iauTaiut1 ( tai1, tai2, dta, &ut11, &ut12 ); + i = iauTaiutc ( tai1, tai2, &utc1, &utc2 ); + i = iauTcbtdb ( tcb1, tcb2, &tdb1, &tdb2 ); + i = iauTcgtt ( tcg1, tcg2, &tt1, &tt2 ); + i = iauTdbtcb ( tdb1, tdb2, &tcb1, &tcb2 ); + i = iauTdbtt ( tdb1, tdb2, dtr, &tt1, &tt2 ); + i = iauTttai ( tt1, tt2, &tai1, &tai2 ); + i = iauTttcg ( tt1, tt2, &tcg1, &tcg2 ); + i = iauTttdb ( tt1, tt2, dtr, &tdb1, &tdb2 ); + i = iauTtut1 ( tt1, tt2, dt, &ut11, &ut12 ); + i = iauUt1tai ( ut11, ut12, &tai1, &tai2 ); + i = iauUt1tt ( ut11, ut12, dt, &tt1, &tt2 ); + i = iauUt1utc ( ut11, ut12, dut, &utc1, &utc2 ); + i = iauUtctai ( utc1, utc2, dta, &tai1, &tai2 ); + i = iauUtcut1 ( utc1, utc2, dut, &ut11, &ut12 ); + iauXy06 ( date1, date2, &x, &y ); + iauXys00a ( date1, date2, &x, &y, &s ); + iauXys00b ( date1, date2, &x, &y, &s ); + iauXys06a ( date1, date2, &x, &y, &s ); + + +sofa_vml.lis 2013 October 8 + + -------------------------- + SOFA Vector/Matrix Library + -------------------------- + +PREFACE + +The routines described here comprise the SOFA vector/matrix library. +Their general appearance and coding style conforms to conventions +agreed by the SOFA Board, and their functions, names and algorithms have +been ratified by the Board. Procedures for soliciting and agreeing +additions to the library are still evolving. + + +PROGRAMMING LANGUAGES + +The SOFA routines are available in two programming languages at present: +Fortran 77 and ANSI C. + +There is a one-to-one relationship between the two language versions. +The naming convention is such that a SOFA routine referred to +generically as "EXAMPL" exists as a Fortran subprogram iau_EXAMPL and a +C function iauExampl. The calls for the two versions are very similar, +with the same arguments in the same order. In a few cases, the C +equivalent of a Fortran SUBROUTINE subprogram uses a return value rather +than an argument. + + +GENERAL PRINCIPLES + +The library consists mostly of routines which operate on ordinary +Cartesian vectors (x,y,z) and 3x3 rotation matrices. However, there is +also support for vectors which represent velocity as well as position +and vectors which represent rotation instead of position. The vectors +which represent both position and velocity may be considered still to +have dimensions (3), but to comprise elements each of which is two +numbers, representing the value itself and the time derivative. Thus: + +* "Position" or "p" vectors (or just plain 3-vectors) have dimension + (3) in Fortran and [3] in C. + +* "Position/velocity" or "pv" vectors have dimensions (3,2) in Fortran + and [2][3] in C. + +* "Rotation" or "r" matrices have dimensions (3,3) in Fortran and [3][3] + in C. When used for rotation, they are "orthogonal"; the inverse of + such a matrix is equal to the transpose. Most of the routines in + this library do not assume that r-matrices are necessarily orthogonal + and in fact work on any 3x3 matrix. + +* "Rotation" or "r" vectors have dimensions (3) in Fortran and [3] in C. + Such vectors are a combination of the Euler axis and angle and are + convertible to and from r-matrices. The direction is the axis of + rotation and the magnitude is the angle of rotation, in radians. + Because the amount of rotation can be scaled up and down simply by + multiplying the vector by a scalar, r-vectors are useful for + representing spins about an axis which is fixed. + +* The above rules mean that in terms of memory address, the three + velocity components of a pv-vector follow the three position + components. Application code is permitted to exploit this and all + other knowledge of the internal layouts: that x, y and z appear in + that order and are in a right-handed Cartesian coordinate system etc. + For example, the cp function (copy a p-vector) can be used to copy + the velocity component of a pv-vector (indeed, this is how the + CPV routine is coded). + +* The routines provided do not completely fill the range of operations + that link all the various vector and matrix options, but are confined + to functions that are required by other parts of the SOFA software or + which are likely to prove useful. + +In addition to the vector/matrix routines, the library contains some +routines related to spherical angles, including conversions to and +from sexagesimal format. + +Using the library requires knowledge of vector/matrix methods, spherical +trigonometry, and methods of attitude representation. These topics are +covered in many textbooks, including "Spacecraft Attitude Determination +and Control", James R. Wertz (ed.), Astrophysics and Space Science +Library, Vol. 73, D. Reidel Publishing Company, 1986. + + +OPERATIONS INVOLVING P-VECTORS AND R-MATRICES + + Initialize + + ZP zero p-vector + ZR initialize r-matrix to null + IR initialize r-matrix to identity + + Copy/extend/extract + + CP copy p-vector + CR copy r-matrix + + Build rotations + + RX rotate r-matrix about x + RY rotate r-matrix about y + RZ rotate r-matrix about z + + Spherical/Cartesian conversions + + S2C spherical to unit vector + C2S unit vector to spherical + S2P spherical to p-vector + P2S p-vector to spherical + + Operations on vectors + + PPP p-vector plus p-vector + PMP p-vector minus p-vector + PPSP p-vector plus scaled p-vector + PDP inner (=scalar=dot) product of two p-vectors + PXP outer (=vector=cross) product of two p-vectors + PM modulus of p-vector + PN normalize p-vector returning modulus + SXP multiply p-vector by scalar + + Operations on matrices + + RXR r-matrix multiply + TR transpose r-matrix + + Matrix-vector products + + RXP product of r-matrix and p-vector + TRXP product of transpose of r-matrix and p-vector + + Separation and position-angle + + SEPP angular separation from p-vectors + SEPS angular separation from spherical coordinates + PAP position-angle from p-vectors + PAS position-angle from spherical coordinates + + Rotation vectors + + RV2M r-vector to r-matrix + RM2V r-matrix to r-vector + + +OPERATIONS INVOLVING PV-VECTORS + + Initialize + + ZPV zero pv-vector + + Copy/extend/extract + + CPV copy pv-vector + P2PV append zero velocity to p-vector + PV2P discard velocity component of pv-vector + + Spherical/Cartesian conversions + + S2PV spherical to pv-vector + PV2S pv-vector to spherical + + Operations on vectors + + PVPPV pv-vector plus pv-vector + PVMPV pv-vector minus pv-vector + PVDPV inner (=scalar=dot) product of two pv-vectors + PVXPV outer (=vector=cross) product of two pv-vectors + PVM modulus of pv-vector + SXPV multiply pv-vector by scalar + S2XPV multiply pv-vector by two scalars + PVU update pv-vector + PVUP update pv-vector discarding velocity + + Matrix-vector products + + RXPV product of r-matrix and pv-vector + TRXPV product of transpose of r-matrix and pv-vector + + +OPERATIONS ON ANGLES + + ANP normalize radians to range 0 to 2pi + ANPM normalize radians to range -pi to +pi + A2TF decompose radians into hours, minutes, seconds + A2AF decompose radians into degrees, arcminutes, arcseconds + AF2A degrees, arcminutes, arcseconds to radians + D2TF decompose days into hours, minutes, seconds + TF2A hours, minutes, seconds to radians + TF2D hours, minutes, seconds to days + + +CALLS: FORTRAN VERSION + + CALL iau_A2AF ( NDP, ANGLE, SIGN, IDMSF ) + CALL iau_A2TF ( NDP, ANGLE, SIGN, IHMSF ) + CALL iau_AF2A ( S, IDEG, IAMIN, ASEC, RAD, J ) + D = iau_ANP ( A ) + D = iau_ANPM ( A ) + CALL iau_C2S ( P, THETA, PHI ) + CALL iau_CP ( P, C ) + CALL iau_CPV ( PV, C ) + CALL iau_CR ( R, C ) + CALL iau_D2TF ( NDP, DAYS, SIGN, IHMSF ) + CALL iau_IR ( R ) + CALL iau_P2PV ( P, PV ) + CALL iau_P2S ( P, THETA, PHI, R ) + CALL iau_PAP ( A, B, THETA ) + CALL iau_PAS ( AL, AP, BL, BP, THETA ) + CALL iau_PDP ( A, B, ADB ) + CALL iau_PM ( P, R ) + CALL iau_PMP ( A, B, AMB ) + CALL iau_PN ( P, R, U ) + CALL iau_PPP ( A, B, APB ) + CALL iau_PPSP ( A, S, B, APSB ) + CALL iau_PV2P ( PV, P ) + CALL iau_PV2S ( PV, THETA, PHI, R, TD, PD, RD ) + CALL iau_PVDPV ( A, B, ADB ) + CALL iau_PVM ( PV, R, S ) + CALL iau_PVMPV ( A, B, AMB ) + CALL iau_PVPPV ( A, B, APB ) + CALL iau_PVU ( DT, PV, UPV ) + CALL iau_PVUP ( DT, PV, P ) + CALL iau_PVXPV ( A, B, AXB ) + CALL iau_PXP ( A, B, AXB ) + CALL iau_RM2V ( R, P ) + CALL iau_RV2M ( P, R ) + CALL iau_RX ( PHI, R ) + CALL iau_RXP ( R, P, RP ) + CALL iau_RXPV ( R, PV, RPV ) + CALL iau_RXR ( A, B, ATB ) + CALL iau_RY ( THETA, R ) + CALL iau_RZ ( PSI, R ) + CALL iau_S2C ( THETA, PHI, C ) + CALL iau_S2P ( THETA, PHI, R, P ) + CALL iau_S2PV ( THETA, PHI, R, TD, PD, RD, PV ) + CALL iau_S2XPV ( S1, S2, PV ) + CALL iau_SEPP ( A, B, S ) + CALL iau_SEPS ( AL, AP, BL, BP, S ) + CALL iau_SXP ( S, P, SP ) + CALL iau_SXPV ( S, PV, SPV ) + CALL iau_TF2A ( S, IHOUR, IMIN, SEC, RAD, J ) + CALL iau_TF2D ( S, IHOUR, IMIN, SEC, DAYS, J ) + CALL iau_TR ( R, RT ) + CALL iau_TRXP ( R, P, TRP ) + CALL iau_TRXPV ( R, PV, TRPV ) + CALL iau_ZP ( P ) + CALL iau_ZPV ( PV ) + CALL iau_ZR ( R ) + + +CALLS: C VERSION + + iauA2af ( ndp, angle, &sign, idmsf ); + iauA2tf ( ndp, angle, &sign, ihmsf ); + i = iauAf2a ( s, ideg, iamin, asec, &rad ); + d = iauAnp ( a ); + d = iauAnpm ( a ); + iauC2s ( p, &theta, &phi ); + iauCp ( p, c ); + iauCpv ( pv, c ); + iauCr ( r, c ); + iauD2tf ( ndp, days, &sign, ihmsf ); + iauIr ( r ); + iauP2pv ( p, pv ); + iauP2s ( p, &theta, &phi, &r ); + d = iauPap ( a, b ); + d = iauPas ( al, ap, bl, bp ); + d = iauPdp ( a, b ); + d = iauPm ( p ); + iauPmp ( a, b, amb ); + iauPn ( p, &r, u ); + iauPpp ( a, b, apb ); + iauPpsp ( a, s, b, apsb ); + iauPv2p ( pv, p ); + iauPv2s ( pv, &theta, &phi, &r, &td, &pd, &rd ); + iauPvdpv ( a, b, adb ); + iauPvm ( pv, &r, &s ); + iauPvmpv ( a, b, amb ); + iauPvppv ( a, b, apb ); + iauPvu ( dt, pv, upv ); + iauPvup ( dt, pv, p ); + iauPvxpv ( a, b, axb ); + iauPxp ( a, b, axb ); + iauRm2v ( r, p ); + iauRv2m ( p, r ); + iauRx ( phi, r ); + iauRxp ( r, p, rp ); + iauRxpv ( r, pv, rpv ); + iauRxr ( a, b, atb ); + iauRy ( theta, r ); + iauRz ( psi, r ); + iauS2c ( theta, phi, c ); + iauS2p ( theta, phi, r, p ); + iauS2pv ( theta, phi, r, td, pd, rd, pV ); + iauS2xpv ( s1, s2, pv ); + d = iauSepp ( a, b ); + d = iauSeps ( al, ap, bl, bp ); + iauSxp ( s, p, sp ); + iauSxpv ( s, pv, spv ); + i = iauTf2a ( s, ihour, imin, sec, &rad ); + i = iauTf2d ( s, ihour, imin, sec, &days ); + iauTr ( r, rt ); + iauTrxp ( r, p, trp ); + iauTrxpv ( r, pv, trpv ); + iauZp ( p ); + iauZpv ( pv ); + iauZr ( r ); + + + + +void iauA2af(int ndp, double angle, char *sign, int idmsf[4]) +/* +** - - - - - - - - +** i a u A 2 a f +** - - - - - - - - +** +** Decompose radians into degrees, arcminutes, arcseconds, fraction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** ndp int resolution (Note 1) +** angle double angle in radians +** +** Returned: +** sign char '+' or '-' +** idmsf int[4] degrees, arcminutes, arcseconds, fraction +** +** Called: +** iauD2tf decompose days to hms +** +** Notes: +** +** 1) The argument ndp is interpreted as follows: +** +** ndp resolution +** : ...0000 00 00 +** -7 1000 00 00 +** -6 100 00 00 +** -5 10 00 00 +** -4 1 00 00 +** -3 0 10 00 +** -2 0 01 00 +** -1 0 00 10 +** 0 0 00 01 +** 1 0 00 00.1 +** 2 0 00 00.01 +** 3 0 00 00.001 +** : 0 00 00.000... +** +** 2) The largest positive useful value for ndp is determined by the +** size of angle, the format of doubles on the target platform, and +** the risk of overflowing idmsf[3]. On a typical platform, for +** angle up to 2pi, the available floating-point precision might +** correspond to ndp=12. However, the practical limit is typically +** ndp=9, set by the capacity of a 32-bit int, or ndp=4 if int is +** only 16 bits. +** +** 3) The absolute value of angle may exceed 2pi. In cases where it +** does not, it is up to the caller to test for and handle the +** case where angle is very nearly 2pi and rounds up to 360 degrees, +** by testing for idmsf[0]=360 and setting idmsf[0-3] to zero. +** +*/ + + + + +void iauA2tf(int ndp, double angle, char *sign, int ihmsf[4]) +/* +** - - - - - - - - +** i a u A 2 t f +** - - - - - - - - +** +** Decompose radians into hours, minutes, seconds, fraction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** ndp int resolution (Note 1) +** angle double angle in radians +** +** Returned: +** sign char '+' or '-' +** ihmsf int[4] hours, minutes, seconds, fraction +** +** Called: +** iauD2tf decompose days to hms +** +** Notes: +** +** 1) The argument ndp is interpreted as follows: +** +** ndp resolution +** : ...0000 00 00 +** -7 1000 00 00 +** -6 100 00 00 +** -5 10 00 00 +** -4 1 00 00 +** -3 0 10 00 +** -2 0 01 00 +** -1 0 00 10 +** 0 0 00 01 +** 1 0 00 00.1 +** 2 0 00 00.01 +** 3 0 00 00.001 +** : 0 00 00.000... +** +** 2) The largest positive useful value for ndp is determined by the +** size of angle, the format of doubles on the target platform, and +** the risk of overflowing ihmsf[3]. On a typical platform, for +** angle up to 2pi, the available floating-point precision might +** correspond to ndp=12. However, the practical limit is typically +** ndp=9, set by the capacity of a 32-bit int, or ndp=4 if int is +** only 16 bits. +** +** 3) The absolute value of angle may exceed 2pi. In cases where it +** does not, it is up to the caller to test for and handle the +** case where angle is very nearly 2pi and rounds up to 24 hours, +** by testing for ihmsf[0]=24 and setting ihmsf[0-3] to zero. +** +*/ + + + + +void iauAb(double pnat[3], double v[3], double s, double bm1, + double ppr[3]) +/* +** - - - - - - +** i a u A b +** - - - - - - +** +** Apply aberration to transform natural direction into proper +** direction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** pnat double[3] natural direction to the source (unit vector) +** v double[3] observer barycentric velocity in units of c +** s double distance between the Sun and the observer (au) +** bm1 double sqrt(1-|v|^2): reciprocal of Lorenz factor +** +** Returned: +** ppr double[3] proper direction to source (unit vector) +** +** Notes: +** +** 1) The algorithm is based on Expr. (7.40) in the Explanatory +** Supplement (Urban & Seidelmann 2013), but with the following +** changes: +** +** o Rigorous rather than approximate normalization is applied. +** +** o The gravitational potential term from Expr. (7) in +** Klioner (2003) is added, taking into account only the Sun's +** contribution. This has a maximum effect of about +** 0.4 microarcsecond. +** +** 2) In almost all cases, the maximum accuracy will be limited by the +** supplied velocity. For example, if the SOFA iauEpv00 function is +** used, errors of up to 5 microarcseconds could occur. +** +** References: +** +** Urban, S. & Seidelmann, P. K. (eds), Explanatory Supplement to +** the Astronomical Almanac, 3rd ed., University Science Books +** (2013). +** +** Klioner, Sergei A., "A practical relativistic model for micro- +** arcsecond astrometry in space", Astr. J. 125, 1580-1597 (2003). +** +** Called: +** iauPdp scalar product of two p-vectors +** +*/ + + + + +int iauAf2a(char s, int ideg, int iamin, double asec, double *rad) +/* +** - - - - - - - - +** i a u A f 2 a +** - - - - - - - - +** +** Convert degrees, arcminutes, arcseconds to radians. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** s char sign: '-' = negative, otherwise positive +** ideg int degrees +** iamin int arcminutes +** asec double arcseconds +** +** Returned: +** rad double angle in radians +** +** Returned (function value): +** int status: 0 = OK +** 1 = ideg outside range 0-359 +** 2 = iamin outside range 0-59 +** 3 = asec outside range 0-59.999... +** +** Notes: +** +** 1) The result is computed even if any of the range checks fail. +** +** 2) Negative ideg, iamin and/or asec produce a warning status, but +** the absolute value is used in the conversion. +** +** 3) If there are multiple errors, the status value reflects only the +** first, the smallest taking precedence. +** +*/ + + + + +double iauAnp(double a) +/* +** - - - - - - - +** i a u A n p +** - - - - - - - +** +** Normalize angle into the range 0 <= a < 2pi. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double angle (radians) +** +** Returned (function value): +** double angle in range 0-2pi +** +*/ + + + + +double iauAnpm(double a) +/* +** - - - - - - - - +** i a u A n p m +** - - - - - - - - +** +** Normalize angle into the range -pi <= a < +pi. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double angle (radians) +** +** Returned (function value): +** double angle in range +/-pi +** +*/ + + + + +void iauApcg(double date1, double date2, + double ebpv[2][3], double ehp[3], + iauASTROM *astrom) +/* +** - - - - - - - - +** i a u A p c g +** - - - - - - - - +** +** For a geocentric observer, prepare star-independent astrometry +** parameters for transformations between ICRS and GCRS coordinates. +** The Earth ephemeris is supplied by the caller. +** +** The parameters produced by this function are required in the +** parallax, light deflection and aberration parts of the astrometric +** transformation chain. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** ebpv double[2][3] Earth barycentric pos/vel (au, au/day) +** ehp double[3] Earth heliocentric position (au) +** +** Returned: +** 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 unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double unchanged +** refa double unchanged +** refb double unchanged +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 2) All the vectors are with respect to BCRS axes. +** +** 3) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 4) The context structure astrom produced by this function is used by +** iauAtciq* and iauAticq*. +** +** Called: +** iauApcs astrometry parameters, ICRS-GCRS, space observer +** +*/ + + + + +void iauApcg13(double date1, double date2, iauASTROM *astrom) +/* +** - - - - - - - - - - +** i a u A p c g 1 3 +** - - - - - - - - - - +** +** For a geocentric observer, prepare star-independent astrometry +** parameters for transformations between ICRS and GCRS coordinates. +** The caller supplies the date, and SOFA models are used to predict +** the Earth ephemeris. +** +** The parameters produced by this function are required in the +** parallax, light deflection and aberration parts of the astrometric +** transformation chain. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** +** Returned: +** 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 unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double unchanged +** refa double unchanged +** refb double unchanged +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 2) All the vectors are with respect to BCRS axes. +** +** 3) In cases where the caller wishes to supply his own Earth +** ephemeris, the function iauApcg can be used instead of the present +** function. +** +** 4) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 5) The context structure astrom produced by this function is used by +** iauAtciq* and iauAticq*. +** +** Called: +** iauEpv00 Earth position and velocity +** iauApcg astrometry parameters, ICRS-GCRS, geocenter +** +*/ + + + + +void iauApci(double date1, double date2, + double ebpv[2][3], double ehp[3], + double x, double y, double s, + iauASTROM *astrom) +/* +** - - - - - - - - +** i a u A p c i +** - - - - - - - - +** +** For a terrestrial observer, prepare star-independent astrometry +** parameters for transformations between ICRS and geocentric CIRS +** coordinates. The Earth ephemeris and CIP/CIO are supplied by the +** caller. +** +** The parameters produced by this function are required in the +** parallax, light deflection, aberration, and bias-precession-nutation +** parts of the astrometric transformation chain. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** ebpv double[2][3] Earth barycentric position/velocity (au, au/day) +** ehp double[3] Earth heliocentric position (au) +** x,y double CIP X,Y (components of unit vector) +** s double the CIO locator s (radians) +** +** Returned: +** 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 unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double unchanged +** refa double unchanged +** refb double unchanged +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 2) All the vectors are with respect to BCRS axes. +** +** 3) In cases where the caller does not wish to provide the Earth +** ephemeris and CIP/CIO, the function iauApci13 can be used instead +** of the present function. This computes the required quantities +** using other SOFA functions. +** +** 4) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 5) The context structure astrom produced by this function is used by +** iauAtciq* and iauAticq*. +** +** Called: +** iauApcg astrometry parameters, ICRS-GCRS, geocenter +** iauC2ixys celestial-to-intermediate matrix, given X,Y and s +** +*/ + + + + +void iauApci13(double date1, double date2, + iauASTROM *astrom, double *eo) +/* +** - - - - - - - - - - +** i a u A p c i 1 3 +** - - - - - - - - - - +** +** For a terrestrial observer, prepare star-independent astrometry +** parameters for transformations between ICRS and geocentric CIRS +** coordinates. The caller supplies the date, and SOFA models are used +** to predict the Earth ephemeris and CIP/CIO. +** +** The parameters produced by this function are required in the +** parallax, light deflection, aberration, and bias-precession-nutation +** parts of the astrometric transformation chain. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** +** Returned: +** 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 unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double unchanged +** refa double unchanged +** refb double unchanged +** eo double* equation of the origins (ERA-GST) +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 2) All the vectors are with respect to BCRS axes. +** +** 3) In cases where the caller wishes to supply his own Earth +** ephemeris and CIP/CIO, the function iauApci can be used instead +** of the present function. +** +** 4) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 5) The context structure astrom produced by this function is used by +** iauAtciq* and iauAticq*. +** +** Called: +** iauEpv00 Earth position and velocity +** iauPnm06a classical NPB matrix, IAU 2006/2000A +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS06 the CIO locator s, given X,Y, IAU 2006 +** iauApci astrometry parameters, ICRS-CIRS +** iauEors equation of the origins, given NPB matrix and s +** +*/ + + + + +void iauApco(double date1, double date2, + double ebpv[2][3], double ehp[3], + double x, double y, double s, double theta, + double elong, double phi, double hm, + double xp, double yp, double sp, + double refa, double refb, + iauASTROM *astrom) +/* +** - - - - - - - - +** i a u A p c o +** - - - - - - - - +** +** For a terrestrial observer, prepare star-independent astrometry +** parameters for transformations between ICRS and observed +** coordinates. The caller supplies the Earth ephemeris, the Earth +** rotation information and the refraction constants as well as the +** site coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** ebpv double[2][3] Earth barycentric PV (au, au/day, Note 2) +** ehp double[3] Earth heliocentric P (au, Note 2) +** x,y double CIP X,Y (components of unit vector) +** s double the CIO locator s (radians) +** theta double Earth rotation angle (radians) +** elong double longitude (radians, east +ve, Note 3) +** phi double latitude (geodetic, radians, Note 3) +** hm double height above ellipsoid (m, geodetic, Note 3) +** xp,yp double polar motion coordinates (radians, Note 4) +** sp double the TIO locator s' (radians, Note 4) +** refa double refraction constant A (radians, Note 5) +** refb double refraction constant B (radians, Note 5) +** +** Returned: +** 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) +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 2) The vectors eb, eh, and all the astrom vectors, are with respect +** to BCRS axes. +** +** 3) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN +** CONVENTION: the longitude required by the present function is +** right-handed, i.e. east-positive, in accordance with geographical +** convention. +** +** 4) xp and yp are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions), measured along the +** meridians 0 and 90 deg west respectively. sp is the TIO locator +** s', in radians, which positions the Terrestrial Intermediate +** Origin on the equator. For many applications, xp, yp and +** (especially) sp can be set to zero. +** +** Internally, the polar motion is stored in a form rotated onto the +** local meridian. +** +** 5) The refraction constants refa and refb are for use in a +** dZ = A*tan(Z)+B*tan^3(Z) model, where Z is the observed +** (i.e. refracted) zenith distance and dZ is the amount of +** refraction. +** +** 6) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** 7) In cases where the caller does not wish to provide the Earth +** Ephemeris, the Earth rotation information and refraction +** constants, the function iauApco13 can be used instead of the +** present function. This starts from UTC and weather readings etc. +** and computes suitable values using other SOFA functions. +** +** 8) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 9) The context structure astrom produced by this function is used by +** iauAtioq, iauAtoiq, iauAtciq* and iauAticq*. +** +** Called: +** iauAper astrometry parameters: update ERA +** iauC2ixys celestial-to-intermediate matrix, given X,Y and s +** iauPvtob position/velocity of terrestrial station +** iauTrxpv product of transpose of r-matrix and pv-vector +** iauApcs astrometry parameters, ICRS-GCRS, space observer +** iauCr copy r-matrix +** +*/ + + + + +int iauApco13(double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + iauASTROM *astrom, double *eo) +/* +** - - - - - - - - - - +** i a u A p c o 1 3 +** - - - - - - - - - - +** +** For a terrestrial observer, prepare star-independent astrometry +** parameters for transformations between ICRS and observed +** coordinates. The caller supplies UTC, site coordinates, ambient air +** conditions and observing wavelength, and SOFA models are used to +** obtain the Earth ephemeris, CIP/CIO and refraction constants. +** +** The parameters produced by this function are required in the +** parallax, light deflection, aberration, and bias-precession-nutation +** parts of the ICRS/CIRS transformations. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** utc1 double UTC as a 2-part... +** utc2 double ...quasi Julian Date (Notes 1,2) +** dut1 double UT1-UTC (seconds, Note 3) +** elong double longitude (radians, east +ve, Note 4) +** phi double latitude (geodetic, radians, Note 4) +** hm double height above ellipsoid (m, geodetic, Notes 4,6) +** xp,yp double polar motion coordinates (radians, Note 5) +** phpa double pressure at the observer (hPa = mB, Note 6) +** tc double ambient temperature at the observer (deg C) +** rh double relative humidity at the observer (range 0-1) +** wl double wavelength (micrometers, Note 7) +** +** Returned: +** 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) +** eo double* equation of the origins (ERA-GST) +** +** Returned (function value): +** int status: +1 = dubious year (Note 2) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** However, JD cannot unambiguously represent UTC during a leap +** second unless special measures are taken. The convention in the +** present function is that the JD day represents UTC days whether +** the length is 86399, 86400 or 86401 SI seconds. +** +** Applications should use the function iauDtf2d to convert from +** calendar date and time of day into 2-part quasi Julian Date, as +** it implements the leap-second-ambiguity convention just +** described. +** +** 2) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the +** future to be trusted. See iauDat for further details. +** +** 3) UT1-UTC is tabulated in IERS bulletins. It increases by exactly +** one second at the end of each positive UTC leap second, +** introduced in order to keep UT1-UTC within +/- 0.9s. n.b. This +** practice is under review, and in the future UT1-UTC may grow +** essentially without limit. +** +** 4) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN: the +** longitude required by the present function is east-positive +** (i.e. right-handed), in accordance with geographical convention. +** +** 5) The polar motion xp,yp can be obtained from IERS bulletins. The +** values are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions 2003), measured along the +** meridians 0 and 90 deg west respectively. For many +** applications, xp and yp can be set to zero. +** +** Internally, the polar motion is stored in a form rotated onto +** the local meridian. +** +** 6) If hm, the height above the ellipsoid of the observing station +** in meters, is not known but phpa, the pressure in hPa (=mB), is +** available, an adequate estimate of hm can be obtained from the +** expression +** +** hm = -29.3 * tsl * log ( phpa / 1013.25 ); +** +** where tsl is the approximate sea-level air temperature in K +** (See Astrophysical Quantities, C.W.Allen, 3rd edition, section +** 52). Similarly, if the pressure phpa is not known, it can be +** estimated from the height of the observing station, hm, as +** follows: +** +** phpa = 1013.25 * exp ( -hm / ( 29.3 * tsl ) ); +** +** Note, however, that the refraction is nearly proportional to +** the pressure and that an accurate phpa value is important for +** precise work. +** +** 7) The argument wl specifies the observing wavelength in +** micrometers. The transition from optical to radio is assumed to +** occur at 100 micrometers (about 3000 GHz). +** +** 8) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** 9) In cases where the caller wishes to supply his own Earth +** ephemeris, Earth rotation information and refraction constants, +** the function iauApco can be used instead of the present function. +** +** 10) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 11) The context structure astrom produced by this function is used +** by iauAtioq, iauAtoiq, iauAtciq* and iauAticq*. +** +** Called: +** iauUtctai UTC to TAI +** iauTaitt TAI to TT +** iauUtcut1 UTC to UT1 +** iauEpv00 Earth position and velocity +** iauPnm06a classical NPB matrix, IAU 2006/2000A +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS06 the CIO locator s, given X,Y, IAU 2006 +** iauEra00 Earth rotation angle, IAU 2000 +** iauSp00 the TIO locator s', IERS 2000 +** iauRefco refraction constants for given ambient conditions +** iauApco astrometry parameters, ICRS-observed +** iauEors equation of the origins, given NPB matrix and s +** +*/ + + + + +void iauApcs(double date1, double date2, double pv[2][3], + double ebpv[2][3], double ehp[3], + iauASTROM *astrom) +/* +** - - - - - - - - +** i a u A p c s +** - - - - - - - - +** +** For an observer whose geocentric position and velocity are known, +** prepare star-independent astrometry parameters for transformations +** between ICRS and GCRS. The Earth ephemeris is supplied by the +** caller. +** +** The parameters produced by this function are required in the space +** motion, parallax, light deflection and aberration parts of the +** astrometric transformation chain. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** pv double[2][3] observer's geocentric pos/vel (m, m/s) +** ebpv double[2][3] Earth barycentric PV (au, au/day) +** ehp double[3] Earth heliocentric P (au) +** +** Returned: +** 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 unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double unchanged +** refa double unchanged +** refb double unchanged +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 2) All the vectors are with respect to BCRS axes. +** +** 3) Providing separate arguments for (i) the observer's geocentric +** position and velocity and (ii) the Earth ephemeris is done for +** convenience in the geocentric, terrestrial and Earth orbit cases. +** For deep space applications it maybe more convenient to specify +** zero geocentric position and velocity and to supply the +** observer's position and velocity information directly instead of +** with respect to the Earth. However, note the different units: +** m and m/s for the geocentric vectors, au and au/day for the +** heliocentric and barycentric vectors. +** +** 4) In cases where the caller does not wish to provide the Earth +** ephemeris, the function iauApcs13 can be used instead of the +** present function. This computes the Earth ephemeris using the +** SOFA function iauEpv00. +** +** 5) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 6) The context structure astrom produced by this function is used by +** iauAtciq* and iauAticq*. +** +** Called: +** iauCp copy p-vector +** iauPm modulus of p-vector +** iauPn decompose p-vector into modulus and direction +** iauIr initialize r-matrix to identity +** +*/ + + + + +void iauApcs13(double date1, double date2, double pv[2][3], + iauASTROM *astrom) +/* +** - - - - - - - - - - +** i a u A p c s 1 3 +** - - - - - - - - - - +** +** For an observer whose geocentric position and velocity are known, +** prepare star-independent astrometry parameters for transformations +** between ICRS and GCRS. The Earth ephemeris is from SOFA models. +** +** The parameters produced by this function are required in the space +** motion, parallax, light deflection and aberration parts of the +** astrometric transformation chain. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** pv double[2][3] observer's geocentric pos/vel (Note 3) +** +** Returned: +** 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 unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double unchanged +** refa double unchanged +** refb double unchanged +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 2) All the vectors are with respect to BCRS axes. +** +** 3) The observer's position and velocity pv are geocentric but with +** respect to BCRS axes, and in units of m and m/s. No assumptions +** are made about proximity to the Earth, and the function can be +** used for deep space applications as well as Earth orbit and +** terrestrial. +** +** 4) In cases where the caller wishes to supply his own Earth +** ephemeris, the function iauApcs can be used instead of the present +** function. +** +** 5) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 6) The context structure astrom produced by this function is used by +** iauAtciq* and iauAticq*. +** +** Called: +** iauEpv00 Earth position and velocity +** iauApcs astrometry parameters, ICRS-GCRS, space observer +** +*/ + + + + +void iauAper(double theta, iauASTROM *astrom) +/* +** - - - - - - - - +** i a u A p e r +** - - - - - - - - +** +** In the star-independent astrometry parameters, update only the +** Earth rotation angle, supplied by the caller explicitly. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** theta double Earth rotation angle (radians, Note 2) +** astrom iauASTROM* star-independent astrometry parameters: +** pmt double not used +** eb double[3] not used +** eh double[3] not used +** em double not used +** v double[3] not used +** bm1 double not used +** bpn double[3][3] not used +** along double longitude + s' (radians) +** xpl double not used +** ypl double not used +** sphi double not used +** cphi double not used +** diurab double not used +** eral double not used +** refa double not used +** refb double not used +** +** Returned: +** astrom iauASTROM* star-independent astrometry parameters: +** pmt double unchanged +** eb double[3] unchanged +** eh double[3] unchanged +** em double unchanged +** v double[3] unchanged +** bm1 double unchanged +** bpn double[3][3] unchanged +** along double unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double "local" Earth rotation angle (radians) +** refa double unchanged +** refb double unchanged +** +** Notes: +** +** 1) This function exists to enable sidereal-tracking applications to +** avoid wasteful recomputation of the bulk of the astrometry +** parameters: only the Earth rotation is updated. +** +** 2) For targets expressed as equinox based positions, such as +** classical geocentric apparent (RA,Dec), the supplied theta can be +** Greenwich apparent sidereal time rather than Earth rotation +** angle. +** +** 3) The function iauAper13 can be used instead of the present +** function, and starts from UT1 rather than ERA itself. +** +** 4) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +*/ + + + + +void iauAper13(double ut11, double ut12, iauASTROM *astrom) +/* +** - - - - - - - - - - +** i a u A p e r 1 3 +** - - - - - - - - - - +** +** In the star-independent astrometry parameters, update only the +** Earth rotation angle. The caller provides UT1, (n.b. not UTC). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** ut11 double UT1 as a 2-part... +** ut12 double ...Julian Date (Note 1) +** astrom iauASTROM* star-independent astrometry parameters: +** pmt double not used +** eb double[3] not used +** eh double[3] not used +** em double not used +** v double[3] not used +** bm1 double not used +** bpn double[3][3] not used +** along double longitude + s' (radians) +** xpl double not used +** ypl double not used +** sphi double not used +** cphi double not used +** diurab double not used +** eral double not used +** refa double not used +** refb double not used +** +** Returned: +** astrom iauASTROM* star-independent astrometry parameters: +** pmt double unchanged +** eb double[3] unchanged +** eh double[3] unchanged +** em double unchanged +** v double[3] unchanged +** bm1 double unchanged +** bpn double[3][3] unchanged +** along double unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double "local" Earth rotation angle (radians) +** refa double unchanged +** refb double unchanged +** +** Notes: +** +** 1) The UT1 date (n.b. not UTC) ut11+ut12 is a Julian Date, +** apportioned in any convenient way between the arguments ut11 and +** ut12. For example, JD(UT1)=2450123.7 could be expressed in any +** of these ways, among others: +** +** ut11 ut12 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. The date & time method is +** best matched to the algorithm used: maximum precision is +** delivered when the ut11 argument is for 0hrs UT1 on the day in +** question and the ut12 argument lies in the range 0 to 1, or vice +** versa. +** +** 2) If the caller wishes to provide the Earth rotation angle itself, +** the function iauAper can be used instead. One use of this +** technique is to substitute Greenwich apparent sidereal time and +** thereby to support equinox based transformations directly. +** +** 3) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** Called: +** iauAper astrometry parameters: update ERA +** iauEra00 Earth rotation angle, IAU 2000 +** +*/ + + + + +void iauApio(double sp, double theta, + double elong, double phi, double hm, double xp, double yp, + double refa, double refb, + iauASTROM *astrom) +/* +** - - - - - - - - +** i a u A p i o +** - - - - - - - - +** +** For a terrestrial observer, prepare star-independent astrometry +** parameters for transformations between CIRS and observed +** coordinates. The caller supplies the Earth orientation information +** and the refraction constants as well as the site coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** sp double the TIO locator s' (radians, Note 1) +** theta double Earth rotation angle (radians) +** elong double longitude (radians, east +ve, Note 2) +** phi double geodetic latitude (radians, Note 2) +** hm double height above ellipsoid (m, geodetic Note 2) +** xp,yp double polar motion coordinates (radians, Note 3) +** refa double refraction constant A (radians, Note 4) +** refb double refraction constant B (radians, Note 4) +** +** Returned: +** astrom iauASTROM* star-independent astrometry parameters: +** pmt double unchanged +** eb double[3] unchanged +** eh double[3] unchanged +** em double unchanged +** v double[3] unchanged +** bm1 double unchanged +** bpn double[3][3] unchanged +** 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) +** +** Notes: +** +** 1) sp, the TIO locator s', is a tiny quantity needed only by the +** most precise applications. It can either be set to zero or +** predicted using the SOFA function iauSp00. +** +** 2) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN: the +** longitude required by the present function is east-positive +** (i.e. right-handed), in accordance with geographical convention. +** +** 3) The polar motion xp,yp can be obtained from IERS bulletins. The +** values are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions 2003), measured along the +** meridians 0 and 90 deg west respectively. For many applications, +** xp and yp can be set to zero. +** +** Internally, the polar motion is stored in a form rotated onto the +** local meridian. +** +** 4) The refraction constants refa and refb are for use in a +** dZ = A*tan(Z)+B*tan^3(Z) model, where Z is the observed +** (i.e. refracted) zenith distance and dZ is the amount of +** refraction. +** +** 5) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** 6) In cases where the caller does not wish to provide the Earth +** rotation information and refraction constants, the function +** iauApio13 can be used instead of the present function. This +** starts from UTC and weather readings etc. and computes suitable +** values using other SOFA functions. +** +** 7) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 8) The context structure astrom produced by this function is used by +** iauAtioq and iauAtoiq. +** +** Called: +** iauPvtob position/velocity of terrestrial station +** iauAper astrometry parameters: update ERA +** +*/ + + + + +int iauApio13(double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + iauASTROM *astrom) +/* +** - - - - - - - - - - +** i a u A p i o 1 3 +** - - - - - - - - - - +** +** For a terrestrial observer, prepare star-independent astrometry +** parameters for transformations between CIRS and observed +** coordinates. The caller supplies UTC, site coordinates, ambient air +** conditions and observing wavelength. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** utc1 double UTC as a 2-part... +** utc2 double ...quasi Julian Date (Notes 1,2) +** dut1 double UT1-UTC (seconds) +** elong double longitude (radians, east +ve, Note 3) +** phi double geodetic latitude (radians, Note 3) +** hm double height above ellipsoid (m, geodetic Notes 4,6) +** xp,yp double polar motion coordinates (radians, Note 5) +** phpa double pressure at the observer (hPa = mB, Note 6) +** tc double ambient temperature at the observer (deg C) +** rh double relative humidity at the observer (range 0-1) +** wl double wavelength (micrometers, Note 7) +** +** Returned: +** astrom iauASTROM* star-independent astrometry parameters: +** pmt double unchanged +** eb double[3] unchanged +** eh double[3] unchanged +** em double unchanged +** v double[3] unchanged +** bm1 double unchanged +** bpn double[3][3] unchanged +** 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 (function value): +** int status: +1 = dubious year (Note 2) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** However, JD cannot unambiguously represent UTC during a leap +** second unless special measures are taken. The convention in the +** present function is that the JD day represents UTC days whether +** the length is 86399, 86400 or 86401 SI seconds. +** +** Applications should use the function iauDtf2d to convert from +** calendar date and time of day into 2-part quasi Julian Date, as +** it implements the leap-second-ambiguity convention just +** described. +** +** 2) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the future +** to be trusted. See iauDat for further details. +** +** 3) UT1-UTC is tabulated in IERS bulletins. It increases by exactly +** one second at the end of each positive UTC leap second, +** introduced in order to keep UT1-UTC within +/- 0.9s. n.b. This +** practice is under review, and in the future UT1-UTC may grow +** essentially without limit. +** +** 4) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN: the +** longitude required by the present function is east-positive +** (i.e. right-handed), in accordance with geographical convention. +** +** 5) The polar motion xp,yp can be obtained from IERS bulletins. The +** values are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions 2003), measured along the +** meridians 0 and 90 deg west respectively. For many applications, +** xp and yp can be set to zero. +** +** Internally, the polar motion is stored in a form rotated onto +** the local meridian. +** +** 6) If hm, the height above the ellipsoid of the observing station +** in meters, is not known but phpa, the pressure in hPa (=mB), is +** available, an adequate estimate of hm can be obtained from the +** expression +** +** hm = -29.3 * tsl * log ( phpa / 1013.25 ); +** +** where tsl is the approximate sea-level air temperature in K +** (See Astrophysical Quantities, C.W.Allen, 3rd edition, section +** 52). Similarly, if the pressure phpa is not known, it can be +** estimated from the height of the observing station, hm, as +** follows: +** +** phpa = 1013.25 * exp ( -hm / ( 29.3 * tsl ) ); +** +** Note, however, that the refraction is nearly proportional to the +** pressure and that an accurate phpa value is important for +** precise work. +** +** 7) The argument wl specifies the observing wavelength in +** micrometers. The transition from optical to radio is assumed to +** occur at 100 micrometers (about 3000 GHz). +** +** 8) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** 9) In cases where the caller wishes to supply his own Earth +** rotation information and refraction constants, the function +** iauApc can be used instead of the present function. +** +** 10) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 11) The context structure astrom produced by this function is used +** by iauAtioq and iauAtoiq. +** +** Called: +** iauUtctai UTC to TAI +** iauTaitt TAI to TT +** iauUtcut1 UTC to UT1 +** iauSp00 the TIO locator s', IERS 2000 +** iauEra00 Earth rotation angle, IAU 2000 +** iauRefco refraction constants for given ambient conditions +** iauApio astrometry parameters, CIRS-observed +** +*/ + + + + +void iauAtci13(double rc, double dc, + double pr, double pd, double px, double rv, + double date1, double date2, + double *ri, double *di, double *eo) +/* +** - - - - - - - - - - +** i a u A t c i 1 3 +** - - - - - - - - - - +** +** Transform ICRS star data, epoch J2000.0, to CIRS. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rc double ICRS right ascension at J2000.0 (radians, Note 1) +** dc double ICRS declination at J2000.0 (radians, Note 1) +** pr double RA proper motion (radians/year; Note 2) +** pd double Dec proper motion (radians/year) +** px double parallax (arcsec) +** rv double radial velocity (km/s, +ve if receding) +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 3) +** +** Returned: +** ri,di double* CIRS geocentric RA,Dec (radians) +** eo double* equation of the origins (ERA-GST, Note 5) +** +** Notes: +** +** 1) Star data for an epoch other than J2000.0 (for example from the +** Hipparcos catalog, which has an epoch of J1991.25) will require a +** preliminary call to iauPmsafe before use. +** +** 2) The proper motion in RA is dRA/dt rather than cos(Dec)*dRA/dt. +** +** 3) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.8g could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.8g 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 4) The available accuracy is better than 1 milliarcsecond, limited +** mainly by the precession-nutation model that is used, namely +** IAU 2000A/2006. Very close to solar system bodies, additional +** errors of up to several milliarcseconds can occur because of +** unmodeled light deflection; however, the Sun's contribution is +** taken into account, to first order. The accuracy limitations of +** the SOFA function iauEpv00 (used to compute Earth position and +** velocity) can contribute aberration errors of up to +** 5 microarcseconds. Light deflection at the Sun's limb is +** uncertain at the 0.4 mas level. +** +** 5) Should the transformation to (equinox based) apparent place be +** required rather than (CIO based) intermediate place, subtract the +** equation of the origins from the returned right ascension: +** RA = RI - EO. (The iauAnp function can then be applied, as +** required, to keep the result in the conventional 0-2pi range.) +** +** Called: +** iauApci13 astrometry parameters, ICRS-CIRS, 2013 +** iauAtciq quick ICRS to CIRS +** +*/ + + + + +void iauAtciq(double rc, double dc, + double pr, double pd, double px, double rv, + iauASTROM *astrom, double *ri, double *di) +/* +** - - - - - - - - - +** i a u A t c i q +** - - - - - - - - - +** +** Quick ICRS, epoch J2000.0, to CIRS transformation, given precomputed +** star-independent astrometry parameters. +** +** Use of this function is appropriate when efficiency is important and +** where many star positions are to be transformed for one date. The +** star-independent parameters can be obtained by calling one of the +** functions iauApci[13], iauApcg[13], iauApco[13] or iauApcs[13]. +** +** If the parallax and proper motions are zero the iauAtciqz function +** can be used instead. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rc,dc double ICRS RA,Dec at J2000.0 (radians) +** pr double RA proper motion (radians/year; Note 3) +** pd double Dec proper motion (radians/year) +** px double parallax (arcsec) +** rv double radial velocity (km/s, +ve if receding) +** 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: +** ri,di double CIRS RA,Dec (radians) +** +** Notes: +** +** 1) All the vectors are with respect to BCRS axes. +** +** 2) Star data for an epoch other than J2000.0 (for example from the +** Hipparcos catalog, which has an epoch of J1991.25) will require a +** preliminary call to iauPmsafe before use. +** +** 3) The proper motion in RA is dRA/dt rather than cos(Dec)*dRA/dt. +** +** Called: +** iauPmpx proper motion and parallax +** iauLdsun light deflection by the Sun +** iauAb stellar aberration +** iauRxp product of r-matrix and pv-vector +** iauC2s p-vector to spherical +** iauAnp normalize angle into range 0 to 2pi +** +*/ + + + + +void iauAtciqn(double rc, double dc, double pr, double pd, + double px, double rv, iauASTROM *astrom, + int n, iauLDBODY b[], double *ri, double *di) +/* +** - - - - - - - - - - +** i a u A t c i q n +** - - - - - - - - - - +** +** Quick ICRS, epoch J2000.0, to CIRS transformation, given precomputed +** star-independent astrometry parameters plus a list of light- +** deflecting bodies. +** +** Use of this function is appropriate when efficiency is important and +** where many star positions are to be transformed for one date. The +** star-independent parameters can be obtained by calling one of the +** functions iauApci[13], iauApcg[13], iauApco[13] or iauApcs[13]. +** +** If the only light-deflecting body to be taken into account is the +** Sun, the iauAtciq function can be used instead. If in addition the +** parallax and proper motions are zero, the iauAtciqz function can be +** used. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rc,dc double ICRS RA,Dec at J2000.0 (radians) +** pr double RA proper motion (radians/year; Note 3) +** pd double Dec proper motion (radians/year) +** px double parallax (arcsec) +** rv double radial velocity (km/s, +ve if receding) +** 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) +** n int number of bodies (Note 3) +** b iauLDBODY[n] data for each of the n bodies (Notes 3,4): +** bm double mass of the body (solar masses, Note 5) +** dl double deflection limiter (Note 6) +** pv [2][3] barycentric PV of the body (au, au/day) +** +** Returned: +** ri,di double CIRS RA,Dec (radians) +** +** Notes: +** +** 1) Star data for an epoch other than J2000.0 (for example from the +** Hipparcos catalog, which has an epoch of J1991.25) will require a +** preliminary call to iauPmsafe before use. +** +** 2) The proper motion in RA is dRA/dt rather than cos(Dec)*dRA/dt. +** +** 3) The struct b contains n entries, one for each body to be +** considered. If n = 0, no gravitational light deflection will be +** applied, not even for the Sun. +** +** 4) The struct b should include an entry for the Sun as well as for +** any planet or other body to be taken into account. The entries +** should be in the order in which the light passes the body. +** +** 5) In the entry in the b struct for body i, the mass parameter +** b[i].bm can, as required, be adjusted in order to allow for such +** effects as quadrupole field. +** +** 6) The deflection limiter parameter b[i].dl is phi^2/2, where phi is +** the angular separation (in radians) between star and body at +** which limiting is applied. As phi shrinks below the chosen +** threshold, the deflection is artificially reduced, reaching zero +** for phi = 0. Example values suitable for a terrestrial +** observer, together with masses, are as follows: +** +** body i b[i].bm b[i].dl +** +** Sun 1.0 6e-6 +** Jupiter 0.00095435 3e-9 +** Saturn 0.00028574 3e-10 +** +** 7) For efficiency, validation of the contents of the b array is +** omitted. The supplied masses must be greater than zero, the +** position and velocity vectors must be right, and the deflection +** limiter greater than zero. +** +** Called: +** iauPmpx proper motion and parallax +** iauLdn light deflection by n bodies +** iauAb stellar aberration +** iauRxp product of r-matrix and pv-vector +** iauC2s p-vector to spherical +** iauAnp normalize angle into range 0 to 2pi +** +*/ + + + + +void iauAtciqz(double rc, double dc, iauASTROM *astrom, + double *ri, double *di) +/* +** - - - - - - - - - - +** i a u A t c i q z +** - - - - - - - - - - +** +** Quick ICRS to CIRS transformation, given precomputed star- +** independent astrometry parameters, and assuming zero parallax and +** proper motion. +** +** Use of this function is appropriate when efficiency is important and +** where many star positions are to be transformed for one date. The +** star-independent parameters can be obtained by calling one of the +** functions iauApci[13], iauApcg[13], iauApco[13] or iauApcs[13]. +** +** The corresponding function for the case of non-zero parallax and +** proper motion is iauAtciq. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rc,dc double ICRS astrometric 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: +** ri,di double CIRS RA,Dec (radians) +** +** Note: +** +** All the vectors are with respect to BCRS axes. +** +** References: +** +** Urban, S. & Seidelmann, P. K. (eds), Explanatory Supplement to +** the Astronomical Almanac, 3rd ed., University Science Books +** (2013). +** +** Klioner, Sergei A., "A practical relativistic model for micro- +** arcsecond astrometry in space", Astr. J. 125, 1580-1597 (2003). +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauLdsun light deflection due to Sun +** iauAb stellar aberration +** iauRxp product of r-matrix and p-vector +** iauC2s p-vector to spherical +** iauAnp normalize angle into range +/- pi +** +*/ + + + + +int iauAtco13(double rc, double dc, + double pr, double pd, double px, double rv, + double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + double *aob, double *zob, double *hob, + double *dob, double *rob, double *eo) +/* +** - - - - - - - - - - +** i a u A t c o 1 3 +** - - - - - - - - - - +** +** ICRS RA,Dec to observed place. The caller supplies UTC, site +** coordinates, ambient air conditions and observing wavelength. +** +** SOFA models are used for the Earth ephemeris, bias-precession- +** nutation, Earth orientation and refraction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rc,dc double ICRS right ascension at J2000.0 (radians, Note 1) +** pr double RA proper motion (radians/year; Note 2) +** pd double Dec proper motion (radians/year) +** px double parallax (arcsec) +** rv double radial velocity (km/s, +ve if receding) +** utc1 double UTC as a 2-part... +** utc2 double ...quasi Julian Date (Notes 3-4) +** dut1 double UT1-UTC (seconds, Note 5) +** elong double longitude (radians, east +ve, Note 6) +** phi double latitude (geodetic, radians, Note 6) +** hm double height above ellipsoid (m, geodetic, Notes 6,8) +** xp,yp double polar motion coordinates (radians, Note 7) +** phpa double pressure at the observer (hPa = mB, Note 8) +** tc double ambient temperature at the observer (deg C) +** rh double relative humidity at the observer (range 0-1) +** wl double wavelength (micrometers, Note 9) +** +** Returned: +** aob double* observed azimuth (radians: N=0,E=90) +** zob double* observed zenith distance (radians) +** hob double* observed hour angle (radians) +** dob double* observed declination (radians) +** rob double* observed right ascension (CIO-based, radians) +** eo double* equation of the origins (ERA-GST) +** +** Returned (function value): +** int status: +1 = dubious year (Note 4) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) Star data for an epoch other than J2000.0 (for example from the +** Hipparcos catalog, which has an epoch of J1991.25) will require +** a preliminary call to iauPmsafe before use. +** +** 2) The proper motion in RA is dRA/dt rather than cos(Dec)*dRA/dt. +** +** 3) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** However, JD cannot unambiguously represent UTC during a leap +** second unless special measures are taken. The convention in the +** present function is that the JD day represents UTC days whether +** the length is 86399, 86400 or 86401 SI seconds. +** +** Applications should use the function iauDtf2d to convert from +** calendar date and time of day into 2-part quasi Julian Date, as +** it implements the leap-second-ambiguity convention just +** described. +** +** 4) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the +** future to be trusted. See iauDat for further details. +** +** 5) UT1-UTC is tabulated in IERS bulletins. It increases by exactly +** one second at the end of each positive UTC leap second, +** introduced in order to keep UT1-UTC within +/- 0.9s. n.b. This +** practice is under review, and in the future UT1-UTC may grow +** essentially without limit. +** +** 6) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN: the +** longitude required by the present function is east-positive +** (i.e. right-handed), in accordance with geographical convention. +** +** 7) The polar motion xp,yp can be obtained from IERS bulletins. The +** values are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions 2003), measured along the +** meridians 0 and 90 deg west respectively. For many +** applications, xp and yp can be set to zero. +** +** 8) If hm, the height above the ellipsoid of the observing station +** in meters, is not known but phpa, the pressure in hPa (=mB), +** is available, an adequate estimate of hm can be obtained from +** the expression +** +** hm = -29.3 * tsl * log ( phpa / 1013.25 ); +** +** where tsl is the approximate sea-level air temperature in K +** (See Astrophysical Quantities, C.W.Allen, 3rd edition, section +** 52). Similarly, if the pressure phpa is not known, it can be +** estimated from the height of the observing station, hm, as +** follows: +** +** phpa = 1013.25 * exp ( -hm / ( 29.3 * tsl ) ); +** +** Note, however, that the refraction is nearly proportional to +** the pressure and that an accurate phpa value is important for +** precise work. +** +** 9) The argument wl specifies the observing wavelength in +** micrometers. The transition from optical to radio is assumed to +** occur at 100 micrometers (about 3000 GHz). +** +** 10) The accuracy of the result is limited by the corrections for +** refraction, which use a simple A*tan(z) + B*tan^3(z) model. +** Providing the meteorological parameters are known accurately and +** there are no gross local effects, the predicted observed +** coordinates should be within 0.05 arcsec (optical) or 1 arcsec +** (radio) for a zenith distance of less than 70 degrees, better +** than 30 arcsec (optical or radio) at 85 degrees and better +** than 20 arcmin (optical) or 30 arcmin (radio) at the horizon. +** +** Without refraction, the complementary functions iauAtco13 and +** iauAtoc13 are self-consistent to better than 1 microarcsecond +** all over the celestial sphere. With refraction included, +** consistency falls off at high zenith distances, but is still +** better than 0.05 arcsec at 85 degrees. +** +** 11) "Observed" Az,ZD means the position that would be seen by a +** perfect geodetically aligned theodolite. (Zenith distance is +** used rather than altitude in order to reflect the fact that no +** allowance is made for depression of the horizon.) This is +** related to the observed HA,Dec via the standard rotation, using +** the geodetic latitude (corrected for polar motion), while the +** observed HA and RA are related simply through the Earth rotation +** angle and the site longitude. "Observed" RA,Dec or HA,Dec thus +** means the position that would be seen by a perfect equatorial +** with its polar axis aligned to the Earth's axis of rotation. +** +** 12) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** Called: +** iauApco13 astrometry parameters, ICRS-observed, 2013 +** iauAtciq quick ICRS to CIRS +** iauAtioq quick ICRS to observed +** +*/ + + + + +void iauAtic13(double ri, double di, double date1, double date2, + double *rc, double *dc, double *eo) +/* +** - - - - - - - - - - +** i a u A t i c 1 3 +** - - - - - - - - - - +** +** Transform star RA,Dec from geocentric CIRS to ICRS astrometric. +** +** 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 geocentric RA,Dec (radians) +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** +** Returned: +** rc,dc double ICRS astrometric RA,Dec (radians) +** eo double equation of the origins (ERA-GST, Note 4) +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 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. +** +** 3) The available accuracy is better than 1 milliarcsecond, limited +** mainly by the precession-nutation model that is used, namely +** IAU 2000A/2006. Very close to solar system bodies, additional +** errors of up to several milliarcseconds can occur because of +** unmodeled light deflection; however, the Sun's contribution is +** taken into account, to first order. The accuracy limitations of +** the SOFA function iauEpv00 (used to compute Earth position and +** velocity) can contribute aberration errors of up to +** 5 microarcseconds. Light deflection at the Sun's limb is +** uncertain at the 0.4 mas level. +** +** 4) Should the transformation to (equinox based) J2000.0 mean place +** be required rather than (CIO based) ICRS coordinates, subtract the +** equation of the origins from the returned right ascension: +** RA = RI - EO. (The iauAnp function can then be applied, as +** required, to keep the result in the conventional 0-2pi range.) +** +** Called: +** iauApci13 astrometry parameters, ICRS-CIRS, 2013 +** iauAticq quick CIRS to ICRS astrometric +** +*/ + + + + +void iauAticq(double ri, double di, iauASTROM *astrom, + double *rc, double *dc) +/* +** - - - - - - - - - +** i a u A t i c q +** - - - - - - - - - +** +** 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 +** +*/ + + + + +void iauAticqn(double ri, double di, iauASTROM *astrom, + int n, iauLDBODY b[], double *rc, double *dc) +/* +** - - - - - - - - - +** i a u A t i c q n +** - - - - - - - - - +** +** Quick CIRS to ICRS astrometric place transformation, given the star- +** independent astrometry parameters plus a list of light-deflecting +** bodies. +** +** 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]. +* +* If the only light-deflecting body to be taken into account is the +* Sun, the iauAticq function can be used instead. +** +** 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) +** n int number of bodies (Note 3) +** b iauLDBODY[n] data for each of the n bodies (Notes 3,4): +** bm double mass of the body (solar masses, Note 5) +** dl double deflection limiter (Note 6) +** pv [2][3] barycentric PV of the body (au, au/day) +** +** Returned: +** rc,dc double ICRS astrometric RA,Dec (radians) +** +** Notes: +** +** 1) Iterative techniques are used for the aberration and light +** deflection corrections so that the functions iauAticqn and +** iauAtciqn are accurate inverses; even at the edge of the Sun's +** disk the discrepancy is only about 1 nanoarcsecond. +** +** 2) If the only light-deflecting body to be taken into account is the +** Sun, the iauAticq function can be used instead. +** +** 3) The struct b contains n entries, one for each body to be +** considered. If n = 0, no gravitational light deflection will be +** applied, not even for the Sun. +** +** 4) The struct b should include an entry for the Sun as well as for +** any planet or other body to be taken into account. The entries +** should be in the order in which the light passes the body. +** +** 5) In the entry in the b struct for body i, the mass parameter +** b[i].bm can, as required, be adjusted in order to allow for such +** effects as quadrupole field. +** +** 6) The deflection limiter parameter b[i].dl is phi^2/2, where phi is +** the angular separation (in radians) between star and body at +** which limiting is applied. As phi shrinks below the chosen +** threshold, the deflection is artificially reduced, reaching zero +** for phi = 0. Example values suitable for a terrestrial +** observer, together with masses, are as follows: +** +** body i b[i].bm b[i].dl +** +** Sun 1.0 6e-6 +** Jupiter 0.00095435 3e-9 +** Saturn 0.00028574 3e-10 +** +** 7) For efficiency, validation of the contents of the b array is +** omitted. The supplied masses must be greater than zero, the +** position and velocity vectors must be right, and the deflection +** limiter greater than zero. +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauTrxp product of transpose of r-matrix and p-vector +** iauZp zero p-vector +** iauAb stellar aberration +** iauLdn light deflection by n bodies +** iauC2s p-vector to spherical +** iauAnp normalize angle into range +/- pi +** +*/ + + + + +int iauAtio13(double ri, double di, + double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + double *aob, double *zob, double *hob, + double *dob, double *rob) +/* +** - - - - - - - - - - +** i a u A t i o 1 3 +** - - - - - - - - - - +** +** CIRS RA,Dec to observed place. The caller supplies UTC, site +** coordinates, ambient air conditions and observing wavelength. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** ri double CIRS right ascension (CIO-based, radians) +** di double CIRS declination (radians) +** utc1 double UTC as a 2-part... +** utc2 double ...quasi Julian Date (Notes 1,2) +** dut1 double UT1-UTC (seconds, Note 3) +** elong double longitude (radians, east +ve, Note 4) +** phi double geodetic latitude (radians, Note 4) +** hm double height above ellipsoid (m, geodetic Notes 4,6) +** xp,yp double polar motion coordinates (radians, Note 5) +** phpa double pressure at the observer (hPa = mB, Note 6) +** tc double ambient temperature at the observer (deg C) +** rh double relative humidity at the observer (range 0-1) +** wl double wavelength (micrometers, Note 7) +** +** Returned: +** aob double* observed azimuth (radians: N=0,E=90) +** zob double* observed zenith distance (radians) +** hob double* observed hour angle (radians) +** dob double* observed declination (radians) +** rob double* observed right ascension (CIO-based, radians) +** +** Returned (function value): +** int status: +1 = dubious year (Note 2) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** However, JD cannot unambiguously represent UTC during a leap +** second unless special measures are taken. The convention in the +** present function is that the JD day represents UTC days whether +** the length is 86399, 86400 or 86401 SI seconds. +** +** Applications should use the function iauDtf2d to convert from +** calendar date and time of day into 2-part quasi Julian Date, as +** it implements the leap-second-ambiguity convention just +** described. +** +** 2) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the +** future to be trusted. See iauDat for further details. +** +** 3) UT1-UTC is tabulated in IERS bulletins. It increases by exactly +** one second at the end of each positive UTC leap second, +** introduced in order to keep UT1-UTC within +/- 0.9s. n.b. This +** practice is under review, and in the future UT1-UTC may grow +** essentially without limit. +** +** 4) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN: the +** longitude required by the present function is east-positive +** (i.e. right-handed), in accordance with geographical convention. +** +** 5) The polar motion xp,yp can be obtained from IERS bulletins. The +** values are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions 2003), measured along the +** meridians 0 and 90 deg west respectively. For many +** applications, xp and yp can be set to zero. +** +** 6) If hm, the height above the ellipsoid of the observing station +** in meters, is not known but phpa, the pressure in hPa (=mB), is +** available, an adequate estimate of hm can be obtained from the +** expression +** +** hm = -29.3 * tsl * log ( phpa / 1013.25 ); +** +** where tsl is the approximate sea-level air temperature in K +** (See Astrophysical Quantities, C.W.Allen, 3rd edition, section +** 52). Similarly, if the pressure phpa is not known, it can be +** estimated from the height of the observing station, hm, as +** follows: +** +** phpa = 1013.25 * exp ( -hm / ( 29.3 * tsl ) ); +** +** Note, however, that the refraction is nearly proportional to +** the pressure and that an accurate phpa value is important for +** precise work. +** +** 7) The argument wl specifies the observing wavelength in +** micrometers. The transition from optical to radio is assumed to +** occur at 100 micrometers (about 3000 GHz). +** +** 8) "Observed" Az,ZD means the position that would be seen by a +** perfect geodetically aligned theodolite. (Zenith distance is +** used rather than altitude in order to reflect the fact that no +** allowance is made for depression of the horizon.) This is +** related to the observed HA,Dec via the standard rotation, using +** the geodetic latitude (corrected for polar motion), while the +** observed HA and RA are related simply through the Earth rotation +** angle and the site longitude. "Observed" RA,Dec or HA,Dec thus +** means the position that would be seen by a perfect equatorial +** with its polar axis aligned to the Earth's axis of rotation. +** +** 9) The accuracy of the result is limited by the corrections for +** refraction, which use a simple A*tan(z) + B*tan^3(z) model. +** Providing the meteorological parameters are known accurately and +** there are no gross local effects, the predicted astrometric +** coordinates should be within 0.05 arcsec (optical) or 1 arcsec +** (radio) for a zenith distance of less than 70 degrees, better +** than 30 arcsec (optical or radio) at 85 degrees and better +** than 20 arcmin (optical) or 30 arcmin (radio) at the horizon. +** +** 10) The complementary functions iauAtio13 and iauAtoi13 are self- +** consistent to better than 1 microarcsecond all over the +** celestial sphere. +** +** 11) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** Called: +** iauApio13 astrometry parameters, CIRS-observed, 2013 +** iauAtioq quick ICRS to observed +** +*/ + + + + +void iauAtioq(double ri, double di, iauASTROM *astrom, + double *aob, double *zob, + double *hob, double *dob, double *rob) +/* +** - - - - - - - - - +** i a u A t i o q +** - - - - - - - - - +** +** Quick CIRS to observed place transformation. +** +** 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 iauApio[13] or iauApco[13]. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** ri double CIRS right ascension +** di double CIRS declination +** 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: +** aob double* observed azimuth (radians: N=0,E=90) +** zob double* observed zenith distance (radians) +** hob double* observed hour angle (radians) +** dob double* observed declination (radians) +** rob double* observed right ascension (CIO-based, radians) +** +** Notes: +** +** 1) This function returns zenith distance rather than altitude in +** order to reflect the fact that no allowance is made for +** depression of the horizon. +** +** 2) The accuracy of the result is limited by the corrections for +** refraction, which use a simple A*tan(z) + B*tan^3(z) model. +** Providing the meteorological parameters are known accurately and +** there are no gross local effects, the predicted observed +** coordinates should be within 0.05 arcsec (optical) or 1 arcsec +** (radio) for a zenith distance of less than 70 degrees, better +** than 30 arcsec (optical or radio) at 85 degrees and better +** than 20 arcmin (optical) or 30 arcmin (radio) at the horizon. +** +** Without refraction, the complementary functions iauAtioq and +** iauAtoiq are self-consistent to better than 1 microarcsecond all +** over the celestial sphere. With refraction included, consistency +** falls off at high zenith distances, but is still better than +** 0.05 arcsec at 85 degrees. +** +** 3) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** 4) The CIRS RA,Dec is obtained from a star catalog mean place by +** allowing for space motion, parallax, the Sun's gravitational lens +** effect, annual aberration and precession-nutation. For star +** positions in the ICRS, these effects can be applied by means of +** the iauAtci13 (etc.) functions. Starting from classical "mean +** place" systems, additional transformations will be needed first. +** +** 5) "Observed" Az,El means the position that would be seen by a +** perfect geodetically aligned theodolite. This is obtained from +** the CIRS RA,Dec by allowing for Earth orientation and diurnal +** aberration, rotating from equator to horizon coordinates, and +** then adjusting for refraction. The HA,Dec is obtained by +** rotating back into equatorial coordinates, and is the position +** that would be seen by a perfect equatorial with its polar axis +** aligned to the Earth's axis of rotation. Finally, the RA is +** obtained by subtracting the HA from the local ERA. +** +** 6) The star-independent CIRS-to-observed-place parameters in ASTROM +** may be computed with iauApio[13] or iauApco[13]. If nothing has +** changed significantly except the time, iauAper[13] may be used to +** perform the requisite adjustment to the astrom structure. +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauC2s p-vector to spherical +** iauAnp normalize angle into range 0 to 2pi +** +*/ + + + + +int iauAtoc13(const char *type, double ob1, double ob2, + double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + double *rc, double *dc) +/* +** - - - - - - - - - - +** i a u A t o c 1 3 +** - - - - - - - - - - +** +** Observed place at a groundbased site to to ICRS astrometric RA,Dec. +** The caller supplies UTC, site coordinates, ambient air conditions +** and observing wavelength. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** type char[] type of coordinates - "R", "H" or "A" (Notes 1,2) +** ob1 double observed Az, HA or RA (radians; Az is N=0,E=90) +** ob2 double observed ZD or Dec (radians) +** utc1 double UTC as a 2-part... +** utc2 double ...quasi Julian Date (Notes 3,4) +** dut1 double UT1-UTC (seconds, Note 5) +** elong double longitude (radians, east +ve, Note 6) +** phi double geodetic latitude (radians, Note 6) +** hm double height above ellipsoid (m, geodetic Notes 6,8) +** xp,yp double polar motion coordinates (radians, Note 7) +** phpa double pressure at the observer (hPa = mB, Note 8) +** tc double ambient temperature at the observer (deg C) +** rh double relative humidity at the observer (range 0-1) +** wl double wavelength (micrometers, Note 9) +** +** Returned: +** rc,dc double ICRS astrometric RA,Dec (radians) +** +** Returned (function value): +** int status: +1 = dubious year (Note 4) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) "Observed" Az,ZD means the position that would be seen by a +** perfect geodetically aligned theodolite. (Zenith distance is +** used rather than altitude in order to reflect the fact that no +** allowance is made for depression of the horizon.) This is +** related to the observed HA,Dec via the standard rotation, using +** the geodetic latitude (corrected for polar motion), while the +** observed HA and RA are related simply through the Earth rotation +** angle and the site longitude. "Observed" RA,Dec or HA,Dec thus +** means the position that would be seen by a perfect equatorial +** with its polar axis aligned to the Earth's axis of rotation. +** +** 2) Only the first character of the type argument is significant. +** "R" or "r" indicates that ob1 and ob2 are the observed right +** ascension and declination; "H" or "h" indicates that they are +** hour angle (west +ve) and declination; anything else ("A" or +** "a" is recommended) indicates that ob1 and ob2 are azimuth +** (north zero, east 90 deg) and zenith distance. +** +** 3) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** However, JD cannot unambiguously represent UTC during a leap +** second unless special measures are taken. The convention in the +** present function is that the JD day represents UTC days whether +** the length is 86399, 86400 or 86401 SI seconds. +** +** Applications should use the function iauDtf2d to convert from +** calendar date and time of day into 2-part quasi Julian Date, as +** it implements the leap-second-ambiguity convention just +** described. +** +** 4) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the +** future to be trusted. See iauDat for further details. +** +** 5) UT1-UTC is tabulated in IERS bulletins. It increases by exactly +** one second at the end of each positive UTC leap second, +** introduced in order to keep UT1-UTC within +/- 0.9s. n.b. This +** practice is under review, and in the future UT1-UTC may grow +** essentially without limit. +** +** 6) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN: the +** longitude required by the present function is east-positive +** (i.e. right-handed), in accordance with geographical convention. +** +** 7) The polar motion xp,yp can be obtained from IERS bulletins. The +** values are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions 2003), measured along the +** meridians 0 and 90 deg west respectively. For many +** applications, xp and yp can be set to zero. +** +** 8) If hm, the height above the ellipsoid of the observing station +** in meters, is not known but phpa, the pressure in hPa (=mB), is +** available, an adequate estimate of hm can be obtained from the +** expression +** +** hm = -29.3 * tsl * log ( phpa / 1013.25 ); +** +** where tsl is the approximate sea-level air temperature in K +** (See Astrophysical Quantities, C.W.Allen, 3rd edition, section +** 52). Similarly, if the pressure phpa is not known, it can be +** estimated from the height of the observing station, hm, as +** follows: +** +** phpa = 1013.25 * exp ( -hm / ( 29.3 * tsl ) ); +** +** Note, however, that the refraction is nearly proportional to +** the pressure and that an accurate phpa value is important for +** precise work. +** +** 9) The argument wl specifies the observing wavelength in +** micrometers. The transition from optical to radio is assumed to +** occur at 100 micrometers (about 3000 GHz). +** +** 10) The accuracy of the result is limited by the corrections for +** refraction, which use a simple A*tan(z) + B*tan^3(z) model. +** Providing the meteorological parameters are known accurately and +** there are no gross local effects, the predicted astrometric +** coordinates should be within 0.05 arcsec (optical) or 1 arcsec +** (radio) for a zenith distance of less than 70 degrees, better +** than 30 arcsec (optical or radio) at 85 degrees and better +** than 20 arcmin (optical) or 30 arcmin (radio) at the horizon. +** +** Without refraction, the complementary functions iauAtco13 and +** iauAtoc13 are self-consistent to better than 1 microarcsecond +** all over the celestial sphere. With refraction included, +** consistency falls off at high zenith distances, but is still +** better than 0.05 arcsec at 85 degrees. +** +** 11) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** Called: +** iauApco13 astrometry parameters, ICRS-observed +** iauAtoiq quick observed to CIRS +** iauAticq quick CIRS to ICRS +** +*/ + + + + +int iauAtoi13(const char *type, double ob1, double ob2, + double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + double *ri, double *di) +/* +** - - - - - - - - - - +** i a u A t o i 1 3 +** - - - - - - - - - - +** +** Observed place to CIRS. The caller supplies UTC, site coordinates, +** ambient air conditions and observing wavelength. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** type char[] type of coordinates - "R", "H" or "A" (Notes 1,2) +** ob1 double observed Az, HA or RA (radians; Az is N=0,E=90) +** ob2 double observed ZD or Dec (radians) +** utc1 double UTC as a 2-part... +** utc2 double ...quasi Julian Date (Notes 3,4) +** dut1 double UT1-UTC (seconds, Note 5) +** elong double longitude (radians, east +ve, Note 6) +** phi double geodetic latitude (radians, Note 6) +** hm double height above the ellipsoid (meters, Notes 6,8) +** xp,yp double polar motion coordinates (radians, Note 7) +** phpa double pressure at the observer (hPa = mB, Note 8) +** tc double ambient temperature at the observer (deg C) +** rh double relative humidity at the observer (range 0-1) +** wl double wavelength (micrometers, Note 9) +** +** Returned: +** ri double* CIRS right ascension (CIO-based, radians) +** di double* CIRS declination (radians) +** +** Returned (function value): +** int status: +1 = dubious year (Note 2) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) "Observed" Az,ZD means the position that would be seen by a +** perfect geodetically aligned theodolite. (Zenith distance is +** used rather than altitude in order to reflect the fact that no +** allowance is made for depression of the horizon.) This is +** related to the observed HA,Dec via the standard rotation, using +** the geodetic latitude (corrected for polar motion), while the +** observed HA and RA are related simply through the Earth rotation +** angle and the site longitude. "Observed" RA,Dec or HA,Dec thus +** means the position that would be seen by a perfect equatorial +** with its polar axis aligned to the Earth's axis of rotation. +** +** 2) Only the first character of the type argument is significant. +** "R" or "r" indicates that ob1 and ob2 are the observed right +** ascension and declination; "H" or "h" indicates that they are +** hour angle (west +ve) and declination; anything else ("A" or +** "a" is recommended) indicates that ob1 and ob2 are azimuth +** (north zero, east 90 deg) and zenith distance. +** +** 3) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** However, JD cannot unambiguously represent UTC during a leap +** second unless special measures are taken. The convention in the +** present function is that the JD day represents UTC days whether +** the length is 86399, 86400 or 86401 SI seconds. +** +** Applications should use the function iauDtf2d to convert from +** calendar date and time of day into 2-part quasi Julian Date, as +** it implements the leap-second-ambiguity convention just +** described. +** +** 4) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the +** future to be trusted. See iauDat for further details. +** +** 5) UT1-UTC is tabulated in IERS bulletins. It increases by exactly +** one second at the end of each positive UTC leap second, +** introduced in order to keep UT1-UTC within +/- 0.9s. n.b. This +** practice is under review, and in the future UT1-UTC may grow +** essentially without limit. +** +** 6) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN: the +** longitude required by the present function is east-positive +** (i.e. right-handed), in accordance with geographical convention. +** +** 7) The polar motion xp,yp can be obtained from IERS bulletins. The +** values are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions 2003), measured along the +** meridians 0 and 90 deg west respectively. For many +** applications, xp and yp can be set to zero. +** +** 8) If hm, the height above the ellipsoid of the observing station +** in meters, is not known but phpa, the pressure in hPa (=mB), is +** available, an adequate estimate of hm can be obtained from the +** expression +** +** hm = -29.3 * tsl * log ( phpa / 1013.25 ); +** +** where tsl is the approximate sea-level air temperature in K +** (See Astrophysical Quantities, C.W.Allen, 3rd edition, section +** 52). Similarly, if the pressure phpa is not known, it can be +** estimated from the height of the observing station, hm, as +** follows: +** +** phpa = 1013.25 * exp ( -hm / ( 29.3 * tsl ) ); +** +** Note, however, that the refraction is nearly proportional to +** the pressure and that an accurate phpa value is important for +** precise work. +** +** 9) The argument wl specifies the observing wavelength in +** micrometers. The transition from optical to radio is assumed to +** occur at 100 micrometers (about 3000 GHz). +** +** 10) The accuracy of the result is limited by the corrections for +** refraction, which use a simple A*tan(z) + B*tan^3(z) model. +** Providing the meteorological parameters are known accurately and +** there are no gross local effects, the predicted astrometric +** coordinates should be within 0.05 arcsec (optical) or 1 arcsec +** (radio) for a zenith distance of less than 70 degrees, better +** than 30 arcsec (optical or radio) at 85 degrees and better +** than 20 arcmin (optical) or 30 arcmin (radio) at the horizon. +** +** Without refraction, the complementary functions iauAtio13 and +** iauAtoi13 are self-consistent to better than 1 microarcsecond +** all over the celestial sphere. With refraction included, +** consistency falls off at high zenith distances, but is still +** better than 0.05 arcsec at 85 degrees. +** +** 12) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** Called: +** iauApio13 astrometry parameters, CIRS-observed, 2013 +** iauAtoiq quick observed to CIRS +** +*/ + + + + +void iauAtoiq(const char *type, + double ob1, double ob2, iauASTROM *astrom, + double *ri, double *di) +/* +** - - - - - - - - - +** i a u A t o i q +** - - - - - - - - - +** +** Quick observed place to CIRS, 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 iauApio[13] or iauApco[13]. +** +** Status: support function. +** +** Given: +** type char[] type of coordinates: "R", "H" or "A" (Note 1) +** ob1 double observed Az, HA or RA (radians; Az is N=0,E=90) +** ob2 double observed ZD or 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: +** ri double* CIRS right ascension (CIO-based, radians) +** di double* CIRS declination (radians) +** +** Notes: +** +** 1) "Observed" Az,El means the position that would be seen by a +** perfect geodetically aligned theodolite. This is related to +** the observed HA,Dec via the standard rotation, using the geodetic +** latitude (corrected for polar motion), while the observed HA and +** RA are related simply through the Earth rotation angle and the +** site longitude. "Observed" RA,Dec or HA,Dec thus means the +** position that would be seen by a perfect equatorial with its +** polar axis aligned to the Earth's axis of rotation. By removing +** from the observed place the effects of atmospheric refraction and +** diurnal aberration, the CIRS RA,Dec is obtained. +** +** 2) Only the first character of the type argument is significant. +** "R" or "r" indicates that ob1 and ob2 are the observed right +** ascension and declination; "H" or "h" indicates that they are +** hour angle (west +ve) and declination; anything else ("A" or +** "a" is recommended) indicates that ob1 and ob2 are azimuth (north +** zero, east 90 deg) and zenith distance. (Zenith distance is used +** rather than altitude in order to reflect the fact that no +** allowance is made for depression of the horizon.) +** +** 3) The accuracy of the result is limited by the corrections for +** refraction, which use a simple A*tan(z) + B*tan^3(z) model. +** Providing the meteorological parameters are known accurately and +** there are no gross local effects, the predicted observed +** coordinates should be within 0.05 arcsec (optical) or 1 arcsec +** (radio) for a zenith distance of less than 70 degrees, better +** than 30 arcsec (optical or radio) at 85 degrees and better than +** 20 arcmin (optical) or 30 arcmin (radio) at the horizon. +** +** Without refraction, the complementary functions iauAtioq and +** iauAtoiq are self-consistent to better than 1 microarcsecond all +** over the celestial sphere. With refraction included, consistency +** falls off at high zenith distances, but is still better than +** 0.05 arcsec at 85 degrees. +** +** 4) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauC2s p-vector to spherical +** iauAnp normalize angle into range 0 to 2pi +** +*/ + + + + +void iauBi00(double *dpsibi, double *depsbi, double *dra) +/* +** - - - - - - - - +** i a u B i 0 0 +** - - - - - - - - +** +** Frame bias components of IAU 2000 precession-nutation models (part +** of MHB2000 with additions). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Returned: +** dpsibi,depsbi double longitude and obliquity corrections +** dra double the ICRS RA of the J2000.0 mean equinox +** +** Notes: +** +** 1) The frame bias corrections in longitude and obliquity (radians) +** are required in order to correct for the offset between the GCRS +** pole and the mean J2000.0 pole. They define, with respect to the +** GCRS frame, a J2000.0 mean pole that is consistent with the rest +** of the IAU 2000A precession-nutation model. +** +** 2) In addition to the displacement of the pole, the complete +** description of the frame bias requires also an offset in right +** ascension. This is not part of the IAU 2000A model, and is from +** Chapront et al. (2002). It is returned in radians. +** +** 3) This is a supplemented implementation of one aspect of the IAU +** 2000A nutation model, formally adopted by the IAU General +** Assembly in 2000, namely MHB2000 (Mathews et al. 2002). +** +** References: +** +** Chapront, J., Chapront-Touze, M. & Francou, G., Astron. +** Astrophys., 387, 700, 2002. +** +** Mathews, P.M., Herring, T.A., Buffet, B.A., "Modeling of nutation +** and precession New nutation series for nonrigid Earth and +** insights into the Earth's interior", J.Geophys.Res., 107, B4, +** 2002. The MHB2000 code itself was obtained on 9th September 2002 +** from ftp://maia.usno.navy.mil/conv2000/chapter5/IAU2000A. +** +*/ + + + + +void iauBp00(double date1, double date2, + double rb[3][3], double rp[3][3], double rbp[3][3]) +/* +** - - - - - - - - +** i a u B p 0 0 +** - - - - - - - - +** +** Frame bias and precession, IAU 2000. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rb double[3][3] frame bias matrix (Note 2) +** rp double[3][3] precession matrix (Note 3) +** rbp double[3][3] bias-precession matrix (Note 4) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix rb transforms vectors from GCRS to mean J2000.0 by +** applying frame bias. +** +** 3) The matrix rp transforms vectors from J2000.0 mean equator and +** equinox to mean equator and equinox of date by applying +** precession. +** +** 4) The matrix rbp transforms vectors from GCRS to mean equator and +** equinox of date by applying frame bias then precession. It is +** the product rp x rb. +** +** 5) It is permissible to re-use the same array in the returned +** arguments. The arrays are filled in the order given. +** +** Called: +** iauBi00 frame bias components, IAU 2000 +** iauPr00 IAU 2000 precession adjustments +** iauIr initialize r-matrix to identity +** iauRx rotate around X-axis +** iauRy rotate around Y-axis +** iauRz rotate around Z-axis +** iauCr copy r-matrix +** iauRxr product of two r-matrices +** +** Reference: +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +*/ + + + + +void iauBp06(double date1, double date2, + double rb[3][3], double rp[3][3], double rbp[3][3]) +/* +** - - - - - - - - +** i a u B p 0 6 +** - - - - - - - - +** +** Frame bias and precession, IAU 2006. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rb double[3][3] frame bias matrix (Note 2) +** rp double[3][3] precession matrix (Note 3) +** rbp double[3][3] bias-precession matrix (Note 4) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix rb transforms vectors from GCRS to mean J2000.0 by +** applying frame bias. +** +** 3) The matrix rp transforms vectors from mean J2000.0 to mean of +** date by applying precession. +** +** 4) The matrix rbp transforms vectors from GCRS to mean of date by +** applying frame bias then precession. It is the product rp x rb. +** +** 5) It is permissible to re-use the same array in the returned +** arguments. The arrays are filled in the order given. +** +** Called: +** iauPfw06 bias-precession F-W angles, IAU 2006 +** iauFw2m F-W angles to r-matrix +** iauPmat06 PB matrix, IAU 2006 +** iauTr transpose r-matrix +** iauRxr product of two r-matrices +** iauCr copy r-matrix +** +** References: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +*/ + + + + +void iauBpn2xy(double rbpn[3][3], double *x, double *y) +/* +** - - - - - - - - - - +** i a u B p n 2 x y +** - - - - - - - - - - +** +** Extract from the bias-precession-nutation matrix the X,Y coordinates +** of the Celestial Intermediate Pole. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rbpn double[3][3] celestial-to-true matrix (Note 1) +** +** Returned: +** x,y double Celestial Intermediate Pole (Note 2) +** +** Notes: +** +** 1) The matrix rbpn transforms vectors from GCRS to true equator (and +** CIO or equinox) of date, and therefore the Celestial Intermediate +** Pole unit vector is the bottom row of the matrix. +** +** 2) The arguments x,y are components of the Celestial Intermediate +** Pole unit vector in the Geocentric Celestial Reference System. +** +** Reference: +** +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 +** (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +*/ + + + + +void iauC2i00a(double date1, double date2, double rc2i[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 i 0 0 a +** - - - - - - - - - - +** +** Form the celestial-to-intermediate matrix for a given date using the +** IAU 2000A precession-nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rc2i double[3][3] celestial-to-intermediate matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix rc2i is the first stage in the transformation from +** celestial to terrestrial coordinates: +** +** [TRS] = RPOM * R_3(ERA) * rc2i * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), ERA is the Earth +** Rotation Angle and RPOM is the polar motion matrix. +** +** 3) A faster, but slightly less accurate result (about 1 mas), can be +** obtained by using instead the iauC2i00b function. +** +** Called: +** iauPnm00a classical NPB matrix, IAU 2000A +** iauC2ibpn celestial-to-intermediate matrix, given NPB matrix +** +** References: +** +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 +** (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +void iauC2i00b(double date1, double date2, double rc2i[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 i 0 0 b +** - - - - - - - - - - +** +** Form the celestial-to-intermediate matrix for a given date using the +** IAU 2000B precession-nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rc2i double[3][3] celestial-to-intermediate matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix rc2i is the first stage in the transformation from +** celestial to terrestrial coordinates: +** +** [TRS] = RPOM * R_3(ERA) * rc2i * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), ERA is the Earth +** Rotation Angle and RPOM is the polar motion matrix. +** +** 3) The present function is faster, but slightly less accurate (about +** 1 mas), than the iauC2i00a function. +** +** Called: +** iauPnm00b classical NPB matrix, IAU 2000B +** iauC2ibpn celestial-to-intermediate matrix, given NPB matrix +** +** References: +** +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 +** (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +void iauC2i06a(double date1, double date2, double rc2i[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 i 0 6 a +** - - - - - - - - - - +** +** Form the celestial-to-intermediate matrix for a given date using the +** IAU 2006 precession and IAU 2000A nutation models. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rc2i double[3][3] celestial-to-intermediate matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix rc2i is the first stage in the transformation from +** celestial to terrestrial coordinates: +** +** [TRS] = RPOM * R_3(ERA) * rc2i * [CRS] +** +** = RC2T * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), ERA is the Earth +** Rotation Angle and RPOM is the polar motion matrix. +** +** Called: +** iauPnm06a classical NPB matrix, IAU 2006/2000A +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS06 the CIO locator s, given X,Y, IAU 2006 +** iauC2ixys celestial-to-intermediate matrix, given X,Y and s +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), 2004, IERS Conventions (2003), +** IERS Technical Note No. 32, BKG +** +*/ + + + + +void iauC2ibpn(double date1, double date2, double rbpn[3][3], + double rc2i[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 i b p n +** - - - - - - - - - - +** +** Form the celestial-to-intermediate matrix for a given date given +** the bias-precession-nutation matrix. IAU 2000. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** rbpn double[3][3] celestial-to-true matrix (Note 2) +** +** Returned: +** rc2i double[3][3] celestial-to-intermediate matrix (Note 3) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix rbpn transforms vectors from GCRS to true equator (and +** CIO or equinox) of date. Only the CIP (bottom row) is used. +** +** 3) The matrix rc2i is the first stage in the transformation from +** celestial to terrestrial coordinates: +** +** [TRS] = RPOM * R_3(ERA) * rc2i * [CRS] +** +** = RC2T * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), ERA is the Earth +** Rotation Angle and RPOM is the polar motion matrix. +** +** 4) Although its name does not include "00", This function is in fact +** specific to the IAU 2000 models. +** +** Called: +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauC2ixy celestial-to-intermediate matrix, given X,Y +** +** References: +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +void iauC2ixy(double date1, double date2, double x, double y, + double rc2i[3][3]) +/* +** - - - - - - - - - +** i a u C 2 i x y +** - - - - - - - - - +** +** Form the celestial to intermediate-frame-of-date matrix for a given +** date when the CIP X,Y coordinates are known. IAU 2000. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** x,y double Celestial Intermediate Pole (Note 2) +** +** Returned: +** rc2i double[3][3] celestial-to-intermediate matrix (Note 3) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The Celestial Intermediate Pole coordinates are the x,y components +** of the unit vector in the Geocentric Celestial Reference System. +** +** 3) The matrix rc2i is the first stage in the transformation from +** celestial to terrestrial coordinates: +** +** [TRS] = RPOM * R_3(ERA) * rc2i * [CRS] +** +** = RC2T * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), ERA is the Earth +** Rotation Angle and RPOM is the polar motion matrix. +** +** 4) Although its name does not include "00", This function is in fact +** specific to the IAU 2000 models. +** +** Called: +** iauC2ixys celestial-to-intermediate matrix, given X,Y and s +** iauS00 the CIO locator s, given X,Y, IAU 2000A +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +void iauC2ixys(double x, double y, double s, double rc2i[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 i x y s +** - - - - - - - - - - +** +** Form the celestial to intermediate-frame-of-date matrix given the CIP +** X,Y and the CIO locator s. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** x,y double Celestial Intermediate Pole (Note 1) +** s double the CIO locator s (Note 2) +** +** Returned: +** rc2i double[3][3] celestial-to-intermediate matrix (Note 3) +** +** Notes: +** +** 1) The Celestial Intermediate Pole coordinates are the x,y +** components of the unit vector in the Geocentric Celestial +** Reference System. +** +** 2) The CIO locator s (in radians) positions the Celestial +** Intermediate Origin on the equator of the CIP. +** +** 3) The matrix rc2i is the first stage in the transformation from +** celestial to terrestrial coordinates: +** +** [TRS] = RPOM * R_3(ERA) * rc2i * [CRS] +** +** = RC2T * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), ERA is the Earth +** Rotation Angle and RPOM is the polar motion matrix. +** +** Called: +** iauIr initialize r-matrix to identity +** iauRz rotate around Z-axis +** iauRy rotate around Y-axis +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +void iauC2s(double p[3], double *theta, double *phi) +/* +** - - - - - - - +** i a u C 2 s +** - - - - - - - +** +** P-vector to spherical coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** p double[3] p-vector +** +** Returned: +** theta double longitude angle (radians) +** phi double latitude angle (radians) +** +** Notes: +** +** 1) The vector p can have any magnitude; only its direction is used. +** +** 2) If p is null, zero theta and phi are returned. +** +** 3) At either pole, zero theta is returned. +** +*/ + + + + +void iauC2t00a(double tta, double ttb, double uta, double utb, + double xp, double yp, double rc2t[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 t 0 0 a +** - - - - - - - - - - +** +** Form the celestial to terrestrial matrix given the date, the UT1 and +** the polar motion, using the IAU 2000A nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** tta,ttb double TT as a 2-part Julian Date (Note 1) +** uta,utb double UT1 as a 2-part Julian Date (Note 1) +** xp,yp double coordinates of the pole (radians, Note 2) +** +** Returned: +** rc2t double[3][3] celestial-to-terrestrial matrix (Note 3) +** +** Notes: +** +** 1) The TT and UT1 dates tta+ttb and uta+utb are Julian Dates, +** apportioned in any convenient way between the arguments uta and +** utb. For example, JD(UT1)=2450123.7 could be expressed in any of +** these ways, among others: +** +** uta utb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. In the case of uta,utb, the +** date & time method is best matched to the Earth rotation angle +** algorithm used: maximum precision is delivered when the uta +** argument is for 0hrs UT1 on the day in question and the utb +** argument lies in the range 0 to 1, or vice versa. +** +** 2) The arguments xp and yp are the coordinates (in radians) of the +** Celestial Intermediate Pole with respect to the International +** Terrestrial Reference System (see IERS Conventions 2003), +** measured along the meridians to 0 and 90 deg west respectively. +** +** 3) The matrix rc2t transforms from celestial to terrestrial +** coordinates: +** +** [TRS] = RPOM * R_3(ERA) * RC2I * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), RC2I is the +** celestial-to-intermediate matrix, ERA is the Earth rotation +** angle and RPOM is the polar motion matrix. +** +** 4) A faster, but slightly less accurate result (about 1 mas), can +** be obtained by using instead the iauC2t00b function. +** +** Called: +** iauC2i00a celestial-to-intermediate matrix, IAU 2000A +** iauEra00 Earth rotation angle, IAU 2000 +** iauSp00 the TIO locator s', IERS 2000 +** iauPom00 polar motion matrix +** iauC2tcio form CIO-based celestial-to-terrestrial matrix +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +void iauC2t00b(double tta, double ttb, double uta, double utb, + double xp, double yp, double rc2t[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 t 0 0 b +** - - - - - - - - - - +** +** Form the celestial to terrestrial matrix given the date, the UT1 and +** the polar motion, using the IAU 2000B nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** tta,ttb double TT as a 2-part Julian Date (Note 1) +** uta,utb double UT1 as a 2-part Julian Date (Note 1) +** xp,yp double coordinates of the pole (radians, Note 2) +** +** Returned: +** rc2t double[3][3] celestial-to-terrestrial matrix (Note 3) +** +** Notes: +** +** 1) The TT and UT1 dates tta+ttb and uta+utb are Julian Dates, +** apportioned in any convenient way between the arguments uta and +** utb. For example, JD(UT1)=2450123.7 could be expressed in any of +** these ways, among others: +** +** uta utb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. In the case of uta,utb, the +** date & time method is best matched to the Earth rotation angle +** algorithm used: maximum precision is delivered when the uta +** argument is for 0hrs UT1 on the day in question and the utb +** argument lies in the range 0 to 1, or vice versa. +** +** 2) The arguments xp and yp are the coordinates (in radians) of the +** Celestial Intermediate Pole with respect to the International +** Terrestrial Reference System (see IERS Conventions 2003), +** measured along the meridians to 0 and 90 deg west respectively. +** +** 3) The matrix rc2t transforms from celestial to terrestrial +** coordinates: +** +** [TRS] = RPOM * R_3(ERA) * RC2I * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), RC2I is the +** celestial-to-intermediate matrix, ERA is the Earth rotation +** angle and RPOM is the polar motion matrix. +** +** 4) The present function is faster, but slightly less accurate (about +** 1 mas), than the iauC2t00a function. +** +** Called: +** iauC2i00b celestial-to-intermediate matrix, IAU 2000B +** iauEra00 Earth rotation angle, IAU 2000 +** iauPom00 polar motion matrix +** iauC2tcio form CIO-based celestial-to-terrestrial matrix +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +void iauC2t06a(double tta, double ttb, double uta, double utb, + double xp, double yp, double rc2t[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 t 0 6 a +** - - - - - - - - - - +** +** Form the celestial to terrestrial matrix given the date, the UT1 and +** the polar motion, using the IAU 2006 precession and IAU 2000A +** nutation models. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** tta,ttb double TT as a 2-part Julian Date (Note 1) +** uta,utb double UT1 as a 2-part Julian Date (Note 1) +** xp,yp double coordinates of the pole (radians, Note 2) +** +** Returned: +** rc2t double[3][3] celestial-to-terrestrial matrix (Note 3) +** +** Notes: +** +** 1) The TT and UT1 dates tta+ttb and uta+utb are Julian Dates, +** apportioned in any convenient way between the arguments uta and +** utb. For example, JD(UT1)=2450123.7 could be expressed in any of +** these ways, among others: +** +** uta utb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. In the case of uta,utb, the +** date & time method is best matched to the Earth rotation angle +** algorithm used: maximum precision is delivered when the uta +** argument is for 0hrs UT1 on the day in question and the utb +** argument lies in the range 0 to 1, or vice versa. +** +** 2) The arguments xp and yp are the coordinates (in radians) of the +** Celestial Intermediate Pole with respect to the International +** Terrestrial Reference System (see IERS Conventions 2003), +** measured along the meridians to 0 and 90 deg west respectively. +** +** 3) The matrix rc2t transforms from celestial to terrestrial +** coordinates: +** +** [TRS] = RPOM * R_3(ERA) * RC2I * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), RC2I is the +** celestial-to-intermediate matrix, ERA is the Earth rotation +** angle and RPOM is the polar motion matrix. +** +** Called: +** iauC2i06a celestial-to-intermediate matrix, IAU 2006/2000A +** iauEra00 Earth rotation angle, IAU 2000 +** iauSp00 the TIO locator s', IERS 2000 +** iauPom00 polar motion matrix +** iauC2tcio form CIO-based celestial-to-terrestrial matrix +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), 2004, IERS Conventions (2003), +** IERS Technical Note No. 32, BKG +** +*/ + + + + +void iauC2tcio(double rc2i[3][3], double era, double rpom[3][3], + double rc2t[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 t c i o +** - - - - - - - - - - +** +** Assemble the celestial to terrestrial matrix from CIO-based +** components (the celestial-to-intermediate matrix, the Earth Rotation +** Angle and the polar motion matrix). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rc2i double[3][3] celestial-to-intermediate matrix +** era double Earth rotation angle (radians) +** rpom double[3][3] polar-motion matrix +** +** Returned: +** rc2t double[3][3] celestial-to-terrestrial matrix +** +** Notes: +** +** 1) This function constructs the rotation matrix that transforms +** vectors in the celestial system into vectors in the terrestrial +** system. It does so starting from precomputed components, namely +** the matrix which rotates from celestial coordinates to the +** intermediate frame, the Earth rotation angle and the polar motion +** matrix. One use of the present function is when generating a +** series of celestial-to-terrestrial matrices where only the Earth +** Rotation Angle changes, avoiding the considerable overhead of +** recomputing the precession-nutation more often than necessary to +** achieve given accuracy objectives. +** +** 2) The relationship between the arguments is as follows: +** +** [TRS] = RPOM * R_3(ERA) * rc2i * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003). +** +** Called: +** iauCr copy r-matrix +** iauRz rotate around Z-axis +** iauRxr product of two r-matrices +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), 2004, IERS Conventions (2003), +** IERS Technical Note No. 32, BKG +** +*/ + + + + +void iauC2teqx(double rbpn[3][3], double gst, double rpom[3][3], + double rc2t[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 t e q x +** - - - - - - - - - - +** +** Assemble the celestial to terrestrial matrix from equinox-based +** components (the celestial-to-true matrix, the Greenwich Apparent +** Sidereal Time and the polar motion matrix). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rbpn double[3][3] celestial-to-true matrix +** gst double Greenwich (apparent) Sidereal Time (radians) +** rpom double[3][3] polar-motion matrix +** +** Returned: +** rc2t double[3][3] celestial-to-terrestrial matrix (Note 2) +** +** Notes: +** +** 1) This function constructs the rotation matrix that transforms +** vectors in the celestial system into vectors in the terrestrial +** system. It does so starting from precomputed components, namely +** the matrix which rotates from celestial coordinates to the +** true equator and equinox of date, the Greenwich Apparent Sidereal +** Time and the polar motion matrix. One use of the present function +** is when generating a series of celestial-to-terrestrial matrices +** where only the Sidereal Time changes, avoiding the considerable +** overhead of recomputing the precession-nutation more often than +** necessary to achieve given accuracy objectives. +** +** 2) The relationship between the arguments is as follows: +** +** [TRS] = rpom * R_3(gst) * rbpn * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003). +** +** Called: +** iauCr copy r-matrix +** iauRz rotate around Z-axis +** iauRxr product of two r-matrices +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +void iauC2tpe(double tta, double ttb, double uta, double utb, + double dpsi, double deps, double xp, double yp, + double rc2t[3][3]) +/* +** - - - - - - - - - +** i a u C 2 t p e +** - - - - - - - - - +** +** Form the celestial to terrestrial matrix given the date, the UT1, +** the nutation and the polar motion. IAU 2000. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** tta,ttb double TT as a 2-part Julian Date (Note 1) +** uta,utb double UT1 as a 2-part Julian Date (Note 1) +** dpsi,deps double nutation (Note 2) +** xp,yp double coordinates of the pole (radians, Note 3) +** +** Returned: +** rc2t double[3][3] celestial-to-terrestrial matrix (Note 4) +** +** Notes: +** +** 1) The TT and UT1 dates tta+ttb and uta+utb are Julian Dates, +** apportioned in any convenient way between the arguments uta and +** utb. For example, JD(UT1)=2450123.7 could be expressed in any of +** these ways, among others: +** +** uta utb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. In the case of uta,utb, the +** date & time method is best matched to the Earth rotation angle +** algorithm used: maximum precision is delivered when the uta +** argument is for 0hrs UT1 on the day in question and the utb +** argument lies in the range 0 to 1, or vice versa. +** +** 2) The caller is responsible for providing the nutation components; +** they are in longitude and obliquity, in radians and are with +** respect to the equinox and ecliptic of date. For high-accuracy +** applications, free core nutation should be included as well as +** any other relevant corrections to the position of the CIP. +** +** 3) The arguments xp and yp are the coordinates (in radians) of the +** Celestial Intermediate Pole with respect to the International +** Terrestrial Reference System (see IERS Conventions 2003), +** measured along the meridians to 0 and 90 deg west respectively. +** +** 4) The matrix rc2t transforms from celestial to terrestrial +** coordinates: +** +** [TRS] = RPOM * R_3(GST) * RBPN * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), RBPN is the +** bias-precession-nutation matrix, GST is the Greenwich (apparent) +** Sidereal Time and RPOM is the polar motion matrix. +** +** 5) Although its name does not include "00", This function is in fact +** specific to the IAU 2000 models. +** +** Called: +** iauPn00 bias/precession/nutation results, IAU 2000 +** iauGmst00 Greenwich mean sidereal time, IAU 2000 +** iauSp00 the TIO locator s', IERS 2000 +** iauEe00 equation of the equinoxes, IAU 2000 +** iauPom00 polar motion matrix +** iauC2teqx form equinox-based celestial-to-terrestrial matrix +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +void iauC2txy(double tta, double ttb, double uta, double utb, + double x, double y, double xp, double yp, + double rc2t[3][3]) +/* +** - - - - - - - - - +** i a u C 2 t x y +** - - - - - - - - - +** +** Form the celestial to terrestrial matrix given the date, the UT1, +** the CIP coordinates and the polar motion. IAU 2000. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** tta,ttb double TT as a 2-part Julian Date (Note 1) +** uta,utb double UT1 as a 2-part Julian Date (Note 1) +** x,y double Celestial Intermediate Pole (Note 2) +** xp,yp double coordinates of the pole (radians, Note 3) +** +** Returned: +** rc2t double[3][3] celestial-to-terrestrial matrix (Note 4) +** +** Notes: +** +** 1) The TT and UT1 dates tta+ttb and uta+utb are Julian Dates, +** apportioned in any convenient way between the arguments uta and +** utb. For example, JD(UT1)=2450123.7 could be expressed in any o +** these ways, among others: +** +** uta utb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. In the case of uta,utb, the +** date & time method is best matched to the Earth rotation angle +** algorithm used: maximum precision is delivered when the uta +** argument is for 0hrs UT1 on the day in question and the utb +** argument lies in the range 0 to 1, or vice versa. +** +** 2) The Celestial Intermediate Pole coordinates are the x,y +** components of the unit vector in the Geocentric Celestial +** Reference System. +** +** 3) The arguments xp and yp are the coordinates (in radians) of the +** Celestial Intermediate Pole with respect to the International +** Terrestrial Reference System (see IERS Conventions 2003), +** measured along the meridians to 0 and 90 deg west respectively. +** +** 4) The matrix rc2t transforms from celestial to terrestrial +** coordinates: +** +** [TRS] = RPOM * R_3(ERA) * RC2I * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), ERA is the Earth +** Rotation Angle and RPOM is the polar motion matrix. +** +** 5) Although its name does not include "00", This function is in fact +** specific to the IAU 2000 models. +** +** Called: +** iauC2ixy celestial-to-intermediate matrix, given X,Y +** iauEra00 Earth rotation angle, IAU 2000 +** iauSp00 the TIO locator s', IERS 2000 +** iauPom00 polar motion matrix +** iauC2tcio form CIO-based celestial-to-terrestrial matrix +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +int iauCal2jd(int iy, int im, int id, double *djm0, double *djm) +/* +** - - - - - - - - - - +** i a u C a l 2 j d +** - - - - - - - - - - +** +** Gregorian Calendar to Julian Date. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** iy,im,id int year, month, day in Gregorian calendar (Note 1) +** +** Returned: +** djm0 double MJD zero-point: always 2400000.5 +** djm double Modified Julian Date for 0 hrs +** +** Returned (function value): +** int status: +** 0 = OK +** -1 = bad year (Note 3: JD not computed) +** -2 = bad month (JD not computed) +** -3 = bad day (JD computed) +** +** Notes: +** +** 1) The algorithm used is valid from -4800 March 1, but this +** implementation rejects dates before -4799 January 1. +** +** 2) The Julian Date is returned in two pieces, in the usual SOFA +** manner, which is designed to preserve time resolution. The +** Julian Date is available as a single number by adding djm0 and +** djm. +** +** 3) In early eras the conversion is from the "Proleptic Gregorian +** Calendar"; no account is taken of the date(s) of adoption of +** the Gregorian Calendar, nor is the AD/BC numbering convention +** observed. +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 12.92 (p604). +** +*/ + + + + +void iauCp(double p[3], double c[3]) +/* +** - - - - - - +** i a u C p +** - - - - - - +** +** Copy a p-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** p double[3] p-vector to be copied +** +** Returned: +** c double[3] copy +** +*/ + + + + +void iauCpv(double pv[2][3], double c[2][3]) +/* +** - - - - - - - +** i a u C p v +** - - - - - - - +** +** Copy a position/velocity vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** pv double[2][3] position/velocity vector to be copied +** +** Returned: +** c double[2][3] copy +** +** Called: +** iauCp copy p-vector +** +*/ + + + + +void iauCr(double r[3][3], double c[3][3]) +/* +** - - - - - - +** i a u C r +** - - - - - - +** +** Copy an r-matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** r double[3][3] r-matrix to be copied +** +** Returned: +** char[] double[3][3] copy +** +** Called: +** iauCp copy p-vector +** +*/ + + + + +int iauD2dtf(const char *scale, int ndp, double d1, double d2, + int *iy, int *im, int *id, int ihmsf[4]) +/* +** - - - - - - - - - +** i a u D 2 d t f +** - - - - - - - - - +** +** Format for output a 2-part Julian Date (or in the case of UTC a +** quasi-JD form that includes special provision for leap seconds). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** scale char[] time scale ID (Note 1) +** ndp int resolution (Note 2) +** d1,d2 double time as a 2-part Julian Date (Notes 3,4) +** +** Returned: +** iy,im,id int year, month, day in Gregorian calendar (Note 5) +** ihmsf int[4] hours, minutes, seconds, fraction (Note 1) +** +** Returned (function value): +** int status: +1 = dubious year (Note 5) +** 0 = OK +** -1 = unacceptable date (Note 6) +** +** Notes: +** +** 1) scale identifies the time scale. Only the value "UTC" (in upper +** case) is significant, and enables handling of leap seconds (see +** Note 4). +** +** 2) ndp is the number of decimal places in the seconds field, and can +** have negative as well as positive values, such as: +** +** ndp resolution +** -4 1 00 00 +** -3 0 10 00 +** -2 0 01 00 +** -1 0 00 10 +** 0 0 00 01 +** 1 0 00 00.1 +** 2 0 00 00.01 +** 3 0 00 00.001 +** +** The limits are platform dependent, but a safe range is -5 to +9. +** +** 3) d1+d2 is Julian Date, apportioned in any convenient way between +** the two arguments, for example where d1 is the Julian Day Number +** and d2 is the fraction of a day. In the case of UTC, where the +** use of JD is problematical, special conventions apply: see the +** next note. +** +** 4) JD cannot unambiguously represent UTC during a leap second unless +** special measures are taken. The SOFA internal convention is that +** the quasi-JD day represents UTC days whether the length is 86399, +** 86400 or 86401 SI seconds. In the 1960-1972 era there were +** smaller jumps (in either direction) each time the linear UTC(TAI) +** expression was changed, and these "mini-leaps" are also included +** in the SOFA convention. +** +** 5) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the future +** to be trusted. See iauDat for further details. +** +** 6) For calendar conventions and limitations, see iauCal2jd. +** +** Called: +** iauJd2cal JD to Gregorian calendar +** iauD2tf decompose days to hms +** iauDat delta(AT) = TAI-UTC +** +*/ + + + + +void iauD2tf(int ndp, double days, char *sign, int ihmsf[4]) +/* +** - - - - - - - - +** i a u D 2 t f +** - - - - - - - - +** +** Decompose days to hours, minutes, seconds, fraction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** ndp int resolution (Note 1) +** days double interval in days +** +** Returned: +** sign char '+' or '-' +** ihmsf int[4] hours, minutes, seconds, fraction +** +** Notes: +** +** 1) The argument ndp is interpreted as follows: +** +** ndp resolution +** : ...0000 00 00 +** -7 1000 00 00 +** -6 100 00 00 +** -5 10 00 00 +** -4 1 00 00 +** -3 0 10 00 +** -2 0 01 00 +** -1 0 00 10 +** 0 0 00 01 +** 1 0 00 00.1 +** 2 0 00 00.01 +** 3 0 00 00.001 +** : 0 00 00.000... +** +** 2) The largest positive useful value for ndp is determined by the +** size of days, the format of double on the target platform, and +** the risk of overflowing ihmsf[3]. On a typical platform, for +** days up to 1.0, the available floating-point precision might +** correspond to ndp=12. However, the practical limit is typically +** ndp=9, set by the capacity of a 32-bit int, or ndp=4 if int is +** only 16 bits. +** +** 3) The absolute value of days may exceed 1.0. In cases where it +** does not, it is up to the caller to test for and handle the +** case where days is very nearly 1.0 and rounds up to 24 hours, +** by testing for ihmsf[0]=24 and setting ihmsf[0-3] to zero. +** +*/ + + + + +int iauDat(int iy, int im, int id, double fd, double *deltat ) +/* +** - - - - - - - +** i a u D a t +** - - - - - - - +** +** For a given UTC date, calculate delta(AT) = TAI-UTC. +** +** :------------------------------------------: +** : : +** : IMPORTANT : +** : : +** : A new version of this function must be : +** : produced whenever a new leap second is : +** : announced. There are four items to : +** : change on each such occasion: : +** : : +** : 1) A new line must be added to the set : +** : of statements that initialize the : +** : array "changes". : +** : : +** : 2) The constant IYV must be set to the : +** : current year. : +** : : +** : 3) The "Latest leap second" comment : +** : below must be set to the new leap : +** : second date. : +** : : +** : 4) The "This revision" comment, later, : +** : must be set to the current date. : +** : : +** : Change (2) must also be carried out : +** : whenever the function is re-issued, : +** : even if no leap seconds have been : +** : added. : +** : : +** : Latest leap second: 2015 June 30 : +** : : +** :__________________________________________: +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** iy int UTC: year (Notes 1 and 2) +** im int month (Note 2) +** id int day (Notes 2 and 3) +** fd double fraction of day (Note 4) +** +** Returned: +** deltat double TAI minus UTC, seconds +** +** Returned (function value): +** int status (Note 5): +** 1 = dubious year (Note 1) +** 0 = OK +** -1 = bad year +** -2 = bad month +** -3 = bad day (Note 3) +** -4 = bad fraction (Note 4) +** -5 = internal error (Note 5) +** +** Notes: +** +** 1) UTC began at 1960 January 1.0 (JD 2436934.5) and it is improper +** to call the function with an earlier date. If this is attempted, +** zero is returned together with a warning status. +** +** Because leap seconds cannot, in principle, be predicted in +** advance, a reliable check for dates beyond the valid range is +** impossible. To guard against gross errors, a year five or more +** after the release year of the present function (see the constant +** IYV) is considered dubious. In this case a warning status is +** returned but the result is computed in the normal way. +** +** For both too-early and too-late years, the warning status is +1. +** This is distinct from the error status -1, which signifies a year +** so early that JD could not be computed. +** +** 2) If the specified date is for a day which ends with a leap second, +** the UTC-TAI value returned is for the period leading up to the +** leap second. If the date is for a day which begins as a leap +** second ends, the UTC-TAI returned is for the period following the +** leap second. +** +** 3) The day number must be in the normal calendar range, for example +** 1 through 30 for April. The "almanac" convention of allowing +** such dates as January 0 and December 32 is not supported in this +** function, in order to avoid confusion near leap seconds. +** +** 4) The fraction of day is used only for dates before the +** introduction of leap seconds, the first of which occurred at the +** end of 1971. It is tested for validity (0 to 1 is the valid +** range) even if not used; if invalid, zero is used and status -4 +** is returned. For many applications, setting fd to zero is +** acceptable; the resulting error is always less than 3 ms (and +** occurs only pre-1972). +** +** 5) The status value returned in the case where there are multiple +** errors refers to the first error detected. For example, if the +** month and day are 13 and 32 respectively, status -2 (bad month) +** will be returned. The "internal error" status refers to a +** case that is impossible but causes some compilers to issue a +** warning. +** +** 6) In cases where a valid result is not available, zero is returned. +** +** References: +** +** 1) For dates from 1961 January 1 onwards, the expressions from the +** file ftp://maia.usno.navy.mil/ser7/tai-utc.dat are used. +** +** 2) The 5ms timestep at 1961 January 1 is taken from 2.58.1 (p87) of +** the 1992 Explanatory Supplement. +** +** Called: +** iauCal2jd Gregorian calendar to JD +** +*/ + + + + +double iauDtdb(double date1, double date2, + double ut, double elong, double u, double v) +/* +** - - - - - - - - +** i a u D t d b +** - - - - - - - - +** +** An approximation to TDB-TT, the difference between barycentric +** dynamical time and terrestrial time, for an observer on the Earth. +** +** The different time scales - proper, coordinate and realized - are +** related to each other: +** +** TAI <- physically realized +** : +** offset <- observed (nominally +32.184s) +** : +** TT <- terrestrial time +** : +** rate adjustment (L_G) <- definition of TT +** : +** TCG <- time scale for GCRS +** : +** "periodic" terms <- iauDtdb is an implementation +** : +** rate adjustment (L_C) <- function of solar-system ephemeris +** : +** TCB <- time scale for BCRS +** : +** rate adjustment (-L_B) <- definition of TDB +** : +** TDB <- TCB scaled to track TT +** : +** "periodic" terms <- -iauDtdb is an approximation +** : +** TT <- terrestrial time +** +** Adopted values for the various constants can be found in the IERS +** Conventions (McCarthy & Petit 2003). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support routine. +** +** Given: +** date1,date2 double date, TDB (Notes 1-3) +** ut double universal time (UT1, fraction of one day) +** elong double longitude (east positive, radians) +** u double distance from Earth spin axis (km) +** v double distance north of equatorial plane (km) +** +** Returned (function value): +** double TDB-TT (seconds) +** +** Notes: +** +** 1) The date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** Although the date is, formally, barycentric dynamical time (TDB), +** the terrestrial dynamical time (TT) can be used with no practical +** effect on the accuracy of the prediction. +** +** 2) TT can be regarded as a coordinate time that is realized as an +** offset of 32.184s from International Atomic Time, TAI. TT is a +** specific linear transformation of geocentric coordinate time TCG, +** which is the time scale for the Geocentric Celestial Reference +** System, GCRS. +** +** 3) TDB is a coordinate time, and is a specific linear transformation +** of barycentric coordinate time TCB, which is the time scale for +** the Barycentric Celestial Reference System, BCRS. +** +** 4) The difference TCG-TCB depends on the masses and positions of the +** bodies of the solar system and the velocity of the Earth. It is +** dominated by a rate difference, the residual being of a periodic +** character. The latter, which is modeled by the present function, +** comprises a main (annual) sinusoidal term of amplitude +** approximately 0.00166 seconds, plus planetary terms up to about +** 20 microseconds, and lunar and diurnal terms up to 2 microseconds. +** These effects come from the changing transverse Doppler effect +** and gravitational red-shift as the observer (on the Earth's +** surface) experiences variations in speed (with respect to the +** BCRS) and gravitational potential. +** +** 5) TDB can be regarded as the same as TCB but with a rate adjustment +** to keep it close to TT, which is convenient for many applications. +** The history of successive attempts to define TDB is set out in +** Resolution 3 adopted by the IAU General Assembly in 2006, which +** defines a fixed TDB(TCB) transformation that is consistent with +** contemporary solar-system ephemerides. Future ephemerides will +** imply slightly changed transformations between TCG and TCB, which +** could introduce a linear drift between TDB and TT; however, any +** such drift is unlikely to exceed 1 nanosecond per century. +** +** 6) The geocentric TDB-TT model used in the present function is that of +** Fairhead & Bretagnon (1990), in its full form. It was originally +** supplied by Fairhead (private communications with P.T.Wallace, +** 1990) as a Fortran subroutine. The present C function contains an +** adaptation of the Fairhead code. The numerical results are +** essentially unaffected by the changes, the differences with +** respect to the Fairhead & Bretagnon original being at the 1e-20 s +** level. +** +** The topocentric part of the model is from Moyer (1981) and +** Murray (1983), with fundamental arguments adapted from +** Simon et al. 1994. It is an approximation to the expression +** ( v / c ) . ( r / c ), where v is the barycentric velocity of +** the Earth, r is the geocentric position of the observer and +** c is the speed of light. +** +** By supplying zeroes for u and v, the topocentric part of the +** model can be nullified, and the function will return the Fairhead +** & Bretagnon result alone. +** +** 7) During the interval 1950-2050, the absolute accuracy is better +** than +/- 3 nanoseconds relative to time ephemerides obtained by +** direct numerical integrations based on the JPL DE405 solar system +** ephemeris. +** +** 8) It must be stressed that the present function is merely a model, +** and that numerical integration of solar-system ephemerides is the +** definitive method for predicting the relationship between TCG and +** TCB and hence between TT and TDB. +** +** References: +** +** Fairhead, L., & Bretagnon, P., Astron.Astrophys., 229, 240-247 +** (1990). +** +** IAU 2006 Resolution 3. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Moyer, T.D., Cel.Mech., 23, 33 (1981). +** +** Murray, C.A., Vectorial Astrometry, Adam Hilger (1983). +** +** Seidelmann, P.K. et al., Explanatory Supplement to the +** Astronomical Almanac, Chapter 2, University Science Books (1992). +** +** Simon, J.L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G. & Laskar, J., Astron.Astrophys., 282, 663-683 (1994). +** +*/ + + + + +int iauDtf2d(const char *scale, int iy, int im, int id, + int ihr, int imn, double sec, double *d1, double *d2) +/* +** - - - - - - - - - +** i a u D t f 2 d +** - - - - - - - - - +** +** Encode date and time fields into 2-part Julian Date (or in the case +** of UTC a quasi-JD form that includes special provision for leap +** seconds). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** scale char[] time scale ID (Note 1) +** iy,im,id int year, month, day in Gregorian calendar (Note 2) +** ihr,imn int hour, minute +** sec double seconds +** +** Returned: +** d1,d2 double 2-part Julian Date (Notes 3,4) +** +** Returned (function value): +** int status: +3 = both of next two +** +2 = time is after end of day (Note 5) +** +1 = dubious year (Note 6) +** 0 = OK +** -1 = bad year +** -2 = bad month +** -3 = bad day +** -4 = bad hour +** -5 = bad minute +** -6 = bad second (<0) +** +** Notes: +** +** 1) scale identifies the time scale. Only the value "UTC" (in upper +** case) is significant, and enables handling of leap seconds (see +** Note 4). +** +** 2) For calendar conventions and limitations, see iauCal2jd. +** +** 3) The sum of the results, d1+d2, is Julian Date, where normally d1 +** is the Julian Day Number and d2 is the fraction of a day. In the +** case of UTC, where the use of JD is problematical, special +** conventions apply: see the next note. +** +** 4) JD cannot unambiguously represent UTC during a leap second unless +** special measures are taken. The SOFA internal convention is that +** the quasi-JD day represents UTC days whether the length is 86399, +** 86400 or 86401 SI seconds. In the 1960-1972 era there were +** smaller jumps (in either direction) each time the linear UTC(TAI) +** expression was changed, and these "mini-leaps" are also included +** in the SOFA convention. +** +** 5) The warning status "time is after end of day" usually means that +** the sec argument is greater than 60.0. However, in a day ending +** in a leap second the limit changes to 61.0 (or 59.0 in the case +** of a negative leap second). +** +** 6) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the future +** to be trusted. See iauDat for further details. +** +** 7) Only in the case of continuous and regular time scales (TAI, TT, +** TCG, TCB and TDB) is the result d1+d2 a Julian Date, strictly +** speaking. In the other cases (UT1 and UTC) the result must be +** used with circumspection; in particular the difference between +** two such results cannot be interpreted as a precise time +** interval. +** +** Called: +** iauCal2jd Gregorian calendar to JD +** iauDat delta(AT) = TAI-UTC +** iauJd2cal JD to Gregorian calendar +** +*/ + + + + +double iauEe00(double date1, double date2, double epsa, double dpsi) +/* +** - - - - - - - - +** i a u E e 0 0 +** - - - - - - - - +** +** The equation of the equinoxes, compatible with IAU 2000 resolutions, +** given the nutation in longitude and the mean obliquity. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** epsa double mean obliquity (Note 2) +** dpsi double nutation in longitude (Note 3) +** +** Returned (function value): +** double equation of the equinoxes (Note 4) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The obliquity, in radians, is mean of date. +** +** 3) The result, which is in radians, operates in the following sense: +** +** Greenwich apparent ST = GMST + equation of the equinoxes +** +** 4) The result is compatible with the IAU 2000 resolutions. For +** further details, see IERS Conventions 2003 and Capitaine et al. +** (2002). +** +** Called: +** iauEect00 equation of the equinoxes complementary terms +** +** References: +** +** Capitaine, N., Wallace, P.T. and McCarthy, D.D., "Expressions to +** implement the IAU 2000 definition of UT1", Astronomy & +** Astrophysics, 406, 1135-1149 (2003) +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +double iauEe00a(double date1, double date2) +/* +** - - - - - - - - - +** i a u E e 0 0 a +** - - - - - - - - - +** +** Equation of the equinoxes, compatible with IAU 2000 resolutions. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double equation of the equinoxes (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The result, which is in radians, operates in the following sense: +** +** Greenwich apparent ST = GMST + equation of the equinoxes +** +** 3) The result is compatible with the IAU 2000 resolutions. For +** further details, see IERS Conventions 2003 and Capitaine et al. +** (2002). +** +** Called: +** iauPr00 IAU 2000 precession adjustments +** iauObl80 mean obliquity, IAU 1980 +** iauNut00a nutation, IAU 2000A +** iauEe00 equation of the equinoxes, IAU 2000 +** +** References: +** +** Capitaine, N., Wallace, P.T. and McCarthy, D.D., "Expressions to +** implement the IAU 2000 definition of UT1", Astronomy & +** Astrophysics, 406, 1135-1149 (2003). +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004). +** +*/ + + + + +double iauEe00b(double date1, double date2) +/* +** - - - - - - - - - +** i a u E e 0 0 b +** - - - - - - - - - +** +** Equation of the equinoxes, compatible with IAU 2000 resolutions but +** using the truncated nutation model IAU 2000B. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double equation of the equinoxes (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The result, which is in radians, operates in the following sense: +** +** Greenwich apparent ST = GMST + equation of the equinoxes +** +** 3) The result is compatible with the IAU 2000 resolutions except +** that accuracy has been compromised for the sake of speed. For +** further details, see McCarthy & Luzum (2001), IERS Conventions +** 2003 and Capitaine et al. (2003). +** +** Called: +** iauPr00 IAU 2000 precession adjustments +** iauObl80 mean obliquity, IAU 1980 +** iauNut00b nutation, IAU 2000B +** iauEe00 equation of the equinoxes, IAU 2000 +** +** References: +** +** Capitaine, N., Wallace, P.T. and McCarthy, D.D., "Expressions to +** implement the IAU 2000 definition of UT1", Astronomy & +** Astrophysics, 406, 1135-1149 (2003) +** +** McCarthy, D.D. & Luzum, B.J., "An abridged model of the +** precession-nutation of the celestial pole", Celestial Mechanics & +** Dynamical Astronomy, 85, 37-49 (2003) +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +double iauEe06a(double date1, double date2) +/* +** - - - - - - - - - +** i a u E e 0 6 a +** - - - - - - - - - +** +** Equation of the equinoxes, compatible with IAU 2000 resolutions and +** IAU 2006/2000A precession-nutation. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double equation of the equinoxes (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The result, which is in radians, operates in the following sense: +** +** Greenwich apparent ST = GMST + equation of the equinoxes +** +** Called: +** iauAnpm normalize angle into range +/- pi +** iauGst06a Greenwich apparent sidereal time, IAU 2006/2000A +** iauGmst06 Greenwich mean sidereal time, IAU 2006 +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), 2004, IERS Conventions (2003), +** IERS Technical Note No. 32, BKG +** +*/ + + + + +double iauEect00(double date1, double date2) +/* +** - - - - - - - - - - +** i a u E e c t 0 0 +** - - - - - - - - - - +** +** Equation of the equinoxes complementary terms, consistent with +** IAU 2000 resolutions. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double complementary terms (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The "complementary terms" are part of the equation of the +** equinoxes (EE), classically the difference between apparent and +** mean Sidereal Time: +** +** GAST = GMST + EE +** +** with: +** +** EE = dpsi * cos(eps) +** +** where dpsi is the nutation in longitude and eps is the obliquity +** of date. However, if the rotation of the Earth were constant in +** an inertial frame the classical formulation would lead to +** apparent irregularities in the UT1 timescale traceable to side- +** effects of precession-nutation. In order to eliminate these +** effects from UT1, "complementary terms" were introduced in 1994 +** (IAU, 1994) and took effect from 1997 (Capitaine and Gontier, +** 1993): +** +** GAST = GMST + CT + EE +** +** By convention, the complementary terms are included as part of +** the equation of the equinoxes rather than as part of the mean +** Sidereal Time. This slightly compromises the "geometrical" +** interpretation of mean sidereal time but is otherwise +** inconsequential. +** +** The present function computes CT in the above expression, +** compatible with IAU 2000 resolutions (Capitaine et al., 2002, and +** IERS Conventions 2003). +** +** Called: +** iauFal03 mean anomaly of the Moon +** iauFalp03 mean anomaly of the Sun +** iauFaf03 mean argument of the latitude of the Moon +** iauFad03 mean elongation of the Moon from the Sun +** iauFaom03 mean longitude of the Moon's ascending node +** iauFave03 mean longitude of Venus +** iauFae03 mean longitude of Earth +** iauFapa03 general accumulated precession in longitude +** +** References: +** +** Capitaine, N. & Gontier, A.-M., Astron. Astrophys., 275, +** 645-650 (1993) +** +** Capitaine, N., Wallace, P.T. and McCarthy, D.D., "Expressions to +** implement the IAU 2000 definition of UT1", Astronomy & +** Astrophysics, 406, 1135-1149 (2003) +** +** IAU Resolution C7, Recommendation 3 (1994) +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +int iauEform ( int n, double *a, double *f ) +/* +** - - - - - - - - - +** i a u E f o r m +** - - - - - - - - - +** +** Earth reference ellipsoids. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** n int ellipsoid identifier (Note 1) +** +** Returned: +** a double equatorial radius (meters, Note 2) +** f double flattening (Note 2) +** +** Returned (function value): +** int status: 0 = OK +** -1 = illegal identifier (Note 3) +** +** Notes: +** +** 1) The identifier n is a number that specifies the choice of +** reference ellipsoid. The following are supported: +** +** n ellipsoid +** +** 1 WGS84 +** 2 GRS80 +** 3 WGS72 +** +** The n value has no significance outside the SOFA software. For +** convenience, symbols WGS84 etc. are defined in sofam.h. +** +** 2) The ellipsoid parameters are returned in the form of equatorial +** radius in meters (a) and flattening (f). The latter is a number +** around 0.00335, i.e. around 1/298. +** +** 3) For the case where an unsupported n value is supplied, zero a and +** f are returned, as well as error status. +** +** References: +** +** Department of Defense World Geodetic System 1984, National +** Imagery and Mapping Agency Technical Report 8350.2, Third +** Edition, p3-2. +** +** Moritz, H., Bull. Geodesique 66-2, 187 (1992). +** +** The Department of Defense World Geodetic System 1972, World +** Geodetic System Committee, May 1974. +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** p220. +** +*/ + + + + +double iauEo06a(double date1, double date2) +/* +** - - - - - - - - - +** i a u E o 0 6 a +** - - - - - - - - - +** +** Equation of the origins, IAU 2006 precession and IAU 2000A nutation. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double equation of the origins in radians +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The equation of the origins is the distance between the true +** equinox and the celestial intermediate origin and, equivalently, +** the difference between Earth rotation angle and Greenwich +** apparent sidereal time (ERA-GST). It comprises the precession +** (since J2000.0) in right ascension plus the equation of the +** equinoxes (including the small correction terms). +** +** Called: +** iauPnm06a classical NPB matrix, IAU 2006/2000A +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS06 the CIO locator s, given X,Y, IAU 2006 +** iauEors equation of the origins, given NPB matrix and s +** +** References: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +*/ + + + + +double iauEors(double rnpb[3][3], double s) +/* +** - - - - - - - - +** i a u E o r s +** - - - - - - - - +** +** Equation of the origins, given the classical NPB matrix and the +** quantity s. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rnpb double[3][3] classical nutation x precession x bias matrix +** s double the quantity s (the CIO locator) +** +** Returned (function value): +** double the equation of the origins in radians. +** +** Notes: +** +** 1) The equation of the origins is the distance between the true +** equinox and the celestial intermediate origin and, equivalently, +** the difference between Earth rotation angle and Greenwich +** apparent sidereal time (ERA-GST). It comprises the precession +** (since J2000.0) in right ascension plus the equation of the +** equinoxes (including the small correction terms). +** +** 2) The algorithm is from Wallace & Capitaine (2006). +** +** References: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** Wallace, P. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +*/ + + + + +double iauEpb(double dj1, double dj2) +/* +** - - - - - - - +** i a u E p b +** - - - - - - - +** +** Julian Date to Besselian Epoch. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** dj1,dj2 double Julian Date (see note) +** +** Returned (function value): +** double Besselian Epoch. +** +** Note: +** +** The Julian Date is supplied in two pieces, in the usual SOFA +** manner, which is designed to preserve time resolution. The +** Julian Date is available as a single number by adding dj1 and +** dj2. The maximum resolution is achieved if dj1 is 2451545.0 +** (J2000.0). +** +** Reference: +** +** Lieske, J.H., 1979. Astron.Astrophys., 73, 282. +** +*/ + + + + +void iauEpb2jd(double epb, double *djm0, double *djm) +/* +** - - - - - - - - - - +** i a u E p b 2 j d +** - - - - - - - - - - +** +** Besselian Epoch to Julian Date. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** epb double Besselian Epoch (e.g. 1957.3) +** +** Returned: +** djm0 double MJD zero-point: always 2400000.5 +** djm double Modified Julian Date +** +** Note: +** +** The Julian Date is returned in two pieces, in the usual SOFA +** manner, which is designed to preserve time resolution. The +** Julian Date is available as a single number by adding djm0 and +** djm. +** +** Reference: +** +** Lieske, J.H., 1979, Astron.Astrophys. 73, 282. +** +*/ + + + + +double iauEpj(double dj1, double dj2) +/* +** - - - - - - - +** i a u E p j +** - - - - - - - +** +** Julian Date to Julian Epoch. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** dj1,dj2 double Julian Date (see note) +** +** Returned (function value): +** double Julian Epoch +** +** Note: +** +** The Julian Date is supplied in two pieces, in the usual SOFA +** manner, which is designed to preserve time resolution. The +** Julian Date is available as a single number by adding dj1 and +** dj2. The maximum resolution is achieved if dj1 is 2451545.0 +** (J2000.0). +** +** Reference: +** +** Lieske, J.H., 1979, Astron.Astrophys. 73, 282. +** +*/ + + + + +void iauEpj2jd(double epj, double *djm0, double *djm) +/* +** - - - - - - - - - - +** i a u E p j 2 j d +** - - - - - - - - - - +** +** Julian Epoch to Julian Date. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** epj double Julian Epoch (e.g. 1996.8) +** +** Returned: +** djm0 double MJD zero-point: always 2400000.5 +** djm double Modified Julian Date +** +** Note: +** +** The Julian Date is returned in two pieces, in the usual SOFA +** manner, which is designed to preserve time resolution. The +** Julian Date is available as a single number by adding djm0 and +** djm. +** +** Reference: +** +** Lieske, J.H., 1979, Astron.Astrophys. 73, 282. +** +*/ + + + + +int iauEpv00(double date1, double date2, + double pvh[2][3], double pvb[2][3]) +/* +** - - - - - - - - - +** i a u E p v 0 0 +** - - - - - - - - - +** +** Earth position and velocity, heliocentric and barycentric, with +** respect to the Barycentric Celestial Reference System. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TDB date (Note 1) +** +** Returned: +** pvh double[2][3] heliocentric Earth position/velocity +** pvb double[2][3] barycentric Earth position/velocity +** +** Returned (function value): +** int status: 0 = OK +** +1 = warning: date outside +** the range 1900-2100 AD +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. However, +** the accuracy of the result is more likely to be limited by the +** algorithm itself than the way the date has been expressed. +** +** n.b. TT can be used instead of TDB in most applications. +** +** 2) On return, the arrays pvh and pvb contain the following: +** +** pvh[0][0] x } +** pvh[0][1] y } heliocentric position, AU +** pvh[0][2] z } +** +** pvh[1][0] xdot } +** pvh[1][1] ydot } heliocentric velocity, AU/d +** pvh[1][2] zdot } +** +** pvb[0][0] x } +** pvb[0][1] y } barycentric position, AU +** pvb[0][2] z } +** +** pvb[1][0] xdot } +** pvb[1][1] ydot } barycentric velocity, AU/d +** pvb[1][2] zdot } +** +** The vectors are with respect to the Barycentric Celestial +** Reference System. The time unit is one day in TDB. +** +** 3) The function is a SIMPLIFIED SOLUTION from the planetary theory +** VSOP2000 (X. Moisson, P. Bretagnon, 2001, Celes. Mechanics & +** Dyn. Astron., 80, 3/4, 205-213) and is an adaptation of original +** Fortran code supplied by P. Bretagnon (private comm., 2000). +** +** 4) Comparisons over the time span 1900-2100 with this simplified +** solution and the JPL DE405 ephemeris give the following results: +** +** RMS max +** Heliocentric: +** position error 3.7 11.2 km +** velocity error 1.4 5.0 mm/s +** +** Barycentric: +** position error 4.6 13.4 km +** velocity error 1.4 4.9 mm/s +** +** Comparisons with the JPL DE406 ephemeris show that by 1800 and +** 2200 the position errors are approximately double their 1900-2100 +** size. By 1500 and 2500 the deterioration is a factor of 10 and +** by 1000 and 3000 a factor of 60. The velocity accuracy falls off +** at about half that rate. +** +** 5) It is permissible to use the same array for pvh and pvb, which +** will receive the barycentric values. +** +*/ + + + + +double iauEqeq94(double date1, double date2) +/* +** - - - - - - - - - - +** i a u E q e q 9 4 +** - - - - - - - - - - +** +** Equation of the equinoxes, IAU 1994 model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TDB date (Note 1) +** +** Returned (function value): +** double equation of the equinoxes (Note 2) +** +** Notes: +** +** 1) The date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The result, which is in radians, operates in the following sense: +** +** Greenwich apparent ST = GMST + equation of the equinoxes +** +** Called: +** iauAnpm normalize angle into range +/- pi +** iauNut80 nutation, IAU 1980 +** iauObl80 mean obliquity, IAU 1980 +** +** References: +** +** IAU Resolution C7, Recommendation 3 (1994). +** +** Capitaine, N. & Gontier, A.-M., 1993, Astron. Astrophys., 275, +** 645-650. +** +*/ + + + + +double iauEra00(double dj1, double dj2) +/* +** - - - - - - - - - +** i a u E r a 0 0 +** - - - - - - - - - +** +** Earth rotation angle (IAU 2000 model). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** dj1,dj2 double UT1 as a 2-part Julian Date (see note) +** +** Returned (function value): +** double Earth rotation angle (radians), range 0-2pi +** +** Notes: +** +** 1) The UT1 date dj1+dj2 is a Julian Date, apportioned in any +** convenient way between the arguments dj1 and dj2. For example, +** JD(UT1)=2450123.7 could be expressed in any of these ways, +** among others: +** +** dj1 dj2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. The date & time method is +** best matched to the algorithm used: maximum precision is +** delivered when the dj1 argument is for 0hrs UT1 on the day in +** question and the dj2 argument lies in the range 0 to 1, or vice +** versa. +** +** 2) The algorithm is adapted from Expression 22 of Capitaine et al. +** 2000. The time argument has been expressed in days directly, +** and, to retain precision, integer contributions have been +** eliminated. The same formulation is given in IERS Conventions +** (2003), Chap. 5, Eq. 14. +** +** Called: +** iauAnp normalize angle into range 0 to 2pi +** +** References: +** +** Capitaine N., Guinot B. and McCarthy D.D, 2000, Astron. +** Astrophys., 355, 398-405. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +double iauFad03(double t) +/* +** - - - - - - - - - +** i a u F a d 0 3 +** - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean elongation of the Moon from the Sun. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double D, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** is from Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +*/ + + + + +double iauFae03(double t) +/* +** - - - - - - - - - +** i a u F a e 0 3 +** - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Earth. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Earth, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** comes from Souchay et al. (1999) after Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +*/ + + + + +double iauFaf03(double t) +/* +** - - - - - - - - - +** i a u F a f 0 3 +** - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of the Moon minus mean longitude of the ascending +** node. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double F, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** is from Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +*/ + + + + +double iauFaju03(double t) +/* +** - - - - - - - - - - +** i a u F a j u 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Jupiter. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Jupiter, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** comes from Souchay et al. (1999) after Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +*/ + + + + +double iauFal03(double t) +/* +** - - - - - - - - - +** i a u F a l 0 3 +** - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean anomaly of the Moon. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double l, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** is from Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +*/ + + + + +double iauFalp03(double t) +/* +** - - - - - - - - - - +** i a u F a l p 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean anomaly of the Sun. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double l', radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** is from Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +*/ + + + + +double iauFama03(double t) +/* +** - - - - - - - - - - +** i a u F a m a 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Mars. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Mars, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** comes from Souchay et al. (1999) after Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +*/ + + + + +double iauFame03(double t) +/* +** - - - - - - - - - - +** i a u F a m e 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Mercury. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Mercury, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** comes from Souchay et al. (1999) after Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +*/ + + + + +double iauFane03(double t) +/* +** - - - - - - - - - - +** i a u F a n e 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Neptune. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Neptune, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** is adapted from Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +*/ + + + + +double iauFaom03(double t) +/* +** - - - - - - - - - - +** i a u F a o m 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of the Moon's ascending node. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double Omega, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** is from Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +*/ + + + + +double iauFapa03(double t) +/* +** - - - - - - - - - - +** i a u F a p a 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** general accumulated precession in longitude. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double general precession in longitude, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003). It +** is taken from Kinoshita & Souchay (1990) and comes originally +** from Lieske et al. (1977). +** +** References: +** +** Kinoshita, H. and Souchay J. 1990, Celest.Mech. and Dyn.Astron. +** 48, 187 +** +** Lieske, J.H., Lederle, T., Fricke, W. & Morando, B. 1977, +** Astron.Astrophys. 58, 1-16 +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +double iauFasa03(double t) +/* +** - - - - - - - - - - +** i a u F a s a 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Saturn. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Saturn, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** comes from Souchay et al. (1999) after Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +*/ + + + + +double iauFaur03(double t) +/* +** - - - - - - - - - - +** i a u F a u r 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Uranus. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Uranus, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** is adapted from Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +*/ + + + + +double iauFave03(double t) +/* +** - - - - - - - - - - +** i a u F a v e 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Venus. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Venus, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** comes from Souchay et al. (1999) after Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +*/ + + + + +void iauFk52h(double r5, double d5, + double dr5, double dd5, double px5, double rv5, + double *rh, double *dh, + double *drh, double *ddh, double *pxh, double *rvh) +/* +** - - - - - - - - - +** i a u F k 5 2 h +** - - - - - - - - - +** +** Transform FK5 (J2000.0) star data into the Hipparcos system. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given (all FK5, equinox J2000.0, epoch J2000.0): +** r5 double RA (radians) +** d5 double Dec (radians) +** dr5 double proper motion in RA (dRA/dt, rad/Jyear) +** dd5 double proper motion in Dec (dDec/dt, rad/Jyear) +** px5 double parallax (arcsec) +** rv5 double radial velocity (km/s, positive = receding) +** +** Returned (all Hipparcos, epoch J2000.0): +** rh double RA (radians) +** dh double Dec (radians) +** drh double proper motion in RA (dRA/dt, rad/Jyear) +** ddh double proper motion in Dec (dDec/dt, rad/Jyear) +** pxh double parallax (arcsec) +** rvh double radial velocity (km/s, positive = receding) +** +** Notes: +** +** 1) This function transforms FK5 star positions and proper motions +** into the system of the Hipparcos catalog. +** +** 2) The proper motions in RA are dRA/dt rather than +** cos(Dec)*dRA/dt, and are per year rather than per century. +** +** 3) The FK5 to Hipparcos transformation is modeled as a pure +** rotation and spin; zonal errors in the FK5 catalog are not +** taken into account. +** +** 4) See also iauH2fk5, iauFk5hz, iauHfk5z. +** +** Called: +** iauStarpv star catalog data to space motion pv-vector +** iauFk5hip FK5 to Hipparcos rotation and spin +** iauRxp product of r-matrix and p-vector +** iauPxp vector product of two p-vectors +** iauPpp p-vector plus p-vector +** iauPvstar space motion pv-vector to star catalog data +** +** Reference: +** +** F.Mignard & M.Froeschle, Astron. Astrophys. 354, 732-739 (2000). +** +*/ + + + + +void iauFk5hip(double r5h[3][3], double s5h[3]) +/* +** - - - - - - - - - - +** i a u F k 5 h i p +** - - - - - - - - - - +** +** FK5 to Hipparcos rotation and spin. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Returned: +** r5h double[3][3] r-matrix: FK5 rotation wrt Hipparcos (Note 2) +** s5h double[3] r-vector: FK5 spin wrt Hipparcos (Note 3) +** +** Notes: +** +** 1) This function models the FK5 to Hipparcos transformation as a +** pure rotation and spin; zonal errors in the FK5 catalogue are +** not taken into account. +** +** 2) The r-matrix r5h operates in the sense: +** +** P_Hipparcos = r5h x P_FK5 +** +** where P_FK5 is a p-vector in the FK5 frame, and P_Hipparcos is +** the equivalent Hipparcos p-vector. +** +** 3) The r-vector s5h represents the time derivative of the FK5 to +** Hipparcos rotation. The units are radians per year (Julian, +** TDB). +** +** Called: +** iauRv2m r-vector to r-matrix +** +** Reference: +** +** F.Mignard & M.Froeschle, Astron. Astrophys. 354, 732-739 (2000). +** +*/ + + + + +void iauFk5hz(double r5, double d5, double date1, double date2, + double *rh, double *dh) +/* +** - - - - - - - - - +** i a u F k 5 h z +** - - - - - - - - - +** +** Transform an FK5 (J2000.0) star position into the system of the +** Hipparcos catalogue, assuming zero Hipparcos proper motion. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** r5 double FK5 RA (radians), equinox J2000.0, at date +** d5 double FK5 Dec (radians), equinox J2000.0, at date +** date1,date2 double TDB date (Notes 1,2) +** +** Returned: +** rh double Hipparcos RA (radians) +** dh double Hipparcos Dec (radians) +** +** Notes: +** +** 1) This function converts a star position from the FK5 system to +** the Hipparcos system, in such a way that the Hipparcos proper +** motion is zero. Because such a star has, in general, a non-zero +** proper motion in the FK5 system, the function requires the date +** at which the position in the FK5 system was determined. +** +** 2) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 3) The FK5 to Hipparcos transformation is modeled as a pure +** rotation and spin; zonal errors in the FK5 catalogue are not +** taken into account. +** +** 4) The position returned by this function is in the Hipparcos +** reference system but at date date1+date2. +** +** 5) See also iauFk52h, iauH2fk5, iauHfk5z. +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauFk5hip FK5 to Hipparcos rotation and spin +** iauSxp multiply p-vector by scalar +** iauRv2m r-vector to r-matrix +** iauTrxp product of transpose of r-matrix and p-vector +** iauPxp vector product of two p-vectors +** iauC2s p-vector to spherical +** iauAnp normalize angle into range 0 to 2pi +** +** Reference: +** +** F.Mignard & M.Froeschle, 2000, Astron.Astrophys. 354, 732-739. +** +*/ + + + + +void iauFw2m(double gamb, double phib, double psi, double eps, + double r[3][3]) +/* +** - - - - - - - - +** i a u F w 2 m +** - - - - - - - - +** +** Form rotation matrix given the Fukushima-Williams angles. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** gamb double F-W angle gamma_bar (radians) +** phib double F-W angle phi_bar (radians) +** psi double F-W angle psi (radians) +** eps double F-W angle epsilon (radians) +** +** Returned: +** r double[3][3] rotation matrix +** +** Notes: +** +** 1) Naming the following points: +** +** e = J2000.0 ecliptic pole, +** p = GCRS pole, +** E = ecliptic pole of date, +** and P = CIP, +** +** the four Fukushima-Williams angles are as follows: +** +** gamb = gamma = epE +** phib = phi = pE +** psi = psi = pEP +** eps = epsilon = EP +** +** 2) The matrix representing the combined effects of frame bias, +** precession and nutation is: +** +** NxPxB = R_1(-eps).R_3(-psi).R_1(phib).R_3(gamb) +** +** 3) Three different matrices can be constructed, depending on the +** supplied angles: +** +** o To obtain the nutation x precession x frame bias matrix, +** generate the four precession angles, generate the nutation +** components and add them to the psi_bar and epsilon_A angles, +** and call the present function. +** +** o To obtain the precession x frame bias matrix, generate the +** four precession angles and call the present function. +** +** o To obtain the frame bias matrix, generate the four precession +** angles for date J2000.0 and call the present function. +** +** The nutation-only and precession-only matrices can if necessary +** be obtained by combining these three appropriately. +** +** Called: +** iauIr initialize r-matrix to identity +** iauRz rotate around Z-axis +** iauRx rotate around X-axis +** +** Reference: +** +** Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351 +** +*/ + + + + +void iauFw2xy(double gamb, double phib, double psi, double eps, + double *x, double *y) +/* +** - - - - - - - - - +** i a u F w 2 x y +** - - - - - - - - - +** +** CIP X,Y given Fukushima-Williams bias-precession-nutation angles. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** gamb double F-W angle gamma_bar (radians) +** phib double F-W angle phi_bar (radians) +** psi double F-W angle psi (radians) +** eps double F-W angle epsilon (radians) +** +** Returned: +** x,y double CIP unit vector X,Y +** +** Notes: +** +** 1) Naming the following points: +** +** e = J2000.0 ecliptic pole, +** p = GCRS pole +** E = ecliptic pole of date, +** and P = CIP, +** +** the four Fukushima-Williams angles are as follows: +** +** gamb = gamma = epE +** phib = phi = pE +** psi = psi = pEP +** eps = epsilon = EP +** +** 2) The matrix representing the combined effects of frame bias, +** precession and nutation is: +** +** NxPxB = R_1(-epsA).R_3(-psi).R_1(phib).R_3(gamb) +** +** The returned values x,y are elements [2][0] and [2][1] of the +** matrix. Near J2000.0, they are essentially angles in radians. +** +** Called: +** iauFw2m F-W angles to r-matrix +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** +** Reference: +** +** Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351 +** +*/ + + + + +void iauG2icrs ( double dl, double db, double *dr, double *dd ) +/* +** - - - - - - - - - - +** i a u G 2 i c r s +** - - - - - - - - - - +** +** Transformation from Galactic Coordinates to ICRS. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support routine. +** +** Given: +** dl double galactic longitude (radians) +** db double galactic latitude (radians) +** +** Returned: +** dr double ICRS right ascension (radians) +** dd double ICRS declination (radians) +** +** Notes: +** +** 1) The IAU 1958 system of Galactic coordinates was defined with +** respect to the now obsolete reference system FK4 B1950.0. When +** interpreting the system in a modern context, several factors have +** to be taken into account: +** +** . The inclusion in FK4 positions of the E-terms of aberration. +** +** . The distortion of the FK4 proper motion system by differential +** Galactic rotation. +** +** . The use of the B1950.0 equinox rather than the now-standard +** J2000.0. +** +** . The frame bias between ICRS and the J2000.0 mean place system. +** +** The Hipparcos Catalogue (Perryman & ESA 1997) provides a rotation +** matrix that transforms directly between ICRS and Galactic +** coordinates with the above factors taken into account. The +** matrix is derived from three angles, namely the ICRS coordinates +** of the Galactic pole and the longitude of the ascending node of +** the galactic equator on the ICRS equator. They are given in +** degrees to five decimal places and for canonical purposes are +** regarded as exact. In the Hipparcos Catalogue the matrix +** elements are given to 10 decimal places (about 20 microarcsec). +** In the present SOFA function the matrix elements have been +** recomputed from the canonical three angles and are given to 30 +** decimal places. +** +** 2) The inverse transformation is performed by the function iauIcrs2g. +** +** Called: +** iauAnp normalize angle into range 0 to 2pi +** iauAnpm normalize angle into range +/- pi +** iauS2c spherical coordinates to unit vector +** iauTrxp product of transpose of r-matrix and p-vector +** iauC2s p-vector to spherical +** +** Reference: +** Perryman M.A.C. & ESA, 1997, ESA SP-1200, The Hipparcos and Tycho +** catalogues. Astrometric and photometric star catalogues +** derived from the ESA Hipparcos Space Astrometry Mission. ESA +** Publications Division, Noordwijk, Netherlands. +** +*/ + + + + +int iauGc2gd ( int n, double xyz[3], + double *elong, double *phi, double *height ) +/* +** - - - - - - - - - +** i a u G c 2 g d +** - - - - - - - - - +** +** Transform geocentric coordinates to geodetic using the specified +** reference ellipsoid. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical transformation. +** +** Given: +** n int ellipsoid identifier (Note 1) +** xyz double[3] geocentric vector (Note 2) +** +** Returned: +** elong double longitude (radians, east +ve, Note 3) +** phi double latitude (geodetic, radians, Note 3) +** height double height above ellipsoid (geodetic, Notes 2,3) +** +** Returned (function value): +** int status: 0 = OK +** -1 = illegal identifier (Note 3) +** -2 = internal error (Note 3) +** +** Notes: +** +** 1) The identifier n is a number that specifies the choice of +** reference ellipsoid. The following are supported: +** +** n ellipsoid +** +** 1 WGS84 +** 2 GRS80 +** 3 WGS72 +** +** The n value has no significance outside the SOFA software. For +** convenience, symbols WGS84 etc. are defined in sofam.h. +** +** 2) The geocentric vector (xyz, given) and height (height, returned) +** are in meters. +** +** 3) An error status -1 means that the identifier n is illegal. An +** error status -2 is theoretically impossible. In all error cases, +** all three results are set to -1e9. +** +** 4) The inverse transformation is performed in the function iauGd2gc. +** +** Called: +** iauEform Earth reference ellipsoids +** iauGc2gde geocentric to geodetic transformation, general +** +*/ + + + + +int iauGc2gde ( double a, double f, double xyz[3], + double *elong, double *phi, double *height ) +/* +** - - - - - - - - - - +** i a u G c 2 g d e +** - - - - - - - - - - +** +** Transform geocentric coordinates to geodetic for a reference +** ellipsoid of specified form. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** a double equatorial radius (Notes 2,4) +** f double flattening (Note 3) +** xyz double[3] geocentric vector (Note 4) +** +** Returned: +** elong double longitude (radians, east +ve) +** phi double latitude (geodetic, radians) +** height double height above ellipsoid (geodetic, Note 4) +** +** Returned (function value): +** int status: 0 = OK +** -1 = illegal f +** -2 = illegal a +** +** Notes: +** +** 1) This function is based on the GCONV2H Fortran subroutine by +** Toshio Fukushima (see reference). +** +** 2) The equatorial radius, a, can be in any units, but meters is +** the conventional choice. +** +** 3) The flattening, f, is (for the Earth) a value around 0.00335, +** i.e. around 1/298. +** +** 4) The equatorial radius, a, and the geocentric vector, xyz, +** must be given in the same units, and determine the units of +** the returned height, height. +** +** 5) If an error occurs (status < 0), elong, phi and height are +** unchanged. +** +** 6) The inverse transformation is performed in the function +** iauGd2gce. +** +** 7) The transformation for a standard ellipsoid (such as WGS84) can +** more conveniently be performed by calling iauGc2gd, which uses a +** numerical code to identify the required A and F values. +** +** Reference: +** +** Fukushima, T., "Transformation from Cartesian to geodetic +** coordinates accelerated by Halley's method", J.Geodesy (2006) +** 79: 689-693 +** +*/ + + + + +int iauGd2gc ( int n, double elong, double phi, double height, + double xyz[3] ) +/* +** - - - - - - - - - +** i a u G d 2 g c +** - - - - - - - - - +** +** Transform geodetic coordinates to geocentric using the specified +** reference ellipsoid. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical transformation. +** +** Given: +** n int ellipsoid identifier (Note 1) +** elong double longitude (radians, east +ve) +** phi double latitude (geodetic, radians, Note 3) +** height double height above ellipsoid (geodetic, Notes 2,3) +** +** Returned: +** xyz double[3] geocentric vector (Note 2) +** +** Returned (function value): +** int status: 0 = OK +** -1 = illegal identifier (Note 3) +** -2 = illegal case (Note 3) +** +** Notes: +** +** 1) The identifier n is a number that specifies the choice of +** reference ellipsoid. The following are supported: +** +** n ellipsoid +** +** 1 WGS84 +** 2 GRS80 +** 3 WGS72 +** +** The n value has no significance outside the SOFA software. For +** convenience, symbols WGS84 etc. are defined in sofam.h. +** +** 2) The height (height, given) and the geocentric vector (xyz, +** returned) are in meters. +** +** 3) No validation is performed on the arguments elong, phi and +** height. An error status -1 means that the identifier n is +** illegal. An error status -2 protects against cases that would +** lead to arithmetic exceptions. In all error cases, xyz is set +** to zeros. +** +** 4) The inverse transformation is performed in the function iauGc2gd. +** +** Called: +** iauEform Earth reference ellipsoids +** iauGd2gce geodetic to geocentric transformation, general +** iauZp zero p-vector +** +*/ + + + + +int iauGd2gce ( double a, double f, double elong, double phi, + double height, double xyz[3] ) +/* +** - - - - - - - - - - +** i a u G d 2 g c e +** - - - - - - - - - - +** +** Transform geodetic coordinates to geocentric for a reference +** ellipsoid of specified form. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** a double equatorial radius (Notes 1,4) +** f double flattening (Notes 2,4) +** elong double longitude (radians, east +ve) +** phi double latitude (geodetic, radians, Note 4) +** height double height above ellipsoid (geodetic, Notes 3,4) +** +** Returned: +** xyz double[3] geocentric vector (Note 3) +** +** Returned (function value): +** int status: 0 = OK +** -1 = illegal case (Note 4) +** Notes: +** +** 1) The equatorial radius, a, can be in any units, but meters is +** the conventional choice. +** +** 2) The flattening, f, is (for the Earth) a value around 0.00335, +** i.e. around 1/298. +** +** 3) The equatorial radius, a, and the height, height, must be +** given in the same units, and determine the units of the +** returned geocentric vector, xyz. +** +** 4) No validation is performed on individual arguments. The error +** status -1 protects against (unrealistic) cases that would lead +** to arithmetic exceptions. If an error occurs, xyz is unchanged. +** +** 5) The inverse transformation is performed in the function +** iauGc2gde. +** +** 6) The transformation for a standard ellipsoid (such as WGS84) can +** more conveniently be performed by calling iauGd2gc, which uses a +** numerical code to identify the required a and f values. +** +** References: +** +** Green, R.M., Spherical Astronomy, Cambridge University Press, +** (1985) Section 4.5, p96. +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 4.22, p202. +** +*/ + + + + +double iauGmst00(double uta, double utb, double tta, double ttb) +/* +** - - - - - - - - - - +** i a u G m s t 0 0 +** - - - - - - - - - - +** +** Greenwich mean sidereal time (model consistent with IAU 2000 +** resolutions). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** uta,utb double UT1 as a 2-part Julian Date (Notes 1,2) +** tta,ttb double TT as a 2-part Julian Date (Notes 1,2) +** +** Returned (function value): +** double Greenwich mean sidereal time (radians) +** +** Notes: +** +** 1) The UT1 and TT dates uta+utb and tta+ttb respectively, are both +** Julian Dates, apportioned in any convenient way between the +** argument pairs. For example, JD=2450123.7 could be expressed in +** any of these ways, among others: +** +** Part A Part B +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable (in the case of UT; the TT is not at all critical +** in this respect). The J2000 and MJD methods are good compromises +** between resolution and convenience. For UT, the date & time +** method is best matched to the algorithm that is used by the Earth +** Rotation Angle function, called internally: maximum precision is +** delivered when the uta argument is for 0hrs UT1 on the day in +** question and the utb argument lies in the range 0 to 1, or vice +** versa. +** +** 2) Both UT1 and TT are required, UT1 to predict the Earth rotation +** and TT to predict the effects of precession. If UT1 is used for +** both purposes, errors of order 100 microarcseconds result. +** +** 3) This GMST is compatible with the IAU 2000 resolutions and must be +** used only in conjunction with other IAU 2000 compatible +** components such as precession-nutation and equation of the +** equinoxes. +** +** 4) The result is returned in the range 0 to 2pi. +** +** 5) The algorithm is from Capitaine et al. (2003) and IERS +** Conventions 2003. +** +** Called: +** iauEra00 Earth rotation angle, IAU 2000 +** iauAnp normalize angle into range 0 to 2pi +** +** References: +** +** Capitaine, N., Wallace, P.T. and McCarthy, D.D., "Expressions to +** implement the IAU 2000 definition of UT1", Astronomy & +** Astrophysics, 406, 1135-1149 (2003) +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +double iauGmst06(double uta, double utb, double tta, double ttb) +/* +** - - - - - - - - - - +** i a u G m s t 0 6 +** - - - - - - - - - - +** +** Greenwich mean sidereal time (consistent with IAU 2006 precession). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** uta,utb double UT1 as a 2-part Julian Date (Notes 1,2) +** tta,ttb double TT as a 2-part Julian Date (Notes 1,2) +** +** Returned (function value): +** double Greenwich mean sidereal time (radians) +** +** Notes: +** +** 1) The UT1 and TT dates uta+utb and tta+ttb respectively, are both +** Julian Dates, apportioned in any convenient way between the +** argument pairs. For example, JD=2450123.7 could be expressed in +** any of these ways, among others: +** +** Part A Part B +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable (in the case of UT; the TT is not at all critical +** in this respect). The J2000 and MJD methods are good compromises +** between resolution and convenience. For UT, the date & time +** method is best matched to the algorithm that is used by the Earth +** rotation angle function, called internally: maximum precision is +** delivered when the uta argument is for 0hrs UT1 on the day in +** question and the utb argument lies in the range 0 to 1, or vice +** versa. +** +** 2) Both UT1 and TT are required, UT1 to predict the Earth rotation +** and TT to predict the effects of precession. If UT1 is used for +** both purposes, errors of order 100 microarcseconds result. +** +** 3) This GMST is compatible with the IAU 2006 precession and must not +** be used with other precession models. +** +** 4) The result is returned in the range 0 to 2pi. +** +** Called: +** iauEra00 Earth rotation angle, IAU 2000 +** iauAnp normalize angle into range 0 to 2pi +** +** Reference: +** +** Capitaine, N., Wallace, P.T. & Chapront, J., 2005, +** Astron.Astrophys. 432, 355 +** +*/ + + + + +double iauGmst82(double dj1, double dj2) +/* +** - - - - - - - - - - +** i a u G m s t 8 2 +** - - - - - - - - - - +** +** Universal Time to Greenwich mean sidereal time (IAU 1982 model). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** dj1,dj2 double UT1 Julian Date (see note) +** +** Returned (function value): +** double Greenwich mean sidereal time (radians) +** +** Notes: +** +** 1) The UT1 date dj1+dj2 is a Julian Date, apportioned in any +** convenient way between the arguments dj1 and dj2. For example, +** JD(UT1)=2450123.7 could be expressed in any of these ways, +** among others: +** +** dj1 dj2 +** +** 2450123.7 0 (JD method) +** 2451545 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. The date & time method is +** best matched to the algorithm used: maximum accuracy (or, at +** least, minimum noise) is delivered when the dj1 argument is for +** 0hrs UT1 on the day in question and the dj2 argument lies in the +** range 0 to 1, or vice versa. +** +** 2) The algorithm is based on the IAU 1982 expression. This is +** always described as giving the GMST at 0 hours UT1. In fact, it +** gives the difference between the GMST and the UT, the steady +** 4-minutes-per-day drawing-ahead of ST with respect to UT. When +** whole days are ignored, the expression happens to equal the GMST +** at 0 hours UT1 each day. +** +** 3) In this function, the entire UT1 (the sum of the two arguments +** dj1 and dj2) is used directly as the argument for the standard +** formula, the constant term of which is adjusted by 12 hours to +** take account of the noon phasing of Julian Date. The UT1 is then +** added, but omitting whole days to conserve accuracy. +** +** Called: +** iauAnp normalize angle into range 0 to 2pi +** +** References: +** +** Transactions of the International Astronomical Union, +** XVIII B, 67 (1983). +** +** Aoki et al., Astron. Astrophys. 105, 359-361 (1982). +** +*/ + + + + +double iauGst00a(double uta, double utb, double tta, double ttb) +/* +** - - - - - - - - - - +** i a u G s t 0 0 a +** - - - - - - - - - - +** +** Greenwich apparent sidereal time (consistent with IAU 2000 +** resolutions). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** uta,utb double UT1 as a 2-part Julian Date (Notes 1,2) +** tta,ttb double TT as a 2-part Julian Date (Notes 1,2) +** +** Returned (function value): +** double Greenwich apparent sidereal time (radians) +** +** Notes: +** +** 1) The UT1 and TT dates uta+utb and tta+ttb respectively, are both +** Julian Dates, apportioned in any convenient way between the +** argument pairs. For example, JD=2450123.7 could be expressed in +** any of these ways, among others: +** +** Part A Part B +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable (in the case of UT; the TT is not at all critical +** in this respect). The J2000 and MJD methods are good compromises +** between resolution and convenience. For UT, the date & time +** method is best matched to the algorithm that is used by the Earth +** Rotation Angle function, called internally: maximum precision is +** delivered when the uta argument is for 0hrs UT1 on the day in +** question and the utb argument lies in the range 0 to 1, or vice +** versa. +** +** 2) Both UT1 and TT are required, UT1 to predict the Earth rotation +** and TT to predict the effects of precession-nutation. If UT1 is +** used for both purposes, errors of order 100 microarcseconds +** result. +** +** 3) This GAST is compatible with the IAU 2000 resolutions and must be +** used only in conjunction with other IAU 2000 compatible +** components such as precession-nutation. +** +** 4) The result is returned in the range 0 to 2pi. +** +** 5) The algorithm is from Capitaine et al. (2003) and IERS +** Conventions 2003. +** +** Called: +** iauGmst00 Greenwich mean sidereal time, IAU 2000 +** iauEe00a equation of the equinoxes, IAU 2000A +** iauAnp normalize angle into range 0 to 2pi +** +** References: +** +** Capitaine, N., Wallace, P.T. and McCarthy, D.D., "Expressions to +** implement the IAU 2000 definition of UT1", Astronomy & +** Astrophysics, 406, 1135-1149 (2003) +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +double iauGst00b(double uta, double utb) +/* +** - - - - - - - - - - +** i a u G s t 0 0 b +** - - - - - - - - - - +** +** Greenwich apparent sidereal time (consistent with IAU 2000 +** resolutions but using the truncated nutation model IAU 2000B). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** uta,utb double UT1 as a 2-part Julian Date (Notes 1,2) +** +** Returned (function value): +** double Greenwich apparent sidereal time (radians) +** +** Notes: +** +** 1) The UT1 date uta+utb is a Julian Date, apportioned in any +** convenient way between the argument pair. For example, +** JD=2450123.7 could be expressed in any of these ways, among +** others: +** +** uta utb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. For UT, the date & time +** method is best matched to the algorithm that is used by the Earth +** Rotation Angle function, called internally: maximum precision is +** delivered when the uta argument is for 0hrs UT1 on the day in +** question and the utb argument lies in the range 0 to 1, or vice +** versa. +** +** 2) The result is compatible with the IAU 2000 resolutions, except +** that accuracy has been compromised for the sake of speed and +** convenience in two respects: +** +** . UT is used instead of TDB (or TT) to compute the precession +** component of GMST and the equation of the equinoxes. This +** results in errors of order 0.1 mas at present. +** +** . The IAU 2000B abridged nutation model (McCarthy & Luzum, 2001) +** is used, introducing errors of up to 1 mas. +** +** 3) This GAST is compatible with the IAU 2000 resolutions and must be +** used only in conjunction with other IAU 2000 compatible +** components such as precession-nutation. +** +** 4) The result is returned in the range 0 to 2pi. +** +** 5) The algorithm is from Capitaine et al. (2003) and IERS +** Conventions 2003. +** +** Called: +** iauGmst00 Greenwich mean sidereal time, IAU 2000 +** iauEe00b equation of the equinoxes, IAU 2000B +** iauAnp normalize angle into range 0 to 2pi +** +** References: +** +** Capitaine, N., Wallace, P.T. and McCarthy, D.D., "Expressions to +** implement the IAU 2000 definition of UT1", Astronomy & +** Astrophysics, 406, 1135-1149 (2003) +** +** McCarthy, D.D. & Luzum, B.J., "An abridged model of the +** precession-nutation of the celestial pole", Celestial Mechanics & +** Dynamical Astronomy, 85, 37-49 (2003) +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +double iauGst06(double uta, double utb, double tta, double ttb, + double rnpb[3][3]) +/* +** - - - - - - - - - +** i a u G s t 0 6 +** - - - - - - - - - +** +** Greenwich apparent sidereal time, IAU 2006, given the NPB matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** uta,utb double UT1 as a 2-part Julian Date (Notes 1,2) +** tta,ttb double TT as a 2-part Julian Date (Notes 1,2) +** rnpb double[3][3] nutation x precession x bias matrix +** +** Returned (function value): +** double Greenwich apparent sidereal time (radians) +** +** Notes: +** +** 1) The UT1 and TT dates uta+utb and tta+ttb respectively, are both +** Julian Dates, apportioned in any convenient way between the +** argument pairs. For example, JD=2450123.7 could be expressed in +** any of these ways, among others: +** +** Part A Part B +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable (in the case of UT; the TT is not at all critical +** in this respect). The J2000 and MJD methods are good compromises +** between resolution and convenience. For UT, the date & time +** method is best matched to the algorithm that is used by the Earth +** rotation angle function, called internally: maximum precision is +** delivered when the uta argument is for 0hrs UT1 on the day in +** question and the utb argument lies in the range 0 to 1, or vice +** versa. +** +** 2) Both UT1 and TT are required, UT1 to predict the Earth rotation +** and TT to predict the effects of precession-nutation. If UT1 is +** used for both purposes, errors of order 100 microarcseconds +** result. +** +** 3) Although the function uses the IAU 2006 series for s+XY/2, it is +** otherwise independent of the precession-nutation model and can in +** practice be used with any equinox-based NPB matrix. +** +** 4) The result is returned in the range 0 to 2pi. +** +** Called: +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS06 the CIO locator s, given X,Y, IAU 2006 +** iauAnp normalize angle into range 0 to 2pi +** iauEra00 Earth rotation angle, IAU 2000 +** iauEors equation of the origins, given NPB matrix and s +** +** Reference: +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +*/ + + + + +double iauGst06a(double uta, double utb, double tta, double ttb) +/* +** - - - - - - - - - - +** i a u G s t 0 6 a +** - - - - - - - - - - +** +** Greenwich apparent sidereal time (consistent with IAU 2000 and 2006 +** resolutions). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** uta,utb double UT1 as a 2-part Julian Date (Notes 1,2) +** tta,ttb double TT as a 2-part Julian Date (Notes 1,2) +** +** Returned (function value): +** double Greenwich apparent sidereal time (radians) +** +** Notes: +** +** 1) The UT1 and TT dates uta+utb and tta+ttb respectively, are both +** Julian Dates, apportioned in any convenient way between the +** argument pairs. For example, JD=2450123.7 could be expressed in +** any of these ways, among others: +** +** Part A Part B +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable (in the case of UT; the TT is not at all critical +** in this respect). The J2000 and MJD methods are good compromises +** between resolution and convenience. For UT, the date & time +** method is best matched to the algorithm that is used by the Earth +** rotation angle function, called internally: maximum precision is +** delivered when the uta argument is for 0hrs UT1 on the day in +** question and the utb argument lies in the range 0 to 1, or vice +** versa. +** +** 2) Both UT1 and TT are required, UT1 to predict the Earth rotation +** and TT to predict the effects of precession-nutation. If UT1 is +** used for both purposes, errors of order 100 microarcseconds +** result. +** +** 3) This GAST is compatible with the IAU 2000/2006 resolutions and +** must be used only in conjunction with IAU 2006 precession and +** IAU 2000A nutation. +** +** 4) The result is returned in the range 0 to 2pi. +** +** Called: +** iauPnm06a classical NPB matrix, IAU 2006/2000A +** iauGst06 Greenwich apparent ST, IAU 2006, given NPB matrix +** +** Reference: +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +*/ + + + + +double iauGst94(double uta, double utb) +/* +** - - - - - - - - - +** i a u G s t 9 4 +** - - - - - - - - - +** +** Greenwich apparent sidereal time (consistent with IAU 1982/94 +** resolutions). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** uta,utb double UT1 as a 2-part Julian Date (Notes 1,2) +** +** Returned (function value): +** double Greenwich apparent sidereal time (radians) +** +** Notes: +** +** 1) The UT1 date uta+utb is a Julian Date, apportioned in any +** convenient way between the argument pair. For example, +** JD=2450123.7 could be expressed in any of these ways, among +** others: +** +** uta utb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. For UT, the date & time +** method is best matched to the algorithm that is used by the Earth +** Rotation Angle function, called internally: maximum precision is +** delivered when the uta argument is for 0hrs UT1 on the day in +** question and the utb argument lies in the range 0 to 1, or vice +** versa. +** +** 2) The result is compatible with the IAU 1982 and 1994 resolutions, +** except that accuracy has been compromised for the sake of +** convenience in that UT is used instead of TDB (or TT) to compute +** the equation of the equinoxes. +** +** 3) This GAST must be used only in conjunction with contemporaneous +** IAU standards such as 1976 precession, 1980 obliquity and 1982 +** nutation. It is not compatible with the IAU 2000 resolutions. +** +** 4) The result is returned in the range 0 to 2pi. +** +** Called: +** iauGmst82 Greenwich mean sidereal time, IAU 1982 +** iauEqeq94 equation of the equinoxes, IAU 1994 +** iauAnp normalize angle into range 0 to 2pi +** +** References: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +** IAU Resolution C7, Recommendation 3 (1994) +** +*/ + + + + +void iauH2fk5(double rh, double dh, + double drh, double ddh, double pxh, double rvh, + double *r5, double *d5, + double *dr5, double *dd5, double *px5, double *rv5) +/* +** - - - - - - - - - +** i a u H 2 f k 5 +** - - - - - - - - - +** +** Transform Hipparcos star data into the FK5 (J2000.0) system. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given (all Hipparcos, epoch J2000.0): +** rh double RA (radians) +** dh double Dec (radians) +** drh double proper motion in RA (dRA/dt, rad/Jyear) +** ddh double proper motion in Dec (dDec/dt, rad/Jyear) +** pxh double parallax (arcsec) +** rvh double radial velocity (km/s, positive = receding) +** +** Returned (all FK5, equinox J2000.0, epoch J2000.0): +** r5 double RA (radians) +** d5 double Dec (radians) +** dr5 double proper motion in RA (dRA/dt, rad/Jyear) +** dd5 double proper motion in Dec (dDec/dt, rad/Jyear) +** px5 double parallax (arcsec) +** rv5 double radial velocity (km/s, positive = receding) +** +** Notes: +** +** 1) This function transforms Hipparcos star positions and proper +** motions into FK5 J2000.0. +** +** 2) The proper motions in RA are dRA/dt rather than +** cos(Dec)*dRA/dt, and are per year rather than per century. +** +** 3) The FK5 to Hipparcos transformation is modeled as a pure +** rotation and spin; zonal errors in the FK5 catalog are not +** taken into account. +** +** 4) See also iauFk52h, iauFk5hz, iauHfk5z. +** +** Called: +** iauStarpv star catalog data to space motion pv-vector +** iauFk5hip FK5 to Hipparcos rotation and spin +** iauRv2m r-vector to r-matrix +** iauRxp product of r-matrix and p-vector +** iauTrxp product of transpose of r-matrix and p-vector +** iauPxp vector product of two p-vectors +** iauPmp p-vector minus p-vector +** iauPvstar space motion pv-vector to star catalog data +** +** Reference: +** +** F.Mignard & M.Froeschle, Astron. Astrophys. 354, 732-739 (2000). +** +*/ + + + + +void iauHfk5z(double rh, double dh, double date1, double date2, + double *r5, double *d5, double *dr5, double *dd5) +/* +** - - - - - - - - - +** i a u H f k 5 z +** - - - - - - - - - +** +** Transform a Hipparcos star position into FK5 J2000.0, assuming +** zero Hipparcos proper motion. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rh double Hipparcos RA (radians) +** dh double Hipparcos Dec (radians) +** date1,date2 double TDB date (Note 1) +** +** Returned (all FK5, equinox J2000.0, date date1+date2): +** r5 double RA (radians) +** d5 double Dec (radians) +** dr5 double FK5 RA proper motion (rad/year, Note 4) +** dd5 double Dec proper motion (rad/year, Note 4) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The proper motion in RA is dRA/dt rather than cos(Dec)*dRA/dt. +** +** 3) The FK5 to Hipparcos transformation is modeled as a pure rotation +** and spin; zonal errors in the FK5 catalogue are not taken into +** account. +** +** 4) It was the intention that Hipparcos should be a close +** approximation to an inertial frame, so that distant objects have +** zero proper motion; such objects have (in general) non-zero +** proper motion in FK5, and this function returns those fictitious +** proper motions. +** +** 5) The position returned by this function is in the FK5 J2000.0 +** reference system but at date date1+date2. +** +** 6) See also iauFk52h, iauH2fk5, iauFk5zhz. +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauFk5hip FK5 to Hipparcos rotation and spin +** iauRxp product of r-matrix and p-vector +** iauSxp multiply p-vector by scalar +** iauRxr product of two r-matrices +** iauTrxp product of transpose of r-matrix and p-vector +** iauPxp vector product of two p-vectors +** iauPv2s pv-vector to spherical +** iauAnp normalize angle into range 0 to 2pi +** +** Reference: +** +** F.Mignard & M.Froeschle, 2000, Astron.Astrophys. 354, 732-739. +** +*/ + + + + +void iauIcrs2g ( double dr, double dd, double *dl, double *db ) +/* +** - - - - - - - - - - +** i a u I c r s 2 g +** - - - - - - - - - - +** +** Transformation from ICRS to Galactic Coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support routine. +** +** Given: +** dr double ICRS right ascension (radians) +** dd double ICRS declination (radians) +** +** Returned: +** dl double galactic longitude (radians) +** db double galactic latitude (radians) +** +** Notes: +** +** 1) The IAU 1958 system of Galactic coordinates was defined with +** respect to the now obsolete reference system FK4 B1950.0. When +** interpreting the system in a modern context, several factors have +** to be taken into account: +** +** . The inclusion in FK4 positions of the E-terms of aberration. +** +** . The distortion of the FK4 proper motion system by differential +** Galactic rotation. +** +** . The use of the B1950.0 equinox rather than the now-standard +** J2000.0. +** +** . The frame bias between ICRS and the J2000.0 mean place system. +** +** The Hipparcos Catalogue (Perryman & ESA 1997) provides a rotation +** matrix that transforms directly between ICRS and Galactic +** coordinates with the above factors taken into account. The +** matrix is derived from three angles, namely the ICRS coordinates +** of the Galactic pole and the longitude of the ascending node of +** the galactic equator on the ICRS equator. They are given in +** degrees to five decimal places and for canonical purposes are +** regarded as exact. In the Hipparcos Catalogue the matrix +** elements are given to 10 decimal places (about 20 microarcsec). +** In the present SOFA function the matrix elements have been +** recomputed from the canonical three angles and are given to 30 +** decimal places. +** +** 2) The inverse transformation is performed by the function iauG2icrs. +** +** Called: +** iauAnp normalize angle into range 0 to 2pi +** iauAnpm normalize angle into range +/- pi +** iauS2c spherical coordinates to unit vector +** iauRxp product of r-matrix and p-vector +** iauC2s p-vector to spherical +** +** Reference: +** Perryman M.A.C. & ESA, 1997, ESA SP-1200, The Hipparcos and Tycho +** catalogues. Astrometric and photometric star catalogues +** derived from the ESA Hipparcos Space Astrometry Mission. ESA +** Publications Division, Noordwijk, Netherlands. +** +*/ + + + + +void iauIr(double r[3][3]) +/* +** - - - - - - +** i a u I r +** - - - - - - +** +** Initialize an r-matrix to the identity matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Returned: +** r double[3][3] r-matrix +** +*/ + + + + +int iauJd2cal(double dj1, double dj2, + int *iy, int *im, int *id, double *fd) +/* +** - - - - - - - - - - +** i a u J d 2 c a l +** - - - - - - - - - - +** +** Julian Date to Gregorian year, month, day, and fraction of a day. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** dj1,dj2 double Julian Date (Notes 1, 2) +** +** Returned (arguments): +** iy int year +** im int month +** id int day +** fd double fraction of day +** +** Returned (function value): +** int status: +** 0 = OK +** -1 = unacceptable date (Note 3) +** +** Notes: +** +** 1) The earliest valid date is -68569.5 (-4900 March 1). The +** largest value accepted is 1e9. +** +** 2) The Julian Date is apportioned in any convenient way between +** the arguments dj1 and dj2. For example, JD=2450123.7 could +** be expressed in any of these ways, among others: +** +** dj1 dj2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** 3) In early eras the conversion is from the "proleptic Gregorian +** calendar"; no account is taken of the date(s) of adoption of +** the Gregorian calendar, nor is the AD/BC numbering convention +** observed. +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 12.92 (p604). +** +*/ + + + + +int iauJdcalf(int ndp, double dj1, double dj2, int iymdf[4]) +/* +** - - - - - - - - - - +** i a u J d c a l f +** - - - - - - - - - - +** +** Julian Date to Gregorian Calendar, expressed in a form convenient +** for formatting messages: rounded to a specified precision. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** ndp int number of decimal places of days in fraction +** dj1,dj2 double dj1+dj2 = Julian Date (Note 1) +** +** Returned: +** iymdf int[4] year, month, day, fraction in Gregorian +** calendar +** +** Returned (function value): +** int status: +** -1 = date out of range +** 0 = OK +** +1 = NDP not 0-9 (interpreted as 0) +** +** Notes: +** +** 1) The Julian Date is apportioned in any convenient way between +** the arguments dj1 and dj2. For example, JD=2450123.7 could +** be expressed in any of these ways, among others: +** +** dj1 dj2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** 2) In early eras the conversion is from the "Proleptic Gregorian +** Calendar"; no account is taken of the date(s) of adoption of +** the Gregorian Calendar, nor is the AD/BC numbering convention +** observed. +** +** 3) Refer to the function iauJd2cal. +** +** 4) NDP should be 4 or less if internal overflows are to be +** avoided on machines which use 16-bit integers. +** +** Called: +** iauJd2cal JD to Gregorian calendar +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 12.92 (p604). +** +*/ + + + + +void iauLd(double bm, double p[3], double q[3], double e[3], + double em, double dlim, double p1[3]) +/* +** - - - - - - +** i a u L d +** - - - - - - +** +** Apply light deflection by a solar-system body, as part of +** transforming coordinate direction into natural direction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** bm double mass of the gravitating body (solar masses) +** p double[3] direction from observer to source (unit vector) +** q double[3] direction from body to source (unit vector) +** e double[3] direction from body to observer (unit vector) +** em double distance from body to observer (au) +** dlim double deflection limiter (Note 4) +** +** Returned: +** p1 double[3] observer to deflected source (unit vector) +** +** Notes: +** +** 1) The algorithm is based on Expr. (70) in Klioner (2003) and +** Expr. (7.63) in the Explanatory Supplement (Urban & Seidelmann +** 2013), with some rearrangement to minimize the effects of machine +** precision. +** +** 2) The mass parameter bm can, as required, be adjusted in order to +** allow for such effects as quadrupole field. +** +** 3) The barycentric position of the deflecting body should ideally +** correspond to the time of closest approach of the light ray to +** the body. +** +** 4) The deflection limiter parameter dlim is phi^2/2, where phi is +** the angular separation (in radians) between source and body at +** which limiting is applied. As phi shrinks below the chosen +** threshold, the deflection is artificially reduced, reaching zero +** for phi = 0. +** +** 5) The returned vector p1 is not normalized, but the consequential +** departure from unit magnitude is always negligible. +** +** 6) The arguments p and p1 can be the same array. +** +** 7) To accumulate total light deflection taking into account the +** contributions from several bodies, call the present function for +** each body in succession, in decreasing order of distance from the +** observer. +** +** 8) For efficiency, validation is omitted. The supplied vectors must +** be of unit magnitude, and the deflection limiter non-zero and +** positive. +** +** References: +** +** Urban, S. & Seidelmann, P. K. (eds), Explanatory Supplement to +** the Astronomical Almanac, 3rd ed., University Science Books +** (2013). +** +** Klioner, Sergei A., "A practical relativistic model for micro- +** arcsecond astrometry in space", Astr. J. 125, 1580-1597 (2003). +** +** Called: +** iauPdp scalar product of two p-vectors +** iauPxp vector product of two p-vectors +** +*/ + + + + +void iauLdn(int n, iauLDBODY b[], double ob[3], double sc[3], + double sn[3]) +/*+ +** - - - - - - - +** i a u L d n +** - - - - - - - +** +** For a star, apply light deflection by multiple solar-system bodies, +** as part of transforming coordinate direction into natural direction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** n int number of bodies (note 1) +** b iauLDBODY[n] data for each of the n bodies (Notes 1,2): +** bm double mass of the body (solar masses, Note 3) +** dl double deflection limiter (Note 4) +** pv [2][3] barycentric PV of the body (au, au/day) +** ob double[3] barycentric position of the observer (au) +** sc double[3] observer to star coord direction (unit vector) +** +** Returned: +** sn double[3] observer to deflected star (unit vector) +** +** 1) The array b contains n entries, one for each body to be +** considered. If n = 0, no gravitational light deflection will be +** applied, not even for the Sun. +** +** 2) The array b should include an entry for the Sun as well as for +** any planet or other body to be taken into account. The entries +** should be in the order in which the light passes the body. +** +** 3) In the entry in the b array for body i, the mass parameter +** b[i].bm can, as required, be adjusted in order to allow for such +** effects as quadrupole field. +** +** 4) The deflection limiter parameter b[i].dl is phi^2/2, where phi is +** the angular separation (in radians) between star and body at +** which limiting is applied. As phi shrinks below the chosen +** threshold, the deflection is artificially reduced, reaching zero +** for phi = 0. Example values suitable for a terrestrial +** observer, together with masses, are as follows: +** +** body i b[i].bm b[i].dl +** +** Sun 1.0 6e-6 +** Jupiter 0.00095435 3e-9 +** Saturn 0.00028574 3e-10 +** +** 5) For cases where the starlight passes the body before reaching the +** observer, the body is placed back along its barycentric track by +** the light time from that point to the observer. For cases where +** the body is "behind" the observer no such shift is applied. If +** a different treatment is preferred, the user has the option of +** instead using the iauLd function. Similarly, iauLd can be used +** for cases where the source is nearby, not a star. +** +** 6) The returned vector sn is not normalized, but the consequential +** departure from unit magnitude is always negligible. +** +** 7) The arguments sc and sn can be the same array. +** +** 8) For efficiency, validation is omitted. The supplied masses must +** be greater than zero, the position and velocity vectors must be +** right, and the deflection limiter greater than zero. +** +** Reference: +** +** Urban, S. & Seidelmann, P. K. (eds), Explanatory Supplement to +** the Astronomical Almanac, 3rd ed., University Science Books +** (2013), Section 7.2.4. +** +** Called: +** iauCp copy p-vector +** iauPdp scalar product of two p-vectors +** iauPmp p-vector minus p-vector +** iauPpsp p-vector plus scaled p-vector +** iauPn decompose p-vector into modulus and direction +** iauLd light deflection by a solar-system body +** +*/ + + + + +void iauLdsun(double p[3], double e[3], double em, double p1[3]) +/* +** - - - - - - - - - +** i a u L d s u n +** - - - - - - - - - +** +** Deflection of starlight by the Sun. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** p double[3] direction from observer to star (unit vector) +** e double[3] direction from Sun to observer (unit vector) +** em double distance from Sun to observer (au) +** +** Returned: +** p1 double[3] observer to deflected star (unit vector) +** +** Notes: +** +** 1) The source is presumed to be sufficiently distant that its +** directions seen from the Sun and the observer are essentially +** the same. +** +** 2) The deflection is restrained when the angle between the star and +** the center of the Sun is less than about 9 arcsec, falling to +** zero for zero separation. (The chosen threshold is within the +** solar limb for all solar-system applications.) +** +** 3) The arguments p and p1 can be the same array. +** +** Called: +** iauLd light deflection by a solar-system body +** +*/ + + + + +void iauNum00a(double date1, double date2, double rmatn[3][3]) +/* +** - - - - - - - - - - +** i a u N u m 0 0 a +** - - - - - - - - - - +** +** Form the matrix of nutation for a given date, IAU 2000A model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rmatn double[3][3] nutation matrix +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(true) = rmatn * V(mean), where +** the p-vector V(true) is with respect to the true equatorial triad +** of date and the p-vector V(mean) is with respect to the mean +** equatorial triad of date. +** +** 3) A faster, but slightly less accurate result (about 1 mas), can be +** obtained by using instead the iauNum00b function. +** +** Called: +** iauPn00a bias/precession/nutation, IAU 2000A +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 3.222-3 (p114). +** +*/ + + + + +void iauNum00b(double date1, double date2, double rmatn[3][3]) +/* +** - - - - - - - - - - +** i a u N u m 0 0 b +** - - - - - - - - - - +** +** Form the matrix of nutation for a given date, IAU 2000B model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rmatn double[3][3] nutation matrix +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(true) = rmatn * V(mean), where +** the p-vector V(true) is with respect to the true equatorial triad +** of date and the p-vector V(mean) is with respect to the mean +** equatorial triad of date. +** +** 3) The present function is faster, but slightly less accurate (about +** 1 mas), than the iauNum00a function. +** +** Called: +** iauPn00b bias/precession/nutation, IAU 2000B +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 3.222-3 (p114). +** +*/ + + + + +void iauNum06a(double date1, double date2, double rmatn[3][3]) +/* +** - - - - - - - - - - +** i a u N u m 0 6 a +** - - - - - - - - - - +** +** Form the matrix of nutation for a given date, IAU 2006/2000A model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rmatn double[3][3] nutation matrix +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(true) = rmatn * V(mean), where +** the p-vector V(true) is with respect to the true equatorial triad +** of date and the p-vector V(mean) is with respect to the mean +** equatorial triad of date. +** +** Called: +** iauObl06 mean obliquity, IAU 2006 +** iauNut06a nutation, IAU 2006/2000A +** iauNumat form nutation matrix +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 3.222-3 (p114). +** +*/ + + + + +void iauNumat(double epsa, double dpsi, double deps, double rmatn[3][3]) +/* +** - - - - - - - - - +** i a u N u m a t +** - - - - - - - - - +** +** Form the matrix of nutation. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** epsa double mean obliquity of date (Note 1) +** dpsi,deps double nutation (Note 2) +** +** Returned: +** rmatn double[3][3] nutation matrix (Note 3) +** +** Notes: +** +** 1) The supplied mean obliquity epsa, must be consistent with the +** precession-nutation models from which dpsi and deps were obtained. +** +** 2) The caller is responsible for providing the nutation components; +** they are in longitude and obliquity, in radians and are with +** respect to the equinox and ecliptic of date. +** +** 3) The matrix operates in the sense V(true) = rmatn * V(mean), +** where the p-vector V(true) is with respect to the true +** equatorial triad of date and the p-vector V(mean) is with +** respect to the mean equatorial triad of date. +** +** Called: +** iauIr initialize r-matrix to identity +** iauRx rotate around X-axis +** iauRz rotate around Z-axis +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 3.222-3 (p114). +** +*/ + + + + +void iauNut00a(double date1, double date2, double *dpsi, double *deps) +/* +** - - - - - - - - - - +** i a u N u t 0 0 a +** - - - - - - - - - - +** +** Nutation, IAU 2000A model (MHB2000 luni-solar and planetary nutation +** with free core nutation omitted). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsi,deps double nutation, luni-solar + planetary (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The nutation components in longitude and obliquity are in radians +** and with respect to the equinox and ecliptic of date. The +** obliquity at J2000.0 is assumed to be the Lieske et al. (1977) +** value of 84381.448 arcsec. +** +** Both the luni-solar and planetary nutations are included. The +** latter are due to direct planetary nutations and the +** perturbations of the lunar and terrestrial orbits. +** +** 3) The function computes the MHB2000 nutation series with the +** associated corrections for planetary nutations. It is an +** implementation of the nutation part of the IAU 2000A precession- +** nutation model, formally adopted by the IAU General Assembly in +** 2000, namely MHB2000 (Mathews et al. 2002), but with the free +** core nutation (FCN - see Note 4) omitted. +** +** 4) The full MHB2000 model also contains contributions to the +** nutations in longitude and obliquity due to the free-excitation +** of the free-core-nutation during the period 1979-2000. These FCN +** terms, which are time-dependent and unpredictable, are NOT +** included in the present function and, if required, must be +** independently computed. With the FCN corrections included, the +** present function delivers a pole which is at current epochs +** accurate to a few hundred microarcseconds. The omission of FCN +** introduces further errors of about that size. +** +** 5) The present function provides classical nutation. The MHB2000 +** algorithm, from which it is adapted, deals also with (i) the +** offsets between the GCRS and mean poles and (ii) the adjustments +** in longitude and obliquity due to the changed precession rates. +** These additional functions, namely frame bias and precession +** adjustments, are supported by the SOFA functions iauBi00 and +** iauPr00. +** +** 6) The MHB2000 algorithm also provides "total" nutations, comprising +** the arithmetic sum of the frame bias, precession adjustments, +** luni-solar nutation and planetary nutation. These total +** nutations can be used in combination with an existing IAU 1976 +** precession implementation, such as iauPmat76, to deliver GCRS- +** to-true predictions of sub-mas accuracy at current dates. +** However, there are three shortcomings in the MHB2000 model that +** must be taken into account if more accurate or definitive results +** are required (see Wallace 2002): +** +** (i) The MHB2000 total nutations are simply arithmetic sums, +** yet in reality the various components are successive Euler +** rotations. This slight lack of rigor leads to cross terms +** that exceed 1 mas after a century. The rigorous procedure +** is to form the GCRS-to-true rotation matrix by applying the +** bias, precession and nutation in that order. +** +** (ii) Although the precession adjustments are stated to be with +** respect to Lieske et al. (1977), the MHB2000 model does +** not specify which set of Euler angles are to be used and +** how the adjustments are to be applied. The most literal +** and straightforward procedure is to adopt the 4-rotation +** epsilon_0, psi_A, omega_A, xi_A option, and to add DPSIPR +** to psi_A and DEPSPR to both omega_A and eps_A. +** +** (iii) The MHB2000 model predates the determination by Chapront +** et al. (2002) of a 14.6 mas displacement between the +** J2000.0 mean equinox and the origin of the ICRS frame. It +** should, however, be noted that neglecting this displacement +** when calculating star coordinates does not lead to a +** 14.6 mas change in right ascension, only a small second- +** order distortion in the pattern of the precession-nutation +** effect. +** +** For these reasons, the SOFA functions do not generate the "total +** nutations" directly, though they can of course easily be +** generated by calling iauBi00, iauPr00 and the present function +** and adding the results. +** +** 7) The MHB2000 model contains 41 instances where the same frequency +** appears multiple times, of which 38 are duplicates and three are +** triplicates. To keep the present code close to the original MHB +** algorithm, this small inefficiency has not been corrected. +** +** Called: +** iauFal03 mean anomaly of the Moon +** iauFaf03 mean argument of the latitude of the Moon +** iauFaom03 mean longitude of the Moon's ascending node +** iauFame03 mean longitude of Mercury +** iauFave03 mean longitude of Venus +** iauFae03 mean longitude of Earth +** iauFama03 mean longitude of Mars +** iauFaju03 mean longitude of Jupiter +** iauFasa03 mean longitude of Saturn +** iauFaur03 mean longitude of Uranus +** iauFapa03 general accumulated precession in longitude +** +** References: +** +** Chapront, J., Chapront-Touze, M. & Francou, G. 2002, +** Astron.Astrophys. 387, 700 +** +** Lieske, J.H., Lederle, T., Fricke, W. & Morando, B. 1977, +** Astron.Astrophys. 58, 1-16 +** +** Mathews, P.M., Herring, T.A., Buffet, B.A. 2002, J.Geophys.Res. +** 107, B4. The MHB_2000 code itself was obtained on 9th September +** 2002 from ftp//maia.usno.navy.mil/conv2000/chapter5/IAU2000A. +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +** Wallace, P.T., "Software for Implementing the IAU 2000 +** Resolutions", in IERS Workshop 5.1 (2002) +** +*/ + + + + +void iauNut00b(double date1, double date2, double *dpsi, double *deps) +/* +** - - - - - - - - - - +** i a u N u t 0 0 b +** - - - - - - - - - - +** +** Nutation, IAU 2000B model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsi,deps double nutation, luni-solar + planetary (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The nutation components in longitude and obliquity are in radians +** and with respect to the equinox and ecliptic of date. The +** obliquity at J2000.0 is assumed to be the Lieske et al. (1977) +** value of 84381.448 arcsec. (The errors that result from using +** this function with the IAU 2006 value of 84381.406 arcsec can be +** neglected.) +** +** The nutation model consists only of luni-solar terms, but +** includes also a fixed offset which compensates for certain long- +** period planetary terms (Note 7). +** +** 3) This function is an implementation of the IAU 2000B abridged +** nutation model formally adopted by the IAU General Assembly in +** 2000. The function computes the MHB_2000_SHORT luni-solar +** nutation series (Luzum 2001), but without the associated +** corrections for the precession rate adjustments and the offset +** between the GCRS and J2000.0 mean poles. +** +** 4) The full IAU 2000A (MHB2000) nutation model contains nearly 1400 +** terms. The IAU 2000B model (McCarthy & Luzum 2003) contains only +** 77 terms, plus additional simplifications, yet still delivers +** results of 1 mas accuracy at present epochs. This combination of +** accuracy and size makes the IAU 2000B abridged nutation model +** suitable for most practical applications. +** +** The function delivers a pole accurate to 1 mas from 1900 to 2100 +** (usually better than 1 mas, very occasionally just outside +** 1 mas). The full IAU 2000A model, which is implemented in the +** function iauNut00a (q.v.), delivers considerably greater accuracy +** at current dates; however, to realize this improved accuracy, +** corrections for the essentially unpredictable free-core-nutation +** (FCN) must also be included. +** +** 5) The present function provides classical nutation. The +** MHB_2000_SHORT algorithm, from which it is adapted, deals also +** with (i) the offsets between the GCRS and mean poles and (ii) the +** adjustments in longitude and obliquity due to the changed +** precession rates. These additional functions, namely frame bias +** and precession adjustments, are supported by the SOFA functions +** iauBi00 and iauPr00. +** +** 6) The MHB_2000_SHORT algorithm also provides "total" nutations, +** comprising the arithmetic sum of the frame bias, precession +** adjustments, and nutation (luni-solar + planetary). These total +** nutations can be used in combination with an existing IAU 1976 +** precession implementation, such as iauPmat76, to deliver GCRS- +** to-true predictions of mas accuracy at current epochs. However, +** for symmetry with the iauNut00a function (q.v. for the reasons), +** the SOFA functions do not generate the "total nutations" +** directly. Should they be required, they could of course easily +** be generated by calling iauBi00, iauPr00 and the present function +** and adding the results. +** +** 7) The IAU 2000B model includes "planetary bias" terms that are +** fixed in size but compensate for long-period nutations. The +** amplitudes quoted in McCarthy & Luzum (2003), namely +** Dpsi = -1.5835 mas and Depsilon = +1.6339 mas, are optimized for +** the "total nutations" method described in Note 6. The Luzum +** (2001) values used in this SOFA implementation, namely -0.135 mas +** and +0.388 mas, are optimized for the "rigorous" method, where +** frame bias, precession and nutation are applied separately and in +** that order. During the interval 1995-2050, the SOFA +** implementation delivers a maximum error of 1.001 mas (not +** including FCN). +** +** References: +** +** Lieske, J.H., Lederle, T., Fricke, W., Morando, B., "Expressions +** for the precession quantities based upon the IAU /1976/ system of +** astronomical constants", Astron.Astrophys. 58, 1-2, 1-16. (1977) +** +** Luzum, B., private communication, 2001 (Fortran code +** MHB_2000_SHORT) +** +** McCarthy, D.D. & Luzum, B.J., "An abridged model of the +** precession-nutation of the celestial pole", Cel.Mech.Dyn.Astron. +** 85, 37-49 (2003) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J., Astron.Astrophys. 282, 663-683 (1994) +** +*/ + + + + +void iauNut06a(double date1, double date2, double *dpsi, double *deps) +/* +** - - - - - - - - - - +** i a u N u t 0 6 a +** - - - - - - - - - - +** +** IAU 2000A nutation with adjustments to match the IAU 2006 +** precession. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsi,deps double nutation, luni-solar + planetary (Note 2) +** +** Status: canonical model. +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The nutation components in longitude and obliquity are in radians +** and with respect to the mean equinox and ecliptic of date, +** IAU 2006 precession model (Hilton et al. 2006, Capitaine et al. +** 2005). +** +** 3) The function first computes the IAU 2000A nutation, then applies +** adjustments for (i) the consequences of the change in obliquity +** from the IAU 1980 ecliptic to the IAU 2006 ecliptic and (ii) the +** secular variation in the Earth's dynamical form factor J2. +** +** 4) The present function provides classical nutation, complementing +** the IAU 2000 frame bias and IAU 2006 precession. It delivers a +** pole which is at current epochs accurate to a few tens of +** microarcseconds, apart from the free core nutation. +** +** Called: +** iauNut00a nutation, IAU 2000A +** +** References: +** +** Chapront, J., Chapront-Touze, M. & Francou, G. 2002, +** Astron.Astrophys. 387, 700 +** +** Lieske, J.H., Lederle, T., Fricke, W. & Morando, B. 1977, +** Astron.Astrophys. 58, 1-16 +** +** Mathews, P.M., Herring, T.A., Buffet, B.A. 2002, J.Geophys.Res. +** 107, B4. The MHB_2000 code itself was obtained on 9th September +** 2002 from ftp//maia.usno.navy.mil/conv2000/chapter5/IAU2000A. +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +** Wallace, P.T., "Software for Implementing the IAU 2000 +** Resolutions", in IERS Workshop 5.1 (2002) +** +*/ + + + + +void iauNut80(double date1, double date2, double *dpsi, double *deps) +/* +** - - - - - - - - - +** i a u N u t 8 0 +** - - - - - - - - - +** +** Nutation, IAU 1980 model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsi double nutation in longitude (radians) +** deps double nutation in obliquity (radians) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The nutation components are with respect to the ecliptic of +** date. +** +** Called: +** iauAnpm normalize angle into range +/- pi +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 3.222 (p111). +** +*/ + + + + +void iauNutm80(double date1, double date2, double rmatn[3][3]) +/* +** - - - - - - - - - - +** i a u N u t m 8 0 +** - - - - - - - - - - +** +** Form the matrix of nutation for a given date, IAU 1980 model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TDB date (Note 1) +** +** Returned: +** rmatn double[3][3] nutation matrix +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(true) = rmatn * V(mean), +** where the p-vector V(true) is with respect to the true +** equatorial triad of date and the p-vector V(mean) is with +** respect to the mean equatorial triad of date. +** +** Called: +** iauNut80 nutation, IAU 1980 +** iauObl80 mean obliquity, IAU 1980 +** iauNumat form nutation matrix +** +*/ + + + + +double iauObl06(double date1, double date2) +/* +** - - - - - - - - - +** i a u O b l 0 6 +** - - - - - - - - - +** +** Mean obliquity of the ecliptic, IAU 2006 precession model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double obliquity of the ecliptic (radians, Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The result is the angle between the ecliptic and mean equator of +** date date1+date2. +** +** Reference: +** +** Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351 +** +*/ + + + + +double iauObl80(double date1, double date2) +/* +** - - - - - - - - - +** i a u O b l 8 0 +** - - - - - - - - - +** +** Mean obliquity of the ecliptic, IAU 1980 model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double obliquity of the ecliptic (radians, Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The result is the angle between the ecliptic and mean equator of +** date date1+date2. +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Expression 3.222-1 (p114). +** +*/ + + + + +void iauP06e(double date1, double date2, + double *eps0, double *psia, double *oma, double *bpa, + double *bqa, double *pia, double *bpia, + double *epsa, double *chia, double *za, double *zetaa, + double *thetaa, double *pa, + double *gam, double *phi, double *psi) +/* +** - - - - - - - - +** i a u P 0 6 e +** - - - - - - - - +** +** Precession angles, IAU 2006, equinox based. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical models. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (see Note 2): +** eps0 double epsilon_0 +** psia double psi_A +** oma double omega_A +** bpa double P_A +** bqa double Q_A +** pia double pi_A +** bpia double Pi_A +** epsa double obliquity epsilon_A +** chia double chi_A +** za double z_A +** zetaa double zeta_A +** thetaa double theta_A +** pa double p_A +** gam double F-W angle gamma_J2000 +** phi double F-W angle phi_J2000 +** psi double F-W angle psi_J2000 +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) This function returns the set of equinox based angles for the +** Capitaine et al. "P03" precession theory, adopted by the IAU in +** 2006. The angles are set out in Table 1 of Hilton et al. (2006): +** +** eps0 epsilon_0 obliquity at J2000.0 +** psia psi_A luni-solar precession +** oma omega_A inclination of equator wrt J2000.0 ecliptic +** bpa P_A ecliptic pole x, J2000.0 ecliptic triad +** bqa Q_A ecliptic pole -y, J2000.0 ecliptic triad +** pia pi_A angle between moving and J2000.0 ecliptics +** bpia Pi_A longitude of ascending node of the ecliptic +** epsa epsilon_A obliquity of the ecliptic +** chia chi_A planetary precession +** za z_A equatorial precession: -3rd 323 Euler angle +** zetaa zeta_A equatorial precession: -1st 323 Euler angle +** thetaa theta_A equatorial precession: 2nd 323 Euler angle +** pa p_A general precession +** gam gamma_J2000 J2000.0 RA difference of ecliptic poles +** phi phi_J2000 J2000.0 codeclination of ecliptic pole +** psi psi_J2000 longitude difference of equator poles, J2000.0 +** +** The returned values are all radians. +** +** 3) Hilton et al. (2006) Table 1 also contains angles that depend on +** models distinct from the P03 precession theory itself, namely the +** IAU 2000A frame bias and nutation. The quoted polynomials are +** used in other SOFA functions: +** +** . iauXy06 contains the polynomial parts of the X and Y series. +** +** . iauS06 contains the polynomial part of the s+XY/2 series. +** +** . iauPfw06 implements the series for the Fukushima-Williams +** angles that are with respect to the GCRS pole (i.e. the variants +** that include frame bias). +** +** 4) The IAU resolution stipulated that the choice of parameterization +** was left to the user, and so an IAU compliant precession +** implementation can be constructed using various combinations of +** the angles returned by the present function. +** +** 5) The parameterization used by SOFA is the version of the Fukushima- +** Williams angles that refers directly to the GCRS pole. These +** angles may be calculated by calling the function iauPfw06. SOFA +** also supports the direct computation of the CIP GCRS X,Y by +** series, available by calling iauXy06. +** +** 6) The agreement between the different parameterizations is at the +** 1 microarcsecond level in the present era. +** +** 7) When constructing a precession formulation that refers to the GCRS +** pole rather than the dynamical pole, it may (depending on the +** choice of angles) be necessary to introduce the frame bias +** explicitly. +** +** 8) It is permissible to re-use the same variable in the returned +** arguments. The quantities are stored in the stated order. +** +** Reference: +** +** Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351 +** +** Called: +** iauObl06 mean obliquity, IAU 2006 +** +*/ + + + + +void iauP2pv(double p[3], double pv[2][3]) +/* +** - - - - - - - - +** i a u P 2 p v +** - - - - - - - - +** +** Extend a p-vector to a pv-vector by appending a zero velocity. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** p double[3] p-vector +** +** Returned: +** pv double[2][3] pv-vector +** +** Called: +** iauCp copy p-vector +** iauZp zero p-vector +** +*/ + + + + +void iauP2s(double p[3], double *theta, double *phi, double *r) +/* +** - - - - - - - +** i a u P 2 s +** - - - - - - - +** +** P-vector to spherical polar coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** p double[3] p-vector +** +** Returned: +** theta double longitude angle (radians) +** phi double latitude angle (radians) +** r double radial distance +** +** Notes: +** +** 1) If P is null, zero theta, phi and r are returned. +** +** 2) At either pole, zero theta is returned. +** +** Called: +** iauC2s p-vector to spherical +** iauPm modulus of p-vector +** +*/ + + + + +double iauPap(double a[3], double b[3]) +/* +** - - - - - - - +** i a u P a p +** - - - - - - - +** +** Position-angle from two p-vectors. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3] direction of reference point +** b double[3] direction of point whose PA is required +** +** Returned (function value): +** double position angle of b with respect to a (radians) +** +** Notes: +** +** 1) The result is the position angle, in radians, of direction b with +** respect to direction a. It is in the range -pi to +pi. The +** sense is such that if b is a small distance "north" of a the +** position angle is approximately zero, and if b is a small +** distance "east" of a the position angle is approximately +pi/2. +** +** 2) The vectors a and b need not be of unit length. +** +** 3) Zero is returned if the two directions are the same or if either +** vector is null. +** +** 4) If vector a is at a pole, the result is ill-defined. +** +** Called: +** iauPn decompose p-vector into modulus and direction +** iauPm modulus of p-vector +** iauPxp vector product of two p-vectors +** iauPmp p-vector minus p-vector +** iauPdp scalar product of two p-vectors +** +*/ + + + + +double iauPas(double al, double ap, double bl, double bp) +/* +** - - - - - - - +** i a u P a s +** - - - - - - - +** +** Position-angle from spherical coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** al double longitude of point A (e.g. RA) in radians +** ap double latitude of point A (e.g. Dec) in radians +** bl double longitude of point B +** bp double latitude of point B +** +** Returned (function value): +** double position angle of B with respect to A +** +** Notes: +** +** 1) The result is the bearing (position angle), in radians, of point +** B with respect to point A. It is in the range -pi to +pi. The +** sense is such that if B is a small distance "east" of point A, +** the bearing is approximately +pi/2. +** +** 2) Zero is returned if the two points are coincident. +** +*/ + + + + +void iauPb06(double date1, double date2, + double *bzeta, double *bz, double *btheta) +/* +** - - - - - - - - +** i a u P b 0 6 +** - - - - - - - - +** +** This function forms three Euler angles which implement general +** precession from epoch J2000.0, using the IAU 2006 model. Frame +** bias (the offset between ICRS and mean J2000.0) is included. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** bzeta double 1st rotation: radians cw around z +** bz double 3rd rotation: radians cw around z +** btheta double 2nd rotation: radians ccw around y +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The traditional accumulated precession angles zeta_A, z_A, +** theta_A cannot be obtained in the usual way, namely through +** polynomial expressions, because of the frame bias. The latter +** means that two of the angles undergo rapid changes near this +** date. They are instead the results of decomposing the +** precession-bias matrix obtained by using the Fukushima-Williams +** method, which does not suffer from the problem. The +** decomposition returns values which can be used in the +** conventional formulation and which include frame bias. +** +** 3) The three angles are returned in the conventional order, which +** is not the same as the order of the corresponding Euler +** rotations. The precession-bias matrix is +** R_3(-z) x R_2(+theta) x R_3(-zeta). +** +** 4) Should zeta_A, z_A, theta_A angles be required that do not +** contain frame bias, they are available by calling the SOFA +** function iauP06e. +** +** Called: +** iauPmat06 PB matrix, IAU 2006 +** iauRz rotate around Z-axis +** +*/ + + + + +double iauPdp(double a[3], double b[3]) +/* +** - - - - - - - +** i a u P d p +** - - - - - - - +** +** p-vector inner (=scalar=dot) product. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3] first p-vector +** b double[3] second p-vector +** +** Returned (function value): +** double a . b +** +*/ + + + + +void iauPfw06(double date1, double date2, + double *gamb, double *phib, double *psib, double *epsa) +/* +** - - - - - - - - - +** i a u P f w 0 6 +** - - - - - - - - - +** +** Precession angles, IAU 2006 (Fukushima-Williams 4-angle formulation). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** gamb double F-W angle gamma_bar (radians) +** phib double F-W angle phi_bar (radians) +** psib double F-W angle psi_bar (radians) +** epsa double F-W angle epsilon_A (radians) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) Naming the following points: +** +** e = J2000.0 ecliptic pole, +** p = GCRS pole, +** E = mean ecliptic pole of date, +** and P = mean pole of date, +** +** the four Fukushima-Williams angles are as follows: +** +** gamb = gamma_bar = epE +** phib = phi_bar = pE +** psib = psi_bar = pEP +** epsa = epsilon_A = EP +** +** 3) The matrix representing the combined effects of frame bias and +** precession is: +** +** PxB = R_1(-epsa).R_3(-psib).R_1(phib).R_3(gamb) +** +** 4) The matrix representing the combined effects of frame bias, +** precession and nutation is simply: +** +** NxPxB = R_1(-epsa-dE).R_3(-psib-dP).R_1(phib).R_3(gamb) +** +** where dP and dE are the nutation components with respect to the +** ecliptic of date. +** +** Reference: +** +** Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351 +** +** Called: +** iauObl06 mean obliquity, IAU 2006 +** +*/ + + + + +int iauPlan94(double date1, double date2, int np, double pv[2][3]) +/* +** - - - - - - - - - - +** i a u P l a n 9 4 +** - - - - - - - - - - +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Approximate heliocentric position and velocity of a nominated major +** planet: Mercury, Venus, EMB, Mars, Jupiter, Saturn, Uranus or +** Neptune (but not the Earth itself). +** +** Given: +** date1 double TDB date part A (Note 1) +** date2 double TDB date part B (Note 1) +** np int planet (1=Mercury, 2=Venus, 3=EMB, 4=Mars, +** 5=Jupiter, 6=Saturn, 7=Uranus, 8=Neptune) +** +** Returned (argument): +** pv double[2][3] planet p,v (heliocentric, J2000.0, AU,AU/d) +** +** Returned (function value): +** int status: -1 = illegal NP (outside 1-8) +** 0 = OK +** +1 = warning: year outside 1000-3000 +** +2 = warning: failed to converge +** +** Notes: +** +** 1) The date date1+date2 is in the TDB time scale (in practice TT can +** be used) and is a Julian Date, apportioned in any convenient way +** between the two arguments. For example, JD(TDB)=2450123.7 could +** be expressed in any of these ways, among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. The limited +** accuracy of the present algorithm is such that any of the methods +** is satisfactory. +** +** 2) If an np value outside the range 1-8 is supplied, an error status +** (function value -1) is returned and the pv vector set to zeroes. +** +** 3) For np=3 the result is for the Earth-Moon Barycenter. To obtain +** the heliocentric position and velocity of the Earth, use instead +** the SOFA function iauEpv00. +** +** 4) On successful return, the array pv contains the following: +** +** pv[0][0] x } +** pv[0][1] y } heliocentric position, AU +** pv[0][2] z } +** +** pv[1][0] xdot } +** pv[1][1] ydot } heliocentric velocity, AU/d +** pv[1][2] zdot } +** +** The reference frame is equatorial and is with respect to the +** mean equator and equinox of epoch J2000.0. +** +** 5) The algorithm is due to J.L. Simon, P. Bretagnon, J. Chapront, +** M. Chapront-Touze, G. Francou and J. Laskar (Bureau des +** Longitudes, Paris, France). From comparisons with JPL +** ephemeris DE102, they quote the following maximum errors +** over the interval 1800-2050: +** +** L (arcsec) B (arcsec) R (km) +** +** Mercury 4 1 300 +** Venus 5 1 800 +** EMB 6 1 1000 +** Mars 17 1 7700 +** Jupiter 71 5 76000 +** Saturn 81 13 267000 +** Uranus 86 7 712000 +** Neptune 11 1 253000 +** +** Over the interval 1000-3000, they report that the accuracy is no +** worse than 1.5 times that over 1800-2050. Outside 1000-3000 the +** accuracy declines. +** +** Comparisons of the present function with the JPL DE200 ephemeris +** give the following RMS errors over the interval 1960-2025: +** +** position (km) velocity (m/s) +** +** Mercury 334 0.437 +** Venus 1060 0.855 +** EMB 2010 0.815 +** Mars 7690 1.98 +** Jupiter 71700 7.70 +** Saturn 199000 19.4 +** Uranus 564000 16.4 +** Neptune 158000 14.4 +** +** Comparisons against DE200 over the interval 1800-2100 gave the +** following maximum absolute differences. (The results using +** DE406 were essentially the same.) +** +** L (arcsec) B (arcsec) R (km) Rdot (m/s) +** +** Mercury 7 1 500 0.7 +** Venus 7 1 1100 0.9 +** EMB 9 1 1300 1.0 +** Mars 26 1 9000 2.5 +** Jupiter 78 6 82000 8.2 +** Saturn 87 14 263000 24.6 +** Uranus 86 7 661000 27.4 +** Neptune 11 2 248000 21.4 +** +** 6) The present SOFA re-implementation of the original Simon et al. +** Fortran code differs from the original in the following respects: +** +** * C instead of Fortran. +** +** * The date is supplied in two parts. +** +** * The result is returned only in equatorial Cartesian form; +** the ecliptic longitude, latitude and radius vector are not +** returned. +** +** * The result is in the J2000.0 equatorial frame, not ecliptic. +** +** * More is done in-line: there are fewer calls to subroutines. +** +** * Different error/warning status values are used. +** +** * A different Kepler's-equation-solver is used (avoiding +** use of double precision complex). +** +** * Polynomials in t are nested to minimize rounding errors. +** +** * Explicit double constants are used to avoid mixed-mode +** expressions. +** +** None of the above changes affects the result significantly. +** +** 7) The returned status indicates the most serious condition +** encountered during execution of the function. Illegal np is +** considered the most serious, overriding failure to converge, +** which in turn takes precedence over the remote date warning. +** +** Called: +** iauAnp normalize angle into range 0 to 2pi +** +** Reference: Simon, J.L, Bretagnon, P., Chapront, J., +** Chapront-Touze, M., Francou, G., and Laskar, J., +** Astron. Astrophys. 282, 663 (1994). +** +*/ + + + + +double iauPm(double p[3]) +/* +** - - - - - - +** i a u P m +** - - - - - - +** +** Modulus of p-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** p double[3] p-vector +** +** Returned (function value): +** double modulus +** +*/ + + + + +void iauPmat00(double date1, double date2, double rbp[3][3]) +/* +** - - - - - - - - - - +** i a u P m a t 0 0 +** - - - - - - - - - - +** +** Precession matrix (including frame bias) from GCRS to a specified +** date, IAU 2000 model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rbp double[3][3] bias-precession matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(date) = rbp * V(GCRS), where +** the p-vector V(GCRS) is with respect to the Geocentric Celestial +** Reference System (IAU, 2000) and the p-vector V(date) is with +** respect to the mean equatorial triad of the given date. +** +** Called: +** iauBp00 frame bias and precession matrices, IAU 2000 +** +** Reference: +** +** IAU: Trans. International Astronomical Union, Vol. XXIVB; Proc. +** 24th General Assembly, Manchester, UK. Resolutions B1.3, B1.6. +** (2000) +** +*/ + + + + +void iauPmat06(double date1, double date2, double rbp[3][3]) +/* +** - - - - - - - - - - +** i a u P m a t 0 6 +** - - - - - - - - - - +** +** Precession matrix (including frame bias) from GCRS to a specified +** date, IAU 2006 model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rbp double[3][3] bias-precession matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(date) = rbp * V(GCRS), where +** the p-vector V(GCRS) is with respect to the Geocentric Celestial +** Reference System (IAU, 2000) and the p-vector V(date) is with +** respect to the mean equatorial triad of the given date. +** +** Called: +** iauPfw06 bias-precession F-W angles, IAU 2006 +** iauFw2m F-W angles to r-matrix +** +** References: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +*/ + + + + +void iauPmat76(double date1, double date2, double rmatp[3][3]) +/* +** - - - - - - - - - - +** i a u P m a t 7 6 +** - - - - - - - - - - +** +** Precession matrix from J2000.0 to a specified date, IAU 1976 model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double ending date, TT (Note 1) +** +** Returned: +** rmatp double[3][3] precession matrix, J2000.0 -> date1+date2 +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(date) = RMATP * V(J2000), +** where the p-vector V(J2000) is with respect to the mean +** equatorial triad of epoch J2000.0 and the p-vector V(date) +** is with respect to the mean equatorial triad of the given +** date. +** +** 3) Though the matrix method itself is rigorous, the precession +** angles are expressed through canonical polynomials which are +** valid only for a limited time span. In addition, the IAU 1976 +** precession rate is known to be imperfect. The absolute accuracy +** of the present formulation is better than 0.1 arcsec from +** 1960AD to 2040AD, better than 1 arcsec from 1640AD to 2360AD, +** and remains below 3 arcsec for the whole of the period +** 500BC to 3000AD. The errors exceed 10 arcsec outside the +** range 1200BC to 3900AD, exceed 100 arcsec outside 4200BC to +** 5600AD and exceed 1000 arcsec outside 6800BC to 8200AD. +** +** Called: +** iauPrec76 accumulated precession angles, IAU 1976 +** iauIr initialize r-matrix to identity +** iauRz rotate around Z-axis +** iauRy rotate around Y-axis +** iauCr copy r-matrix +** +** References: +** +** Lieske, J.H., 1979, Astron.Astrophys. 73, 282. +** equations (6) & (7), p283. +** +** Kaplan,G.H., 1981. USNO circular no. 163, pA2. +** +*/ + + + + +void iauPmp(double a[3], double b[3], double amb[3]) +/* +** - - - - - - - +** i a u P m p +** - - - - - - - +** +** P-vector subtraction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3] first p-vector +** b double[3] second p-vector +** +** Returned: +** amb double[3] a - b +** +** Note: +** It is permissible to re-use the same array for any of the +** arguments. +** +*/ + + + + +void iauPmpx(double rc, double dc, double pr, double pd, + double px, double rv, double pmt, double pob[3], + double pco[3]) +/* +** - - - - - - - - +** i a u P m p x +** - - - - - - - - +** +** Proper motion and parallax. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rc,dc double ICRS RA,Dec at catalog epoch (radians) +** pr double RA proper motion (radians/year; Note 1) +** pd double Dec proper motion (radians/year) +** px double parallax (arcsec) +** rv double radial velocity (km/s, +ve if receding) +** pmt double proper motion time interval (SSB, Julian years) +** pob double[3] SSB to observer vector (au) +** +** Returned: +** pco double[3] coordinate direction (BCRS unit vector) +** +** Notes: +** +** 1) The proper motion in RA is dRA/dt rather than cos(Dec)*dRA/dt. +** +** 2) The proper motion time interval is for when the starlight +** reaches the solar system barycenter. +** +** 3) To avoid the need for iteration, the Roemer effect (i.e. the +** small annual modulation of the proper motion coming from the +** changing light time) is applied approximately, using the +** direction of the star at the catalog epoch. +** +** References: +** +** 1984 Astronomical Almanac, pp B39-B41. +** +** Urban, S. & Seidelmann, P. K. (eds), Explanatory Supplement to +** the Astronomical Almanac, 3rd ed., University Science Books +** (2013), Section 7.2. +** +** Called: +** iauPdp scalar product of two p-vectors +** iauPn decompose p-vector into modulus and direction +** +*/ + + + + +int iauPmsafe(double ra1, double dec1, double pmr1, double pmd1, + double px1, double rv1, + double ep1a, double ep1b, double ep2a, double ep2b, + double *ra2, double *dec2, double *pmr2, double *pmd2, + double *px2, double *rv2) +/* +** - - - - - - - - - - +** i a u P m s a f e +** - - - - - - - - - - +** +** Star proper motion: update star catalog data for space motion, with +** special handling to handle the zero parallax case. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** ra1 double right ascension (radians), before +** dec1 double declination (radians), before +** pmr1 double RA proper motion (radians/year), before +** pmd1 double Dec proper motion (radians/year), before +** px1 double parallax (arcseconds), before +** rv1 double radial velocity (km/s, +ve = receding), before +** ep1a double "before" epoch, part A (Note 1) +** ep1b double "before" epoch, part B (Note 1) +** ep2a double "after" epoch, part A (Note 1) +** ep2b double "after" epoch, part B (Note 1) +** +** Returned: +** ra2 double right ascension (radians), after +** dec2 double declination (radians), after +** pmr2 double RA proper motion (radians/year), after +** pmd2 double Dec proper motion (radians/year), after +** px2 double parallax (arcseconds), after +** rv2 double radial velocity (km/s, +ve = receding), after +** +** Returned (function value): +** int status: +** -1 = system error (should not occur) +** 0 = no warnings or errors +** 1 = distance overridden (Note 6) +** 2 = excessive velocity (Note 7) +** 4 = solution didn't converge (Note 8) +** else = binary logical OR of the above warnings +** +** Notes: +** +** 1) The starting and ending TDB epochs ep1a+ep1b and ep2a+ep2b are +** Julian Dates, apportioned in any convenient way between the two +** parts (A and B). For example, JD(TDB)=2450123.7 could be +** expressed in any of these ways, among others: +** +** epNa epNb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. +** +** 2) In accordance with normal star-catalog conventions, the object's +** right ascension and declination are freed from the effects of +** secular aberration. The frame, which is aligned to the catalog +** equator and equinox, is Lorentzian and centered on the SSB. +** +** The proper motions are the rate of change of the right ascension +** and declination at the catalog epoch and are in radians per TDB +** Julian year. +** +** The parallax and radial velocity are in the same frame. +** +** 3) Care is needed with units. The star coordinates are in radians +** and the proper motions in radians per Julian year, but the +** parallax is in arcseconds. +** +** 4) The RA proper motion is in terms of coordinate angle, not true +** angle. If the catalog uses arcseconds for both RA and Dec proper +** motions, the RA proper motion will need to be divided by cos(Dec) +** before use. +** +** 5) Straight-line motion at constant speed, in the inertial frame, is +** assumed. +** +** 6) An extremely small (or zero or negative) parallax is overridden +** to ensure that the object is at a finite but very large distance, +** but not so large that the proper motion is equivalent to a large +** but safe speed (about 0.1c using the chosen constant). A warning +** status of 1 is added to the status if this action has been taken. +** +** 7) If the space velocity is a significant fraction of c (see the +** constant VMAX in the function iauStarpv), it is arbitrarily set +** to zero. When this action occurs, 2 is added to the status. +** +** 8) The relativistic adjustment carried out in the iauStarpv function +** involves an iterative calculation. If the process fails to +** converge within a set number of iterations, 4 is added to the +** status. +** +** Called: +** iauSeps angle between two points +** iauStarpm update star catalog data for space motion +** +*/ + + + + +void iauPn(double p[3], double *r, double u[3]) +/* +** - - - - - - +** i a u P n +** - - - - - - +** +** Convert a p-vector into modulus and unit vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** p double[3] p-vector +** +** Returned: +** r double modulus +** u double[3] unit vector +** +** Notes: +** +** 1) If p is null, the result is null. Otherwise the result is a unit +** vector. +** +** 2) It is permissible to re-use the same array for any of the +** arguments. +** +** Called: +** iauPm modulus of p-vector +** iauZp zero p-vector +** iauSxp multiply p-vector by scalar +** +*/ + + + + +void iauPn00(double date1, double date2, double dpsi, double deps, + double *epsa, + double rb[3][3], double rp[3][3], double rbp[3][3], + double rn[3][3], double rbpn[3][3]) +/* +** - - - - - - - - +** i a u P n 0 0 +** - - - - - - - - +** +** Precession-nutation, IAU 2000 model: a multi-purpose function, +** supporting classical (equinox-based) use directly and CIO-based +** use indirectly. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** dpsi,deps double nutation (Note 2) +** +** Returned: +** epsa double mean obliquity (Note 3) +** rb double[3][3] frame bias matrix (Note 4) +** rp double[3][3] precession matrix (Note 5) +** rbp double[3][3] bias-precession matrix (Note 6) +** rn double[3][3] nutation matrix (Note 7) +** rbpn double[3][3] GCRS-to-true matrix (Note 8) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The caller is responsible for providing the nutation components; +** they are in longitude and obliquity, in radians and are with +** respect to the equinox and ecliptic of date. For high-accuracy +** applications, free core nutation should be included as well as +** any other relevant corrections to the position of the CIP. +** +** 3) The returned mean obliquity is consistent with the IAU 2000 +** precession-nutation models. +** +** 4) The matrix rb transforms vectors from GCRS to J2000.0 mean +** equator and equinox by applying frame bias. +** +** 5) The matrix rp transforms vectors from J2000.0 mean equator and +** equinox to mean equator and equinox of date by applying +** precession. +** +** 6) The matrix rbp transforms vectors from GCRS to mean equator and +** equinox of date by applying frame bias then precession. It is +** the product rp x rb. +** +** 7) The matrix rn transforms vectors from mean equator and equinox of +** date to true equator and equinox of date by applying the nutation +** (luni-solar + planetary). +** +** 8) The matrix rbpn transforms vectors from GCRS to true equator and +** equinox of date. It is the product rn x rbp, applying frame +** bias, precession and nutation in that order. +** +** 9) It is permissible to re-use the same array in the returned +** arguments. The arrays are filled in the order given. +** +** Called: +** iauPr00 IAU 2000 precession adjustments +** iauObl80 mean obliquity, IAU 1980 +** iauBp00 frame bias and precession matrices, IAU 2000 +** iauCr copy r-matrix +** iauNumat form nutation matrix +** iauRxr product of two r-matrices +** +** Reference: +** +** Capitaine, N., Chapront, J., Lambert, S. and Wallace, P., +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +*/ + + + + +void iauPn00a(double date1, double date2, + double *dpsi, double *deps, double *epsa, + double rb[3][3], double rp[3][3], double rbp[3][3], + double rn[3][3], double rbpn[3][3]) +/* +** - - - - - - - - - +** i a u P n 0 0 a +** - - - - - - - - - +** +** Precession-nutation, IAU 2000A model: a multi-purpose function, +** supporting classical (equinox-based) use directly and CIO-based +** use indirectly. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsi,deps double nutation (Note 2) +** epsa double mean obliquity (Note 3) +** rb double[3][3] frame bias matrix (Note 4) +** rp double[3][3] precession matrix (Note 5) +** rbp double[3][3] bias-precession matrix (Note 6) +** rn double[3][3] nutation matrix (Note 7) +** rbpn double[3][3] GCRS-to-true matrix (Notes 8,9) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The nutation components (luni-solar + planetary, IAU 2000A) in +** longitude and obliquity are in radians and with respect to the +** equinox and ecliptic of date. Free core nutation is omitted; +** for the utmost accuracy, use the iauPn00 function, where the +** nutation components are caller-specified. For faster but +** slightly less accurate results, use the iauPn00b function. +** +** 3) The mean obliquity is consistent with the IAU 2000 precession. +** +** 4) The matrix rb transforms vectors from GCRS to J2000.0 mean +** equator and equinox by applying frame bias. +** +** 5) The matrix rp transforms vectors from J2000.0 mean equator and +** equinox to mean equator and equinox of date by applying +** precession. +** +** 6) The matrix rbp transforms vectors from GCRS to mean equator and +** equinox of date by applying frame bias then precession. It is +** the product rp x rb. +** +** 7) The matrix rn transforms vectors from mean equator and equinox +** of date to true equator and equinox of date by applying the +** nutation (luni-solar + planetary). +** +** 8) The matrix rbpn transforms vectors from GCRS to true equator and +** equinox of date. It is the product rn x rbp, applying frame +** bias, precession and nutation in that order. +** +** 9) The X,Y,Z coordinates of the IAU 2000A Celestial Intermediate +** Pole are elements (3,1-3) of the GCRS-to-true matrix, +** i.e. rbpn[2][0-2]. +** +** 10) It is permissible to re-use the same array in the returned +** arguments. The arrays are filled in the order given. +** +** Called: +** iauNut00a nutation, IAU 2000A +** iauPn00 bias/precession/nutation results, IAU 2000 +** +** Reference: +** +** Capitaine, N., Chapront, J., Lambert, S. and Wallace, P., +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +*/ + + + + +void iauPn00b(double date1, double date2, + double *dpsi, double *deps, double *epsa, + double rb[3][3], double rp[3][3], double rbp[3][3], + double rn[3][3], double rbpn[3][3]) +/* +** - - - - - - - - - +** i a u P n 0 0 b +** - - - - - - - - - +** +** Precession-nutation, IAU 2000B model: a multi-purpose function, +** supporting classical (equinox-based) use directly and CIO-based +** use indirectly. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsi,deps double nutation (Note 2) +** epsa double mean obliquity (Note 3) +** rb double[3][3] frame bias matrix (Note 4) +** rp double[3][3] precession matrix (Note 5) +** rbp double[3][3] bias-precession matrix (Note 6) +** rn double[3][3] nutation matrix (Note 7) +** rbpn double[3][3] GCRS-to-true matrix (Notes 8,9) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The nutation components (luni-solar + planetary, IAU 2000B) in +** longitude and obliquity are in radians and with respect to the +** equinox and ecliptic of date. For more accurate results, but +** at the cost of increased computation, use the iauPn00a function. +** For the utmost accuracy, use the iauPn00 function, where the +** nutation components are caller-specified. +** +** 3) The mean obliquity is consistent with the IAU 2000 precession. +** +** 4) The matrix rb transforms vectors from GCRS to J2000.0 mean +** equator and equinox by applying frame bias. +** +** 5) The matrix rp transforms vectors from J2000.0 mean equator and +** equinox to mean equator and equinox of date by applying +** precession. +** +** 6) The matrix rbp transforms vectors from GCRS to mean equator and +** equinox of date by applying frame bias then precession. It is +** the product rp x rb. +** +** 7) The matrix rn transforms vectors from mean equator and equinox +** of date to true equator and equinox of date by applying the +** nutation (luni-solar + planetary). +** +** 8) The matrix rbpn transforms vectors from GCRS to true equator and +** equinox of date. It is the product rn x rbp, applying frame +** bias, precession and nutation in that order. +** +** 9) The X,Y,Z coordinates of the IAU 2000B Celestial Intermediate +** Pole are elements (3,1-3) of the GCRS-to-true matrix, +** i.e. rbpn[2][0-2]. +** +** 10) It is permissible to re-use the same array in the returned +** arguments. The arrays are filled in the stated order. +** +** Called: +** iauNut00b nutation, IAU 2000B +** iauPn00 bias/precession/nutation results, IAU 2000 +** +** Reference: +** +** Capitaine, N., Chapront, J., Lambert, S. and Wallace, P., +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003). +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +*/ + + + + +void iauPn06(double date1, double date2, double dpsi, double deps, + double *epsa, + double rb[3][3], double rp[3][3], double rbp[3][3], + double rn[3][3], double rbpn[3][3]) +/* +** - - - - - - - - +** i a u P n 0 6 +** - - - - - - - - +** +** Precession-nutation, IAU 2006 model: a multi-purpose function, +** supporting classical (equinox-based) use directly and CIO-based use +** indirectly. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** dpsi,deps double nutation (Note 2) +** +** Returned: +** epsa double mean obliquity (Note 3) +** rb double[3][3] frame bias matrix (Note 4) +** rp double[3][3] precession matrix (Note 5) +** rbp double[3][3] bias-precession matrix (Note 6) +** rn double[3][3] nutation matrix (Note 7) +** rbpn double[3][3] GCRS-to-true matrix (Note 8) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The caller is responsible for providing the nutation components; +** they are in longitude and obliquity, in radians and are with +** respect to the equinox and ecliptic of date. For high-accuracy +** applications, free core nutation should be included as well as +** any other relevant corrections to the position of the CIP. +** +** 3) The returned mean obliquity is consistent with the IAU 2006 +** precession. +** +** 4) The matrix rb transforms vectors from GCRS to J2000.0 mean +** equator and equinox by applying frame bias. +** +** 5) The matrix rp transforms vectors from J2000.0 mean equator and +** equinox to mean equator and equinox of date by applying +** precession. +** +** 6) The matrix rbp transforms vectors from GCRS to mean equator and +** equinox of date by applying frame bias then precession. It is +** the product rp x rb. +** +** 7) The matrix rn transforms vectors from mean equator and equinox +** of date to true equator and equinox of date by applying the +** nutation (luni-solar + planetary). +** +** 8) The matrix rbpn transforms vectors from GCRS to true equator and +** equinox of date. It is the product rn x rbp, applying frame +** bias, precession and nutation in that order. +** +** 9) The X,Y,Z coordinates of the Celestial Intermediate Pole are +** elements (3,1-3) of the GCRS-to-true matrix, i.e. rbpn[2][0-2]. +** +** 10) It is permissible to re-use the same array in the returned +** arguments. The arrays are filled in the stated order. +** +** Called: +** iauPfw06 bias-precession F-W angles, IAU 2006 +** iauFw2m F-W angles to r-matrix +** iauCr copy r-matrix +** iauTr transpose r-matrix +** iauRxr product of two r-matrices +** +** References: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +*/ + + + + +void iauPn06a(double date1, double date2, + double *dpsi, double *deps, double *epsa, + double rb[3][3], double rp[3][3], double rbp[3][3], + double rn[3][3], double rbpn[3][3]) +/* +** - - - - - - - - - +** i a u P n 0 6 a +** - - - - - - - - - +** +** Precession-nutation, IAU 2006/2000A models: a multi-purpose function, +** supporting classical (equinox-based) use directly and CIO-based use +** indirectly. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsi,deps double nutation (Note 2) +** epsa double mean obliquity (Note 3) +** rb double[3][3] frame bias matrix (Note 4) +** rp double[3][3] precession matrix (Note 5) +** rbp double[3][3] bias-precession matrix (Note 6) +** rn double[3][3] nutation matrix (Note 7) +** rbpn double[3][3] GCRS-to-true matrix (Notes 8,9) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The nutation components (luni-solar + planetary, IAU 2000A) in +** longitude and obliquity are in radians and with respect to the +** equinox and ecliptic of date. Free core nutation is omitted; +** for the utmost accuracy, use the iauPn06 function, where the +** nutation components are caller-specified. +** +** 3) The mean obliquity is consistent with the IAU 2006 precession. +** +** 4) The matrix rb transforms vectors from GCRS to mean J2000.0 by +** applying frame bias. +** +** 5) The matrix rp transforms vectors from mean J2000.0 to mean of +** date by applying precession. +** +** 6) The matrix rbp transforms vectors from GCRS to mean of date by +** applying frame bias then precession. It is the product rp x rb. +** +** 7) The matrix rn transforms vectors from mean of date to true of +** date by applying the nutation (luni-solar + planetary). +** +** 8) The matrix rbpn transforms vectors from GCRS to true of date +** (CIP/equinox). It is the product rn x rbp, applying frame bias, +** precession and nutation in that order. +** +** 9) The X,Y,Z coordinates of the IAU 2006/2000A Celestial +** Intermediate Pole are elements (3,1-3) of the GCRS-to-true +** matrix, i.e. rbpn[2][0-2]. +** +** 10) It is permissible to re-use the same array in the returned +** arguments. The arrays are filled in the stated order. +** +** Called: +** iauNut06a nutation, IAU 2006/2000A +** iauPn06 bias/precession/nutation results, IAU 2006 +** +** Reference: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +*/ + + + + +void iauPnm00a(double date1, double date2, double rbpn[3][3]) +/* +** - - - - - - - - - - +** i a u P n m 0 0 a +** - - - - - - - - - - +** +** Form the matrix of precession-nutation for a given date (including +** frame bias), equinox-based, IAU 2000A model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rbpn double[3][3] classical NPB matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(date) = rbpn * V(GCRS), where +** the p-vector V(date) is with respect to the true equatorial triad +** of date date1+date2 and the p-vector V(GCRS) is with respect to +** the Geocentric Celestial Reference System (IAU, 2000). +** +** 3) A faster, but slightly less accurate result (about 1 mas), can be +** obtained by using instead the iauPnm00b function. +** +** Called: +** iauPn00a bias/precession/nutation, IAU 2000A +** +** Reference: +** +** IAU: Trans. International Astronomical Union, Vol. XXIVB; Proc. +** 24th General Assembly, Manchester, UK. Resolutions B1.3, B1.6. +** (2000) +** +*/ + + + + +void iauPnm00b(double date1, double date2, double rbpn[3][3]) +/* +** - - - - - - - - - - +** i a u P n m 0 0 b +** - - - - - - - - - - +** +** Form the matrix of precession-nutation for a given date (including +** frame bias), equinox-based, IAU 2000B model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rbpn double[3][3] bias-precession-nutation matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(date) = rbpn * V(GCRS), where +** the p-vector V(date) is with respect to the true equatorial triad +** of date date1+date2 and the p-vector V(GCRS) is with respect to +** the Geocentric Celestial Reference System (IAU, 2000). +** +** 3) The present function is faster, but slightly less accurate (about +** 1 mas), than the iauPnm00a function. +** +** Called: +** iauPn00b bias/precession/nutation, IAU 2000B +** +** Reference: +** +** IAU: Trans. International Astronomical Union, Vol. XXIVB; Proc. +** 24th General Assembly, Manchester, UK. Resolutions B1.3, B1.6. +** (2000) +** +*/ + + + + +void iauPnm06a(double date1, double date2, double rnpb[3][3]) +/* +** - - - - - - - - - - +** i a u P n m 0 6 a +** - - - - - - - - - - +** +** Form the matrix of precession-nutation for a given date (including +** frame bias), IAU 2006 precession and IAU 2000A nutation models. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rnpb double[3][3] bias-precession-nutation matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(date) = rnpb * V(GCRS), where +** the p-vector V(date) is with respect to the true equatorial triad +** of date date1+date2 and the p-vector V(GCRS) is with respect to +** the Geocentric Celestial Reference System (IAU, 2000). +** +** Called: +** iauPfw06 bias-precession F-W angles, IAU 2006 +** iauNut06a nutation, IAU 2006/2000A +** iauFw2m F-W angles to r-matrix +** +** Reference: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855. +** +*/ + + + + +void iauPnm80(double date1, double date2, double rmatpn[3][3]) +/* +** - - - - - - - - - +** i a u P n m 8 0 +** - - - - - - - - - +** +** Form the matrix of precession/nutation for a given date, IAU 1976 +** precession model, IAU 1980 nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TDB date (Note 1) +** +** Returned: +** rmatpn double[3][3] combined precession/nutation matrix +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(date) = rmatpn * V(J2000), +** where the p-vector V(date) is with respect to the true equatorial +** triad of date date1+date2 and the p-vector V(J2000) is with +** respect to the mean equatorial triad of epoch J2000.0. +** +** Called: +** iauPmat76 precession matrix, IAU 1976 +** iauNutm80 nutation matrix, IAU 1980 +** iauRxr product of two r-matrices +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 3.3 (p145). +** +*/ + + + + +void iauPom00(double xp, double yp, double sp, double rpom[3][3]) +/* +** - - - - - - - - - - +** i a u P o m 0 0 +** - - - - - - - - - - +** +** Form the matrix of polar motion for a given date, IAU 2000. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** xp,yp double coordinates of the pole (radians, Note 1) +** sp double the TIO locator s' (radians, Note 2) +** +** Returned: +** rpom double[3][3] polar-motion matrix (Note 3) +** +** Notes: +** +** 1) The arguments xp and yp are the coordinates (in radians) of the +** Celestial Intermediate Pole with respect to the International +** Terrestrial Reference System (see IERS Conventions 2003), +** measured along the meridians to 0 and 90 deg west respectively. +** +** 2) The argument sp is the TIO locator s', in radians, which +** positions the Terrestrial Intermediate Origin on the equator. It +** is obtained from polar motion observations by numerical +** integration, and so is in essence unpredictable. However, it is +** dominated by a secular drift of about 47 microarcseconds per +** century, and so can be taken into account by using s' = -47*t, +** where t is centuries since J2000.0. The function iauSp00 +** implements this approximation. +** +** 3) The matrix operates in the sense V(TRS) = rpom * V(CIP), meaning +** that it is the final rotation when computing the pointing +** direction to a celestial source. +** +** Called: +** iauIr initialize r-matrix to identity +** iauRz rotate around Z-axis +** iauRy rotate around Y-axis +** iauRx rotate around X-axis +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +void iauPpp(double a[3], double b[3], double apb[3]) +/* +** - - - - - - - +** i a u P p p +** - - - - - - - +** +** P-vector addition. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3] first p-vector +** b double[3] second p-vector +** +** Returned: +** apb double[3] a + b +** +** Note: +** It is permissible to re-use the same array for any of the +** arguments. +** +*/ + + + + +void iauPpsp(double a[3], double s, double b[3], double apsb[3]) +/* +** - - - - - - - - +** i a u P p s p +** - - - - - - - - +** +** P-vector plus scaled p-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3] first p-vector +** s double scalar (multiplier for b) +** b double[3] second p-vector +** +** Returned: +** apsb double[3] a + s*b +** +** Note: +** It is permissible for any of a, b and apsb to be the same array. +** +** Called: +** iauSxp multiply p-vector by scalar +** iauPpp p-vector plus p-vector +** +*/ + + + + +void iauPr00(double date1, double date2, double *dpsipr, double *depspr) +/* +** - - - - - - - - +** i a u P r 0 0 +** - - - - - - - - +** +** Precession-rate part of the IAU 2000 precession-nutation models +** (part of MHB2000). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsipr,depspr double precession corrections (Notes 2,3) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The precession adjustments are expressed as "nutation +** components", corrections in longitude and obliquity with respect +** to the J2000.0 equinox and ecliptic. +** +** 3) Although the precession adjustments are stated to be with respect +** to Lieske et al. (1977), the MHB2000 model does not specify which +** set of Euler angles are to be used and how the adjustments are to +** be applied. The most literal and straightforward procedure is to +** adopt the 4-rotation epsilon_0, psi_A, omega_A, xi_A option, and +** to add dpsipr to psi_A and depspr to both omega_A and eps_A. +** +** 4) This is an implementation of one aspect of the IAU 2000A nutation +** model, formally adopted by the IAU General Assembly in 2000, +** namely MHB2000 (Mathews et al. 2002). +** +** References: +** +** Lieske, J.H., Lederle, T., Fricke, W. & Morando, B., "Expressions +** for the precession quantities based upon the IAU (1976) System of +** Astronomical Constants", Astron.Astrophys., 58, 1-16 (1977) +** +** Mathews, P.M., Herring, T.A., Buffet, B.A., "Modeling of nutation +** and precession New nutation series for nonrigid Earth and +** insights into the Earth's interior", J.Geophys.Res., 107, B4, +** 2002. The MHB2000 code itself was obtained on 9th September 2002 +** from ftp://maia.usno.navy.mil/conv2000/chapter5/IAU2000A. +** +** Wallace, P.T., "Software for Implementing the IAU 2000 +** Resolutions", in IERS Workshop 5.1 (2002). +** +*/ + + + + +void iauPrec76(double date01, double date02, double date11, double date12, + double *zeta, double *z, double *theta) +/* +** - - - - - - - - - - +** i a u P r e c 7 6 +** - - - - - - - - - - +** +** IAU 1976 precession model. +** +** This function forms the three Euler angles which implement general +** precession between two dates, using the IAU 1976 model (as for the +** FK5 catalog). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date01,date02 double TDB starting date (Note 1) +** date11,date12 double TDB ending date (Note 1) +** +** Returned: +** zeta double 1st rotation: radians cw around z +** z double 3rd rotation: radians cw around z +** theta double 2nd rotation: radians ccw around y +** +** Notes: +** +** 1) The dates date01+date02 and date11+date12 are Julian Dates, +** apportioned in any convenient way between the arguments daten1 +** and daten2. For example, JD(TDB)=2450123.7 could be expressed in +** any of these ways, among others: +** +** daten1 daten2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** The two dates may be expressed using different methods, but at +** the risk of losing some resolution. +** +** 2) The accumulated precession angles zeta, z, theta are expressed +** through canonical polynomials which are valid only for a limited +** time span. In addition, the IAU 1976 precession rate is known to +** be imperfect. The absolute accuracy of the present formulation +** is better than 0.1 arcsec from 1960AD to 2040AD, better than +** 1 arcsec from 1640AD to 2360AD, and remains below 3 arcsec for +** the whole of the period 500BC to 3000AD. The errors exceed +** 10 arcsec outside the range 1200BC to 3900AD, exceed 100 arcsec +** outside 4200BC to 5600AD and exceed 1000 arcsec outside 6800BC to +** 8200AD. +** +** 3) The three angles are returned in the conventional order, which +** is not the same as the order of the corresponding Euler +** rotations. The precession matrix is +** R_3(-z) x R_2(+theta) x R_3(-zeta). +** +** Reference: +** +** Lieske, J.H., 1979, Astron.Astrophys. 73, 282, equations +** (6) & (7), p283. +** +*/ + + + + +void iauPv2p(double pv[2][3], double p[3]) +/* +** - - - - - - - - +** i a u P v 2 p +** - - - - - - - - +** +** Discard velocity component of a pv-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** pv double[2][3] pv-vector +** +** Returned: +** p double[3] p-vector +** +** Called: +** iauCp copy p-vector +** +*/ + + + + +void iauPv2s(double pv[2][3], + double *theta, double *phi, double *r, + double *td, double *pd, double *rd) +/* +** - - - - - - - - +** i a u P v 2 s +** - - - - - - - - +** +** Convert position/velocity from Cartesian to spherical coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** pv double[2][3] pv-vector +** +** Returned: +** theta double longitude angle (radians) +** phi double latitude angle (radians) +** r double radial distance +** td double rate of change of theta +** pd double rate of change of phi +** rd double rate of change of r +** +** Notes: +** +** 1) If the position part of pv is null, theta, phi, td and pd +** are indeterminate. This is handled by extrapolating the +** position through unit time by using the velocity part of +** pv. This moves the origin without changing the direction +** of the velocity component. If the position and velocity +** components of pv are both null, zeroes are returned for all +** six results. +** +** 2) If the position is a pole, theta, td and pd are indeterminate. +** In such cases zeroes are returned for all three. +** +*/ + + + + +void iauPvdpv(double a[2][3], double b[2][3], double adb[2]) +/* +** - - - - - - - - - +** i a u P v d p v +** - - - - - - - - - +** +** Inner (=scalar=dot) product of two pv-vectors. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[2][3] first pv-vector +** b double[2][3] second pv-vector +** +** Returned: +** adb double[2] a . b (see note) +** +** Note: +** +** If the position and velocity components of the two pv-vectors are +** ( ap, av ) and ( bp, bv ), the result, a . b, is the pair of +** numbers ( ap . bp , ap . bv + av . bp ). The two numbers are the +** dot-product of the two p-vectors and its derivative. +** +** Called: +** iauPdp scalar product of two p-vectors +** +*/ + + + + +void iauPvm(double pv[2][3], double *r, double *s) +/* +** - - - - - - - +** i a u P v m +** - - - - - - - +** +** Modulus of pv-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** pv double[2][3] pv-vector +** +** Returned: +** r double modulus of position component +** s double modulus of velocity component +** +** Called: +** iauPm modulus of p-vector +** +*/ + + + + +void iauPvmpv(double a[2][3], double b[2][3], double amb[2][3]) +/* +** - - - - - - - - - +** i a u P v m p v +** - - - - - - - - - +** +** Subtract one pv-vector from another. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[2][3] first pv-vector +** b double[2][3] second pv-vector +** +** Returned: +** amb double[2][3] a - b +** +** Note: +** It is permissible to re-use the same array for any of the +** arguments. +** +** Called: +** iauPmp p-vector minus p-vector +** +*/ + + + + +void iauPvppv(double a[2][3], double b[2][3], double apb[2][3]) +/* +** - - - - - - - - - +** i a u P v p p v +** - - - - - - - - - +** +** Add one pv-vector to another. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[2][3] first pv-vector +** b double[2][3] second pv-vector +** +** Returned: +** apb double[2][3] a + b +** +** Note: +** It is permissible to re-use the same array for any of the +** arguments. +** +** Called: +** iauPpp p-vector plus p-vector +** +*/ + + + + +int iauPvstar(double pv[2][3], double *ra, double *dec, + double *pmr, double *pmd, double *px, double *rv) +/* +** - - - - - - - - - - +** i a u P v s t a r +** - - - - - - - - - - +** +** Convert star position+velocity vector to catalog coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given (Note 1): +** pv double[2][3] pv-vector (AU, AU/day) +** +** Returned (Note 2): +** ra double right ascension (radians) +** dec double declination (radians) +** pmr double RA proper motion (radians/year) +** pmd double Dec proper motion (radians/year) +** px double parallax (arcsec) +** rv double radial velocity (km/s, positive = receding) +** +** Returned (function value): +** int status: +** 0 = OK +** -1 = superluminal speed (Note 5) +** -2 = null position vector +** +** Notes: +** +** 1) The specified pv-vector is the coordinate direction (and its rate +** of change) for the date at which the light leaving the star +** reached the solar-system barycenter. +** +** 2) The star data returned by this function are "observables" for an +** imaginary observer at the solar-system barycenter. Proper motion +** and radial velocity are, strictly, in terms of barycentric +** coordinate time, TCB. For most practical applications, it is +** permissible to neglect the distinction between TCB and ordinary +** "proper" time on Earth (TT/TAI). The result will, as a rule, be +** limited by the intrinsic accuracy of the proper-motion and +** radial-velocity data; moreover, the supplied pv-vector is likely +** to be merely an intermediate result (for example generated by the +** function iauStarpv), so that a change of time unit will cancel +** out overall. +** +** In accordance with normal star-catalog conventions, the object's +** right ascension and declination are freed from the effects of +** secular aberration. The frame, which is aligned to the catalog +** equator and equinox, is Lorentzian and centered on the SSB. +** +** Summarizing, the specified pv-vector is for most stars almost +** identical to the result of applying the standard geometrical +** "space motion" transformation to the catalog data. The +** differences, which are the subject of the Stumpff paper cited +** below, are: +** +** (i) In stars with significant radial velocity and proper motion, +** the constantly changing light-time distorts the apparent proper +** motion. Note that this is a classical, not a relativistic, +** effect. +** +** (ii) The transformation complies with special relativity. +** +** 3) Care is needed with units. The star coordinates are in radians +** and the proper motions in radians per Julian year, but the +** parallax is in arcseconds; the radial velocity is in km/s, but +** the pv-vector result is in AU and AU/day. +** +** 4) The proper motions are the rate of change of the right ascension +** and declination at the catalog epoch and are in radians per Julian +** year. The RA proper motion is in terms of coordinate angle, not +** true angle, and will thus be numerically larger at high +** declinations. +** +** 5) Straight-line motion at constant speed in the inertial frame is +** assumed. If the speed is greater than or equal to the speed of +** light, the function aborts with an error status. +** +** 6) The inverse transformation is performed by the function iauStarpv. +** +** Called: +** iauPn decompose p-vector into modulus and direction +** iauPdp scalar product of two p-vectors +** iauSxp multiply p-vector by scalar +** iauPmp p-vector minus p-vector +** iauPm modulus of p-vector +** iauPpp p-vector plus p-vector +** iauPv2s pv-vector to spherical +** iauAnp normalize angle into range 0 to 2pi +** +** Reference: +** +** Stumpff, P., 1985, Astron.Astrophys. 144, 232-240. +** +*/ + + + + +void iauPvtob(double elong, double phi, double hm, + double xp, double yp, double sp, double theta, + double pv[2][3]) +/* +** - - - - - - - - - +** i a u P v t o b +** - - - - - - - - - +** +** Position and velocity of a terrestrial observing station. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** elong double longitude (radians, east +ve, Note 1) +** phi double latitude (geodetic, radians, Note 1) +** hm double height above ref. ellipsoid (geodetic, m) +** xp,yp double coordinates of the pole (radians, Note 2) +** sp double the TIO locator s' (radians, Note 2) +** theta double Earth rotation angle (radians, Note 3) +** +** Returned: +** pv double[2][3] position/velocity vector (m, m/s, CIRS) +** +** Notes: +** +** 1) The terrestrial coordinates are with respect to the WGS84 +** reference ellipsoid. +** +** 2) xp and yp are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions), measured along the +** meridians 0 and 90 deg west respectively. sp is the TIO locator +** s', in radians, which positions the Terrestrial Intermediate +** Origin on the equator. For many applications, xp, yp and +** (especially) sp can be set to zero. +** +** 3) If theta is Greenwich apparent sidereal time instead of Earth +** rotation angle, the result is with respect to the true equator +** and equinox of date, i.e. with the x-axis at the equinox rather +** than the celestial intermediate origin. +** +** 4) The velocity units are meters per UT1 second, not per SI second. +** This is unlikely to have any practical consequences in the modern +** era. +** +** 5) No validation is performed on the arguments. Error cases that +** could lead to arithmetic exceptions are trapped by the iauGd2gc +** function, and the result set to zeros. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Urban, S. & Seidelmann, P. K. (eds), Explanatory Supplement to +** the Astronomical Almanac, 3rd ed., University Science Books +** (2013), Section 7.4.3.3. +** +** Called: +** iauGd2gc geodetic to geocentric transformation +** iauPom00 polar motion matrix +** iauTrxp product of transpose of r-matrix and p-vector +** +*/ + + + + +void iauPvu(double dt, double pv[2][3], double upv[2][3]) +/* +** - - - - - - - +** i a u P v u +** - - - - - - - +** +** Update a pv-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** dt double time interval +** pv double[2][3] pv-vector +** +** Returned: +** upv double[2][3] p updated, v unchanged +** +** Notes: +** +** 1) "Update" means "refer the position component of the vector +** to a new date dt time units from the existing date". +** +** 2) The time units of dt must match those of the velocity. +** +** 3) It is permissible for pv and upv to be the same array. +** +** Called: +** iauPpsp p-vector plus scaled p-vector +** iauCp copy p-vector +** +*/ + + + + +void iauPvup(double dt, double pv[2][3], double p[3]) +/* +** - - - - - - - - +** i a u P v u p +** - - - - - - - - +** +** Update a pv-vector, discarding the velocity component. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** dt double time interval +** pv double[2][3] pv-vector +** +** Returned: +** p double[3] p-vector +** +** Notes: +** +** 1) "Update" means "refer the position component of the vector to a +** new date dt time units from the existing date". +** +** 2) The time units of dt must match those of the velocity. +** +*/ + + + + +void iauPvxpv(double a[2][3], double b[2][3], double axb[2][3]) +/* +** - - - - - - - - - +** i a u P v x p v +** - - - - - - - - - +** +** Outer (=vector=cross) product of two pv-vectors. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[2][3] first pv-vector +** b double[2][3] second pv-vector +** +** Returned: +** axb double[2][3] a x b +** +** Notes: +** +** 1) If the position and velocity components of the two pv-vectors are +** ( ap, av ) and ( bp, bv ), the result, a x b, is the pair of +** vectors ( ap x bp, ap x bv + av x bp ). The two vectors are the +** cross-product of the two p-vectors and its derivative. +** +** 2) It is permissible to re-use the same array for any of the +** arguments. +** +** Called: +** iauCpv copy pv-vector +** iauPxp vector product of two p-vectors +** iauPpp p-vector plus p-vector +** +*/ + + + + +void iauPxp(double a[3], double b[3], double axb[3]) +/* +** - - - - - - - +** i a u P x p +** - - - - - - - +** +** p-vector outer (=vector=cross) product. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3] first p-vector +** b double[3] second p-vector +** +** Returned: +** axb double[3] a x b +** +** Note: +** It is permissible to re-use the same array for any of the +** arguments. +** +*/ + + + + +void iauRefco(double phpa, double tc, double rh, double wl, + double *refa, double *refb) +/* +** - - - - - - - - - +** i a u R e f c o +** - - - - - - - - - +** +** Determine the constants A and B in the atmospheric refraction model +** dZ = A tan Z + B tan^3 Z. +** +** Z is the "observed" zenith distance (i.e. affected by refraction) +** and dZ is what to add to Z to give the "topocentric" (i.e. in vacuo) +** zenith distance. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** phpa double pressure at the observer (hPa = millibar) +** tc double ambient temperature at the observer (deg C) +** rh double relative humidity at the observer (range 0-1) +** wl double wavelength (micrometers) +** +** Returned: +** refa double* tan Z coefficient (radians) +** refb double* tan^3 Z coefficient (radians) +** +** Notes: +** +** 1) The model balances speed and accuracy to give good results in +** applications where performance at low altitudes is not paramount. +** Performance is maintained across a range of conditions, and +** applies to both optical/IR and radio. +** +** 2) The model omits the effects of (i) height above sea level (apart +** from the reduced pressure itself), (ii) latitude (i.e. the +** flattening of the Earth), (iii) variations in tropospheric lapse +** rate and (iv) dispersive effects in the radio. +** +** The model was tested using the following range of conditions: +** +** lapse rates 0.0055, 0.0065, 0.0075 deg/meter +** latitudes 0, 25, 50, 75 degrees +** heights 0, 2500, 5000 meters ASL +** pressures mean for height -10% to +5% in steps of 5% +** temperatures -10 deg to +20 deg with respect to 280 deg at SL +** relative humidity 0, 0.5, 1 +** wavelengths 0.4, 0.6, ... 2 micron, + radio +** zenith distances 15, 45, 75 degrees +** +** The accuracy with respect to raytracing through a model +** atmosphere was as follows: +** +** worst RMS +** +** optical/IR 62 mas 8 mas +** radio 319 mas 49 mas +** +** For this particular set of conditions: +** +** lapse rate 0.0065 K/meter +** latitude 50 degrees +** sea level +** pressure 1005 mb +** temperature 280.15 K +** humidity 80% +** wavelength 5740 Angstroms +** +** the results were as follows: +** +** ZD raytrace iauRefco Saastamoinen +** +** 10 10.27 10.27 10.27 +** 20 21.19 21.20 21.19 +** 30 33.61 33.61 33.60 +** 40 48.82 48.83 48.81 +** 45 58.16 58.18 58.16 +** 50 69.28 69.30 69.27 +** 55 82.97 82.99 82.95 +** 60 100.51 100.54 100.50 +** 65 124.23 124.26 124.20 +** 70 158.63 158.68 158.61 +** 72 177.32 177.37 177.31 +** 74 200.35 200.38 200.32 +** 76 229.45 229.43 229.42 +** 78 267.44 267.29 267.41 +** 80 319.13 318.55 319.10 +** +** deg arcsec arcsec arcsec +** +** The values for Saastamoinen's formula (which includes terms +** up to tan^5) are taken from Hohenkerk and Sinclair (1985). +** +** 3) A wl value in the range 0-100 selects the optical/IR case and is +** wavelength in micrometers. Any value outside this range selects +** the radio case. +** +** 4) Outlandish input parameters are silently limited to +** mathematically safe values. Zero pressure is permissible, and +** causes zeroes to be returned. +** +** 5) The algorithm draws on several sources, as follows: +** +** a) The formula for the saturation vapour pressure of water as +** a function of temperature and temperature is taken from +** Equations (A4.5-A4.7) of Gill (1982). +** +** b) The formula for the water vapour pressure, given the +** saturation pressure and the relative humidity, is from +** Crane (1976), Equation (2.5.5). +** +** c) The refractivity of air is a function of temperature, +** total pressure, water-vapour pressure and, in the case +** of optical/IR, wavelength. The formulae for the two cases are +** developed from Hohenkerk & Sinclair (1985) and Rueger (2002). +** +** d) The formula for beta, the ratio of the scale height of the +** atmosphere to the geocentric distance of the observer, is +** an adaption of Equation (9) from Stone (1996). The +** adaptations, arrived at empirically, consist of (i) a small +** adjustment to the coefficient and (ii) a humidity term for the +** radio case only. +** +** e) The formulae for the refraction constants as a function of +** n-1 and beta are from Green (1987), Equation (4.31). +** +** References: +** +** Crane, R.K., Meeks, M.L. (ed), "Refraction Effects in the Neutral +** Atmosphere", Methods of Experimental Physics: Astrophysics 12B, +** Academic Press, 1976. +** +** Gill, Adrian E., "Atmosphere-Ocean Dynamics", Academic Press, +** 1982. +** +** Green, R.M., "Spherical Astronomy", Cambridge University Press, +** 1987. +** +** Hohenkerk, C.Y., & Sinclair, A.T., NAO Technical Note No. 63, +** 1985. +** +** Rueger, J.M., "Refractive Index Formulae for Electronic Distance +** Measurement with Radio and Millimetre Waves", in Unisurv Report +** S-68, School of Surveying and Spatial Information Systems, +** University of New South Wales, Sydney, Australia, 2002. +** +** Stone, Ronald C., P.A.S.P. 108, 1051-1058, 1996. +** +*/ + + + + +void iauRm2v(double r[3][3], double w[3]) +/* +** - - - - - - - - +** i a u R m 2 v +** - - - - - - - - +** +** Express an r-matrix as an r-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** r double[3][3] rotation matrix +** +** Returned: +** w double[3] rotation vector (Note 1) +** +** Notes: +** +** 1) A rotation matrix describes a rotation through some angle about +** some arbitrary axis called the Euler axis. The "rotation vector" +** returned by this function has the same direction as the Euler axis, +** and its magnitude is the angle in radians. (The magnitude and +** direction can be separated by means of the function iauPn.) +** +** 2) If r is null, so is the result. If r is not a rotation matrix +** the result is undefined; r must be proper (i.e. have a positive +** determinant) and real orthogonal (inverse = transpose). +** +** 3) The reference frame rotates clockwise as seen looking along +** the rotation vector from the origin. +** +*/ + + + + +void iauRv2m(double w[3], double r[3][3]) +/* +** - - - - - - - - +** i a u R v 2 m +** - - - - - - - - +** +** Form the r-matrix corresponding to a given r-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** w double[3] rotation vector (Note 1) +** +** Returned: +** r double[3][3] rotation matrix +** +** Notes: +** +** 1) A rotation matrix describes a rotation through some angle about +** some arbitrary axis called the Euler axis. The "rotation vector" +** supplied to This function has the same direction as the Euler +** axis, and its magnitude is the angle in radians. +** +** 2) If w is null, the unit matrix is returned. +** +** 3) The reference frame rotates clockwise as seen looking along the +** rotation vector from the origin. +** +*/ + + + + +void iauRx(double phi, double r[3][3]) +/* +** - - - - - - +** i a u R x +** - - - - - - +** +** Rotate an r-matrix about the x-axis. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** phi double angle (radians) +** +** Given and returned: +** r double[3][3] r-matrix, rotated +** +** Notes: +** +** 1) Calling this function with positive phi incorporates in the +** supplied r-matrix r an additional rotation, about the x-axis, +** anticlockwise as seen looking towards the origin from positive x. +** +** 2) The additional rotation can be represented by this matrix: +** +** ( 1 0 0 ) +** ( ) +** ( 0 + cos(phi) + sin(phi) ) +** ( ) +** ( 0 - sin(phi) + cos(phi) ) +** +*/ + + + + +void iauRxp(double r[3][3], double p[3], double rp[3]) +/* +** - - - - - - - +** i a u R x p +** - - - - - - - +** +** Multiply a p-vector by an r-matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** r double[3][3] r-matrix +** p double[3] p-vector +** +** Returned: +** rp double[3] r * p +** +** Note: +** It is permissible for p and rp to be the same array. +** +** Called: +** iauCp copy p-vector +** +*/ + + + + +void iauRxpv(double r[3][3], double pv[2][3], double rpv[2][3]) +/* +** - - - - - - - - +** i a u R x p v +** - - - - - - - - +** +** Multiply a pv-vector by an r-matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** r double[3][3] r-matrix +** pv double[2][3] pv-vector +** +** Returned: +** rpv double[2][3] r * pv +** +** Note: +** It is permissible for pv and rpv to be the same array. +** +** Called: +** iauRxp product of r-matrix and p-vector +** +*/ + + + + +void iauRxr(double a[3][3], double b[3][3], double atb[3][3]) +/* +** - - - - - - - +** i a u R x r +** - - - - - - - +** +** Multiply two r-matrices. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3][3] first r-matrix +** b double[3][3] second r-matrix +** +** Returned: +** atb double[3][3] a * b +** +** Note: +** It is permissible to re-use the same array for any of the +** arguments. +** +** Called: +** iauCr copy r-matrix +** +*/ + + + + +void iauRy(double theta, double r[3][3]) +/* +** - - - - - - +** i a u R y +** - - - - - - +** +** Rotate an r-matrix about the y-axis. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** theta double angle (radians) +** +** Given and returned: +** r double[3][3] r-matrix, rotated +** +** Notes: +** +** 1) Calling this function with positive theta incorporates in the +** supplied r-matrix r an additional rotation, about the y-axis, +** anticlockwise as seen looking towards the origin from positive y. +** +** 2) The additional rotation can be represented by this matrix: +** +** ( + cos(theta) 0 - sin(theta) ) +** ( ) +** ( 0 1 0 ) +** ( ) +** ( + sin(theta) 0 + cos(theta) ) +** +*/ + + + + +void iauRz(double psi, double r[3][3]) +/* +** - - - - - - +** i a u R z +** - - - - - - +** +** Rotate an r-matrix about the z-axis. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** psi double angle (radians) +** +** Given and returned: +** r double[3][3] r-matrix, rotated +** +** Notes: +** +** 1) Calling this function with positive psi incorporates in the +** supplied r-matrix r an additional rotation, about the z-axis, +** anticlockwise as seen looking towards the origin from positive z. +** +** 2) The additional rotation can be represented by this matrix: +** +** ( + cos(psi) + sin(psi) 0 ) +** ( ) +** ( - sin(psi) + cos(psi) 0 ) +** ( ) +** ( 0 0 1 ) +** +*/ + + + + +double iauS00(double date1, double date2, double x, double y) +/* +** - - - - - - - +** i a u S 0 0 +** - - - - - - - +** +** The CIO locator s, positioning the Celestial Intermediate Origin on +** the equator of the Celestial Intermediate Pole, given the CIP's X,Y +** coordinates. Compatible with IAU 2000A precession-nutation. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** x,y double CIP coordinates (Note 3) +** +** Returned (function value): +** double the CIO locator s in radians (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The CIO locator s is the difference between the right ascensions +** of the same point in two systems: the two systems are the GCRS +** and the CIP,CIO, and the point is the ascending node of the +** CIP equator. The quantity s remains below 0.1 arcsecond +** throughout 1900-2100. +** +** 3) The series used to compute s is in fact for s+XY/2, where X and Y +** are the x and y components of the CIP unit vector; this series +** is more compact than a direct series for s would be. This +** function requires X,Y to be supplied by the caller, who is +** responsible for providing values that are consistent with the +** supplied date. +** +** 4) The model is consistent with the IAU 2000A precession-nutation. +** +** Called: +** iauFal03 mean anomaly of the Moon +** iauFalp03 mean anomaly of the Sun +** iauFaf03 mean argument of the latitude of the Moon +** iauFad03 mean elongation of the Moon from the Sun +** iauFaom03 mean longitude of the Moon's ascending node +** iauFave03 mean longitude of Venus +** iauFae03 mean longitude of Earth +** iauFapa03 general accumulated precession in longitude +** +** References: +** +** Capitaine, N., Chapront, J., Lambert, S. and Wallace, P., +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +double iauS00a(double date1, double date2) +/* +** - - - - - - - - +** i a u S 0 0 a +** - - - - - - - - +** +** The CIO locator s, positioning the Celestial Intermediate Origin on +** the equator of the Celestial Intermediate Pole, using the IAU 2000A +** precession-nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double the CIO locator s in radians (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The CIO locator s is the difference between the right ascensions +** of the same point in two systems. The two systems are the GCRS +** and the CIP,CIO, and the point is the ascending node of the +** CIP equator. The CIO locator s remains a small fraction of +** 1 arcsecond throughout 1900-2100. +** +** 3) The series used to compute s is in fact for s+XY/2, where X and Y +** are the x and y components of the CIP unit vector; this series +** is more compact than a direct series for s would be. The present +** function uses the full IAU 2000A nutation model when predicting +** the CIP position. Faster results, with no significant loss of +** accuracy, can be obtained via the function iauS00b, which uses +** instead the IAU 2000B truncated model. +** +** Called: +** iauPnm00a classical NPB matrix, IAU 2000A +** iauBnp2xy extract CIP X,Y from the BPN matrix +** iauS00 the CIO locator s, given X,Y, IAU 2000A +** +** References: +** +** Capitaine, N., Chapront, J., Lambert, S. and Wallace, P., +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +double iauS00b(double date1, double date2) +/* +** - - - - - - - - +** i a u S 0 0 b +** - - - - - - - - +** +** The CIO locator s, positioning the Celestial Intermediate Origin on +** the equator of the Celestial Intermediate Pole, using the IAU 2000B +** precession-nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double the CIO locator s in radians (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The CIO locator s is the difference between the right ascensions +** of the same point in two systems. The two systems are the GCRS +** and the CIP,CIO, and the point is the ascending node of the +** CIP equator. The CIO locator s remains a small fraction of +** 1 arcsecond throughout 1900-2100. +** +** 3) The series used to compute s is in fact for s+XY/2, where X and Y +** are the x and y components of the CIP unit vector; this series +** is more compact than a direct series for s would be. The present +** function uses the IAU 2000B truncated nutation model when +** predicting the CIP position. The function iauS00a uses instead +** the full IAU 2000A model, but with no significant increase in +** accuracy and at some cost in speed. +** +** Called: +** iauPnm00b classical NPB matrix, IAU 2000B +** iauBnp2xy extract CIP X,Y from the BPN matrix +** iauS00 the CIO locator s, given X,Y, IAU 2000A +** +** References: +** +** Capitaine, N., Chapront, J., Lambert, S. and Wallace, P., +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +double iauS06(double date1, double date2, double x, double y) +/* +** - - - - - - - +** i a u S 0 6 +** - - - - - - - +** +** The CIO locator s, positioning the Celestial Intermediate Origin on +** the equator of the Celestial Intermediate Pole, given the CIP's X,Y +** coordinates. Compatible with IAU 2006/2000A precession-nutation. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** x,y double CIP coordinates (Note 3) +** +** Returned (function value): +** double the CIO locator s in radians (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The CIO locator s is the difference between the right ascensions +** of the same point in two systems: the two systems are the GCRS +** and the CIP,CIO, and the point is the ascending node of the +** CIP equator. The quantity s remains below 0.1 arcsecond +** throughout 1900-2100. +** +** 3) The series used to compute s is in fact for s+XY/2, where X and Y +** are the x and y components of the CIP unit vector; this series +** is more compact than a direct series for s would be. This +** function requires X,Y to be supplied by the caller, who is +** responsible for providing values that are consistent with the +** supplied date. +** +** 4) The model is consistent with the "P03" precession (Capitaine et +** al. 2003), adopted by IAU 2006 Resolution 1, 2006, and the +** IAU 2000A nutation (with P03 adjustments). +** +** Called: +** iauFal03 mean anomaly of the Moon +** iauFalp03 mean anomaly of the Sun +** iauFaf03 mean argument of the latitude of the Moon +** iauFad03 mean elongation of the Moon from the Sun +** iauFaom03 mean longitude of the Moon's ascending node +** iauFave03 mean longitude of Venus +** iauFae03 mean longitude of Earth +** iauFapa03 general accumulated precession in longitude +** +** References: +** +** Capitaine, N., Wallace, P.T. & Chapront, J., 2003, Astron. +** Astrophys. 432, 355 +** +** McCarthy, D.D., Petit, G. (eds.) 2004, IERS Conventions (2003), +** IERS Technical Note No. 32, BKG +** +*/ + + + + +double iauS06a(double date1, double date2) +/* +** - - - - - - - - +** i a u S 0 6 a +** - - - - - - - - +** +** The CIO locator s, positioning the Celestial Intermediate Origin on +** the equator of the Celestial Intermediate Pole, using the IAU 2006 +** precession and IAU 2000A nutation models. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double the CIO locator s in radians (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The CIO locator s is the difference between the right ascensions +** of the same point in two systems. The two systems are the GCRS +** and the CIP,CIO, and the point is the ascending node of the +** CIP equator. The CIO locator s remains a small fraction of +** 1 arcsecond throughout 1900-2100. +** +** 3) The series used to compute s is in fact for s+XY/2, where X and Y +** are the x and y components of the CIP unit vector; this series is +** more compact than a direct series for s would be. The present +** function uses the full IAU 2000A nutation model when predicting +** the CIP position. +** +** Called: +** iauPnm06a classical NPB matrix, IAU 2006/2000A +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS06 the CIO locator s, given X,Y, IAU 2006 +** +** References: +** +** Capitaine, N., Chapront, J., Lambert, S. and Wallace, P., +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** McCarthy, D. D., Petit, G. (eds.), 2004, IERS Conventions (2003), +** IERS Technical Note No. 32, BKG +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +*/ + + + + +void iauS2c(double theta, double phi, double c[3]) +/* +** - - - - - - - +** i a u S 2 c +** - - - - - - - +** +** Convert spherical coordinates to Cartesian. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** theta double longitude angle (radians) +** phi double latitude angle (radians) +** +** Returned: +** c double[3] direction cosines +** +*/ + + + + +void iauS2p(double theta, double phi, double r, double p[3]) +/* +** - - - - - - - +** i a u S 2 p +** - - - - - - - +** +** Convert spherical polar coordinates to p-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** theta double longitude angle (radians) +** phi double latitude angle (radians) +** r double radial distance +** +** Returned: +** p double[3] Cartesian coordinates +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauSxp multiply p-vector by scalar +** +*/ + + + + +void iauS2pv(double theta, double phi, double r, + double td, double pd, double rd, + double pv[2][3]) +/* +** - - - - - - - - +** i a u S 2 p v +** - - - - - - - - +** +** Convert position/velocity from spherical to Cartesian coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** theta double longitude angle (radians) +** phi double latitude angle (radians) +** r double radial distance +** td double rate of change of theta +** pd double rate of change of phi +** rd double rate of change of r +** +** Returned: +** pv double[2][3] pv-vector +** +*/ + + + + +void iauS2xpv(double s1, double s2, double pv[2][3], double spv[2][3]) +/* +** - - - - - - - - - +** i a u S 2 x p v +** - - - - - - - - - +** +** Multiply a pv-vector by two scalars. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** s1 double scalar to multiply position component by +** s2 double scalar to multiply velocity component by +** pv double[2][3] pv-vector +** +** Returned: +** spv double[2][3] pv-vector: p scaled by s1, v scaled by s2 +** +** Note: +** It is permissible for pv and spv to be the same array. +** +** Called: +** iauSxp multiply p-vector by scalar +** +*/ + + + + +double iauSepp(double a[3], double b[3]) +/* +** - - - - - - - - +** i a u S e p p +** - - - - - - - - +** +** Angular separation between two p-vectors. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3] first p-vector (not necessarily unit length) +** b double[3] second p-vector (not necessarily unit length) +** +** Returned (function value): +** double angular separation (radians, always positive) +** +** Notes: +** +** 1) If either vector is null, a zero result is returned. +** +** 2) The angular separation is most simply formulated in terms of +** scalar product. However, this gives poor accuracy for angles +** near zero and pi. The present algorithm uses both cross product +** and dot product, to deliver full accuracy whatever the size of +** the angle. +** +** Called: +** iauPxp vector product of two p-vectors +** iauPm modulus of p-vector +** iauPdp scalar product of two p-vectors +** +*/ + + + + +double iauSeps(double al, double ap, double bl, double bp) +/* +** - - - - - - - - +** i a u S e p s +** - - - - - - - - +** +** Angular separation between two sets of spherical coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** al double first longitude (radians) +** ap double first latitude (radians) +** bl double second longitude (radians) +** bp double second latitude (radians) +** +** Returned (function value): +** double angular separation (radians) +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauSepp angular separation between two p-vectors +** +*/ + + + + +double iauSp00(double date1, double date2) +/* +** - - - - - - - - +** i a u S p 0 0 +** - - - - - - - - +** +** The TIO locator s', positioning the Terrestrial Intermediate Origin +** on the equator of the Celestial Intermediate Pole. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double the TIO locator s' in radians (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The TIO locator s' is obtained from polar motion observations by +** numerical integration, and so is in essence unpredictable. +** However, it is dominated by a secular drift of about +** 47 microarcseconds per century, which is the approximation +** evaluated by the present function. +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +int iauStarpm(double ra1, double dec1, + double pmr1, double pmd1, double px1, double rv1, + double ep1a, double ep1b, double ep2a, double ep2b, + double *ra2, double *dec2, + double *pmr2, double *pmd2, double *px2, double *rv2) +/* +** - - - - - - - - - - +** i a u S t a r p m +** - - - - - - - - - - +** +** Star proper motion: update star catalog data for space motion. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** ra1 double right ascension (radians), before +** dec1 double declination (radians), before +** pmr1 double RA proper motion (radians/year), before +** pmd1 double Dec proper motion (radians/year), before +** px1 double parallax (arcseconds), before +** rv1 double radial velocity (km/s, +ve = receding), before +** ep1a double "before" epoch, part A (Note 1) +** ep1b double "before" epoch, part B (Note 1) +** ep2a double "after" epoch, part A (Note 1) +** ep2b double "after" epoch, part B (Note 1) +** +** Returned: +** ra2 double right ascension (radians), after +** dec2 double declination (radians), after +** pmr2 double RA proper motion (radians/year), after +** pmd2 double Dec proper motion (radians/year), after +** px2 double parallax (arcseconds), after +** rv2 double radial velocity (km/s, +ve = receding), after +** +** Returned (function value): +** int status: +** -1 = system error (should not occur) +** 0 = no warnings or errors +** 1 = distance overridden (Note 6) +** 2 = excessive velocity (Note 7) +** 4 = solution didn't converge (Note 8) +** else = binary logical OR of the above warnings +** +** Notes: +** +** 1) The starting and ending TDB dates ep1a+ep1b and ep2a+ep2b are +** Julian Dates, apportioned in any convenient way between the two +** parts (A and B). For example, JD(TDB)=2450123.7 could be +** expressed in any of these ways, among others: +** +** epna epnb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) In accordance with normal star-catalog conventions, the object's +** right ascension and declination are freed from the effects of +** secular aberration. The frame, which is aligned to the catalog +** equator and equinox, is Lorentzian and centered on the SSB. +** +** The proper motions are the rate of change of the right ascension +** and declination at the catalog epoch and are in radians per TDB +** Julian year. +** +** The parallax and radial velocity are in the same frame. +** +** 3) Care is needed with units. The star coordinates are in radians +** and the proper motions in radians per Julian year, but the +** parallax is in arcseconds. +** +** 4) The RA proper motion is in terms of coordinate angle, not true +** angle. If the catalog uses arcseconds for both RA and Dec proper +** motions, the RA proper motion will need to be divided by cos(Dec) +** before use. +** +** 5) Straight-line motion at constant speed, in the inertial frame, +** is assumed. +** +** 6) An extremely small (or zero or negative) parallax is interpreted +** to mean that the object is on the "celestial sphere", the radius +** of which is an arbitrary (large) value (see the iauStarpv +** function for the value used). When the distance is overridden in +** this way, the status, initially zero, has 1 added to it. +** +** 7) If the space velocity is a significant fraction of c (see the +** constant VMAX in the function iauStarpv), it is arbitrarily set +** to zero. When this action occurs, 2 is added to the status. +** +** 8) The relativistic adjustment carried out in the iauStarpv function +** involves an iterative calculation. If the process fails to +** converge within a set number of iterations, 4 is added to the +** status. +** +** Called: +** iauStarpv star catalog data to space motion pv-vector +** iauPvu update a pv-vector +** iauPdp scalar product of two p-vectors +** iauPvstar space motion pv-vector to star catalog data +** +*/ + + + + +int iauStarpv(double ra, double dec, + double pmr, double pmd, double px, double rv, + double pv[2][3]) +/* +** - - - - - - - - - - +** i a u S t a r p v +** - - - - - - - - - - +** +** Convert star catalog coordinates to position+velocity vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given (Note 1): +** ra double right ascension (radians) +** dec double declination (radians) +** pmr double RA proper motion (radians/year) +** pmd double Dec proper motion (radians/year) +** px double parallax (arcseconds) +** rv double radial velocity (km/s, positive = receding) +** +** Returned (Note 2): +** pv double[2][3] pv-vector (AU, AU/day) +** +** Returned (function value): +** int status: +** 0 = no warnings +** 1 = distance overridden (Note 6) +** 2 = excessive speed (Note 7) +** 4 = solution didn't converge (Note 8) +** else = binary logical OR of the above +** +** Notes: +** +** 1) The star data accepted by this function are "observables" for an +** imaginary observer at the solar-system barycenter. Proper motion +** and radial velocity are, strictly, in terms of barycentric +** coordinate time, TCB. For most practical applications, it is +** permissible to neglect the distinction between TCB and ordinary +** "proper" time on Earth (TT/TAI). The result will, as a rule, be +** limited by the intrinsic accuracy of the proper-motion and +** radial-velocity data; moreover, the pv-vector is likely to be +** merely an intermediate result, so that a change of time unit +** would cancel out overall. +** +** In accordance with normal star-catalog conventions, the object's +** right ascension and declination are freed from the effects of +** secular aberration. The frame, which is aligned to the catalog +** equator and equinox, is Lorentzian and centered on the SSB. +** +** 2) The resulting position and velocity pv-vector is with respect to +** the same frame and, like the catalog coordinates, is freed from +** the effects of secular aberration. Should the "coordinate +** direction", where the object was located at the catalog epoch, be +** required, it may be obtained by calculating the magnitude of the +** position vector pv[0][0-2] dividing by the speed of light in +** AU/day to give the light-time, and then multiplying the space +** velocity pv[1][0-2] by this light-time and adding the result to +** pv[0][0-2]. +** +** Summarizing, the pv-vector returned is for most stars almost +** identical to the result of applying the standard geometrical +** "space motion" transformation. The differences, which are the +** subject of the Stumpff paper referenced below, are: +** +** (i) In stars with significant radial velocity and proper motion, +** the constantly changing light-time distorts the apparent proper +** motion. Note that this is a classical, not a relativistic, +** effect. +** +** (ii) The transformation complies with special relativity. +** +** 3) Care is needed with units. The star coordinates are in radians +** and the proper motions in radians per Julian year, but the +** parallax is in arcseconds; the radial velocity is in km/s, but +** the pv-vector result is in AU and AU/day. +** +** 4) The RA proper motion is in terms of coordinate angle, not true +** angle. If the catalog uses arcseconds for both RA and Dec proper +** motions, the RA proper motion will need to be divided by cos(Dec) +** before use. +** +** 5) Straight-line motion at constant speed, in the inertial frame, +** is assumed. +** +** 6) An extremely small (or zero or negative) parallax is interpreted +** to mean that the object is on the "celestial sphere", the radius +** of which is an arbitrary (large) value (see the constant PXMIN). +** When the distance is overridden in this way, the status, +** initially zero, has 1 added to it. +** +** 7) If the space velocity is a significant fraction of c (see the +** constant VMAX), it is arbitrarily set to zero. When this action +** occurs, 2 is added to the status. +** +** 8) The relativistic adjustment involves an iterative calculation. +** If the process fails to converge within a set number (IMAX) of +** iterations, 4 is added to the status. +** +** 9) The inverse transformation is performed by the function +** iauPvstar. +** +** Called: +** iauS2pv spherical coordinates to pv-vector +** iauPm modulus of p-vector +** iauZp zero p-vector +** iauPn decompose p-vector into modulus and direction +** iauPdp scalar product of two p-vectors +** iauSxp multiply p-vector by scalar +** iauPmp p-vector minus p-vector +** iauPpp p-vector plus p-vector +** +** Reference: +** +** Stumpff, P., 1985, Astron.Astrophys. 144, 232-240. +** +*/ + + + + +void iauSxp(double s, double p[3], double sp[3]) +/* +** - - - - - - - +** i a u S x p +** - - - - - - - +** +** Multiply a p-vector by a scalar. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** s double scalar +** p double[3] p-vector +** +** Returned: +** sp double[3] s * p +** +** Note: +** It is permissible for p and sp to be the same array. +** +*/ + + + + +void iauSxpv(double s, double pv[2][3], double spv[2][3]) +/* +** - - - - - - - - +** i a u S x p v +** - - - - - - - - +** +** Multiply a pv-vector by a scalar. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** s double scalar +** pv double[2][3] pv-vector +** +** Returned: +** spv double[2][3] s * pv +** +** Note: +** It is permissible for pv and spv to be the same array +** +** Called: +** iauS2xpv multiply pv-vector by two scalars +** +*/ + + + + +int iauTaitt(double tai1, double tai2, double *tt1, double *tt2) +/* +** - - - - - - - - - +** i a u T a i t t +** - - - - - - - - - +** +** Time scale transformation: International Atomic Time, TAI, to +** Terrestrial Time, TT. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tai1,tai2 double TAI as a 2-part Julian Date +** +** Returned: +** tt1,tt2 double TT as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Note: +** +** tai1+tai2 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where tai1 is the Julian +** Day Number and tai2 is the fraction of a day. The returned +** tt1,tt2 follow suit. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +*/ + + + + +int iauTaiut1(double tai1, double tai2, double dta, + double *ut11, double *ut12) +/* +** - - - - - - - - - - +** i a u T a i u t 1 +** - - - - - - - - - - +** +** Time scale transformation: International Atomic Time, TAI, to +** Universal Time, UT1. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tai1,tai2 double TAI as a 2-part Julian Date +** dta double UT1-TAI in seconds +** +** Returned: +** ut11,ut12 double UT1 as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) tai1+tai2 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where tai1 is the Julian +** Day Number and tai2 is the fraction of a day. The returned +** UT11,UT12 follow suit. +** +** 2) The argument dta, i.e. UT1-TAI, is an observed quantity, and is +** available from IERS tabulations. +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +*/ + + + + +int iauTaiutc(double tai1, double tai2, double *utc1, double *utc2) +/* +** - - - - - - - - - - +** i a u T a i u t c +** - - - - - - - - - - +** +** Time scale transformation: International Atomic Time, TAI, to +** Coordinated Universal Time, UTC. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tai1,tai2 double TAI as a 2-part Julian Date (Note 1) +** +** Returned: +** utc1,utc2 double UTC as a 2-part quasi Julian Date (Notes 1-3) +** +** Returned (function value): +** int status: +1 = dubious year (Note 4) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) tai1+tai2 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where tai1 is the Julian +** Day Number and tai2 is the fraction of a day. The returned utc1 +** and utc2 form an analogous pair, except that a special convention +** is used, to deal with the problem of leap seconds - see the next +** note. +** +** 2) JD cannot unambiguously represent UTC during a leap second unless +** special measures are taken. The convention in the present +** function is that the JD day represents UTC days whether the +** length is 86399, 86400 or 86401 SI seconds. In the 1960-1972 era +** there were smaller jumps (in either direction) each time the +** linear UTC(TAI) expression was changed, and these "mini-leaps" +** are also included in the SOFA convention. +** +** 3) The function iauD2dtf can be used to transform the UTC quasi-JD +** into calendar date and clock time, including UTC leap second +** handling. +** +** 4) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the future +** to be trusted. See iauDat for further details. +** +** Called: +** iauUtctai UTC to TAI +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +*/ + + + + +int iauTcbtdb(double tcb1, double tcb2, double *tdb1, double *tdb2) +/* +** - - - - - - - - - - +** i a u T c b t d b +** - - - - - - - - - - +** +** Time scale transformation: Barycentric Coordinate Time, TCB, to +** Barycentric Dynamical Time, TDB. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tcb1,tcb2 double TCB as a 2-part Julian Date +** +** Returned: +** tdb1,tdb2 double TDB as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) tcb1+tcb2 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where tcb1 is the Julian +** Day Number and tcb2 is the fraction of a day. The returned +** tdb1,tdb2 follow suit. +** +** 2) The 2006 IAU General Assembly introduced a conventional linear +** transformation between TDB and TCB. This transformation +** compensates for the drift between TCB and terrestrial time TT, +** and keeps TDB approximately centered on TT. Because the +** relationship between TT and TCB depends on the adopted solar +** system ephemeris, the degree of alignment between TDB and TT over +** long intervals will vary according to which ephemeris is used. +** Former definitions of TDB attempted to avoid this problem by +** stipulating that TDB and TT should differ only by periodic +** effects. This is a good description of the nature of the +** relationship but eluded precise mathematical formulation. The +** conventional linear relationship adopted in 2006 sidestepped +** these difficulties whilst delivering a TDB that in practice was +** consistent with values before that date. +** +** 3) TDB is essentially the same as Teph, the time argument for the +** JPL solar system ephemerides. +** +** Reference: +** +** IAU 2006 Resolution B3 +** +*/ + + + + +int iauTcgtt(double tcg1, double tcg2, double *tt1, double *tt2) +/* +** - - - - - - - - - +** i a u T c g t t +** - - - - - - - - - +** +** Time scale transformation: Geocentric Coordinate Time, TCG, to +** Terrestrial Time, TT. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tcg1,tcg2 double TCG as a 2-part Julian Date +** +** Returned: +** tt1,tt2 double TT as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Note: +** +** tcg1+tcg2 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where tcg1 is the Julian +** Day Number and tcg22 is the fraction of a day. The returned +** tt1,tt2 follow suit. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003),. +** IERS Technical Note No. 32, BKG (2004) +** +** IAU 2000 Resolution B1.9 +** +*/ + + + + +int iauTdbtcb(double tdb1, double tdb2, double *tcb1, double *tcb2) +/* +** - - - - - - - - - - +** i a u T d b t c b +** - - - - - - - - - - +** +** Time scale transformation: Barycentric Dynamical Time, TDB, to +** Barycentric Coordinate Time, TCB. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tdb1,tdb2 double TDB as a 2-part Julian Date +** +** Returned: +** tcb1,tcb2 double TCB as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) tdb1+tdb2 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where tdb1 is the Julian +** Day Number and tdb2 is the fraction of a day. The returned +** tcb1,tcb2 follow suit. +** +** 2) The 2006 IAU General Assembly introduced a conventional linear +** transformation between TDB and TCB. This transformation +** compensates for the drift between TCB and terrestrial time TT, +** and keeps TDB approximately centered on TT. Because the +** relationship between TT and TCB depends on the adopted solar +** system ephemeris, the degree of alignment between TDB and TT over +** long intervals will vary according to which ephemeris is used. +** Former definitions of TDB attempted to avoid this problem by +** stipulating that TDB and TT should differ only by periodic +** effects. This is a good description of the nature of the +** relationship but eluded precise mathematical formulation. The +** conventional linear relationship adopted in 2006 sidestepped +** these difficulties whilst delivering a TDB that in practice was +** consistent with values before that date. +** +** 3) TDB is essentially the same as Teph, the time argument for the +** JPL solar system ephemerides. +** +** Reference: +** +** IAU 2006 Resolution B3 +** +*/ + + + + +int iauTdbtt(double tdb1, double tdb2, double dtr, + double *tt1, double *tt2 ) +/* +** - - - - - - - - - +** i a u T d b t t +** - - - - - - - - - +** +** Time scale transformation: Barycentric Dynamical Time, TDB, to +** Terrestrial Time, TT. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tdb1,tdb2 double TDB as a 2-part Julian Date +** dtr double TDB-TT in seconds +** +** Returned: +** tt1,tt2 double TT as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) tdb1+tdb2 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where tdb1 is the Julian +** Day Number and tdb2 is the fraction of a day. The returned +** tt1,tt2 follow suit. +** +** 2) The argument dtr represents the quasi-periodic component of the +** GR transformation between TT and TCB. It is dependent upon the +** adopted solar-system ephemeris, and can be obtained by numerical +** integration, by interrogating a precomputed time ephemeris or by +** evaluating a model such as that implemented in the SOFA function +** iauDtdb. The quantity is dominated by an annual term of 1.7 ms +** amplitude. +** +** 3) TDB is essentially the same as Teph, the time argument for the +** JPL solar system ephemerides. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** IAU 2006 Resolution 3 +** +*/ + + + + +int iauTf2a(char s, int ihour, int imin, double sec, double *rad) +/* +** - - - - - - - - +** i a u T f 2 a +** - - - - - - - - +** +** Convert hours, minutes, seconds to radians. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** s char sign: '-' = negative, otherwise positive +** ihour int hours +** imin int minutes +** sec double seconds +** +** Returned: +** rad double angle in radians +** +** Returned (function value): +** int status: 0 = OK +** 1 = ihour outside range 0-23 +** 2 = imin outside range 0-59 +** 3 = sec outside range 0-59.999... +** +** Notes: +** +** 1) The result is computed even if any of the range checks fail. +** +** 2) Negative ihour, imin and/or sec produce a warning status, but +** the absolute value is used in the conversion. +** +** 3) If there are multiple errors, the status value reflects only the +** first, the smallest taking precedence. +** +*/ + + + + +int iauTf2d(char s, int ihour, int imin, double sec, double *days) +/* +** - - - - - - - - +** i a u T f 2 d +** - - - - - - - - +** +** Convert hours, minutes, seconds to days. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** s char sign: '-' = negative, otherwise positive +** ihour int hours +** imin int minutes +** sec double seconds +** +** Returned: +** days double interval in days +** +** Returned (function value): +** int status: 0 = OK +** 1 = ihour outside range 0-23 +** 2 = imin outside range 0-59 +** 3 = sec outside range 0-59.999... +** +** Notes: +** +** 1) The result is computed even if any of the range checks fail. +** +** 2) Negative ihour, imin and/or sec produce a warning status, but +** the absolute value is used in the conversion. +** +** 3) If there are multiple errors, the status value reflects only the +** first, the smallest taking precedence. +** +*/ + + + + +void iauTr(double r[3][3], double rt[3][3]) +/* +** - - - - - - +** i a u T r +** - - - - - - +** +** Transpose an r-matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** r double[3][3] r-matrix +** +** Returned: +** rt double[3][3] transpose +** +** Note: +** It is permissible for r and rt to be the same array. +** +** Called: +** iauCr copy r-matrix +** +*/ + + + + +void iauTrxp(double r[3][3], double p[3], double trp[3]) +/* +** - - - - - - - - +** i a u T r x p +** - - - - - - - - +** +** Multiply a p-vector by the transpose of an r-matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** r double[3][3] r-matrix +** p double[3] p-vector +** +** Returned: +** trp double[3] r * p +** +** Note: +** It is permissible for p and trp to be the same array. +** +** Called: +** iauTr transpose r-matrix +** iauRxp product of r-matrix and p-vector +** +*/ + + + + +void iauTrxpv(double r[3][3], double pv[2][3], double trpv[2][3]) +/* +** - - - - - - - - - +** i a u T r x p v +** - - - - - - - - - +** +** Multiply a pv-vector by the transpose of an r-matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** r double[3][3] r-matrix +** pv double[2][3] pv-vector +** +** Returned: +** trpv double[2][3] r * pv +** +** Note: +** It is permissible for pv and trpv to be the same array. +** +** Called: +** iauTr transpose r-matrix +** iauRxpv product of r-matrix and pv-vector +** +*/ + + + + +int iauTttai(double tt1, double tt2, double *tai1, double *tai2) +/* +** - - - - - - - - - +** i a u T t t a i +** - - - - - - - - - +** +** Time scale transformation: Terrestrial Time, TT, to International +** Atomic Time, TAI. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tt1,tt2 double TT as a 2-part Julian Date +** +** Returned: +** tai1,tai2 double TAI as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Note: +** +** tt1+tt2 is Julian Date, apportioned in any convenient way between +** the two arguments, for example where tt1 is the Julian Day Number +** and tt2 is the fraction of a day. The returned tai1,tai2 follow +** suit. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +*/ + + + + +int iauTttcg(double tt1, double tt2, double *tcg1, double *tcg2) +/* +** - - - - - - - - - +** i a u T t t c g +** - - - - - - - - - +** +** Time scale transformation: Terrestrial Time, TT, to Geocentric +** Coordinate Time, TCG. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tt1,tt2 double TT as a 2-part Julian Date +** +** Returned: +** tcg1,tcg2 double TCG as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Note: +** +** tt1+tt2 is Julian Date, apportioned in any convenient way between +** the two arguments, for example where tt1 is the Julian Day Number +** and tt2 is the fraction of a day. The returned tcg1,tcg2 follow +** suit. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** IAU 2000 Resolution B1.9 +** +*/ + + + + +int iauTttdb(double tt1, double tt2, double dtr, + double *tdb1, double *tdb2) +/* +** - - - - - - - - - +** i a u T t t d b +** - - - - - - - - - +** +** Time scale transformation: Terrestrial Time, TT, to Barycentric +** Dynamical Time, TDB. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tt1,tt2 double TT as a 2-part Julian Date +** dtr double TDB-TT in seconds +** +** Returned: +** tdb1,tdb2 double TDB as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) tt1+tt2 is Julian Date, apportioned in any convenient way between +** the two arguments, for example where tt1 is the Julian Day Number +** and tt2 is the fraction of a day. The returned tdb1,tdb2 follow +** suit. +** +** 2) The argument dtr represents the quasi-periodic component of the +** GR transformation between TT and TCB. It is dependent upon the +** adopted solar-system ephemeris, and can be obtained by numerical +** integration, by interrogating a precomputed time ephemeris or by +** evaluating a model such as that implemented in the SOFA function +** iauDtdb. The quantity is dominated by an annual term of 1.7 ms +** amplitude. +** +** 3) TDB is essentially the same as Teph, the time argument for the JPL +** solar system ephemerides. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** IAU 2006 Resolution 3 +** +*/ + + + + +int iauTtut1(double tt1, double tt2, double dt, + double *ut11, double *ut12) +/* +** - - - - - - - - - +** i a u T t u t 1 +** - - - - - - - - - +** +** Time scale transformation: Terrestrial Time, TT, to Universal Time, +** UT1. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tt1,tt2 double TT as a 2-part Julian Date +** dt double TT-UT1 in seconds +** +** Returned: +** ut11,ut12 double UT1 as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) tt1+tt2 is Julian Date, apportioned in any convenient way between +** the two arguments, for example where tt1 is the Julian Day Number +** and tt2 is the fraction of a day. The returned ut11,ut12 follow +** suit. +** +** 2) The argument dt is classical Delta T. +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +*/ + + + + +int iauUt1tai(double ut11, double ut12, double dta, + double *tai1, double *tai2) +/* +** - - - - - - - - - - +** i a u U t 1 t a i +** - - - - - - - - - - +** +** Time scale transformation: Universal Time, UT1, to International +** Atomic Time, TAI. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** ut11,ut12 double UT1 as a 2-part Julian Date +** dta double UT1-TAI in seconds +** +** Returned: +** tai1,tai2 double TAI as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) ut11+ut12 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where ut11 is the Julian +** Day Number and ut12 is the fraction of a day. The returned +** tai1,tai2 follow suit. +** +** 2) The argument dta, i.e. UT1-TAI, is an observed quantity, and is +** available from IERS tabulations. +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +*/ + + + + +int iauUt1tt(double ut11, double ut12, double dt, + double *tt1, double *tt2) +/* +** - - - - - - - - - +** i a u U t 1 t t +** - - - - - - - - - +** +** Time scale transformation: Universal Time, UT1, to Terrestrial +** Time, TT. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** ut11,ut12 double UT1 as a 2-part Julian Date +** dt double TT-UT1 in seconds +** +** Returned: +** tt1,tt2 double TT as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) ut11+ut12 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where ut11 is the Julian +** Day Number and ut12 is the fraction of a day. The returned +** tt1,tt2 follow suit. +** +** 2) The argument dt is classical Delta T. +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +*/ + + + + +int iauUt1utc(double ut11, double ut12, double dut1, + double *utc1, double *utc2) +/* +** - - - - - - - - - - +** i a u U t 1 u t c +** - - - - - - - - - - +** +** Time scale transformation: Universal Time, UT1, to Coordinated +** Universal Time, UTC. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** ut11,ut12 double UT1 as a 2-part Julian Date (Note 1) +** dut1 double Delta UT1: UT1-UTC in seconds (Note 2) +** +** Returned: +** utc1,utc2 double UTC as a 2-part quasi Julian Date (Notes 3,4) +** +** Returned (function value): +** int status: +1 = dubious year (Note 5) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) ut11+ut12 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where ut11 is the Julian +** Day Number and ut12 is the fraction of a day. The returned utc1 +** and utc2 form an analogous pair, except that a special convention +** is used, to deal with the problem of leap seconds - see Note 3. +** +** 2) Delta UT1 can be obtained from tabulations provided by the +** International Earth Rotation and Reference Systems Service. The +** value changes abruptly by 1s at a leap second; however, close to +** a leap second the algorithm used here is tolerant of the "wrong" +** choice of value being made. +** +** 3) JD cannot unambiguously represent UTC during a leap second unless +** special measures are taken. The convention in the present +** function is that the returned quasi JD day UTC1+UTC2 represents +** UTC days whether the length is 86399, 86400 or 86401 SI seconds. +** +** 4) The function iauD2dtf can be used to transform the UTC quasi-JD +** into calendar date and clock time, including UTC leap second +** handling. +** +** 5) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the future +** to be trusted. See iauDat for further details. +** +** Called: +** iauJd2cal JD to Gregorian calendar +** iauDat delta(AT) = TAI-UTC +** iauCal2jd Gregorian calendar to JD +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +*/ + + + + +int iauUtctai(double utc1, double utc2, double *tai1, double *tai2) +/* +** - - - - - - - - - - +** i a u U t c t a i +** - - - - - - - - - - +** +** Time scale transformation: Coordinated Universal Time, UTC, to +** International Atomic Time, TAI. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** utc1,utc2 double UTC as a 2-part quasi Julian Date (Notes 1-4) +** +** Returned: +** tai1,tai2 double TAI as a 2-part Julian Date (Note 5) +** +** Returned (function value): +** int status: +1 = dubious year (Note 3) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** 2) JD cannot unambiguously represent UTC during a leap second unless +** special measures are taken. The convention in the present +** function is that the JD day represents UTC days whether the +** length is 86399, 86400 or 86401 SI seconds. In the 1960-1972 era +** there were smaller jumps (in either direction) each time the +** linear UTC(TAI) expression was changed, and these "mini-leaps" +** are also included in the SOFA convention. +** +** 3) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the future +** to be trusted. See iauDat for further details. +** +** 4) The function iauDtf2d converts from calendar date and time of day +** into 2-part Julian Date, and in the case of UTC implements the +** leap-second-ambiguity convention described above. +** +** 5) The returned TAI1,TAI2 are such that their sum is the TAI Julian +** Date. +** +** Called: +** iauJd2cal JD to Gregorian calendar +** iauDat delta(AT) = TAI-UTC +** iauCal2jd Gregorian calendar to JD +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +*/ + + + + +int iauUtcut1(double utc1, double utc2, double dut1, + double *ut11, double *ut12) +/* +** - - - - - - - - - - +** i a u U t c u t 1 +** - - - - - - - - - - +** +** Time scale transformation: Coordinated Universal Time, UTC, to +** Universal Time, UT1. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** utc1,utc2 double UTC as a 2-part quasi Julian Date (Notes 1-4) +** dut1 double Delta UT1 = UT1-UTC in seconds (Note 5) +** +** Returned: +** ut11,ut12 double UT1 as a 2-part Julian Date (Note 6) +** +** Returned (function value): +** int status: +1 = dubious year (Note 3) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** 2) JD cannot unambiguously represent UTC during a leap second unless +** special measures are taken. The convention in the present +** function is that the JD day represents UTC days whether the +** length is 86399, 86400 or 86401 SI seconds. +** +** 3) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the future +** to be trusted. See iauDat for further details. +** +** 4) The function iauDtf2d converts from calendar date and time of +** day into 2-part Julian Date, and in the case of UTC implements +** the leap-second-ambiguity convention described above. +** +** 5) Delta UT1 can be obtained from tabulations provided by the +** International Earth Rotation and Reference Systems Service. +** It is the caller's responsibility to supply a dut1 argument +** containing the UT1-UTC value that matches the given UTC. +** +** 6) The returned ut11,ut12 are such that their sum is the UT1 Julian +** Date. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +** Called: +** iauJd2cal JD to Gregorian calendar +** iauDat delta(AT) = TAI-UTC +** iauUtctai UTC to TAI +** iauTaiut1 TAI to UT1 +** +*/ + + + + +void iauXy06(double date1, double date2, double *x, double *y) +/* +** - - - - - - - - +** i a u X y 0 6 +** - - - - - - - - +** +** X,Y coordinates of celestial intermediate pole from series based +** on IAU 2006 precession and IAU 2000A nutation. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** x,y double CIP X,Y coordinates (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The X,Y coordinates are those of the unit vector towards the +** celestial intermediate pole. They represent the combined effects +** of frame bias, precession and nutation. +** +** 3) The fundamental arguments used are as adopted in IERS Conventions +** (2003) and are from Simon et al. (1994) and Souchay et al. +** (1999). +** +** 4) This is an alternative to the angles-based method, via the SOFA +** function iauFw2xy and as used in iauXys06a for example. The two +** methods agree at the 1 microarcsecond level (at present), a +** negligible amount compared with the intrinsic accuracy of the +** models. However, it would be unwise to mix the two methods +** (angles-based and series-based) in a single application. +** +** Called: +** iauFal03 mean anomaly of the Moon +** iauFalp03 mean anomaly of the Sun +** iauFaf03 mean argument of the latitude of the Moon +** iauFad03 mean elongation of the Moon from the Sun +** iauFaom03 mean longitude of the Moon's ascending node +** iauFame03 mean longitude of Mercury +** iauFave03 mean longitude of Venus +** iauFae03 mean longitude of Earth +** iauFama03 mean longitude of Mars +** iauFaju03 mean longitude of Jupiter +** iauFasa03 mean longitude of Saturn +** iauFaur03 mean longitude of Uranus +** iauFane03 mean longitude of Neptune +** iauFapa03 general accumulated precession in longitude +** +** References: +** +** Capitaine, N., Wallace, P.T. & Chapront, J., 2003, +** Astron.Astrophys., 412, 567 +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** McCarthy, D. D., Petit, G. (eds.), 2004, IERS Conventions (2003), +** IERS Technical Note No. 32, BKG +** +** Simon, J.L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G. & Laskar, J., Astron.Astrophys., 1994, 282, 663 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M., 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +*/ + + + + +void iauXys00a(double date1, double date2, + double *x, double *y, double *s) +/* +** - - - - - - - - - - +** i a u X y s 0 0 a +** - - - - - - - - - - +** +** For a given TT date, compute the X,Y coordinates of the Celestial +** Intermediate Pole and the CIO locator s, using the IAU 2000A +** precession-nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** x,y double Celestial Intermediate Pole (Note 2) +** s double the CIO locator s (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The Celestial Intermediate Pole coordinates are the x,y +** components of the unit vector in the Geocentric Celestial +** Reference System. +** +** 3) The CIO locator s (in radians) positions the Celestial +** Intermediate Origin on the equator of the CIP. +** +** 4) A faster, but slightly less accurate result (about 1 mas for +** X,Y), can be obtained by using instead the iauXys00b function. +** +** Called: +** iauPnm00a classical NPB matrix, IAU 2000A +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS00 the CIO locator s, given X,Y, IAU 2000A +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +void iauXys00b(double date1, double date2, + double *x, double *y, double *s) +/* +** - - - - - - - - - - +** i a u X y s 0 0 b +** - - - - - - - - - - +** +** For a given TT date, compute the X,Y coordinates of the Celestial +** Intermediate Pole and the CIO locator s, using the IAU 2000B +** precession-nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** x,y double Celestial Intermediate Pole (Note 2) +** s double the CIO locator s (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The Celestial Intermediate Pole coordinates are the x,y +** components of the unit vector in the Geocentric Celestial +** Reference System. +** +** 3) The CIO locator s (in radians) positions the Celestial +** Intermediate Origin on the equator of the CIP. +** +** 4) The present function is faster, but slightly less accurate (about +** 1 mas in X,Y), than the iauXys00a function. +** +** Called: +** iauPnm00b classical NPB matrix, IAU 2000B +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS00 the CIO locator s, given X,Y, IAU 2000A +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +*/ + + + + +void iauXys06a(double date1, double date2, + double *x, double *y, double *s) +/* +** - - - - - - - - - - +** i a u X y s 0 6 a +** - - - - - - - - - - +** +** For a given TT date, compute the X,Y coordinates of the Celestial +** Intermediate Pole and the CIO locator s, using the IAU 2006 +** precession and IAU 2000A nutation models. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** x,y double Celestial Intermediate Pole (Note 2) +** s double the CIO locator s (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The Celestial Intermediate Pole coordinates are the x,y components +** of the unit vector in the Geocentric Celestial Reference System. +** +** 3) The CIO locator s (in radians) positions the Celestial +** Intermediate Origin on the equator of the CIP. +** +** 4) Series-based solutions for generating X and Y are also available: +** see Capitaine & Wallace (2006) and iauXy06. +** +** Called: +** iauPnm06a classical NPB matrix, IAU 2006/2000A +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS06 the CIO locator s, given X,Y, IAU 2006 +** +** References: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +*/ + + + + +void iauZp(double p[3]) +/* +** - - - - - - +** i a u Z p +** - - - - - - +** +** Zero a p-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Returned: +** p double[3] p-vector +** +*/ + + + + +void iauZpv(double pv[2][3]) +/* +** - - - - - - - +** i a u Z p v +** - - - - - - - +** +** Zero a pv-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Returned: +** pv double[2][3] pv-vector +** +** Called: +** iauZp zero p-vector +** +*/ + + + + +void iauZr(double r[3][3]) +/* +** - - - - - - +** i a u Z r +** - - - - - - +** +** Initialize an r-matrix to the null matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Returned: +** r double[3][3] r-matrix +** +*/ + + +copyr.lis 2015 January 5 + + +COPYRIGHT NOTICE + + +Text equivalent to the following appears at the end of every SOFA +routine. (There are small formatting differences between the Fortran +and C versions.) + +*+---------------------------------------------------------------------- +* +* Copyright (C) 2015 +* Standards Of Fundamental Astronomy Board +* of the International Astronomical Union. +* +* ===================== +* SOFA Software License +* ===================== +* +* NOTICE TO USER: +* +* BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +* CONDITIONS WHICH APPLY TO ITS USE. +* +* 1. The Software is owned by the IAU SOFA Board ("SOFA"). +* +* 2. Permission is granted to anyone to use the SOFA software for any +* purpose, including commercial applications, free of charge and +* without payment of royalties, subject to the conditions and +* restrictions listed below. +* +* 3. You (the user) may copy and distribute SOFA source code to others, +* and use and adapt its code and algorithms in your own software, +* on a world-wide, royalty-free basis. That portion of your +* distribution that does not consist of intact and unchanged copies +* of SOFA source code files is a "derived work" that must comply +* with the following requirements: +* +* a) Your work shall be marked or carry a statement that it +* (i) uses routines and computations derived by you from +* software provided by SOFA under license to you; and +* (ii) does not itself constitute software provided by and/or +* endorsed by SOFA. +* +* b) The source code of your derived work must contain descriptions +* of how the derived work is based upon, contains and/or differs +* from the original SOFA software. +* +* c) The names of all routines in your derived work shall not +* include the prefix "iau" or "sofa" or trivial modifications +* thereof such as changes of case. +* +* d) The origin of the SOFA components of your derived work must +* not be misrepresented; you must not claim that you wrote the +* original software, nor file a patent application for SOFA +* software or algorithms embedded in the SOFA software. +* +* e) These requirements must be reproduced intact in any source +* distribution and shall apply to anyone to whom you have +* granted a further right to modify the source code of your +* derived work. +* +* Note that, as originally distributed, the SOFA software is +* intended to be a definitive implementation of the IAU standards, +* and consequently third-party modifications are discouraged. All +* variations, no matter how minor, must be explicitly marked as +* such, as explained above. +* +* 4. You shall not cause the SOFA software to be brought into +* disrepute, either by misuse, or use for inappropriate tasks, or +* by inappropriate modification. +* +* 5. The SOFA software is provided "as is" and SOFA makes no warranty +* as to its use or performance. SOFA does not and cannot warrant +* the performance or results which the user may obtain by using the +* SOFA software. SOFA makes no warranties, express or implied, as +* to non-infringement of third party rights, merchantability, or +* fitness for any particular purpose. In no event will SOFA be +* liable to the user for any consequential, incidental, or special +* damages, including any lost profits or lost savings, even if a +* SOFA representative has been advised of such damages, or for any +* claim by any third party. +* +* 6. The provision of any version of the SOFA software under the terms +* and conditions specified herein does not imply that future +* versions will also be made available under the same terms and +* conditions. +* +* In any published work or commercial product which uses the SOFA +* software directly, acknowledgement (see www.iausofa.org) is +* appreciated. +* +* Correspondence concerning SOFA software should be addressed as +* follows: +* +* By email: sofa@ukho.gov.uk +* By post: IAU SOFA Center +* HM Nautical Almanac Office +* UK Hydrographic Office +* Admiralty Way, Taunton +* Somerset, TA1 2DN +* United Kingdom +* +*----------------------------------------------------------------------- + + +consts.lis 2008 September 30 + + +SOFA Fortran constants +---------------------- + +These must be used exactly as presented below. + +* Pi + DOUBLE PRECISION DPI + PARAMETER ( DPI = 3.141592653589793238462643D0 ) + +* 2Pi + DOUBLE PRECISION D2PI + PARAMETER ( D2PI = 6.283185307179586476925287D0 ) + +* Radians to hours + DOUBLE PRECISION DR2H + PARAMETER ( DR2H = 3.819718634205488058453210D0 ) + +* Radians to seconds + DOUBLE PRECISION DR2S + PARAMETER ( DR2S = 13750.98708313975701043156D0 ) + +* Radians to degrees + DOUBLE PRECISION DR2D + PARAMETER ( DR2D = 57.29577951308232087679815D0 ) + +* Radians to arc seconds + DOUBLE PRECISION DR2AS + PARAMETER ( DR2AS = 206264.8062470963551564734D0 ) + +* Hours to radians + DOUBLE PRECISION DH2R + PARAMETER ( DH2R = 0.2617993877991494365385536D0 ) + +* Seconds to radians + DOUBLE PRECISION DS2R + PARAMETER ( DS2R = 7.272205216643039903848712D-5 ) + +* Degrees to radians + DOUBLE PRECISION DD2R + PARAMETER ( DD2R = 1.745329251994329576923691D-2 ) + +* Arc seconds to radians + DOUBLE PRECISION DAS2R + PARAMETER ( DAS2R = 4.848136811095359935899141D-6 ) + + +SOFA C constants +---------------- + +The constants used by the C version of SOFA are defined in the header +file sofam.h. + + +#ifndef SOFAMHDEF +#define SOFAMHDEF + +/* +** - - - - - - - - +** s o f a m . h +** - - - - - - - - +** +** Macros used by SOFA library. +** +** This file is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Please note that the constants defined below are to be used only in +** the context of the SOFA software, and have no other official IAU +** status. In addition, self consistency is not guaranteed. +** +** This revision: 2013 August 27 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ + +/* Star-independent astrometry parameters */ +typedef struct { + double pmt; /* PM time interval (SSB, Julian years) */ + double eb[3]; /* SSB to observer (vector, au) */ + double eh[3]; /* Sun to observer (unit vector) */ + double em; /* distance from Sun to observer (au) */ + double v[3]; /* barycentric observer velocity (vector, c) */ + double bm1; /* sqrt(1-|v|^2): reciprocal of Lorenz factor */ + double bpn[3][3]; /* bias-precession-nutation matrix */ + double along; /* longitude + s' + dERA(DUT) (radians) */ + double phi; /* geodetic latitude (radians) */ + double xpl; /* polar motion xp wrt local meridian (radians) */ + double ypl; /* polar motion yp wrt local meridian (radians) */ + double sphi; /* sine of geodetic latitude */ + double cphi; /* cosine of geodetic latitude */ + double diurab; /* magnitude of diurnal aberration vector */ + double eral; /* "local" Earth rotation angle (radians) */ + double refa; /* refraction constant A (radians) */ + double refb; /* refraction constant B (radians) */ +} iauASTROM; +/* (Vectors eb, eh, em and v are all with respect to BCRS axes.) */ + +/* Body parameters for light deflection */ +typedef struct { + double bm; /* mass of the body (solar masses) */ + double dl; /* deflection limiter (radians^2/2) */ + double pv[2][3]; /* barycentric PV of the body (au, au/day) */ +} iauLDBODY; + +/* Pi */ +#define DPI (3.141592653589793238462643) + +/* 2Pi */ +#define D2PI (6.283185307179586476925287) + +/* Radians to degrees */ +#define DR2D (57.29577951308232087679815) + +/* Degrees to radians */ +#define DD2R (1.745329251994329576923691e-2) + +/* Radians to arcseconds */ +#define DR2AS (206264.8062470963551564734) + +/* Arcseconds to radians */ +#define DAS2R (4.848136811095359935899141e-6) + +/* Seconds of time to radians */ +#define DS2R (7.272205216643039903848712e-5) + +/* Arcseconds in a full circle */ +#define TURNAS (1296000.0) + +/* Milliarcseconds to radians */ +#define DMAS2R (DAS2R / 1e3) + +/* Length of tropical year B1900 (days) */ +#define DTY (365.242198781) + +/* Seconds per day. */ +#define DAYSEC (86400.0) + +/* Days per Julian year */ +#define DJY (365.25) + +/* Days per Julian century */ +#define DJC (36525.0) + +/* Days per Julian millennium */ +#define DJM (365250.0) + +/* Reference epoch (J2000.0), Julian Date */ +#define DJ00 (2451545.0) + +/* Julian Date of Modified Julian Date zero */ +#define DJM0 (2400000.5) + +/* Reference epoch (J2000.0), Modified Julian Date */ +#define DJM00 (51544.5) + +/* 1977 Jan 1.0 as MJD */ +#define DJM77 (43144.0) + +/* TT minus TAI (s) */ +#define TTMTAI (32.184) + +/* Astronomical unit (m) */ +#define DAU (149597870e3) + +/* Speed of light (m/s) */ +#define CMPS 299792458.0 + +/* Light time for 1 au (s) */ +#define AULT 499.004782 + +/* Speed of light (AU per day) */ +#define DC (DAYSEC / AULT) + +/* L_G = 1 - d(TT)/d(TCG) */ +#define ELG (6.969290134e-10) + +/* L_B = 1 - d(TDB)/d(TCB), and TDB (s) at TAI 1977/1/1.0 */ +#define ELB (1.550519768e-8) +#define TDB0 (-6.55e-5) + +/* Schwarzschild radius of the Sun (au) */ +/* = 2 * 1.32712440041e20 / (2.99792458e8)^2 / 1.49597870700e11 */ +#define SRS 1.97412574336e-8 + +/* dint(A) - truncate to nearest whole number towards zero (double) */ +#define dint(A) ((A)<0.0?ceil(A):floor(A)) + +/* dnint(A) - round to nearest whole number (double) */ +#define dnint(A) ((A)<0.0?ceil((A)-0.5):floor((A)+0.5)) + +/* dsign(A,B) - magnitude of A with sign of B (double) */ +#define dsign(A,B) ((B)<0.0?-fabs(A):fabs(A)) + +/* max(A,B) - larger (most +ve) of two numbers (generic) */ +#define gmax(A,B) (((A)>(B))?(A):(B)) + +/* min(A,B) - smaller (least +ve) of two numbers (generic) */ +#define gmin(A,B) (((A)<(B))?(A):(B)) + +/* Reference ellipsoids */ +#define WGS84 1 +#define GRS80 2 +#define WGS72 3 + +#endif + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + + +board.lis 2014 February 20 + + + +IAU STANDARDS OF FUNDAMENTAL ASTRONOMY BOARD + + +Current Membership + + John Bangert United States Naval Observatory, retired + Steven Bell Her Majesty's Nautical Almanac Office + Nicole Capitaine Paris Observatory + William Folkner Jet Propulsion Laboratory + Catherine Hohenkerk Her Majesty's Nautical Almanac Office (Chair) + Jinling Li Shanghai Astronomical Observatory + Brian Luzum United States Naval Observatory (IERS) + Zinovy Malkin Pulkovo Observatory, St Petersburg + Jeffrey Percival University of Wisconsin + Scott Ransom National Radio Astronomy Observatory + Patrick Wallace RAL Space, retired + + +Past Members + + Mark Calabretta Australia Telescope National Facility, retired + Wim Brouw University of Groningen + Anne-Marie Gontier Paris Observatory + George Hobbs Australia Telescope National Facility + George Kaplan United States Naval Observatory + Dennis McCarthy United States Naval Observatory + Skip Newhall Jet Propulsion Laboratory + Jin Wen-Jing Shanghai Observatory + + +The e-mail for the Board chair is Catherine.Hohenkerk@ukho.gov.uk + + Index: /trunk/FACT++/sofa/doc/sofa_ast_c.pdf =================================================================== --- /trunk/FACT++/sofa/doc/sofa_ast_c.pdf (revision 18346) +++ /trunk/FACT++/sofa/doc/sofa_ast_c.pdf (revision 18346) @@ -0,0 +1,11374 @@ +%PDF-1.4 +%äðíø +9 0 obj +<>/Rect[235.772 +169.184 361.771 179.184]>> +endobj +10 0 obj +<> +stream +xÚmS˒Ó0¼ós”žèeIæÆ+\RË.“8&U±µ«(›Ú¿gd‘`j)$µfzzÚ#x ‚> N³ +ú¶#¼maµ– %6u +í +¤蠒ڣ’Ðî¾³Oג¥>N]:„©;òJ;ÃޜR +SۂÔìëD×üGû™((ÖêLY9ÎCE”Bϔ÷©›v]ä¦a»%ÓºÙÓZ +¶æÄ}¦Û±ŸÒÌL—¹VÎõžç +Zxԍ‡K®ä-Ñ +VÂF+´þ +á +îÑEŽ®ÉMÑ×3ûkðìŠeH·›]mMQ†ŒúÓÃfÍ¥ H¢ÅŽ±Oñ9Ÿk¹s,ðJÕ, +O/4gÆ/d܀¥Ž-Z‘-\´X€ +jCZ±Í¬Ú +$ѵÑhl +ö‰+Ç.\yÖŞ´jŞ2ÔÇSþ}h&å,¸r(}ž̳AéïsCŽmÏôsrN*á±:,’Ñ–lmкeú7îõ?uö!–Í»²<Ä0Än +ӐÎÝ4œ»¡¿ú—'8Ï痏·m +Jãõ²qKG¥ë†¦Øϵ¥ôðzµº\.xèΧ°ï0Äá/o& +þó +¼Dz0•5deaRBš2ð›m +?i+©©‚È+áÝ«ß9ׄ +endstream +endobj +11 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +14 0 obj +<> +stream +xÚµUMsÓ0½ó+|CžÁÆòg|LJ;iiIÃtÊAqD#¢HA–[ʯg¥µK:I˜^˜Ì$±ý´ïí¾Ýuð3 ATiP•u<ªƒfLæÁÛ³< I\'u0ÿ +Ð2s"ZçqMƒùò+¹¾< +)MÈ8Œ²,%“Ë0­ÈxöÎ]fäâôbr:»¿Í§Áé|?`•ÆUDišÅ¹7Õ+ +G'LÝqcýQš•qR‚@ù¬„åK][fy‹ÿ?2G}aÕ\.ZnðŽÕæq·Äp+ +_ކ>xÔG‡ß¸(0)ËïÃtDø  +K¹/ä=7}–,Œ€ão­“ðøúIQgEƒb22–¦Xƒ—· -~LÀ3kž0É ز}㮵†IÁ:GᒷÞ†რ++´B99s(Ö)P,VêEù(-ù j+,Šï‹ºrQ™ía +Ž¿òØ`t/Q˵‚ïşr‹¨+£·l!5¼>g +ÈzD´ù'Ó ³+nœtê½^qµvš9”ü + +—ƒÇéqó'û®k +Ɋ s¨ÄØýçÁS¡¤Pwûr®W0£gûµÒ›¿ü/¬öÄ6T­ûÝmþǐ}€¹?ÞL_„ÒnÂî‡òʵPº©“Þ +»/ýœ5ïYG9y3ÈíûÛj¹i¹;&dÊÁ¥ÌðÇÝC¦ºt) +ªÌ=‚Z7A£a‚ôwŒp#`þTÛ'sh¹4ÚögLµú@õw'Ö¡–B?wüir_lù•“ʬ¾ +רù& +¥¤d́AžÏû‚nÙß.~¾&ޞ•A +×eæ–yDi—Öy´™Òô°j;¿ +¢Pýb?Íã¬èuœÀ6séq·rI@íòÐcêt}Q–dÆ}ëK8LižÃ½­Ñ~á,»Æ‘Bû•)¸°d[ËvnhƒA`U«Vú'ž6AF´çAؕî\j lk„;”—5y0ÂZ÷ò÷= +7ÑâÚs·hñ^‰ +›Zà-xüjøÖ"ˆõ &£]nÌVúázÀô°1:µ +lK\g;*™Û‡m<¼ä?½úM4:c +endstream +endobj +15 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +19 0 obj +<>/Rect[72 +682.776 161.183 690.352]>> +endobj +20 0 obj +<>/Rect[88.364 +669.095 173.182 676.67]>> +endobj +21 0 obj +<>/Rect[88.364 +653.292 167.485 662.989]>> +endobj +22 0 obj +<>/Rect[72 +628.172 277.937 637.869]>> +endobj +23 0 obj +<>/Rect[88.364 +614.491 208.394 624.187]>> +endobj +24 0 obj +<>/Rect[88.364 +602.93 208.758 610.506]>> +endobj +25 0 obj +<>/Rect[88.364 +589.249 215.758 596.825]>> +endobj +26 0 obj +<>/Rect[72 +562.008 182.396 571.705]>> +endobj +27 0 obj +<>/Rect[72 +536.888 225.864 546.585]>> +endobj +28 0 obj +<>/Rect[88.364 +525.328 168.728 532.903]>> +endobj +29 0 obj +<>/Rect[88.364 +509.525 241.061 519.222]>> +endobj +30 0 obj +<>/Rect[88.364 +495.843 187.849 505.54]>> +endobj +31 0 obj +<>/Rect[88.364 +484.283 165.637 491.859]>> +endobj +32 0 obj +<>/Rect[88.364 +470.602 245.788 478.177]>> +endobj +33 0 obj +<>/Rect[88.364 +454.799 266.091 464.496]>> +endobj +34 0 obj +<>/Rect[88.364 +441.117 266.152 450.814]>> +endobj +35 0 obj +<>/Rect[88.364 +427.436 223 437.133]>> +endobj +36 0 obj +<>/Rect[88.364 +413.754 193.212 423.451]>> +endobj +37 0 obj +<>/Rect[72 +388.635 286.431 398.332]>> +endobj +38 0 obj +<>/Rect[88.364 +374.953 310.334 384.65]>> +endobj +39 0 obj +<>/Rect[88.364 +361.272 277.334 370.969]>> +endobj +40 0 obj +<>/Rect[88.364 +347.59 278.728 357.287]>> +endobj +41 0 obj +<>/Rect[72 +322.47 135.985 332.167]>> +endobj +42 0 obj +<>/Rect[72 +297.35 247.313 307.047]>> +endobj +43 0 obj +<>/Rect[88.364 +285.79 117.152 293.366]>> +endobj +44 0 obj +<>/Rect[88.364 +269.988 127.758 279.563]>> +endobj +45 0 obj +<>/Rect[88.364 +256.306 138.667 265.882]>> +endobj +46 0 obj +<>/Rect[88.364 +242.625 125.333 252.2]>> +endobj +47 0 obj +<>/Rect[88.364 +228.943 136.243 238.519]>> +endobj +48 0 obj +<>/Rect[88.364 +215.262 127.758 224.837]>> +endobj +49 0 obj +<>/Rect[88.364 +201.58 138.667 211.156]>> +endobj +50 0 obj +<>/Rect[88.364 +187.899 126.606 197.474]>> +endobj +51 0 obj +<>/Rect[88.364 +174.217 137.515 183.793]>> +endobj +52 0 obj +<>/Rect[88.364 +160.536 126.576 170.111]>> +endobj +53 0 obj +<>/Rect[88.364 +146.854 137.485 156.43]>> +endobj +54 0 obj +<>/Rect[88.364 +133.173 125.637 142.748]>> +endobj +55 0 obj +<>/Rect[88.364 +119.491 136.546 129.067]>> +endobj +56 0 obj +<>/Rect[88.364 +107.931 133.818 115.385]>> +endobj +57 0 obj +<>/Rect[88.364 +92.128 128.667 101.704]>> +endobj +58 0 obj +<>/Rect[88.364 +78.447 134.727 88.022]>> +endobj +59 0 obj +<>/Rect[88.364 +64.765 133.515 74.341]>> +endobj +60 0 obj +<> +stream +xÚí›ÍrÛ6€ï} +NOÒA(ñKâè&n§NÒ4êôÐôÀP° +‰$* •±óô P%'"Q¶SÛ +HËÄØow±»°¢Œbý£E ã åQ¾¾_FßýF0<æÑòF?±@ +@ +-WÎ^¼~µ¼~µ|;ÿkù³~ŽxÏB¡úñú9)eóÈõÒä$f287‹Ý +ÃY%Ì¥lG陁ZØo? +oÕ­‘ãîìÒ@؃óGtö«¹•»LIá ¬%=$‚ ¤+çò,ü¥C0‹0ŽAj=#4ûi7GɬRÅ|¡¯«C^I½â‡æÔ@‰/Ì4Ž§K}ñ +«k)Ðw>‡@ÚXIKY’o2¯Y~˜/0Ƴ²ÊTÕ¤“8! +@Ò æ€5£‘‰ +˵ÐôRMï°ßë;4+T%Væ³¼°Ÿ¬tè¨ÚïËJlD÷Nh|d֌ŽaäEVe›â֘^=Q” +'Z^¶BÂO:¢5Âùdb¾NB1­]kfÇhñ⠔0±ßƒ–„@sâ'h-4§-#¶Ð^¿/ +úTCkbÂ?¢æäOÔZjN'4 š£˜‚Ä@Ç&œ¿¥¼Ý™@½Wr—ËýfHÆçILB&„užÑ†ŽfBW›ÛBÉj­7ŒfRÙÎî-YžT–ߘ›ÎÃL +鄜ڭ踑,åVØ&Ï6} +Úf0ž´)uéoóžÚB1Ò b1¶ÛËÛ}–[ŽÛ¢))ô=±ö¦?Üg*Ûl²»Ëxê¼å¦çQbçELnù¡˜]Ób‹©ÝP~‘·k/X‰w1¤¢g +ˆ  °#øÙùX‡ý—"ÀpGQ0„˜RÀ  +H,Ä«÷Mº-”Ê)TÀèÔŒ‘s€¸ÅH-Æk]¯¯fU%«ÃJœMUT= ëD†ÃÎ{žT’w‘[7 +l±`ˆê<Ù bmr2OQíg¢¬”Ì654ۛb·”í6צUÉÕ7&IÏeUÿzOêÔʟÃ#Çw ˜·Ò``ˆF-°Ä{)jg@i*'q24#ié¸>u:n¥ÁtH +p›}¤íÆÕ¤ +ۢܯ +’¹ +râF"ý +¥uGßþÈSˆ1`9e@‹·Yo{&–ÕNbÝék%cG*Ž;2ŸM¿a 8§¡^àN«}œðöŒšjÿ9§³B}»º1«·®O2³å~}!³½y±Ý¼³=íº«út`ç­šG Efâ®°î +c!w+aöY¡ïü¶e¦·âb+*uß6ÄÌ_¿´ÿýHWIڙÀã´ +7ÿP$f€ZÈÏvT¶+o +µm¶ÌÒd<‡ÒX”Vwµ¶Iê ½C½Pÿ¥.$\Bâ–LŦI[¯ÿþ€æß½;×X™C¡úor+¾5·7‡]nÐõ¦â^üô°¸µAc Ñ,šá̄Øë»l»ßˆžÁÒ +‡! +f’Äu/Ì´ƒm?w¿®ÓZ +³E%ó&ÓÕq}#ËÊôâÆ\¿nÌÔ½ + +;‘”³Éìpõþ¢ýQ\7ß½aÏ4Oø·]à¨_x4Et”¤G²&øä·3 ê +ÿ/:«Ï ­Ó,bal)„€°3¶þ&öº:`0Ø0 +«§R”bE:³&§Xe_—õ†O.;.[§Y”²Å)HñÛ.ëLGÂêTŠÏë(EõñÚ Ö¢·Ëºá“ËŽËÖižÿPÆägl¸¬0 + «S)ì›Ò„ƒ49ÅZövY7|rÙqÙ:ÍâÀj–r +(=c;Àe€‰àHXJq`½Ãâ ÓäI¨¾.ë +Ÿ\vT¶žfq`ÑÃPó_§lû»¬'`"8V§R +Xï0L€×¡½Sb7pòÕq¡ +‹‹ +FÒöKê/uc'v#u*%%«¿BéÜ´9 +ҔðÆOTG¢êTJ+ +–Ðö +Տ½#°> +àqÙ:͒Àg–r€ÑÛ]ouã'€#Qu*%ukã3¤Ÿû"mO<ÇáÙê“ +«Õ7ßü +:e#· +endstream +endobj +61 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +63 0 obj +<>/Rect[88.364 +707.896 136.243 715.35]>> +endobj +64 0 obj +<>/Rect[88.364 +694.347 133.818 701.801]>> +endobj +65 0 obj +<>/Rect[88.364 +678.676 128.667 688.252]>> +endobj +66 0 obj +<>/Rect[88.364 +665.127 134.727 674.703]>> +endobj +67 0 obj +<>/Rect[88.364 +653.699 134.424 661.154]>> +endobj +68 0 obj +<>/Rect[88.364 +638.029 129.576 647.604]>> +endobj +69 0 obj +<>/Rect[88.364 +626.601 136.546 634.055]>> +endobj +70 0 obj +<>/Rect[88.364 +613.051 134.424 620.506]>> +endobj +71 0 obj +<>/Rect[88.364 +597.381 129.273 606.957]>> +endobj +72 0 obj +<>/Rect[88.364 +585.953 115.788 593.529]>> +endobj +73 0 obj +<>/Rect[88.364 +572.404 121.849 579.98]>> +endobj +74 0 obj +<>/Rect[88.364 +558.855 132.212 566.43]>> +endobj +75 0 obj +<>/Rect[88.364 +543.184 130.94 552.76]>> +endobj +76 0 obj +<>/Rect[88.364 +531.756 131.849 539.332]>> +endobj +77 0 obj +<>/Rect[88.364 +518.207 129.424 525.783]>> +endobj +78 0 obj +<>/Rect[72 +493.749 165.463 501.325]>> +endobj +79 0 obj +<>/Rect[72 +469.29 147.266 476.866]>> +endobj +80 0 obj +<>/Rect[72 +442.711 125.568 452.408]>> +endobj +81 0 obj +<> +stream +xÚí™OoÚ0Æïû>’CÞù¿ã#›ºIÓÔm]nÕÒ)‡ õãÏi¶¼&tÂXîÍB +ü¼ϏÇ~IȖ0B݋ÉÑ*K–äCMÞ’„Q°Ô’úÞÍ(¹&H½ºµ‡âWýÅͨ¼Â2PÆMìg|üv]_]×?_æ]Õý ÜûÍçñãî÷é*LƒÐ¤Ô +¬ +Vº{šÜÌöˎ ,ÖWyEn(hæË¡(¥µý (ÍÇ¿Æž*%-|G¥‰Cj(yŒ´]†#EyFš):ªh +ÒʵS¤Û³D5Æ}õ™¯“i_U,,£®ÒIX·ëаzúÌ/ +TÏRÅ#©º‘MózÁ©êé3ÕDTÑR%#©r +fšÕ®(ݼ{5ò^œ0:«"'&ðIl¾´O^‘L1Z´TÙH´JC5Én×^@õ™j"ªh©Ž=g + +1 +l¾£>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +85 0 obj +<>/Rect[340.379 +518.657 345.834 525.687]>> +endobj +86 0 obj +<>/Rect[390.353 +518.657 395.808 525.687]>> +endobj +87 0 obj +<>/Rect[467.364 +377.465 472.819 384.495]>> +endobj +88 0 obj +<>/Rect[106.964 +352.082 112.418 359.113]>> +endobj +90 0 obj +<>/Rect[392.008 +258.954 397.463 265.984]>> +endobj +91 0 obj +<> +stream +xڝYKsä¸ +¾çW蔨+n¨·2§É$“òVm6³vNë­-ÑݬQK=¢dÿ}ÔÃ-ï<ʇ&AA<>ÐÞgOx!ü /¼<+ƒ¢ôª“÷÷[ï͇ÄaP†¥wûà%IÀheˆ½Ûú7_ì~¿ýÉûç-ñ–žH‚8ɐ7ôö™ʒÙöBD‰ÿŸ^5ú¤[ÙkeV[ +'€;MykYiA[ڜú×í.þÐw»} +úõX +ºk­µ–°=Ž‚„¼ùåÃNῃMiá›A¶µÁqé?t=ïb±½ˆƒ"!v7²Ë~— +ßî*„ÿËý~Øå©?ÂêIµƒlúïÌÌ¡ßµÝé9ØÐM”q R–~{T¤)NJvÃ.Êý§]Tø²g&ÍjKú©º¦Qd;ï +ìçöQžaäíE + 5á3vEìwýÐK˚ùyN¿p6 +äþ»ß\é=ý˜ñþÜw‡^ž +q +G9В>gÞE™oI©ßÝ +"«´5ð^¿CåÿKk²9t½ +ŽNÝÊy`Û!/ØooµIïÄê-Á˜hHäxÞí“4‚CŸÎã ñÔ&Øí‹0óíÇ\ŽAKEƒs¯ +‹æ}²KÉ̳0:N/ŽTü`¯ +8«Š,!)kݪ“Éápöj`[”à +Žç3Œ +¼U힏 +ã4¥ßqЍ +вv!÷ïü“Ômcg¥ÿˆ[àλþÍI½þr·#¶és`“v[Ç +U×+]wVjœLN®ƒk.VG°vŠ‹låœ0]ù]‘ü5Ú +†fÝSiŒ¿Hð¼H!gÃAs>Ê{«tEÄæRø`߁EZÅ"eÓ0˹ +iS«Aê¾q¡?¸€´×sß €Ø:;<îŽc_·ôKgÑ ƾ²ãØÑ:ðšZµìžZ?êz´Þó +íY‡( +âbàe¹öG$Ô$œ¯ƒ"©,ü†n©ûdˆ +ƒ. Có05j2=R­J@^ÞL·S]ü¨B¥qçD¤[UDªP»£´&)ËI¶4û +ß軓ÄËÃ3Af1àD'é> +ghtûI·â¸ó5ú*Ò!÷D¬å ‰öòˆÆ„ +–šî@ò +’2‰¡+bwoTO‘Álµî'Ec>¼æ܉€Û¯ 5“Èïe­í0Žòï +YGÜ6ÃôcgsFë¤Ñï}!ð¸¾Ae +0åÿú¯iØ.‹k”è7à>"ˆ^T×Ðý[› Û§Ùj“=7èv–‡ïU! Bº’}U +8‚‚)V›Ð|Y9›ï"ù™ Äà +¢I¢HªaNäâÂFÈz¶ÂDPv5Ié9B Ø%ë,8™U¯9Ï¢ +”S›Uq”Q"wΌK½zP½j+æ4ÏfP'Þ?ÊÞÙ"{ϵ@õs˜5¿9BÒ§íê‹ÄâiHD­N,;ƒ"û«Ú³ +QŽ_]•˜lâ§:£z +G^9²|ŠðA0ºíڋȽоUª¶qµÈ–ò|nt5ź͟6Å@–ʦíp±Õ}eyÿáú¾aõAVØéZèCÛôø€Ëè;Iö´Ý>CÊŸ  +¥Ø´) +{r‚J¸èJ2z†!·ýé +—!õÈ&‰€‘ðCã)DqÝÙâ™:"ëa[}Ùπ×v ìäs€cz +ø—Üö ùÞitIêŠÑ +Ё±÷׿ÞÐè7WУemMò rå +Úðxý·‡² +§ÙÖÓT(Šwü¾F|?–¡4†âS$%ߘ‚cB"ËMs›>{H„÷MOåÀ•Øpœ<(ÂÓ¬ñn¼$÷|H ±I¡‹äE퇭)Ô?úí«+ÔnpîÝ vƒ/<è +3\’XŒ# +ÿ¹×nTO#Œ?ûÉÝÛW½`RNG£Ù+GC†2 +b‚­ ]mÜ.[á^5éI1r×ï­7Á¨×‡£óØó6„¿á^Ú¥<¤ªôáyex!rÑÂ'¾âìNø±ëñŠiÞo[ïÖ¼ÝYك,fÝá6Îõ7œ +b +>/Ñ©—á­NÀ + ™ê\~ÊÈ"È^ÿۊ-%J/bk#¢b¬Ç>'#린½rD;Žé•àLƒÈásû’±åà—-ÇÇâöf··ôûÓØhÉìÏ6¹Hpê +lœ–èhlé/[GJ±?bôÌߜm +¥§i䗵~²¯ ­éÚ.×¾œ£m@éÀ`¼êV +·HW +äÎçrv"D·€D +Ñ˔ÊÐEO¯ª¸d5ƒßO§7&Ø2CR¹»`ÚµA½¡N–añš:ÖüðÉü@û‚Z–füJkÕVfl³¥I +ãÿbH>ä’Zo»~ +ý‘ë/ß¼ XmŒÅ‡~¬^`lÝ +øSËþ +èün£ú“‡6fZ¼¸ ½¸ÐøÎÖ¹»ÝÕZ>»üÖÝA. „»È´› +§Ë+sè%«Ï£œº DÙAœÿ!í aêÖp +ænn±NáÜs% +¾rU™UØ^€ +s#ÝS´Þò¨ÈƒLL¾±Wݶ{$)v3!?Ìѹâû®Euë +À¸F›n’æAüý°"™ÜäòYPÆ_wð)æ©7õæוtñ­ê•§u/®×u,5Í°4µHxƒÙº7Bã[= +•û?œt®yRô4¾àRy²,3Ü´xñŠGî™&*ýî<Ìôr~±=¦×mŒ›ª;Og¾'”ٍMM,ó{À$£sñÅ,öøø䮘‹siñí +Gïô‹å5¸¾¶¨ü„Ê>þéÿLÞn +endstream +endobj +92 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +97 0 obj +<> +stream +xÚ½X[Û6~ß_¡G¨¹âÜ}jƒ¤˜b»Û&óÖ +ÅVULzW}®¸Lóji$³Õ¾–³F¥å®zWýx +µ€Zϰޏk`}ÂŽÁŸcÞbˆ;|ZìÑLèÀÕÝ«·ïç\]€B1¯ãï.K^ÿ,§¥Yp‡eږŸï/Ûþ;sì’3/³cgÏàLéJ0io +£ •XZJ{aQBÛҔx4/ðˆÃãïýÄ@Â6Ì©‹Ö‡u¦õ‰1]øˬ×ÏÀ®daϙTNk€¥»²§ÎÌÔ4Ì:lò¬áãÓãB‹º]-´¬;ҁ­÷Çóöx˜J’.à\2a²yÅNdñš5"¢U@kÇô +0ô«°ŒÐãhcJî)èÞÑ.Á\4í7ÿtŒ¿èŸX6s&çR^x×9oSÁv¹Üa]0"—Äi®SQ¶! +ž“ÐÊ0sI´aþîKÍë]ûkـ.èòËœSL½QÑù€Ã +܀>fàŽà֐åöàϤ¹Š. +æi² Ò´§sÜwç~»‚C*Qÿ4cP-èð<3à9ÚÒXDÿrÖ§Š\‰\1‘P²±³L_© +p#JfæÞ2EŠñcîÝm7gŠQS¯;Hª»L½£A­) +ɕ‚"?Gt}tŒ›A-D“Ât 4žé©o+¦91:·¿fàá,©C(Œk ¾ԍ¤] +]F‚|KA]t)Hàg®Àÿ +@ œåq³<Շ4¹2¤)ù€@ç:W³„Ë•³µ¡4½:Dqü1ÚrŸRõ‡m{*۝HcóËÀ çE‡3‚ +m)à–VżnëèO,§œhyx:Go +®ø¾~u÷útuð·ö6¬ß/ʜùìg¨ZÍL +1!u +ä +àچܚ3p4`K µ!?ïGÁ¥/û› ÒŒm84ˆýê‰fåRòû]Î0—³=®Øž( +àZfJI„‚çIŽâ•«œàVÁEדB3³Éë¶??D·ë)ï +s'h›]W´·”è¡x~9êñ\¾Ð!åÜñQ”Òan®Có¹¿TCÌßÈ/žEՃwh÷¿ÃàB_šÆYc;òä²±-å‘ +Ï#!çyª­SÞ4 %c¸Ò•¾—ºœgB8¡!– cGqÜ¡§æ}¡%”„Ìﳖ [”p%si"¡`_ÕHʲ™}V8çìë +uÆah¹ÿ«í;ò<Ú7çy¢‚[›i$ +öU\Ñ\tÑ7Á½-Û×Q£ºTh“c,Íöü´.‡¬Barù\¡ Ü´Â\ƒ^pK£ +Í,Š‰0Gû2úH\¨òª™Æ ¤ÐòúA‚ªF½¢~W*Y·mß + Ë¦6ŠRd4ÞËI[ÞHÚS˜L‘ +2UàÒçjŠ„’1%ê+#®]¹‚7ÑΘE,eëíS:BÚ¦~Ç~PÖcò¶¨àía +?g'‰•\Á2W}£‚`Óď`cRÃLy"Ì Ñÿi̪ñ", ëÌ­1B“è¨Ô4žÁE’£oØz*xi¨ÐŠw@>j¥†õ• +ϵ£ž©FO‹Á bÍás¹Î½ÑDb\¤1Ls?4‘;Øþfðk©ÒÈ7„d\Ìy5 +BùãF"ÌÀ'(¼an €«ò„H­ˆ§mŠBí¹i}4­«_œÓ¶ÿ_ L‡žÜœÃ1fŒ +áodzÈjT&ÍHÈ¥™ê +p#r]EBÉÖ&<Ød–ÜݘlxÑäE:=IQ +Ÿæ†ÕÍ2®éE0¿ +yĪÙA_G´O +KU9®g|›ê™F1õa$8xÔ­h–^PßGb +?œºþdçn]¶²¬1®™I“>`$dLu´P¹r"!“7vÁ¦KNtì¿Þl7O= +yRÖüWQQM¶“Ëð¨o½ }Nbd“¼~h·”å +º¹‘|ý¼â§=œ> +û}( §«ËLå¡&™^¯ +šÔô|nñ¨0í¦o÷Xø¦>= +)Ë~>ÅßÒ*.Îa@«öÜH¥Ø5`á +-] +6"¨MžC + +`,Q ç춇ôEóõi»yÇÍvFéë ý6DڗœÊ¢(Æ-è!‚ü +½É1=¼» +~  5[,6õ›é[ÐwÕû6T–/q +>d·]EM~µ –+²¡]w¿¶ûGŒIX¨úôØ®ÒgÎF܄éê°ûmãfÊx—ƲM’šA!áÈîÓSwNݞ"ìÐukâ|"Ö÷Ǿ +ŠaÕÓÍ\ +ZƒõH›áë±ïVÛSì°üL:>ö¿ÐÊ +öðõ¦; +WƒMƒƒ#n†˜¢ÿûíùܭÕúrÄ¥]ÁíÊ20Ö½ŠÝ<µ}»ž9¯äzhƒPÛ¹˜u:¦;Äp:=}8=íCÁjy=FhdD’QCØH5Ã~Ž\àcä"`э®žvÑølˆ£ÿöõŠúÆ +endstream +endobj +98 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +100 0 obj +<>/Rect[457.546 +327.659 463.001 334.689]>> +endobj +101 0 obj +<> +stream +xÚ¥XKsܸ¾çWð§¢A€ÏuíÁëÄ»ÉeãX© +¢ + bÃÇ,HZ–~}ºÑ€†´8‰+)U +¯F£_w+ú5âQ<*DTä+«¨î£n£ß(#ž°*©¢ÛØq9ã2ºmþs&Gž$Iüq1õAñ¿G)E<ÍÊ·ÞþN§«ÓiZ2 wZº +¼~Oyô‰‚‰":œIõQ*’0è¢OÑG’&Ûðci ++Éà<òüåpÌDO£–w³¹¤á]L_knˆh±Ì5¿",/s˜ÕÝ8œ<}nñ¶¿qo¨8ËÓèÈ%Ë2'Ɨ³Û‘ÆOç—Cgåɹö„m=ñØŸdÍãï=—7ϞÌâ7í +l.¤ +ïýo¯©•KP~ôêGW‹r°séDAõü³cÒ,e\x‹šép2çV#QÄ»}CSf EÃé +ß2ÖµQ +Í|úùÁó$~GÇÑö™šél`?ÞÏÊ +º¡ÑýAäñÒY\«®3ɶ£$ïúe2)YŃÀjùÃü š=W-™ +žú° +5øÑ@V:¦œ³T¬m¥†fç*ñQzèK;·@,åkíIYÒÂNž¯xm½ƒ˜ÛáV²4Üšg»¯gyØB> +Þ¼gՌ‰p™²šsf•iOfö²0óÒø +¨7Ò£3p£g·Ö©9ì„ +èøµª1j˜.Ç_Ë|äEÊÊ|­ï¶ß‘™gŒWk]¦"ˆ,ãV›S‹5ӂºwò8õù€®¸9 â¿£[ýø©LqÈc«´ÕCíÙið³ó4š††ô÷zÖvÚS¼¨R&½p€O着 +e±Q:°~ˆ"f씥 +~D—¤5¸ßy&Hú•¦¼~÷DJâ8]çà €É¶{ÎP±bã +B>ÆA"Õ£ï +P3­*c‰¨Ç¡1(èô +ˆZñølõ4-Ö¾‹ú + +GX}–¦ûî7Äà½î&³L4?ëÞ‡U30ñÉxvùu@ +eŽvC¿ûŒÆÔ4ã¼`é +ˆ +?Ñ,ä†×âèY°ˆm¿çl/êHe”^“3ç"†¼øۻÞâ +ÁDúÇnߓӵ#çÁ/Ðw —ºvo*›ê±CÕáºw±y‰@Çè!ò[s–hèß³"ƒÈÈÒXu‹žèžÝ¨yîáè(³œU>¦+GÎÁa¬V³vf§™è‹î92H]ißÒaROK7O{ÉÁ AאÅÍ3þ´øÓàäÁ½$y¥ù&´àžÆ8]Zô\ó‘Ü=c¢™ñ¶ë/Îw1¿Ð[ÁªbíuÞH d¨I[2>8«à.«]qšE¥v^¥ÖŸQé#={tDï½ +½úX!/ªØK.œq¾ñ#¸åÙ¸x]f,>ðy UnhØ!È;ŒvnIˆ¹µãrjé¼VÓüv¤EV°rS=_*Ûd¼*Ÿõ`ÜmŠGÀÙ½K°Î +@Ô~3÷v\,ñv*Þc\$X@úL}•ñF—UÉ­†jCy«¦âZÃò4e¿™»]%,x +šj=L„øçû?ý|ýl£ù{5é±ç˜Jéã*`iÀL²0Œ ¶3Û8ät-|Aûó2¡o$%zAžúD' +T7iÇ4? +JáàZBõ Kˆ0L“ŽÏÈV» +³qÞGf +~EžSßëê÷ÁŽ=jºYuã‰óˆßô냖£Vm!ˆÒ´OÏ¡->KÃWÑFr§Ã%]÷ݵÂY&j/ +‰ýçŽDŠ’•<Ԙïæúuº€&gˆ&_B§ð9l3ÍÓ7´.øž¼D˜Xiöz+ãˆ/¡cù?[— ɛçÝ®èfEۍ•ãédd!QËÁ 4Z$Ýv2)”u2·Tµdjړ¡ºŸhøË2ÍDÊ +KYˆö¥Öh‘ñ z +Q±ƒÊIqÉ¢dyÃå^Måb–öÝì0Ê.à~éb÷º¯ö;„%6õxUšìExbNj!\­:O +p*€ËO0¸zßµ~®ô+ +¯>;éiï™ÕךúRWÎD¾f3^Ñzzi®j¬Ø0ª¿IaUæ+cx·Kí¤ +×¹ÂÔ£¡¹â‚N¸aкqm¬[e=ùƒŽ>@%Ò¸€¨ØÔõØjžP + +ËÜã|ZHÀù +úãF[bý‚ß¹EŒGª¡æ¬^ú—Ò'-¦Þz™&íwõ£õ +×ݺyF‰qV¹i@àzÆ|‘A¾0CÝ-M¨6˜ êz±ª~:”5æ {ìÏËìހÿ@LÆê6¯1ƒ\6J_ÍËÐ +9(oÌgÓ,áÜ6L[¼ÿ`NØpx0I¢„¡éþúã +iO¯qC–Š~L¡Mþß]xvïPÅ7'X8ññ7ÿèƒçm +endstream +endobj +102 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +104 0 obj +<>/Rect[517.059 +174.815 522.514 181.846]>> +endobj +105 0 obj +<> +stream +xڝYY“ܶ~ϯ˜·pªvÞ '[ÖÊrʑ¢T*åÕ–ÄÎ0æc”´þõé +lóØÛ¿þ‡bïÕ»w~|û÷ïyÇ"ïîßwû׿Ü÷×{>D± ?N29DúEáöÃ(ñöG«Uêõãù +­Èëì`* ++;ø†0RÕ­ + +áS?˜S/B<“2V¾ +ifœG +p”×õõPwmc±×=òœî۵ݩ.uÃ#ƒ¶3ôÜi +‡;þ>³ÜÎæËٚ¾w4uËߪ¾ÂØXÓn£Ìp0ô>oáz +‹Ÿz +yììWèϣݑˆ TûiJB9YLïowI’zo[¾¤ +F©{÷F2ÂH"õ7ÜÖmœZ– + +¶&ña {èý„ç0ö†¯u8Z#Ì«ºê¶ +˜j§ç‰£Fñ>mE7ȹãï¬0<Š +ê +„MLõÝÊLÂlqaæÇH~ÆÆKԊ~yë‘ò#µ"ÿ +v +Bœ[¥ +tÓ +°y'<êØ£AàU¦/m=Ÿ2ˆD—°ìL£b9Qg]áÖ!lrӚGÊ©¸GÇߣ±B§ +` +à +¹Bä÷S{Ëm +tˆ°q¸0ãÈ2¡¾¹ÆOùáÄ +âò1ípS¨X(1*\á +~ + ۍA~Õ5n +øy®]’~.ý +ÜC”^ºŒÙÜñ¼UÇòÂØÞ†¥DB +&åDà½Â3p։BïZ‰i)Ãì +©0uａ½î·>O½ƒ},Ïh5'²Éü|œLhÉûá˘âAsQ`$@q +ÍÃAÐ9ÍÏOzJÑpÆEëƒËú+„µ\s +Œ9§z¦Nb5ŀgA®PàÁ¨ŽJÂȝ2òCªÕRïÕ£/k³—ê1€©åIKÀÄÖʹÓrcB44 +ê +ìX–Á±'A°9Á™$‹.³%m%W›d.áâ(Ù +|'‰5ŒDŽdkÙ +¶Vvý©ƒ³KÙj]cÊï¸8›²[JW—¦_æ‘ÄA»Fè¦ò +‹z+ÿ +e'.VOU"& +ë°”¡l`è͓›}¨!|[ñò +1nqœ< + +®SäÖ2ÍôIþŽ§°áž¤«8~ê͒Ùà’u]€Ýe]¬ëìò[,EӁü‡ +Ìp®k +7æü+È¥1ƃêZ}2p +Ü ÞºrŽMêZEº@jQ +,‘v +RÃö=¡BBjØÝс¢péBµµÊ\Ð&B}÷“<E\Úçò~§R +‚ò˸rÀ”j[zV»áºvšiÍg¦ž\ =©(W·‚µT¶Ð†ûñö½ +Šè)¤‘Ëüh#Z×ãbÅ¥ZÅŘã¢úZ\tEæGĤùôNa¥„x¬Ë'yuâcÕ¢»ŠÏ7 +œ +fů­(DA3JåèuÓÔږ½F¿ ¤“Nº'Mþ‡Ã#þ®ž æp»Ô9é9wN]M4h ’hTî^Հ–ÿÂǓéÕS͏>OÕôf +V(Sɞî·êâáC½øð:HŸ‰–¦ +Ÿâ4sö̝úÐv`PUá”óéÀò~(ïz)eº—ÕϋÓ,\¢¬¬{þNµ¨ž\o—y€áœ,.Bô"QD°hõB”`A‡ãn6-¤¹x@ÂÁ«HāÝi&ïÀÎUŸˆ“xÎüÿ‡O0ë{Æ<ØÔMßÉ©) @ãöo©ï,ŸW×lnê?H, ólüj1UØÿøÓ[Gç‡ +endstream +endobj +106 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +109 0 obj +<>/Rect[231.182 +671.207 235.416 676.343]>> +endobj +110 0 obj +<>/Rect[278.317 +335.067 282.551 340.203]>> +endobj +111 0 obj +<>/Rect[119.576 +201.996 123.81 207.133]>> +endobj +114 0 obj +<> +stream +xڝZKs䶾çWLùbNEÃør*{Ëv6—µWJå`í"!‰1‡œåÃZùק_à€%Ù©­Z`£Ñ +ôãëæì>ïÔ.‚j—Å»,-¼ØUÇÝwW»¿ýïTQ±»ºŠCœ†Jï®ê_‚8Œ÷EQðn +Ûíã,˜ö­ã ê÷‡8ú¡nºr²ãþÓÕ¿€•ñX“‡0ŠˆUBß_ñŽf½cªÂ¢ ²ÿÜÛÁîFçÁûw/yôl/š- +át/ÛÕ<81}ãƹ¡ºÁ­(»'kÇ© +¦¦»Ûbp“©AÚÇ'[öÖÂÁÔ¤ +(¢t˜$¤È2ë\åˆMp}]ŽÓÐí44ÕWáþ&¸œ«}œ÷H»MÇfjúnäåUkË¡}d +÷%ŠóÛ +¨,¿îd—ñTV–‰Ž=.çé~à¹S9”m[~áÙ¦»í‡céÈLPv +Ž:1@^7# +Í܌÷åMKÓIp +ÊðˆÎ)Ÿß¾îoùmɏU? +û¶¿kª²å™±Ÿ‡JX´t8ÝtO؏åQö.O ‘3Çg’×Í`+ÑNÃ!È_æƒdÑá-`æólG\:#O øÿãËp¸cÓUÙ. +‹ +-W%E¨òÝ¡ÈÃ4§­Õ™®tKv + + +¥#kW& +•ç_*NœiEþ•ñY‚›½æ_ÀJ›ÐÄÄêŠ +Yå`h•øjL_ñ +]L¶r UˆÀ +¯²ÃÑÖM9<òjp;!¸!>vB²²CÛ1QÉèF_ +ÿªœJ¸h~Ûrøȯoç®rޏó(ËÞïl‹¦Á¦j‚÷¬ + +ÐdŸßGŒ¶C{Ž“"¸| +' +~§Qp +¼{ÿñòzÏO·èœ8˜î›‘G§yp1À‚"&ŽXzÇ/ZytK&÷¾: +JïŸ +JÒ ÷HopŒ ‘ó`˜ô#m´Ž¬¸dž˜¹h„¶ÉÏeW5M( ÃtU’i&Þ° +ÉÃá©ïlxž.*—\š +cŒ^ãš9µ(¦br è™! ¢` +œaŒ#?VÂc)K0„_ð°Z„f+QEnZ +iŽv’”ÃÚV-¦a:œg—Î'u犃%×⍤Z. +$M¥éÒ³ Î‚öxdŒ<ÏL½ÖcŽ +¯Çõ±úv\ç8–jO‹F­ÊQ$u3‹†öóÜt$ê/w†›„gŽL‡Ø¨0ËW§D ; +üD` + +°1‹ðT)”’Ñ3±µ ÌŒ4œL-o¬zäxY§ +Ë-gºÕ‚œ +€W~žË©'D¢‘<»lÄá¨çÜ"8Nó +ãWmãn²4̳×#¶ŽßŒ:o'í(ñãN*%’Î"‡¿Ó‚þ†ÁxÅ+¶b} +"¾¦B¸úõœ£²7sŽú9ÇcóRÎQKÎåÁu¾Tö4±ŠP>Êͽsc—<_e‰íÌcև}†Ã¨@íKË ž6/ë ‡ikljHƒü +ðqƒ@lî +ÿ¿ë ,( •^ex¤  +¼U +W݋£Œ<óØØVÈ`Wö}Ç"vŠ˜C.—¿£,ào]Ö¿í± c5¨ÎÀõäg+ šñyܗ{H +C½`GNe^`kÅK†z‚"åØ œÏ*Ďrnðd_ÎT„³¾.å—fü´ÊŠ—‚)øN¿ +Lsó4˜ú +€ƒ +t¬Y +Ï4Dx¨š¸UYÀbÍOA*O@ÖÕFi¤çOæÙêúa +ìjèKŽ¿hüŋÆ”ì͈ëW5iç +÷Ž +ŒÚ(ÿ©úã©á&i²I +®à:—’±!RT1PÐQÀpCyjjÎüÜÁvŽÉÅpÁ8þ•ê–*@&¶m­,íÑt™ˆÁîÈ +sŒ¨¦jgÆíüøäýƒeyÀĖKô[÷[Vîl‘-îl¢ŒÜ™G×Á—WXFâÃ* +àš-þ•Gÿühb´ÓšÐÇ®?6n7>Tü„R÷Í8’nwÆð¹ü\©9ûìVÍ–ð¦7ÄÙkÐ".2®|a›²=öãÄã‘ýQäŸjàÄQŠIb“ sñfǬ²¨ 5®É”,ˆrLî +¤$Ãá¹$ç#€öy°g0ÌëœV +“ˆÅÇo¥Ü‘ +×è+öÿÎt©ÂËÆ €¶ +xjÊnô}8‡WŽts'>2ŒÔ0H +1/$ú÷•Z7Tp34õ4 +nØK§3´Äæ +±pä^@!áèx`éb+Ã9ãYôÕ + *ïìÓ"tÓî! +#ĒF_Ê[;(¦3i Œ›––žÃÕ‰:ánŠE¬7p„>)/@ì ˆÉ + +–¹`=óBæƒ,ޢσ lc¦¢8C&Ïk<Náq˜rÝ÷>_Þ8`ìÈ^ÄF6ßØ/£ýÌ:låҊ]ŸÖXè.ÔGíÁ‡§QPŽNB“ùÖÀp -C.~M0Øi +ç´Y +P=VL™q`‡s¿wÝ„÷« + Ðù•ª×–‚FÍ$o¤שּׂm +®>hzò +‰®œ³ôîÜRñ¤¸S£••RÛr¸³VpÏWRKKôéÀxf¶ì¯¿ÂoîCÓIŠ랃³ô/NG +‹ÐZ¿¼ +G~fÊïº×L¿ú~ÅD¥¬j&þ[7„Å™æoH+¶S/l¸Ø‘ÊJú‹­| ¡*>×P¡Ô;Ob}qnuÎÝ`o‡²‚ëpÝ߂ +Ä; + +N +º,.(û¹!Tšx͘4åøâ]+§ub!313g0{\b +B¡®.‡z‘¡üý°õuò í éªÇÏð‚.\%êÂßþf*›Î}@›À¹Ü¾§Ø“bjI·®*?«O +Åý@EÙyiÛâö7€zDéðkÀÙÜ×KÕCÕ¤WM$×77±ß77ځ4~ Í€Ä¼FsïÒ<;óÒ ÄPå)?© +– üòA,̓OˆÆ²˜ë6ãò +673€JÿÃfñù¬_b­¡ðÒZd½¦Õñ‰"ç<"øó.Ԁj +è·:ÃOG`¦0º‰vw¹ûYÂz¾K ¬çÒ#2ÜRc°´ú&Ë´pY‘¦Ü +“i!)ø_Qu"˜A#f0Økñ0ƒ¨éa|l Æ²G‡‚ˆ÷µŸi¨ÍCÀ~“ +1q +”ö  +F‹OÜ·Qxù@£Å9å +Ô=•p.Zà©§çŸ +¤PK¬~³‘nýŽ[NT»Öî©¥RËj°&ËÇX˜q½?Æþm»ž +,ƒÝ|iJ> +†’¿®ÐåÛ¤¹Vý´š»WȞ +ßR<·=)mEî7 +Ù»Ž~áñ')h(Ÿ`‘ô¡i[žEÇ#Jsð·’Ì#ÌX"pü"® +¾D³ôTVC?ŽO]ÎÔpˆùHE“’ +™[‹Š°§yhúyC[ÿ&Fö%ֆ"„¿à‰ª‡»%•ºv÷Í´üæBøð.Ä㓳Ä* #MnöI +ØûæÜZö<).B®Ä«cTÜ¥cßA1Äìlf訫’ûE-` +¥/¢ÔÁM–Ýâhc/@zH\Û +ë +ØÁÑHvjƒ]œ +Ê,üÆiƒ_Ÿ3v•„¸Sw֋ÀïÞà«ì±l:‰‰hu”`bѨØ(òÉkb +©SîaÜX§X˜A\è¾Ùº´0q¸HñŽT: +Ôò,œ:Ú¡©›ò ++Í +–p¥*Yc问4‹øfjî:—=]ª}Å»âï›$EëóÕ,ÂÝY÷톿ÏÀ”øw¢E„Ÿÿò?$Óë +endstream +endobj +115 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +117 0 obj +<> +stream +xÚmTKoÔ0¾ó+"NŽÔ +qÞáVhE‚–n8 –ƒ7ñîZ$ñâ8-í¯gÆã´ËC+­çñe +ߌ +ü +xÏe”E +UuÐÁ›&xõ. +x +Õq +4;@¬’"âiÐtßX~o> :$qUà„«º®Yóþ2\¥iÆÖ_nn®oÃ*eÍåšRööúúöâêÓ9і°õ×usùqí¢_6ÿ-¢àQ]» +j‚’˜ wr6I9’e&%{ð^:نIÁbT­è{tòš‰±£oõÑ¢°Çp•TLšl-¹åÏYXmԂ°²—S«=ð +)»Wö@pe§ÓHº† +â×Sѽڏ²sBW<òÜue5ÑcÒótuV ‹h’G9wÐ!Y³õõ»ó˜“*&kô ­y@³Ý<¶Véq"÷4}]Æ!AïÉ'I¦NmbžJÜ©–üHċÂU•—ì½F×}ˆ\ܹ”äqÎÔ8Y):ÿÑîßnEo•;éð1{”£#1+JHG<™bFï +Dš' /Å^Šm/‘¨ù!‹Jê˜m6Ëî¾$ƒ{KȯÃ]˜çÌUúò5äLêý°”–ŒÑ°L´µØ·ÌÇ´‘‹Ç÷!|;[²þÕÑß +k—¤9§>J­ +=úí°­ò¯!~3ÒiD§ôŸkI÷¡Êü3oóç¿썮˜ +endstream +endobj +118 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +120 0 obj +<> +stream +xÚ­XK“Û6¾çW¨r¢ªF +»§¬ãTœK*¶ªö°“‡ÄHؐ„¶çߧŽ”•ËÙÒA@£ôóë7lÒM¿tSf›²¨ãªÞ´Ãæ_‡Íw?ŠMšÄuRoÏ!ªF»¬ˆÓ|sèþ•Ûß?oÞ +˜·Þ¤"ÎE¼ÉfW¤q][¾Ý¥i&¢¤UÇq»ËË}t6jlÕ¹—–ÎXß»ó<. +Ú}8Iؒçч_~ܦi}Ó,jìdô 'óÂËÏóØNJ§"êüe°\FóÆHfšNÒʬ´åHó8Ï7;=% “Æɜ•qV®˜Iò¬ÞG“iFû¬ÍÐ8³º€»›‰G$m'ÞÑêaÐcÿÂôQÊNv<¶'=÷ +s=Á_¹ÍM»ÍÊè¤äÇí~5O=ÑE¤F·îö«ñØ;¹Ú¦ïã»Ú‹}\¦¤Pv_û +ó¿OÒHoÿ\·=ð|:9ûŸÔ<01ÕNÍØ5¦sNÒÏÌÓ´í +û—½ú8^Ô'6Ô +TEUÚÇuEÑ_ÝW³(âzÏñz_Í +óëkèïiž¼¦Ê©3l³"šY×,õt¥Ä崄%äç3¯V®­"›5%‡³å}%«*N9)Å}%/Ìoôpž'ŠÞ¦‰öu$“´h• +Ñ3Y‘Dܓ4–'d +,á +[Hi$BtŸ{ˆ‡Iò¼9óÔ%°~âàÁE6!±Ygv"Ù&@¯=ûÁÛy +ÕÀlÚ@@aTL¬êÎé•U1Ý +Z>!DP½Ø%D½1û^GÓuFZ+» +}žußk<ô“½ +/ oœV_/3ÃKU߀ ‚9›^ +‡Æ„ÃÏÆH¶ÉRʐ‚¬³Âýd¥ùˆA+;Ç +éùWgßÞpîg{ÃS#§*zÒXi^ÙP:$ãLoör@2Ùޙ3sŽ˜†Öö˜–»¹Õy\—_ˆkóÁá$R° +º5Ò¼bådyDé ,KyˆØgûè—ÑíV愶» ‡!ÈbXþ C2;”¹ÞþKª¸ìÒ02¼ ÀSž§Nà"ÑϾ$>BÈ: +ڜ'o3 +äœOà£:¿Ço0ò™^Ì؂–>õìã–]Æån +þ °;ÁΈÒÞuZŽÉ[|!JÌïÕQ +Ѹ˜½=ÌÔt0ö%VvrQ†L€ +Göv‚ +€™€ƒ£ +¥ñT#Á_꣚ð”—m%"w<ʼn`;ð)Êè'½Ä +TlJópí¦òÐèiîí#îòTP!”SQØÀA›«™iF`æ6ÝúÄ+Þ¦q™ +—b=×GÓ +¤ +¯¨qw-;Tƒç¦Å`ÉÊp™cJ3Œ²ò!‡‹KÈ!ÝÈ?feèl\ëäÚX´ºoÜ&û +˜¼ŠM\ä“+VI6”7hAM +Ó¢ò)íŠ@YÂ+E-òÀ&Lâ}½eύL‡KF3¸ÞåbíÀîbŠÕ +PB÷ò³¢V +ä¨çã‰×&Íÿ/$¡ø‚Ä_º3--€ñõKsŽékÁŸÒ'£«n"êÕ ¸²ßÏ>‘ˆ/oæöʳ, +ÛT×»f)EZØ_dùª¿€ÝXQ„ +A<¼fxB +ü[ynLCUp¶×|Ç +£‘/Å Dr‰µz—W™ +ãîáVâ|#¾gÌvʀ¬æJ„ó÷ç‰éžÐ¨qáp4;5vÒ7wÝRqu€w +»¦D +ÃA,ÅpŠÅb9Îái6‘lH0À•´+Ʉ‹‘ã#Àà +áIϓÃ7^º +8C´¼¶î6˜ Kný½'g9ˆ;œÆ KÞ CÞÒR‹#×ëá©B +¸(¯®Î“=÷}ðOŸo"œPcIip +\š;x'¢n¹¼4AHDQ_’¦>»Ðd˱d4 +ü—»{$­`t\Îw7ÛV‘¤IE’±k×à€äá5=:ÚW'H›¢ŽÞî<ævV‚·2 +W­;ry!óˆpÕBc%KK¬k¸®´ñMcoÉñ™É›ڋ{Õy +Cߺڛ +[º¥™&ÈX^Ή€glÝ»m>‹½Cy +J¾îœE9µr±1ŒJº^ÅõþPò+ #ÿ:1T{W +Ôy-ÆE°å3‘jØ_#äÑ_!Ïÿß,ú¾YÂK]Ýe +qež¿/—úr-Áû¿¼´Kñؔ3<ßdB¸æJlà˜ÐêÙ÷`PY±F*µž8`Œµ‡J y¨µ_­Ü[IŸ”=Iw +5Ðìüd'5͓ã¦O¸Àɏ˜ +õ0P$¾ÆÎwðh’MÇ +<ªÄ1¿)a4Ÿùòlë¶÷«ÁÊþ™WŸ¨Ë‘ ²gdŒ +dôÙ(î÷ðø¸ÔõoùX—»ëf”!tÑ+ËâºX59~pݶNxIí쏃µuµà0 + +†YˆÃõʬT¥ø=| ìÑ +N¯pø?ÃT¹êñ +îñ±æ%+%¹wՊʻÀ;—OB‡cíÛ'N-Q‡Án˜òˆ¡hà]¦¦/¢û +ޑ¬DëÚ—Ž{(µgx8P%„S¹À <©å# Ɵ<—F8}C1Ès7šØ°›ÂRM‡6jt_\1æ'™ì–öë7Àítþ +endstream +endobj +121 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +123 0 obj +<> +stream +xÚ½Xßs›8~¿¿‚G<(¿ +¸o½\®ã›N'—øíÚd[SŒˆ$ÒäþúJÚÅÆI®˜”Üt¦ÈBÒ~úv÷Û%Ν:þ:YädéÂÏN±w~_9ïþLœ0ðÁÂYmô +/Jý0vVå?n>ûºúK/È{ +â(ö‘^gÄ3/ +‚Àýãêvùñó̋ãؽ¾Y~¾\^ººµ»¯V`dÞ?#÷ÃÜñÒÐ_,ì9Œ´šbÆh°(‹ü,F{D*Á÷T‰G°ÕAôO*äL,/on½ú?ü½¥|æE¹[Ðze®^‰/¢@³£=¬(i%Ñzªæ½0öçó +V6ÖËåk)y%$>$¾–Tܺh9[rzÏʆèê÷FO¹ÌFfpi<;ŽK/4¦BNjC?Ë­•e=ó’ vIY2Åx­ÏH¢ÀU;*¨y“¸Lâ +xlÚº0 +á—Ú£¶[DQÜÀëê±[ +g]¡v0'¸"ÇsH½­¨?óÒyâ®vÉîÙJºi+œ«íU‚>¥¤i*VØãôŽ8O\Ù†“ +ü"8«hEeÁ©ñm>w +‰+xeø[¤îw¸»yÉ>ñR´Qd]á{Åa¾wy|±£ðF£"ߞ./Z!Œ^¤®z~%H-7\ì‘ +ãH +[Âh#è]‹ZSadh'Ô݈‰6ñÙý~H-£ õóô£TüBŒ¾×ÞJžc€Ý|¸\6Lÿ#*Wè‚bÀ< Þ¿­*Ø/©‚)¾gÁ[à” +CIHTˆP{‚uÞó¤ +ÓZC´„¥kÃïãNuŠa³ÀO¢~ÍyûŠ3¦ªLVSÆԍɫƘÊð?Õ +1Ú?¹ò?Ï#h{H]Flœë碟öo‘ô?Ét½fž¹dm7qs!¸•™O]b +`ž»Ä&¾ +@BêAWŠd7o3]›Ü¼i+€ÐßÔé=}PºÞÌìƒð“ótæȗNyAÁ9uF1G BfuÉîYÙÔ²—4Ÿt +HP¢6¼ª,=ßå S“tîÇáÁ©ª`w^½k™-™ß@6MÔ£þq0?*éÁz +‹ñ{³°­k*d¥¤_‚pNÑacpý;×!ÜõìAÐmü˜’#VŒô +=þ„™#W}tg“ Ôoáè­´ï­èµÞbü—©zUÙP|l¾œ˜éèÇ +ú¼êz +A÷„Õ¬Þv]*ÑÅiÿ—¸ûf@ï +®¹¶’‡u©ÐZÙÁ(™Ð´w­âÚx·ö»æ‹ÍÁŽÙ¡9©ž ³‡ë¥îÆ+"ÐðµR€žé¨O們ŠmwV¨Ÿ‡á +„`gæcÛB®!zòQƒÝw LÙöññ| õ”HŸÊaô +hr +”Qy>TÙN +öÐ@߶g;özß< +`h‡:OE×Ó÷Šg] +› +fg¾W|(r±½öƒù +$}Dú‹ñøéÐ}™èÞHP­’ +ê½1uN˜jÆ +Ý +6тnéy@w(Ú +t)ø)¤ +`jËtqoÃiÍðƒ&õ~ø‹€ìòþïß~ÁB° +endstream +endobj +124 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +126 0 obj +<>/Rect[357.492 +624.261 362.947 631.291]>> +endobj +127 0 obj +<>/Rect[511.605 +624.261 522.514 631.291]>> +endobj +128 0 obj +<> +stream +xڕYM“Û¸½çW蔥ª,®øMVN¶×N6‡ìƖ+‡L +Òp—"e€\Ïä×ç5ºAR#&[)WY@£ñÕè~ýš³ùº‰6{ü‹6E¼)ò*,«M}Ù¼;l¾ÿ˜n¢}Xí«Íá´IÓ2Dkça”lÇÕö_‡¿n> +X·ÚDi˜¤9éî7»< +«Ê©¥Û]Åið¶=÷¦ž.v»KŠ,PÝQu=U¿¸ån7ÅBIæ +[è𤷻4΃Ï?}ÜFÑ>xK]Ì·ƒé/z0/<|»zhúÎR·F+Ó.ýv—ÁQ›ŽîÔ0 +ŽÖ2ÁéÐkE ¬,¬ŒL”«Sì­m +[ý²l?/ªŒv7 +¢$Ì2w‡Z]tqñ* úÿ­ê-f<5ݙ$qpij£LÝ[]÷ÎLК̄^4 +KOŠfþ¶ÅÅz +ËÚ16²Ú†Û]9ù +;ͳ/j»Ë²à—Þp_?×úJ6c½Æޟ\ +—Þ^Ÿ´ij(%têŽC“Þ°àäVCãÛSÃ÷¡n +C>죴k†Ç,ÍJ7VN’48ö<Ðõ7ôsc‡ÐŸ$ŽÃ’ýàoý inæŒ_‹÷§VÎ6 +dpw¦†QÅÑ.Jî%;諬`Ÿz:Ô77"f +ÆÇæ<ÊûÁÁa†ÿ?ýyjšó}ˆÄe¦‘(Íœc$š— ¹k“ª +.çœú¶íéA¿ý‰SˆaÉOõIÝÕþúVË%&s«óÿ{à4©Âüfï"ûÝÃÉÃ,º™Å´›F&§ù¸-áu†ý@É;¯¸9‰­Mã}jî!áüh¨%~@¡±¯, ÖÞPf|)¬7¡ +äî± +o>8 +gÄȈ‘äe˜9£36jüa8>®Kº'Äòœ +JÂUrJHTÓ +üCû„Ôέ?|úìݶáAü=‹òàGF^<âžj¯ +-&îãs¦+*î¡$KgÇVãÛ«6Q²rŸ,¢ +YoJב„û‚B5öÆCÅ +›OÚL^Üù +þþò©4EOèT,têóÕ¹!Ø¥Ÿ±xBµ«2ªmÕóïѬσ2œh(ú¿Å”%_¢+¥«zlY%§ +AË>6+EKçIc\q½Wy`/؞›SŽt=áÎy ß^4Ï»AUö¨Jm"jI9@3ìè'´#贒Ýf%7@ÒøQ¦ª–b’fª³Ñz +ϹhFß<û%ÃM³å7Oô¶HÎ?§‘æ«Œõ£Õp?¤Så«LÒbþ*$Àí~Õãݱ¯îcÜ+'Ä^’<{l!zþ‹T)_¤æR +/à +È~\z}¼½úòØ<‹hÅ£rŸM"Z™Ügt ŒR\ˆeDØf.”"J£ôɶ–)îQåá2*}Uý:ßbdÊ·Q¥–¼t ”kÇ#Wߥ{ +ÉՌ +v½¡û +Ö8`y´š‘Î øŠ +•yX¥Ba>=ì“ôÂe{$¸D +¨ +V¸O¾Ÿ'’ à®ÈHR¡©¿8BÔô0˜¯ +áC@ù—Ê +gÓ´X +üæK +‹ËXäwG¹¢´Ër‰ +ü©ÓŸWDka|´§ä™TžÊ¡]̳ùÛû”<1´ÈNù‚ +‘ï1i‘ ©÷\#”-w¢©ö‰âeµ\¢@šê£8_³|˜yR¬d±¾ã +zÉü܄„aTÜþµdQÕ¸ßwÊtÊ +¿“„þT]üýÿ +Ë6Y +endstream +endobj +129 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +131 0 obj +<> +stream +xڕْã¶ñ=_1O6U1 ^ÎÓfíÍ®½‰+ÞñC*“Œ„ÑÀK‘Z +;–¿>}‡Ä=RS5ÐèºùpÝ(ø‹nòø&ÏÊ°(ovǛ¿ÝÝü啾‰TXªòæî0¶qFÉÍÝþ?A¤6ÿ½û0ŠFœ¥a\"bèͶ,ËàÅÛ¿ÿü˛»×ÿx·Ù&I¼øç÷ØÐÁ‹Mœ/_þú +4Šà忉Þw¼ntEa™¦²n’©†ÉfEq¼u‡§M=Ëu°·÷*Jí®wM-[»Ø|‡Z‘»' +“¢x9‰ Í#~“ ÷(.;í¹ûØ6Gn  šö`eØtüu=L×ÙÎOh›ˆ-éZƒä?ºÞà.LÅ`ؗ¶Õ~¾) Îs»¦2í– NJ’ùÇêÎ]oawZÁÃf +\mà +ìÏ+×ñØÎT»¡2½Ý{\@:s›ö +Ç¡žó2_3ÜMæ¯Ù™áí~ +áqf‰à„›m^€(œNÕÙՇ‹•ú¦ÇSãñ 2UōnØá枸7¿®ŽÖÜÆZ +IÌ\àËíáÐI)ôÀ +s¡i÷®†C3pïÚñÚ¡{vÀìNŽE³sD Ó©œ¦í&Úo”#•Mª‹°OI^^†q>1"Ó*xµ)àR[\ +¹r;ºzظ6AI»kêê|q¨wC͐ûÀôž:Ìó¹@ +›®¿ßÀé³2¨-^7¶X4,wv°ˆÛÛÖîo +2VûÖ#îPp6q|D=µµ³õÎJ„‰=™–Xçj’ +C¡Ãï©mXÎ÷~#ýþ ŽÀHC{bÁíìw+’·w’¼nXã¹NÃ"žx®Ai^lPV`s-ðÖѸÓە¥Ê2TÑ\Æ×ÖIÀ +e‚„,I +>gFçē'%1 [Ú܋×CDÂ9"«†ªw§Ê2„u^4œ®;ÁŠÊ9C +XΉ{g»[¶¸D-®ýÝ +‰ BY€ ñg +üq8¹Þ¶3࠼ס·4q&å̀ÂÙ>c%Ð_0`’íqPؓ"ø0¸^¨lm[Sá +f±, +¼0Õ¡i]ÿtd,žrm:-l’ZÃ÷‡!O¹r +š@ø2øSç—€+•xPfr™‡Y<ç1SLb¤Ž'$B3~mŒðõ†¼³ ÕÑÔÆ +"˜wËÃÏp +蚣eXkMۚú`¶ö®ÀdØñèjwt2[ÜÂñdv‚ +vôÊ; + +›RWㄠ+5Òî\<€¥E¼é‘‘¨ÕíaðKHÁùvÕ°·Ü“slЌ#rÃê„ð +h:b +ðÆ|(¸ +Ñ2`òRy) +DÞÓàã^àê{ÛW!A1Aø2Ah +,p±oŘà‚“(JÅ(JYÚÇBí£5uwAo²eØs2üq“jB‡Õ©(À¯”t±sŽ:¾-#ßgܖEw7‡î]כéN¥ið˜¯ÖÏOn‡–扯ÜÉÔºéY¡;dCOŽÀ};ØKsàèê®5È +jáß?aeËP{ë׬‚³æñ«l(›š­ŽÉg’Á)f'õB+ +EÉ|9hˈ{iqæá̪ñDH­2EÁtwH+!MÅæ æÈΚüg’e"¾H¶|%ï~~µ‰¢½‘Ž&„†£ +鱁Òyø#×À + +¨©¬¶G¨ð5þÛ²fŸñàÙËÂàÒ±LÔH—aàœv»³>„ÚÓDY-¦=·bBz +©¬é¤ ¦B®zDZ’2úQhLÎ{Õ|œe16 +ÙèÙ3W ÆÑ) +8±lb> Z{Æ<ü–ëGãz2ž_ºŒRèNÆèZdB#°•Š +ä2æÁ§\¡@<Ó$v›9Ó$ +ƒÁïÐ*ýTgzžawè8ÃN½Ã\tVô¥ä, +Óx–œ!mØ,ª&/[û¯©Î=‡Ü¸*ðsýßݑ¸÷ +Ê2çÁ0Ü:Øm3Á)z!EE™f¨$‹´ +ó +¸;¦¥©8RAó ‚ÈPŽÿĸ½?ä£?d§/Q‹)KÁœR"-"gC£áÝz•a* +éi1n)f`-¤`¸85¼„ÐÎ~äxÞ¦]‰ ª? + +;1&ÈF +T9lïð¿m͵3è?SÅçô³F„¡âwè¬G²BÊ3¡m›ƒ¸ašû$˜ +ûqþV + +S@RüâzãTÊg•!l½r'os©ðh›bÊ: +84s]f”ÖvBtÜq‚H§ƒ>ŸNùò!Ž0ddåYf¤Uæ1‹ +´ÑB›¬Fׯ˜$TîÂGSEzéïŀ”Þ`©÷zÐò_º®5w“auá+ò£|ª1aÉpÏ˳¥-‘)l +/´°áå>¿•<˜ö¼q-aTñ¸| ;×{‡!²áٔ¹-nHaQ~Æ+Rœ<òQh„×9#áûÀÑÓûmßJ +áJ¢@ð@øæñøç¾v@¾wœ§ßIs +½0Ëßõ%µûàaè,EV â +'bW±F× +íNêS⓱¦úäH´ßfr™=R¸£!¤y#E¨Þµv¦“R¼¹®¹ÙWää³Êç­ß +×-„Oö4«™¤9º^rW +•1ðn—æ*`QÐÂ5æ’ªâÓ&€ôŸKJÕYH£„õrN̬0$ÕìqHx·3¬Ûþq±ß +õ·BàJrqü’K¯ÌëŽü˜Ij„c×+ºúZõÁeüÁz•—t=R +›U¼®\]ÇØ{ૼ5p½¬_¾T Ât³ h8¡ZY9 +GÄà(^ÏRa +£»T( +U›’ü䗃×Ô;~ +ng—E;†I\(†­:ï Ëæ°2_‰ªÌQâ§eú€!]w{ªLm¹ •§>ËAÅ."±É‹Òcœ×´íâµo‘üC=½º¸n +Q +úqÃq²gE”†åòÅ×0½–‚ +>­pžm Âh~£”ÄûÔk' n P•}*ý®g#qV„*ûÿÊpì;ÃÏ¿¥fèPø1UËcê‹|Z “0é +¨ïz[A,+åxQ§v +±t$õ +ê;5cF‚v©aàhéy +·Ñ⁺Þʼni]ÿX‡ù̙‰Ößҋԍ +²Ï}t$,”t̝ZÈÂy>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +135 0 obj +<> +stream +xÚ¥YK“Û¸¾çW萪¥ª,.‚¯ää8öföbÇ3©M*“‡ÂŒS¤–Û³¿>ý Iô8©ÔT +A 6úùukóëFm"øS›Lo²´óbS +7ºÛüø.ߨ(,¢bs÷;†*ÞÜíÿ˜0ÙîTEÁÛ²Û] +ÇA9Žõ8í­¼µ{ +˜ ïÆr¬»vû¯»ŸáLãiŒÓŽÆ3•"Š·wümsþíT +EAteóÔõõx8nw&UA=àSUy*Ë/Ý#?‡éaw¬«¾+ûj°U‡<á|YUS_VÏÛ<Âí.×Eð—n«³à +þ³Ÿ·:lÿ +ˆ‹8rjSk¹ +ºåù +5֕PCxàYÅa’ÏMý‰nžA&QŒ +>óàa»Ãi~¡ïà`æŽÞð.gËÃt:5µÝó›S +—=ƒíá)Üâ~ËßüÌ +tôɪ +ñ`P&N‚wÛ\Ë@÷µ<ž +ˆU +ԗ,ܾ·U* +^‹R“se-¯Ëéíés­)¿M"ºœÚŠåŠ¦ƒ*E˙»ÅS¶ï»~à1 —OüN„g"QÚûŠÃ1 +|æ>Òé +'i˜dBQÊ7ªRxAqå*$¤;­²0Qð4!û +²£pÀ’ÖM4Ý%퓕ØÉF‹ò‡‰Ö‡-Ûª¾”aqÀô¼¿*›F¦º]褵»=èâõÃÊõc +jç„Uwo·"P$õí\/V´& +»°Éc.O%?£<œK¤å0‡vìŸyÙÁց_¯ò`tûßܼçA9ð ß0¼8Ñ¡1ß5¼<¾4¼Œ +/%ÃCÖoÚ +ŽÞ© uv&¡ýÈŨõɶ¶çœ®ýÇÉùqÙ»1¾Ó +ܺä +MÓ03 +=UÝZ5&Y,¶'.n'ú:.áÇjÇ‹a†H<+¬@±’¢Ô|ÈvˆˆžG +´¾aö>XQ²(êï°O„€œfÁ?V.¥5VÓ¢Õí +‹Ï!àóý£™„/?FIˆxк~•¹L‡‘«dV +4TJ–)NeÁÇ>'˜«‘ª@`àœ·Š²wf‚À2h,Vk.{‘O‡nC§—j ‘T&·ÓٙEá«À xD.pjÁ'X|€)T–)È߈Â÷i\ñ¬XCö8²àö¶^1æY +ÉW +7Žó0ÎÎ +wÕ1 +!v6]í +žL‘’xtÐÄX„Å™äü0ˆè +”,¿€ˆs7¯‘ß¿ñ +DðÔáùf¼C»«Ý`Əo‚§ +öòÌèuÈã;·×£Èè«?Ùuö=Š™Ø)©$Iя(’î9ˆ–ÐLI§cRŠèðTìQÇr Œ4^(iÀꃫ“æB&§v‘„#|ì­¬VãƆ +^¶×õ×r +m2V"9˜)÷€oÃÁ,Y*ŽÝ0 +¶hy‹àµ7Åä˹—ÜçäÜiôt +]‰~Gk¨&ɖâSç9÷®íº4Ÿ®Æã³ôoâ¥+`Ç*\ +oQ¨ +Z"»C¨;õÌ +PˆÅÁz0ÍU˜%^,9–¦ßŠ¥~(ÅO 6Ç(ytš +šz8X‚«ž½&o +o€¼ÓI +f +/Y¯·ù±› +Èïm~´¶ç€„óÃ3ˆÿ(¸ÿjšW +àæíÇÛûmøÎ7p 秂óﶵ¿,d⚻"Qa¬Sý{F&$KȆr? +ž÷XwÌðzÈÅ£aéj@D®ò—yª¹à9 +©kˆûšHȆ +jIHàÎ乎»Ü¢pœïÀWÛ4õi€z]v÷2_6T¬—˜ÃŸ^ +w]‡_a069ñ¦€d€¢?¬h<×KËã +›"Lõܦ#=ã% +~Aãüé67øšùWAØ¿úb0ì—ðœÑp^ò·ìâŠÛ­¾ +— +« +eaøo?"W f—#e­¦¤L’/?UäþO±r¼Án‚F¸›Ð¤$•p +›ÐkߞÖ;õ1–’Wz%-xJkñ,#p +2¾\a1ÇÒÑÏjB§£Mٌ^ã°àNH´Šor7“Pƒ«Pâi¾bV("Á– +ôfö¶ÝâW¼2;pÈ~ùºNM)' +;’ºŽå'$DZ +¿A&ï&žA´Xˆiá¾²é(¡՗lkMT1¢üÿ–TŠU̹¤°Uο,ÑÏ/ÒúŠý.ëܸ–2v¹2Òððb‚K!áDZ\& îÏK»?¡–2Y¯Ýï¥6×Sü^6ûå` LÅî—ƒ‘•š{0:PgÎ`’tML¬Ì;ÞðÐ[Ð +O¹½ +üJêC ¡6.Q;Ñh¯ +Š­ƒ«^9P׈û5¶³xe.ÕõҍÄaɏ¡ÆbžÇX÷øƒJ–úȬªÌ©JƒªìWDá\jh‡dp03 +!a‘3-‘UÃsîú¢#(Řl»ß]ñ±ÛYR +Ä¥l +Š5§¾ª% +ÿ~­ç¡±óÌë@ääÅíú² +0<. º¥B±Ð +6wúbi“øíW€Ø€×Nô›šÆŸŒØޗ]Ååï6Á3jsV¿]ôè@‚‚ãoþº`‹“bi)¡ü0\`Lw¡Ù~ +w!Åԃ] +ﯿû¥`8 +endstream +endobj +136 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +138 0 obj +<>/Rect[158.606 +437.874 169.515 444.904]>> +endobj +140 0 obj +<> +stream +xڕYY“Û¸~ϯЛ©ŠEóÉMåaÖ±w½µY'öl¹Rq +8$¡L‘2AÚ;ûëÓxŒh{\®ò@@£Ñht}póqnøn²h“©ÂϋMuÞüx»yö2ل_Åæö»Hùa¼¹Ýÿ× +£íÿnŠ|F©Ô + DŠd»+ŠÂ»ùõ§×o^ÝþüÏ·Û] +ÇÞÍoÿÀAâÝl£Ì{þü÷70Ƚçÿ!~/nùÜp†~‘¦r®‚sõóí. +£öǡן[{9éÎTÀ4K¼Nº²êMۈx/û™"F7vD +wÖ +‚[ô +§rO—]mt÷å +¼¦e½~„Iczó 7h¦=Ã*üÙëZø +ڎåB6˜˜ÉF¿õÆöþv—$±w{Ò²k)ïÓ6U^iêò®~p̎® cµá“såí +k<>Ï<ÓðlYU +{¿Í#oORµçËЗ(IY3U‹Wâ{u']î-‘æÞg§Äú„ÿéZ7ÇþÄ{*· æ»ò¨ +û +$Õ +(â\6•fb' +­__çO +*>íö Ù]d^W6GmY¤²Ùó j›I€Æ葺=0Á`5¨Wř¨¦¬9_j“N3|º‘\8ß!ß{fööõËm`nðSî$½ãxšjåUP¹Vl0»HêgÎCL9¼ÑP㵩&©Ÿ‡Böt +MêÑÄåNû¸Æ%÷SÇÕ¶"NàGٜQk¾Äh<Þ!J2Te,¾z¤ïPڞçé}ppn;Í£þT6²HÖØÓ<¾Z; +O¼B~ÃÛ,›Å.,ÀÛ£¹V/ä@ZmÆT^.5ü"]£#·þLFù™lBL%,XœÝ^ƒMîMsDôäåᩜŒ‰¹ÓãR{a§Åqßò_;ÜÙÞôC/4¶=ëþ„Œg¦ÐwdfºïÉ5ùì`z25€CäGOÚÈò¥ìàŽC]v¼Ôh½‡ë ß(ô³ø’Q'q>7Ñ$ÎfÄËpIË£žwH•gS8€Ÿ:Œfo +fj²‰›cY]gà§nÿû +VX +;Š¿®²}å~\ÁWɵÙ&ó‹ŒRÄùØ/ìãµCZÕn¤ù‚¨0Š• + +†VoF•¨Ø»zÖègƒ°ˆJ¶€•)åκ´C7>û;x +詘[7`S×.¬Ð +€ÁP÷h­²F똭Þ©í̟mC~ %b”D$E +ï횢¤ðï=wè'Ɉ,Y~ +í¹"?È +‹NkïúÒPÌEé +ä’Èe];OZÂUÂDé÷ÁçßXÝI Î!š¼Ž-»ãàÒë¦dMˆr€ +mññáSH<ôÙº² +5aRwº.§D—Nd8g³7=¾î½lè +ÓÞ$I ¦£ïR–‘ê*Òð‚´$Lú²1bg.bc +,ïíÑWUF.[£aâÕ-ïVËÝc¼·Ìú½wìtI0†?ÕqWà‡”)€žóû-/²C +˜x”î@„zx`i¯ïѕ{Ó®ÀÜ+D^U +KÖÃyâ3ðÂg³×<¢ŒA¨ #Ä!8¼† + +qЂ•=Ǐ†Ùöíª¹g± +ßB8å(þŽøŸyY*dQ0ÂTùI´™AP¨Ö¬ÙÏâP‰Èìø ò˜á-o;.×G@†þtf?ˆƒ +Ÿ)žßœT«(7„·ÛóýÕFç.¦ÃSwضƒåùŽ¢ç}rppEc€€(¡A)Šä) +f)Ž¬àíÏ^½á-ãÂv*g5¬(œæN¯Ó.²É9 +Ä$ñf8ñ†*$̪E +G +µØtpÛYZG\¢t'N"ïóÉP »(#bÎa@†Ìkã +–GŽ8Oi5ÝùÎo$¬$¦-xÊÝ(‘Øóp°¸QìÅÁR +1Ÿì®ѕV|îå6=*d uç7§*A’x¾LL%Ín +gp1 +mb!±NÑü5%@ÈK“,0’7—2Âj= +v + âY 3¦¯sòR”ÔO¥ºÔ ˜RqÒó²i¸øFª]† +³ ŒŠHSˆÉ%U›©¤ +HU›³äõ0;j += Å¢D÷¦’òåÊßoOTje—\Y'|à˜~ÏóTŒÀ¼Tü£ïiYâ§9LÄ#ÚàÄ\*ä:z2§C8ÅIÐÚK. +Yàê:<ôÔZ!9tíÙ-¯¤+bQ¨š,òîJË­›hQ¶ÄYìÊq$b]®¤ƒPMñãÒAW¾B(JUä½uƒ'ð +ÑQ¤ +‚$AjÂE7¨ïdS'Áòäñw@~/ulÀš.2}©gÅý,<ÝñX‹[¹Ê°¬Pˆ“ÑcÛ œÏ¥ +†€ +²œkžA!ñnÑ[€Ñ`-Aä܍t?¬h,ö§×PÜ}½Ø‹íÔ×S¡ÔOóQùßôò +äJïåù³Ht¯<=)B¯i{ +˜flw£sêœÏtƒRì.RV^Q³òwæ +Apó +þW¼^ +f1_i­]›þÂÂáe 0ìXÿó³/1x4‚=|Ö ÂÐh +”÷æ,#ê†ÁÒgˆÅpÕo?ARòúØ'˜‘¿çÆÀ +MʨGO-b + +5ù«Y¯¢ÂW³þø‹Ë§`-2%–ßÒۓa¶F¾æH3ü]'vÞƒeGŸB`¨/'}Ö`ŸôÍ(œœYÉçžqŸ`9ДӁ +uâ{YEËÕ×°q©ïáï€iu& +iø®äÀÉ7‘jlÍYf) +Wx +¯#É”÷[Ký¬GŽ˜îÌCÓ8"¡žwµžÈ)Ô' + Šébábçgrç£Ô!vTO-íu%皍\9®EÓµ +4dEø +Êó]¶W`aµãÜ—žs¼Q9›6@Êcú‰m„bHÑucG*e ŒÜíY¸*b”û(Æ­úŽ€‡MåŒîè@L¡¡ç„ryô #*mÃtÆ`6³R’¼;qӂB—‘èd$é¥ô +'f+”J.mùãÛ=÷§Ž¿ýP>½$ +¾GèT +ëfÑpà¨%Ù +L°JªÞísÍ&ˆ="ÎÁ-Iˆx¿½¾¾3P†{ +ôz +˜Iæ½3À—ì{^ó1Î\#DeóŒtíÞEyãË[]¨Gb Š6.w {ÐRî£î]5OM¾*¾# +a®Ø +à +ÔÿÑõtUçß +*ˆç¶çö)öf𳶖/ +ï¸GX,?pãoÓTõ!•¤Þx{jUøª®å{F‹_ +ù,•ÂY$Žø“0ÝwaûtåC›ógc]AeêÚu.æê¥LÙ¡Æj-*L±–Š\-•½–Š +SK阮¯ö•ý<ÿÞ¶rþµ¶rú¨¶rºŒÖÿþËÿ +ÙÙ¶ +endstream +endobj +141 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +143 0 obj +<>/Rect[172.513 +208.268 177.967 215.298]>> +endobj +144 0 obj +<> +stream +xÚµYݏ㸠+ï_a÷àג¿»OÓÃív +‡Û + {Ð8šÄX'ÎÊöÎî_R¤ü•x2\1ÀD¦(‘⏢(Êûê /„?áeÒËÒ"È +¯öDaá=<{q,ƒ4ò¶2 +Dä=ìþë‹hóûÿ¼_ +ˆ¹ðD +DqŠÌ¡·MEP–/Ùl +±ÿŸM!ýÆ|©NûÍ6Êbÿ[¥°‘øüs6ºlŽç¾Ó;"”Íi ¿Óß;+j®‰Ò@fVÈÃAØ(ò?ÿú~#Dèßã§ôUۙæ¨;󃺟ûSÙUÍ©ÅÏØoΛ­Ì|mT§‰Rˆ±Ûýÿ54SÛ©½nÿ>[³H'úˆ4ˆRo+"0Tb•z +E6㟪/3Ô}Êþ¾2mGÒý´ºc=Ÿ™Ð)³­N;zç¾†Ö uìHdz2 +« +/¯jgóD~~w{Iˆ?°€‘½;€6Û8È([êvD)ˆªL U „¾cí[ÇÒ5ø +ëatžs$J‡8#‹Ñ_ûÊ +Œ:µÈ¥\$Â7 +Rv +!;HHU°TW•}­ +íÌ^weÜòÊ"ðgráddmNª®lòØ¿Cûç¼N™e¾û=4ä8öÃj‹ +»æÌÿ¶± UZŽ a_s +Á¼ô5qPü$4_XÞSß-fît‰,‡Sõµ·¤Ô/Õ ¹¯ê¶!®'rú°v¾°ˆB4BÁ††:Ÿëª´E‚ôký +Eé:ØlÓ8£=‡ +}Û«š­ZÇoQڎۆèo+i"Óèy§b™ˆ +Q¬û#Zî‰ý‚xpsØY,†íåÒ¬"qC:í¸çÀ, +ú)afZíPµ8"y0ÀhöO°Æ4¤˜¦é[O~?¸$t?úmOxÑTŠé`Ù4¨{2÷d±]™GÁiß +p‚äÚd”Ρ”ã^7•n7ô¥¬]¡Áko;¦³;‚sU;½Dó"òÿÉ΋œ¼np¼D†`œAâÁ;P7šõbeÊå $ïÑØoi©úÈ +Õl Ä$ú{õTÕUGëâÝU_}³†•¸‡ËR·¸)8< íØàêäÅþ§Þæìö‘ +HŠÉ´s82U‰Ù$©ëØQO +RkæÙÒȲ÷° .—rGì?ý] +Ï8 +?l†ßrqlZ +°ÑP렘Í-Óò5ôKËäޞ*øÚ©NQëÑÿâفşÑâ¦jÁŠQžÚcæ[l/užúÏ + +"F?ec:‘ +ŽÖxÓ +Ý}¶ªÕ“], +±ºæ“ö +ûƒèS÷¶§? +e§2»«ÇöÑ"ìïtÝóːX ò”È$  +À!dóŒ„SH¦‡%¤tXF¡=,³hž¸l#|-ېA"çÙÇu +sG”—Cå68~V|+ž2™ž·"Áý +Ú)A™¾¼&8ʙÃå´M8ô\™’¢Â©TÿùáÓ¯ÿ¾2q"Fé¬üÙPȃÐö +ŐÓBãåÐÔnõÈ|P”2IV0 + + +– órÇ0Eäåy + + +ÿñçOŸYÏy^ڜ“4ýéÊJ qÜýaeÀ.JÞ6ÅϯOYAöF-š'ØÙtXbh£Ä†Öô"´F\ýQP„f€HË +»o•õOè·áȔú5gH^:͆Ô;3Ó&§ + +„´ :ž{L9¢L`hbZs²»ZŠ~lš¤˜od‘Â[ºj:F’d؁¯múá—ÃAN'¶2W²›ÂÄ8)"]vxbJió,´'|„þÛx°æö`•$Ùè,’r´ƒK½«âÉí3°óƒòÜÔ5 +ˆt¼KL1l¬Ãޖ3½–ÕCk"ýB2Å>SaZpy°Ó!5\+¾zsæދ—&A[&†Ý +eÞÂ@¤ù@¨½ÏÞo—ÜI ܓщc¦ø)fKàu24ÉÞcú¹THä"ˆÅDÆ@¸!¤A:B3ÜS26ó +d +„×eȬ¤˜ÉèÌ&T¦»”6˜ÔI›Ú8yÍÆь›+Üi +„Ù`Nät!ÓН +1£÷¹ÿa‘¸¯ñÚ} 6Åj.m°`E4ŠƒûÑà†_EƉ˜Bµ.B¦"ȊQÄZl +ô‘õØ*c4õep]ÇÔé9E)YE)¦é¾¡Ñ7Pʆ(e¡)«)PeõPNÞ¹[@߄•“²ïV£”µùÀ5@~&§â·˜ ”€ +Çl7`‚™Å¥ý +¥ýk(9q +Ø^A)*¦÷šÏ?.Ò¸„è*XNؽ[` +Âþ +¬†ìé*VNÃx×±JÂ8ÈÄ+ý:VIºbÁÓÎÀj_k·@o +¬"’|&± +Ë ^Åg˜Ø +|&óÿßT\ ¶È9ÙL<ú@hÊ >³³©|ílÄ-»òFo‰xƒj·@„ü½é|4]€·‚UæŸl& +}+¼°L6ÖF°´y +,'oÞ-°F‰oBËIYÀ·†Vœ2™Ié鼪÷® +—SÓ¸ª˜-XÔÍI¯£á4YÀ³†\ggÜDXÑòý +-%»Ç +SœsI +MÏ +{1‹ +ÿ}µïÍ kèAÞÿ?}šfˆ3xœHã8öê $(²Ù ¼“&\Fe.î| è3Üî©e·‹mÙË)ð(³j™[´ +±¶yl\É)¡w‹ºVßïè:ëô¯uµ?¸wŽ׶lXº)DLÕÛ(Ì}ŕNc¬Êï°;ãZ3ö³öá k˜Wk›«X +–nMÕÚ2ˆ +¤°ˆ‰^)ÙÉ +n ®xÄqy±TˆÃ)3ü•fêI•d,m +) +6†kF)—U +-«礬Ê€ +!ɖo%TÙ´ov®Ì +ªûS-ƒ*»\lÞé6 §Œ¡6j +\½¸,õ™ß2'C¸ÜãK“Þ]֍¹X +w5÷•Rpš +AÌ/΁tµàM'Á²Ö˜Å`<~†N\%ê`J¶ïŸ;Í/‡ÓrÜPÜîÖ +ÄC×EhÅçiWnÕj¬"K~ٚ—àKeÌ`4:DlíÕMäjWcmé·¿ü)½ + +endstream +endobj +145 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +147 0 obj +<> +stream +xÚ­X[—ã4~çWžœ=DXò7¶áì +ÌvÏÙæAí(‰Á—´/sù÷[¥’|K܁³}ò`Y*IU_}uqœ'‡; +ü¸ +'ŽR–¤NV:ß¾ +î±ÔKÝ$¶"bÜwvûÿº<Øü¾û$’‰O}Æ#D‰p³åžç¹ÿވØ}óö§û×?l¶¾/Üßî¿ÁAàê‡ïþüöî՛ýüëîî;šxõæõîî?;}ÁÝÎyr˜Ÿ&ÎOOœmșðÒñ#ù‘}/œwÎ/²QÀ൜l +¬¨¶ó©úB08ŽM +6¡k6¡çʪ=ÔM)»¼®.t°'ŒÆ‹ìûó7‰8bQ:½*ۄܕÅf +nû°¹¸ÊÚk¯šØ¬Úâc”¥÷ë²qÂRÄ +DýdjÁ” +œ, +aOÀ’Xpÿêí;C  À(éÇ(A”øÜLO¼K™ì׶ê +ˆ/õ +§§Â*<ê—Ëþ›.˟þ±Š«½`‚•¿†U*X0ám½U’°€¿V¯îŸÁʪ7ÇîV£~·±²̱»Ž÷"æMˆE{o€Å=ÎÒèÅЪ[Õ¼ÇL¤ö«¨ +ŠÎa\ƒM$, +fšÎq›kêÈ#mº“ªŒÈìD khDôQyý´êAÙ¹KV\ÀSNøj6¯ùÀKћ°+d!ŸGæÂ\šþEÜ?݃† +g¬r6!šŒ*bÙ3ˆÙ+®@æûXëÊ„·h+RæEóý?hûí +,W !1eí^.M±ÍÚò0ÂçÔêÄZ½@0ô™ˆ^„tVÑ”·’䨪F®6¤›k¤,ÿnŽÌž)Sƒ¶ +¯¬8!öY +Oœ@»o8昿¸ž- +¯Ü¢ï¨êÌ W‘³W, \G.IÓÄ +tø%áLPg¶Û$¾ÛL»ìv³ +àû ª; +„n{ª1 ?T4/Eó}UäêP/>ÑRWÓÊãf‹n —J©=xDeµÿªnhœIsàL:“M“[ñº7*ôm^ +Í +P³ÑÀyÕ-šñîÍ÷ιýª9ôU¦mùÒ¼ã­8Pey.}u§ºU4ߝdG£½Â\þw'š;7*Sm +n+´¸ï4RÌê!†:¸;¡!ïæZ°SM%‹–¦ê=;+“Á'ˆ@è#Ú·íš>ëúƬÔA:=x<¨4.t¶ž +:)¹W +Q +¼ +^ßO˜/ +ÃÛú Kvº–<æÙ¦‚m¶q +¸ÿ$h_S„5€kÃ×Ùy«Øú±î_' +9y6ð)ô‘F}„–[0(%1ˆDö9àÜѸo‰hÔB467'åÕÀUT# É¤ÝEÐà™ªÍvï:Éꨆ“Fé ¥mÀ¡GO0¤ô + +“¥h¡Ž#Þ”>¸™ŸÜ\„î¯DV?I + +<<ôgqw/;3Õå¥ú‚†[¯¸oSÍ.?ñ.vLý +{cWˆ™ælâeáfȁ‘‚°¼–ì9‹ýù9Ü¿Þ[Ûöˆ‘ wë +sŽÎ²éHwt(Î80Ða›0@‰! +0zSáV²Tö +ëª-‡–[—€qwp¬€ +MMŠoGÕ±GBþà;6u_í0{#tž2gڞCGJ3Û©BµY}¶Y +ç¬M]pû©íT©³Ç +uõ%EA±Ô^¦0Cáb°GY®èLœãîQUª1&¡Œž’ +€˜’åt ’–öEÝæÆ$œ“-É ùhtnêc¹MµP@ +-äFTÇ*šüXhÚ¨DØ´IŒÔ +c5Í'°]GƒoN„lZ֘õÞÃü—´ðØw6 +›Ìl\‰s£+ñÎÀ¢Ç¢íÙ,¶$ÀߚCNòŠ)”ç¡Ž‘µ½›‡†ÛÂsb,Ÿ:z,Žo?1Ñ1W"òj +aj¥xe”‚´×PÙðiÇS*c­›µŒ4÷àêގ‹ñÒ¬àŠL{”QO= B#X`vK\ +JÌÊ¥’Õ5å6Íá +ílO +œM1ñ°Á¹ûGßv¦CIì¿'`ÕU†é¯ûCY­“ÍQu4–¨Kéӈih±šž +’x +5E8ÅÝÜìÆ>ì£2òÃùmŸ)O½¢Æv–š Bœb•‚•;âQEr AÆ}÷43-8$0Åû +Ûù @Ëh8/aF°ìt‘ +±‰J5zGÏ¸4<÷=èd‡¾(ÌԂ¸«Ô$ÆÕúЩÊî5.÷–>1yÚ‹ÜtÜfÚ6òm=tf¿|ö?ÙNB +endstream +endobj +148 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +151 0 obj +<> +stream +xÚµXYÜ6~ß_¡G5ÖM‹§$~ðf퍃9f€}ˆóÀQs¦ ëhë°=ùõ)ªHI=­±z,Qd©ªøñ«ƒ +}Šh”ÀR¥*'Y +Uô¯Ûèå;фäI +ÝÞGB0¢x´gŠP +Ý +~©Üýqûcôö +óˆ + +rÂI´W”äù(§v{J™ˆß~ÕÕ©4ãGçºAœ+¢Ø(~Ó붷õÃnϓ<þbû#Ž +Ýë²qÓ4‰ð‚Ó÷M‹+ +|þ +EÜ +. +LÕÔ]ßêÞ65ŠÚæ¡Õ®—¶ëÍÇw»=ËbS6;–Æ_pîsilZ°Uuø½·þåØø +Á +('RŽ{èLk“ä¾:Cr +èä€:)IÂNžf)aé™ðûï»ñæ|~ÿþ·²iÎñO™m›› +oGÄÁJk>ïFÈ:ã7ú`?ã¡:_‚˜†Ci*Ó·¶p">•º0ÛîåŒH$ßvo~snŽ£¹%>â:|•„#ÂbӁ +ðL3Ò«0µƒ'8Âb}:éÖO.]ÃX¡téËgÀ7§ð³Õ+ñD3"¨—˜°6Ÿ†ÀØæÄÊ°Ü´öÁÖÝöÖyF(FªÜÞú,ìp=gbߜF0. y±ºí„¶m‰'ÉžUîE‚=6lsa‰´<àÊÝÐã’Ï2àԟ¦õîiÛzN¶¦ë†v›–L%.{Ž9ošYøšàªW·Ífœ(Ì;é¶ÙYø27,Í"B¶ö`  +„pé Sè²Üô'ÊQљË6}[¯ç-tbè¦Dòã/?áàßoE"q +’Úo¡  +qќŽ¦‚ä¼ÍsÎrB³Ñ™|ÛóYxJ +dv +M4³uQ‡ÉûÒ> +0*M‚>t«~«ÃÉöÆoM× +Üè~hëçýKI–{Š±Àê‘lof–þF>çR¸ù£GôÞ=´Pž³›L@y7'ó•eÌ +’ÓÙªPI\`j8Œ¯4¶ +>‹Æõ½óDäÎ7}xÄçT°¥ÿlË +Ú¡ +?aóT¥ +ÛÑÜ +–yÿ>†ÎÜ¥×nÀ®î½Àȳq0½àd.ºó546 ¼Û‹LÆo‘:×Ë}iï +¾B(m²´pý|Ô +¥;m¡0iÃtÑ +p8öý +¾Üëuù—þ¨ë0rºÑ§Áö&h«Ð,ýÅ +ÎZ'ôs¶œBlÝYԕ›Ÿßí(ôIo|} +•÷ÑéP<ïB$T;°E%à +õ©Ãí#kÊBb‘ +Àm&I*—‚ +›®w#(0¶-† +Úú0 +NAÉõƒ¥ï›Ò5~*þâ*pÞ÷¸R¹Ùu©t÷1l +„9à€í +‚gއ£— +90Tî¿Ó \<áÊQ»IŒ±3À›‹3чæ4¢%ô¦P™ÊG +#%eâ-ÂL§?ðæÇ=qäž4Æn +CÖ&—p£Üop¥éŽúíCm!m‰ÂÁ +˜¥oÊþØ +Û.<÷¬c¹ê»ºêÃìCnÍù‰2ºÄ‘ë÷§¶ Yfk Ù×üpÎ3OÂ<Ð3ƒ](à`9`Ož:º +P¤ÚqŠçêæt «Á% +U¿B¹Ì“2_Jdñ¸ñÞxC·ÒŽ° +JIèÃ|²üˆ¤TEZ÷¡´bÞkZ¨–>H€­¯¶r·dŒ$˜»Pûá`žTŒ²©¦y¿öእ{ùŽ%P:òtDX(×xq’c +›V+›UîŒ÷“”Lƒ&IДaGòH +a²¢E’À™D[ÓB‰K5y>é‚fsVæ|™u½Z1ÇIÂýùdˆÀñ±‚”xžÿ¯0ú + +t‡ +ãR<‚ºy=l“_Bìs~0Ëî¢ëÎ7ó‹<6vßs +qoàŠSx♲´§®±ž–ž‡ŠÉꙮàӚ)ž”Ÿù·.Âo0ý´¾ +ŒÑÖëv3œT’ö¤!ý} +epSx + +$ãïvp3NŸã \UòðÅgÐpÜ4]r/©w\Ñ7~¶à +_Q‚´›Dª-@ñt¡eòüy-Ý*çäRËVàQšñ E-eFKÔd-Làž›y ÊVR×¹¯× +,ÿB–&ÿ÷ +äṒ›4æ4ìîÔú[w¸JTÍ؇½Zs$§„Ï´f<¨a5 +5%JÌÜ_;&ž„^¯ +6€#·;\îù”Ïü¥ÊýВ\Ã:!]x*¸t/w‹_¬)”’dì*Òì[K‰Ì¢IèµklÓøŸ2—«¹äú]ð³]l±@ +’âït'ÝB³¤¿ž%ž5Ϊ„°Ìq–_ÉY~ÛT‰<ßt7M݁;ùV¬.ÑK¬-e3^ +Û/®È Æ@oßM÷çÎSÝ +>ìžluÌÍ«—Ý·î ã­\÷O[¨ÞV¾œ,[²_ÿñ »¸ +endstream +endobj +152 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +154 0 obj +<> +stream +xڍT]‹Û0|ï¯Ð£MÎ[­d}î!=R¸Ò +(´}0±â8µ +íýûJ–|q9ƒ%Û£ÙÝÙñ’_ µň’´!û†|(Èû9A +†R<[DÆ$ 'Eõ=A™þ,>Y„ž!¸FPÜ +B¦™1&Ù~Û|yú¼ +ÑÛâ-+SÀÉ$‚1ã9F‘§ç<Ù\ºãÉoÙ]š!¥4a<ÄEEå(4w{#Á! æQPF²WŠ·,ŒW–&Âb€ëKÎYú Áf4 äŒe + āN2 +áØ#0Ca¿ +KC®FHq¨=f[vÃÁoÛîXŸS¦’¡ +ŽíÙ¿¼”]ÙÔCÝõþ¹ìêõRc ·º8—4c:iOeç7­£^ÇJÔx +*øUR«ðù>ͤ”ÉJЀ" ”2ÆJ +–ª)û»— ®I +üò¿ö¾&Å9KV\ÉhVòÊ´•²Ž²ZÔ:W ôxlWàX΁‚æöˆÄ֐OU8όº÷Ë + +ˆ•#s7ŠL¥šTîƒY:øÑç^ž«à¯Sß.Œ!•ãÁ}Ûuõޙ*thýú¸I™Lv¾)ÌÖ½ñï +Ÿ¢öCÉ`êOóŠkœ8Qÿىg“»I&Ííþ«^âYÑkV‘ö#só÷ÖöG +ßZÊÿunƙqó=6zªº±]ºÙ´Ù·ã¼¨â¹=Z7‘~÷0yâ뻿£ì +endstream +endobj +155 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +157 0 obj +<> +stream +xÚ­W[oâ8~ß_aÍJ*âÆ΍ìMbʌ¶«YµS҇Qéƒs¡‰”ŒchÙýóã`Ÿ@ +**՟ísñ9þÎq@ßA¦ü#È£Ès}<òQT ºül#bbßôQ0G¶M±k!ƒº˜X(ˆúÄ<ÿ OúŽ0± zFÔÃÔC†G°EQljÂ$GSôUYuv¬jßÂÔßý5[Dù2N†Cþu9g8ýkãHÚ"vœÜªÌb%ӊk8ë«1J¿* +—Ë0O:-<ø}ßl¶j·`ÙŒÎû‚ÿo–ˆ‡É¨£Ï–ãipwó¯ÒeµàeqÈ[~™|¼™|Sráƒõؑ²7R»Ç­ÒL‘äåâIã´ÂvÅ4‘<Õà9×`)"² +XF¶P®6±M,¯hçÈB´B4_* +Öâe+¿XÁàd1€Šˆ€_ +÷󖔰 +و³Ö8k­âíV +þkQÚ¢¸E¼A{îY¶Úa« +¶Úa« + +ЮVé}”W +¡®ÂΜK¸A + yµ"ˆá¨’‘÷ã*³—J`š ͕† ™U¤Us&6S 4gqƵäµÊÉB×OšdO©.–+­ R +ž’¶êfýb6À +_\ +/†9eÝڜ™Ä1šúl0Ú@ÇÆ@¯Þ†êo•ë9 +¶®<ðEñ\ȺzÃAZ¨Í?ÕàR›ú +t¸²ƒ‘Î5Œ‹0K T<©ë%o3ÿ÷-› + Œ’¢J8;ÛW{W“\g9]Yœ‰5ÈÎ9‹Þ¸ÕAš¶Ð‰Àw(DÐ TD +12ÂÎ)žv¤L<²NdãÓ|žD"*Ee^ò–AYĈ†'xôœ¿òê8'¼ÞWP÷"9ÅÒy—>’S1§¯ž”Òä}qÔ$0 –`´^“În +©fàìÚ»®{m?¶7˜»#O$GôkdÝ +á={œº},ô{É7 »|øÕèí< +~ÇáÍùX&DwuïÒ~Åöâ]é;ÆכÛú·Ì®cö«2gš¬E)²RۀÝE‡@9b´´‘:‰ÊE\Ÿ`àKÕá·#¿Ž|'1,­¥†ÉxJï¤oÝU¶<{Ô:W»y®» +ïÈçzû™º*9oJ[V°¾—R×ã{¨Ó +káëÛ½ÇçDVâ—WUO]ÿì°Ö +]C*{öÊGƒœ +`ÀõÕÝT¡»ñp’Dç‡s´Ö‚ƒO×A+&c . +2‚^ÓãÑÏ«½3ÞS¨> +jO~Ï[¾ +û½ø +Ǒ¿ +¾þò®Ÿüz +endstream +endobj +158 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +160 0 obj +<> +stream +xÚÕWÑnÚ0}ßWD{¨ jBL 6‰µTjµi]Ëä±Çq›h{Žal_?C®ã¤@C;:iêƒO¨í{}ι¾‰õÃB–«þÕïZý^è +B‹L­÷c«sá[ÈuB7´Æwj†Ýí9ȳÆñ×´¿¯ÔŒAe†7@NßSW3zm; +ÃÖèËðãõ‡Ñzöh\ìTÖø¾ã–ÝCN®× ÊEܶƒnК´ŠñõåÙÍíI)g$)àU×u]Ç=} +ÿ@L`}ûÍ:®ú¨ôÕ°ŽÑ9.&\ +Æ©(ð”É”ÍN‹‡›açœÂ.1éËtAó98ÅÓqg +Â!Ï ‚u<1Þ–xÖ­Ñö‚Ôö`§b8Þvo *aùD +mÒ®έŠk‚0p¼í›61ƒÎ2¼ÔYbArZÆÆ3ˆ#(¡y®x+ +sNi©Ý÷i'Ÿ´›˜YÖF=_ù@%¼ålbQ›ªXo8ÃÊ5’¬Ï.õ/“Ö=e„ΤHAfåT,¨hL9Åó¡$)òê +VÜ€ + +b +–Úª +R¢u +‰T£¸D”m•ÝßY3D¹,c÷`¯w†S/zó8ݳ^ +šQñòH.›Ò¥û‘˜’ +MJDpɐ;( +vRdŽ£ù© +¡r­àRY¼'Q;iù—~¬¤}RÖÌ^èo]¹›ò +uæs,}Pg&´6k×ɊÅèFÈ®ýÇJ0®o§{òPv +1\”2âgW©d\Gi2Ó]=¿¢NYsÎ%AjÓÄóÒI4c³{}&zY2°ä~)°J-ì;^¿šš¶§¿Û¼Œa&aÑÑo€Ê¶‰±‚IÍp}Tδ8ûùíwÃT¤0—9Ä& +'‹ +Füÿ*ÌŽA-©›¨HüÌN6«Né}#£odôŒ¾ÑËë«U¨ˆ•âFOn‡—°Ã¼«>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +163 0 obj +<> +stream +xڍVÛnÛF}ïWy(ì4¢gö¾-ZÀqÀF¸•úç"銀$2+ʑþ¾#-×i’2$€G«9»g.;Ãè[„Ð#Í"­lll”®£óè꓈b +6š?FB°XñhÂTŒ<šg_.Ð^~ßEÓ¹7–-ãXÈh¢0¶öd[<^N$“þY$»iõÐ^­kükPõ´|F‹Æü²ýty½s'øÛIÕuŒ†äÒã¤àê½7¸»ÿ˃?§¤‡‹Ä +Ò|S»"õ +ÓÄÕKój™¯sWlcÿûýÕiÿf{䱔§ýIÝøJ_oö{#‡B¢j\)‰V)ãõA_q¢d€` +c +‡¹ì,ji8¢e˜Ö\liFpA\àŠKc¹Ðܘaîk̀R0£9 + +æöh +e +¸a$ŞÉåíõ¿ +0ŠÐµ‡7·÷g2Eµw¿Y$ç‹Ï +Bk9!Â6« +ÛÚÛ¸†úó>€C{“Ao®«jÕØÞNÿ™y”–Îåi]”›s¸÷ÿÒD3Û÷þб9œ‘4ûüé9¬Ÿ=X•iR—m+³ª¨óá!{kÄîËj·Jê¼Ùg™‡˜mê|_Ÿ/ƒë*-Þҁ/½ˆ.KWló܆|'ÛڕëAÀ¶|¸Iœkü-wuǓÚ%›ícéÖɱüZ²ÉBÛ«J×e¸|»[ÕÛ7ø^§Å·N馍 +YU¨æ* + ¸ížÚþ†_®(+zoW@â]Ö>þÝíM¨úÉ¡êÂÊñqx¹ +—¿¾ +J‰Ýëf +¢µMÖ +Z„Ø/BçŸ%/c +âÛ »]UÔ¹ë.Ïv +Xÿ-›­²üqåïno:že +x¼X·®Ì±3R‹žàÙªEà95ï!Ûê©o6éØ +veÀ ±JŒó»½^Æ +¬¤ŽM3ÆPǗfœßí÷ôv`@[ƒ–q-¬ecçÍ)Ќ3a¬>ŽÊž6ý¿gV +Gk¥Ð´´füü¾y +99.PI.ä3ÿ‡ÜbnéP.{ÏþÜÚ!ÓW©mBCc¬ÑV1.Ñp>ÎÇ_л +E9ђ+qœÏ:|J­² +¹¢!"6ÂǾ×& „Hƒ¤5cÆùØSȔE®C¥%ŒóYŸ*K[khü§—Ý¿úØϧà +endstream +endobj +164 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +166 0 obj +<> +stream +xÚ½VmoÛ6þ¾_A´H!w1C +ß³­@Wd@‚hûƒ")‰Ûrd9-0쿏I[¶d%ŰŁIÑw|žçx: +zDû¡HRÒ`mP²@¿OÐÙ +Q‚ +1hrg-Æ 1eh’ÞD@F³É•µÐ- +¦)VÌÖr46ÆD¾ÿôùãEc}1q»Š–ç˜ +4–ÓøÝÞÀ +ß.Fc"úÍ +“_š +,Ê°;Ët¾g)³±ìßÇ¿þcŒh­™V0ìGüÁH®¥F·þ 0mÜóxó¾JòÇ¥ó™Fn,“S7IÃdU†I&ßý¤|ò“7ñº*‹ +b~¼ +¿–y˜¥¹‡õ(*³U™îÓyuùáëµWõ΍.ÃÊ4úÙšÇˬZOG篳€x8¦6º‰qÉ}ööpߪpã{9YUæÉt„ÝêÛ³fK¿ãNGÚ<é„vÇé +aKâmܒø·“ג°‹Ó¢a›,eVmJ/‡ìrÇâï.±×ù2™oÒÌyþº®Ò¼ÀﺆOEîôhI +âÒÒ:°-6·s¿m÷,¦IPÓû«ÿØjŸO‹ž çËÊýšßðY;D>V¥µ¸;8 +ëëõÀ Ö)‡Þêô@à›Uȕ¡×¨—ˆNCÚ?Å' +«4pÍmM;Ímm±_P±ÙsìãHyXHþ=ûd¿Ä2N—AÂí9-ÇRÙލSNÑ7dÏsÅê»q8íÓ +]£/½—³ ¬Þ¹Þrò`3“1f÷e¼Ø>ŒÆ £t“dk·T9C +Ýóy1}˗÷õÔ/Gc^”Õù1Šf*PôO-Ší›^l¨5â"(¯k^7 +e«"yp‘º{›`rî¯~î +–©ÄšR{×_p(xê +fö&%®Ah@[/^\ÅóâÞ¡¶Ëü< ˜m +´:Ä +†Û¾G +j#כֿGEr# hvD$lƒ­´ìætk÷ÿJä +Þ}V$Ùr¯Vqi¡„gn[DBúãPÝPVÅ* Hʆr@šMi ª¿Pw¯¶âv•OYzüìl'dèQ¶ã•œC»» +ÈKÁä3`>;í»§a±Ýò\}þèëÚåÅ×kÛò +¦m]ÏT ùɃ=×01œ¿J»0€¶AùŸßўâ)ÁB‡âéŸ\ñüòÓ?0!é +endstream +endobj +167 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +169 0 obj +<> +stream +xÚíZݏÛ6¿¿ÂÈKµÀZ?ô•>µiƒ$ÒëÕÅ=ÔyàÊܵYr$9Éö¯¿ÎP’wåØEÓ ‡;,°¢È!9 +ÎüæC^¼[ˆEb‘ÊEšäa–/ŠÝâ»Õâëçz!¢0òÅêv¡µ +µXÊ$j±ÚüHqõfõjñÃê1q´X&"ÌsG÷ºém÷ôˆV$b‘„*Y,ó8L +ý:éɕeÊtB¼ÚÚ«¥ŒÓ`ßÚ®;´î- +Þ_Å:0ÕÁ½&Á:ÈcI#/þy%ÓÀ¸ + +2¢Ò0UÀAké}×L®GÈÉ"Yjï +>ÎÜK +ꌇ“fV€ +ΓÜϬ¡‡¤ag2OFÓ@æ:‹‚Î3Ò7èøݶÜ*kæõ2A+ÅÙÞúM°l +î5û}U’/é4Xà‹f¸PK Ó^³_‘q˜ +R$íxûu%æ¼¥a,g 6>wÀAD`c¨’MK‚£êƒtžÍÖ¬Ùx+ˆL +ß¹AÆø + nZšè]'LÜÐÈo³÷ú ýEl¿A_ %sþ= +¥'}CœÒnòÄÚÎÞX +~Gáߐ³q§d˜ÙD‰P$Ǜx±ðý3J! +WÅÁ9Î +Ì#†M_n +#9¹žD€»6»}Å/û–¯Áá;t°±¸öà:KØK#˜`/™}Óoçí! ³xŒ¯¼ü%žaž"IƈÞiò1Ô¬éeÙb :e} Ÿâ¢Í7y³d^‰óÅ@äünAÌTU¥i +2>ý:8–ùdÓ®¯Ð¥¢N0aIˆWGI£v.ƒå +€¶hP/rô`.Í +½Ü:•„_—3jáAN>`ŽHµsnÐ*7lOÃÍá +ÜxFŠ +܏L1Î^´›9ÒÇË°Kƒ0Ž +a([z=‘:‰ t’ +™ƒF«]o0X­ +K㨍øtbC‚îíýêj +t¶~ØÔ~ñÞï,mU +/KpªSV:†è˜{ŽÐsöö ރÎٚTŠ± ƒƒÏ^ä­©;@ÁáØ%ǔ“Ð&÷ÄåÖØYñvX9yB=·áҋë)»™"†lî`3ˆÔWG¥›cô|œ + ¹Û˜~Û嬟¼bMçj”0=$y„ g±K³¢ý€KF=pI•Fq–ΗÊB‘®ü³—þóÀ¥’ÀWö9€+I¬=nÉPNaë%¦ø$¥b:–.•YâJ/hfU·lË¥K_] +ÚT”‰¢ý¸´Õ +®° +‰‡ÞÙ¯Kª`‹Â-J[» +:¨R“úJMôn•˜J:~ÛæPñš\Ÿ 1Ž21æzlÙ¾ŒèŠ©3e +*=1Þý)ãGõj\üŠ‹Þ6¾bGG§Òä +§ôØv%·A–®Ä ŒtC‰sN9:XƓws +¥xôÔçá\çå_Œæ#5ƒùQ<ÙZ®ww|¤G +Dws§Ëäh +îteqVàþï&e^9:ÏõÚt7;‹.ä ‘î+Sس8 +‰UÿÅPçI$3õw‚ÒÏFò‹Ai +Î(KN@銂†8 +6˜¦+Ûò+•­Uœ³úÆÙ$ڃ—ùhl=Íÿp´§Ç.íÿé +9³&è + +ŽùqŸO¦ +¶v(£S.W‡'kfÁÄY4©Nٙ¦±Šê°±ÝƒhØ:‘}wü=gŒ–Á +}ŃÇU.èª\˜²“´¡÷•EùK†ÿHµpï>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +172 0 obj +<> +stream +xÚåZY“ã¶~ϯPÞ8U+šÀÃ~šlƕu9ñ&;©¤Êë +1¦D™ wwòëÓHH¢VWœÊQó h4@÷×fõÓ*^Eð¯òd•geX”«z·úÍýꋯÕ*ŽÂ2*W÷@±N²0NW÷›ïƒ$¹ùáþ (<Š´ˆÃ<B¤ÈnÖeYw½ýýÛoïˆúƙ7)ÎÂ4[­³8,Kšø>Šó#r_ˆ$“ܧ¾ßš›ušÁë7zÇ­ÃÍ:)‚Î6CÓí¹«±ø[C_ííc×ïÌFö7I + + + + +Î̓Ž8Ԇû¦æáïeÏqâK¤£0‘=ƒè)_ݬã,ÇÏL¦ø{ˆ‹°Ô2ãæü€ +=c;êªm›ý“HÄÛ+y{²üÑñEi-æöë¥Õ’ùNºkú¸ìŸIµGºN +–p¼qjM3šj¼ +c„msÖ:Œ +áü8îkwÜið±¶ØRÁßMßq_ÕôÜ8ôÆÚ±7_^¼d +Ó%—e¨â ++·õ|•£„´ñ°ŒWiXfD²]0£6åHÒë\v +\Ê0-<.I´Ìefb—Ô$Ô¹ÇäË +uà +Ý=%:’"_ºï´˜ý}E +ŒŠP9 +ˆ™&Ñ¥-_PÒ +5`áì’x¥Q1sR¡bLX’xLãi¶Ä#•öy”ÅÄèøA’™×•ŒUœDùUЉ“Ïꥨ㑿#=7¢4 + +‡Ÿµ +ØK|f=I–òT5ÔTÁÃ8pß°Eî¡Ùîc+ãQÃՍû¡AäðàѺÛo +-[HS7°i +Hˆ½O +kïºL}$$JA„zq1+B]ü|\¼Š1ø€è? +¦ý‚ðPfªŒ£ø + +”ú·ÁC¦Ò¨Œ¯ÃºÃ +frŠJ’\ƒ &Yð±[Û¡z¢n5Ç!•˜}žo^_ððy +‚2½ÌÃ_ +@ĉæ¥Q@ÄæBE +Tí°íƧ-o +͟1`ï +쬑Ý쪽Ä48£:¬V’DñÑN¸rh›šNÁÂZ*/%$£õ»–ÅàRª +6ÍØï«>tBô½©Ö°cØV·ªÞpcßí×}óÔõÝhÛu^*º™ÐN£yÿ„ÚõÔÎPOP›v–9šž¿3†Ù +ïãÏH€› +çöŋO’0R?'´¶É™ŽÑú +ÿö¦ª‘v+¤ä]pÀ¶ +Ü2F½í3mÐK¤¦—`ØÍ·c;\Åèœa”]Çh} +£õuŒÖ×1Z_Åh} +£õË1:û +1Z¿£õ +0:¹‚ÑÉ +0:y!F'/Æhu£“,B#y)F{ä0Ÿ€œ’T6ËB0˜Zd)ð+i%öœÚöæ`ë#™ +¶u@ßd†8À¹´ÈÆà·7‚ +Õ@‹P Ç + +z¸È•ÑrnXÆ"u™ß¼ý–¿½S‘æAÛµU¿¶Ïv0; +4‡­Ù™žØÃ'm»‡ÂMês +ï`[ +?ͦa´Úoxìz7ÓbºœuCÎîù¦PÁ«sÁ›=ˆRáÄ< +ºGøÍÜÁCǻﾾ‰ã(¸å~/„Aä»9 +(ÂóÊ +ÆÜyøÌ^¿yˍÃøÐ6vk„¶~oîèN3<ö¶5ˆž +|/7¡÷[Õu·;L +¡gÊÛaÏ>ܳL@ š¥´G³< ¹ Ì +Nê`I3 +ÔjÕÛát= +H©â0¶ÀRR‘èÔÍh(2ˆOîZPGwœ|ñ‰;¶ót­Ùí×ÍOK +D¡ËÔÂ&å +ž}^H8|lÚC?úÓØô†¥Üw÷þm´Ò’cJƒ‡ª>®GÁv÷õÐõVö (BÁH\ê0}e¨Z +Ê¥"1rllMÛt¤DÄ9Î*Šn±Ñc\—ÁÙüI3ñU–[xùD'ôh3ã`N& +Â`Ó&üdÍ;Óf!ÊÌÓ²¤Âi0´ìø`‡f ¥e„J +ÇZæÞ±ò7n€Ap/¤öKÐt¸k<Þg×\FÜàŽUªÙsƒÏ@Å1që5Eµi kkÈâÛÑP¼ +ý_nŠý +:¨Æ¹Â$Ý&Ø¡{€O׶yh +‚àI Ÿ‰WµÙc¿J/¸í£Mm>QŸ›ç%ÿ +©+~xà«âl‚. +*b'#1¶H[ðwk°PˆÍÞ_Éþ—¦Aiç:¯ž'a‚YuX4xÛî: +tTSè„ckíbz|-=äÞÍ\œ2„zªhäû|{?4ÝhùK# dcîÆÎK VTŒš'rùJ’¼Clîy¥W +¦~Ü6SÕ@† +ê +øÃ\9 +è:@xÁ}T +ÂÁ4õ7ša>2½ +Þã~ö!fóþ†g>öFx€L +Âûž‘")Ñ5$œ Á9cÜ +ð +Ø +]H +‚ˆÙ¸X¢#Þa€ŒÍGˆØ™”‹ûÐhvNt‡”H(Ô¼Z+1]3¸ +PÑm“A0¤õp¾ +÷Š7Uü+¹Ì¾¯$ +D +ä”5uo + +<´7²qüLàZzãHÉM‰ðì +½è³$Ìò #’ +æí(*Iã>W/Щ“— +fêۖêŽJ +ž>Íè,Žìø{ß±ÁGl«¹lÊ=Cõ#Q™z~Æ/L7GWuó–VÁT¤ãÏ +Þ¥6’1cÏé]²·w# +õ i +±D +FLÑâӊéTS +qâ +=¤?ÔA>[zͧژŒ°˜Ð€ +Œ}U?ó×Æì@ +-O :Ùb‰ø0W‚²ñßy1ëÿŠ£>"S8«â%Š\à9í íY6ü²Ûnl7LÎÅŽ]Í£œnJÒ +¹šŒ +¢Ðû¹”C6ÕV{3ŠAz,Év̀”O˜ +=fÚJNh>U»C+|š}ݎ#Äߌ‡f Ë'¦Ið®‚( +QHë"ø“BÉ +îh.ùÂBc^É.è‡X'!ɦ1${.  + >”C%-š4·qÌK|âä½ñ”Á®²–[RÞØY~†£'©£™Ë©³íUôZ!Џ +)ÉIŒ.ç„ïxNH õu4K\ö+Y×ò¨$ ¡“ÂK䘏à9ÐJú‰MòMØ'¹!ϑÐ؎;÷`R„òЦ×_¬{ñg= +=ªží + +$=YG•¸—,Øv– +¼dåi¤\ÀX£$µ”ÿDaä.ҕùõB +kÇ3÷U–-ÇQ:«ü©Þ;‹X +­>»xogêøòššŠ^ÎQ9·cÇýs‰{— +Ü¿žàpªÙ°K:I½‘ŠÂ¤ +8ñ¨óÜ{ÓËÊóÇ;,XòõbØ©MÛ=É+T×C²] +¤ +È ã_¡’Œÿ? {ü +æËé‘®¢×5ÄÛ°ÂQpBƒ­K0tžGÅå\â¯å<ª +‹ÓÿR hLùÉõ1ëBÍodŽõ~ùÿ‡´{ÞÂ\AK%®|˜e®:f%L;ª’Béš.È«þiÜI%˾’÷ƈþ©ÀÖXlE®ƒu@æb=pЪNËéZ{6PB +ÇÎ5Ò9{ùôÈ˧§^ž:8ðVtÙÈ«‚¸Ë™’V“Hä›Ï¬äøÝÕéÓúHÚg†¤ *S,¸( +¼Ù;xl¾&?„j‚^óìL*ÿ3Ñ £ÉW +wƒïX,¼‹¡ûY6í:U3 +œԏSñ?þê9]± +endstream +endobj +173 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +175 0 obj +<> +stream +xÚ½UMÓ0½ó+|L%2ëøkHìaoh{ÞÔK#Ò¤8 +þ=þHڔfÉ"ê¡cûåÍä͋}Caÿ#HR$ +¥Qy@ï¶èæ®@ƒÆmŸPQP +åTah»û˜Q¶ù¼½Gï·×`N€J” +ZG,)"öæŽH$AË +p‚h +!û1瑀)ÊO¶ÎrX`ÑÀԌ +âe–3I7茸œ‘Ü.äa€™W2i#±àrâs”¢FØ'Œñ‘‚BBÇsŠ_zåO˜ˆœ/iG âžH™ +(hÄ,Õâ9NçL,q(øœC«Ñ¥€Z̸VdŠH•JΉ¤àm@)ðôìvo7yÁpÖ +L]ûêlWy +˜u¶)m—NŸ«~Ÿ"g»ã&§*³eŸvúvüŸ¨ +†&o›úGb+M]µé«¶IÇÆÙ·>âEV5ӓ՘§4Ýt¸ì‰?Ԏ}õ,4"”ý`úÁ5 +É8Ϟ÷U¹¡ÒÛÞ/q¸'™yŒu¶CŸÖx¡ý$úƒ=éÿ¥Þɯâ7r{KOr§tO®=¤( +‚®7n¬¹lG/Ä. +$yCD +µP¦@Éb™—^çbV§ivIÂÙ5'“ åŸR>µ.QÞǪ·nÚ'Šîbœó>¥Wg,x"sÿTßCÛ¬wŠb\\ß9À"m„NåʯL*ã•9ƒßUwwLãõ§:ôÄô¡ + +ê“hðß;Ótþe¡Aôh¢Ã¾†¾õ‹àû6]ï[m{ç]7Žµ)-÷Ëô} +Ísš™/ÎÚ1Uj}؍%]9½}ìMÕD£xõ¬queÝíÚ¸ yżëóB¬Ï +±>/äüu]Ï +±>/Äk®»B +LûÇóB¼j^ŒÚ‘¿Ÿ˜þ·yÁýÄUbr؇7?«Ñè +endstream +endobj +176 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +178 0 obj +<>/Rect[311.793 +675.547 316.027 680.684]>> +endobj +179 0 obj +<> +stream +xڍXK“ܶ¾çW°tâT™0AðéÛÚ%%J)v +}Éä€å`fsHŠµÞüúôär +Òª¶jÙš + _˜àS ƒþdP$A‘W¢¬‚ú +ü¸ +¾—2U\ÛhDI.¤ +¶û‡IºùÏöï Q®4%Eš€"j›HÆq +>|øçß +~|»}ÿÓÇM¤” +?¼ÿ¸eé—wøLÃw¿ýüÓöý/?$£o·¼xÈT¨4÷‹çRTÕbZ&iøÐ'ý&’и¦Ö-ˆE¶u,õ~ +¦®vMßY¿é«c©\(I–@?­Âº?­q†ß¼=È^‡îä§> ¤Œù»2Ô֍ýÙ¸ñ™§/× +sŸEÿÿõ×E +|ZY +¨ +öc%Š*ˆ*<>í+}1€_ +o£“¤%*G<è“C߶ý&)Ã'û +îZ +z +uw4{ޛöÎ +v^û¼)U(6QZ%áödFF +® +ÍKH%²ŒÖp§ÑåY7 +Kµvæ؏±?\„s½[0¡XJÁó ™’â‹ÊI!’âBy{ê-¬›Ê4|j܉¥NŸeÑëØt]Ó +}гõú©Uæ3µÑÓÃp'3”2÷:X,Â~˜Zíüʚußm’-BÇî•E!¤\»wÐ#œÉ™•Ip·Æ5²$ +F3hZ† +>¡51æ™C?òŒƒÈ[x;kNGš +ÓdßyC³ö¹_Lëñhœ +¤(¡”ÇÑcÓOœÐñz³P3¸ücÓ-k¤1U +=­?£‚y’½P“6én‚¼Ú.O:ôò3º. +«±@Æ +Mnö˜Ý©ªðä?l¢<«ÂƱNcùù¹q7Ûw=Nga†N=‡›’ +Ùà ŒÍñÄ!ƒ×Ô{ÆÙÑkÍÿö,4 +?Op:ÜR^†=hOÍ­uc§ÖY~ñ‡Ë òdË´3{ˆCQÆXœ·Øí8­|Ž¾áb|A ®M@'†Ü¹Z + +ç s¦çۏî+• +_–€‰1Í.Ô»Íõ3IÅ»Ò_Š7[j#{)Þ +ë‹–†a—÷Š7Eé +Sª;•+3l¬ çBd7ÃçÞ:6î8÷]ûÌã“%ç{˜5)caÞúº­ +‡±¾l³RÅ:{í4"® +íÄéÄ]C[?ÚPg©öy6î±j +uÎu€ó”(,^tšê"®™¯ÅXᄧa©a”1cG Ï +¬¿[ÁÃä<ž¿Õ#ÆE3œÌٌP\´AH +€ŸÚX +ëGd{rT¨4›@F]så¢6 $@o² +Ÿæ¬Ïº¾_K9J¡¼yáSîñRîEŸÂ™T+̱D +K Óív–Á +âªÛ7x€:,TcÈE=ðì³ÿ”+V +¼z2€s®Ðw=?í4 +­ÿî„„Šüuǟ¿€¼_±ä&6 +¹°ÆàÀ· +;û?PѕŠÓÀ“TÙÔèÁÂø1ABøôµ¬Ø +O˜¯ ;È` Du¸²uг„#g1˜[Å{µo&.gÞéÞ´â52 $ôù’Ùå«d`¥ìñw²® +t1Á +NxxÁÁGöW¸AYˆ¸\qw$"¹ fÄ~µòVŽ‘b +õþ½ìjH´Ò™h1¿’žiu.ëJŒÒ £´/—Òn·,p +þ¯Â9ÐÙj~œ¯ôg÷—rñ2ˆ3ˆ£|Ä£³™}ºãá +7ÆÓ¾ ® +(¼¨øïÿw¿ ärÝp/ÌÜAØí>M +¡óè-èªëä)çÊWer +àrM§¢¹ ¤¢R|Âs 8›ëEÍÀÏÈ£ížG¾Ì +aړ̂H¦`ZyC]4ž™¾±Ñ’æ0µ,?aK¸¿ +Š# +ivòùfõÌ®©ƒµçü-­kà²ä +Ì|ñ,WÜuÊoÇò•>c9쌚£e™Ñ +û œ¥õ2â1Íg3ŒcëZ›GÜlðª¿ïýô•hiÿÔ׋fÞ¯‚]šÄ"åÛ¬zìVÊÛ9B£Á×¹ +ž—RÛá1:V¸#ŒÔM\ñ‚b»hÆÙT¤¾‡"ùGôÉ0¹ + +5D2R`© +qMw_ 1ÀÉÛæ`Æ +äIØõÎ3œ¶eáöÖ@ö™Îäç r–É$|·¤¦ªæO}æôˈIÏ_η֋¤ïpÿy<÷üÒ÷| +ô·뷑óåŸ\¹œË éš¥D$Ü¢šÏ•ßÞ`ÐÌ +ŽáŽ +7“kóPµ#ÁåàDPšË»Tm²> +ˆSPMΜbÍؘ¯©U‡þÎ%\4W9™gBÎí̸ZÜCShŠ3šz«O­§†N +’¿wóË:°Ž<Ó[¶îÁ&]_Af"E + ƒt·¾Ó¼!¯vÉ2ÁŸ£¢: ÿ|ó@ +·T ]M½äT¹ì²ÄÃ)±Ž‰—óf@ÀkA'ÍxÐhû +¹>â½ÃÀv£bºŒÂðnòÈSK”—²þàõD?b•Rdep–!E*—6øüê*¸¾À½žˆ4E¥R$W¿±® +JQå9GQdèV‰ˆY÷OœTj&»‰­¶t/Àmù Õp8¶œâ +&+†£u§~‚Û/MÏd8}1}6HñËÐñ’L€SH=hvÖ¬§Ž4zfÈjågmˆ¿ØWáÞÛ!èðGhξëò‰1%ò寀T5 ç—ò„kÿû|ù_Kïõ¸ÇÔHcIŠÛ·Óeð~ýËÿe¤ +endstream +endobj +180 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +182 0 obj +<> +stream +xÚ­WKÛ6¾÷WèÔJ@ĈOI)zئÞ"m Y§—8Z–wÕʒ£‡w7¿¾CeË»R6&9 +çÅoFÞgzü¨3/V)IR/Ûy¿/½ç—£I£Ô[n=!QÜ +™"”{ËÍGŸÉàÓò/o±ô>{$‘Þ-H %2övžœH1¬KïÊ{‡2S + +22?–†Íˆ+t±¶Ÿ_2îQJR) +M(á)0®¶ËË ”‘_ê&9Lô:©Ÿ7M`]QWNÈø&ÆÜÉ8ݺ[¥h4²´¢QB8µÌ//^¿>ã +; +§&cöîr9â +Á–„Á sO„’Iå㸯t÷ +§7¶n\福í÷;üúudJ$†é"àÔ¹|õöͬRžœ +B3B–JNJ_ì÷å=øsã÷%ÆñètKìj3 +¿ktÕnëf‡d°­ot‰‹MÑäÙpDøE°Ø +dþ¾©÷NînòUƒ¬biuüóÕ?‹y[EL;ãB–ŽbÆ"éҘHfÙL€&‚ + + —X›º_—¹c_ +YΆì›÷ÅÈ}79Úºo27_ù}UtÈp0>ƒ“u³ +&Õ§\›Ñ˜aî=|“òù§A^4cÀaÂ@E·û" +~½nóµl0²kÝÜg9[Av‘£³aÌÀ:îq«pùaŒnÑõÇlÚdÁItfrû#âµ)ÚNWC\Ò[Eo3Í‡Ø +1»ê +EW›á|èTÝ?BÄG@aÎÊÄP5b¡ŒP6°DQf2æÿ;• +àßT<È +3Y§d8ž½˜¤± +LqøK1BlB[Ab¨3G–UpòÏILBDz3˜ÄؑAœLþíññÑîŒ +b¤‚Ëixªàæ*¾`qÌÉ×u“W_p¾Õæe~¯xĉBL}¿X~xÿfñÇ,dÅ ‘ÉّiȒPk)"W‚µo¾óÑÏeÍ<,Ÿ×4^ñÇx5ë¨A +K雷ËÅÕ<Ž'D‰3þóe:&ܤTÂ†Þ +’ùbHí«1/íóUÐ]”×uSt7;\-ŽkÝæœZÀ¸øLp²òc""0O¸mdаÐ!4‹»}©¡XԍĄ®@ñÍwyÕM‹ÒÔdëðÆ?4kmÿ3^y•!uˆv-GœÜäåNW.”,¢|@éU^( ¶284žÏ~JT<æ~_@êÞÕè>n†¤ìn´+zo +*(sWìt—£vô#º,¾èQóá¤Yäò´Òœløf­Oì˜E4õ¯m4;UÄ ñ}Õ]ŽýPôÄïrÛEǶ©ÍŒ +é$H/›[Ìåþ.A¨õˆÝgQď,-Rõf“oL„â;ýŸ Ÿ±#çĨ-K¤¯³¬î‘‚„º²}`¢\>ÀêÞ/-îfõPç!l愈‚ +¬À{£ +§ÆõNC Œø~‡ô +¼Ë0pۂ,Œ®ç¬ûî±ÂÑð¢Øø1èÿ£3Ì<SŒp[L + + +E‘©ÉÆG +º%O!0Ÿ2 +ËΓ4b~eqì/wuÛ +ó'ÀùTàñÐi¨‡U6‚Ðvf÷¸}[ +§]Cƒ‹²Ø +b™ÙqÍœ>Êm{|)¸:˜(cû¦°}Sp">y +ŸË ò’Iæçwz`öÌ +Lüb‹T{‹™\½½ +(àÛ–ÔßöU6ú°3ª J'§»ÅþES=9Ê$¡¹¥oí+0ÀWLÝ8rí´é÷N+cžä¾œÊ +*ö +9‚2á5•w +€‰Î1#Þýô?zþÜÅ +endstream +endobj +183 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +185 0 obj +<> +stream +xÚµXKsÛ6¾÷WðÐÉPm„/‚L§;vR{§±•^â +h +¶8C‘ +±ýﻋ%ʒâ +ÚdÆ\ +`Ÿß.| +xÁ +˜8eIäËàx¼z« +±4JƒÙ-pLE̸ +fó/¡ˆ'_gçÀ‘Œ8„äL `D3™ò(ŠÂ£÷ÿut|:;{sô~2•R†ïÏ®fD}|‹_¾ý|ñfvöñâÊ +z: +¾,ÑÁ=Þs¦M° +”–L«a\WÁ'’1 +¸bRÅ^F£‘ +%(²þhð0¿óÒ +pÎR­‘™G†Å‰wÕLtÚþ͈†­* +o럽¹¼ŽQ£c’”Åþ_÷^#ò +ïàŒ—tÀßoÊÝuU×¹_lW¸hÝb‘•þر¦ÜÄ,õ§î( +t¦áѶÿx”0ÉÝ +ðÆû-Þ±«eʀ³¿ö"è×tL|4†ÌZaª +¯CúγÎò—ZxÚÞ +ÄÂ/²¶kê¥ß>ùãǺè”i +Æ£ ¨îè F:f2ÙÚDMEÊ8ëðv’È}®" +føà«z2I˜Ûj"LˆŽ¢õú¦µÍwœ³ +(¡xdWYcicÛeÍ´¨æWSd +NˆÃ—!М¾¶k +‰ +6f0´MKã[’CÀYÕÂhê„Fí!´“w™uE]Ái’ðƉi;”è~‚$ÜçV\ô:*«æD¼[Oå¤^Ý̋ +<Ô2pIÃÙÂÒúiÖt +$!&W +»´Má/ +¾m¿Z• +Ó +Þÿˆ4 +Ù:ÏÊÒ6ì‡Ò ¸´9ûçô°o¤±Øâ¢<; +WáõSn˜ŽÍEæžÀˆ‰”Ï­yÝߔÖ3oœ4'¦ÙÉ1ZÖú/ᚘ‚G;°&ãÐ}LÈöÊÆē›È¥Ê!ÜÓëÝç¼/‹¬"aOà&¢®Ã‹šhòëÉOJjo~JÌ/âëùõa‡Han²æq+áp’ò¨n + +úWß1—l‰ÑPv8Ä°“TÉú—Þý«yæ–~^¥Åÿ¢Ò–Š+$AyW”ŌW̐b”OÎGO3kÅ¥’”Ô +'ÍåéìóåÅéÉÁl2 ÓÉ֖ýÙ¤¡sJªÄ±!˜M4`âòÛa•¸š]~üðÛ3–ÛBÏd@Oƒè‰&£§‹ +zþÐ x;v\|œ^ +ƕ„Åj‹ÿõáŠi˜”`u +™ƒ³Ãň»p1;¤UJ’(%\úï³»ìãðë÷1PŒo‰5S|0yK§ftːýHcöcé2PŽV> + +Bsd(*¿·òé¥4µ}w5¦*Ð/‰«jÀx>Êpâ‘j,W’AËäò‹Bê@Š¥+ŽÈš»~éýÝš +‰±)ö¢8x°ðí9Gp”*ÚÝñ1B3i6xª¥Æ>A¸>AÆ"´ÙrU¢ +¥áùÉ5:’Ò!Béˆ +É +nQ`Á¾œ{û¤‚=ÆoŠkû=EÛºâ*ÉÐYµFä–Á|­ð‘Ú0–uuGd +œM»7µuÄÐYɐØd[€ØÄ +4ôŠ,ÞRa¤®`¯ˆEŽR€`ç'$"dë‚ðpî,zr× +¼ž*d*ävêµMÄÚ&ól¨¼/¼+‹¥€="B‡î"ŒÀ7"eìmkƛhÁµjÒø +CŽºíh š¾¾g†›¦þfå8®u5}ûÖFQ Å*kmKk÷avëÎ8,ë֋»cŸÖú^ÚÉÂm^,׃â®èp7—ïð +Ä¨Ë +áŠÆNIàÍòÜ®º +j4¤«’‰·p +®¦m­wK—~ †3 +¡ÅÎQ® +ïʌ–Êcøƒ ±YC-á +¸²£—˜à‚9lSA—ìÏpNq§eIÔ +š o®'÷Ô+ˆ +\间²±ÛUÀYF¤E1£(¦ º +ˆnà¥hEê +_qÑ:Þ +VmýöÆ/‘]kl‡pxçŸ +ƒ +p.¯—+¨ê +‹¢aÏN©ØQb +"M‰S +b3 +âœ"Bl\¤‰Ï·2ùð¨ÂŒ5üv‹ÂÏÜöU¾¹ËîrAR¹¥C½¯`¥ª»]™·@>ëü·, òZAx'­ß +Oß¿ë—ìli¸ +KºˆÉ@?KƒÞ¤Šªíl6'f§Lº†‰ûÜÖw4€“àI±§ámWÜUÅuÄUNÓ +P,WYîùk3¤ +Iþ8”eÏ5K1´Ý5VâÙfiÄ|D&z è +wuÓúÖ°ñ+¨Ù"Ä?ÂóŽfÃdxLï`4þ¾}Ÿ[›¡2ÊçÅÞ0A +õ!ÙÙ$‰¡Ïmú +xoË™¡÷Ø鱟È'âõÏY>ûÜõ +píúQžÊHmBGÃ,ßû>n»£ç ßúªË‹oûz­Gâ¯;°­ß‘d¢˜·‡î¼"ß +ÇüZ1oþO¿ü +¬î2“ +endstream +endobj +186 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +188 0 obj +<> +stream +xÚ­XKsÛ6¾÷WðÐÉPm„/‚L§'¶3ö$ñÄV{©{`(Øâ +%*$Çÿ¾»XP‚,*º4ž Àbw±/|Pô-âQ<2"2iβ<*—Ñ»YôæREréD¿¹2âœåZ#;lAÞu;QylםÄE‹ÿ[Ø SM +Œ¯ÞßÞ +2T #ËYê +ü:ªCå>€Œ×$÷Ñ¢Â5•Nݪo«Ò +ÄU”òFŽÞrnàIà[ðO2&¹ÛõþìãÇ=Þ0 +2g@„ìo½:àšÂ2áܚ⬘j¡ãû˜¾ó¢·üõŽž~Ut}Û,=ó䏟ۮs¦)'Î&pØ÷³«›ÏGO S&³½Mt‚©Èç¡Í—“LÆP•ð¸À€@4“©ÈâÒ®&ÂÄ. +n½ùÚÙö;ÎÙ¡xYb×Ekic×í´ZÍ!i¦ÈHHã +—!‹Üymß>;l,`hێÆd‡ÅªƒÑԍ§‡D×ÎÞeÑWÍ +6H“Å_™¶G‹ž&H‚>X1”šŽ§X͉ø°*éxM;¯VŽAL +ÏÖ¯um[¢»Íz]WÖ+ìŒ#¦m–ïÜÝ\N8O >‡V“ƹ­Q”±s›Îâv©â¾¡ðè¼*{BX½(Ú~Asv½°KÛV`÷Ï2FHƒ +ÃÙÕßǓE–Š=þ!Ý!U‚| +gÊ +Ó±¹Ä +© +èGÉPžóf󵶞)Ô +M š1ÍÎßy· +î¡C‹)¤Háái»‰Ù¨m\¦L˜Ðå®Òþã^ªwŸëM]+2ö +4unz0~?ùixd"™ ®|{1ûëöóÅùÑ™ŒéloËx„4\œ•96¬¸‰†Â]žð¶®»ÙíͧßNxc¯Ä³¡ÄMìòU앸Kæ]‰ÿÔШxê|¾™]Ü +ÏՌ¥jÿíñ6n˜„ËTfœ¥äΎwLîò'`ví@)IÙ W³K©1¿(œÁ?®&~“/Ԓj¦øàòŽ¤¤eÈ(¤Ï©»(=s½öÍ +û +ö +d¨V~¯k¯ØN܍}wpUa\2×zñ cTàÄ3]\¹\ + +æH3M‡&”b×zÜ,}¼»1Op¸XºbÄ 2Á{“x°yŽÈ +KrPÈ¡¡™4»ÕRãe&Üe&SÛÅr]».mD|}~„¢tÕü'•±P:áB2ƒ[xpSϽrÁŒ +ñïÁ? Mw¾wS<°è +ç›gª +æaÛÃ;ß‚0t¯}«[6«G"àl»ÑÒրxÀ˜ +Þη3sÔA`Xºw„à¸B€¿–8JAçº>'¡Zþ¶ò +,y!‚kQ +¬LC+3„¯’û$IFŒÊ˜&WfÀJ<É,] +ÜqĆij¸†$øi€g¡“ 7Âó|zy sô@n§ÞúDl}2/†nþʇ²Zú1`£Ë˜ +¯Óm‘2õ¾5á&Z¨:Zð×᪤éž$TËuQzþÆk†²ƒFR>O Ë²S`) +7oNÀJœKó¹hû`‘Ý4¶eß´‡†Ã“OEþ„ +ñ/Ezïì +Aï豆Îÿa»Óf¦PÛäi³wÌWGåC‡DÒwH$û + +–éAèÖ«n1ð¢µøuÄg¢•_l\u8Ùð|Sîÿ|s/ÛiÙfð!TßËQÿ3ÃÈå +˜Î +÷o9>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +191 0 obj +<> +stream +xÚµX[oÛÊ~ï¯àCP§Ö†{!—<}p|im8ö9¶NÑ"ÎM­-)óÛÿ¾3;»eSq +¤1Î.‡»sýfFÁcÀƒþx E “Œ¥YP¬‚O³àã© +xIJ( +f÷À1 ã2˜Í¿„"|G:à’3%€9ôdÊ£( +/~ÿç᧓ÙÙÑáÅd*¥ +/ÎnfD]âS +§^ +Íή.oì¡'³à1`i +<ᝠg±VŠ%‹•_/ƒ›à’1 +¸bR%NF +#JPæýá.àaQ:i + +8gY +#32 ¸ëf¢²Ð¬'qæ +þoàSغ¯ `}vt}ãQƒcҌ%Ž^#·· +]ß +йièʶkÊ|évÛµÝÃû +Øuç +Uä:eÂùŠ`;k +ízŽG CqP†Ã‹‹ +Þ¡“eƀ²ÿêdˆ\SÐ.ðˆY¶•D˜Æ"oCzÎóÎðƒ-- +mî<±pij{¾¸gëžr0N½rÇN~û¾Š±bYbÅ9œ€ElDíU4N˜Lw>"E§"cœT;¤2ÄI +æô@ß9¿ÑF}ךæÛDèÐ4 »Ð)”Y獡÷m—7Ó²šC|ME *äîðµ +IMÓ5/Äæ°4MKë{×äU +«U>µÒ¢ÚÒ{ª+ëÊ~†wtM‡wµÓ˜%éPíög(½A/„?K,3seÌ +:cÊݎœž2 +o,ÐäsHÉÖé´%  Bw}2ûóúòäx/0B‡§;ŸŒc +­'|L©îÞÌ®'Pª¯>¿c7ì€÷êó/ïØî; +<,œ6Í· +ó{ÆPQÄ$AþåÕìäf‰HY¢vøÝß:i&e€uÑ× Îö·Ü&؀ÙÖR¥$¥„Eò1»kÍRo[Šþ6Äüá-IÌ÷&oéԜnñ@Ž49@ƒÒÐú® + 4ˆ'X‹‘¡¬Ü·•CJ¥ ã¬íê›m/ªý’¢_ñ }”ãÁƔ+É k +¤Öx‹"éòˆ¼yèWÎßí˜%8ti‘šbÄPÞSσÝÈÈ9‚ã̽©Ÿ;°clJc,cl + +m +e"Bóœ¯ÖK´£Ô">/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +194 0 obj +<> +stream +xÚ­ÛRã6ô½_á‡ÎŽÓ­%Y¾´ÓØ +˜vi!íKéƒqxƉ³¶³Àß÷ + +ÉVˆ³éCaërtîW‚/"øåA*‚4ÉY–å*ø°ÞŒ +±<ʃÅCǂ%2˜‹„q,–‡"Ÿý³¸ +.Á—€e*x,ó„3•« V’©Øíëà6øƒp揙ŒÄ ð©B0DWÛÓÍl.yXV\Ôï? +pÎr¥œËˆ‰^!ø¦Åy¨73 +E‹5<†£‡¦ +ì/Ïnn +šØC“å,±H¾Ÿ&+ +pvys{BèzÝÉ®o«¢¶/}qxÌYêPOˆš2*à‘§WЏ2&9Ñ;ýõ× +Xß2g°ðÁ²\(j’d> +M9°b¸˜+¡Â»¾Ë¢×üd\ +»~W€„ÍÊítcŸÍ~þ¶*gŠ<ãtbŸ-.¯?”E%Lf;H–¹Èç>÷g™ +Ѧ1ailáì`ΛûN·_g" +u +ŒÇR€ƒèMÑjºïú¢Wë%øË\d¡†Õ¡{‹ÖH¬ûö•ðÃöºíèþèá¶Xw°›fQjpseø\}Õ¬áH£ð +?¡îg" ŸgHèAìä䕦X/iñˆ*ðyJ€FU,z”Ñ´Ëj +¦ê°#âpñ¤í}Q׺¥u·ÝlêJw„£w hâ”^Ê{üß^œq +ñæÔ·jŒ¦–ºîð +¡.q±íôWqØ7tª^VeOCo/Š¶¢3½yÒ+ÝVÕÚ"8»üýýÙå5û¦c ™bzA +?]þuqاâ”%bÞÅx” "B™çÁC6Ö4ðSà3Ùå¿à„zŒmȽ9YP +g{¾Ä•‹!CærȐ¹ +^Wݓƒ5Ü™™’_éÌ8$ +6f^7ø0¿æ»ókn³žÛùõd"9>>9 (áÿ»¨¬&ªo +µßè’F5±ëóã@>¸æ䠀íÏΐãx;n«ÔôˆÈB|ÜV#0U +èwlúèõ +’οÚm Õr²9‡î‚¥®OÜýÞð'’á?‚6ÙnK£ {ïZ»,µiWcÚÁ;µZ¤W‰í¹w +Æ3ÎrÏ`}Y}™ޔòØ·Ý2`ŽÙ΄8öÑj·ܧQ•Ó48âq­´5Éßý +¯ÂyO +endstream +endobj +195 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +197 0 obj +<> +stream +xÚ½XÝsÛ6ï_Á‡NŽj-„~´sŽí´ö¤v«7wç¦` +3©’T +ÿ÷ÝłeS±¯£;kÆ\‚ +ìo?°ØEðGÀƒ~~w6;?9þ0™J)Ãç×3¢®Þã3ßÿ~y2;¿º¼v‹žÍ‚?–©àe&œ©4X±’LÅý{\¿Æ<à1“qâ1¦ +فÕëãàaQ{´Bœ³\)dæ‘`IìᮚIœ‡f5QQ¨üo`* +ÝÕ +ð~~òñº_& +,“å,ñ‹|;*FåêÛÖ45?¢õ;Ӑè¶k¬.ýh»rcˆ£€Q¿îPUž„ +ý3UÁ†Î8<Úõ b&„›þø°Ã;t¶ÌCö<5àš‚–™€‡bù@˜*¡Â›žsÝ~´¥ +§ÍmO,<ñÅ?ý³=rBUÊD +R ”Ó-L§ûÉe]Ý{zµ°žZ,û%Wýš=ÑöDcîô–ìÁ¼ÑàˆzéU˜üøus&‚¡;Óñ¬ï¢x¯QUÂd¶3‰Œ:9ã|`Æ÷“L†w"Q¡¦Ɖ Xšˆ44 +`iAlVº1ô½ít3µÕ +bz*²ÐU!w‡ŸãÔ4]óHì0QëiZz¿ëåw®Zx[ê©CíxÂÖL ü–Ät(ãa‚$ȃ/)í +Ç£«9ùüœ˜0j`RÝÌmAÒ2ð0Ά¦º,MCt»^­Jk¼àŽXòðL7݂ÆÌja–¦±>‚¢'у¢xÏ/²(lêN£.ôÁVNßí€Ã„ŸaÄ4ºØr`‡N“[bÑ-}zpj–åp4Ú¢hmgú5žšàk±'$ìMÒè§óí»8e‰Øáï÷2Ý`3‹-4å)S”äÝÆ +Ùö‚£>óÌëõmi<ÓP*äaHƒÄ4;}G •wOÊûb +Qׁ§y’„l—É“ +à2É!À=ï +ëÒêŠÀžjtR7áeMt +ò›É‹Hé +2·¯‚ùI|þ$?¿¶qs«›ÇÂoéÆ4ˆ{= +ëö-ì­‚GàÖë#oùõÛ¹Æo“,ý`¯• +Å+´"û›ÅÿD« +)-mƒ'º‰òé–zÝäˆn)ê&I71ðØëuûrôxˆÈ:9ÿµ(†e’`YæYþ +:ÉðG +ÁÿŒ¬%—ê×» +±ô +®Ð:‰Ë5¨e}G&XW¶#mÉHEW7ûÔÎK²¡Úí!”¦l +PN߈(½?5`³Gš³¸ŸÝŽ¬ž±Tm,Ðè9lÌvNBÄ,VÏJ +Cè5ˆÑía᢮º/}„½odaõrx¸ŽíÖóM¦òHüÖ0pÜOû +d;KÑñlûËW‡Rë °ÁCÔ÷†‚en:[xxCMâ¿v±<Ö +±÷ +_AážÓTñÔ8Dö¤q8êíª­í¼Wj顓ré@¹¿§Ô´«Chä¢Ô +AXÖÛ°~ZŒŒÅÕ~üjøíê yf6šg +ºöã»a{&¼ +5ô„<„Žá؇Å#Ùz[<ÒÈñKÀÕ +üöÿüÝkï+kc¥Xê„}<›ýþñòìtoa›fLeÃãu­âLq*o3dž­¥~)-`;{=ûxõËw/Øå+½–˃^ËUiÛ^ëk¦P‘Â. +\^Íή÷Wø^d +ùØßÙ§LJà +Â"%^Îöw¬ÜӀÙõcq,©¦cá +ñ1»§)Ëzû¸NâûaÉ>”’(óÞä-­ªIJ_‡#u8„SœBµò©«ÁXÄlåçVTà‹kÌðíOבVý’¡_Ñuf¨Þ›òX2wϞ®6‘>¡›ûõÒô­ßˆ%84ö‘šbÄ2«âÁvsd +Á±¥ˆžµ?;õ¢b2Ýv6J*¼Mî6A&p8}ÑËUéNþT„§7èHؒ®ý'5?"V’¥8% +®Ë¹·O.°{n_e|Y5¦m?ùlE[žÄãn¥ +æk}J¸¡Ïz‰u‘#kàlÚÑ­­"»†5M¶Š$K÷h +d²£Â@]!À^‹ + +õÜÅ)A„ݺð•‰Ï_ѓ%¸ŠÁË=Êdˆv禄¢h´ÄûŽ€Çàf‰—§9^¡]œ±Ã4Iéâh$Â?¦`Ô +4î +õùå©Bé^ +ÜLµ±‰ØØd®û\þÆ»Ò.}Œ@”9E +dƒm‘2ñ¦M‡sèƒméƒ?ၣn;ú•ÈºÑ% +ÓeŒîÛâø­«é¹nýb”)” -5Iøfvd&PL´ +ìÀ<ÔÒ·Æ_¼9,*‚’®°KzááÜB)Þí +ž°/êríONxwJâ]sQ˜U§áè +Ý癷p«€e×@ÊßF!Ñõ¼Þ%@½»£sîI£¡Ó[q· +HøZ–îÏ¢ðÞWÄLcØ|Â1fÉn›9Ïsc¾«-Š©6kTÛr]U ÞJÉ͝ç3ø½÷%fýÒº¿sÄÜpGØ-¬¹[WƒúÄ»r +\Ô¶ð5úƒ-KúRÕ~õL¦{‘=[Ñ@×Tèrs=õô&ºTN>ƒ +T†Wƒ‰3vô²vÙ) +¥“ÑsbFEpНªH>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +200 0 obj +<> +stream +xڝXKsÛ6¾÷WèHµ&Bà«3=$ +»ã^ÚÆêôP÷@Q + EÊ|Äq~}w±EYp4éxÆÁÅbß.>pñ´à‹þø"‹YZ°¼XTûŇÕâÝ­\ðˆQ±XmRÆ,‹0N‹ÕæŸ@ðå¿«ß7«sa‘1²)gEadcö¦lÂYœÍeW;µ + +ÁçeœªÚ®7«ßÝr>_X0Y€å¸F­­Ä\3Œ"a®|R–fNÁί )&Ʀ²Ùà@e]ÓÌæúts–ÇvmÙÝ2‰‚vïÙD€¹së±Û¯³ÁxÖÎFêː­ -Ùôáúã½]öEõìRzrÁN©¼˜ž£¬IO +'Á£j»ò°ÓUYãLT­±«í6º)Փœq_“ +8uêΠ +(38í/áé×û\⣄[Õ©¦²ªT]ëCßê +s±NüK™t™]- +°áÓRÄ%*´¯C>%F¦26Ê$¶6ʄòj¦ê¶yÔøQ4ßëÇƇ•$cQj÷üy&©$¢s¢À +>ºSz¹F˜¿Ð»B‘jðÍ@Û±©Ý6ô¤©"B»ëÌ` +)¸m¯ME„¨ˆƒ‡À‹TPáP®™b>çr–:‘N?îŒ]áŠAm +–W¤]7¶2ª +Pš\"÷1([µÆGÂ}ƒÿÑNjÈå"v]H^„îLØ`WÆ^ +P]vø,ƒ}kbë‰N=ÀAéËáêåà O\ +áV• +m±&€“þv=”ºÁŒã«mÀÌßÝ`Åâh=Öµtefï‘Ê‹‹ÎՋ¯—Èãy‡žz”ž +iE^ÞÐQˆyÁ¡m®àlçLœÔD¯^¡ñ«êڋ&Ž2Œ7*H.vš™0’¦×o»Òvn|†Ž×ÓÁKk84ÛÜ +$†6¨mék:œñËq̲£&š|< Ä҉ª˜Ãºˆƒ- + +{뉶 +”ôóEÜmÏ¡3é̈âȋΔ[‰_|*8G²Aｼ̾Ä@úÖg,É¿mBƸsù'¯ +h©NàƒŸ¦ò܊lªSž°,=Ö©ðm’"6ÃY-¿­Ì9³oMcݨúÊÁ<ÂhÏ`þ¼ƒÖèÛL<$¾9¸h +„—8K¥ú^ٹˌÒ2 +9«Œž& mm.'§0ˆA{³ËÉ9 +ß¡ayAî +¹Ê¥­;3KF™×Àé:oÈ@O‚¦ +hð¬û]ÖÒ/Fي6× +Ü]#`pSvƒ¾9ìÒsO,òãž$s–Ž® +Jw}àXhïûÙ¥Úþü¸Â'ÇB'rþÁËéNBu–Ìk>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +203 0 obj +<> +stream +xÚ­Ùrã6ò}¿‚[)*±¯ÙڏíIœØK“—x`–°¡H +qô÷ۍ%ê»R*WYM ô}y_<îðǽDxIœ±4ófKïýÔûñƒôxÀ² ó¦Ï€11ã¡7ÍÿðC1úïôÀH"äL +@DŒd4æAø—?ý|ùþfz{uùq4ÃÐÿx;™tÿ¥ÿáóÝÕôöþnb/½™z_<–FÞ +¾s%ÞғQÈ"ÙÞÄûhÌ<.Y(cGc!R`Tw¹‚¸?«xèè¡Ç9Ë¢ѹ,K +Á«z¾^áE0 +–™ÿ\ÕÀ÷íÕä¿F®I3»Kþyô™eÒ!TO®¿êܛ_Ðý­®küÖM[U¸†lq1™ºŽ°³¢àÁ®¾x Ybð?î 5f +€ö;GC4@?©€Ÿ +±šVµ]3G"òÿM?–6K–ý|ôé·kgüb +æ]Û¯ê¢*ç^-ŒƒKüµrÀ$‹€‰ˆ›ˆH{‹•rHíÌõÂ/ +¾S 㪿ö;]9:Gÿú¶ +ãÅÄôåoõ¤8£˜ +éÎ!’çXdŒs+AZþ0JCKđ¯è¡7»@3‰¯k [$)Xª^©ZÓ>h¡ +›2à +‹ÔוˆÝâ¶ô‰aÝÖkB‡ƒ +>uÝÐ÷sÿ~[«²¯¥[jƒ¡t[S•p ÜB|ݎD쿌ðExvœ{X +Uæ +ˆÏ iVY2«:7¥juÃFc)ºÐtb¦ŠB×7ÝjUí +þ<½ºpë¦í±÷n»8$]-ñù'ƒRIQ*2}ej$\PæÆq‡ß–rˆrSÎéÀ +²«ð†¯–çB—óÍKöì"ÖçóèsIÔåºèoG¥áN×h÷N[õïµÊ”G$o±òFÕí‚@½Z襮MsAáóêöӏW·÷´I² Öϵš!o„¬‚­m€Ø¿eïBf,Iíû?Ýþ~sÚÔeÂb±ƒß‡0ôAìw~ÆQ~;â÷\J&7~/ø‘ǹ`¼ +Ë÷ +tJ‰",Év’Ýì +üd|˾^®¨r©¡j­,ö„n„„“ë9m^½ÙëÅ9©5:þБHY·4P³ okçvoQ1”ws· +Œù›9y +9ð‹s°ó‚ +ÔP›`f¶P +ÊôÀ‚Gî©zEBã½7ÓÏw7×'K–$eQºsäxÉA¾ãT²2+¨¤ÑG«×B'6A“éÃý¯ß¿"o”îV­ƒÒ +¥0(Ýߦ;mÉ}“ê^#UCݲƒÕó¾ÁÕfnÊM<¼y¸<J”¥é«5Dæ0~šL_Ó{ÆY +ê}„õl<úÏ]9Û2òuA(:½÷ÐNt‹Rk ƒÇŽöÇIq+]AH¦lÍa¶Õ?4ÐïpP’Åþ +ãS‚­´ýλ'Su + xmYm¼yë} ¤Cí»×Ýÿç˜JÆVރS¯«eÌ®T³™^µ +€¥(ÇZö[j‹bp*ÒÝýôfrº½HY,wðߝ +b€–CÀM³Þ¯ù^“3ôðnô•6v$? +JÿŽ>b¼Ÿðì咰/äì +y™HWÈã*V¾šI[¸ÚÂáCùjå*ÍѶƒ°oÜ5Ô§­iêgWQat²I8ªk2­RM† +{2lØÁðÉ}£ØßîU¸A£:ï–.Ùp +ý +2ã_j¹²Ê̗ +®õ±x$Â`kéƒvo(W1äŠnˆÚ´G°x­œ8ð㮣ïÒ¹£ÚÞ£EÈݎµw;´@ô”C +‹Œh‘!ð¾é¤qî*úÌfåõ(•Øä%à?W[a“Öpt##0•k:3SeYµt +x«Xæ +8|±&”Zc!·É¸„]M’,±;Í_mgƒIR¡ÕʍˆlFpWP +ºu—wf›aÓš"(ŽÜþfÆÔª?mü) +<ì´7¶–‰»Ö,­”pòdJw¸G +²s0çÄež‘1ˆÎÚÚÆBš¶P‚¸oL‚ïɪ¡5jAyÖcºe0X¸«Þ»uS‹Àbÿx‡YfGN`éââՕkp›8¹¥ˆíÚ^¶9¹Ó§Z3å¦Nà'~³¨º"'¸k4$74¾^4‡I‡'PB‡Ûºãº}ùã†@öh8qÂkw¢JãB°°g¨8ܶ™ä˜qðËÆt€Ü°ËÒg–ÚY£€z" +¶3¶@€$±UR£A z*úÄ +;«¡Õ~<’ +üîÁ¨ŠšHSôÀ’q' +Æ"«bR}ÒÇ@B“&Æ['3-Qu ÎÝ@»5gÔëÿºÆ•Ù¹nfµqa5ß$™ßþñʬ^g +endstream +endobj +204 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +206 0 obj +<> +stream +xڝYY“Û¸~ϯPå‰J°ÄÁËU~ð:öƛªTvG[ûÉFŒPC‘2g}ºÑe­SS5fã诿îWŸW|Ã_eb•¥ˋÕî¸úq»úá£Zñ˜q±Ú>¬”,•«H—«íþ?‘”ëÿn^}؞ +ˌIM9+ +'+ØEل3‘Me·³ÞÈ$Žž×"‹tSÙê:T +µîú–ïîöý½­Ãã +ÊÝü%‹è.æ‰~ôc¿mß·ÔÝ +tG}§Æìuç'ꌶB5]S¯7ð»ïw­+zµ~eq+ñjÃ%K·äÎ +Aƒ’qÔîtéš<ªê¢I±¥?ÔÑ5==h/ ÓÓðÁk{軾ñíÎKßëy:›¾í̞­7™L£[Ckûác25Lf°`\©Õýßa9$53YÁâÔ +=„¥?ô +¬¥qâ°{Ĝn{o:m˖]Çž”h®a"üۖû•òt"(8K„_ê] +Ç +»É™Ê½X,§c[úíô}_‚í÷ø˜¸CÇîO~½¥ +—¦³ll£}꼂j×ݯç~-RÀ +´Ud¾ê]W¾Ð@]j´fWW{jk¯$àg#g2('òÌá +Þ¡þ>¥Ñɽnmg¿8¤S·Û›Èó¨4úDïќ7ðP¤Ï©ÇsŠx6{’ÇM»Ùš=˜×5 +&aèÉé7§0â `'Lñ«6(¦6ÀIžmw€¹4‚“)VLÔ¦ßVfåb +#¦?þf ç,–~¸Xox +VbA +ŸƒLy¹ŠÝ³MB0 +`¸=8tˆ`wˆ€BF¡·¯Ü9cWc¾Xó +R1°›ƒ +V$HT +Áõ±ó’$9‹Õw:¨;j4ñ +=<8àéكRd,æ3`¶­!V´º$„ +gƺïû¥=Úî:d‚e¹S©®sÀ(좁IôhêÇFŸ{ÒhW“W4{[?·$çH‡q‘Ô՘– +Èì:êq`䍮ãwt”Ÿns + +Þx0©v^•)K{jk» ÏvÎv».` +Ok8¥àè4<9Ó +‚Dø5ªDz·®²® +m×ï +õ·ö±Z°+O²‘¯ß¬7IªvÔT!îsoÇw0x?_ŽhƒpÌ +àW +àG0v[ñ³Ná¡Ûn³ÀNˆ’»hɱRP +Ø2³äYR?E8lM#\Ɠ°T'“zË + _&  +9†-.b$)šÏܐŒOøé½ÕU{·¦—Hɀ=h¼7¥i‘]hüÁÐ4Gïu +KÿÆκ4#ÿxåäÚ¹¶Ó[ÏôOn¦‰Ù +¦pSöë +¼¶]cCç¯#àãí +$\GlC– ÑÖwûì:ß¿ÂXæ0†§MÇÒ#8ŽŽà<=ù%ÈjôÚ +ÔÒm#ÎAº±î é1½ˆW+2DF&14JV¤>"ðåø ¿›AŠ"(,4JÎòä{5º´ +ŽÕf3îõìQ$—&W~}Ä3Ç| +º +ì„Áñt*ÁwÝñÝ,¹ +/ +ô¹à/KL¢Xâît)ÐC+ї +: +9u8\[p8ÏðœÉ™O´æÿ0M}gŠŒqJ}ÓëD3 +zXJ„8ç°°¯”‰@²È,4‹&°.>CòJÛ­G`S¿a é}çãã8tÜ·¦ùB + +¦\öÁƬÿ=ðÑÖ/Å%NÐYÕ +5ž*ÊS*OCKfè¾ï–Ø8yê’q“1›Ä”ÌՈŽò[*¿DJµ&䎉4‰Œ. +<”ÊCZ&ø·“Ø㏎PmiMçŒTlK}_·4 ¿½‡ˆî¨Ÿ<þ)Á£_<¨™ä7À€-9*©y6‚ +ˆ?™ +ùgág&̋U‘;ÃI°›­)c" ++–ð‹ë*˜ +æ{»|ÖßS +ŠbÑQ Åÿ\É —ÞÏF?0˜ +Šô²á,U³šeî‰p¢ƒDYƒ—p5—˜çF2ÐÕéíK +syÁ+rñçv,ÜärJ0%¦{>@d\Òqc(¾u$òâ‘äx¦ƒ„c +¨nùê¡/!GiÞ”æËÚ%ìÔ¥mãß4G†í ++èuÔNóOz¼›Ü ÌcD*X +@ô²ƒu£útxií›.Wîø¥×Õ&”÷ ËÔü’¨³¦]Êè$žëÈʱßV§Yô2µÊ÷Êfï +ko‘?}÷­ ©: +%ân¡U%Ñ-ftb¸QȚHlȾ–[2#ìaXÙiÑ;yÀ Ý®HOØÐûƈtæŸ +ˆõ’Tå$‹u{ô´v™^fQê<³T³¨ý>êÜ,zDœý +ѦÓ-ÍòP—%mµ}³¤8”câ +çâQæèTèà•ü¢óJ92ÀUç]¤(®ƒ„9Oú„zXê„S +D€°‚7 +ޞûw1^ŒÜœ;yX;K_maò¾`2yE¸“—ò5·ä°êo +Üö11¹Q|®^1Žtë<½ÍÏP +Ù’]ùÊý«î0#« +ü• ‚•Ò¡ÆˆpÁ,x ª¯ܕsPx&.‹£Ê8×tÂ@f¾HlÆz„®|ÝoÐ5¦$ø¥î" +f1C8«  @î$É((9¢þ‚ƒK¥!9Sðw{ +V®«‰3º;dtXóζ¡8we\ót5V¹Â +Fœ8»š +O„éãæJÍc +W +”>™>¯7@âåâ5˘^ + +¦ +:H¹:æé„S²Gúx1&ÌÀ⏮hU>㙣ݫ¹´);ÏÇåw +Tzv¸'ØäzåĪ#Ö§.Üp„zC¹¢»ž[JtŽÆGP—PíŽñBþRÇ‹—«Ü"+ÆÜ6]Îf¤ü +÷”/‘V\|ûé`Àº‡„˜Å¡Îü* +&Âxu¯ºûÇ_½ÿb[̨ñ‘®±»ÓO.kÀ'=6Fû÷ÂM]:ÜÔ¥Q_ÙË•g.`Ÿ¡Ê¶"µ}UÚ§P꺞ٽJâ²tšøàÕÛêä +˜™ïžt£ Þ<w$pjsê‚5‰ \4÷Åk[ßwý¢l˜Gÿá˔>¶õ­Ù_7N¢Âz‹ëÆ +?á²™¾©@“2JפE¹aH?nÛCu†ß¶? +‘B›®á¡ŠE¨ +‹èƒnÜV¡ßœoR¨Îœ +5µ¯JϬ`+`³£/Ytފ˹ãÀ®®Zǃ`Z‡‘ák +ŸÜ©ž£jr•ouÿî´«\KÁÙ³* +æ +ïþ`ŽÞ™ +»-¬Äh¿N_n\š#Ïï—äë+`9.÷ö‡2H)%ã©/8®è +¥·an/ۙ¯]H՚~×MÒÒٵϐŠk—ŠƒµKyP:ÞýœÆOºÁ-†{pç$'÷Þu*ª“·Î-ȳ +?YŒ-Ÿ—L˜Œ¥×͂ +lîêâ üP[mÿméޝ–ýü·¥[„ñók²d^1 +>ÛÝnYÇU“Ü +_þò?¾µ*¬ +endstream +endobj +207 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +209 0 obj +<> +stream +xÚµËrÛ8ò¾_ÁÃV–ڍ`à3[{pgÆ®Œ3köç@S°ÅZ>4$eÇûõÛP‚,ÊöaÖª2@£ÑÝè'¼?<éð“^¢¼$ÎDšyEí½_x'ŸBO" +2oq +s +©½Åò›¯ÃÙ÷Å`¤†ÒR„ +#™Íeþéç_>}¶8ÿpúy6×ZûŸÏ¯ +}ù„ßÐÿôûå‡Åù—Ë+"z¶ðþðDyxf,E”xµFZDá8®¼+ï7æ1ód(t[ +“ѐƒ2ߜ®áé½åViOJ‘E"K™‰(¶ì®»Y˜ùf=‹?ï𿁭0uÛvÀøüÃ׫‘LèI31ùëä1 ‹ðÐxËtû5 +˜tÔޜÁ©¢Ì+KÍPƱHFš#•È`ÿÞd DœÑ +¸ +Ï{¸îëLࢿ³^ãE‚SRbøgFTZ$¸% +nª¥ÕO¦D¹ÁÆê‡íÚü€ª¦ïÇ|_6œ?òÆDè +í-/‚úz›_œkèǀQ·Í +ƒ-`vý¤kG)‹‡±£[èlÒ䨂  F[v®ØJÈD@Pìâ#³Þºâà·´,xBBF!ÜòÈeìr Þ9:Â5tQL¥"L-† +áš5ö[Öß +w +áa +'\ð:Œø'" €²°dŠF(Ï/OJŽ +D;£­NÔV'Ë|, +ÞØ«,kk,B’p©f»¢ulu›¸›x«Çd¬£í^jòaÓåOS¡Š³Ç| +׆–¿›Þc«„:=ïMÏk`afïÌدÚÞ²{ ŸÞØʄx‘MQÖÛAyW¸[j¶wø‚c´Õ†› +“€› +Y9$dp×P§V?€1^= í«h»[“û¤ +B­_ _+³<ä5‰ˆ€þ`BíVܐÆKx ®¬@é:¸â€‹¦k ˆ·4¸{@êeU1´„Êa×o¹ç´k° +\ÙÔ¼²Ó’8€›,`+FÀ±bžàÓF\¶V„ÞزVw7hµ·Û;»Äzm©Õá +£m¯çŠ¶^CV/ɊÆ=©â@×T– +glĉcÄ[„Úp•¥Öh'öVŶ»ƒ´5ü«ÒÎÜnšbw–U +œEFҖ +a¢ö®`¥i'zν Ÿö[U +Šzbhã¶íÌÓæ +¢ßßèDp:uâ1i +Ä3<ØPÞ@¨lúÁäKF&™`’ê + +J¸µÍÀ ¤%™o”ú}yהׁ + +ž +˜BY¯óÂâ·ödð:ˆ#Åã +‚¬x©VŠ)҄ã⋵’ƒ|ZUÛ\ÇWùÅÐv¶¡É;»‚R±:Á@ì+@1ð +‡0í¿§tÿÃô/³ +‰$‘üÂ÷2Û;ä_;z©¸/—%åà8ƒp‡%+ +}¬¾Æèûåâña +Ö®ý« YêD +vr°aº“ƒ +'ï,t +Åy 4ýÎrøD‚øÀâ²3sƒ“¶¥Á¹Ý +­ðWBÔ†H,\Ú9g2:'–ל.ù Á¨hÍ0NÂÝ„} +œà9Ž¶ìAáÕv7åÀ³”¬ +¤:Û +ÄYì9¥+7 +îGœa:ö¹—D‡Ž}‹]· +¤ +k嘌ð0 +Úv§(o±Ú—û¯ã¡ 5ùêàéã.^}Hsp$yâÒے]díku`j¸¸à´æUšZç¤Ãc>œš•bÍ°}HÉ +2|îI9/͜€d(`Á${4Bû +3”ŠÓ1 Ã&ºuÁ +ú¹ÝeÎ +¾f gã +ÀaukzK +~JûvHºi y7ƒR1ók¶Õ­Ô'ýž?oƼÀÊ¥fí:ß>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +212 0 obj +<> +stream +xÚ +SMoœ0½÷Wøhªâào8n¥]©½TU¹U=ã-–²@°IÛ_À†Mh#̘7ž÷Þ +à`PøI€*+ .àc +îN +àUEê3`Œ AANÂÔíwHyö£þ +Žõk0•ˆz¬À¨ª"–¡b9FDn±Ÿú,§D@ÕXmSø«Ó“¡„®Óëç‡=¥¸ +²œ”p +÷ƒ[êŒí–²!ŒÓùôÉ´ñ¾Þ'᱙\—@zìôEOÆ~yùÜó<÷ʙ¡bîN|#£9¦ˆó(Á4óaTÓx£×(=<àTãµ2Âà}⟒Ùê6E¦·N7K2œÓ;² Á8i«û Ç +z¥‡²\bëÎ؄TÃeœ¶/.H’Å<±ÚH¸zà•Sê9™þg +“”Áo_NÆ<„”üÏ +,)¢líÍ9ŽOE±ã +ã¨Ä + +½µ]¾58bù›ëµב)½+É<ý;¬K) uÓ¬ÜìW-QÃx«¡¨\×xhÆ1 +.;*>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +215 0 obj +<> +stream +xÚ­Ërã¸ñž¯à!5¡²†>6•ƒgìÙµËëÙµµ¹Œç@S´Å +EjHʏ¿O7º)Aeí!V•Ùèú ï‡'½~ҋ•G©HR/_zŸfÞÇ/¡'‘©7{Œ©Š„ÔÞlþÍ×Ñäûì0Ci)BˆˆO¦2ÿôê÷_O?Ï.>Ÿ^M¦ZkÿêâvFÐ×/ø +ý/^ž]|½¾µ‡žÏ¼žHŒ÷Œ4#)Lì-½ÐhaÂa\y·ÞÄcêÉPè0b +cƒhÈA™­OW@@úy'5ó«´'¥HAt*! +3¼j'a꫉ ü¬Åÿl†©‡¦ÆŸon‡cBç˜$ò÷Q2 Fø|qs{BÇu+$˜åDŠö¹ÂH‹4å}#€ž¬d°{K2ÐB±Ó«« +T÷>u*p°f +Œƒ4)ƒf±aÄò05Êøw>}çY_ȓ-¬^=1ð!ëú¶Yò®É¿Þ!4"M,½Ó Èl­ã $&:ÙÙD¢LU*¤´Ìï_&‰öñ6•R~VÓ·¹ïŠöi¢b¿°+Ò^4] ö‹€Øϋz¢"¿o˜pà.Tâ7]ٗM= +8'€«xgÙãð•¶e-üߺÁéçÔ£B +ÖW¬6‹]ŸµÓ²ž+{D‘·b¡~ÀŒ‰´Zôí+цC2mGãWëYÝÁh™!Ǽzo¥(,‡Ï +ÆÚú®X¿À” Ãf‹‚æγ¶_X¬ŲhËnŸI˜³þþ` +¡[p})!:ÐpIºšU'Þ5 + +wÛC¹øÏùa›c© +üÁ¼Á" +ûV29•±0Ê¢YC +ñˆ;AÈÎ8oÖ÷Õà².U>àù„4;ûDÂe,}FÁNMáŽzP¤Œ"ß~b_Œò&u$Tì*ÒzÖÿƒ¹·äíçr]•èÈìP"èοn}y7ù‹œ®žþ›ßÔ÷oúûf]ý‡U¦bÇLÈ1cvLd—\† +ó㺠+¹bD®¡+â [¹´¯Y®ƒf—DÂPh¹9Ÿýys}~vÐòâQÝ-ã–g ‘I2ÀxãÊ#}ð‘÷U‡!øvvóõ· +QÜN +I†8Ú" +¸±Ãªn;ÞS‚‘%pýuv~{Ø +;ø?ÎF±Ðp•R +øÒZ›ƒlRqÔz]*ë*czc‘ +ú±¾þ“ëT.•ÈˆP*ïèԌ¨ +ž‚0z +ñ0†²aÅi¡Eã+æ„PÖ¼·fë +CÈ⍠+=Ù [—x/ Þ +">ã +e8ñJyL†Z@Åá¸×xàÖÄyÔYû¸^ò}wcšåªbD :ÀüO8˜ FÎQ+®`/@¹Ç(#t¼=FLÆÊ&c +Aòxɖ« +õ¨cå_žÝáE‚SÚ(õo +O*4TZĸ% +®«9ë'U"6#ú!».^ »v +Þ˚‚YVsbF_h +hÔ×q°s®¡;á¾lêGÀl»Q×6)¥„Žn!%ñAA +&¢ + +q!å? +Bˆ\—gÄ"xë‚âàœ#Xðæi * +.#—˝‡®ä*õ¦&Œ¥²kú‹¾K +;ð0bª» +Fü@YH2eG(ÏooŠ +dwšNÔF'ólÈRø*Ë%À‹PýƜ÷ãmÑ:bÝÆî&Z *&fCŒ¦ëi©Îúu›U4m +&œ=äã¸Ö7ô]w|Y%ԋYWt´ö +VìЌüªé˜ +°Ø=ýt§Iˋ„(Xäår3(Ë +wKMö_pŒ¦ZS‹c+$àfy^¬ú +R4¸k¨Ö` +WH»*ÚìÖÖý€ +« +B͙#_‹b¾Ï3j+`+"nøƒ µ]qC-!A\Y€Ò+tpE1Š¶ÎªŠÏ *O/«Š ¨6ËmÝïÒiV`;¸²^ÒÊVKb_*†Ó€¬NJi‚¨Ð¸d­}àk­înÐjÇÛ[^"½6¶ä†á#¡m®çòf¹‚¬^Z+öì¥ +GŠQ® +¨4 +8NɈcLjs²µ +à*MØìÎÕª*óM—3hkøí%Ï<¬ë|K‹•´¬‘4e^С|W°R7#½ÏNÏzþVE¼ +0ϪMmý¶Ç„èFmál o[ÂȪ +ä+h°¶‰¡²îú"›² +&mÁÀs ׶îi'Aۊ¶g¿+ëò.aNÓ=P.WYÎø +S·ƒ@’¿N ʊcŒRSQý£ŽKò)©h¨ 29Ëë¬å”Šô ÂíhÞÓ +Å0í²½¢UþKÑ +g;M„¤ÊXg{‹L~fÂM?q? ŒÞëǍaüñ~|¬"Š¥ˆ‡’oÓÁ¸\ɍË¡–ù$¦î­9+¤E„vµˆ36þÁ—´ˆç¡O¸².BE; +¿Í.2¥„ßuÍA=堞úØd«`‹ºüØYŸM¡å᥮[/W죈BŽ¸Ùœ¡ŒüËÚ4Ž!¬ æ^ÊåæIC˄¬@²#`ßNFž*,;(±Å`pdÝÎ +4 ÷³Øôg pcCƒP +Äx»aÇÎð÷™z@´yT.ÏòË‚M{_ö¼§ +ËPE +××:“wŒ;‚²*¦° +5nùÂ6 éþäô`¿(†åªÂte×Ën1àâ%à·[ƒ^ ^”¼È/M8H¹CûÖÉ/6¶}I¶T6÷²ß‡î¾ëÐ[àˆŸ@ÃÅe>¼)ìÄëµSsXŘâÔáܔ‚ꝮUo˜;~Ð(Ò®9~[dªt VçÔ×/H:‰ Ÿn×9Tz£%TÆ" +zœ½^þ +*Ú¼:s¡°Î­>€ìýà\IÌ)!ÇW`4̲iW´‰jîÉD +÷¹ÏËcÐLoÙg7€“C¿uâ}Ð(éÒ(óqr>7WòÇßþ¾,ó +endstream +endobj +216 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +218 0 obj +<> +stream +xÚÕVMSÜ8½ï¯ÐiKފK²üANlvH±• + +Lö’ä <\1ö`kø÷Û-Ɍf™óUŒ$¿nµ^w?‰ÜN2ø㤤,jVÕ¤¹#¿/Éû“œðŒÕYM–×$Ï+$IEÁ¸$ËÕ7*ËäÇòO²X’{Â*E +ÀKZp¦JrGr%™ÊçyG.Éï³&.OÏÏƬ +&« +#s*jÆy +åiŸ¤yQ``8Pt²zLÛ~e€DQQ£>%µþ³ÙØñÉÛ­õ¨ajÆ N•×5Ýx»•¶Æ#†¾{ò¶a‚.ôhoýp +¬¶í¢ÐýMgÞ¹PñÌP ÊE9mÖë®5+È«”ô +ãyòcçî:dÇæÐMkaãJPö*±B@ +¹M>þ½8Li^²BÄð¹ +€Ï¨ +D†1§¼dJ8˜Ëøž‚FÊòP³«asՙŠ7 +nsaÒð|[ÒpæHÃae6êU«{L~:l G|OöÆËeÁDsN§P™¯G~¹¼8ÿë·7"¥¤¤;% +¡nKêõÄU5+|_,–_/Î +L^Y1Uí˜ìϞuã>‰ÕÿŠ +™+Vxu:;_..—qŊ|tXùJ&ᆐE5_œ +– +îê(/oÛ 5ÓëM߄&¯tg;ÙɏQàaz +àÖ¦veF£»ÔŽºAj~¶ý‡i”ÆÕ~pí +oüÿ +í +—2ú€3àÓ\o: +MúR[šán½y!‘Ñáy+X¸Út?ý’ÿ”ÍŸø® +‡mºŽ¸+ëYýb›Yý`-R?øÐN/£‹ätÅÞÊTÎ +Vz;ñf¦"ðIRI:€x +•S¨ÏƒùÁ (éh¦ •§Ú-+jî7m? ¿¸’¬FQð0µ.K D¢Ì@À]&o=zvÓtzš Ÿ÷~cgۄŽÛ&à×À+.Â=SäßæVqã +ÆwÜ÷ŒKh&ú!IyQâ´ØÓ£¼‚‡I°øò™ + +u¾½öˆF™1YÃXìcç¢dùŒitï^!54ìði4þÔphà™ª£“;À•¹;¼™mQÃæ£ÇØÛy_kîê炻l[[{®‘·K¬Px\÷^|»Ä¶à¥»§3¹Õ‚=zš3¿ẩ{I¦ŠrëȔ™pdV4ì±qÅ(³ +ߕÖè•_ÆîÅ_;ǂµ½U_ð2‡ùçP,Q´±%ÜÆpÀ“¯fRŌ~]òpC‡lø'Š +®gÿ² +¥ÖN¦»~æïË/ÿ +^ñ +endstream +endobj +219 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +221 0 obj +<> +stream +xÚÕXÍWã6¿÷¯ð©Ïiת%[–M_ì’ÝÂc¡ +¡—ÒƒIñ{Ž +üìߍœÈ` ‡^ +¤‘4Ÿ¿Å»÷¸Â?÷”ðT’±4ó–ïãÂûåsìñeaæ-n# 㑷XýåGéìïÅ p¤‡ˆ8‹0"‡š< +Cÿðôß?ÎǟOgAEþéñ储óÏøýÏWgŸÇçg—æÐù»÷X*½G¼3áL*oãÅ2b2 +Æ¥wé}#3Ç,Š+£’Ȇy¸ + +¸¯ +YyEäqÎ2)‘Ç!“Ü +Üogqæ¯òNà + –8¬«N?u4q[7@ÈПçM·&²1L]Þueopå‘`JÙ +&äU< +š‡)‹¸Ùf; +ñº>‰2„Ë~`¥W§>}»ÅHH!ýkŸ¾}Çù‡ +),ùcÞvM½±¬³_ߖ\fLRŒ +Î@Uã×Wå— ‹ÒÑ&’?ãܕø¸š"U~·ÖD´]ÞEµÒ[ +û¨j&€‡‰O2ë®ùŽãÔßæMCÝ´ •Èt7î#ãuU~v‡u4’ÍàdsZ^ݕú`Ăn”•‡•FÜe^–º¡(ß65 +öP¬tK3W +NžÜÊî­ÂCΒØFMÅn˜er-' Õҁ¥î†s?]ψ̫FL²ãC”â +š4=¿8$Fï +rôeN;‚Ë +9H›¸Ò¦{×\cõ})Sº/é +: +a +a{v²¯×/e@UL³äâ“pêBš 3B}¾>WH½ªÙ)w6;›ØFè­K‹õ脈Ш*i|•ˆ=ˆDQbm«ÜM´@í‡à¨ÛŽ–ª¼ë›¼¤iÛé$”èÉËDǵ®¦oßÚÃ(:4j-ue‰ÿ‘¦Gw&~Y·V +ˆÜöiõƒÁ’%áþJ/‹ + +"UÜ +îNÅ=ÌAÊÔeO$Î%a>_.õ¶Ë¡M€´•dà\Ÿ += +̑ÿ’ÈõßpP3êF©(ޑa-'¾\b°ÖÓMAêÃčYEèK0'S}°"ÆB'ÉaÎx­K#~[ñÅ†‰¤0‘»0‘ñ3ÃRѾ4±Å +ãy¨×›¼[â•k½¢˜q¬äÖc@äå]ÝÝzCCl^±QOCØûTP‡k×À–EkÕâä +‰N, +ë×ájÏ™ò¿ +ñer{²¡r˜>!ŽB#D +þ7Í*Ò +ç,S'$ãҋXF +~=ՙ0ï +‹©ÔxêŠ_c®Ø”n‹Îær»z߃Á +âäîaÓÔs% +v^½S˜ : +ÀK¥ËB[µ‹j|•ií¤pmÖÀãËMh‘§¶½ð[3šÉ"¬ö +z(–Øý™ø + +“³÷Ú%™f,¦g‹x·]r˜1õUl#TÉýÛèÇ¢]›D†šæœ÷âhg¼ûá˜öïQ +™÷(ñäèò-~wçm_-ß(Ün +ñÔýB7“ÑK|£G®A±xßà3Ž¨¢j;¯ +¢)ÿ¼Ú3A ˆú +¥—?몀$@Û-ÕômûˆÍ®ïì!_M­×#ø¤X[ +ÜB‡=ÙKàÛ6š*ˆ[¹l-1&oôÍ®q»k{Óy*ì>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +224 0 obj +<> +stream +xÚÅYÝsã¶ï_Á‡N†j-†øàW:}¸¸¾Œ;é]rVڇº4[˜H¤LR¹8}w± ʔ”ëx¦ã +‹ÝÅ~ü +žÄðǂŒYZDyT»àÛUðõ{°8*â"X=Rò(Á’§ÁjýïP‹ÿ¬þ +ܬ‚ç ʓà3pY¦,J²`ÈDD‰tÏÛà.ø‘x“‘)òú,A2d§Ëû½n +ϯßs0I‚t,†½%#ݾ]È"TûE‡e‹ÿÕb)`ê±iaÏ×·Ÿî +é±É‹(µLþ8»€‘%h +:Õþ¢p«õñïUK[w}«Ë­íöfå¨`ÖòõµdyŹåëk –3&a±gg° ‹ãˆlrýîûï'¤þ‰ˆ"‚GýÝ<ñˆ– ^Îá'‰Š‰Ë„'á}H¿ÝþŠýFõ¥ +«mS?Ùñ~£íh³³ƒ_ݚ7hÕc9ìð«ìÕì솋¿œW]äQ‘Aß- +¯W·?œ´@’F"Ÿ,",y1æ)ý~‘‹݃§IXÒ +§=Jš #_ð,T-Èγ +|MíËVÑû®/Û¥®×àzKž‡ +F5R÷øZ†¤¦êÛ"‡ +%<ª¶£çG·ߖuO»ri¤5jGè‚ i¯›ˆ4P†Põ +ž†Ÿ¸#ìo2rpCSÖkx¯‰¨jŒ˜M»ÖuÙ«.‚y¸Ú(ZQ•Û­jiÜ +öû­Vvãޑܔm¿±ü[mµ-QÄׂëÚ¨d^. +V4;!Ñ)Ú²)*Pµ/‰kgÙßÏF“ív:k9‰°Ó½åi´Ì|-Ϲ%&”÷»Ûޜö,™E)ŸÐ»à¿ò¢‹Ç¨ÿ’eQBIÒÁë „$»ôµn[e‰ü-!B6"¢AQplé4«²7²’puI·ºsÉ-2)ÞRCÏlŸâúå@r¶åZƒ£^ÑþšÞŠÄîó¦àYéÖ÷eL&oa燰{Ûô{ÚZG>! +iÄ3_<“ßÞB<ä£ûÃÚèØt +2ÒrFŽ«)J_ٕÿÁÉ!¿ +ØOŠ|j­z]Y/۞RD~¡¬däÍî-DÝ(ý´±¹V +–dNœ"sÒ|ÐU†òTò‘Œñ±®ÿo]¿Ó•ï/ëzª˜ €=in˜|ºYýôéÃÍßNÖ³,’|²d¾ž%`FFeÈÕ %›KqŒ¸ònõéã?þtÁ˜g`” mF¡­=uÖ9Âx³Á‡«›»Ó•=NJîÓsag‘€¢(¡ýÈ H²#|ál‡áæQ``røñh43*÷<åTîyÊ.–û\`A?WîùùrÏ£¬ðʽ$ +uGۗ$N¯ÍɼÐäóÁº¼îÚÙZ©5BN +7õö +V> +ëâQ»]Óõ4\]éNÙÍ{V¦ª[ø= +xVê×¼Ûކ^icPiàÛR¤P5pØPYÒ¾¡·¿©¶¡™Æf[Ø~­«Þ e 8t€ÀaÞ}|¿`,†Te¼òñPW`rlN! +îöñœÁeŒÝQE=N$.ùibçp#±÷ +ú,¨wOm @¡2Ý +t¯« +ÒQsƒ +†F„ÅMëÖÙȬzšAC"Mï¸ÿ +[’ïîr‰׫VՕe5áÈyn<ѐff +±Z ÃÏ +,Ýtòöµ—È+#£L¸•Q&ö˜pʃ^8ßé§z.ä’ +Ý)¶á¾L ]£“.ä½0ÕóA·Æ5 +9ø1¾±+Œûtc΂‰Á;̓î¬Ó®>âœE‚äaЊÏ$ä4½FG*šSš#i +LZn ýRëû +­*º&W/« +< 4geú,í€õÔc¨µª-¾Â,ÿQÇ˾ +™5·7D—}w$6¾+¹˜`# îe±ÑŒuŠ/—âWÐl’èŠÑÝLòÀ-†„ü›‡¾Ô5ž8¾z4w8{ƒ]6Ž +Ð*C2Ä +:c‰U‚mðßíà “«ròrnÒ½ïÏ3ð_ÛÄ6¶1æEóx”™®ÕVu½¦Sâá-9¢jwÓÊÞzÓ8ÙlíÓxÊ6¸3 +î1Kü=†3·µÉÒfkPaµÈ!n½[œü4&|¼{ézµÃq:vÊN“mqòúÈ˲á +†<Ž +õá8ÜAø +(2¶ +º·ø¨ç„÷qÔ­6†¤Çøu‘Ì¥c•¼Y:ã?¹¹d¨èV3 +Ã{Ð/äHW +XEœM²¯ÍPSs5=Þdqªc@¼+]}Æ'¿Ž^Í + ++ + +:/s¹D"<ŒMg˜€?®Ú½œàQ?àP6p6dzHH¿ºÕlajöÅL“$€sèÞO^Ì4 +1UI“ëG\ÏÓ +©9 +B²Í]!¡»ç¡›š$ +±Ëv̲‘“ß«È)YêÚ"*Ö·W‰ 𡳚h«AI?÷qÌfa£ßxÄ<žõÎÔ˿α`¦C8ÓÇÅg×gVΊ!z%Š?ϲ€”ÊϵWñÈ<)²!NYeé§bn“Ôô“^,Ÿ°Væ”Ù¹†í•só­í%§Ï€XÕÜfBŒ=Á‰`äÜQºL +‹‚²øèò_Í£ è$;&Àßϵá0‚¸þ¦j‚`°çZc¨TV“qpÊó~_¦b*–»æà Še‘ŒÌŠ(™y +ê‹ $ +6Cr³*¹˜@>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +227 0 obj +<> +stream +xÚ­Ûrã¶õ=_Á‡L†j,”ÁÛvúൽ]§;YkûR÷a +-Ejy‰£¿Ï98 ɒ×éhG\æ, +eºËÈÉ +€G»ZâQƄ°€Ì?íàú + +€þΐxXS`&ð“°Â"u½ê‡n2MDþ~¶tÙå}H¿C?çgP8° +úqWWMýäàÕÂ8h±tÀï+¬@ʸˆ˜È€0 +„4·X)‡ÔÏ +Ð. +ð\9àòm–ŽºÉß^_Ðí瓘‡Ö2 +1IYœï|DBœŠ‚qî‰íÃ$C4'‘&¡¢Tÿ¨z»A&2Y¨[ ]d9ئ^©VÓ9ȾšºSŠ<ÔՈÝã± +‰MÝ·kB‡,uÛÑúq|¿oUÝÁj©¦–Úȗioš>ˆ†P÷‘†Ï|ރçGÕ% +ñ%!ÍKfӖ¦V½îØd*eΚ¾˜«ªÒ-ÁÝ°ZUF»‡¿Ì.ÎܾéGì½ÛÎ^’®–øüƒA©ä(Œ2Ê´̛º4#wx`)‡øC”›ú‰öŸñ +77•®Ÿú{Õj„LYN±ñ×ÿº:n02CöñG¯sñÜL +˜Ãb ¡¡7 +ðOˆ‡ÑaÊfx¨´Cò + a‰@´ŽýQ +$1séAE„T5†î{È +nəÌ÷õrvMµ;ÆGºÏ‡£§`ï1ýPꑒV• ðîŒÖ̔BO~iÈ=Ü!ꀠøÍ +€  +²Ÿ4 +†R÷fN4Tª?ʈü¿h],OAêB›§ + +Ùq,Bõ@âÄ-'íëª2«®1åÈÀґN¼f[^¥oýò,}3C^׫Sðä,¢R.Î. +²cÌÝ +ÚßÒGò'lê5H?'áÒp7´ŽåG¿Ð~~ ´L깿`RT‡üžKÉäÆï?ð8Œ¡aùþ + +S¢(Ë +’¹ýüư̈½^®(ÿ·PñµN{‰7ÂI=á”Ú¥Ò‹7«³]œ‚‘V£ãûŽ´@ʆ¥Ì¼­Û½EÅP$=¹ãhÊßÌÉ3ԙQX‚J$+‘MH0s[îA}÷‚2Gî±zEƂI2¡ÏW³/Ÿo®.–,YΒ|ç“Ã%KùŽS咑YA=Š>Ú|+tbq7û|ûó_¾!W +`«V¯F)xð«ÂÈS,Ê^cŽŒd܇C=ßF¹ß& xF5è=©ï¸|’[ñx +ì· “Vˆ®Ÿ0uˆè;Š­P #{‡ +w‘†?rtÚ +{3».‡Ó + +ÙñÚZ¸Ú˜øÖ`ƪ),Ê}sŽv¯»ý硐7 +B¦ð¿:^ïŒTï‘9Ôj>׫^¡WXŠJ,ð^S[ +{îævvuw¼æ† +Zîà¿;Þƒ–cÀÍs +AXB÷*ßæÁäÑù=l,Óôêáf1a| +ЈÌⱺEp¬ne&]u‹»XjÚ$má&h +{Û¨ÕÊ¥ßÍ;/<7îe½cM›PTº2=gìñliÖÔ¿­žF©PÁ^0ó{A0| +¢InÏ܀>·}–ÎCmŒJ£q¦éâwµ\YeæóB·úPTq´µt¯òå*&cO®xᆨMϛ—ʉ7e=—ã +ÅÐ +̼ ;9ÔóìÐé@ú:Ñ"cà½U.jàvóH»Š–¥ÂTµžä;Ÿ +<àc³6i +§2S¹¤o檮›ž®riüi‡¯Ö„Òj¬n6a·°Õ ! +%v§#jmì +)*­Vnú`Û‚‡º‚’Éí»`<ßÌ1–Ð)@ÅàÎ7ã‹^ýÏƟÐÑÛA +l-O­YZ)áPÃÔîãÙgçÅÀ‹Ë¼ c|k¾ +4 +¡q£Ü˜ߓUG{ԗñbÄtÛ`°pW»wë&AÃæøxžÆEa§`éââՍ«œñ˜xwMÛõ‚lóQÁbNÓ) +˜Ì•h€Ÿ„Ý¢ª’à¡ÓÜÐøFѼL:<ƒº2Þ&ãËþQ”Œi<¢õ +]»UZœD +=Úq›=V “3®lLȍ,}f©5Bà +¥~u‹ +C’Ø*)KÑ P= +­¼˜c´;Î +2Ïÿá +Œª¨‰<§él÷ +ÁXdcUJªÏÆHèSÒÄtëd¦'ª^¨s7ÐnÍõúß¡sµg©»yk\X-7Iæ×ïþjï, +endstream +endobj +228 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +230 0 obj +<> +stream +xڕY[Ûº~ï¯0úRX3âE·yÈI“4-Pôd}p +ê>pmzM¬,9ºd³ç×w†Cê’ÕÆ'X`MŽF¼Í7ßÌP«/+¾Šá¯2±Ê҂åÅj^ý²]½ú VÞæ +» +Þ8šÆT{?”)K{ik{ ÏvÎv».` +k8¥àèôxr¦{ +‰ðkT‰ôœ¢²®îm× +É[{_-ؕ'ÙÈׯכ$U;j:!îKoÇwððn0¾ +Ñá0˜9À¯ +Á`ì¶âgÂC·Ýf%»hɱR"8°efɳxÎÒ ÒØû“[×æÎb»õ +N¼­"½ß´³•”Ò)¶æˆA] F + + X¨ð?îñ*v +#\Mrº£®C®2wéÂ<€ë\»“]8›"fIÒ·ËÍÓe‰vŠl{]ÑcRã×w–+´7>:6õ™äá°5pOÂRœLè-{t&|™€*䶸ˆ‘t¦h~æ†d|2ÀO¬®Úݚ +¸DJìAã)M‹ìBÏ? +Ms6ð^ç±ôÖ¥ùÇN®‘k»qëÙø“7Óčl +S¸©a +Ûu^ÛÀ˜]cƒðóHؽ}‚„ëŒmÈ2!Úz±Ï +@øî;Œecx*Ðq,=‚ãè +Îӓ_‚®F¯]H-Ý6â +´ë’ºìE¼ÊX‘!22‰¡Q²"õ/ÇOøÝ +Z`ÀbaDÉYžüìˆ.m‡#Äa³÷zv€(’Ë“+H¿>à™c¾‰Êg]vÂàx¹”à»îøn–Ü +ú\ð—%&Q, +ñwºè¡‚èÓ +crêp¸¶àpžá9“3ŸhÍwhüÃ4õuž)2Æ)õM¯ͨü鸔q> +Îia_)dY iL`]ìCòJÛ­G`“Ü¿0 ô¾óññ9îZÓ|¥BS®NûàϬÿ=ðÑÖ/Å%N ¬êŽå)•§¡Œ%³@t×wK‡l +‡ÆD8ř óbUäÎpìfkʘÈNJ%üÅuLó½Y>럩E±è(Ðâ®dKïg£Ÿ +ÌFEzÙp–ªYÍ2÷D8ÑA£¬ÁK¸š€KÌs#èêòæK +sù‚WäâÏíX$¸Éå”`JL +öx‚ȸ4>č¡ûёÈ$Ç3 +4 +ˆ@PЀÐ@uË7} 9Jkô¦4_×.a'‘¶Ӝ}j´/¬@ꨜæ_ÔÝMnPæ1", z +ÙÁ:áQ}9=µvM—+wüÚëjÊû„ej~IÔYÓ.etÏudb̉Øï +«Ó,z +™Z奲9xÇ:XäO/¾5!U‡G‰Ø­1´ª$º + +’N +·" +Yó‘Ô†ìk`¹%3 +†•]½“œÐíŠô„ +°oüHgþɁX¯IAUN²X·GOk/ÓË,J=Ï,Õ,ê€ÜG›E(€³"ZÂtº¥YŽuYÒVÛ×KC‡rÌBœã¼x”9:U :x%Ñy¥ +àªó.R×AÙ>®7@âåâ5˘^ + +¦ +:H¹:æé„S².}¼f`ñ{W´*Ÿñ‚ÎÙîÕ\ڋ”çãò»*=;Ülò +½rbՑëKn8B½¡\Ñ]Ï-¥:gã#H¨K¨vG„x%©ÇãÅËUn‘cn›.g3R~ +»¡€è=åK¤ß>þã +XWàð³8 +3¿ +‡‰ò6„9²Ž+?›¿µÃý³èÞøkr滓û¬ºzå‹V¯ +AËW¨iž]HäÏ/$>¾û|{}£ +ÇÅõ]zMü:¡ú¼¿úðÕ¶X4`—n:QÜé—aOE÷Ñþ½p™—‘iÔW¶ÃJLå™ +s(3t +ÛW¥}Õ¼“Ì®ŽWˆÐÄ'?¼­.¾F›ÑÓE7š|À#°ñ&Þ2—.–ÈÎ%, +³x3íe×àì¿í™Ò‡ï¾5‡˜2eð»$KYœùœúºiFíOx^±‚SvߍTœø¬ÙIél@þ[â>Úötõ@Öö—‹;h¹O +( +±ë¼×³ +4›:”רn+ âó PÃ=ÈÌ +Ó(%$Þ­W­#t0 "A$~µBfãåðó<ÉÇDÉêþíhè9GàÇä|Zn +9–›nŽÞ[VbôtÜç1úµ¤ÃÍuŠGÈdXÜU›¦ +øOÙкþ}zЦÛRÉÃurg¾ù¼Pôûn’MÏn«ðB&ÜE +⼔ÀeX9ø <~‹vºî0}[v`ÀÈà +=ö‚”NqòւÅò„ 5±Œòeé¦$ +Cáx•–Ì>áA +žgø8\m—†SÉX‚‡ÿë_þ +G62 +endstream +endobj +231 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +233 0 obj +<> +stream +xÚ­YÝsÛ6¿¿‚÷’¡®B?’éƒ;­=>§Õ{©;7 +IKœR¤BR±ýßß.  ‹ªÝÛ\ +`±ûÛ/Êûæq/€îÅ‹£”%©—¯½ +ïí§ÐãKƒÔ[ÜÇ\DŒKoQüî‡böÇâ8‡CHÎBŒÈÏæ<ÿôꗟO?œ/.>ž^ÍæRJÿêâfAÔçOø +ýO¿]\\|¾¾Ñ›ž/¼o +K”wgFœ©Ø[{¡’L +v\{7Þ¯$cêñÉ022Æ +ÙP‚*۞Î$÷‡¼â҈+¤Ç9K•Bnž(–p#o>SŸ +YÝ"±´ü¡Ã/#&#ÃþÏÉ +%P†áãŗÃãJÈCɂÐ𐄁#!Ü]_ŠûšçgRÑƧWW{¼®‘dʀpÙß!”Ã5‘ÅÒQb®„òo}zvù  +%6% +K<¢ûn™³¡ä- +ý¦«,UŒTٚ#gïÿZ!`‹n¤ªñrT +,•ì-"5ÌEÊ8×Oèæ‹Y"ý.kú»¶[*/>‚å4ÕYGÜ#;!°–›Ù\$>È-b@ˆüNÿRÞYpB+†–Ø쯯–p +ٟ.þs~üVaÌ"±Ço +wr¬+xœó˜)òÖn¦¸ŸŸùÀŸF<íök]&÷dp*:1íÔó»=]¸ +™Ýî6@@Iÿ=„‚(Æa4±7OXjWüAgéÎh”^ނ™Š +,e|Ý%±ñÛÙ¤ +x’²­-Q¸ÿ¦{ + +|9% 6]KX( +JÖíPµ + 5Šûöq@)³î=ÁÄÊ-}qLn4"ޓ +X¼†ìgeþ ÿQ ’›‡×s“uY]gÖôY—÷eþb}uß_C­ƒšDø®õP¯¯ +>Zéþ\¿µ¨4Á¡¯†Š–Ñ«;RlWæeQ5ËßDÓ׸Ìâìƒq®Þ?;\ㄩdoÉtpU|9WA(©NŠêEJø×3ZÐ%ƒ¾äÓ"à(/ÑÐU9áh2äB“þý˜«öcîèòG ) —òȵ~‰A©}•›—߶™>ÒoïL +];·]µ¬šÞ +z؈¹—’ K’QA0qhÂÂÔpüt³x’I¤¯ž”ŠYB9õúóâüæxªNXîñ¿;^³ÅLJàµQ—³ã• +×>è0ߘ"%ÑE +QPÌAþ“ ++Zb¿%Þae¹¼›€¾ÇÝʇl½©KsF×®íBóêçjÁ$o{溜^žèË.tîWhD +‘ú+ +“Â€Ä +§#n⻜!÷/yš‚&Ð^zÁ}U×Du€¥ª+Í~ôØte]­«&ë +éEžYöa +À¼;ÝÕ迬ûìn*„)€°u£¯”LAWÄ &’Œ+÷ÖÛ¾dÏ¡ Š +‰fÏ¢Àa^¬ÊäõÊxøÓJŠ*Y¦ßq5Túÿ +6<ûÞDt X¤Æ +j& +ÀŽî¬’6ìœ 7™~ +P6%^ÄB¹Ûd*øÑ¢1ïžøf}®ˆ0GÑ*B% +Y_ö4w+÷Όüºí€Øýô%5A$ +~QæÕz +@U7àjnj>x‚c´õÖd,ëKo–çåfÈ –w +¡¸ ý‡5=0í«h\-µûZ=0\geq(3jB„&p!á†?x!v3nH£)<g Ó5:8*â(»Ê³‡6ŠÞ]W.HP¤u=9§Ývpf»¦™–Øá´fDŠ‘pPL/èt ËKhEꍙÑhuWƒV{³¼3S¤W=4\¶NÙfNÈÛ5”$ëJ£È®9H—pq ÒÔJœ +&ªœ!v\¤‰ñ½r³©«\·=½A¬ásXUæÍݶÉwg¥¤¦òl«¼¤M­`¦i‡C™÷‚<}§®4! +ä]5€ +õØ\|´× +ØHÁñ˜ÒE¤U÷+i°Õ‰)h‰†2+ˆY_ +^ꂉû +̶ +h;I®ñ«¿¯–MÅQ˜Óëv¨Ö›,7ü­9ÜIþ8ƒ(ûl±EºÕ¿<[,9Ì7+:Ay‘Ñ=ö£¬i +$+íš0w‹ +cÕ´hžzõÂS=È° +Ùù%¼ÙÔYn6 +­„Ó-˜Ãm±ªÏÂbõÀķФ0ÇîDé¸øº„&Z»°èSOP»Òï·_áJZ¿¶µEb×ù +ÓùâÂqzì|q@ +×Þò®„@ßL +1·ÄGCÚÿÝTÕ +§¸ì ô汍P¬‹O–âuLѺô²o™ªÒ"ÃØrÿ8Y© +ȗ™<ýEe¯pÀÌ-¼‘Í© +öÏãX˜ï +ítÛ²W +ì}1˜N4ˆŠÅ±ó#N³™RBÂìývñEFœü 0cCõ¦IP4Ы,NÌOø9E¹ŸXí< +Þ'¿8ü©s¶ÐÒB‰>=öÛzpKNç +Ë~TÕuˆk?~s1¥Qýo&”|Z©b× +6˒í>±üúÿÒ^ n +endstream +endobj +234 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +236 0 obj +<> +stream +xÚ­X[oÛ6~߯Ð^yˆQ$uiŸº6ÛRt隸{iŠA•˜˜¨-)”Ü$ýõ;ä!my‘â` +D$õñèã¹ÓÁM@ƒþhÆAšä$˃r +ü²ŽåH +åÁâ*à<& +æqB( +Õ§³ÙçÅÛàdÜ$Á-H™'”ˆ4X\0"¸Ÿ¯‚‹àÊÌÊ ã‰‘ øT˜§ŠÍ«£a_ª+øøט”’\¦)#¹ájÀ7U~Í™ˆÂÓ×ç +Ïø$"4qðG‚<á¯O·B†)ËHš:Ì‚pr{$ +ôg¢QFE¹¯Þ½ÛÃUÊrƒ!ü +ã ¨90ÎbxcOĒ˜‹X„—!>uy„ƒÊZí•ܹþæ?]¯›µŸiåG•râg/?¬È‰@‡°Úy½8}6yd‘–ímÂ#ÏãœP:<ä°ð,NC°rœäÖÊ@-N£P¶ðÌÂÆþ·˜%bÞÆQ‘ÈÀ²8ì„[ÓÚQ¯‹º»jôºèUS[ +¯Õ7#BÖ(£Õ²lÖí¦—nêúBÏU]¹¯JÕfCoy€£ +KU){}ž™Ça[è¦Rwd6Ob~ì¤yÃÂæ +ýRu¸rµ©Kà +g~µh[Ý´Z½Ä +·Ké ò2¢I©d]ÞïïQkÃ4 +ÝÀ4eZÃécFž–8\#ÚHc±=6®;mwÊÐëp­ÀMÜ*Ù,|Aåàd«gY! +Æø¦© +¤‚‘Gý*f©I*†ío§L»OIïá}C +Â(ŽÌéç4%"¶0=4,ªr$è mEÜÅ}Õl¾¬¤ +¿ +¹ + +‚l²Gûä¿ +C/ìƾœÍi’ši2"›f$÷;>;¥÷¨Mçæ¸xê¢R ï#œŸ5½3 +½œêf9IèÐZý +8åü<½Á}Ý8ÇR[ºÇ÷6ê +ýýÍófa<ś%$N÷xVÏÁý,ÿù§S½{š&¡¬Vŝ7}¡ËN–O&¡¿= «ƒRÀÔ¹²™6,Uo¦÷žÝ×õ±÷ÊAÁ-htu +Š +œ++U_?ù$&Óã7ë'2¥òbqþþŸœj:Í[¦{©Ý +h›ÚMbL¤„c{s~²øx~vòf2¥Ùޖñ<& £¢˜Î24ˆ:‚býË +R–Js¾kéʫӂV%*b4»eb—¬žžÞÄ~zÛF—ó‚)rp–؝gï'Ó +!# ßÿ˜nÅR ¹å +úÔb)™nb¨uÇøÂUË̶G®èePlñ9è[RÓ·$¦oa +*u¿”Û/=zå3ÐÍVš¼+ÖíJºo€SúnéwՂs–M‡Óø¬šë£‡=ÀíRù扱<\f.Ÿh³ +Ò6/œ†oižƒ&ØËn¸U«Ž´„þܶF +> ±Z©µª +B°P +MÄCïeP¨ó]ÿ¹îŠ«±Ô$À½'¹.t +È9ƒ;ÃSo:IzAÕ»Ðø°ìÀ‹¥|BQ5®iu½ÜË0kÝÖœ‡ÅÍãývb$À"’ˆmÆöƜƒMJÙN›’3’ù|a¼lŒ^B8Û ‹0š¿› +4‡ˆáýˆ +4Ç|jý”»Ð€Á | +{`³ŒÖJÑZ°€Öê +L»Ýߥnpt6ú_¢»MÛ®”tG“dœÛ›óÿɒÜuù–½{ú¤Jçòp +Š²½ÞcU”Ò©µ¿ + 6í®Öþvù}<Øhæpƒ +È-‹úÁM€›hs +Uw½,ªÃÆæÔз¿/ +6ölc'ì±Bn^ +7Ì9ò6/¶¼Íjó¥/Tm¸ã+lkÌØd-èT +¬v5)Ñ,ôK'À+§Qö^6ÚnKõ‰²Ï#úN¼¿ +Õw’ +šhËëg‘ÒLIIÈVP3vcÀ:;Õ +"´µð‡þXò™Ø +endstream +endobj +237 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +239 0 obj +<> +stream +xÚ­X[oÛÊ~ï¯`_ +ª°6Ü +o'胓8=\ûÄR +IPÐ$m¡H +¤ìøüúÎìì’TL +FaðÞ¾ +ÍÎ~;:ß +îxðǝP8a³(vÒ­ófí¼z¯ +î±Ø‹õ- –"`\:ë쳫Ôâëú ¢BHΔ "ÂŒ{žçž^üñû雳õùÛӋÅRJé^œ¯ÖÔ»z­rߺ|»>¿º\i¡gkç»Ã"ßyÀß +8óCgë(_2_Ùq鬜¤cìpŤ +ŒŽ¡0Ô Hö§ +ÉÝ.-¾WF]! +ÎYìûˆæ‚3}¿ï‹ô¨£b÷üíõÊâÕxŒþ×IzðöüzuBò¶û²+ve#ßs³ü‹Çý| +iWÔUk$ÏÁ#ÁB#èé1À@úäÜ;¼ +îÅhýë§ØñMʘAg +ÿÍèàPK8W$ ñYÜ+BJ,}á»_\j›ô„:™íìÛÉlç‡é4÷¦“´]SoÍ 2íiÿÖ¶—æׯ}ö@0IÜÔÖÒ|:j?`2:ØDXŠ˜q®Ï +Ñ¡?-"t" j€j"ôÜ|mäÖú¿ÆlóA°H¸]Mpäõº&©ÚÛºÙ&xý&Ý»â +EäÉØ5yZowû.ÏhSÛ%Ͳ¨2ó«9ô*ÜÐi½Ñð<|­2™6ïšG|]ž»Kš†yӚq¹7½„š²h;ìq·¾µ3w-}iØ +L­î`MÄîÍèØY‘·l±TJºŸÚœöZݦhIêí¾ÒL§ùÂþøn×Ô˧êïš"éô[îà +"}é¢AZäUúHKZ +,[sM—‹À>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +242 0 obj +<> +stream +xÚ +WK£8¾ï¯àH¤Žüf¥9ìJ3ÒÎm4¹M÷î»$¤ +Loï¯ß²ËN D‘6Ÿëñ¹\®Jޒ<Éà—'Š&JDÉvŸü¹I>}åIž‘"+’ÍKÂ9%’%k*IΒMõ3åbõ´ù–|Ù\ƒ™" +°2'E᱊,bEN¨cÿ:¬Ö”©´ß÷¢SsXQÚœ¯8í¾;¡Ÿ¾æùHžV„rpȉz€±>MXøZZ[®¨NƒÜ—Ö¢àgxè´ +•VA„‰–¤Bꂨ¨ã¤yöe_v +¾ +K[îMo쌂<Ë—щŸõ:"Ïû9MœäÑÙmyÚʠš·¡¶¦zð+׌ +"D²Î™{ ?ÎS01––ÕßCכ +GŽeÆxÚÚ +LôS}€MÓº +yÇ¡çͽtÃÖMïpd +³œ™mß +Eáù6”• +ŽHqT”›¦"÷ªP$“Þr}7 ÎØÍΫ¡iål`SÝ +p¦©÷uþÑÛ;"4Ñì¼#O¤jföƒ3¢ò] +O:ÙZRĝ}̘Œ•(R(]D$́ +„ÎÉà.¾Ö'ÌçÙä"h¡èÞûÎX3+Ž)®MâS«aÉÉ//¯´–‡×¡)‰q4z†}ÐQ +vN‚î1ĖLmYÕå¡{\á0Dc±å^Š´ëQ<„ö¡ƒ[ÿ‡?öø|ßÕçH¸Éõá?¢ù> +›Ú@Ì­¹ é³›Å(ĝ¾O +ngëÃ? +ª +îij‚Gyz‘ÅB§`±Lwmç}.\ú³¦Ûµ +œÞ5ÏE—Q +K½Kð¥´}íŽÒ¶†#úßàø[ +XS"3H|ÿÏØW»s<ǁÊSw9P1<>ƒ4-ӌuN4òøË¿åþØø|(Ó_+! ¡ +Ƨ,Øé¡îËçø5¤d•–8†³ ¤ôüÉö¹3ö—óÈXŸü€§öÕWïu¿Ã7—yM@¥ +0U:M>©Á‚î÷˜YÞ +%ïI® †)øé–ëdŸ0AÃq¢I~$ßgàRJ>^/#ü*oåˆv« §ËSzVç¿ÎJžbzÍ¦yáîÔ³ +§‰+;&B©OuC&WÐD‡.œì‘Ž8q[G!S²êXʼnì¨b̾¼É>ŸÀqb ®©;ÇûÉzI—7K-¥4òÃyðc8,oA”>ޓ©ô =’s1‘§h™ü“ôÑn,Kg™t ,]šµ\&>Š3)—™„½U“°ÇõKL*_s²œHŒ +oñŽ×ð,›Qý‹-ÜÕ:֐‘,Ë +Á™X&õ¤dÊò=RÏJ˜YˤFñ,/J³ÂU5ûK–oä­Ý28g!<Ë~°ËzRpAò +NG +<§T +Å9=+™’¼È)”SÅD pšg‹¤žä_°|ƒT>†‡‰RCJì0¶*ÅÝ*tþºÒ,u—ÜWÇr[›Ãöc¥©k8Üùá6¬+, <²}qÏpÿ»—m‹ýPh‹ºkØLWw +‘·Ú"w +ëëÆȉ®;ÝBÕûŠIó +«j7Ý +XI +z+—eG÷=^¼XÔìÉÐeàèÜ~Ààj,Å +×ە¡ +rõ‰/^x¬€Tº‡®Ž% +u!¬Äb Áîm[ûbҗB®Ö€û +ê¦Öv8qÃ[¿î<½Ø;ec‡B +ÊbÌ® +>n,ØÈ5¿¨ +çÚ)€¾ÿö?Ài¸Â +endstream +endobj +243 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +245 0 obj +<> +stream +xÚ­VÏs£V +¾÷¯ —tÂ+ï'=eS§õNš41ée“’0µÁÜ4û×WB`ÃÛ{è䀞üIOÒ'éÅzµ¸åÁ·|aù&dAh%+ësdýr¡,î±Ð +­è ®0ŒK+J¿ÚÊ8Ñ@„œ)@DøŽË=ϳÏ.ÿüýìó,šŸŸ]:®”Ò¾œ/"’®/ð«ì‹»«óh~}µhÎ"ëÕb¶ÞðNÙö­•¥´dZõ祵°n(ÆÐâŠIeº}0Œ 7gŽäv“ä¯ßºp +´8g¡ÖˆæJ°0èâ}ÝäÉߎ +í¸n*¾å*kª»¼ +a‡Ôɐ0„ŸvAèÊ +-ÐGBQ¸ZhûÞ¦o•œöÂOX²r՟ª¼—Ò¼3u> +ÎD‡LSkµ¹·í°7m˜ +FF”+BÆù0ƒ`Õ¾ +̊Љ ùvSÒ·%„4U\ÔOeµŠ›¼, é)û9ÿͳ‚ì×U–”«õ¦ÉR2ª›¸ró"ÍÖp— +ÂSY ‹Þñ +ØëØmŌ¡uc"«j¼Ò÷ì¸ßÒH0®7«¼x¦Ó·¬*IZÇU¼\Æÿv¨ +¾®Ê.ˆŠ«!¨#¡<ƒ +ZÆ»¶cë@ÃZóp×ÞÛtÚ¡0Â^/ã$»w +c|Wgt[ùDtHhë@ +sm^ò‚Ô¡ý´)ŠOÏîµñÓ¨ò¸É臷—¶öðSvïq“äY‘¼mòå]VM¼->úÂÊt>ªŒt+B¼Ó Ù#©óPç2!|eC•?²õ–7/¥ð†<ˆž6TxŖ3°îõ +£ •&^VYœ¾÷‡e‰±¾9è +s¨ZYa›à +SB\Ó9y¤K;eßÌ`ø! +§ö>Ø¿e‘‘B½ÙÁFáCóßæÍöϦò™#üéTë¹ÂÃp\î3-h + +Ííä$M&V,}OuM˜–›Çe6Ñ©°ùaïˆ +SûÚß.† +Q±Þ +t•¤ý Þ+ããÑLMAÀÂÞâa2 +„Ìða™Ûgr*WG2Â5»ˆn¯ÿøùHV¶”b´m0ulPZ-©•Òƒw¨½àvÝÝ^Í~ÝË®0 +ŒL¦ÙÕðJs"9 vóx +¾‡ÙcE ù=ge[‡¤«­%(Ä$çÞQøý¤ë-éí•÷°­Ó +fëÞ9\ÓÀ0aZË«ëh¶Ø?.3j„?ÝÿŒûLJËUðŒûTUÎö¿‘œ Ž^`ڕ'í¤¬ª¬îV^‘¶O +êw+¹=á–@¡!;e'qÝy€ß~‹²piái·Ý.ÄV=\ˆ¨è"Êy=ÑݶR£B&Rz÷|±£eS#Ċãeہ©lðª +˜>eFÓg¬VA?l3jËÇ&Î +\çô=F('P;¢aEwi[iP ô$ +¨›ÞÖmä_¹|˜(éÇédj(™ñ»i<ÿ/^Ê}^Ù;‚¦ûè ’’fäª>Жá›þô;À +endstream +endobj +246 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +248 0 obj +<> +stream +xÚµX[s›8~ß_Á¾áÝ  —vúЦéNºv›ºûR÷AÅhå’Û¯_ I6±qãtÈd&>Àáè;}çç‡ +_þA'DNÄ Šdí¼™;§ïˆ}û±3¿rA ÀŽ‡±3O¿¹$œ}Ÿ¿wÎçÎDÔ¹‘V¼:k‡P +(±×¹óÅù¬mÆ$“@ٔú!Ujʜ`Ýë†n›”÷–Oß!ì@bJ•6Œ å;Jùâìò‹Õ! +ƒØêü>jKÉ(”ˆ××|F}75ºCtHcÑÝG'ýî +‚þ JÒ#¨ëß9{ýáÃÕaµU©cZJþútq¥[ó„K"Z +í‰êbSø"©Ñì-Ë`òd¨[ vhà½QÁñØÐØvWï~t¬êû.—µ¨å·ÌîúE¿“Œ7ø„ + +R5LRkUï° +èû#V"@¢Ý¼,\Yà²ËìÓ=äYŒ +0S¸¦ìˆ¶Kù8õrÖ´Þ^¥ïÇnp<¿eb +Ø+®›}Ê[ah.gíAGÈ/aÍÖS@͸Xe*l­&¶ÔáT·†ÄÁó\TM)RëÀÚ@×¾†[_Ép?'ÑÑɹö®š„´µ +9Ûë(xo +{,áj§ïŽljÞ4]͇cvÛÌìD; †¦i"é@öXÙ@2œ + +~€–,ÖoövС$¢0 +F¡d¶Û›Š{÷ùºêK×òÄV›Xì§÷MpR¾ÒώoÝÙ$­›«?ÜH™BÖ­Eªzw¤{7:.Å5+Væ±ïÁ£'¡ypóÝ| +wƏJI]®yËëf¯‚b÷Ðáƒ" [Gþò|þõòãùۃç04zðÊøùƒÊõùÙSïQQøã‘0 +’“šü݋uŸX + +´e”êH'å•mÀÈwBõEEí:Jՙ«o"æ 2v2! Ď·Ñ:уÉù«xÄ$† Ÿjñ@)ɼL†›âþÙxÏ +¡cGÜT4-+’Ý^y|g|6”YÙՆvŠUþËÓg˜ò$Wmÿu<ñ©.ölë~Ü6ãF“ð¢Ùtç +{vñÉ[²†§¦?=ïÑOžËÑ;8”W» +-]Åf€8—§ñ±Þ‹#EŽá±ÑøëËü¢ +$«ÅxŸ(wüucá^uE²uäzFeùæ +ßYèÁ8@£ž:‹~K +}9X¨ï<†‡Eю ¶꯭’¡îŸP5ôP}wí¯Ón)ʮѶG~K¨û,(~4̾ÿÐܧ¿ÇRâõñ +¼õxZv`vK^µli9 UÇAÍÏ¿ý7Lål +endstream +endobj +249 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +251 0 obj +<> +stream +xڝZY“ã¶~ϯP剪ŒâàµU~˜½²³v­× +¹üI¥0"4b–"µ<<žüút£ +3ÔÊNmÕl4›@_w»úºâ«þñU"VIœ±4[펫×ÛÕßß«Yf«í +86"f\®¶ù?•®ÿµý +é„CHΔFäHÖ +†apýÃçׯßmoÞ\ÿ°ÞH)ƒnn·4úñ=þªàý/ŸÞlo~ütk +¾ÛÒÇy8ÿzÌY–Yٟ~ܾ›óNªR«)û«³¬2aR®6iÄËÉÙYֈ3‘LXo;ÝàêÓ ×¦Ñ¾v$]ѯ9­7" +jø›»µˆƒN$AÝ +Œãížû£ +± +îFiæw}<•Æ}£©þEGúPœNºÙÕ-=î`=eýpe·zã’E‘]ó㡀E$´ˆ,8h|C +´\ø,7 +¦œõ +xð‘gè!º[Ó +EYÒ¨1_û¢1N +ýœSÇ¢ÒÍvÚ³wµóŸhj +ž°Ì¹O¡ûÏÇVïã›™"‚%8¾{»Vº"΍L$ãíZY–¾5ì’p 2-·¸è#ï–, a§5©ŽŒ*ƒcÝuEÞ]TDkŠ‡ê´ÃGèvgªvä[DJÿvæbòež ¦ÜŽïB.”£Ø+¥ÑÞ½¤s¯³’£tÔåÉ)K¥ã@[Z^̔ + +ÄK6c"v +—%,æ–WΙ9_0ÇÈÝw;þ7ø#–†û ®U"ƒ¯½n +~ìË¥¼Õ!ê]ÐCÄOµ'Š»õh4Ì}rÓ µMNó +âÀÚODÜÕöé·5:IU˜ + +Í=âŒFÂù0­u¸ÎË;d|´" +ºM¤ +Dq0ÎÕHˆÝ<ôGc¿Úµ°`‡R€{„à|gñq6Ó°!“>"Q¹ +zÑh{Ô+ + +嵊ķک>õG|º·Àh]W\åK«ØÐG*¦ú8ccÈOBMm,2Z‹’°÷Fï((‘Œˆ†TM¹Fp~Z§ +Üs“@Ü|¨Ge“ÕP¢ŠÀUÞÒ;;]UuGbúJӆŠ‡¾îÛò‰XØ:#é—í22-v²©¼oŠê4G¸,ü)>Ѩ5àA9ûª4mëèwv +.‰r4ºíá«Nb2:ýWa*†ëà„]81z&ÎZ·´Z1A—}Ù3O·ó"½ìûÊiXòŒœA„@šB +"!\‚?ÓUK4T– +8NG‡u7•Zšê¡;Ñ<e–¡ó +c†/W]; ÄiNÃÛÂdRzËüK"dœÿút* +H´°[T4x@{¨û2§1d +ÞÐù¼j^f=ž–È1í½íö"_pn(k¤gëj;C•Ô,ÀèB°Ót’c‚O¹ +5(Òl ÑúŠ£K›BpÎ0Çæü$™)‰Ñ!Ð<5=M0gHGT‡ª8 +âä ª¢%R(Z"ÈbUL¦O<†ÆÀ†,±ƒ¬èhU/Ì9ÚѝѮÿéێF¹iwMá`5¿˜‘D¦|1©.Öf*¢ÐA|Sٗ* +ÚNw}K“wwy_ÔþñÉF¢nþŠœ&ÔH?¸9ˆ–È.¬"[f‘iñ¡ó_t–j¨öÌ{™ÊUsŽ÷ +þ¬KXLkÑ}pÈmŒ(écÙâfã¦:ú@MO{í8mÄé~û®oܸsÜNÿŽØ€uпqpkÌb +(˜L&±¢» +H‘º21íýÒ÷}c1ƒŠD0•’3ð5.Êö¢'H¥˜"ãF=aÂüËÖ'OÈ쓌ÅY$†ÊÉÁÓóòK¥Žƒà´cá +~;}ߗ`û +#WiÆÁÍ»Ÿoiӥ銪EԏDpÓ9Õ®gØ Sü¢ +²© +ð#Ew(ª%‰ÖîÙT% 6þ¶Øp±8gÊ×毖üœ +>!dÐmÇ`%¶XÆñ¡y¨Ø=[*œ&¶Ða–õ®L°`Å´CÈdà©}eõŒ¤ÆüV˜G,‹Â„’Še¬ˆ‘ >ô‘x.  ՟ +w +’<<4®f#§ +ùÌ1[_^@±D +.¬ë¾#ßÇvµ»ˆ°[/2¾ˆf*¹D<˜ú¡Ñ'èÆmÑþ¼«]#‘C»ÜÙâMøâ +¦q‘D‚ÉW| +Q¬³‹ØÕ@øå·©ÂGo졼¯vN”)ËâÔÖE>¸J8Û!ƒØí:ƒ5|Yƒ–†æÚNOÓ-%‚H¸5bL˜¤²® +Š®Ï +ÑÛâ¡Zê\¡ðútV±ok25A +grš¼Œ/Go›UÜä~CYJnl·â¾:uÝv›tB/¹ +–+Á3K‘ÅS{–á`=ynrÛG¢ôèÝ<@[[a•B*ÅÑÜcw¹Î¹ì»´m{BwÙwGfë»JHߥMôà^î¤cA;YÈ"ïJ¿Ÿ®žNKÀ“î¶³ý7|b, +@~}‰™zk˜¢Úé”ãp4Íq üRè›Ê²7-½L®*䘸8Tô¡š—Ï‘Ì? +âè +*ÚÖ +€Á„-¥¤÷>¼1ЛuY ò-9¢iŽÞëœ7}Fb]šœp +ÛÊ­gò'7/K·Êö#öÓ° +í: +¸m@fמøóøxû% +'BÛàÎ:ìê ¾yæeIàZ +@×@„¡t> +ú¶3' ãv¡¸´ÛSàn +«Hzôp/ÂU²=#‘˜ +%Ëâo ++¥€›‹rÌ$JÎÒèÏJ´ +»±mä¸)ú:|€<’J<4PP€½GÛ†˜Ã>éIÇxµ.<Ë0è|¼,a‰b±Ï€gÎJÀŸ3ŸFŸÎÈÈä4àpm>à +Æs&g1њgÞø_ÓÔ‘&’’ÅtVž^Dš óÍ~ñˆ‘Ê9,ì+fÂÃ,:dâSHœ39x +"Iß»SîÁ±‰î^˜¤HzßÆø8„ûÖ4¿Q+‡EW§]z¹Âý + +Ähë–bK' Úã" +|©¨R© + +A‰O¬ïûnI Ø£ûJõ´xȪ&JPʟ~ :¸i©1ugX’¦£GË2æ¸x¦xÁâ¡0üÛeìñµGpq IÏÅE©ïKc—Fw$v>‡œN'®Xžx +ÝS„ª_TtMò΀#9Ï*±?kôNÀ͎;†<ƒ +îoYäžÈêp’ìfkJ˜Hñ¨’©³ËʘôÖûnYÕ¦ÙbœÀˆÿ±žA.½ŸŒa6¸`2B(¢Ë†ãýÚ´i™"(tà(k®&¾%æőôhuúîŒ!=o'žE*þ؎íÅEœxU9Úkv.fGcöÿi$E• +t2éá ¨oùÝ9¾„ +¥5zSâ¹3¢‘tѸ7ÍÑ_6i×X wË!ó==ÞMNPæ",ô>t +µÁ:âA}:<µÅ‡¶Räø©×ÕÆ·÷KÔü¨+L»TÏÉñøÊUDìW†Ýi\CV9ªlrVyèéÈ·f7^œEân‰UEÁ-4fPrb²¯š÷Ä֍·pã–Ì{VvZ +N>»Æy×0àúÊ)DZóOR8NJ©rRÃÚ=:P;.³ +õ²®T³œt—s®"˜Kÿp®´w‘ô•}]–´ÕöՒh@PŽ5È7§E‡FœƒWÒ³± +Y€‹±»ˆ “³só²ä‹ÐÕ.ç¦ +1ð`ùp8|÷2À³ñdänÄÜÉû€ÚIül“÷“Ñ3À¼¬˜ÏÁ% +egIêöuã|~H”Lp„[Çààm®DpS(žì2æþÿDMGñ€*‡Åk.¼.ñ÷6ÜC^ò—hÓ[–ÊØдÌÃU8]ŠRãAG¾ãm' ¾E +ûì¶HW/ûhûArÁ” +½þL€{C!“÷â8¬\W“`tÿCášwEë›sÛÄ5_†Úö§¿üÝHáZ +endstream +endobj +252 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +254 0 obj +<> +stream +xÚ­XKã¸¾çW¹DFÆ\ñ%JÙä° +ì&›K Yï-Ѷ0²ä•äîíùõ©b‘¶<͞žAmŠ,‹õøꣲ_3žðÇ3#2SÖ¬ª³æ”}ÿ}ó£ÊxÁê¢Î +ö™R‚•2ۊ’q™=´?çªÞüòð÷쇇×ÂÒ0 ²%guíekö¦¬æL˜µìÃÑm¶RU¹—“6Âä‹ý›9_½i8Ó%˜Ž/=o¶šç}[ëçši¤æóf +Ú\Óí +®ÜLû,qÃñqvÓS7 +èñw¶øïi#ªÜõn8,G\3y7Ì©k¦ñä7Íl³UUu3™ì0wK7ÞªmeXQe[.™Öޚ=¼ ¢RæãyéÛÓÃ2â¯Ê'Ûv#Mu3ýÚy´´¾„Eøëšæ2¡ +ÖyQD¯‰•?„äÌÔÁ!»B” Ÿ•L› ,ÜåöÑï3^š‘èßòÒäýÛ§ÝæíÃ~œ»†ã—^%,½— +7áÝî>*×þ +ö. 3>u'œ¸øp¥RÔù'7t4Yåm7/vh +­œ +„ƒ(à0w¦# +( +5ï?Xôá/}K[Ðñ˳sAþq#Êü%XáU¬cL;¸iïï7“Ü蓰u>æý +MÛ¾; +ZƒRT۱¥KˆÁâé@fu:x¢ +ÌQÇdAËõÙ!n³tË¥u¯-õ­U>N­M‡ +ƒßÉA¹h:ÖÁ}0¿·4¥¢×`4Œ$'сÏX:ÁN +2–O¶JÆ°[ëΓ›gŠ²ÿl»ã8uŸÆí6¯­8zÍuI;Ôp~×ÛÅ; +üIjtÔ¸J*šù9U,\WˆdT +Ço1ß!O +¯˜ˆ@óK¯˜Ôaý©³) +5ãÓù]¦CâÕ¯\èzF +}E¥È1¢’Ÿ£/NŽàèq•Ðß¿¢/®úâ(¢/ŠØµÖˆ¸8ã~½Ø°,ðì1Wºe¾3ŧ9>ÛßF^Ì +£åµý†8+ʎ?ÄNý[ìÙ +Æ°‡Œy·Q +ØPÅâüÝN¹’öÌC€½Hló‚O¥7gZ.¡æK¿Ð$Z‰¿}wê|m À#Fîåî- +N^ñAúö°[D%áQ¡ÁÀ +q]aO +v½v©/C—Ny9Èw_ €Ç$r›‡–S$T +GùcREÁbÉ}ŸÆ˜R½6€ÞÚæiÊL²š˜ŒLíQ¢#¶W™7, +RŽt,ð×#†Hÿsòmö©k©*қ2G^:Nc? +»„œíd‰¯Ò3¡# +>B熘=¶ÊEÁªÐ2e¿ÏªÅ!cQT +é! +*Á¡¥÷4'Ó8Ï4Õ¢Š–à’ + 5 zC™‚@ڎzÊÝ·jhH0•nƒ•: :T!oЁXûÈt0/£§Ë4„¬BOל•u¦˜^O±©ë˜>PoO˜P–Lò7LXë²P­LØÑ +4K_ ³µb¥X—ÅVA +ùsB½€û^¼]™««Š[vƒ$ÏV™›lŠ¹Êo<†dYÜDÖAőLEÅTx‡û*—˜;—\/V¨:x¸$܀înbWÏÝîO2¯ôëC뒩wÏ +”ѬÎ|ew§ö7¸@Ëežðo¥ÀR{Ýçáz«t^qPÆ»Ü* +}‹ +ö$¬0‚qýÿ±¢ +VèhEÒë×vÙ~`°²`ò‹šiêvÿ†Jö—Qaªû$ª: +XiFl0ñ3‚,“ï/Cèed«¾»!pG*ÔÙËwK3&Y¦V7ßÞ¸ê*è|­ilÞÔT­ù*š>»~¿ +)[j¦ï|¶Ã +0~ +Ù +¸* %uåÍÄDà J4—žlt°ҼûIàjàLÛÁÔ·o$mCî‡Aãz7/D½àq>c¯ð­KúÒô-|ôÜ +M4¹ýz‘„ƒNž¾y!Ö¼cfŽc;ZhêØ—ç·ï°oÐ؀|}^‚x4á}«]s«]q­]žl#0è©"5ûRÑ +±ä×öÜÒ.é‹«Ô—)OuKÇ¿P!¤P ô„öwy­Ä²2ÄkÅ»¼v%ýÓBÁsUøµíS7ÛG¼q)ü>0þ`?"ñ³ +ˆ‡³á½†X Œˆùãèià‰Ge|>ãœ#’1ÚËÐwý„'<0ó´ñß5.n¦gO¬¯Ä + +Η%ñ +hM¹ê<åÂAÓ¸ó¿ç +>—‘)0%7Ïñ¶á¿Î P<¼ß}d8Ñ +pžâõŸ +Âóïöêïýî¿š’* +endstream +endobj +255 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +257 0 obj +<> +stream +xÚ­YKwÛ¸Þ÷W°›”j-”xð•œY8¶3cŸÔéĚnƳ`HØ⊔Ij +ÿûދ +Š DÅsÚØ +âqÜÇw€¼'{üs/^ +¥,I½|ã½_yÿü < +°4H½ÕP,EĸôVů~,~[ÝEâPə@ˆñbɃ ðÏ?þû§ó÷W«ë‹ó‹¥”Òÿx}·¢Ö§øUþ‡_n/Vןnï̦W+ïÉcIè=ã™gaìm<Jª¡_ywÞÏÄcêqŤŠ,qˆdÈA™íÎ’û}™siÙÒ㜥aˆÔ +$%f/®?ß +Ê¡)KKó×Ù-$K•%¸¾ØoâòÄUÄÄ@C<O ­ƒS]ó f1 šû8¡uÍ"S +—ü­e"t¨–Àr"à²tÏ1± +EèßûômË3jûFÖkî´ +m¿ió¡Uì[º±Û-Þ}[¸0aAd1&2Ö?)b1™L‘ˆK0çŽP«E"ý6«»‡¦ÝÄ~µÊàÂÝte +r  +¤ÿàÅ؍ì +—ž€ÁíŠßhㇶ±G<¢Ô"ñs]/Dì÷m™ã„ T€÷ +‘ˆ˜VÖõ°FböMU‰ a’Äûñú?W§µ¤b‰ ýБƒ0Àî’Ç,† +l^”3˜O +ÜÍîK¥g4îáxÑ·U2kŽ$ +è¶Ç=¾(Áö÷‹y±g<¹%ŠodBd¹W—ï£Ú/Y],·YÛ3”$ò Äf™ãbD|Ȝø +Ì + +o>7» +TEÌ^ÂIƒ +oj+Ÿ[5ž„e1E¹àóÕê—Ï·W—'‘',L&Kæ‘Bhç„L"k!÷ó³"ÿSŠøû+š˜u¾oD‰T`dua©–ÑŸƒå< +c&¹kh26ßE@ý´Ëú²±vm +èÛ¯­I›¶|,ën°õÕçóÅȕA&,IöbÁÌ¡ Sƒb~¼[ÑŽv¤¯^ÁŽ +¡G¾ý´ºº; +Ò© ýÛÓy+6–øEZÎNgnÜÍ!^¡–”’äÌJ ãs6Œc– +7!䮯º§D!S|Hü +íšÑ)ƒb +t¨âÀ϶[7›í¨ +"(k»‚iä¿`Ü¢1½?@®ëmâ÷DøŒA7ÁJ”\I¬A +Ø}1çè +)ŸÍ +q +xFÖ>î66€wsšàxáªbF 2Àƒh²º˜ÛGp,ق£¸çn#B&ã1¤ +2ô?,šBf +¯¿f›m +z”±ðo.ïѐ€Cã®?PÔ* +¸,Æ% +4¸« +«ðõ8œÑZݶºëÐ +Ø-kr¨Ìèæ +2›ãnu8Ç +u’lÓԏÖ?²íf#!à +n9º +ò;‰O**@MDpÄô°À´8ÿÍ%±ApM©º°N +lÁCVž‹PŽEòÕ@1„®ÀÌ/)–›7WœàaÅTØ9ŒøÇBØe!Ʉé¡<ÿ:(>)Yîu"ö:)²!ù½±¦,73,BÝm¹m + RFVµ±»†&ʎ&l@Š¦ëiªÎú]›U4Œ^bFO¹8ÎQEù»ÎnF Œý<ëtGsÏ0=93ò«¦³l`ÔÓé?³šxáu^nö +È=®æ6»Àü¢©v6ë@ß ´YžëmŸAÖoU2±úŠÁò@4UÑ~µ4Þlõ@w“õ9òµÖÅ1Ϩ ¡l܆ý`@Œ3nD£)<gÖ ô +ý[P¼E +ÝÖYUÙ=ŒQÌîeUQ«ÐUiÕupN³èàÌnC3£–رF3" +ÄØp@Lt:4ú–ÀŠ­7vƀÕ] +ZíìòÖN‘^!òP÷‘Èö&À±¼Ùl¡8* +Š†5G™âH"MŽSqì€8'Dˆ1~‹4±¾`Vn·U™›B¦£Ä~ûuiG +vu>že•g4e®iSk+˜©›þ˜çIŒÏzû­* +y[Â9«öûá +6Åìn +¸‚B8 +3ºˆŒÊ@>MÉ؂â«×YAÄF(4õ6žK0Û®§ì×bÄ^˜ø]ùX—Prªœ†{Ú¡Ül³ÜÒ7ödp;$ùË‚,{­VŠ  ’âÕRi¤½ÇëòÉ·{c Z×åÓaƒcsJ¦V~¥ÿCÆ`ØȬ ÚÖ®Hf ƒ³Uù¸¶¾ŠÝBƒBm +#yÓ¶Ôïh kfâÃژ6‚ 4øt3ewÊǂz|$9NmaÈâý#Âøx+È +<nõ4³ä×} +„ +r8VJᴖ±»a^þ¼‰éN§X㇬™œ’€ +ó¥M +xU™\­„Ÿ”Aýèÿ-D•wøDÞABK–ÑDHLȀ]<Úõè(ã4îvõß:¢*Êî÷ƒYÊ[½ÍêüŞoi›º²#uèlGháê¬n²6ï4„¯âuGŠ„uùº#íiïÖ¦]Ê ±ÐÄÆð|5Üäp¬¡ï=ÞðʺAÅ}Å¡ØÿÙ¾0–y“Y±ÈÃÎFgvù¶Êr³{:äUoq·V[À`P.̺Ú(À¢íâú6£ñX +§{5¶r›OÚ¢„ŠFcÑ«„ò»Ý +C‘¥ 1^WqKcæq:¯«8J¯m8Œó3Ùê's_’Jùí7°›u¹®;8èíÜ-«Áý£µ¹æ[¢Ø‹Y›{ +>/9ÞEÍ-f»TC ›»ð˜WŽ=õ³‡r¿zflÎL¨'5807‡Ì)ççAkˆDº™{¹˜ŒÆ땊c0÷j­ç‚\ÜYo甡opLÖj#“$¥2†®É@C +¦`Hü‘Á1®)tq6}cÐ{6}aýÝD½¼}˜2uWõÓëÛ~rZ¢ä»TŽ +?XŠ9•Š4rßI$Ÿ×ªރÀ¯5_F~þËæÂRt +endstream +endobj +258 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +260 0 obj +<> +stream +xÚ­VMsÛ6½÷W —–ê˜üˆO©ëtÜIí±­ôbû“´Ì±DÊ$•Œÿ}w± Eڔ”™vt> +–»‹·oÁž™`ü‹%‹£”')ËVì÷9ûð9d"ài²ù +CÉ#Å|q¡Ø<¿ñ´˜ÝÍÿb§söÌx¢Ùw°âG‚똭X¨×a?_²kvI6S&B®Âm>ÖCs¥Ù|š)áueöl +ø,‚§Z#XĊ§è+‚Ÿ7eö4󕼓³«ë +ðQÀEäà?O{ÚÎN^ + +*áqì0ï +„ÈmH"ä bA•°gN>}ù2ÂSªRƒ!ü£óAP>xœHøÓx5½#Ö _KíÝzôߔG4ÈûÁ/¦íšzÕϚ¬å™;:;ÞˆN¹¦Ë¶‘ŸÌÏ.Îw†£#®’Ñ! +Ǘ)bÀ%ÜÞLÆ +Ü`Etƒ0Š½®¦{ +0J< +¡è8a·ÖK“ݘª}¨›•éʺÂàá-Êohº¨Èv÷èÀmg¿¬òb=óeû9@ØѶi}ë,F +ÌÕÖO÷é ZzkÓ˜MËጊ¼¯mA;õþ'ð±²¥•‡M•¡S4ëWÍzÝÔë¦4;øý±¨èhqˆ(+‹*{Ÿ)WäpÝt¦w˜*ï0ØkдRފÐ/4Ãèi䬵%º×Қé™å¡½\¸§dÑä5ßEN(ÓN]9H¡ñ½œ’*F±@oÿ<ûçt7Â˜Gr„ï«È4(`ô¾ˆ¹– +— +R„®–ózs¿, +høUÐ# /1¬EQÛDdŽ3–JIï¦wIl$š§ý‡àZ@½ã™/€fxË_ÉVŠî蓷^cò~;›;¨oƒËÇR™iáÕ«Á£~\ϯ.þþí@öÔ +ÿZ›ŽdÛÙË(.Ió¯Nç_¯ÎOÿØI‚8á: +™&†6#ˆ + ‘3‘ +Òý%‚ôÈVÈPpa’©De2 $D?ƀ½é} +‹GàùÅüôzw%< +Gø»[QÌ4w• +Qß-ô‚Ëx¾¨–ŽVoqp½©H$J'2yê +§%1©vTʲz³å–Ý +Û[–‹Ç™Œzîå(˜ºèEYÝ44ç‡Â +‘NÖqy0Ê-ö +˜ +†Ú +vü"CŸ +«òyS´´fÅ4T©·iQ'Ã0 Ä%êF00NX›ÆPCI·»+õ&˜Žcŕm¬--´õD÷z4˜¬$vI„AߖډªHŖïî +Ä}ÏT­·O¢[hK¦€Ì" +›zž°j|Ø8K3ò°okcƒ*À»ÌÊÿà› +[Úåšxëší’ ÜpFo_¡’8 +&uÊ6mîa8†]ðžÛ¢=ÆG—ôŠíûD:3`¡Èî<¾*¶[0€’úµ%T^¶Oova)kŠµ±/û}‡­mqâŠc]½éÞ³EPU¦ªM“µEVWùáBŠ4W¤-êp%mÁsKÈTîí0é›óA‡±óÌ`ñ§Ãw +¬Ö÷)+ûHÙ=V¨= + +8eµp0ûhÃöù +˜ÊwyÙW2ðD †%³ÎÊ¡î&øõ°£©~Ä£xdeñ¿X©wY‰ø«¡éQ\Mµ»LIžö +þzÿ—?ý +$К© +endstream +endobj +261 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +263 0 obj +<> +stream +xÚ­ÉrÛÊñž¯@. ˜'˜Ûs½ƒlË/J)vlÑ©JY:@$! +‹åëÓ==€HäR•0KOOïËÐyr¸ãÁwBá„AÌ¢ØI·ÎûóçOÊá +‹½ØÙÜÄZŒKg“ýp}±ºÝü ¢ „œ)€®ÖÜó<÷üêï9±¹üp~µZK)Ý«Ëë +¾|¯r?}ÿüasùåóµFz±qž +ùÎ +Þpæ‡ÎÖQ¾d¾²óÒ¹v¾±Ã“*04†>‚!Eҟ¯$w»"}ª +¹B:œ³Ø÷š +Îx$Xh½e¤9çÞ¾z¸1?Ї@ØW{°SMʘÁ` +þ‹¡ÁŸ@­¯HÀÇgñ@±ö +ïÞ¸ômŠ3dv´]Soͤ2ß;óýC“ÚQ–L«w§ùBÁ‡š- m+G¹ó&£½CÄÝZČó ?_Aã+º u!8i +FÂíjüJ­BZ!Žò®zaW&in ›¤jïëf› 67¡|÷¡xFÔyE¸wMžÖÛ]ßå +j»¤YU–ï` +\ p Ó¤"Ï`í¾&s¸ûÅswI“À4oZ3/{3JèSm‡#îÖ÷våáQc_ãë +`OÄî& Öÿ³"oÙj­”t¿·9µ8ºÇ¢%¬÷}¥ +—Ö +{ùn×Ôë·äïš"é´é +÷å"}é"AZäUúJ[ +l[’HÝt‰‘¬s7©2 +MNÃ-A¼Š”Ö +†¶ ÷Òø{•‹ +Ä·]´:ý¼áÖ)\ÕUNƒ +8b'MVø‚) +•¿]þã⸵ªbÞú"ØêÄ +‡ä¬yÈ|·ËŠ· +øè):²º¿ƒ°C@Ó[!HBà" ²{d뇽YLƒ +b +èL¤ûB{â4˜ÁÍ#Û·„øÆm’¬߬f™ãQÌ~hô+Pj½]`ƒÒõæۗ¿ýiÍã +$Š/“S/›¥XL„SŠ«%B«nBMN¿]uhœ=¬ÝÝSš¤ÕÑUiõÆý\wÆ0Õ1OÈ¥äx·,׫ï¿|üçêvnð†„®<%O ²î#ɖè/{Ì程C&ù ƒƒò˜Íºc° +ßH 5"XGFÇ|S*/D|ß.6ß¿}¾øxÔ=CH‘Ñޑy÷ô¡*á䥹'Zoz)îqÑ%ã¥L„ìíe¢£N +ÌðS¯UäµÁ)¯õO{í1y*c +ӟ¿l.®Çºˆjþ—ã5 + +X¡˜  +³ã)Ÿkëž_‚çB>¦$ +ÜËÈír²ÉªxêÑXpMg%c·o13+å‘ +ãZ« +$&U4MBiÁt>ÂÝ!·ÒtL°VÒºirSéé +¶~›cºÇ÷éZ +Ø4ÛÎXP±(˜DÀi‰»'ÅbkHñ[LÓXcJ‹eL:—rå&iÚ7”Ýyåð¼Ò²jóö +ž›?£ØuâÇ#‡læÙCnê3 +cÕ?‘Ê4pèÁu_ýÑ8}V´?va)mò]BEÀ­MÜ¥ ëF—uߧå*©ê¤I[¨ÒªŒ-e(XLn.–r¾Dv"Ï +CWďWháA +öjPÔô +«\L~¢†s¤ + 3ÐUÝW¸ß™ívŽÂņ%“@=5 •µ:´ºSYÀi 5)¥›&f0Rª Äå¢j»ÂÝa|ªâáXÓ¾±Èª3L=±$ —R +ÆrK ù&^ FüŽ– + ³-2h§ÀÕÖ!1@ÍP+ 8M®ÇB+š_µr=MkäV”ëÖ2PõòÉú¹ètVMJª)¶,ßO§ +^Š²œ–Ã&z@ûYyvfâyݙBtL>€m¨OMÊPó–í +Š@EÜ_¶«XەŒå¢]‰Svy·}¬û2£]TiÙgö‚Š¾ÖV^ †Ø5ñ\»æDKß] i‰Æ¬5bÓ`ÇúÍ£Ê;Ú°5 &ÿ^‹¯½cR¬#˜éló1òã"æ-z,‘‚êˆÀ@CÞ¾ôӄ0r¥ØP#ÃA@c +E“¢¢$ý¼éîj²÷òHÏA{ áÄ"ß¾m$mkûŽ¡ +9p¿H,G®@„ŒÓ£T°haàK|^’†V!£©àzQÑò‘Æ+ +™P'L/br¨øЂ#×àÕöˆT<“1 ±lœŸ++Y8&œµðƒ‘—-—FC +žK$ž7%w?Š5¿ewÛù–ñ9©Ìm‰¹¢ÉŸú¢ÁøAáJøôÜ2¨zRª€[dÿêÛn,W(–X›’æ‘ ˲F¼ +ôÇm?˜š¤Ç0 1®µ- +}Ÿú$kzó˜Uš«Tåårm€;Jê +Âe“É¹f"/†æmчâ´N|hO䨓[–•3Á,8´ +í\‹£`hc¥í[y脘ŒuEâ;t1>‡C¡ +­˜_gPÙÖWœ{ôÊ8‡N²ÀKÒA:äbäKãë¬X“ê¡/#Ä6G1j Sé&fwc¬+˜ôâzjì±#ëÂ!%9ß¾ƒ +½™À“7;úNà +œÖJ¦Ö6‰üÀfW +À¾pÏg•±ÞEÙ¬)ªŸ-]kرÞBN¦lP™.Yç±È¥r§n5Ï1À&‡à_bþWCw¶ãxT³;IÓèLiNúJ{ú4·H]VdH +°ÿŸ¼©éôýPÕîË „*0\”A(ÆjIFë1ÃqÄ闙AÿÿN¶ú—#Zx^ùP¤–úõB ¦{(žîì® Ê!þ +€sðM +dG,­p¡¾kó†^D +þ°,|Èu×/E÷H£­NlH·û¸JÁoÒa +´ÃÎ×ßý„5„ +endstream +endobj +264 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +266 0 obj +<> +stream +xÚ +•Mo£0†ïû+|©Lýýq]i{è­jnÝ=à¶–BHt•ýõkã@`Y§Š”dÌÌëw +} ‚°ÿ¤(RҀ6hW£ïtÿÀÁ`°A›WÄ9ÉPA%†6ÕK&Xþkóˆ~lÐf4úˆb`(*ÊP˜  ¦xžÑÓ:Yrðq=/æcòÊѼ +‰Cjp±Í +ª²Æë¬:ŽîĬ‚*Ú7’ÝÊ1%Œ¹š㕉 +$Õ —.^\A~Á¶^O  +ÐY—c|{#€þG¿Ú¯ôGÄ£þ +9O#@æÉ1N$+ +†ÍÖÇ'3^Zú"Z +֟O‡$õQzZ +¥P8"æÒp’÷$=ò¿%Í°¹–¶IÖ£ö +Kâ3ø|{Çâ>5¼€ +ÖÀÉ`äñtt½m“Gù%ÒäÆ`Ô\ +ÆØÎD’ä4Âì$¯30[˜$ÉQ{I6A’xm<߉±úÆI¡u¨"`d܊ejÓ»qÒ_²ý‚åL€IµP< ó:ǂn’&esxœ'yNòKÀ7€.ÎéË@‚(SÀü©GüéÇÅ`FÃèd• +Ž|µH~È5˚6/¸ä™ý‰‰Ü9{؝sM³;?jTö™ +‘•{W•½k1³y +¿"ëßmü³óOü‘ßÛøÓ­Óâ%@È|µ˜ß—ür +l/‹í‚A×DÙ¶eîï“s”v]”nj×÷¶‚¼Ð +g›ÑOw: +÷ÎVƒhA¹ +P2±ïºì:ë%˜o°–O]£ípkÙ¼µ¶ +/º´ï¢<Äá?¶m +Â#0v +êšÎEJa¨>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +269 0 obj +<> +stream +xÚµXÝs›8¿¿‚{ƒ» CB⣝<¤©ÛK/“´‰{/udP +3(É%ýi‘°±'ãLfÂb–Õo÷·Ú]aü4°áÈ?løÄð½¡-wSã¯ÔÀ +Ð˜þ6ñviüÍdÔú>ý$5‚q1¢D*‚†oÙØq +óìòóßgï&Ӌó³KËv]×¼¼¸*éú\©ùáëÕùôâúê¶3:™? +0ã +Öô0b¾±4(s£ý}fÜ_ÆÐÀ¹ÔÓ}j€ åí™åb³I +ìj¸Ä50F!c Œ| +÷üâæ¶×¡ +¢°×ù}Ԉ+%­PÌkQÝ ‹9f¬u‡è0#ÈëuwÑI¿;‡°³uŒÃ>ì2†—ºC‚ÜIa¨þFƒ`-ù +D^ +ZuÛ¶¶lF˜yª.Nëng¦ºVé‰â^h›¯EÒ?nù+¬‰ƒˆ/W“ä±n5‘ùBë•Io'Yjá¿R +¥²à +_.“’ëçM¤ +*ÑÂ}¦^̵ô¸’’•¯¤ª˜kÿ¬·¿d€H^Ð!è8ë’u/ÌCn°ñ’âÁ–¹„ñ0ò]Òٔbó›f +“!¡ +R]¥ËÌ2\ó­ÜVž·ž~e¸4ÖÉø +,;fS¨TnZÄ3E¬ž”²l_ڛ&B©E<ËD21ë¶,³TÔêÉ×éù‰’ê´éµ¥q˜E§9oD +^`ò¥E|sžŠÜ’Oµ +O+F#CV£"S™ny­ÊÏc%(Ìi¾Peâ +¬r0yÿD&òE“ _SҞ +ÿNö³F}ä‘ +ý~÷HÎÛG&´„mcœ5¹)âtd£ÉBåPÍE\´óLŒ&«•¬&ƒÔù=ž +Ñg']'ž™Sž×3kÔ9 +„ÈÃCn`ƒÃ9™=šÜždÅ)±K^5 +ñL¤üAãØ\o«”@Å9¶íÕ»Ëϖש‚ú©Íd̔üžCîò™yU4B{ƒOȾîÀ†êxœöf°7ìÂ2³ODZ ló23kö0܃sÊQwŸgž7VۏáØI›6[i«± ^7v©J,Fé +±Ü5éÁ”ÈFt +Ø +¡êa,š4R2Þìu„¾k²<ÔD¤‹ÂÖÀúÄäsNøI +Sý.²,-ë"{–ºòÕ_ûJ‡ûžx;$[þCy +ŸtFd¼R –4%owª§ø`ÏȝÒbXÖ³cxP‰ºn+7êÚ$z'ö=\²S)zffòz:«˜[Ác=‚ ܋廝 +´Dä‡* +jØn¢cø¿38tî‹eÙ¥š¨ä ZéXlÇ +8«àÄb¡ +žLg• +ÑJÀÆn¤µËTN:àۃÞv‡P\ñ|¡;6>ؓ{9Ü:fv +wÆ'¯UIH£ªXŠFTõNùî¾ùŒÉ㈯¦á›ÉôëÍÕäýÞÍ +6^јì€Xhê +$Eá'Â0 'Öü=¦ËŽX +²®(o`ê•å´oÀÄ1|8KvA£™<9zý<76ÀQ仆½Ò:QƒÉä4 +1)Þžÿ\‹{RIò&¬ÃTz|µ>Š|nêîãvžm­üÐå +_µ¿u3éÏXŒ '²ïlš»þgŒ»‹÷`fyš–-˜mΣH” +Ÿ÷5 †ã Žæ—ßþ 7F +endstream +endobj +270 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +272 0 obj +<> +stream +xڝZێÜ6}߯häIusER×~Hb'qp.3A€ÝÞN‹=͵Zjëbgüõ[Å"%jFãŽÜY*‘ÅS§ªÈÙ¼ßðM +ÿø&›<+YQnçÍ··›|ŸlxÌʸÜÜ +7I"X&7;‘1.7·Õ¿£4Ýþçö§Íë[æq +ovgeißþ|ûúf!»P\°, Å¿~VTæLŠ„%4ΖSàpʙÈCáq8ð¿Ã¾³Ôœ¦Œg0k”3ýv—ä2z?ªÞPó§±6ªÁv½Rƒ¦Þ}ÔkMo[ß)öÛÛ]—‘º\¶;QDm7˜¶Ñ§ԉlA\7F7Øhì#Ž(ìx°ßÑ\w\²4µ¾³ŸÑ +~´*@ÁN¦I4œ46²h +k±#Tw?žµýêÐÄeGǶ#iý§:_jM’OºÓÎd + +3Y:£¡qWì*R´þlWT8MÊ[;_)g|x;žñ וGºs3nªµYìØ£¡=žÙc@®HÂ=%Í%‘°öN +p›¨»=R¯¢Ç +&—ÁäŠ$bÛ].eôc;›v­#&)@å½sPMÓ¤fl-È܏íØ×$ÒéK§{· Ôõûíw´É4Ù`QÕؙæ +,’¥8-ü©µºP«×€ ŠÚcSë¾wý„@}0ª¦ž³Vý_uŠ`gmcPïpºa8 +ݞÜÀŒL +µ°´VYb¡l_öÂárpq¸€ãØ8 +K^D +ïªÁ·4 +¡±£š ÁÙª§>4–m8I× +€]Ý#­µnî‡uú™,K¿ÐNâ8œubgm]6 +‡95oÞàoâŒÞ³é¥’%´Ôo.—Ú +® + +èOíXWÔ +{M +²‚Ï›†@› å¹`ùäAj|5 +Eµn`Qéņ–Ô.X¥3 +@رkÏnXM*ÕÑSeiMHn +ægÎÚ¡Qp/8=Dæy°Iy†€Àíié)àœÝEá÷±×±*6'ÿ=Ȫ¸E©žºŒ{à Y®ÊhësÏ! „>°£ØÍNfšÕ.‰v†3îëÇ~ V¥ûCg +­VìZ<"f\Xýâyaá["ÂØQ|×X—Iõƒƞ÷ûj¼3­|°ž¨º¯P²Œö1OÕ½‡è©Û¹ôÛÐÖâÃà¿èvªk-ÅV£÷̄¸ÏË>±Ÿ +„å´ +áƒMn}$‘Þ—-ovnh ´ôtTNÒA +žèw +Æε'íìï:;Ø +Ü + ß,ºÑzÅW$L息¨aÅSd‰P&¡£Ÿúqì,gX´KØ*ˆZ!ùêA™º¿Ž„ +’n_‘ב0 +ÿ~ëƒ'Dö bq– +7Õ}ìèi©«`Iá$ˆÁ:–ÞàwPwc +{_ácjŽÝo^ÿvC-®õ`š +Y?ћÁ)h +Ä íôÜQô³¤©Áa¨h²jøøƒmå”xüìäAÚ²K‘[œá¯VÔ§,r)SoC1‡ºíڐƒ‹yð +}8C”Ä<™Ãs†xÖÉÛ +_ë* + Ø´˜„!Šxúâ¿°º°–ð«{P†{€ùh†“iÖ4‚“%¬ +Mj³Ï«õ_â`„á&RæGd±åvÇ3Ø%¶šÆ؝\ÃîØZâ$±bÇY]¥bÁŒé€(eä{ÇÆÚ»:ýÁ菘Å9+ؐ Qtx×ÇÎçü -Xœ|¡#€ºóœàá¾s9Rä,æ +`ö>½€d‰.ì6¶ã@دÍÙ +W9@BZœeVer•aJ¹DÝëö¾S—d˜´ž­+$*Ӏ?÷$GÉ +ã$© +R$Ÿñ +ÔcÁ.2—k@Çè(?Ü >&ðÆÒûæàTéº6—¾5Õ•x±BpO°·Ûæðn +VòŽNÃa¸¥@ +7GL‰ó¡«n›{3Œ•¦þÞÜ7+ûÊÓ|æ믡²Ê|YS&¡ +BÜûÑt–ï`ðnÚ|9£m‘qü¦´”`l—â¾ÂCõÃn +%ûhͱ2Pá +Ø0½æY +"€éÌýÉÎkwgѕ­#Q;ñ6TŒ‡ @Ù½Â, +LŠ­%bPv=ϹŽÝ¼ÄÚÒV÷×±; +[ì&Bzú®m xÛ ¯]X§ŒYê¡ôçåÅÃexÊn[Ã'æ´ô·w˜©¶†!Êm±Ÿb +¶Â—óÔO5Û`QYº§— ªB΁‹Cª'Ëôñ±#Òö—Bvª‚Œ¶ßoiÀ¦RÒ£ßi¨ÍC»ñ–€¨»³†÷‡¦_°³­õÌ@N99wNÎmõ¶ +ýÂÝÓJ¦±õˆý4,áv[€ßv sèŒïüm&|¼y€”ëŒíҟu`·Ë ó»G(Ë#Wò»F"Ž¥ÃpìËΊ4(ôەäÒ.#.@º3֐ôèé^윕9"#— +%+3øz +ßÝ$E1–+%gEú¥mâ®mÙ1.d_ÇG +‰‡ $`ߣÍmA ÂçéŸTP1¾Xs^–ètÞ_Ö¸$a™€Ïœ•žKFžÑQÊÐápnÞá +Çs&>ÑëGhü¤»ö*Ó$iÂrR]eš@øÍq-â|6Îie]žf¹!Y +´ç]|†ô•–ÛÎÀ¦~÷B"é}ëãó8tÜõºû@¥ +&]ƒráƌû=kðÑÞMŦNÐi‹°ñ®¡L¥q4”³tyÞ7kFÀÝgªk››Îù$&e‰?ýtpÓS&2ªÎ0%ÿ +Ž +­È +ã² +á˦ÄLðϧ±ço-! ::€Ë"EvF*6µº«µZ)7UAL§WLO€<Ïî)EÓ¯šª&ù0`K.£JæÏ=ȁøÓÅqÇgágæźÈÚ0v‹9åLPñ%LdÏΫdÒoßËu[I5(ÊUGÿkEƒ\{?ŸýlÂ`>s(Òˎãy~Xµ,=,:IÔ-x Op‰ev$=]]^>³“^€Ç\>ã +øk+)nr¹D°DІåÄôá)¸X +:ÌeØÿg’¿1IÐÙ¤'(h@h ÊåO} 9J¯Õ®Æ“gä#êR¦soê³ +Cr¥• ÃZ NóOzÜg(Ë‘ {}ÙÁ6åQ{9=ôæ€M›+wü:ªfç +ü”åÉò˜h0º_Ëè$Úufb̉Ø +ëÓ<ú2µÆõÊ®rŽUäO×}£}²C©Øo1´&it¥$nEäóæ#‰MÙ×ÄrkÛk˜fvYõN¾¸È}DØИû +3ˆ´ÛÄ8I +ª2Èbí +­=O/‹(õ4³LQú]Ôy±ê%pöDKøœ=’ +¯ +Ûº¦¥ö_¯©å˜ +LwYE|:3 +¼S<ë½RÎpÕ{W9$8>×O³¾±ž°ô1© +1‰cyw8½|êàå|6²ŸI7xh;Ï +-!x_0™>bÜàe0£|L.ÌºÌ +·|Ì +çËc¢!Û,'¶ÃëÌD+§Õ›.¼1ñW7ÜsUŒ§ Ó=ZxÑÒhë›VØ,¼¥ÚƒN}ç +9 ¾E¹ûâÂH5OK¨‘ÇYr +‰œaÿŒ‡ûœjCò&ïðæ<Í\57ÒÅ)øÌù`z_ŸÛ:®{w5ΒØùÕ\8¦ûL–‚ËÜ5N§L=?nwÀâõêI˜_L•¦B(± +.|gð +Ù +ýµÏ˜§»¶Ä¥¼ s6 5›÷"gÅ<ý¡ƒRÏL»"G¯ +¯'Bl/ƒ?äðGb«îv¹S + sÖ.„ø„ŠwDˆrçz<^=_ày9'·Ùz:ã!åf¸Ÿ*ˆÑq¾DZ±î‡?aĺ‡<Å$ +u×á0 +ï÷?Ûm± +gõ•ºê“±·b£Ýé 6.¡Lkèh¤*ƒê~bݗޮ$/ÃsyëÜvÌ éö‚3,íXOŒòÓ5Îâéù„ÏYŽîx#Çc-ºžÒvÓéLޭͽKÅsœ mkÕÖfÐö"#ƒMø—_ +È«ƒ'‚HŽ×°NÝ[}¡ñ3 +->!ãþºÂÝ)Ø?´hé·Óx!G+˜ÿÔ§¢®dº™K }pØàc*úŽ›g*§?—8«Ê+iÝ×*=4‘ã£ÏÚÎ|jæø +ðóëßþ—N +endstream +endobj +273 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +275 0 obj +<> +stream +xÚ­XKoÜ6¾÷W½T‹fYñ!Qêãà ê HRd‹ +â +dI»KD+mô°ëüúÎp¨]©¦í( +X$5ÎããÌÇ +¾<ˆàZ:ÉXšÅ!x¾ ~z¥ +±,ʂÍ$Ö"a\›òc'«O›× ‘Î$„äL D ½Zó(ŠÂ‹7ï¿xþrsùââÍj-¥ +ß\~ØÐèÝ+|ªð՟o_l.ß½ý`•¾ÜÜß<æLè`p–eVýfozø8KBzê°«ê|¨Jš +­{î+’j¯ûª»Y +’H~t +p1ۇÇ)“Ò¹°ÿ|H’ð*⓻s›xÊÄäí§IŸ h&c÷þÆä> +ãÜIœ,퇼)óÎ9ÒµC>˜¶y¶Z+.±7Ínášw8 +Ž•Õ` +»ËZD’EÐèv%à”ŽuIß_[Y÷a_UNþ¥îH$Ÿk­º-À™Vª/c>´Ék2àÖ`ñú +)æ8Ïÿ†2‚ŽEs—òÚì + (V¶¤à“ò¬ +?ô´jØQ»¥×b؃E +r +µöÓLs»aƞª€3á +¢¢8̋bìòâg‰ÝWzÀ1èÇz E4Ÿµ9{4Pàw·ø*ž +8à>±%‚ôma·©( [ +ÌË +ß+€Àd×ýˆÚSXùÏ´ƒØÅc5ª£·pkëÓy‘GD{ª"?zUDl:qÏý%&Q÷Ð 7ÓÔ;˜NɲÄÊHß + b}’yÀR8Én£CkZV5–‡ï»³ucJj‘;_s¨†ªíںݙ±/!ǼËq½ëiNÅŸ›svKŽ¬¹ˆXºè„ª¡ªP§l¡STèP sð”Ù +]×ö=-Õdºµ_UXÆQ=¢&N +Ò@ðØU¥¡V„rËNij;ð +ò +Ô~O•CEò\9p‚Gß4„Ë)ÒPÊbHYŠ‘Î8K²@1E´&ZeÙIn‘8ÌØú$÷³'iÐq'øD1î( Í¶Çsqµ"¸Ç„$a’?`Â\?p +tfÂUØå¥iI³´§Ócv¬X"æÇb­ ƒüêQ/K’‰»BÑ +’<˜!×Û)Ór†o[ ø”’`HÖBÙoh$}YÑ)‹Å· +D/BâÂMª]DÖJ'èÁå9[¹z¦ñ}§ã„©'}ƨg>ŸÁÂkìä5îå‰oª°€ùöZâp¾•†§:(i³ +m‡röx¬Ð‚ñøÿ±"uVēÞ¨Ÿºé +öש[® +ŒX„ô"C$ š¿à$·#vx.[H3Ç1àMÑbƒ9_€2ä +r­Ãíظ^F¶Æ‹k +î‰ ™|¼A/ɌÕ9¶gªºP=‚Ï5µæAM霮¢é}UoײIÌâE5.ÀvÓÎ/øn +ÈHD–Z é h¸@@p7àÞF'4KfÍÒêdf`OÛåuMê©­,ë¢m(ü0(ªºêb^0íØ+lë’6ƒ´|NÍMSÔÀ’Ëg®I¸0Ä^ï‘ä iނ1= +[G± + +´´7DåyøµjÌDáKƒW«¢ÂdÏçèčÓ†£‹ÓÙÕç³+Ng—{Û¬cõTxý}ªÄ¶b‰oí#¸%øå½W±T=NyÒ3 +£ƒà«rPúÁžÿXÚ¡µœ¥)þXG˜Òïžâµ3éˁ‚åªðÌËÓç×xáRqlQoùCþ Œ]U@<ªÜ}W+ +KÛKx`åfÿòz¬zš[b}".h`s +‡ûddA¹°ÔYÊ +ƒ¢¨Žt! +‚çúÜE:ǔª¾Ÿ.¦qBððQKë·ͳÂy˜nÿt ,ÿ.Oñþã»Em}€ +endstream +endobj +276 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +278 0 obj +<> +stream +xÚµZQsܸ +~ï¯Pm³:‘¢D)×<ärNǝ»¤‰Ýv¦ç{ %Ù«‰V²%­ +ç×@€Zɖ½I¦™<˜¤@@à6Þµ'¼þ OKO'Yf^¾õ~:õ~x­<Y˜y§žR2H"o-“@DÞiñ›ëÕï§ÿôŽN½k/Hc︬ÄÚÛz*Ž‚X¹yíxïˆgæ D*Až@¯c$Cv•Ù½\EªvµŽBÿÚrÿᵌ±–„ï1Ðé ¦+‚aŠjÁ®ðVBÅþU´»óºd¢é©ð`¤sB§ +Èÿ͝,§Þ¤Çî,Pú?®Ö"Ñ8Mx‹4È܎߉ñ™ß™¢흭/'Ò +äÞ>(؈>¶Š +ßn\½öäôýÛ_ÿzàšý`ºuÕåÕj-S¿„Qƒ† +ÈÈ©Ë¡»c»›ÎÀ´ìú'í,Q=d÷G§ÿ~ÿæèçGM­Ó Ng[–M +C´djŠ‘ðÄ>ËЇTpß»á֟ªíJ&þnØÐÂh©ç«µRÊó"t/ôtiká8FCÐKœ_,9‚ +të‘êyÍыle$‚D)ÇG¼ ÌÑvêMŸ¾™?•MEºS!ÁÇ-ú|”RO¥Ü|3)7í®#MsYµ€Å7°(óºjl\%9¿\8 +ßJÀ®ºÜàC£E^6=K‹ª|uüv}nú²xFòÏ¥,zD2u¾üæíéÑÉãY" +5£þxú×A„¯$ñÚH+‚ÇS§°jœŸnª +îIúb×älå°ëþ4º=¨dâöHf†MÙÑxØÞlê¡vÓT +íl»b$mÝ)ðôã2 +Þra` /’ÍIV8` +4œÀM]·h§ÛÄx÷¥o¯fٚ‚½ò8 + !teߏž×^p¶ß0å¦íªO÷óý’ÂS‰(咇¾'>ŃTJÊó]gò;œ%V\ +èsªéwõ@‹xü[WÛj@E‚stػٮØÏÛ®+­y‹½8ñ»€Óð +ø¬’‘»At”øü®ü]ïäz¨ø¾Ú^Àb¢@ó+z¹Bþ.³´ +“ž +ᆠ+— +jeLñ·EaàÞñO‹àSz „žd·@'^äÌ-‘X06Ò<")hÛZÐQ”u:bÿ_]‹Öº©Šª¹ÄJE±Ãav´][·—Unj\‹§pÄÎMWÒàCCþNY +À‰é +IY¯Ê= ´iÐ]àMà;-ihh ì3 +Ë®í{ZªIt+ ~Gõè5qž„ðŒŠ*'oºy +E‚œ8Á«ÇP_öS·"Y{HTµõæ¼ÙÂ4šÜB´Á¨~9¢á +Ñ)j:øy#® +WY6ÒÍ +‡ásýÍ^s:÷ c<AQ{5 - œ[ĂPSFâ¦ü¡$I'"P¢k‰3 +¥±c +UÂäY¬@©¿/°—P`'L©—°PŠ¯€nJ +g’a(;’–<Ž¢%« à•Ÿ§=S «›X³F G‰@§³”ï4g#?g‚4~xi(ÃÕ4ˆôäÎö`î˜ÝÚ‹”Öà¬ý¦ +ØÒYs?œ +µì†c +Œ +Șx¡-VYž)´ÄŽÅÿEŠ”¥ˆ§¨ñÖ9[ªy¶„ZÇâ +(ð°%lþ +/¹Ýá®LÝKA"d6ð%o1Ál¹D3¶*Ë¢’ô +0O*‰M¥pÞÌxx'€:½%4ò'¤é”Q[ +ddã1HؗõŚ +6QŒ§›ƒä€–ÆÂSf‰E>2K­›içf¸@n&3=†›yš“K¦1&,¹t²7Ÿéé8HĞòÂ$:P“òq—uÙ•©iÚ_a¦°‰+²ö£å½ñh^5y +0e¢èÑÛç¶Æê꺧a˽LF-mrÛѾȒ#ÚìŸñëÜ1yŜ@p¼¢{¹zÿråørÅb‰°M>/‹Ä_–EðH3,±+¦êiÀ“/ðFz1ÆAày¾0°µqh3« +CAí„øx t`*ü5ÅMÕlFÁ”à¾æ¢»ªu”†÷åI`tkM£ +xE +©¶îŒk%!Œ†Øú`,ځ•›UŒÕÇ®ìinQõˆZPÀæj7Ԉ¹Pð] +6<1²£:l›‘–ê +‘pãO‰x¹ñ§SÌñ¹¿xßùCÎÖþpV{>˜ª±Hf]»¥ï†°9G£Ü +/M¶¥Å0â6,Ç2·ÛrOƒJ›KZ¡òýî°¡HÛ¢bbÝmË9GÆÔé«kóÑN†K0ÎÉ®ù¾§áegÐMoªÁ¶(l`„pR— +8PÌ/wÞü:»˜M¬y%¢¥Ì +¾ê +éÌ_jAnqQ³ +ò`Éuº°iÑ5Üd„ÍO@yƒu +T%y¥U@mÀ +â‡³3rD«etÄïX÷wÍ¶’dú)ŠŠ½ƒ¼u˜\xþóAïb%«I½ƒÏ¿)Ë +°êúá`4HÂ4ôÄãƒá`B|vövRª}‡eeʍa͍áPs¤ +³}2ªIë¾°à®e³¹Sºo6ÃÃÇ[<*>íÄc^svà¢Àýn!÷ +ù¸ +¢ +ê¶¹´Zè竇± +€øòϜEÇþÿWÁ +<¿åBcñ©ð?8|¶§‹™§ƒãe£ +]÷ÛFh›zå> +;“F÷£/.Q +ÁÑ-ÆUŠ¾¸’ë#Ž¾8rÑI̔«‹¸¸R^ï̱Ã%LB¸ø¥"L1ŠRZHô±ZhNbt4þ(?¢dë +ß;Dþ±âuìÕè1cò{÷§?2!ò +endstream +endobj +279 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +281 0 obj +<> +stream +xڍ“MoÜ †ïý +±T¨1ìã&ʪ[­’VqNiÔË®©ê`¬dÿ}1°‰£lªÊæ᝙—1x¤î!@d@ð%¨[pQ/kHŠË´ÕÞ(ã˜PPíîa^$Õ7G +"£³Ì3!DÒ4 +«í÷¯«‹«js¹Ú&ˆR +·›Û*D7ëùÍàúîú²ÚÜ\ßzÑ«ê}r*0¥q‚ËÒËsü!›œ‰%[5*ä­4Hw;5$(+ rQ—dÚy;ƒr´¦o•5ÇPÖ tKeÆp\w±iBÞtíB»ž%’< +}Ñ7Mp̋¶2q +ƒð/WŽ€*d­ûv˜¬Ú +­'m›(•/¤ÜUÌ3€ÅyVƒîï }8“›s,NWӛ3ŠNˆºðRõ‡R4b8AŒs¸Ù»R]oÝ +¢‘cêÙàFvßK᨝þ™VË`þŸcØPϵlˆ­¿2wÜêV}>gaþÎeþa€X˜/¼ù,÷æÞ|·˜ÆP&‡¶ï8*fߛ6î46êqÒ£¶*|—»ßÓhÛבrÈIe>snv™çúÿf§ tÜT#!*.ÉÒ;õòsüøô/ùÙ +endstream +endobj +282 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +284 0 obj +<> +stream +xÚµXÝsÛ6¿¿‚w=ªg¡~%“7qÛô:ÎÕQï¡U`9C‘ +?â8÷Ïw +ʤL9jG7ž1ñ±€v»û÷; +üq'N&,Nœtë|»r¾ùN:Üc‰—8«;GJÁBßYŠqßYe¿¹A²ø}õ£sµr>8,œ{ØerDÎ֑Ï9ôKç½ó3í™8\2_†¸'ÈGŠáv +ê/>w»z±ô=7å¾Ùþ›ï„ïpΒ À%<ðXÂJ\R߶ºù¨2q³AXŽ„¥dAbeÿ>»›-+ Ú®Yž[ou×)(Û¾}}óÞ. ++ÎÀž]xDqÀÅ̽Š`1÷BæGfåë˟~šÈŽ÷±ø +«I0’Z‚1±€OÀ#ÔvªëÛÅ2ûŠ>¨`W£^¦»véÛ=ìô5ë[¾o Û껔?6‡Ñ¬ï`õàÂc"‚_Gæ§uYW+·Ë +ÛÊ·¶ñig»½ÐNÙf—ÚF“ÛÆ}i_5ÃÜWYjMX¼| +ã0f +)e\ózõöÝõQ¤@8ž,"¤—"aœ°}gâm!"Wg‹¥¸»+Uª±)\Õá×wu7MÝWÙ­jIT¸mÑYI +üšà¢µ{û¸ÃM~³®æb¤§ˆukýé»/ x„ÝЮ›ÆãÇÿ-–’Gî*·z¤ª,ucµëw»²Ð-õ~Y½¾ ˆ™œx™ìð}ßMюح›¬¨T§Û +V[Dè¶Ð~; + +‹fXTeEWÔU‹}éª*£ Jæ¢ÚP÷~!BÀöÿˆÿt©«M—³gÝ.Àa‘Ó÷oÿ{uÜã2b¡˜È¹þ +%„8X½ä +H +rfn×3™LçI +uš«æëwۉ6:D¶[b8Yîæ%¤þG“7æh´¶¸^Ògí^×ûüB¬³†q?‡–u 3²ztDÚa8•r"k܏. +ø3¶ð{¢iÞÎ2³ +šæ¾FȂ °ðÁø¢!9 ­ª&!°ÌTm÷ÈÌVÏÀ'=az«²a“ÚþZ¦MAž@Eî~.¯›âs]1›XíW¹Ù➾u +èK’ÈîR·S™%Iä_œ~‘ + +˜ÐãÁ ‰0ÐçÇBÍí`^ñì£Ë )z9S5¤©›¢ +|!ànz†z4í Àìۘç3ñ]$>l¤uӀƒ +’[§@ƒJ +[¼BŸŠ×õOTé»÷yQÚ=è÷Adíìã db03ŸƒÁê®j~ ‰ÉÉ5·‹†ãS5VÃLj€N[lw{ +ŸC‘"'ucÞÔý&'V·Up¯TÓÙ±Á¶^ª6¥ +šÙÁªáR<Þ1¡¥œá6ŸÏÇ!¤îãIÿ +Té÷k{LÍ¿ÙJ|¦:9Òù$Ò!ð’=„ÒBhßic1°¯ˆ%#bÿ}qˆx[æU•Ø×ïÙçˆ}±5°/Š¨ñ®ãâˆþЫ¸C•¤À½áPœ)ºv¢Š sì«O@#OHfÄÑ>QʸF6ÑñÏá +éSюŸJå>bö‡ßÏûƒ¨ä +endstream +endobj +285 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +287 0 obj +<> +stream +xڝZÝsÛ6¿¿Â“'jÎÂ?{Ó7i÷:i+ӇÓ=À"$ñB‘ +?â:ýíb´éª½ÉL.– °øíow_}¾âW!üãW©¸J“œeùÕîtõÝæêo£+ +²<̯6{ÐX‹„qyµ)þ +$áê?›A#ó4„ä, ˆéjÍÃ0 +n~úåÝÍwßon_ßü´ZK)ƒŸnï6Ôúù-þFÁۏï_on~gý~óüã2eR^­ÎòÜ +/؋º1g"õu®«GøP(ƒþ¨±!‚mÈ£¶ëIº[‰48ªVízÝR³Ÿ^  +rî}‚G1ãn¥ýãy‡SŒfaafÕT{NºÆoõô‘²£tå¡.qF;EÝlµŽÀ<Ûí‡W¤Ñ´ô»Ý¶¯ì»uQîT¯;7OÕ/Mt͓Œ ø‘,ŽÍ4š{¾4QŽýv¢u±4¨Dn-ͽ¸4H‹–ŽSkò8ƒw:Ý~Áõ邺Úòptæ€GÕítݕMmë‚^,ô®*kÕCÏ?A’†`†w¯HÉt¶Û£•L†Á ®“ˆÅ™¿~c©µÈ#œÙ#¶bš,6ŽÍÐZQ}¨4émƒ‡•HÝõë3H’ éʾübdÛêHš,¾÷d²aО>öDz>ЀºêÆ¡·Û›Wôfc¿¼ÝªWÔ[ÒBú­Þ5'€Q¡ +ü¶äs(ð—¡À#βhÜÀP&P¢W]@Á4ˆAÌQ}-Oh†¡?’`ÔMë +¾ê¶¹Æ&`C¯„uúPæ¡[¤›ÎZ„Ëcß$_u]š‘ÀeŠ²ëU½Óì“pøDr®<[®åO{èwüïðßÒÒc`·ttî(•ÁçAu%5 +ªÐí(xFÒmÐiMÂ÷FÛ$ó@tà>-b +]ûK;Œ wydfع&Cç¾ìQ(x$;Ò\=3ޛÏè +ÌÚxbä\8 ¦¾ñŒÓ:ÜÁ$ +öä“à +¿«Ó¹Ò¤ùpÔí"• +2é +Æ]‚TÌ"éÙ +'嬊Â7ʚÞr¸.ÀUkg¼ +ëµ{d3¢|a!ŠÈßc‘Ó\" kÇb +ÅDPªè±PH«, +€àS@ë»f26íZ +FŒb€Êz"BÝô4ÌP+ZPyš¡Ã˜†*­>·º +Š>n^[g1“õU +-ÑPã´ð§ÒêL­¸Å𴇺Ò]gå„@½+UE’¸éÐjÛOô ^}2ü^c<Ø +mDŽLì5°4VId l^vÊþržñß~¨­ +%Ï +"´¤N-M]hA#$ø[u$Cc™†Õ´b,ŒÕ>µÒõÁp +ÝdzDæ9‚_hGaø|ÖÆ%`ñ›Sóî–r2zÇƗrÜ2|éæ|®Øaµhh@@ñ©*¨=˜"íÜ°1š†@ûܟ +–Ž +¤†7ý^ +àŽ2$G›Ö44ìŒUZŒ€°}ۜl·›ª¥§ÂÐ$‚6"âüʓ¶h¤ÐàÛÓ¬4õ6)M¸= +=yœ³>+ü>J-«bsôYw"ƒ°Û‘¨´o”ÈE†«ÚúÔq(¡¬i'֓“•=ÍêÙvΉv‚3îëÀ0énז–V‹‹IÀ +A‚ +ãG“[OyCDZŠokãà2Ê +ýÐQçv[ +÷eã +'*“MF9¦Ã±:Ø>pˆŽÄÖ­@nC[‹½û¢Ý©¶1[ +Î3#â>§ûÌ~†Ó:„6¹ñ‘H:_6¼ÙÚ®ž>ÐÐÓ^YM±{¤ß¡ZÛî­¶µ¿¶°;¸@¿Ip§õ‚¯@¶ÁdêùʘNÍ6-Ÿ²œ½›ú~h +g´KتHÎÈW÷ª¬º‹HRa mn| žòǍ +žÙçi¹«U¶a.¬&›R{¢C°Ž¡7øíÕýPÁÞc6.cctß~ÿáŽZÐ]龬;dýX·½ + Þµ'´ +瞢Ÿ!=H +v½)Ê ²j¸øƒmeqøTÚ7¥6쒥gø«ÕÇ?âSؔÉæé)n?ŠÍڐƒyð +}ónbžÄâ9A<ë‚ôMŒÂ¯µ†lLBE<}v_XÜX ‹øÅ=Èý=À<”X6,Ny°o6ùãaÝW¡rõ`Ä"W³}³„sº€CEŸÀ.±—ªC«W³{¶”8‰©dÞ + +ºrĂÓe”“µ±3ŠZý¥Ô˜ +®&Ì)ÿEE¢"8×GáK~g,Œþ¢#Àp§18Ááµ9R¤,ä3`v.½€d‰.Ì66COدÊSÙ_æ€L {˜³–Ë +0)SÊ%âࠛC«ÎGÈ 0i<ï[HX šäM¸ä +ºL +"H‘\ÆדĀ]$6×Áoè(?Üe>FðÆ +Òûzg‡ÒUUž»¦,F¨„³‚38‚ݬ°Øþ´+9G§n?ÜR ˆ +#&ÈÄù ªšúPöC¡IŽg) +ûÊãtâëo ²J\Yu¶7!îóP¶†ï ó~Ü|9¡m–qüÆ´”`l–b¿êÃCÙS„'ì„(ÙKŽ•À΁K¦—<‹g,q*ã™Êú¨èàšF'ކŠq·(³W˜¥<Œµó +1¨»œç\Ä.„B– +ӋØõ” +v#Ȳ­*èáùÔxyíÌ:y8U†¿Ÿ¯ÏKNij3õ7 +i«B¬S ¹‡ÀLµ5w¹-Ê)Æu/Æ¥¡œ¦úe²ªt§ˆg6gSâ³æ ãxž>>uDÚþÒ¦­* £íÌч´g‘Ò¡¯5Ôf}I»ñ–€¨Û“†÷z‹¦_PØTzb ;89wJÎmÆmfã{®Ÿ§nt´e> +Kج2ðÛÆìÛÒ ?Ld€wr°»³Ûü„¯Ÿ , +lÉìˆ0”á+; +A¡ß.$—tƛv[CÒ££{^¥,O©Äà(YžØ˜À—#(ü®G-ŠA0`¾0¢ä,‹ÿêˆ&q×tÎØ×òđLæT8Þ¢Íé@8 +Øä€ðIyãõâ`ž£Ó9Y⒳ɋG€.Œ>¾0F.}‡Ã¹¹<Ür‰IYäN¿ +ÜtT€‰„ª3LÉ¡£G£2ŸdfxÁ’11üÓØÓw†p8:€KEvÆó½²R÷•6S3gïÔ_@L§W:É/Oö)FÓ/šª&ù`ÀÖ +ä8²‹*ä! +-ñGöÀÜÅD8ŏy±.26ô‚ÝlN)ÔþÒ|KóʙtÛ÷í²­ÿJ5(òEGÿsEƒ\z?ülÄ`:q(Ò˚»¬ \ôDñ¨Q5à%<òÀ%æّttuþö +t +<äò¯Èğ[±ˆ!p“ËEïC͆¥Äôþ)¸˜ +:LeØÿg’ +m:jÐÙ¤#(h@h Êåw +}) YÖj]iºÉªH¤ÊÖ¾©O6 +µÊ–V‚k%8Í¿èq띡ÌcD"¦›ÏÈV1šóñ±+wØ4¹pǯƒª×®ÀYùîÒC‚lïñž]«Ž÷Ì×6'b¿1¬OÓà2µÚJe[XÇ*JäO+¾Ó.Y‡®XlWZ£8¸ƒÒ +’N +·"pyóžÔÆìkd¹¥m„5Œ3;/z'Ÿ]dÀxDØÐ ûÚDší÷(»´šT¡1 +n™5ZZ{™^fQêyfÍ¢ÈmÔ¹^ôˆ\ ªÿt´„Ï™#Yøʾ©*Zj÷ÍÒÐÀ¡ +)Îsœó"âã‰éàìEï•r¢€‹Þ»È!Þñ¹~žõňõˆÅOIUˆQ%Ákhk¬oŸ;x>•(ۉt½÷¶Óäɼ÷“ñÆõ^Ž˜OÉ%ƒYçif—™ž +¥Þ +ùÖ*X~›Û` +é²]Æ8m^g^­ +oºðÆÄ]ÝpÇU!ž&Œ÷hþEK­oe`3ÿ^”j:õ.lDèå$øåî³ +#U?/! F +ZdÉ(Dr‚ý + +îv’¨ +ɛœÃ—§qæªö¼‘.NÁ?`λ²sõ¹©ãÚOsá$Ë1†˜“ºË +3)oÜEêx™›‹@N™:=¬ÖÀâÕrò?fjc¥iþºÅº±ËqãyŽ§Þ5!d¼k‹)™ÄßS¹Z3y/Ã)Dnúx +¥^9 +¬³§wŸ!6çÞ +r¸‚#2Uw3ß)Ð9iB\aBÅ;"Ä*Ùs= +.ž¯âE¥ù”Ü&Ë錃”áv¬ ËùiŸÞ}ňewø׿ýf& +endstream +endobj +288 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +290 0 obj +<> +stream +xÚ­VMoä6 +½÷WøèA×ZK²$»h»@hO- ‡¦ÇÖd„x¬©?d}IQ3ñ J³Š™¢¨Gò‰döwƳþxfDftÃê&ëŽÙç›ìã—*ã%kÊ&»ÙgU%˜–Y!4ã2»éÿÌ5ßýuóköóÍkeÉY]g +æ¬i‚.l½©¬8f«|s°»¢*UÞvÝ:µÝ3~éÜïIºÐ¶Î';¯ÃBB7ÓïàŽn±=)Üí„ÉŸ¯N©¼óÓd»Åù1 +Ùûélo·áΙ? +\·:?à~•¯óWð¥Ì +.™Ró쎧ÁùÇ/\lc!™]Tú÷·Þó2n.í˜:Î +Sçó·¥(& +“MÔø>i¢d2îN"`ºz +€ÝÆŌÎ$ktБ©;4¢¸è¼´fg G¿+D÷v`S©òß&Ùzt½ïw +„x‡”IHÌÑ.ÖO~ð÷®k”©üÔN-ʧ™¾ÛÉÒâaô˜³'r¤à¢d5ߦŠXµØ™!yގH)ð>4‚Ë–<cAp?ùy&Ñ@Ðܲ·%—À¨Y£td(ž&Û»ŽØzþn¶Ó#:IT +–ü> 9A«ƒ_‡Àf lFeKOn9¸‘xyŽ´à™‚”Õé†3Ýd«D°Sîšæ¢w•8ÌXqÑû!‘4ÉÊ3}J +7Šü6÷§sq»#<Ak&ù¶öÆë +„Û|j{çɲ +¯3[UL‹í³(*mòæÔ- +5Í%Tå +»A“gær°R1#7ü‚ŸS² + írhGZÉTVL͔ø¶˜«Äp“é‘BB建\"'¥ÌÛ +~kõÚi¥Yõ®Ï5“fãsx'ˆ|嵔UôïJÄ·®°€¥îºæáöª4 +/uPÒeW,Dx(Œ`\ý?(êˆBQ$£NÅ +À +üä¾ú‘ú_!dÉÊ +rÖ0EmôxÉ~ +SÂÔ×-HÔ +™ÁÎcƒ9Ú +ÈÒNÏ(6ù~ +c/#¬jË| +[E´®]?-ç2ᔪ^b‹YN˜‚ +Á·–|÷¦¥s|B +Eè³ +öE¤¬VL]Uã°»y‰~Á*(ÖŦD3g¢¡€ˆ&s)8׍N¦7Í2Ej½8Óuí0yê@;$÷D×PøaÑÙÁ΋kúœOØ+Bë’!ƒ$~I}»±ÖÞöb/’*é=9Z +ÀÌ´ôØWèÅ©x~p÷Z}µc¸w{°ÐŽÅÞçÕ]´ÀÑÅóÛ5/oW\Þ.O¶cõ„J$ßí#*T,ù­}¯¿¦ ‹uõï#OýBǟè!¤ª +”~¨ ÿ±´³÷¦ZMV4ÖòwÇڍö/ + +aV +߶ts{7`KW*°>Ìí0AZÁàaÛx®£©VO!÷¸Zað¨Mà3Ê, +#™]ÇÁ=Ax@ò¸ƒí°Ú™¾Ã`}\àxZ—í0Bø¯F.,uaäÂE×ÙS˜s°àÅ>!aþ‰“’genŒJ +Ìá=²–äO‘Í›ÂFDƒ#âL˜¿ûK¼ÿîÛ",À +endstream +endobj +291 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +293 0 obj +<> +stream +xÚµX[sÛ6~ß_ÁíCêZXoÉäÁqœ[ÝÚJZõa3©ðÇÙ?ß +P¦dÊQwÔñŒGÀw.øp¼O +ó|øc^̽8Ji’z‹•÷væýç½ð˜OS?õf÷ 1åe7Ë~'Ÿü1û$’ +D<™2ß÷ÉéåÏNߞÏ.ÎN/'Ó ÈåÅí +{×ïM+ÈûWg³‹ë«[»èùÌûäÑ$ô +̞£aì­<4ýwáÝz¿ ÆÔc‚"rãЈZv§“€‘¶Ò,ppyà1FÓ04Ò,a4vp«»F՟Õ$ôIÖˊ¬4Lœì?G + çÎ.nnÌ + +ê +'ó + +èmbþ¶Õ™Ñ Æ +O//·d‡ +R +¡ø+" +HMr¡ ij +šV¶]3™†<$o°1Ø—ýœlÛǵ:ÁnuÇ6=îz]»`OÝ~4ëZ58÷)agpdh·VEU.Ü:×®—¯\çËÚu +סµtÝvá:uî: +ë|_÷K}Ÿi§ÂäõË6ŽÀ5Êzņã^K‡`ádëGhé)O)cÛ^Û¨šð˜¨l2å‰OÖ +\(축i™ŠC³\áØB +ªq°éÖëB«g>ÎÎN°×èÖ­´°+‘ªÎt)[Ձ”¹2;ßiUš¶ +Á8%R×n‹ªÌt««²±Øý¡cd™á Åc¡Ë%~>LxDäöúlþ©B•Ë6§/š–ƒQbdÿ^üz¾ßª"¦ߒïãl:`#€9e1 +Q +âr2¢F¢ +Øbs⹬p2Ã}1à$£Lk,ËMËœ î±Ý52R×ÿpòæÛ8ZÕøyŠÍœ\U›_°>ŸŒ*Ƃhç€À1û†RYÕÝêZU[að”œ~µ€}òá[‹&nÜ÷œÔ2Ó²l^›o?ÀyÝàüÕ¿gAߋiÛ +€qÃÛÀ„‘Ýwî³hš0þn¤ ‹brþ& +Y®”(þ«+î±o +h_á +Ãÿûœüön;Þ©E +ήǀ¡Õc€â@²q-BäÓµ¬[jœŠ¾ ‡c;Šww·Í§N6¡þØ`3gJÙ*D>8V NÄÁ&5wÒqLÚ/âa +)JŸÍ!Y%¡"Ùõ˜4ʐrã¸Ä(‡Š†û4‹¢±õª™utÛej'l +6%›vºFB„{HcðïHt°Kàú?ì¥B–ÎT«Ý‰+d»WñaÍWǀš+½ÌÝÅl(CÞ¡9ÍšÇUQèuSé¬W`å £®ñ“®bx +¢“ä` + т;ï:¹ˆ(¤£½UeŒý÷çKþˆÿBìØû_ +EƒZ5MW; +²Å¶ÍÝI +0}î™“üg̊F˜€AÙ 6LÀÙÈæpe²ž,VoŸ }Nä)§q:´B»8†þÜ1!½újåR¢j +ÚÙbÇ8ÁÆ8ÑÀ8™r©ãÙÁî¬óc(R+sð‡)7Ⱥ•†¬×èöèŽÝ!.®e¹tÓþ” +¬É>)Ž¡Îƒô,óÞP‚^ÔÕJµªnžEPêàîËÏE(LÞm6¹9Ÿ}¼¹:·7ES2ž¢‡p2ÌÔô†>É#øoe趶¶ŠýÞo͇EððÀ™6 ¯1Ø“:²„¦ý/þxÑP¡S>7Ô֘öPçä¾+O +øy©):µã‘-8abM7Øl´Š}ÐÓ˜£.Û10P¨¦ +Öù¯Ì³L‘3s cSñÛכּÓUçJ”GýrþOÁԗ.!§~2 +u{¹ëŸÆèp +iÏgíώzÔ;0»R.jÝJsb,¢Ì¤ƒ/º-‰¨ +âÕõìüvý™ÐHlÉ¿ÚÿÖ^†Š#òÊ°æ`tÿs³¼0žÏ‡/߁&~BäWmÉ·³çڏ]î§ä«*5Bf£Á‘¥yC03+W'N ÁØ -³‘gç,ÍÁ¤å‘ª+2Üs÷ÃF)'g¨òÑ¡xþ<€;¨ú^-,{ÆÛ¹ˆ,ŠG +– +^–XÅ KΪB· +²|F]¿õځÌ@;øÂb,ÒôkÀý“#-›õ°$0Û¸ïRm$BS‡eögÐ5Ï.¦­0Bˆ„¡3ŒßK +½Õ WV(šÙüìÁp°Ãˆ¦W2ë©Ün™²z¹ßÙ.¯jýµ*©;X[èg¹]â +Ûo5k +ø°š¤±[ +¤vêPåHÃ1Á& +}µ×~zä|‹ +w¸ +BÿìùY˱웘{^é‘/g²vŠÔp˜î.Á8¸œžTÛ 0÷ØæÔgC{ +R}až0U]ƒƒ­1sN&3.M +oLSçswŠ€<äºpkàþ ²eÚ›òXPÞ«™™Áï3¬r| ‰txs-Aãþª’µCøðÑèÕΞ5OÀ +[b^WÝ2GVwù'çPý»±Þ.3*— +ê»ÙίðñÑô6•¢9ÐBŒp[ÀöÜÕÀ¢›{ýðÛ:܄£Ý¿r×Ôè\˜©ƒ#mE:^º1¡p&´ +mßbyϾ<hž»ìk†GLϾŸ"ûšßoØ×Ì!ûš^ϾFDWí׌¨Ol;d +,‡šÝ6[Pl˜›oùE½õ>qt€”2̆mtü«1ú¢›á£¨ØDÌæòûå3 +Ø +endstream +endobj +294 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +296 0 obj +<> +stream +xڝZY“ã¶~ϯPíUÁ$^Nùaíõ±N•c{äòC” + IÌR¤Ìcdz¿>Ýh€g8–ÚªØ84¾þúàl~ÛD›þE›”oÒ$gY¾).›/÷›Ï¾‘›(dy˜oöǍ”œ%b³ã ‹Äf_þ;HÄö?ûï7_ï_)06‰Xž›±œ½:6ŽOý±ÿjê§íN„"Î<8„‘ìú¤Å–§ÁYuªtGýíqž€ïùì›(ò^ɘE +‰ËO×m +n ¿.X˜Ùaª;Ýà»zIÕÓKúêÔT¸£BQ7Ûî¤ÁáðóÑvô{8toìܦ¬ +5èÞíS +kÝEIÆ8üÇfíC´¶ÑûíF›rm)"ÝYÚ~k‘5 +§VåqszÝ}Äó钺ºêtvê€Gպ髶±MIK]ÔU£èùHÒÔðÝdc‡³•ÌŠÁ +îÉâÌ?¿ÑԎçwö„­˜6‹s;vVԜjMãÁã–'î‡Ý$IÐöÕP}4²ÃÇÚ,Î{¶Ù0 +èNŸ†s՜hA]÷Ó҇ÃÛ74³µo> +Ôê­è +¡¿ýNí`Têß-¢%¢×¡ɈerºÀWP&7P¢UÝ@Á¼ˆAìQ}ª.¨†q8“à4mç +>鮽Ã&`C«„s”úTå¡;¤ÛΎ‡’屯’Oº©ÌJ`2eÕª)4»Å$ür¢± +¼8®åoô8Ñß῵£ÇÀ +îèhÜ2Áo£ê+j~?Ö Ú2xFÒCÐkMÂZ'”‡-($ó@]t`> +b +Mû+»Œ ‹Ö<2³t‚\“¡qaß#ö(<‘ +i¯žÌkô€ÍÚX¢t&œs_‹‚xÁi=Þ`G²I0ŽßÕåZkùxÖÝ*•r2á +Ê]ƒT̤ðôŠ +N›rZEá;eՁ?Œrx.ÀUgw¼ë +}d +¢|åŽÁ]qéß1Ïi/RÀÙчC1:”*z,RÆÓ6“| +hý®•M·Öe +PyGsÀ#4í@ˌ¢U§± +{ôi8¤Ó×N÷“cAÑ/û¯¬±˜Íz‡*ǎh(‰q[øSku¥VÜbx +ÚcSë¾·rB .*U“äf:vÚö}BcP +¿7èÀxì϶cF&öX-ñD(›Én°œüw +«aå +ZR§–¦.Ô +Ê Ñ3]õ$Ce™† +iÅXX«{¶j­›“ẗg‰Ès?çЖaør×Æ$à±;¢æý{ü•Vé=›&åxe8éíõZ#±ÃiQр€ +üS]R{4>DؽacR +6ö¹?å,,Hï†#/WÀ-3$GÖ´´ì‚U:ô€°c×^l·”ª£§ÒБõˆ¸¿ê¢-É5øzÁ0+M½KJ^OKO +çì® +ߏR˪؜ìÖAVśÈÀíö$ªìŒ +¹ÈpUBWŸ:Ah;º‰ÝldÕ@»zqK¢áŒ÷úßÑ80ôEº/ºÊÒjyÓ#q¸#°p}y3¸õï‰CKñ]c +\È,W8Œ=u +åøPµîñÉX¢2ѤÌ1 +ŽÕÉöAô$¶f20ºZ|ÜíMu­¡Ørt–)‰ûÜØú30œÖ#|°‘ÂÙ²áÍÎv +ô‚–žŽÊŽ4N»'ú +‡±³íÁŽ¶ú·Ânïè7 îµ^±ˆ6˜H=[™Â©Å¥ås”st[?Žá +ƒvW%ł|õ ªº¿‰ –ÐåÆ7‘à +þeïœ'xöeXîr•Chéi¹V6‡öD‡  +Coð;¨‡±†»Çh\ÄFé(~ÿõÏ÷ԂîZUÓ#ëÇJ˜q„ð¾)ìRº®«kßVå•pqB0G°û-&Û¶ %gèÔí»[r1·{ę8Duۜªa,5ɱ–²r¯QœÎ|ý9dV‰Kk Ïö– Äý6Vá;è|˜._Ìh[DÜ¿),%›£Ø·úðP¶ŠðŒ%‡`Í°XÂpÅôšeEKܐ©¦²;+*ÜÑêÄې1 @™»Â(åqʝ—ˆÁ±ëqÎMì‚+ÄÊ +n'½‰]o°Á®„(Û*¨6Ž +ž/­×.´“‡sføûõîéºFaáL< +É¿aI›bží8fÊ­#Û¢œ|œîù¸4óV?n!AVõˆæ$£ÌÆ,||v8è8^†Ï +‘®¿²!d§Jˆh{Sú¶) +ú ñ•†Ül¨è–ÀßuwÑ0o°hú +m­g²‹“q§dÜfÝv±¾·àîeèF¥-ój8Â~›Ýv°æÐUNøóLøxÿ!×Û¹«u ØÆ üêÊÒÀ¦<À®Ca1 +º´³¤ÚíJpI5Þ +Fw•Q$=:ºçá&eyŠÈH:GÁòÄú„h݃ÂïnE>ÌWVË⿺¢ Ü5U£ÓûZ~?’‰ÀT +ãàÔ9„SðM®„OÊËïVk€yŽFçìeK$F“7K€Î>½²F.|ƒÃ½¹8Ür|ÄÄ¢0ÑëghĚàM¦‰Ã_ + +d7™Æüþ¸ +EѬœóʹ¬R72u.$Iƒ³öjÙ$):n;›äv‚ç"i¾±ñ¹?µÕrJå0è”u/IJ<¿ +6ÚÛ­˜Ð „¦\„ +E*¥¡”ÅËzß8¬)st©®]n<Ǔ”IWýâT¸é)ã eg’ÿH¥G3döqÉBñœ%S`Æ£?c/_BÀ娗ŠôŒõ½ªVµ6[3µwê/Á§Sŕ*ùÕÅ>ŨúU5@Ö$þ +ØZ€ +Wv^łgBl¯ƒ+r¸„Cš¬»]ޔè\´u!.1¡ä +bÙº^®ÖW9˜EšÏÁm² +Î8HÙ + +¦ +b´œ/VŒƒûö»Oè±ì +ÿô·ÿ„Ÿzk +endstream +endobj +297 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +299 0 obj +<> +stream +xÚ­VMoä6 +½÷WøèAת%Y’]´‡d±AS»[ì=4=8¶&#ı§þHýõ%EyâAœf +22EQäÉèïˆG)üñȈÈè‚åETÝGçÛ臋,â)+Ò"Úî@#šqmë?cmþÚþ +ùBCHÎ2Š¨a6 OÓ4>»úüËÙù‡íåû³«M"¥Œ¯.¿liõé³øâ÷ï·—Ÿ>~ñF?l_^–óesoGÛõ]ÓݺªlP¦âCٗ(ïú.{K‹»¶Ãœ=’# )Ëù2UĪÑ6È +Éã²EºH÷¡\–´à1ó‚Û¾5Ý#Á-{r Œ5J¦â¡·µ«ˆ ×Ý +¶@'IŠÞR׃ÏhX¡Õ¾›Ïf lFeKnÜ»–x9GZðHAÊrŒtÁ™.¢ +8ÚI7EqÔ;I +f,9êý¸’4Éҙ>©ÂE| +w‡sq½!|‚ÖLòW ,íŒç +×q_Ö®#ËÒ¿ÎØ*cZ,ŸE’iÿ´b^¦õ\厡JŸÙ +š>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +302 0 obj +<> +stream +xÚµZ[wܸ +~ï¯PýÐjZW¤¨[Ò-–¾LÜæ¦+ÚÏÅš¹ùNN¾‹$‹"ýÙבֿ}–HMðÃë«÷šf*(÷=܆g4 ¶Æ½‰¾`oIKۋŸ~š‘N5ë' +êgZ‚`B´yc?K)”Ë@îÊ¥ßþñ®8§fsǖЭ?¤]ß6[ÓkKÓÊKÍgñüÉ-q?b±Z_©à‡ë×oß +ÝX2?ž~C[Š„q>ÙÊ;8Ì +ˆ\§ÁuI +jýÕFÞõi»,뼸[,E +ó9aOÓ¤ž¢o‰Í]ºT"«³€Ž§M¢h;ö´¦â„ Eÿ××ÿº<®$±PLÉÍ郊&Ç/<\~É#÷ÁI/î[ŸóŒAg›´ý“¦™. +~N@4=jà5£7·ô›5JOM›—uÚ +ŽJ÷ß4y¥•ýŠF›–ºô³rß4Ãü\¬֍q?d"šê +÷ĦòfwS'vµgF"q/¾(=÷Õý*‰aâJ÷Wp¶y æô +û +> ù²£ù7/< ž±$Â5ˆ~"¡ZwåñÐ"  ç@’ð0r/_$–>gaô­ +è×O<&үԊÿý‚÷üòrn/‹Ì˜‚ÖëWÛ:"šw³=!*Âàûë«·?eäßìùÆ͟ôrÆÌ'¿½º¼þç՛˗G==ŠYÏ>±»z!““ÇlL>͑RˆšÌÒb‰$3üÀæ| tŸ“ +1A +¡ó㓊ò¡GŠðÍÛëË÷Çñ0f¡œÑ?; +9#æ£ +€¿D¤QΎG#®llBü¶®ð´=_ÇOà>eÛõ4ª‚àgš +мÂEýåì¸ +hÔÚsm~$|æŚ,m×»íh‹°ˆ‚X¤+×u‰e)M³ÅR¢;­®ÎˆByš‡#í™þ¶ÎËL#µ’3íí.V(æ¨Àm‚rôH-hÛX‰ŒL§˜´¨é Ò*â} +©¶\oŒ: ›vYQwÛu·ÎéüÈ*ŒJ0ƒx +~¯^‘R +ЬV=2*Få ¡TÎ8"ŽÒ¤&%{ÄV@ÂbcÓìZ=T¯«‚èVîÃB„nÑõKĔÐmº²Ç¼Æè€Æ'añ»=a½Ø¥3}ì7e½&†EÕ +¬W«‹3ú²Ñ+¯Vé͖%))²f»ETËqmŸÏM7.!³”à +±/òb]&žÙ¤àRbþÕè†ì®ú˜ŸgM +HGú’\ +4èòÒT©îo\}µ@ô¾û°)+̓Ö’™j-:‘dÂlscSƒw‰bx"™¦S6,’3L G‹€NWnïÀ÷”z|i²œ­¶Ù­7{—Ü˔šæ +t’KÁ‹šùþÕ<˜ZUS¯•ÖÑ¡¥´`܍ì $ èl~} + +æH€–~­K‰·­¯¶t>³t0¼ä@ + +¡;Ä1aÐWĒ#b}qH' +ÐR)¡/~? /ÎúbË /’¤S®qq¤¸ß¥=`GZ‘ +Cq¦ì»™(Ê̱ŸþfË&í}Β¬ã +*“¿ +,æd¤ +@½]Pü“‘rB|‚H 7Ëv[?b/TëãhOÓ!¸A·«zD!ñ·*·¥r +$¸QùÓì«Àl@¢ ‚øÝb&¯AI(PÈð\68/1$i¹5ª¼°°[<3uÁ‹§0ÐÑ +ÜÑXW\y³ÝߘoPäÏV +3 +÷½ +bBy(D4xÀ¢p,6ø¶5BU|š$¬’‚'ë +¶:-(*ue Ü´*Ê~.s +ž4ÙMèâ5»i›ªYc¢cÁôú­úŽÐøÎì6²äwƳˆAVÕ˜°HÀ)t’€™`3¥WY¬Û¦ëh¨"ѕ$8 +9 +՝SvC–„@~MÖxPµD‚ƒÚÙ¡Ym9¤çÈ +t}LtÐ.‡úw8²5p&ÜÖ)ùôI2ÐÍOl9Ð=³ +D\c>^€+bÞÜ©¤“l[DCæó#"LùC®OD RPCœ}坱‰Eщ[,%D¿Øn‚ +æVYJiHÉÿ‹âœÜ +I¯nÿ’nÓ5µ|Û©`G|J¢™J´º‰µÖ¤’ +!sVx֚SÈÝÓo + +n:™<¹gȣɞ‡„`¶kŒ&+÷]‹~c‰f[kn‡Ó¥ìf8à oŠ†+TJËc‘"Œÿ)L)#˜–.´>DS“ìëÖ÷°$‡eú˜Îìgðäf‡_%r/q“ŒÂ +\Þ!À˜2Pªª ¸Ç®Ö±ì°ú'¤À—¸± + +„÷–=ÞX’3Õ`ž¨Æñ”Ñøw”‘Âãsœêv© +6”C¥™6ŸäpýŠ[î ˜ˆ$Vf3Ã237n +s"¢ø€ 6“ÇãK;ZîwĞâÏBå\´ +%xÐȊªèzÊ» ÛÝa¤Ðµ¶Ÿ) S5sxÔ/묂 +9?בÈ?ºûì‘Ræ[¦£f£“c +F= +mJJäù¤p!†ësw®½s§ÉKÍ Ç-ύFσçrkÁJ(`çWE‘àÛ¢.9V›æ·ª±Øt4žy_àŽ"+Æðƒ<ßì'“Úб¢´òdR;!~ÝSv UøMóÏe—â# +teô*yH?©ò ö$d +Eª¿Ë(%eýØځ¨¬#Ž”9ãX1ªÝeGYOGˆ„Û÷ë[*¨Ô®ecgƒ‹ +ýˆR¯ÇŠÆÞ«†*-ÂDñšÚ^•¦/·Å¹õÿ!¤Ïx8« +¢ÔEû„¢‰òÕÕїÁ¤` + +]—”§ðw¸§7íVÏl4q +7öR—M$úü¯»®Ÿ<åÈ`àrä½HD|¬Û²˜O™í.3A7’˜àN +»v,s¿ûÝÉ! +% +endstream +endobj +303 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +305 0 obj +<> +stream +xÚÅXKsã6¾çW𔢪"„xð•TN̮֓˳‰5¹Ä9P$Æ↙ ÇåüúíFƒiIÖ$5[[:~÷x +÷øq/^ +¥,I½¼ö¾ßx_¿Q +X¤ÞæP¬Eĸô6Åo~­~ßü(’ +œ)„H¯Ö<ÿêæß?]}½yûÃÕÍj-¥ôoÞÞmhöî +ŽÊóþö‡ÍÛw·w–éõÆ{ôXzOxfÄY{µ§BÉB5þ¯¼;ïg’1õ¸bRENÆ8D2” Ì†›Â‰)¤Ç9Ké¸H˜JœUù°ëA +•ú +¾x¨W0Íû²mhuû +cø +¦­²nmžM¯kZÙâ†v³âÙ +7—IÄ1KF« +d-­ø«T1™,6‘Rk‘2έ éqµßWà‘ëÁ•ˆý +ÿ£‘`‹_-1G/âÒҋD¸q +´àGXME +; +ì³®§Yûxõ]֘mW—Í}É[âÒe“õš‹²sÒ *hˆä¼ÑXÁ[LáÖ¡Ë*ʉi{Õ¾Bÿ|ûëõyÓª˜EbA?Æ +v0"@áÖW +r1]´Ã¶ÒŽh~$¤"ä +ՙ1”ôh= +û&Mº +­ð±ì³ÞZmqpG‚î°;îÉm´ +js¿:©—ñÜÒûORâ7ùû=δ"}èÚÚ©µ5ºû¸‘¯;RÜ*Aè¡Ë®÷þД=­D­YÛ}²ÿk-N™ôP3=äK=¢¿¨‡þê1z*žyiŽÚÿ)·E‹c»C\vہغM„±kÍ8ˆ“ÕSöD¥ 1ó æ' bˆ +Až5ˆžbAè Xwúq€b]¸e*jN€¬øÏ`lŽà?ô!Ž¢0pŠf¶„UÕ¢åžðoäô¢u3Aiù`u + +9˜ZÔëÌ!‘Ç!+ºaOõµÓ2àJWÅE³‡gUyÑì3b2{ +°;ëžsM]™ã"D cJ‡^Î¢ÍÔEN +ÖÂNdõ¢EàšÙµCUÐ + +Lç>äm×iãj + +µðáÈïËZ‡äˆÝòªðåú¶ßw-†t„ +Àúwñf +¿à[ô²‰ø¨á‚¾ì +hmt_P—}1ÑZWHž¼l]°rh]üBZà]Eð±e@C峆:?^„‡KgiFVbÎ +Z˜#¸äxÃæ±³4¶Ý‰ +žd)I/N±P,ƪ?Ò|wB#t§¬x‚ûO;Ýé“ì$“ѱHsv)Ê6ie×v5M7Z5†B[:ûvYQÂåÉu»µˆ +żF»ÑSºãTãÖ˜öö +¥Ô +pr‘ðcOãÓ®œB3rŽ¥[|´#1Ü&K +I¿Cá_ô”-Ɠ׍³p„fו͆ŽuêLå +%3Á„ŠdT㬑óyÞõ;HÙ][aù\äÊKÐ¥H%ÌÊ®/±–å%¥>®Aý +rMLö´±¹KןºsÈKë È`örr6 &|‡Å>öƒËù›„, UÃË | v +.pun,̂8u®‘ï1\x‚1]Ätä7m?Nº:« ×[3r¾Á}éGaò¶1Ðî\m/퍞cÝÆ'„¡sTáÃÌâ@׫¤E©Ï×Ù| + +çïÉ»Õu†™ñlÜó~€:[f½hc‰ˆ.Ú{F¼ã.ë +† +™SFÆg¸±ÌìO— +÷³øÁeõ´—ìmf‡Þû®ëLYb²z’{O½'Q—ÛJ¤8Žö9ó²™ěU"m9RÊÏò|¨ÑNCE/B +[^A!T¸x¼Rêåã¬ôÙÔçaŽÏEõjàœÛ¡™m¦æ +@+ 8“¡eŠ8œíî+ ÆQ“_¼„•Ú@œ+ìùPG`Æ]õÁ àV3áaÅ¡±·p^ã¾Zx†“±ÎÍËb·Ã@.×a¯;tüPè +ʕ±–@& +â'GÿÜ]z$ó;Ûå0HRÓ³cr9 +Äol F + +å¥nòg\¶‹øv†Ìe‘Ï•”ã8¶Ð©z۔˜Špc‚6¢f +ÿæ7G÷LYcˆ +¦Ÿ¿jºôn©Ü½W¦êòÕ± +©»¾Þl7ü¦mÖc‘ãö¤%a'þüÅÙÆ0ð +endstream +endobj +306 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +308 0 obj +<> +stream +xÚµYYÜ¸~ϯò¤¦¹â¥ÃÁ>x×ãÀ +ÃÆ®'4-͌bµ4ÖáÙÙ_Ÿ*)QÝêîE Ä£È*~,ÖÕÁ·€üxˆ ‰3–fÁnütüðV¾/³åo + +8g™ÖHÆ +d J‰duõð8l¶ReaQÞF\—hmhôî¾: +¡«„û¶Î»mÿÒåž&îpA»VQ•½eè‹%ÉbeùybÁIÍxäágÈ2&Cüóë÷ï¤>‚2cÐð¨_YÞÚ#Ú±SÍ2ŸÿVÃYnCú6Wô½³ßÖ5úk¸›¿Ë˜Et¯7’‡?ß¼ûøáä tÌdºXDG؊Œqî ýv“Ê°ío™„9~Ò°òî +›Y˜?=Õ/4Š×¹I8­½Rw@p‡³/4»ÇöXÕS]ÒÈÁíú­Ház·@Š÷ëXö4ý”wµÚ{ú]Þô÷m·¯šs‹ÓÊ]KûuEÕäƒá*aßnQ†UcNÐRÈÆ.¯(ÙùkHYbø÷wÿ¼>}*a±XÐ;%ü=-ƒ·³å Ӑ5+ºo3šÔ¼, +Ï^'¼ÄÈî€àÃÆIXvtFRÙQÂ˼,3z~h +nüv³*-*¼ »6Ìî.‰ +¯âÍOßüësóå‚ÜE>äÄþ¾µ—ùn#âð{ÂÊ/Ãá±\“.K˜äǼ ÛéCÝóè-WâB)ÆS„ö +E;ÞÕågy ‚»¼{ٕ¤¥]µ£c?‘°}5+²»ID‚îú²û¾ñ.û6ÌÇ?}‹ýît€C9„}mÊX’ìϼÔÛplªVÒv»¡íìyN=Nƒg ‹ýÛõÍ?~ûpýæäûLR¦ÓŒõ÷©Á-rz¦)AÕüß¡šlkY3vÿ.2Ò,%7ðáãÍõ§ÓF+EwêÓ¿:í$áµA”!!ÌÐDËÙičÂyÄ7¨¹èöó®ËÉs¬À¯˒éÍ®>iépßµônòªé×öR›dçÌg±3Ó4nI©8l+¯±Mؘm“Ò³(`S_ˆï¿4g׃˜}U”]Y°Í6áYøî~MZ!Õq#–8h~Ä­UYÓ°iÉÙKPîå; ¬¿WCŽoœŸ°¾=&ß.Ž|» +Ÿ«ºö}GI + +ª²¸²þ´ +¬ÕþŽ›• +í6sk¬TøilØE½Ò)¸(´¸¬W3±Ñ+™É‹z%ÎéUÆ2‡}ÿ؎5¾ÃL€ïÝÕcá4ôuºòB4t\h +N8®]ÑÓ÷Ù<\ƒ(ÐÑè´Ðll#)}ªó¦ +h´°uGW +ÃAâ¥?ö<î=cW ?é¡Ì¿1P6¸- +bK‡ùn׎t.†:%,®´ ;òšÐœšã +êT +­ ÈâSçÍ=?‚—ƒïã‚4ñ4Ò +ôè„Oyß;'=ù¿ƒç—Šð¢†©H12éò¢‚Í´ï@p!­¤¢Rïúq¼jhøDŒ’&L¨3Š—2ç +HÓÐîk´C +†Í/k¾(cqꢯš%Ž<\¡ãù,{€–Z}çûr°j¶dÀ£ˆ©)’ú\mùv·_ãqÒdóÆrË-‹®ü6‚ÓëAÆJhŠ„TÙ^p^ü{ì'‡hÔ,‰Ó(TÕçuÝâ<„’ý8)š(°p,œÕ£Ü~¿yэ6àª-k Ue]\V(øò؈®.kÔLLOkÅî¢aÞWƒ +ÎÞ Z@9ßÉVÔ+7¢¼ü¼š¼¤Xº•ÌÝím$cG“ ºbÔ/¦‰DÆ6¯í¡Pö͏«J¨´å"®èxÏ`ÔÊÕí É×Ç" +8CX2‹¢)kÞ<ŒunAìK„Ñ L q +rj?‘¼µÚ‡]^TrBteºVÒ.l’‹ÓS|ÊÝ>ñ +˜É¾¾ÑƒÕæ’1§5“$~ì|+š_-Â׫—–óü‹Ð$“/ëªækOlíqÜk¡GZ¹|„Ö‹¥!;moΜ¡ìJ0ý5zŵ#̵–š#Á +dô>¦]ô +æÀŒ»Òmҙ  +!8`þ²ki5¾ä5 +’#øK$bŽ•d‡³'N¹)öÌ'¾þ=ߛ² +€[ø¾Ñ¢ÖciŒÜô¡Ó›µFÙTN°o@߈ø1¾1>”Æ‚çjx¤ÖÞ¸5K”w–KädÌ,è_yÅ<@(xx:,À¦dêò>ß$óõŽÈ585¬ÎË9ãÚ/.0Lg\aŽàìs2«ø±QíÔKOäK-¸‰²&1\ÿXŒÅžÂº + + +´`‘fLx'uý +,2ÈÒÖ8X“êspH;3ò +‡Uä3šú§ˆyŠöoï­ÖŒŸ¾¦„¥1®RLSHŒñçIðÝæóm +l¾@L1œÊß +^Ïiاͧ{8³¹Œb¤ö7Ëm|r·ûŒâ¼û1Š"eDZ} +ÅĔ׷´ÍÑŸ*ç{W‘´ +=©ÆÝ©Ï bQeZI}PÇc ð%@g +²Üf§µ»| +PäB-Íò3Ö#MqÇèÔ¨%–_Ïh¦Û ð%<çý +ž"Չ:çÄcðIX&­£*ã Do1§5÷Ååt_\M÷Å +V\ +ߌU–þöÖÞà_üõ`áAIFš–¾^öüûÇê~Xî; +«G‡yw1Mfb$ø•I½ºÒ¡!4þµSæÃ~1„#ýSWÞcX +!¢H¬°81ö&ˆ‚Öcni§¹ö‰¢OÓ¶ü«òǼp‹ú¹EDZ‹<úkq%®ÜZ*ï´÷ccÿFÚƱ +?Al¹GmJW+|²íây6R²(™óhTœØ+*‚6 +Sy†¬Žà˜Õ£v¶Ñ·c·+ižÞN6eÞYmãpE +MSÕÃٜf.ù”0Ù?À<\LŽc0Aœ“W¿h§QVâþ-Ã!“”cƒ´¦&/²«gÙUä)TO³d؛_lÓ9ãO$Žçý'!–90ŽL• +츣­œ"·w<ætq¿þå?ʝbz +endstream +endobj +309 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +311 0 obj +<> +stream +xÚµV]oÛ6}߯àÛ( âÄ/}tOiëlŒd­Õ½4}m: K®$7ð~ý.y)[NìdØ +˜yHž{îá•È7ÂI?NA’8ciFò.'?]+Â#–EÉW€E̸$ùò +Óàkþ ÒBHΔ E$AÈ£(¢WÓß½z7ÉoÞ_MƒPJI§7³ +{w׶Uôúóíûüæîvæ6ääa©&ö̘3 +QZ2­†çŠÌÈG䘮˜T±ç˜h +³ +Êb7]v»Ú3’pÎ2­-ë”ÅžiU>¬{ ¢#º4÷×&P]ôeSÃ(tç{œí×;³Ã¦ãà +Lq¿éÉᑣʣS=y”2É + +ԙž`ÇÒˌAg +ëÏ×#Tá¥mSxB"ÔBÓ{Šíö +¶fh7¾³å +üü2m1>¸ +$§.wÉë˜Éôd’EÆ8Óý€êʃAš¶]_´6Mˆ©M•t +ˆ„îq +H +{‘º€§D»Ó~¹ùcr™µJX,NðƒäÀy¤¹ˆ8*ä ÓÂÁ¶g2ž”7ƲÙÍ+óE~õ¸ñ¡à]p©Ç•íX‰UÛl¼&óδ߭¦E)úæ¨^¨{º«Ë +G¿[¡`«¦½ΆÀeÌDb[Š=Ûüß1̃P¤´qÿË!‰ +râKñ +£Qÿ(šÍß +çÕX@Þzaþm(ÅοhÑ4c1^ˆO“üó§Ûɇ‹.MR¦Ó“%ç]ª¡hr4kŠ.åÿQŠŸ‡8¿ +n³YžÚS¾œÐKºH¥YŒÕïö.ŸÌ._](íêÿöreM˜”€ÓáÍÆÙåJƝ³FàÜ +‘d´kvíÂõSZv8¶mM·ÛØè퓕ŶÖ/°_¶âEij«B_íqôš~]ô¸¢ìýÕ!¤3°‰›Aoº3zà ++ߋ¢^>)ŸÏKKÑú)Óu–$”ß²¨ª½Oõ°°+6†½&²Š$Ã)^ÕøˆuKŏ~òïeᄶ3 sßeíŒãkSãL?,.ê‡Êà,^XÓ[yÛ}†öNuëüž‡9òÇÇ>mƃÏ3‘+ÎæÀ~=5ö +_3v.§œfà +'šeIjuHá½#‰b +YÏï¢b€¸7vgAW£²~ð7x̟¦mpdÕ´O‡:³-ÚÂj˂P {G½¹9]Ø(×Mç +[[âë¦Zâté|,ûu‰> +Sí +—ÃÇØÑ*M5”ªÜXGÍÑLŽ” +îX +4ìö]o|±-¶Ûª\8š +{R/Î9ܔb ¯[îβEû7³Ü«¬ökSûR¸=“žŒe~Ö:é̾Ey¼w¯3,ŠúøÒqEÄÊtr +Þma¥Ý©¢‡È?þðóøh +endstream +endobj +312 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +314 0 obj +<> +stream +xÚ­WÛnÛ8}߯ÐS!#ÞtIžœ4]¤(ÒÖv÷%Œ¤ÄÄêVIN“¿ßáE‘\ÈIv°(r8:œ9< +:? +ìðÃNDœ(LPœ8i霭ãOÌÁJ‚ÄYß9ŒRÇ'!ÂÔYg×n˜x7ëÏÎÅÚù領;¿À‹bÄ#§t§ˆ³á½pVÎwã3q0C” +Ê'ØG\™)wR쾕G±û¨ý +"ÔÁ%œ+[ +($0EÙ6­Ç·nÔÞz>e‰[Ö½¬+hCßóh<èÚVž/ +œOqBP̬ïG`qÀú4p +L¢Èq#Šõ”óŗ/{¶ÓÀÑAcj~b!ð‰•+ <¸JÀˆãÑó9áîÆ5Ï6=2lh4íÐȆƣm´COÙ­úvh¥µu흾¼Nž n2¾PÙ9__~½:¸Z +"ïM2«õI‚0ž®ï[ +ùóIlHé˜@h‹*S +æ6¢d +½ˆ‘À[ĵÛ?/ÿº8 +EŠDSû!n’ +  #ĉ6a7=ÊҙÜǃ=Y½»-rk4ý2 +ølŒ.ϗ+³Îëáëdʆw›S°tO=‡‘z +g|ã%ÌÀÞÄ/½(ê{ә›€CâIä¦ + Ý­ @¯VdRTÝƛ +ŽªìQ»ß!Ë +Ö +æÁ +?y€;í©A}U÷¹1LJpÓ‘h·Êcö +Ø?æéÿÿv¨ïsØ@Úä0íòôÍ Ú‡÷¡cP: +%¡ìÕëӀîŸò¸;²a5\íd/Í“tygÛæižÉêþíá,ûw‰çK²ÕË27ðd¥0÷9ď‡î°ö»ZÙõ}ÞÀ +Ó +¸Ñý7 +×·oZÑ5½yeQ€Ê. 6Ïú¶SÐA!Ì2‰M[Ú×í3“ví!U¦Œb¿¼XÿX^]|<(ÌQŒx¼7e^˜9ÔØès<"ÕÑx§`¨ƒQ1¯z‰Aa2 „½qϬ†3wWÉ~Jm£×"“@eŠ«¯ë‹Õáó*F!Û³?9\hDˆBÆ ˜¡æÐÂèð95¡&Æëmþ=“6­¼ßj†vˆ.Í«n´ê ¶`Ìý{îxà Ù?ßf4¨õø³vôÛI¿U;æ g +#Â_ö +£xÌs7 +/DŒŽNæÎ[ Kh-ЫéPŒ6.y= +£ñڋ©:©iò¡6" +H)3ÓÕëlE‘[åyfZwzkBC‚ì•2¥4q<Ú.7e¥&¸ÈUˆ€­f +*̙ýF3!QŽæ’•]dMì§B·+áÔ1žE¥µp§E†J³¿²]¡AÚò0¤¦þ}V¸Z =fÖ%æ¿ñFžy ƒi]Âa`úïÚº4½v.³ÅŽ¨î­u‹ ÕW@¹aÓêYŠ½ªO4M!ut¡^ÚZMx”%¨Bñ¤òs¤ÁSØ»Î|B³uN<˜YÙt¼ëEk†DÿÛФ~csõÛëüS»-ÔÐèëü­ +¤â¾ne¿-­Úu:"Ԇ zªºòÛ\%óAv½LOà¦Å€¹u`×Â]œÄlždÀ Ä2hÑõºÖ®+ȨÖuÍ +Ãín+E)*‘ÎJܯ†]yd/ùðM|C3Ê#SØ?çëŒae­i}瀞oEÓk’qâRóкc?Ú[}hC×Ó³Êe–+X¶{ãØW© +gâ.ìDQ€ËJèb&ÔÅ +ÜJeÙy™›ZaÜ +{„ͳ¤€ÐwÃõÈ,pµôø.$&b¼Ÿ1i'ÝÛ:Ê*ø ä‹Æîª*“¶J\<åûÿé†þ¸ +endstream +endobj +315 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +317 0 obj +<> +stream +xÚ­XKsÛ8¾ï¯ài†ª²<øœœ¯’õTÖÉDÊÌ!΁¦`‰µ©”mí¯Ÿn4 ‘6e·\®2A°ôãë¯ò¾{Âãð'¼Xzq”²$õò÷vá½zx‚³”§Þâ$¦2bBy‹åW?æ“o‹ßA"éIH%X AÐHL¦‚sî¿ùðé_oÞÎW—o>L¦J)ÿÃÕ|A£ïðøï¾\_.®>^Ïͦ³ +÷ÝcIè=à™‘`aìm¼ T, +Ü{éͽ?HÇÔSAduŒCC +Šl÷龫o­¦RyB°4 +QPfRµ¾musŸuu³}‚ÔßNà_Ý]QW4“UK„Ü¿×e_ó¢Ûۍû +Ȁ38?W¬2ê +>ô©à SÂȃ‡> +dûîW)ƒA_ü7{~ؓš‚‰‰„Gˆa +(1 +eèßøô+ªÕ·ëŽÖ;xÜÚÁÞ +Z7èÖºËÜÊ{»ëäõm +SpÞL”ðM°OZFL%ƒEdéT¦Lˆ¾mŸ&2îÅII'€Ô=~ÂXMá ÁÂ×=ÉÔw$’;Ý4ºíš"+i‚àPT+k» +÷g?´PÂ[ +¥Þ_ý9;m\³Hä]Á´^ +¥ÁÑTÄ,”FÌDl$â<°€[Ö»ÛR[¡þ©Â}Šn·ÔdíßdË"«Ú +z×YÛM·à¶„Ëšnm¡] +Ñ[V­Î»YY +Oq–R +ʖ9èólñåóõìŸ'i+NX˜ +–ŒÓVeU{%”ý÷?刯òÛWõíŒ;z¬TW¯~Àðô)·ÁÅ n¬w6¯œŸ.¯>ÏÏ9(ÈFæè돋Ùü4©', +ò¿®ã1SʛPÇcr‘`§K¡0Ðê / +–Ÿ•­±, +"×Xù‡â%ݒ'ÁCv¯š„‰ò:ðý< ܊qžbg­¼HªÕòI#f +¥ûÜÕßW&,‰, +È4îԆÁˆ +8fHQÑÈf +„ݼãáqý¥.Á¥äQx½ª +‡ëf£aI+®°éˆ,Ëñƒ[qó¾[©_1Êö‰ý +;ʌ{'T&¹ÍÁð}1I¤?ˆo,ýϽ ÀÒù¾í´uEªö®ÑKZž™VÁH +NÚè¦0Ɠˆkß%÷b–ÆÔ`ÆØ9+–„o¸ˆF"0µr¦5¡FÔ4]ÂZ¼*RNãt€oñÀ9¶¥(÷¯á[ÊýVkZòïüÒ +%2.û)õyPíf7¾ä +Ø +Œ¢Ð¿\g[p!í²1^RØKZØ´c¸‚ž2®moi+ô‰£â¢HSHd +‰=Xö‘âEÆ +üÜç!6´ó1À3¤]'qAPC<ãé=æ‡Ù‡u‘£Ó×ø1rå˜Ø²Å92ɬ„©Âpò9ÞqŸM±rÖöypM³xqý}‡¾`àÂ.vdbaéo²êÀÑÒí¶,r{0`$fî©«£AãH»Üzfd‹ˆE?u‘:6¡›‹#VÁ5å~¼îCEL~ +)¸:ªÊ3[¸©´<ÚêÎònMÿÕM}–SC +!q[u¶rô„¯îF½Ì¥¸ß· +03®zÉ!Cå¿o´6á|@Ð%t¡‰*Ðre{_œi‹%ЖX–MóEü•-i™Ÿ¶áÁïdž?˜†çÍ-ˆCSÈveçr”ñA†Š*`KÐ0zR÷`Æø=–%q¢ÙّÅ1}'lÐlQ™6þ‘&L çÒe‚2†Û¬ó +Ól +()ÞèI䨭K±'„,I\RŒl +ˆ +ç4{tNȺá¦SD,VO·g^N2n\cà|hò^­T†’žÖJ¼jî8é0`]õƒó> +S3$ÅÉÛ>|ÚUE×Ґl4(j&¥¥Ic(¼}Yiu^WKdVøUÝѬÅOCoó+ZD²†ò8èTØã +{®*‹ÿؒ‡3wh$Ü<3{;<ÐC.AÍ&ƒÊ™›½ª +ˆa;Ð +0 +ÐÆݏ›Š$t“D’²ØèžÄAöÚô5 h©ZKwU9ãx:×ÝÕœK}'c»”"´Úm,}´àÐ0áþ¬iL +Âçæzkk¤q{coV]lFZ/ +{rÌÏþÍF@«pÈÏ"Û½_ÊU>’¦AÊW +îvUŽç_<ù ëIËs§kF{6®‘ +XLÁŠÎ¶'<צÏM`Û˜ò؏Ô6¦è +5×IŸ°FÊ#%Í +·eV¹_ZÁŠùÚ +!ïƈ»²C}Ÿ*!}Õ,é4`ç3¡ü/ÍmfÕø +Tœk¨;%´ +•íÅÁq@  +,v‘ºÈƒ;þøÇߣÕ×t +endstream +endobj +318 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +320 0 obj +<> +stream +xÚ­XYÛ6~﯐›5CR<¤}ȱ)Òi›º}©û ËôZ€l9’œEúë;#’:våµS,XSâhf¾¹ÉàKÀ +,Ð<Ð*!qd»àõ"xþNŒ’„&ÁbÁ‰Š‚9W„EÁbýw¨ÙìŸÅ/Áõ"øX·Àe®‘:ØBFD +ÿ\¿[žIÀ‰„Bž@¯%’!»<=~6›¬l™>Ç£€1’H‰„L +¢Ð#a5Ih6ÕLÒ0͚¼ÜÏæ¼Êð}¹¯›tßԎËP0J9&#i¡ÕÑ`PŽQMÕÒ¿yõñãˆvh›(!°’¿pòå€jxb?’$c +æ’ËpÚßÃö^Ùe“¹Eµu‹Û¿1›´_® +‹ÙˇñÈ}ˆ²_Í"¾Y¼ÿõÓITR‘( +}dQÍyBàxkSíò½?DQØlÝ"³Î˜qva| qJ"æ<òÊQ +U@‹ùýt¿žâÁáܑ¼žbÁ‰Þéû‘†"L›]Y¶¦Ê3»¶¬º˜‚ç +8‡ÇáÚ:‹b";‡¨jY.)eSjµA + §ŠU +ÁO“¶ÄᙆºM´ðÔ÷šÈøŒnûÙä÷°bÙ’IÜWAº%DË@ ¹&š¢ä÷¼£iõœkáEb|díI ‰:×X +¤s±PárY®jS}q +šõ»û¯ÙçÍÖ®×9iæÉC¯'‚U&ò"ˆ!S‰IìIÒ%e‘ɳ¶2V(ý›]÷!¶œY™ÙíÖ©`bP`’3á4aƒÛmÚX Mé$­¤Æ>XG„K´4z?¾É­©0þyŸ)ËeS + th3"3{$k sžØT9a9à¬ôÐróHj›‰2¿¦Ù±œ@#¬=ðÌ +èœkï4ò`½ãšaò#“Ÿßÿu}ºÔ MÑ¿˜3‡z +‹¹Å[2(Ö3ÉÂt¢ÜCç£>AÖåqU˜ œÐþ¸šCeêúX¹âÙºnX«a\Yç,ÃíoX\½t¦††‚ˆ>dØtid¾Äìò¢ÈWiƞžp¢“aœ4Ùc`Nwh•c4Å!BfœfwhƒÌTic +´5SÎ °¸c†É»67•1µ}|cŠ:?Ö' ±H®‡ªíc@ªL‘6£$Ú¢“Ž»|7ˆò›}{‘ƒA¸Ýܙt_Û¥O/Æt +“ +‹Çv‹ª¥ˆà+þ3 +Ùßø|\BeU¹ÃIÀüTVF*"‘ +>_/þüüéúíÉÄÔ1v±á'Ӊ)YۖûĬ0-aFºøgÿÿ›î›hf +§Ö ²Ü•Oïç*]çààSnøTBÕÂ[=6¼qûVAø¹öÝÑ<ª +NEà1jŽÜ>ýº¸þãtMq@Ò¿8=ÀkÁÙFHj▖‘Ós1ksl@¼À”ÙqQ·ãbû¼J +ìRµ}ª]UéŸÛ¾ß.²ì3Á7û„ÍûN,( +o¬éœK +ãX4Ž;¶Ô–ÙáPäYŠ†Û¹ +×&7 +Ɛ¯±›²Ú¹HJ[–¤ +‹ +ßâÌÉE“7Çu[Xa¯ +0€v_:âCZ¥»òhý -^2þf+٘{î8ìÒÜÃo;$¡( µÛOï«[¥û×ËMwÀ€šŠ@¯Ü<ßNRØ=ÑÆÌvúÝ•µ ¯Yå¡;Ïßvß؏Eˆ%9, +ƒlMâ烥'^øãQ¾‡4Gc¤Ç%úÔ¦,œòýÓÒ{sS´#æ8¬GC€¢˜Äp6„Põ#6Ó§«-ÃYmH¾5ùÍv¥©³!¾¶¸Ú¤V«ÂØ×ŕwDZ¹F·þp§åUf}̌óÙxþɛÚ›—ç±AËc߁­'Ç6A}5Usa.îŽ7§~å‡òÎcèÒ´i`Tõ»çÔk°Èö`:Š_¬'ÿ:Ã<®r_l°9ÓW¥Íûñ¹·HµSf.s'›ÆQÐç_Ïì +ks&¥ýíÑE˜zrø}½ªGÕqG­΁µ/KfÇþ +*:›Ìâ.™í³ +–|2uã£üXw‘Ñ¥Á½4ç}µÕ°ÎÌMüUTw¨|ÀÐò;‘àPB©”®Ê⃒WýŽ–výÁî{G9ËàLx^a.‰Ð—+ܓû4öšúûCڍ2Ш#£Œ7Sé,ð„?ï¨ +<.ïóùï"~â>?I“õwè÷ ým¿¾Ôþ=y_ +j«uaÂ%¥ +jJÑP»ú²r +p<²GŠQ3}39¯¾TDė«ß“û®S_yÓ½o¾•UcPþ¦Ú0`jÕ +èô]Ÿð‚ѧîjÅM%ÏäÓq‰†Zq¨Ç©$g-Вär +ôäwÛõJ¥z§AÆ +ȉ¨l/ÏEyŒ©ÚG¹5R>ã +#Ž)û +o»;$@jo´ {¸¦á¤ñ˜~Þˆ‰ùæ¼CbHÃËýÑQ_z@»ìë2;«“¦ÑÅyڇŽý”ˆN +åV0þ3¥?ü!Ÿ¾þ‡cmÔ §¼§ú#öîj4§»ÖîaüþÃuv +R +endstream +endobj +321 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +323 0 obj +<> +stream +xڝš]sÛ¸†ïû+xÓ-5añM²wÞ̦I›nº±÷¦u§ÃH´Í‰>¼"•Lòë{ „ÛñŒEAïχä)~/Há-*Ù º)6û⧻âÇ7¼ 5¸)î +ÀbM%"¬¸Ûþ«¬èêßw‹Ú³ Œ NÁP[¬Öc\Þ¼ÿÇۛŸ~¾{÷úæýjÍ+ß¿»½3GÞ¨O^¾ùí—×wï>ür«E¾3Ήô´%C¤)֒ ¦Ñú÷“ÀÜkE¬|ëïÝ¡ŸŒ×m?ŒíaÓ +æ+Ó©P\T¨©Tÿ#Î +†1ù"r2ò½pT±bí¬^=~ETHÔÿ§^•Ð«®è]‹«ٚ¡ªÖÖ +%mA´òmïž: +¬Ëv³9ŸÚÍ7õ­)¿š`ÂÑ©žWkZ—Ýf4–ãqú¥]Ѫü6B¯þð8ýöt:ž§®­ù؃=n»ÝÔ<îÃóSwê&_J¦ +ŒÀÃñ|ؚvð£N¦%aH˜@|2C1k'ÀÇÝî¨D¾¶gþ{XS_ +ÂÌ)®Š}A¥T¶aWÜ¿^1§ª)˜ûýé¥yCQ˜ÛßÜÌvâq M*¡ú1õ©Níëñ4Œç +#Ê=®aÙeQ8øø÷ÛKy +'ïE‡.D§F807 +)sNTPöAJýÁû“”ÀŒ¦*8ðYé¡ŸÇ~Óî~|÷ñ’¯ +¸óá,ù 0§XàCÒtð­öLcQ[p$™¯]§綠HÒt$ +@,˜–¦*’’"¡fZ÷fœÚmLGÑé‡aM)† +V ÏH“£âšç +"u Î›t xÙ +@ +⛛†”9l›TúqóŠ$/Î܋«3¿F8QÝ¢úD÷pmK†ÑŠûq]‡8˜n‹â6 +N܋Kµ +˜›†ÄX¦í‡4nÿy³ªYy<™ +ùøÔO—ôçö+þ¼k§_†n4™ÄñÁ4lŽ‡m?öÇÃ|ÉOæ”Zùâ¤Â3ßµÏôٜÚq:’H˜±üÍ|ÿ¼¿’_pĸ¿c<‘ÊI•3˜dŠäO"N^žyæ»vìÇóv½À—£,p•HgWÇÃ¥Ú1^<žÙ|èZ3”]÷EíڐdÁuŒ‹—;›ÍŸ!Χéä!avDVå^yþ”w\Á¾V¿Üñl>vû)o‚™ãP]_VHê©"_”:«×ù‘«5F^>òÙüI +æ¼ïa}­`üßÌÈküǬO†5í_êÓ379 r÷EýëvÝáѦó¢âfÎÖT-jó™ÿèƵn\»ÖÓ +¤WkUfŒOv!wÃy7N×ð+K“‰2'”òjBYk^kÆ!cR7õ"i¢ +¥µ†;©v'×»ž“OOê¨i†ý€‰Ê&¾÷˜âË]®T0!fu×àËÿæz4ÂO" ˆ + +FsjuÚß]Ž¨bf¢:¶aÙEÕ¨Ùç»èÛóÇîas¼² +ÂÕÊó`¿_86AHÅx +8¸m[¸MÜûCw¸pâ Z/3åk‘õ(ׁµiHXWBÝäÍs®Z8™T6R­è¤ÎVo +óÁ*Ïė¤ §*‹ó¥a›N³uêö’: +•¨W{FÞr´êŽó¢8\p‰È‹; V}&D¯Ü¸X"5d þª5½3„j°ËҒµÒ³ +"O[íïiFN>„–cè_¾ +båCh9H¹Ñ;(V>ÂvÇIéQ2½3”àÜl¥, +É)GÔ2fi†$I2šÕCh9Fù ‰S‘åâ8IÈ©GÈ„ˆD”Ì„¦Þ˄8¡jHú¶o‘•Ž˜-#òµk¸B§9ùZ†Q¤Ï’¬|-)R'iJV>– DaöÖÑÔ;C‰ŠéÇôXô*$« +QË@rÒÎ[¦9õZŽQ _'YõYQfìˆU%q†˜¿ŽLï +!ÖØÇ'ba +YéˆYѬ­žÔiFN>„–cè³ä~ääCh9HáèÓYƒ“°%( ¸Õõב靡$(27Žba +YåˆZ’“†¨&×Íê!´ +£@¾I"²ê!² +¢@\¤ YõY‚P +Õó¶}D,CHJõÄXϖ +ud¥#f +º¹Ä՝«XÈœƒ[ÊA#ô{€ØOr²ú!·$'ØPšKù +ÌÁêGè¤jýÈc‘ːªô;NMja1Yé]ŽÔ,N(G”¥I9!º +©ÈL’²ú!¹ +©H~”ՏÐ%H5•y  +’ːjâæ Pµ°¦¬t„.Gj'° +ËRÎAˆ.G*rÎ!¬~H.G*’_Èó¬~„î:)AÂþš2½—I ,í«öŠ&I9é]†”'Nª +±t>>;ÑeHÅ’Oœ~H.C*–O“rúº)X Ò[SSï +)ª.ï†O“²Òº +©Y\íÿL¤I9!º +©ÈArM9ý\ŽT$OÓ¤¬~„.AŠ©4ß#ezgH1Žð´¦dš”•ŽÐåHÍâ²U¾@Ê9ÑåHE’7¹N?$—#É/²úº)AÔ£æ}D.CŠkcMªN“²Òº +©YœJhâiRÎAˆ.G*t@“9ºÓÉåHEã_¸úYý]‚”za-}6M?˜[u +m?U·Ü—¤©Åý +åj<%Çê=ˆ +z¶ÈÓ3¾±¡j±ZÑxzÿIl¹»UÈ'+Çr¥êK€ +ùÔ¯ÖÕÁ©=<êCZbõÞ´ݮۨîªÝÙz%}úû¦ +¦®­*ÕúƒùÔ/é¯P†Õ¦Sóߟ3H +àúƒí«ók^õÍ +­Öœàòæ +Z'°°:šÚë>Ǽ<žÇ¡ßN_LéÇÂA +º375PxºM4ø–¢)?έÛޖܞ†þx0½º{L˜R{ß)-û©¼äxR3 +†=^V˶¦\V×ƚЙ:FUÁüåí÷©ÙLoÆËC÷¨Ýmó“±nl•ÌOÆÙøÃyÜã~PKW€ðù¬ª»°Te_í¾ƒU=˜ŸÌ¨à`èº>ËÝ7cºë÷=ŒÒü¬=|î[ˆ2üS3ËB×ö¡3]€7—"ÅÎõŸÝéJqX2ä*Ò&"û~úO»î• —ž¬º ­=¶âü»ÒÕæSƒ +XҕÐS¤OÝx> +¼@ÿú‡ÿvi þ +endstream +endobj +324 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +326 0 obj +<> +stream +xڍVM“›8½ï¯à´Uc} Á!‡$•ÝÛ&¾Å{Pٲ̓xRù÷Û­– +žaj\®2BQJ0-“•ÐŒËd½ûž™ý»þ;ù¸&0×3´Î™ÑÉJsVU +¼É¹¹Ïm䙣×G—­dž§û®?e¤—Æ^'h0FÈ`ÇKoǺkñ§YQ¤öœ­`Yw èsï†áÒ;‚t{šý +¦íèÈá\]Úíd6®Ý m—©ëW~Cy²â’ + +cA'R¦¶ÝÑ`¶âúY¥õ¾Ú +C7R¤û¾;àãϋßUÀmÒwŠ+ø3›Œ¦|H€ü\7Mñª›Œ½ÊLÅY^ÞÍ̄ö̈RÜ2#JN̈R3™¥@Œ"b4ƒàH̼V"=ԏ1¸$˜’7$£é‰O|ó©ÆâŸqÒ»V’]Jò1ƒ.§zWðò›f##zÛº)³Fo²zän“ +V°âž¼s‘3~âgpê ØDïö½ +Ê|Ä荏 +3ŠÅ›±uO0¿ +$€ +³j¡Í³Ú| Ïc7چ3‚¤¨&NW@§ž÷Ù,ïÊÞúe‹óǸÚt‘VȨ~ï–ò +ê +i¯ƒ:˜»¡ž./Þõ2™¦@]# +NT¸Ã”s*½X¸>Þ6ãõ¨uºNÁQx%äŸ?þ +“m +endstream +endobj +327 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +329 0 obj +<> +stream +xÚ­–Ár›0†ï} + +ÅŠ8ڎÁÔ©-÷R÷@@N4c Ø +¿} +]‰ +I;>dí·ÿ®vWF/ˆ [~ò +äC+Q’¡)EŸ +"¶Ú!¢{¹ÃtÆqM`ß3~Ò¥Ü\ìp=Ï"#¹±Þf†x2®çߣ‰8˜F«¯›ÆnN"âY®7nùcb +agMˆãáÉÃ`' +W¼ÈË+ÓKiŽ|"È + +ÔMgkðã;–ﶂ¦±8',7œW‚'†éº.ž±++ +àuÍöL°ôòFqµ< +x܆“֝Ücéضmيy½ +Æ˸©¦£œPdÄÁ/;ÌsHSYd]†že˜%¼nR–^Ô +씵ÂdaêÕÜi¹ƒ¶L¯€¯ÑyoE·Qû¯è×5M8Ö4aKZ- +Bž(ÀM%«%iy=Þõu÷g4¯£©ë}˃7ª¹X4EâhçµûöõBu×À;àï©Ë;‰”Æ_=P@Ս*Šôf:ìz¿9çñń¢ýӏÒaiy±¥Dașxª%1Q±¥3õŽ†(DÊe¾ºîø•{¡LþCúöé7ˆy¡— +endstream +endobj +330 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +332 0 obj +<> +stream +xڝWÛrÛ6}ïWð©Θqá­oŽë¸‰cDZ”Étê> lqL*I9Ñßw +Yr"U™Žg,h +,vϞ= +GÿD"JáGD +ŒŠ¼âeՋèõ4zõFG"åUZEÓûHkÉs%2çBEÓÙ_¬È⿧ï¢ó)m®"¡¹Ò9nN£$¼ªü¾*N„šÝÚ{Û[WÛáŹÝK2®³(©JN7œ¶­u'q’¥%;ãŸ9.3ÁŠü.æÞÏ«7Bì¸BðRBÞÁ0öq–²n9_M +g’™œˆ’}\76c¢y‡â@N­Ÿ\ó˜Ù~hÆX–l¬»§ßwnÖ¹°y:·d=eÁÆyÛ9KÛoz; +'þÎD¦þšD(žeþ.ÕÏâD)ÅìŒAI(€»ð§Îzã,Ü,óŠÝòKÄI–Š]Yû8óÏaU¤€ž +w1™ÿʲâJnG{p +fê±é +x¨Jv~— +eÑZš*Ö8ú +\\ÛÕÁÇC€JÆÆE7,çÖ{´{Š ¡’z[YJÈhœw¸d3*[¢Šò;± +ˆàù·¥ßiûfa/^¯”d7s,$2bø-N´Vž(@ÜåÍäBÈ×'´:­ÍÌ.€Aþ›¯áÑú)×Ä㋦m7Žf}c +®5;çdÃ"”ò Ÿ—*þˆ[ò¡&ü°,è7+Øïkg˜Ä +b« +ƒzõÿæVI^ܽõ=Šgoù§Ô|JÅ¡”RÁE‚˜`*ؚÄ•åÛ®uÝb½' ЇBîæ ٙY`I¿ôÍìÁ’‰úµxѯ? ð™ûþèæÖ=’§ÇÍuüO~B™þJ^'«[ÓôLùt‰ +‘¢ivíáíšÆÐ¥¶FËÜ5õ†ž×ÝhiÃu¼äêhĪàUé#¾l¡;mï;¿`Û?؆֧¨yAÉ4U‡Ê#5ϟ6gKj_è{O7êãŒy«mÍØ<5þÍo^thžÙ°é¾ëqQ0àÕÕ»èQë¤~Òy³©ÿŽýšœ¦lXR ‡DCI躭jxÐZHïj2,4ß»g +Ò]7¯6^„ÌöuR¹ +3¡è"+ÓDdUq´V +æ©öG¯ê3ӏ$<Èp¥´0ÒETð‰²O@Xø]Uì"lðjÎQ΋4¥ºêu•Bòr“ÔÛóÛ zÊÙY瞬CAÈ°!Ǿ¤eÆe¾Í# +ž`¤¥§sùLg4{:“X‹œËr·àŠ)@|½r3;P;Ô÷^ÇïDQe +¶êÉ| Àu½YÎK]²raz^Ø0%ü! +#È +=V@ÌO»•}ð +¤mＬiÿòh+uÊÓ|;.Åî¸|‚už±·Ý7Z¾‰‹ŒuýbÕÿGM¢¡?Ï[‹4¯Çž; +7ü]fœËàXÑ8€I7Ò¾6À*zY~Ç~?ÊͬéhöDMkðÕø·kl¼Í% ZŸÍ“=4M2±C8Œªz_ꉾÜZšÅ]ÑA +'I^ú’MHÿ°`ð˜jéq¿]à£kݸ4å!\Ø3Y‚îÉ|’!”,ß:€saè¥â%z=Œv1ží{Î!«èùBm¿†cÝ +ôËÏHpÓÚ!ŒÉzæìÁpºa1mcŽR-«p†ù8vþñæhçL;£Îv^Uþ<@nð:~Ê'üõb¯z‰<ߊ“H˟”¯4 ü*_Jd +ýÔ1~úƒLlXJ?½¥)°0n³ +‚Çë*vi³ +YîȘãI +O0ǸÜ>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +335 0 obj +<> +stream +xÚµVËvã6 +Ý÷+t¦9K²ä8]%i¦ÓYL3¶w“YÐ +óT’rì¿/HŠßM=Z¤ð¸ÁKøâ`”£| +]Zw³àêó0ˆÑx0f +àè'y§Á¬øŽòÞÏÙWà¸ÞâHó$Š¯ÑpŒ{ýñx +N +>?L +¾Ý?L­Àà +ƒx¥ÃÜ)Îãh<¶b·MÓë§qÈꂯozýl0 œŒ²P²’h¾âJsŠ'«žá”Š‹Ú + +C±Àzɐà¤}¬š^:×ȱhkª +?Âßs0Í¢áµÅ1³²$TšÔ‘ +Ù¥áôïϽ8 +„·ø³‘à&×ÿWB# A‰†HR–d»ÝµŠ)ǎ‹óVi¤kQ÷÷¼6 +„¬zÉ(lûÖ € +§Q–Y؆ת +§¢‘ªÓ +I‚D# À Äm ¥-œlp'ÙKË%«Xm +iõúy’†_˜dÈÀ½:g«­'#Š¸§¢EQ&Á{ +#A@­ª<‘ª)9A1s‡¯\/ +•†Ê„y2Ê-à<í²Aþ +òÏ[ºà'·qÆEmTòÔ¥F¾wpÐÝ +ÐxwùÎÝÁqA4AjŽ¢¼~>ô¨YZLÊD·4ÐR°fù +R|^²_ +/Aãà5HFQ2 +Ù0ʳ  +†É Û•Á4øŽe“m¥« +£ +söW^Ó²-À¿,ÉÂOJ,H´üäñlÙV‚Ȃձ~ + +Ñ,<”ô‰íÃâØa# +—Ö"À‚òފÊÓ0lÖG$å꘺J;óéÏËÃÐžz–«€çêâPüâ¢×٠죝,Ǖe¦ ! +Á¥Åå—Ê9„Ëúÿ‡tÚÀ#„© +ËՂÅ]»tñµ}PñTݪ·ÛnF+´Ô[¤TÛ4Â4 +³ñmrÇØð¿ýÉW¬¾9ΐä˜ßuÌ>]쏿î'S´=¹½üƒQç½ÃC¡ôKñŒÖºDò)”¤€¶¥\¢ +7ÚHGìXœÜúB: +ùN÷Նù; +~ÚUA|ÞdqÌdç×ûlž·°>fá­c¢:"©bô¬"¹:¦Èâ(Q͊•‚r½ñJÿ©®”ë +¿­\8øÂõFYù<ö +î5‰{9p**šWÞJ +oÚÊãz +§Ó;äkkŸ/K›ØÏˆ•˜ï€VåËezçŒ +\Å\IkŨ²‹n{ÂÊé +™0ÝʚçŠzç tT Ñ%> +˜èvúÜueÔÖ\ocÞEúŽZ6©®nÞíÞiE¦R,;֝K^ûàöʹ9¹½*œ7’Àáda¦qT¨'S^O½ +dþh›LÞ +òT6z° +Ÿ¯KæE¼N˜geɟ—ú\=2B—LíKŠ’8½j£4sO×œÈ +eÇG +N;‡]¢“·Ñ¤³Z3ÿPt^q°eçÜË=މ€‘Õ1±Å’Î'%XôÆ|ÚsUÙŸ½ºõ­DÑúÑÚVäbÏò©›‚¡ÖŒˆˆ_Šê=(¤Ôs' +wÕ]»™¿jÒÀÐì#)Ö¼‚â,7.8­êT7»WÈ.šÄÙ}»_‡oãG_í{»ïH0ÿå_¼ +Õÿ +endstream +endobj +336 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +338 0 obj +<> +stream +xÚ­VMo£0½ï¯°´RDÒB€@(Êî!ÝtUWÛ6é¡*=¸à4T€]¥Qµÿ} + +äCé¡ÉÁcË̛÷æـ^‘tñ7c"gìjg.òct¾@Ãß2tÍÕ]´X"Ë2µñ©æX3Fh<(ŽÓ\\¢‹ +Ül·6›Žf:H +šëV{ƒ¾xÒ´•ç׫ +4 +K³m]nH} +aÞWmÓR§AîgåÄVèRŽYAeÀÔ7âg”§U²¨Æ¨ +v°â/‰˜º^æe„Ë,1ÍBšÈ¸³•ŒÒG‘Ê0~—k+œQ˜v—†™æª•<Œ‰Œ–5c°òS`ˆ×¿æ{@–a9¦wW‹™ +½j2œMï翼¾TÝь3qÄP=+´•›_*œ´,Ù +š?EŸ=Œ +ëª2¸oÖKMÄxMô^Gü­ŽŠ tm«°á@ý‚ßF®Vb |ŽùÚ'I&l¾m£ÎñM3 +]Á •3 +Ñg9!Œú+­Ó + ²iyýAe¿#”æ +û¤ÍèH/*š»q¯ž¼1]ã¹ÆrÌ.ÿèꚾ»XÚº¬ãL× +·} +zµÏ-¥·1zoãôÞÆ꽍×{ÂìM›]G9_êÆ@Üʟöߞsz܁ðR9Rt½ònÂvÐw:7o'»wWsåy +´·“FŸtVÈaT¯ž€ +ÅåVMin„=„²o*ä-:Å ëŠ +-:OÿÛ­ºz‹•¦‡µ˜>ݖs;øèxEša¨¨?6l{¤96Š‘eêÍ,Bstƒn¾ýyL6 +endstream +endobj +339 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +345 0 obj +<> +endobj +352 0 obj +<> +endobj +358 0 obj +<> +endobj +365 0 obj +<> +endobj +366 0 obj +<> +endobj +372 0 obj +<> +endobj +379 0 obj +<> +endobj +386 0 obj +<> +endobj +393 0 obj +<> +endobj +394 0 obj +<> +endobj +400 0 obj +<> +endobj +407 0 obj +<> +endobj +413 0 obj +<> +endobj +420 0 obj +<> +endobj +421 0 obj +<> +endobj +427 0 obj +<> +endobj +434 0 obj +<> +endobj +441 0 obj +<> +endobj +448 0 obj +<> +endobj +449 0 obj +<> +endobj +450 0 obj +<> +endobj +456 0 obj +<> +endobj +463 0 obj +<> +endobj +469 0 obj +<> +endobj +476 0 obj +<> +endobj +477 0 obj +<> +endobj +483 0 obj +<> +endobj +490 0 obj +<> +endobj +497 0 obj +<> +endobj +504 0 obj +<> +endobj +505 0 obj +<> +endobj +511 0 obj +<> +endobj +518 0 obj +<> +endobj +525 0 obj +<> +endobj +532 0 obj +<> +endobj +533 0 obj +<> +endobj +539 0 obj +<> +endobj +546 0 obj +<> +endobj +553 0 obj +<> +endobj +560 0 obj +<> +endobj +561 0 obj +<> +endobj +562 0 obj +<> +endobj +568 0 obj +<> +endobj +575 0 obj +<> +endobj +581 0 obj +<> +endobj +588 0 obj +<> +endobj +589 0 obj +<> +endobj +595 0 obj +<> +endobj +602 0 obj +<> +endobj +609 0 obj +<> +endobj +616 0 obj +<> +endobj +617 0 obj +<> +endobj +623 0 obj +<> +endobj +630 0 obj +<> +endobj +637 0 obj +<> +endobj +644 0 obj +<> +endobj +645 0 obj +<> +endobj +651 0 obj +<> +endobj +658 0 obj +<> +endobj +665 0 obj +<> +endobj +672 0 obj +<> +endobj +673 0 obj +<> +endobj +674 0 obj +<> +endobj +680 0 obj +<> +endobj +687 0 obj +<> +endobj +693 0 obj +<> +endobj +700 0 obj +<> +endobj +701 0 obj +<> +endobj +707 0 obj +<> +endobj +714 0 obj +<> +endobj +721 0 obj +<> +endobj +728 0 obj +<> +endobj +729 0 obj +<> +endobj +735 0 obj +<> +endobj +742 0 obj +<> +endobj +749 0 obj +<> +endobj +756 0 obj +<> +endobj +757 0 obj +<> +endobj +763 0 obj +<> +endobj +770 0 obj +<> +endobj +777 0 obj +<> +endobj +784 0 obj +<> +endobj +785 0 obj +<> +endobj +786 0 obj +<> +endobj +787 0 obj +<> +endobj +569 0 obj +[214 0 R/XYZ 72 129.59 null] +endobj +346 0 obj +[119 0 R/XYZ 72 660.69 null] +endobj +482 0 obj +[119 0 R/XYZ 72 639.45 null] +endobj +610 0 obj +[93 0 R/XYZ 209.58 156.86 null] +endobj +515 0 obj +[119 0 R/XYZ 72 618.21 null] +endobj +528 0 obj +[119 0 R/XYZ 72 596.98 null] +endobj +542 0 obj +[119 0 R/XYZ 72 525.98 null] +endobj +555 0 obj +[119 0 R/XYZ 72 491.19 null] +endobj +571 0 obj +[214 0 R/XYZ 72 93.66 null] +endobj +570 0 obj +[119 0 R/XYZ 72 455.8 null] +endobj +572 0 obj +[217 0 R/XYZ 72 421.29 null] +endobj +583 0 obj +[119 0 R/XYZ 72 380.97 null] +endobj +573 0 obj +[217 0 R/XYZ 72 370.55 null] +endobj +597 0 obj +[149 0 R/XYZ 72 638.86 null] +endobj +574 0 obj +[217 0 R/XYZ 72 321.93 null] +endobj +576 0 obj +[220 0 R/XYZ 72 407.74 null] +endobj +577 0 obj +[220 0 R/XYZ 72 197.86 null] +endobj +578 0 obj +[223 0 R/XYZ 72 384.95 null] +endobj +579 0 obj +[223 0 R/XYZ 72 349.83 null] +endobj +580 0 obj +[223 0 R/XYZ 72 303.28 null] +endobj +582 0 obj +[223 0 R/XYZ 72 232.66 null] +endobj +584 0 obj +[223 0 R/XYZ 72 186.42 null] +endobj +585 0 obj +[223 0 R/XYZ 72 151.6 null] +endobj +586 0 obj +[223 0 R/XYZ 72 91.8 null] +endobj +587 0 obj +[226 0 R/XYZ 72 200.35 null] +endobj +590 0 obj +[229 0 R/XYZ 72 718.85 null] +endobj +591 0 obj +[229 0 R/XYZ 72 678.8 null] +endobj +592 0 obj +[229 0 R/XYZ 72 614.52 null] +endobj +593 0 obj +[229 0 R/XYZ 72 565.29 null] +endobj +594 0 obj +[229 0 R/XYZ 72 492.3 null] +endobj +596 0 obj +[229 0 R/XYZ 72 302.89 null] +endobj +598 0 obj +[229 0 R/XYZ 72 267.21 null] +endobj +599 0 obj +[229 0 R/XYZ 72 245.69 null] +endobj +600 0 obj +[229 0 R/XYZ 72 211.23 null] +endobj +601 0 obj +[229 0 R/XYZ 72 175.86 null] +endobj +603 0 obj +[232 0 R/XYZ 72 409.08 null] +endobj +604 0 obj +[232 0 R/XYZ 72 362.54 null] +endobj +605 0 obj +[232 0 R/XYZ 72 340.99 null] +endobj +606 0 obj +[232 0 R/XYZ 72 119.97 null] +endobj +607 0 obj +[235 0 R/XYZ 72 353.54 null] +endobj +608 0 obj +[235 0 R/XYZ 72 304.93 null] +endobj +708 0 obj +[12 0 R/XYZ 71 756.72 null] +endobj +710 0 obj +[62 0 R/XYZ 71 756.72 null] +endobj +709 0 obj +[16 0 R/XYZ 71 756.72 null] +endobj +765 0 obj +[83 0 R/XYZ 72 697.09 null] +endobj +766 0 obj +[83 0 R/XYZ 72 460.65 null] +endobj +348 0 obj +[235 0 R/XYZ 72 281.28 null] +endobj +349 0 obj +[235 0 R/XYZ 72 245.61 null] +endobj +350 0 obj +[238 0 R/XYZ 72 304.78 null] +endobj +351 0 obj +[238 0 R/XYZ 72 255.74 null] +endobj +353 0 obj +[238 0 R/XYZ 72 231.68 null] +endobj +354 0 obj +[238 0 R/XYZ 72 182.34 null] +endobj +355 0 obj +[238 0 R/XYZ 72 146.86 null] +endobj +356 0 obj +[238 0 R/XYZ 72 111.67 null] +endobj +357 0 obj +[241 0 R/XYZ 72 718.85 null] +endobj +359 0 obj +[241 0 R/XYZ 72 690.23 null] +endobj +712 0 obj +[214 0 R/XYZ 72 718.85 null] +endobj +713 0 obj +[217 0 R/XYZ 72 718.85 null] +endobj +715 0 obj +[220 0 R/XYZ 72 718.85 null] +endobj +716 0 obj +[223 0 R/XYZ 72 718.85 null] +endobj +717 0 obj +[226 0 R/XYZ 72 718.85 null] +endobj +718 0 obj +[232 0 R/XYZ 72 718.85 null] +endobj +719 0 obj +[235 0 R/XYZ 72 718.85 null] +endobj +720 0 obj +[238 0 R/XYZ 72 718.85 null] +endobj +722 0 obj +[244 0 R/XYZ 72 718.85 null] +endobj +361 0 obj +[241 0 R/XYZ 72 552.75 null] +endobj +723 0 obj +[247 0 R/XYZ 72 718.85 null] +endobj +362 0 obj +[244 0 R/XYZ 72 380.64 null] +endobj +363 0 obj +[244 0 R/XYZ 72 343.15 null] +endobj +364 0 obj +[250 0 R/XYZ 72 704.31 null] +endobj +367 0 obj +[250 0 R/XYZ 72 654.81 null] +endobj +368 0 obj +[250 0 R/XYZ 72 630.28 null] +endobj +369 0 obj +[250 0 R/XYZ 72 492.9 null] +endobj +370 0 obj +[250 0 R/XYZ 72 445.52 null] +endobj +371 0 obj +[250 0 R/XYZ 72 380.34 null] +endobj +373 0 obj +[250 0 R/XYZ 72 330.22 null] +endobj +341 0 obj +[107 0 R/XYZ 88.59 132.93 null] +endobj +342 0 obj +[107 0 R/XYZ 88.59 88.8 null] +endobj +343 0 obj +[107 0 R/XYZ 88.59 77.85 null] +endobj +344 0 obj +[177 0 R/XYZ 88.59 88.8 null] +endobj +725 0 obj +[256 0 R/XYZ 72 718.85 null] +endobj +726 0 obj +[259 0 R/XYZ 72 718.85 null] +endobj +727 0 obj +[262 0 R/XYZ 72 718.85 null] +endobj +730 0 obj +[268 0 R/XYZ 72 718.85 null] +endobj +731 0 obj +[277 0 R/XYZ 72 718.85 null] +endobj +767 0 obj +[103 0 R/XYZ 72 382.25 null] +endobj +732 0 obj +[283 0 R/XYZ 72 718.85 null] +endobj +768 0 obj +[107 0 R/XYZ 72 648.08 null] +endobj +733 0 obj +[292 0 R/XYZ 72 718.85 null] +endobj +769 0 obj +[107 0 R/XYZ 72 271.29 null] +endobj +734 0 obj +[301 0 R/XYZ 72 718.85 null] +endobj +612 0 obj +[130 0 R/XYZ 71 756.72 null] +endobj +736 0 obj +[304 0 R/XYZ 72 718.85 null] +endobj +613 0 obj +[133 0 R/XYZ 71 756.72 null] +endobj +375 0 obj +[250 0 R/XYZ 72 256.34 null] +endobj +737 0 obj +[307 0 R/XYZ 72 718.85 null] +endobj +614 0 obj +[137 0 R/XYZ 71 756.72 null] +endobj +376 0 obj +[253 0 R/XYZ 72 718.85 null] +endobj +615 0 obj +[142 0 R/XYZ 71 756.72 null] +endobj +377 0 obj +[253 0 R/XYZ 72 689.63 null] +endobj +618 0 obj +[146 0 R/XYZ 71 756.72 null] +endobj +378 0 obj +[253 0 R/XYZ 72 573.87 null] +endobj +340 0 obj +[3 0 R/XYZ 72 718.85 null] +endobj +619 0 obj +[149 0 R/XYZ 71 756.72 null] +endobj +380 0 obj +[253 0 R/XYZ 72 451.3 null] +endobj +620 0 obj +[153 0 R/XYZ 71 756.72 null] +endobj +381 0 obj +[256 0 R/XYZ 72 415.97 null] +endobj +621 0 obj +[156 0 R/XYZ 71 756.72 null] +endobj +382 0 obj +[256 0 R/XYZ 72 187.08 null] +endobj +622 0 obj +[159 0 R/XYZ 71 756.72 null] +endobj +383 0 obj +[256 0 R/XYZ 72 127.2 null] +endobj +624 0 obj +[162 0 R/XYZ 71 756.72 null] +endobj +384 0 obj +[259 0 R/XYZ 72 407.74 null] +endobj +385 0 obj +[259 0 R/XYZ 72 384.1 null] +endobj +485 0 obj +[313 0 R/XYZ 72 367.09 null] +endobj +486 0 obj +[313 0 R/XYZ 72 343.45 null] +endobj +487 0 obj +[313 0 R/XYZ 72 294.83 null] +endobj +488 0 obj +[316 0 R/XYZ 72 380.64 null] +endobj +489 0 obj +[316 0 R/XYZ 72 357 null] +endobj +491 0 obj +[316 0 R/XYZ 72 280.68 null] +endobj +492 0 obj +[316 0 R/XYZ 72 232.67 null] +endobj +739 0 obj +[310 0 R/XYZ 72 718.85 null] +endobj +493 0 obj +[316 0 R/XYZ 72 197.6 null] +endobj +740 0 obj +[313 0 R/XYZ 72 718.85 null] +endobj +494 0 obj +[316 0 R/XYZ 72 162.23 null] +endobj +741 0 obj +[316 0 R/XYZ 72 718.85 null] +endobj +495 0 obj +[319 0 R/XYZ 72 338.67 null] +endobj +743 0 obj +[319 0 R/XYZ 72 718.85 null] +endobj +744 0 obj +[334 0 R/XYZ 72 718.85 null] +endobj +745 0 obj +[334 0 R/XYZ 72 725.83 null] +endobj +626 0 obj +[165 0 R/XYZ 71 756.72 null] +endobj +627 0 obj +[168 0 R/XYZ 71 756.72 null] +endobj +388 0 obj +[259 0 R/XYZ 72 324.05 null] +endobj +628 0 obj +[171 0 R/XYZ 71 756.72 null] +endobj +389 0 obj +[262 0 R/XYZ 72 365.22 null] +endobj +629 0 obj +[174 0 R/XYZ 71 756.72 null] +endobj +390 0 obj +[262 0 R/XYZ 72 314.38 null] +endobj +631 0 obj +[177 0 R/XYZ 71 756.72 null] +endobj +391 0 obj +[262 0 R/XYZ 72 281.34 null] +endobj +632 0 obj +[181 0 R/XYZ 71 756.72 null] +endobj +392 0 obj +[262 0 R/XYZ 72 243.75 null] +endobj +633 0 obj +[184 0 R/XYZ 71 756.72 null] +endobj +395 0 obj +[262 0 R/XYZ 72 208.88 null] +endobj +634 0 obj +[187 0 R/XYZ 71 756.72 null] +endobj +396 0 obj +[262 0 R/XYZ 72 160.17 null] +endobj +635 0 obj +[190 0 R/XYZ 71 756.72 null] +endobj +397 0 obj +[262 0 R/XYZ 72 125 null] +endobj +636 0 obj +[193 0 R/XYZ 71 756.72 null] +endobj +398 0 obj +[265 0 R/XYZ 72 655.99 null] +endobj +399 0 obj +[271 0 R/XYZ 72 704.91 null] +endobj +711 0 obj +[16 0 R/XYZ 72 725.83 null] +endobj +724 0 obj +[181 0 R/XYZ 72 718.85 null] +endobj +738 0 obj +[184 0 R/XYZ 72 718.85 null] +endobj +746 0 obj +[187 0 R/XYZ 72 718.85 null] +endobj +747 0 obj +[190 0 R/XYZ 72 718.85 null] +endobj +748 0 obj +[193 0 R/XYZ 72 718.85 null] +endobj +498 0 obj +[319 0 R/XYZ 72 287.43 null] +endobj +750 0 obj +[196 0 R/XYZ 72 718.85 null] +endobj +499 0 obj +[319 0 R/XYZ 72 198.68 null] +endobj +611 0 obj +[83 0 R/XYZ 71 756.72 null] +endobj +751 0 obj +[202 0 R/XYZ 72 718.85 null] +endobj +500 0 obj +[322 0 R/XYZ 72 703.69 null] +endobj +625 0 obj +[93 0 R/XYZ 71 756.72 null] +endobj +752 0 obj +[208 0 R/XYZ 72 718.85 null] +endobj +501 0 obj +[322 0 R/XYZ 72 146.29 null] +endobj +638 0 obj +[99 0 R/XYZ 71 756.72 null] +endobj +502 0 obj +[322 0 R/XYZ 72 98.02 null] +endobj +652 0 obj +[103 0 R/XYZ 71 756.72 null] +endobj +503 0 obj +[325 0 R/XYZ 72 546.16 null] +endobj +664 0 obj +[107 0 R/XYZ 71 756.72 null] +endobj +679 0 obj +[116 0 R/XYZ 71 756.72 null] +endobj +692 0 obj +[119 0 R/XYZ 71 756.72 null] +endobj +704 0 obj +[122 0 R/XYZ 71 756.72 null] +endobj +705 0 obj +[125 0 R/XYZ 71 756.72 null] +endobj +639 0 obj +[196 0 R/XYZ 71 756.72 null] +endobj +640 0 obj +[199 0 R/XYZ 71 756.72 null] +endobj +402 0 obj +[271 0 R/XYZ 72 567.1 null] +endobj +641 0 obj +[202 0 R/XYZ 71 756.72 null] +endobj +403 0 obj +[271 0 R/XYZ 72 520.72 null] +endobj +642 0 obj +[205 0 R/XYZ 71 756.72 null] +endobj +404 0 obj +[271 0 R/XYZ 72 456.56 null] +endobj +643 0 obj +[208 0 R/XYZ 71 756.72 null] +endobj +405 0 obj +[271 0 R/XYZ 72 407.45 null] +endobj +646 0 obj +[211 0 R/XYZ 71 756.72 null] +endobj +406 0 obj +[271 0 R/XYZ 72 334.58 null] +endobj +647 0 obj +[214 0 R/XYZ 71 756.72 null] +endobj +408 0 obj +[271 0 R/XYZ 72 146.26 null] +endobj +648 0 obj +[217 0 R/XYZ 71 756.72 null] +endobj +409 0 obj +[271 0 R/XYZ 72 110.7 null] +endobj +649 0 obj +[220 0 R/XYZ 71 756.72 null] +endobj +410 0 obj +[274 0 R/XYZ 72 649.59 null] +endobj +650 0 obj +[223 0 R/XYZ 71 756.72 null] +endobj +411 0 obj +[274 0 R/XYZ 72 527.02 null] +endobj +412 0 obj +[277 0 R/XYZ 72 437.94 null] +endobj +653 0 obj +[226 0 R/XYZ 71 756.72 null] +endobj +654 0 obj +[229 0 R/XYZ 71 756.72 null] +endobj +415 0 obj +[277 0 R/XYZ 72 402.91 null] +endobj +655 0 obj +[232 0 R/XYZ 71 756.72 null] +endobj +416 0 obj +[277 0 R/XYZ 72 283.94 null] +endobj +656 0 obj +[235 0 R/XYZ 71 756.72 null] +endobj +417 0 obj +[277 0 R/XYZ 72 251.26 null] +endobj +657 0 obj +[238 0 R/XYZ 71 756.72 null] +endobj +418 0 obj +[277 0 R/XYZ 72 179.82 null] +endobj +659 0 obj +[241 0 R/XYZ 71 756.72 null] +endobj +419 0 obj +[280 0 R/XYZ 72 718.85 null] +endobj +660 0 obj +[244 0 R/XYZ 71 756.72 null] +endobj +422 0 obj +[283 0 R/XYZ 72 180.87 null] +endobj +661 0 obj +[247 0 R/XYZ 71 756.72 null] +endobj +423 0 obj +[286 0 R/XYZ 72 718.85 null] +endobj +662 0 obj +[250 0 R/XYZ 71 756.72 null] +endobj +424 0 obj +[286 0 R/XYZ 72 651.85 null] +endobj +663 0 obj +[253 0 R/XYZ 71 756.72 null] +endobj +425 0 obj +[286 0 R/XYZ 72 514.53 null] +endobj +706 0 obj +[3 0 R/XYZ 71 756.72 null] +endobj +426 0 obj +[286 0 R/XYZ 72 468.45 null] +endobj +347 0 obj +[149 0 R/XYZ 72 618.22 null] +endobj +360 0 obj +[149 0 R/XYZ 72 593.33 null] +endobj +374 0 obj +[149 0 R/XYZ 72 570.57 null] +endobj +387 0 obj +[149 0 R/XYZ 72 547.8 null] +endobj +401 0 obj +[149 0 R/XYZ 72 525.04 null] +endobj +414 0 obj +[149 0 R/XYZ 72 504.4 null] +endobj +428 0 obj +[149 0 R/XYZ 72 479.51 null] +endobj +440 0 obj +[149 0 R/XYZ 72 456.75 null] +endobj +455 0 obj +[149 0 R/XYZ 72 433.98 null] +endobj +468 0 obj +[177 0 R/XYZ 72 639.48 null] +endobj +666 0 obj +[256 0 R/XYZ 71 756.72 null] +endobj +667 0 obj +[259 0 R/XYZ 71 756.72 null] +endobj +429 0 obj +[286 0 R/XYZ 72 404.59 null] +endobj +668 0 obj +[262 0 R/XYZ 71 756.72 null] +endobj +430 0 obj +[286 0 R/XYZ 72 355.78 null] +endobj +669 0 obj +[265 0 R/XYZ 71 756.72 null] +endobj +431 0 obj +[286 0 R/XYZ 72 283.21 null] +endobj +670 0 obj +[268 0 R/XYZ 71 756.72 null] +endobj +432 0 obj +[286 0 R/XYZ 72 97.56 null] +endobj +671 0 obj +[271 0 R/XYZ 71 756.72 null] +endobj +433 0 obj +[289 0 R/XYZ 72 718.85 null] +endobj +675 0 obj +[274 0 R/XYZ 71 756.72 null] +endobj +435 0 obj +[289 0 R/XYZ 72 602.73 null] +endobj +676 0 obj +[277 0 R/XYZ 71 756.72 null] +endobj +436 0 obj +[292 0 R/XYZ 72 180.87 null] +endobj +677 0 obj +[280 0 R/XYZ 71 756.72 null] +endobj +437 0 obj +[295 0 R/XYZ 72 718.85 null] +endobj +678 0 obj +[283 0 R/XYZ 71 756.72 null] +endobj +438 0 obj +[295 0 R/XYZ 72 651.85 null] +endobj +439 0 obj +[295 0 R/XYZ 72 514.53 null] +endobj +484 0 obj +[177 0 R/XYZ 72 560.28 null] +endobj +496 0 obj +[177 0 R/XYZ 72 515.64 null] +endobj +506 0 obj +[177 0 R/XYZ 72 470.64 null] +endobj +507 0 obj +[177 0 R/XYZ 72 432.09 null] +endobj +508 0 obj +[177 0 R/XYZ 72 385.33 null] +endobj +509 0 obj +[177 0 R/XYZ 72 364.7 null] +endobj +510 0 obj +[181 0 R/XYZ 72 407.29 null] +endobj +512 0 obj +[181 0 R/XYZ 72 305.94 null] +endobj +513 0 obj +[184 0 R/XYZ 72 380.64 null] +endobj +514 0 obj +[184 0 R/XYZ 72 151.24 null] +endobj +771 0 obj +[125 0 R/XYZ 72 593.95 null] +endobj +772 0 obj +[125 0 R/XYZ 72 348.83 null] +endobj +773 0 obj +[130 0 R/XYZ 72 718.85 null] +endobj +681 0 obj +[286 0 R/XYZ 71 756.72 null] +endobj +774 0 obj +[130 0 R/XYZ 72 177.18 null] +endobj +682 0 obj +[289 0 R/XYZ 71 756.72 null] +endobj +442 0 obj +[295 0 R/XYZ 72 468.45 null] +endobj +753 0 obj +[83 0 R/XYZ 72 718.85 null] +endobj +775 0 obj +[133 0 R/XYZ 72 557.5 null] +endobj +683 0 obj +[292 0 R/XYZ 71 756.72 null] +endobj +443 0 obj +[295 0 R/XYZ 72 404.59 null] +endobj +754 0 obj +[103 0 R/XYZ 72 718.85 null] +endobj +776 0 obj +[133 0 R/XYZ 72 313.15 null] +endobj +684 0 obj +[295 0 R/XYZ 71 756.72 null] +endobj +444 0 obj +[295 0 R/XYZ 72 355.78 null] +endobj +755 0 obj +[119 0 R/XYZ 72 718.85 null] +endobj +778 0 obj +[133 0 R/XYZ 72 161.45 null] +endobj +445 0 obj +[295 0 R/XYZ 72 283.21 null] +endobj +685 0 obj +[298 0 R/XYZ 71 756.72 null] +endobj +758 0 obj +[125 0 R/XYZ 72 718.85 null] +endobj +779 0 obj +[137 0 R/XYZ 72 718.85 null] +endobj +446 0 obj +[295 0 R/XYZ 72 97.56 null] +endobj +686 0 obj +[301 0 R/XYZ 71 756.72 null] +endobj +780 0 obj +[137 0 R/XYZ 72 421.38 null] +endobj +759 0 obj +[142 0 R/XYZ 72 718.85 null] +endobj +447 0 obj +[298 0 R/XYZ 72 718.85 null] +endobj +688 0 obj +[304 0 R/XYZ 71 756.72 null] +endobj +760 0 obj +[149 0 R/XYZ 72 718.85 null] +endobj +451 0 obj +[298 0 R/XYZ 72 602.73 null] +endobj +689 0 obj +[307 0 R/XYZ 71 756.72 null] +endobj +761 0 obj +[177 0 R/XYZ 72 718.85 null] +endobj +452 0 obj +[301 0 R/XYZ 72 456.03 null] +endobj +690 0 obj +[310 0 R/XYZ 71 756.72 null] +endobj +453 0 obj +[301 0 R/XYZ 72 382.82 null] +endobj +691 0 obj +[313 0 R/XYZ 71 756.72 null] +endobj +762 0 obj +[328 0 R/XYZ 72 718.85 null] +endobj +454 0 obj +[301 0 R/XYZ 72 266.84 null] +endobj +764 0 obj +[331 0 R/XYZ 72 718.85 null] +endobj +516 0 obj +[184 0 R/XYZ 72 129.72 null] +endobj +517 0 obj +[187 0 R/XYZ 72 407.74 null] +endobj +519 0 obj +[187 0 R/XYZ 72 178.34 null] +endobj +520 0 obj +[187 0 R/XYZ 72 156.82 null] +endobj +521 0 obj +[187 0 R/XYZ 72 121.45 null] +endobj +522 0 obj +[190 0 R/XYZ 72 366.53 null] +endobj +523 0 obj +[190 0 R/XYZ 72 165.81 null] +endobj +524 0 obj +[190 0 R/XYZ 72 144.82 null] +endobj +526 0 obj +[190 0 R/XYZ 72 96.73 null] +endobj +527 0 obj +[193 0 R/XYZ 72 398.26 null] +endobj +694 0 obj +[316 0 R/XYZ 71 756.72 null] +endobj +457 0 obj +[301 0 R/XYZ 72 148.45 null] +endobj +695 0 obj +[319 0 R/XYZ 71 756.72 null] +endobj +458 0 obj +[301 0 R/XYZ 72 116.12 null] +endobj +696 0 obj +[322 0 R/XYZ 71 756.72 null] +endobj +459 0 obj +[304 0 R/XYZ 72 371 null] +endobj +697 0 obj +[325 0 R/XYZ 71 756.72 null] +endobj +460 0 obj +[304 0 R/XYZ 72 322.54 null] +endobj +698 0 obj +[328 0 R/XYZ 71 756.72 null] +endobj +461 0 obj +[304 0 R/XYZ 72 285.5 null] +endobj +699 0 obj +[331 0 R/XYZ 71 756.72 null] +endobj +462 0 obj +[304 0 R/XYZ 72 250.59 null] +endobj +702 0 obj +[334 0 R/XYZ 71 756.72 null] +endobj +464 0 obj +[304 0 R/XYZ 72 202.14 null] +endobj +703 0 obj +[337 0 R/XYZ 71 756.72 null] +endobj +465 0 obj +[304 0 R/XYZ 72 167.23 null] +endobj +466 0 obj +[304 0 R/XYZ 72 145.86 null] +endobj +467 0 obj +[304 0 R/XYZ 72 99.53 null] +endobj +529 0 obj +[193 0 R/XYZ 72 168.86 null] +endobj +530 0 obj +[193 0 R/XYZ 72 147.34 null] +endobj +531 0 obj +[193 0 R/XYZ 72 111.97 null] +endobj +534 0 obj +[196 0 R/XYZ 72 261.81 null] +endobj +535 0 obj +[199 0 R/XYZ 72 718.85 null] +endobj +536 0 obj +[199 0 R/XYZ 72 703.78 null] +endobj +537 0 obj +[199 0 R/XYZ 72 654.56 null] +endobj +538 0 obj +[199 0 R/XYZ 72 581.57 null] +endobj +540 0 obj +[199 0 R/XYZ 72 532.95 null] +endobj +541 0 obj +[199 0 R/XYZ 72 495.76 null] +endobj +470 0 obj +[307 0 R/XYZ 72 461.07 null] +endobj +471 0 obj +[307 0 R/XYZ 72 426.6 null] +endobj +472 0 obj +[307 0 R/XYZ 72 380.69 null] +endobj +473 0 obj +[307 0 R/XYZ 72 348.33 null] +endobj +474 0 obj +[307 0 R/XYZ 72 218.08 null] +endobj +475 0 obj +[307 0 R/XYZ 72 136.5 null] +endobj +478 0 obj +[307 0 R/XYZ 72 102.02 null] +endobj +479 0 obj +[310 0 R/XYZ 72 421.29 null] +endobj +480 0 obj +[310 0 R/XYZ 72 384.1 null] +endobj +481 0 obj +[310 0 R/XYZ 72 334.88 null] +endobj +543 0 obj +[199 0 R/XYZ 72 433.6 null] +endobj +544 0 obj +[202 0 R/XYZ 72 199.34 null] +endobj +781 0 obj +[142 0 R/XYZ 72 467.52 null] +endobj +545 0 obj +[205 0 R/XYZ 72 718.85 null] +endobj +782 0 obj +[142 0 R/XYZ 72 123.14 null] +endobj +547 0 obj +[205 0 R/XYZ 72 678.8 null] +endobj +783 0 obj +[146 0 R/XYZ 72 484.2 null] +endobj +548 0 obj +[205 0 R/XYZ 72 614.52 null] +endobj +549 0 obj +[205 0 R/XYZ 72 565.29 null] +endobj +550 0 obj +[205 0 R/XYZ 72 492.3 null] +endobj +551 0 obj +[205 0 R/XYZ 72 302.89 null] +endobj +552 0 obj +[205 0 R/XYZ 72 267.21 null] +endobj +554 0 obj +[205 0 R/XYZ 72 232.75 null] +endobj +556 0 obj +[205 0 R/XYZ 72 184.13 null] +endobj +557 0 obj +[208 0 R/XYZ 72 408.65 null] +endobj +558 0 obj +[208 0 R/XYZ 72 184.3 null] +endobj +559 0 obj +[208 0 R/XYZ 72 164.46 null] +endobj +563 0 obj +[211 0 R/XYZ 72 718.85 null] +endobj +564 0 obj +[211 0 R/XYZ 72 676.38 null] +endobj +565 0 obj +[214 0 R/XYZ 72 432.74 null] +endobj +566 0 obj +[214 0 R/XYZ 72 208.03 null] +endobj +567 0 obj +[214 0 R/XYZ 72 188.07 null] +endobj +788 0 obj +<> +endobj +791 0 obj +<>/Parent 790 0 R/Next 792 0 R>> +endobj +792 0 obj +<>/Parent 790 0 R/Prev 791 0 R>> +endobj +790 0 obj +<>/First 791 0 R/Last 792 0 R/Count +-2/Parent 789 0 R/Next 793 0 R>> +endobj +794 0 obj +<>/Parent 793 0 R/Next +795 0 R>> +endobj +795 0 obj +<>/Parent 793 0 R/Prev +794 0 R/Next 796 0 R>> +endobj +796 0 obj +<>/Parent 793 0 R/Prev +795 0 R>> +endobj +793 0 obj +<>/First 794 0 R/Last +796 0 R/Count -3/Parent 789 0 R/Prev 790 0 R/Next 797 0 R>> +endobj +797 0 obj +<>/Parent 789 0 R/Prev 793 0 R/Next +798 0 R>> +endobj +799 0 obj +<>/Parent 798 0 R/Next 800 0 R>> +endobj +800 0 obj +<>/Parent 798 0 R/Prev +799 0 R/Next 801 0 R>> +endobj +801 0 obj +<>/Parent 798 0 R/Prev 800 0 R/Next +802 0 R>> +endobj +802 0 obj +<>/Parent 798 0 R/Prev 801 0 R/Next +803 0 R>> +endobj +803 0 obj +<>/Parent 798 0 R/Prev +802 0 R/Next 804 0 R>> +endobj +804 0 obj +<>/Parent +798 0 R/Prev 803 0 R/Next 805 0 R>> +endobj +805 0 obj +<>/Parent 798 0 R/Prev +804 0 R/Next 806 0 R>> +endobj +806 0 obj +<>/Parent 798 0 R/Prev +805 0 R/Next 807 0 R>> +endobj +807 0 obj +<>/Parent 798 0 R/Prev 806 0 R>> +endobj +798 0 obj +<>/First 799 0 R/Last 807 0 R/Count +-9/Parent 789 0 R/Prev 797 0 R/Next 808 0 R>> +endobj +809 0 obj +<>/Parent +808 0 R/Next 810 0 R>> +endobj +810 0 obj +<>/Parent +808 0 R/Prev 809 0 R/Next 811 0 R>> +endobj +811 0 obj +<>/Parent +808 0 R/Prev 810 0 R>> +endobj +808 0 obj +<>/First 809 0 R/Last +811 0 R/Count -3/Parent 789 0 R/Prev 798 0 R/Next 812 0 R>> +endobj +812 0 obj +<>/Parent 789 0 R/Prev 808 0 R/Next 813 0 R>> +endobj +814 0 obj +<>/Parent 813 0 R/Next 815 0 R>> +endobj +815 0 obj +<>/Parent 813 0 R/Prev 814 0 R/Next 816 0 R>> +endobj +816 0 obj +<>/Parent 813 0 R/Prev 815 0 R/Next 817 0 R>> +endobj +817 0 obj +<>/Parent 813 0 R/Prev 816 0 R/Next 818 0 R>> +endobj +818 0 obj +<>/Parent 813 0 R/Prev 817 0 R/Next 819 0 R>> +endobj +819 0 obj +<>/Parent 813 0 R/Prev 818 0 R/Next 820 0 R>> +endobj +820 0 obj +<>/Parent 813 0 R/Prev 819 0 R/Next 821 0 R>> +endobj +821 0 obj +<>/Parent 813 0 R/Prev 820 0 R/Next 822 0 R>> +endobj +822 0 obj +<>/Parent 813 0 R/Prev 821 0 R/Next +823 0 R>> +endobj +823 0 obj +<>/Parent 813 0 R/Prev 822 0 R/Next 824 0 R>> +endobj +824 0 obj +<>/Parent 813 0 R/Prev 823 0 R/Next +825 0 R>> +endobj +825 0 obj +<>/Parent 813 0 R/Prev 824 0 R/Next 826 0 R>> +endobj +826 0 obj +<>/Parent 813 0 R/Prev 825 0 R/Next +827 0 R>> +endobj +827 0 obj +<>/Parent 813 0 R/Prev 826 0 R/Next +828 0 R>> +endobj +828 0 obj +<>/Parent 813 0 R/Prev 827 0 R/Next 829 0 R>> +endobj +829 0 obj +<>/Parent 813 0 R/Prev 828 0 R/Next +830 0 R>> +endobj +830 0 obj +<>/Parent 813 0 R/Prev 829 0 R/Next +831 0 R>> +endobj +831 0 obj +<>/Parent 813 0 R/Prev 830 0 R/Next +832 0 R>> +endobj +832 0 obj +<>/Parent 813 0 R/Prev 831 0 R/Next +833 0 R>> +endobj +833 0 obj +<>/Parent 813 0 R/Prev 832 0 R/Next 834 0 R>> +endobj +834 0 obj +<>/Parent 813 0 R/Prev 833 0 R/Next +835 0 R>> +endobj +835 0 obj +<>/Parent 813 0 R/Prev 834 0 R/Next +836 0 R>> +endobj +836 0 obj +<>/Parent 813 0 R/Prev 835 0 R/Next 837 0 R>> +endobj +837 0 obj +<>/Parent 813 0 R/Prev 836 0 R/Next +838 0 R>> +endobj +838 0 obj +<>/Parent 813 0 R/Prev 837 0 R/Next +839 0 R>> +endobj +839 0 obj +<>/Parent 813 0 R/Prev 838 0 R/Next 840 0 R>> +endobj +840 0 obj +<>/Parent 813 0 R/Prev 839 0 R/Next 841 0 R>> +endobj +841 0 obj +<>/Parent 813 0 R/Prev 840 0 R/Next 842 0 R>> +endobj +842 0 obj +<>/Parent 813 0 R/Prev 841 0 R/Next 843 0 R>> +endobj +843 0 obj +<>/Parent 813 0 R/Prev 842 0 R/Next 844 0 R>> +endobj +844 0 obj +<>/Parent 813 0 R/Prev 843 0 R/Next 845 0 R>> +endobj +845 0 obj +<>/Parent 813 0 R/Prev 844 0 R>> +endobj +813 0 obj +<>/First 814 0 R/Last +845 0 R/Count -32/Parent 789 0 R/Prev 812 0 R/Next 846 0 R>> +endobj +846 0 obj +<>/Parent 789 0 R/Prev 813 0 R/Next +847 0 R>> +endobj +847 0 obj +<>/Parent 789 0 R/Prev 846 0 R/Next 848 0 R>> +endobj +848 0 obj +<>/Parent 789 0 R/Prev 847 0 R>> +endobj +789 0 obj +<> +endobj +852 0 obj +[9 0 R] +endobj +3 0 obj +<> +endobj +12 0 obj +<> +endobj +853 0 obj +[19 0 R 20 0 R 21 0 R 22 0 R 23 0 R 24 0 R 25 0 R 26 0 R 27 0 R 28 0 R 29 0 R 30 0 R +31 0 R 32 0 R 33 0 R 34 0 R 35 0 R 36 0 R 37 0 R 38 0 R 39 0 R 40 0 R 41 0 R 42 0 R +43 0 R 44 0 R 45 0 R 46 0 R 47 0 R 48 0 R 49 0 R 50 0 R 51 0 R 52 0 R 53 0 R 54 0 R +55 0 R 56 0 R 57 0 R 58 0 R 59 0 R] +endobj +16 0 obj +<> +endobj +855 0 obj +[63 0 R 64 0 R 65 0 R 66 0 R 67 0 R 68 0 R 69 0 R 70 0 R 71 0 R 72 0 R 73 0 R 74 0 R +75 0 R 76 0 R 77 0 R 78 0 R 79 0 R 80 0 R] +endobj +62 0 obj +<> +endobj +856 0 obj +[85 0 R 86 0 R 87 0 R 88 0 R 90 0 R] +endobj +83 0 obj +<> +endobj +854 0 obj +<> +endobj +851 0 obj +<> +endobj +93 0 obj +<> +endobj +858 0 obj +[100 0 R] +endobj +99 0 obj +<> +endobj +859 0 obj +[104 0 R] +endobj +103 0 obj +<> +endobj +861 0 obj +[109 0 R 110 0 R 111 0 R] +endobj +107 0 obj +<> +endobj +116 0 obj +<> +endobj +860 0 obj +<> +endobj +857 0 obj +<> +endobj +119 0 obj +<> +endobj +122 0 obj +<> +endobj +863 0 obj +[126 0 R 127 0 R] +endobj +125 0 obj +<> +endobj +130 0 obj +<> +endobj +133 0 obj +<> +endobj +864 0 obj +<> +endobj +862 0 obj +<> +endobj +866 0 obj +[138 0 R] +endobj +137 0 obj +<> +endobj +867 0 obj +[143 0 R] +endobj +142 0 obj +<> +endobj +146 0 obj +<> +endobj +149 0 obj +<> +endobj +153 0 obj +<> +endobj +868 0 obj +<> +endobj +865 0 obj +<> +endobj +850 0 obj +<> +endobj +156 0 obj +<> +endobj +159 0 obj +<> +endobj +162 0 obj +<> +endobj +165 0 obj +<> +endobj +168 0 obj +<> +endobj +871 0 obj +<> +endobj +870 0 obj +<> +endobj +171 0 obj +<> +endobj +174 0 obj +<> +endobj +873 0 obj +[178 0 R] +endobj +177 0 obj +<> +endobj +181 0 obj +<> +endobj +184 0 obj +<> +endobj +874 0 obj +<> +endobj +872 0 obj +<> +endobj +187 0 obj +<> +endobj +190 0 obj +<> +endobj +193 0 obj +<> +endobj +196 0 obj +<> +endobj +199 0 obj +<> +endobj +876 0 obj +<> +endobj +875 0 obj +<> +endobj +202 0 obj +<> +endobj +205 0 obj +<> +endobj +208 0 obj +<> +endobj +211 0 obj +<> +endobj +214 0 obj +<> +endobj +878 0 obj +<> +endobj +877 0 obj +<> +endobj +869 0 obj +<> +endobj +217 0 obj +<> +endobj +220 0 obj +<> +endobj +223 0 obj +<> +endobj +226 0 obj +<> +endobj +229 0 obj +<> +endobj +881 0 obj +<> +endobj +880 0 obj +<> +endobj +232 0 obj +<> +endobj +235 0 obj +<> +endobj +238 0 obj +<> +endobj +241 0 obj +<> +endobj +244 0 obj +<> +endobj +883 0 obj +<> +endobj +882 0 obj +<> +endobj +247 0 obj +<> +endobj +250 0 obj +<> +endobj +253 0 obj +<> +endobj +256 0 obj +<> +endobj +259 0 obj +<> +endobj +885 0 obj +<> +endobj +884 0 obj +<> +endobj +262 0 obj +<> +endobj +265 0 obj +<> +endobj +268 0 obj +<> +endobj +271 0 obj +<> +endobj +274 0 obj +<> +endobj +887 0 obj +<> +endobj +886 0 obj +<> +endobj +879 0 obj +<> +endobj +277 0 obj +<> +endobj +280 0 obj +<> +endobj +283 0 obj +<> +endobj +286 0 obj +<> +endobj +289 0 obj +<> +endobj +890 0 obj +<> +endobj +889 0 obj +<> +endobj +292 0 obj +<> +endobj +295 0 obj +<> +endobj +298 0 obj +<> +endobj +301 0 obj +<> +endobj +304 0 obj +<> +endobj +892 0 obj +<> +endobj +891 0 obj +<> +endobj +307 0 obj +<> +endobj +310 0 obj +<> +endobj +313 0 obj +<> +endobj +316 0 obj +<> +endobj +319 0 obj +<> +endobj +894 0 obj +<> +endobj +893 0 obj +<> +endobj +322 0 obj +<> +endobj +325 0 obj +<> +endobj +328 0 obj +<> +endobj +896 0 obj +<> +endobj +331 0 obj +<> +endobj +334 0 obj +<> +endobj +337 0 obj +<> +endobj +897 0 obj +<> +endobj +895 0 obj +<> +endobj +888 0 obj +<> +endobj +849 0 obj +<> +endobj +2 0 obj +<> +endobj +1 0 obj +<>/PageLabels<>4<>]>>/Names +788 0 R/Outlines 789 0 R/Pages 849 0 R/Type/Catalog>> +endobj +898 0 obj +[625 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 581 0 0 0 0 0 0 0 0 0 0 375 312.5 0 +562.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 312.5 0 0 0 0 0 0 849.5 +0 812.5 862.3 738.4 0 0 0 419 0 0 675.9 0 0 844.9 768.5 844.9 839.1 625 782.4 864.6 +0 1162 0 0 0 0 581 0 0 0 0 546.9 625 500 625 513.3 343.8 562.5 625 312.5 0 593.8 +312.5 937.5 625 562.5 625 593.8 459.5 443.8 437.5 625 593.8 0 593.8 593.8 500] +endobj +899 0 obj +<> +stream +xڍX XW¶®¶¡«Dŵ¢VCŒn¸$hÔ¸ (*EEµAvP@ÙwºO7 +4  ì"Bk‹B£˜A¢ŒK4®cŒ>—8‰&=E.3ïÝn²Ì$óޛ¯?ª?ªn{ÎÏùÏZÂXX0‰ÄzÝê+]Ü&8»-\?ušéÎ{ëȞ‘]©–âpF +!Gö©8Äb$ÃHš®½úÓ+óx€éê@/6W1  +ŽŽÓ';:Nsß +èe7nëx»©³f9M´›æè8ËnA¨_DàVe˜›2*À/TEÿ ±óßèk7nN@TÔö÷§L‰‰‰™¬ +œ + +áÿÁø‰v1Qv«ý"ý"¢ý|í\Ââì>T†úÙõx=¹çË9dV2îÌ*f5ãÁ¬aÖ2ëOf³‘ñbœz1ƂQ1(±’8Hr%7z¹öz$u”^µp·h·\hÙf‰²`Y'»€-aorÖ\ +÷yï«éVÿÕÇ¡Oyß)}Ëú ýÔý~°ö³¾Úß¡ÿë›Ô +tè? +R +:=xò`ÝàÎ!º!_ðSxj;´dès1ۺˌø“#õ’W¯Ð÷•TÜßµŒOU{feA6¨ %g{~$G{?Ò[>fâùÉEÁVi¯Cmíu¨êûŽÑBß?ÞeÉ5q4ÿ‚}þ¨úzî)u¦jPgg''g%@>úãÇõõM‚µØ‘¤Ÿë%-Ø°¯T,Æü3À +’LR€¤;L’„ɘ¬Áøç½ÙÆC侘Šˆš¸RÀ$¸—òÏ?¿‘W +p!¾ØI· +އ$Ç'„†ÆÄlO‰ŽnF1ÇØR.¡»XJñyËש XX°œHa'p»e²£Ðž{b×]Iä +¶Yû#´¶¾†f +7ɚ, ^BÛ6£ä +Ú¢;‘ŠZ +敲ìèt÷ø”´ô¹zŽL‘56|óEI!J¿¾ÚÏ8´²»Nlˆ¥Ãò‰ëŒñUõ†ŠS4‡T„ì9qª}OpO[æ;Ëaî:g %16)©4;b¹ÝâLÓ®I'Ž£€ƒŽÞÇ!ÍÉ +ì +nh/Åb¼Ï£ŒòÚ +ö„‘GƒkŽ×£®¤ +sMau>Ê°0å”k±?Îúò›|ñ-™Rû¨öÓ +ð%wÛù"‘‹Yîïo8 +w°îhõ¨*åˆw^sÓUÈî1¸„Ê!4kS°ÏŽÀ +*?U’:F¥ÊȆtš»s¡\0#Š2£¸ŒBú”HÅÅ8•ï4:ˆ +d5ê=B, +")žtv¯´Qà1"#[§}†#Ï¡–bêÀ‰Γëz¼Žq’þ{´,¢™SŽ6Rœ,–òGÒj¡ªáÏp¥©¾ìÌI¨âöBQ’ 6Q榸É +°¼ +½÷§k³µÙÀ%AÊn9iawAr¹PZM~AQ±¡å +&Íq†Q¤¿|¬(ü3×¾ïD¥aGí¶Ð Xï_:aœÜù õ̇d¤|+x¥)‚9³{Hô£Õ!ƒ¤yôÇÁR\ˆÿàáӜ +‡>®ln;~ÊÀ] +á—Û9ÿÚ¨†ƒúý-ç·~ú6HæÎ%ÅK”` +Ú|wíÐÎáé#ÄÀrØú +‡rž_gå'èá.è8ìß~¦ã9Ì +;f2WI­ ++4 +h%õâ3^GC=Güeé@ÆïMÒFìQª +8¥,ˆ€e³LSm¡.÷k(]e„#ö‰q!îî„K +¹¥m/Ô@ñ¾¼¼}¥P-€“ŠÑââ힀ÅÇ4Ö»xþ®Tì'Zð:xîÜá^Ni!b»hžƒkkWÞò%–v¹€'GØ +hƒã +ÞEN”¼ÛºþG–¾äc +먛wßh« +œÞì*€O¬buGz¿Ë£0G¿Ë ëmgώp +çÑþ¥7Ož:]ÛãA5ZÕã?LÆS½ +ãüb +ˆ£þùÑ¥u¹ÐÀ¶WïÚ½eñÙõ/éÚÉ_cáÀ}$Žãg“‘Dþl>öšáO% +×9"[Ǐƒ¯¾{Q"¿U«÷$„jÝ ˆ[ +6ÎIèá,tü•·DîÄEÚ-þHf]OhM8škBÜÜ5‹O? Ú  ÊL%šî76éq  +ώÈÎ2QN¬BvP{ +êjoš9Ý ~^˜£­vO;µÁ +ÙEâh9I!kÐvBcÃPC—MdÉC1ŽGŽ4Y’™uW{’=ËqYú%Ð^Ô4K»RºfðU³S˜ïìqziõ°%id2M¶ +OÆ£ +]Ek´ÚŸ¡‰—§@ +¨“SÉDÂ{N +e0ý€ÇŀÆೀ|Wr³õÜ¥Û/ +NÃmÀ~ÊÃd‘6UGó +«mµÜºë%¥ÖN£„B6X +#¤] +yÅëîN{ +8‹Å58Ž’PF“‰ØŸ¸Ë‰û߇ñb':°áZà1Ï:Ÿ²@x ½ã=¼6- +šJùº+š"ÙlÄÒÓ&»68‹Æ´«(ÙF“ñÛæ’ +”h +±¹Cö¬Àgž¼+eóS”w,EGNý²ÂsͲ0L±ìþ‘ºóÔ^Ñe)³ßûÙÛQ&z9Ô5Œ²¨Qæ¯ +JåXðïûŽ-º;‰ +‚5h_@só +0˜€kÝåôkœ6Ò.ÎìLºK +™F–gG#²5Ê6ª¦ÁºmDaÔPŸÐ7$5v +0˜g%ï®*ü+DÀ1$‚DÒü +Kü‰?Ú{ÜN?vhþé&Wøe°¢ÞïÏ^73ÿ7)×ÜoºÚríFM|çu›­*rƒ±0.yæ—ˆÀ5Š¹&ät¹’Flï9l5u‹:ü„Çd8û¯^"3ñ™%ïžØã ¬Nû +†7PGã´gñ-±“Ç)0k‰+8‘)r"ÇvšdÈ:´o2tꎦ8F ¯Çãô¬Åë%<¾{¡GÓîÈýo1 :h‚Ö‚ƒÄ²lÎ7À½<Œý/è $^žH³N–á³&-œVD0ø\åHf +OÞ:è + +ðX÷Eóg†³— +7à¸Õ:§yqÎTX î”ðƸø\õ«ÚÜú-Þr؝“¡ÍäpQ6¯ßݛèíd}I]]ùùi¨*õ¦ÈÜMÒGñ˜ + +ÆAflÑ~p¼xÐtà +úð1÷âíûÄMè¶ü›W›{°Ácìà°ì4$Uî8 +H=^J?>mgî©+û¡èIñþ´œDù.P§«37„D‡S‚O¿’ö” +ŸÑž~‹0”¯íËyÒ +Ô:åÌr_£žAfÓ2²L2v±'$žàÍ'RÌWðã*³o@1צïè:á¡w– +ê2à* §JŽîläÅ +鐭NMQl´‰¨Øp܁ƨyS‰DK +ÞÅ g<e¼Šz±³HU½/±. +ÖsŠè9ÄB˜D~8 +Ǩ@N +pѐ +Ek“öÌô!4š]a¡n_MÍ'›î%ž§ýÃñ³×¯åð7·'DRC±¬¢ÅðèŒÁ—rÝßÇÊbH +m;:”ä?Àw€ûªû™ ÝÕ¾„#Ÿ~wMu4A|t—¥ót¤-O뮓Œ¢ØSUâÛ§¨-±‹‡JæàžÚrÍÊ2FY”j.„‡Ï +(ZUUl-m{ÕÙuY5ì亲dԘUĊ8gá[ŸâÌ×F6Leþþv?WáT–ؼ&½pºÝ§œ7H° +a¡N­èêc”üT/þ7Ÿw@›{8#»A¥‚Õa +!’¾Æ=‚9UÕª¬T2§{µ +Y"†X~k”«&ƒ_ˆƒyÑ}¶‰0dd7C\èÿeaªñà<"Ì1õï\îîœôJ°­„œ¼ÜR\(*mй[™g¾[{÷ä•qf•NXXn‚¡G¦/wðÚ;ú +çNêò5ØÃé’ +2F;[Wýšs-µúㆃ·±ñii&™þŸ/¶zô©ÅzÉ”¢I½)ð +ÿtábïA¬2” +±µ‡ë*(K?°»P¯«¦ê†»Úä7K¾•¥Œ7} +‘:"ó¹ü/ðQsy +· +ß +m²Š|¨¬H¥À­ÐPÑQÅÉ9~’SlðF=•˜ß SÿÝ^š<–zñ-=®m3MF +Tõ£/ +È‚4K{!|åÝß7³ûËö—•–·­;›|‚¦Ÿðú>ŽÆ‘“žPYæÞ»|‚¹½^üÑÓg4Ó§€ +v•ÃfX +¹-ÄË;%–À¶Ó •4Öì +ƒ8Ì@ǟ¾¸Ä¤œ°7_” +)B +¨Õ™I黶/BkÆ +pâÉ +Ãay +ªLzòjµŠNT‰ñÁ)ì®©hÜ×z°¹k‰Ëbª¤X2âÛ)8§Ö#—'üsH¦r)¤øÂÔ{â!›Ùe[ê\èFo™NìȨçï¡­ü,´– +×sž,ºäZY·t8.E*Œ»ŸðÊ×'ú›†CÀÁŸÉ¡þTÙX®#·ŠRiK¬~ + +­ À +uø^RO÷L}*×ã¾*jäp8ýö¦Ve³Ç¾U¦NùÞh2ˆØ½tÄ 8áäëý%tD”Óø³3w,sö¢KF«qø9y +¶Is¼ÂPÖp´Òo@Gúj6йîÙ¯£,Z¾zŒœCéøIå?éóRöê³R½PZu®*>%u7Ds[bVJZšü›9©á„Ñ¿ +··áPÝWPMé`†Iù“M +8íéíL<"©¿‡‘¯sïIq(.ãOï8Gu?=ú³¹&‡¶0CRA]iõžýÚìL* ¹èâ]—UTÇ6(øDGÇúTûÒñ#šË!¤À§9p÷®ØðEÕ¶Š¸È +·(X͹_^Š+ðýûßàѪºˆ"¯êå0ê´-©Qä%5ÒdÏהîã°O.?>?u +>ø\6m—òsċ¿y-Ñ3 `ëlüÏ5^º%róÀ/Z™s€V•7›êêvðßú|Dz c`㢄PNßÉþ9Ó?1cr +ºùóÀÈ"s·ýÒ±ŠÈy©ýýcóHmD±í{ªOéiH1²KjÖ§>!~~õM=útq¥Ù×aξkf#ŸCí¡KfÜÝÄ ù'=‡êeªB)>@=ƒ~(*(Ô}¶Fv‡*¶íð0s.[T&‡¬Œ,•Š,#clDûǨýÚÏŽá-¶´¨d_åìG +mòÒ褦æRb AP°ÕÚÏ ¶­ØJ&ð.¸FV³³%Â$F¾ùÇ 0ù1NÙx}ÌÖ`îÌ¿dDþ¿úì"6ñÇN·— +îr‡;­šÑÎë—Ë ¨ +i¥Döä·-aOq¿¸Žß&[73 mcƒ+ +_„Qɨ¼ÚòÏ|đÍ@f”I–ÏqO +nùÊ +Žc¾hí¸sòýMrkqKÏÁ¼zõÒD`¾¸“×çátì-$$§ï†XÎG¿»¦F¿¿©Íó—0]”ô¨¤22ó÷Gõ¯ +¶’R¿ÝaIãUŒ»jš•çñfY–A“>>5+;9=3;¼t[.%óPâd¨ +ÞÆ;ë3k3õ{àDê‰Pr8B´° +V”†wf”«5»Qdì/ŠL +å¥ËlN| +TÅE´Àé +ú˜>Gs×,/\Y§¹Ë¡B@)ä.ÖFhóMsšY-Z‹®4gX#Î+—ü@ϵ_³ýM$NUÙ;衔©Çy—Í}EêYû{Q7nµœ»%´+=Y×а•p¥êç.Çý½ákñÃ_{ÜzvÞæçÎϪ9+à3–¸ü†Z +;öJØ¡nñ+Nó¾ +üÖï,LT”Y!òF‰˜&Zóy%{ò/šä˜?•c>Û©$31PmefºIŽ©3SHoR`Cx·xOþ%S¸ª¬ßÂÕ´B¢ +²³3ÔÙ4ܽ6d +6 +I= +s7‡{‰E·îљI a™I¶Ñ›ƒ]C$Ar®Vs¸9}dEhHdt w‹ò¼p>¾EuÕC`ûPægIÅ¢¯£r¹²Ø%ȒÉ|ªás¿­l¡9Ä=‘‘ún65™¦rºmŒÊ±l?n´TÊÒìwzAÀ9ʬ“ŠDw +n)/(’‘My¬Ñ +%}ŽèúöEIUß~‚• +Syßޚ¾ÖbŸ!ÿїEŸ +endstream +endobj +900 0 obj +[575 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 750 0 0 0 0 0 300 350 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 726.9 0 700 0 663.4 638.4 756.7 0 376.9 0 0 0 0 0 +750 0 0 713.4 550 0 0 0 0 0 0 0 0 0 0 0 0 0 500 450 450 500 450 300 450 500 300 0 +450 250 800 550 500 500 450 412.5 400 325 525 450 0 450 475] +endobj +901 0 obj +<> +stream +xÚ­X TSçº=!ŠÔRÓÆÛö +j‹ÕZµzk« + +ZGTÄ EfAB dž¾„@&fa +ó¨ *¨U +[m +ªVÛÚ®{k{Ûuo_ß]òo½÷Ô×ÞÞÕ×®v-Öarr¾oûÛ{ÿaþþ‹Å +|{Íö°w6Ï^±!bÍü¾¿,M`Ìÿõ¥W1Îó4áy†åyÖÏC±=OùS÷ÖúÿO€ß³ÁÚð¸ïêÿ¾ßLñ]ŸÃ—§.þ,™™ +¡¡ +熆.XÁH„I ‰¢à™1³‚ç/Yò痃„†. ~û`œ0)&:5xC´(1î`´¿H ޏIŠI‚g.M‰¯Í›'‹çFLŸË&¼1ëå`q’(18<.=N˜ü?U +}0.x¬ö¹c¿Vð +2DqÂà +üØ8a*®3`21ƒx™õ6±‚X巆ØH„³¢ÉäIY,‚H%Æ“‰@b:ñ~ϋÄLâ%"”XH¼B,Çï^I¬"Þ!Þ%VkˆµÄzb†ïÞDl&‰-D±•ØFl'v‘DˆÁ"ü ë¾ß +¿]~ß²¥þüqKÇy8‰œÓãËÈü&M@ë'M˜T°,àþdQ`Xàðc‡§ÄN|\d{â©' +§.Ÿz‚«zr¾Gè¹ÊìsVÞ¸ãô<ãF¯\s:Y‚› +ö)¶—í} +k*gSA.•ËƒÁ ‘(“yŽÞÙò0“aÛ¦ +†-~·ž“­€,¹ÊéaÎò‘ ùëó"ÕӔ)ù»@ +Bc^e§ÅÜV²Jjω$b;E½Ô +@AÍhÑyt•‡„œL¯F +ù ¶­-ñÕ +Nw‰»¢½ø46h©|\‚Z$~5+‘d†¦ºŠ†2³Ë\F2{Ñ +®½Ï:äè+9Qzöï`‡ÃА%ÖdgƒˆÌ*•WPÕPVn2“FN³z\ W‘éDï;‘Ÿó⵿9Yhʇ(ªñJZëf{_ò$pÿ~½±¡”´jœiÂ,Q¦ +ÒZ©ø9«÷Å×ÇlŒƒ•dd“Ø]WåtÕe™e” +2ÔJ¡Þ¢+œë®ûëé¡u°ÄdèzFÀ.žÝ&Qp¼á«ú’äMí Gž]Ì­ªiíê²¼R)ˆMMˆ§“!³VYO¢ÌÖjôÖ·,äÿ=m)ãf/‰Ú¸'&?ß` +©5« ++ÐD€Æר[ã“ü~µ¼ŠrAY©Ñˆïb}Ž€†P8× &(p˜ŠŠª ˆ´+!‡bÂ19ô “éÕê,P“> +PÞàFÑnÏ + +ïzäÏM‰à‹vjd¥²I¹ +LTmƒ©®Á]0Ýâ€*›Ò¨¦ÓMÒb¨‚Rk‰­üâòP.ÇÁ,2æ˜ +Ó¤>ŠÙÁL·v˜ÚZÛZ¦C¥Cyt$h,úú½^’g¨6HA +:µ*ŸdRGVqQ8ºçbîá™oÊt{ç¹Yhæm¶·Ãû×X`´‚‰ÄüÖSzLS•bíë¼äá +Mkd¢˜DFÄș7ß +ôXpû–ÕòŽò/}·(AM)AkÐ)¢˜9̄es +]r=CC£½ù-úÓà•¿^ú +HÄ-fè½4äêEº\R1^a +B +÷n4—“ÞÙ¡ +nÔÙÌòÎGy\³ +Ck$írÐQЁN§×+ÅYó§ýáÌ,\T 'Õ`tÐ`“¹ô +jæ}ÁùÀšÃ§A¢â땠×kñ4}QÅ`4”¼‡„<£ÙXæ±OÅ +¤ÓIÅoJҗù*ç<2ÚÚ-Ƙ† +ç Çþ0 Ö$ƒF/ +)³áj‹ + +*kÑ* +˜¬x +JȦF¶?ZùS ”Ó¸\½VÊ<=ÒÃS$ª•a@J +*‚'–㣱¨ +w +„;>ŽšYè,ºÍýŒsÁž‹ËÏQ +t2\¾ôcu€©  ô +’ñ +Õ­•f½•#|È¥œK¨ôaÝã9ÿY{ð]„:‰N¤—úhø‹e¯ýUeûXÖÙcêê=Ü0݆Ùéã9­æĦ€óú¸]¦å¹=3}”ú„í]ˆ6qK†ŒÆ!¸TÅO + +Šðm¤Oo]Þ¥5,4ã®'áÛ[ê 碐Åh +C1{˜½Œ‚Éa^¸Çø# +E¢h”‹ò©‘é#›¸ +6ßE4œs¡Wï ñ|}çÐE ?½¼ +âv†fz™5t wOf5¦Õ{NtÊÍòX?ê¹Ëö¨Ð}.šâþìSøŒüäí˜@Š1sFGkªºFCÀø§PÙÚT½Å@b¬-¾M +;NîôÌÃ^@œg{øž n +0ƒ +ÊI²*(ƒ!k ©XÓ3 +‹êŒë/Ó½Ð[ßÕï뗻à7‚-•\uÚÆśÜ¦¿ULÃñ4±¼§þ|ÿàa ÏZ¨h¬(¸s\׶ѺPR +q†à +zrMc®Ï¦2æ^Tð¤ +$>g+= +9 +ReÐÌ™ +÷Ò@F¾|4â„ý$Ö(n·ÐÐgi´w“ENnZø½È +?)˜y +’i_@ò +` +Gàj|]½ÉFužÜ[œ +ûhÎȦßäØuT|bës +ïÄ`ÕAYV’J-Àð +L—«²µ;ÖµŸš +BæIUR&Ãúi4^9ÂÎߨWä„M“Eçïþ5ÑØÇ\™ãê?œž)~¾=”ò2õÙ¤#w Ûöù +ցfƼã›ß§O@ÿ‹%™y’'K‰{ó5A¤9jl6'N·%Šr‘X˜ +םs“ú +n\rÞ&¥8â)„½±È­ú›x&G›Ð¸ò®:<“>¼:ÖEjì^ñSÝ +ª9ý`sŠŒ¿È#­^nÐ23FîðtyŸ]çÙò+¨F(ª7Yp á¹N¢'þäؙMƽL@v¤B¨U@&¹«ù`ïý4ËüU:m®"I0 +¹J‹‹†ZG³ÕY­í>œ!OˆŽ½A­ƒèx~’/ÿŽ•J]g¡'±ÑU/›[%udKÒrøåÊ2gme=Ŭ±p•XÅäæîÌÖ¯~ö°´ùá@Êò +ki¨/í¨<6ŒóluX–+ÉÁ +±ó035Š±üa,0—Z[ê²°y¦©³U’+~ózÉp‡Î^¾ùûB1¼ZÝÍ +X +_xÃç( +Hɕ}éT'ÔÖW´Tµ•¼ +?ÞGixVÞcI¾£™†0ÙÚ +«p@pÀÅÕ{¬îr§«g £¯çÐp‚MfÔ'i”BÈ%31X.WUK}VÓ^jìÝ»gËj±R¢Ä(ȝ^^ëþ©±Žþ?Ië(hÄÈÓ+°璣ç¾6pºJ+[K/aý°û, +ÇЫ}Ð)ò"³7&ýTE½½cÞâåøXèÑ ZîÊ¢ +°3!!B}y·kl†È”„ºþ”Ž= ‚4y澬ø¼ØI” +zv; +t]eÃUÃm@ÖCj> +YÚ +­t9ÓÏÓJÁZ2ߚ_‰ÙQn±8Mö.ôRQ]aMQua½óšpßWñœNÄø.ɦ‚‡qÑùR±5¯ŸÇì•æ +Ì ±~=£[gôõ[sMýãúݝp ê÷öø¨Ú‡Î +­ø"Û£F-Ü֝y롃1Ä[¯¢@„žG3(˜ntRÇå‡ÎÕyq°©ÈÁúÝá4ìKgÆ%Gì_¹C˜è3K +³Íæa±úûKf*W™¢RÇáŹTiÑÒõnSCS‹ûÁaQ +’Œ4(£Áf´ + õva]â7,4 +ÍE!>ã¦×Ãöu•âXBMÒ¯m>S›K¾—͵6Ÿ»{êßÚúõ×F +|ùmTÐU=ê¾YžEܧ´B­Yƒ–ñI9)2wzgä¿Ølt8Ûڍ^^¤<:7Lºôë +dÞÃàÚÔfjnikþ×^Ç2¸Ù~•Ù†Ê«ÑÇ×J1¢³>f£BÔÍ-(îG} +Ð5Ò\mV.GU ²¡¤cð] +ŸÚqñÛÃûÊ¿/U£Iñ¹óÜuôÊÅ!'ëú-´îÛäñç&hõñ[e©ÓUQÙv$¦k +²‚øªL›¼"§JsX^§̇R¾ñ£`g©lਠz±SVK¬yÊXmDØéÄ+(¸±ORpoeù.‡ (Á +ýd}Íå;T/¸3-ÉXÈnÉG¿ +[Ž'4‹™ +ǀOÿ/,åô ùF“Ÿ×§ÙTeY”ÚÜXf>o1çѹ÷Ώ¾ÐÚÓ}ê»ãhfáèúŽY~Jì,|Z˕ZZÆÖ@O̓]™sºjˆíÑ{žâšKÁ„™Q–oË£ø ê¤+˜C< +›\¯GÇ'bÏRôã8Ûþë¢ÕUXN²'½+24‰yQýc/jªÿ{Q±C“ŽÏËò´ÌÍÉ +òv@,98ýuڝ-=ŽØæÌöß´ægš{ºrM¾ë£ódî ¸D’%ÌQ 0ilr—  +rÈ´=L13a‡´¯‡‚3m÷]笵¿¡Ú†­M>òqÎ!ôÚôßõÔèÓË®"ùb'kð&:ù1Ûë™ÍÍPçIð¹ì!I" +©8§ìÏÈZSÚwùâNfšØ÷4³ÓTXîúøèÑ#@º\9»hÉc”)šŒ$æi½R–$Ü +½4$¥n«¥ŠGsZš8CÓ'éÁŒii¨9dM¯Â§çïÑ4§/:@¯ÉÎ|ww^áhõ‘Jª­-ÅNJj콖ƪ›Î›gñ>UC¥#ÈÇoðÚñ_ +¼Jèۘ£> +stream +xÚ¥S}L[×Ï6~/:W²µÏo+)II +Ó%ã#YҔ•Œ¦ä£@W5p ++æÓ˜€“Û1`û +›€›8”À#FI€ +g!MÛ¥¨Ý¤´¦©Ýº¦YÛe‰4rŸw‘¶GP§MÚ“®~Ò½÷œß=çwϏ$d2‚$ɇ +xæ傟§d徐š¶t°½ +7ÿã٘3Nø!]™“¨¿z¨ïy 7ddnPAE xX{ñț®ßÃ5Ußá¾VýÆÈ£³^Úµa!ùÝÄr]œ¯hÇÕªpeóq­Lü-¡A_3øÏ]šÊùìÕI ùé­\©sD´7Š‚‡ƒ +Í^È +„¬K¿qÐ9CôW~û9³óO‡ñšf‘)t;4ŸU)b[Ñ$š—Æ$±ÊśòØ +‘w¢ÌÐRC ;ç;XéÅQê˜Ç‘ÎÍòIߔïí·§¸IñŒTºçµ•0JA#gÚ|b +ÚáªNœ¹¤ºð¤+‚jÂèg]dÿ +Ô0#Ö »òÌðC}¯àÏXþô'ð*ü½¯Slbáõ€( +Ӝ×m¯Ù›_ú +(’^ÓDÅ4\‡_Ѿ°2€’> +ƒáò>–Ñ +ä;‰¿Hޛ–¢-±ç”8Þg¦®·7 +V-RzwÓ>qtzýÐÇO,á>÷™QQNඋ¼;ƒŽ.-i, +]SNþ +Ç3{¡ðˆ­€æäö? +ŒäÁNxeÿ) +Íݕã•ÿ&ÇÿEÎóÑÿ GùÔWsýæf[Îa»þÿ8 +PäŠÛ +h8pC*d¡2%Z§þ&1©NÆëðÚÛ)ˆDäíoÐZáe!è.XG-QÏ +LÀ[þ+|´û—£CÓ +K–^Ã`!ä@ +õ +0 +6 +)©Óƒ¨ãýe=îL#êC)z9”ߌù±8z.à¡¡¦Á\}Îö. +•w—ªvCÙ +§æ)ÇôÿTå2ðÓпÔE– +¢*®.!=Dö Lj½/d.{Å + +g?åqŸvzÜåÃE¾@c©îÐ!¤Þ;>Ðøëú +÷ë¶N{O + +£µÕ[™mP1oûŸë;£$-¥|¾–¶ÖöpokG·éMó +Ðwff§‚iS}°rÐжåŸ +Á{4ºz—¹­Éþr_S +×ü5Ð}Qk†GÝä_g‘¢a£±#¸Àémj²‹y>Ç£hSà[ßsÞßËðTµ·,¦r¨YŠŸ +Ö¦Îr´iQšX„Wš³ŸXšm‘óþŽœ¥ÏÚõ5ŽS6ÝxU”yF溧hÅÉ.ᙠ2¶ +ºä¸¤âWÎÄwu$$Ìt&<Ĭ”ÙŒ +Ð캽tRñ +endstream +endobj +904 0 obj +<> +stream +xÚ]’ßn‚0ÆïyŠ^j– +¶hBH$!‹Û"øXŽd”¦à +o¿žV½Øðãã;ÿ8õóª¨ä°ÿ[O¢† +ôƒì4ÌÓM + ¸ÒcœtƒX +oö.ÆVy~~lÕg;ñχæؼåÇ£ïç¦dé wŽæ®€ðÇ{UÔ÷y±’ýD’Ä#Ä?™„ó¢ïdµï¦ +¬QûÒ +èA^Éêœ×V©oJýÂr!ÔKS›Ž¹–ÄÔÁ¬Zº•WðJS’”eêìþ}créÅO«•+ç4J½„å†)-·†9G²9´ºyŽ +£ŸÇγCÞ:ÝÆî +£ +–ÌæΟ#;=´z‰Ì +ôǙóÈV§û­ +äÑqøìÿ9+Ðœ™¹Mu‚̵aƒ#†± +›zØ_è +!Ðï­`ØUsùñâª_›7­Íìy°ÛÅE +^GFM +£ìõ÷¦ +endstream +endobj +905 0 obj +[833.3 0 0 0 0 0 0 0 0 0 583.3 555.6 555.6 833.3 0 0 0 0 0 0 0 0 0 0 0 0 0 500 0 +0 0 0 0 500 0 0 833.3 777.8 277.8 388.9 388.9 0 777.8 277.8 333.3 277.8 500 500 500 +500 500 500 500 500 500 500 500 277.8 277.8 0 777.8 0 0 0 750 708.3 722.2 763.9 680.6 +652.8 784.7 750 361.1 513.9 777.8 625 916.7 750 777.8 680.6 777.8 736.1 555.6 722.2 +750 750 1027.8 0 750 611.1 277.8 500 277.8 0 277.8 0 500 555.6 444.4 555.6 444.4 +305.6 500 555.6 277.8 305.6 527.8 277.8 833.3 555.6 500 555.6 527.8 391.7 394.4 388.9 +555.6 527.8 722.2 527.8 527.8 444.4 500 0 0 0 500] +endobj +906 0 obj +<> +stream +xÚ­zt×ò÷ +aí†â€Å&6•i¡†N(zï˜jÜîM¸a[.²%$÷^dÙr“m\(`: „:G{ „„Üu®“÷ݵMxß÷xùÞyÿ?‡³çXº{gæ73¿™¹W"ªgOJ$õµ[±h㪍c¬Z?i¢ðÁ4W¬ÿMÙ +oÁ¦ø÷D<׃—‰ùw{¾GQ¢úþ“z›<©Gý„çò;ʊ²‰$}#cõ +Ý}C'Nœ2~âÄÉ +#‚wzz +ڎr +m;iæÌéãl'Oœ8ÓvžŸ{ðNWgÛUΡ^î~Ρä_Û +®;ÝC#lGÍö + + +œ5aBXXØxg¿ñÁž +g¶3ÔËv½{ˆ{ð.w7ÛÅþ¡¶«ýÜm;5ßù\à(u¶]àæ +ìOtí#¢z‹SC©=Çö›CÍ{gkOGÊy`,ù*Yԋò£üE½© +*Œ’P4ÅPoQ½¨>T_ʒz›êGõ§¬()5€b©w¨w)kʆH +¢S +Ùo5œA½O¤FQ£©1ÔXj +õ5žš@M¤&Q“©)ÔTjõ!5šAÍ¢>¢fS;©©xj>µ€ZH-¢SK¨¥Ô2j9µ‚ZI­¢VSk¨µÔ:j=µÚHÙQ›¨ÍÔj+µÚNP Ԗ +øžÔQQsåâ¹â³=7Y +³@’E£äwz)F›èãô?˜(æø[3ߺÙkr¯G½Ã{ßîã×·gßY}óúÞ´´·¼ýöŽ·Oõ›Õ¯²ÿ’þ·¬FZ%IÇIã +3à;vÃ;Þùò]í» +ÖÁÖ÷m2Z + +˜:è½A +Ú>¨cpÒàgïE½÷ˆ[%›+;lke+Ò{È¡ÔPåп +öëp·G88úþ„÷ïŽL +5dT䨔Q§x•eûø¦2ˆZÛw‰ùÕí«ÙÄ\uj$D‚:)1?ú}–uR<¨AÃ$¤A×¾\R2Ђ.)“é°åŸ°ÈØÑ`ÑQ/±äo‚™·0£T£èåyäqþÉ}1¿‘Î"ڌ{!FòàÓÖœ +ò!?169"‚™Ð‚°Šª|CY½×ž +ÜZptOJöoؐÌ8ÌlƔ +KfûÞÀ×h,å|éZíQÉtHÝÐg¸™^ª€2t +y¼þ¾QÛª«lj +&òý.zž:»^†kÐKYÐOo·|Á +‚Êp-0:R + ÔWÄ«b +bLӖ|[§¾ûý ÞhE¬Xùxùyéat‡˜q0=ÆE†Kÿ½.¼˜ÆVñQòl¤wÔ5DCL·<»×ô9W +õq†Pµ2¢ïò˜âÒ҂êÓ[æÇ½·`÷û§Š(Ù èTÐó¼ô)/%êýՋü´§ÒBz+4ÚdOž +(€ŠE†ý'ÓÈÓÌbobƓo^á2¡*ã㓣â "2v*!Š^÷¸¶[¯.ìŽ(øŸÿCðÜTے`{²ô.õŸƒÇMõ®»Cëœ +[ù¿E üâÆóÿcõ²n£Ÿßo<͕A]RE€›:>Â@žU”ÄXòª%üãyƒ¨îÚA̯à‹Ùðœe˜ ÍwÏwÜ{ìÌÊࣦ¥ÇÜWaÊ:1®8ö+Ô«4¦!ºlPï~2øÁîK÷JïÂÏY–¤“pZt'*T· +.¬‡&0GE1lãÝ|poXã¿ÃÇö7†ée‚*¼¬djòÒªõ‘¯éèþ +{&䀓WD`PPa`=g€¼¬´4­N«%y ƒèdø$.X¹*6–$¹ŠILMN;ó +êÅ¡Mïüw/’XØ`DØF¤7Þ7ŠN|ŽÖ›Ð,á)nŸ×nϦeêôÆdÇg*¸8HJT&n]²4p>,‚U¦má +»ò}€™»p:~ +÷ýzÖÕË' ž2ȃÖ]m_x +Nª‡oàˆ9-E«±î°û}R| +$ÚF‘ŸÅe.%#›1ñãÙ°e¹húè‹Ü’£Gæ +ÅÔæ›eüšŽ‘oü±h a©µ÷þ?b‰1Er3?Ȍ +Œ¢–;{Ï¢A&t¦RܾõeU³Wx;€ +l>â³÷àѦ¯Þh<_R÷@˘iµF©˜® +ì3ܗ>h +–A\R¢FµqŒÃ§M1ùX„ÞsDô±3_}癃Qw®š·qÎi +ê&O +cí°#(옩·W>ã¾ +Óûj/¬9 +õ)±üìIÝ=¦Ã +5³7U§ÀÌÜmª©;ÃÔ +,›55$ˆqúˆ5Úçûí[U +P¿¹ÁcÅúU‰ÀÌ}zL·öÔkc,QõŸÁr¯3Nxäò_lj%oõ%¿m0ˆž£»8‘=è" +qdåƒÖúÐü½h>zõÏÍ +è™ôd½’x~ҒµXº÷ˆÅb˜s²qßãØâ +~ûÞò,`ÒRôé²×{£(²y +Ò³p]únDkÐÛÓ¾ˆF™œ¬” +ÔÅ?Œ:‰§v<×/Äý°UL—²Ê”ä4¿:¤GP +$†»„²Šf” Mè AÄ[4‰ùP$‹j$yÅ`0„C´P8j%yP +áÑ +®Åµtt8„ +Cž +‘¿$Ñn0@q +GÅv€–@ßêÔQ˞ +ivýÏÈIËÊÐ鬵ZM´ +V¬v´W*I¡HîÄ2çÆ +D“Öœe£"1ªBkØS¸h +Mö†—¢{/ÅhãQ¶*¤Ìß?$Äß¿,¤ªª¬¬Š€¯êèÿ®˜_N²+5WÀ¿+»¢!9N‡ÿþÇ|ë¤$F‘ŸÍåAJ–>K +¹±ÝÚ(j¼ƒ2îˆy't™ +›I7½®ìø~f3¬ùA.ã}'́à“”IÍs÷ͺ +vŽÁ7%û¿«¹z +n0Ø_fÝ`­)â{Åx +§á +œÏ8VŒz_Í4A-œ( +•µæÂJø–(Vì +·ÞÏÙ¤`4˜÷×^£ÖölèB¹U+¦I_Ú@¶j+g:òiOUì$ÎÇWR§¿MM÷¡Ž´=I•Ý ¶¹†~ùåG³Õá_ã£`^z}ùMDܙcðÜI&ÝĖØbބɃ¾°.§¹<¢Ü‹KBCSúű†SÀ<Ú7k&!é­³7®Â±·µBA¾ +a¤¿ð´¤Í·–$ù%:ÆíNLXòNí啗ƒ†—¢^?~n²jA=?ü }ôxî +)¦Ð>ô +{»âÔEÏí)'ƾ?wÍ\ocx•Ù`¬:l»9ó¡ó¹õÀ4—O’A¬z]£ßöª`M‚&D šD +Ä1Ò +" + +¹ý’Û +KFãÁ‹ý +eNðI¡×éº$³ö2õÿŸhljO–!²|ôè'Ž‡Û+¯+é +4óÎàÖk`4“J{ªó¸]¾’f}´´ + +æ×}Òýçæ‘üv{ZOb%!ŸéØiíK#©ƒ* RñoYtŽzü€VÑ»w¬?ÛnF᤿òvh‹zÏ|Ž)n;8Eyz1h3mPÖ&փ޾ø(7M•š(ÓT“TañÛ–‚+ìH·/IЫÉgL +$DÉð!:ò¸tÐéSÒ² +ŽÝ‚60íȈ(ðйÁVFúxÁšç7  +0֍<­×è5ÙÀÔšÊÊ"MÞÑ^‰;¦]C +†ôWÄüô=’Ê:u懖ÞyÔD +õ¹=^þPځ¬Ñ-¶ŒFi¨_ýRÝ[”ƝÌnWpð-Ûm,¨Îl<ãøé +<Â,’IÃÄ,|‚Äßý¼)ü=sҎ%à±%l;ƒzã«ìJð;£Ìh +›PÄ\¯yþ¤üA0¯*ò€-° +¶ÃÖHO¿5;’B»Â§„ÿâšè„é»Çb>Éf +ÌXÂàd ¶unr1,ñÆ.&‰¾ ólnNzÚuÈ%PºJQ³±Hî= òÆ2A s8xdqGh8®?žq,¥4ïÞþÏ»b}y«‡îGåûCKŸ¢éüvGuò +(d>û¢åÒås›p°Þmû/Ƹ›ýºáP©H'Ÿœ8rÖ¼ñ +Dè +Zì³c‚M‘ŒôÅ:ÿi`3䧥¿ ‹ïîüÊA½â€{KxIT֊&f¤3‹ÞžSÞê«mæ}²yæ´ŸßáàT͹o[»ô©|·”.¸aùcäöŽ]b}h +3lÇ:.ìt{˜ýU +æ|y”_¼ÛÒc.ߒêl‰#âdÄôW“¹°-ÂÉÁÅ!Ô>apÿ¿&•ZúëgÐÜRzŠÁý>f£`øžh€Ã ðUkICÅá½¹uÄ!µ; + +r|RVÂfÆÎ1S¸N~EÝË[þ+Çâë=ÿ•w;}"¼iuïe¸Qúã›_–> ï³dҘ³b^bÂëÒùõMÄT©¯ØýYR‰ÿµÚtm¶.#]¨MȦ ohÿ@ܾÝdó_•¥Žï%Ýe(_Ƈ7±Ýk·¬ãï’ݯ +”e{<Éÿ­f~™ATÓ>OÌm_É&åªÓ£ +TʤhìÚñuÄ×ÝvB¶¥Ú}ºzs›ºFè·›Êe ×fiuÑ»Ö$GñdlPB²ß$ýr½þ"ìÝwPÓBÖGÐk :]QË`#ŸE&-|ÝË%–í[ˆ獨Ñl +dwЩ§óŸnæ{°HC×êÒ[9ÔOò´îÃM+¶MÇbÙ£xöiñ +sp +¹?á6~‡ëèá[&¹¦SxÊ:Êhé/„¸>æB|ùÁdóðÁßepæU,ÎaVá,î/±W§×ÊP9ZK?k¿táæ™Ã  +rsûf«/xŸ:Ržœ@ß±Ø}ˆ'¡ÕhúH†˜,HáJM\ +f;‹€Y·ìAGdÄ£mhóžÏ8$‚ +ø}]4¨ò€)}‰ +ÅÑ +®à’!™åÖyÖ +õ[Fú¯ÁÓðìD䧀¹]d!î +/}.®kŸËú–ѯLzeP š84 +­Eëñ 4 ϕá¿Û²ñ{»z.ù +.ȏ,Ü·6sÌ,_ã¹-,pýº÷ ™´Ï&@Ÿ1£Ú="4øÚfBcMz“ +¾Î¾rE҂²I +ÆãCçãOÈXeÓ +™á!ý4ÛçC™ K¦)|Çp“P¢¤Ë=¬„ôn +°Œ1IÜ¢ãÌ+ŸX¶Û¡­ft°KèFfó7Úg³ +ÿt\É++I龍͏ žÄ‹7=rëdHsþ>ë•èéqÞc¹i(­[t ¦ +˜#¢-ÛMrs¼›ùîüðWt7ÿð,›+or%ìŸ ù24ŸnLIý‚#Ý·f£ÚÏõCð$Ýw +ýP¯ð­ ¥­¸'–Æ,ÇÛêÐâÛ­µg¸_áÑ$ +ù—®õ©±;6Š@¶ˆ'cg쌦â)h½Lºû2Ü,ßsšéʵÏÍh¹Œ¶b¾ÿ‰­×e_ãÊÌ/ÕÀ ßí8ïҚ²ŸàòÅì«Ú +Bk{~-ݜg‰k +Õî{ç)àN„×Ó?@Œ‰¥¢×šòÃùé,ZŠæed +=rKkc¦ƒT>è¹ +v +£T“&-â!*..!ŸÇmÖèÒÿÄ4iáz e¸$->3bmüÜ Œ°[Ànu{;ٍ¶ƒ])~û‰“-ˆ“] +<×åäo +pGÙl°D1"÷Ç +™Ù•S|5½ò¾ãjÍOÕDpq›óf•ø"‰åo£ºM·­äËn‰‘²}4oTiðœ?óHE‚ýpA1í!]mí!µ`= +Z+d|½–FÊß{¤Æ¤ÆgM6è3R²‘¦½¯µ¶ã’ä•ñ +ú¯ ±ñKhxm<_ö +8™ÏÑhÉJûVIòÁ Éהª´g:ŠÿBµB:5I«IQòã:žZgÆj5éÀäAz±Œ?DW@ë +^šmjoïm: úØÊ:æÒÂÌ]Þ>½\DRÝñ +¸Ý +=f‘ +K˜{9^‚?ÀS± +ÉÂñx"ZŒ–£±h +ràð·øoìX<ðo(å ÷¿ºs +[ˆ3q~oúYIî-Gg>~€Z_ˆQºÀ¢9ÔQ·žÿ0êoø=~ùOEç/"G + +YTÚÅÍ$h + +Ùf˜ÂS„`ƛ^\0¡·|•ÉêÄs4ΈF6¿x +l–þƒBW +X;îyP$ƒr‘í­ÇOÑài8ƒƒ9±xȐ9ò>‡×³Å×ÉE¹áZ5ƒ&d±;Ã}’Éر%á`~UIm£ì³×1Íá,êuô[4ÐXæ_r@c O-çÌP—V•ÉHÿPäË›ð˜ŸŠ‘Í‘,ÈVÈâÌ +qJ;g?'°‡à=!çHœ‡Ê«£FÔF*7wiÅÜߗ“æ+T8IÍ¡¡rŒú,]€yˆz&ã‹CfáQ²ç1ìÓ²ëŸÁuæ{,¹‹GrøË7àY¯¿D‚ñRg-x•‰iˆ¦¥¿@ +ÔíÜë ¾°–ƒk³{³çqe50× +oW¦AvŒŒ”êxM¢r¡WD0é©ŽD?‰¹i +qn[íÆbÒ`¶‘‚?±ÒêDyÐ9ôÕ¹MåÒËè'ޚÅÌ«òݎÁ)›‹Ç>»Î¡Àˆg¤9h• $µ#R‹ehGé'‚F“ëµÞگʥy2‰xñô)Cd0ãèüëÙÉGb/’&øIEbub¥GIP–7x3 +·.˜ÎùÃÜÔM‡Ö +SÓÔk²ÈôÄÄ@b„ +Ûӑ˜M&­.=´z}íQóÎsžH'ÿÖÍP™ô2<_v{ºàîAâ™%h^ƒ¨Þ„2 +  +“¸}|ûL¶I±œLyhZ~- +EPYê’dP@(C€Ý ÑC9Wa¨û  +|Ñ9Ô¹ÒC!oåÄIyE)Ùº +(&aùÞyxZgQ'h½ÛEfífÌ¢XÄ,*nß.nñ·Ù¼†Šª¯„#3_µ«&Èo.HXܦ) "$˜ Rª•xEÇ.k¼×)óH1ÑÙT“°¹j1¸owêÚü +b\ž;ÚÝñ›uzxª* +A—ššÇXþ–Ó%¯è·ñoCˆ¼¢“û²ÈóSûjüüWtÉûRcð†pPªˆ¼1 +.Öx*£IQ§AªMõ)(„€à¤s֟„Èñ4.²Æ²Žyx¯ Sh:è߸ö*¤$åx ûŽvk}¼>.ˆé)¹h&Ÿjfu¤u}hÓõ)óšïÞó¿òwنÏN§Ô@7B¾Ý5„‡É@¡ŒIV♸Ä/CŸ&f€RmJL):•˜nÎ;´Îdyýd( +‚þÎo~c.†Ò«²eȎ¶äìáÿ0‹.˜øU¤ÎíoÌ +á +éL’TȎEgD¦#‹ê[h‰æI’›œ¨ +$ØD¦B Ç;K +‘4 Xþ^E’i†D˜›ôM¿k¡^Mb”õlӘßÆ=mÂïý±›N±¹—CP[˜ÁŠð¦ +õ¹"<¤ ¿-¬ðä :N©Ô¨ ++F +y)2¨Iÿúìç9Ý'‹I)IŠsq¯5eûêŠ*Ê +cìÿîÅRµ7QuJ{<‹ßs}úǸ1®è=ÁþÌKÑ·Cc[Zî·3, 8°4¨z¡Ò$ +Ì)Œ‘fäc,8éñA£U˵íÑô +—MR¿£èÞ7lŠk +s+0%ŸåݒÞ@¯ +V*¼“¤rȞ&4ØèÙàÖ¸µ`;é*Û/ó3D–WÈT–“T»C[Qw(›DÄ¡“n“e +´tßÑ-ªEª•~Ÿì +Þ +ŽÌ¬§Ág9"å< +l*neÑ +v$=nÁN‡m.u‡98ÞrÍLØRaT”ðÌȣÅêåTpGº}Â÷eÑEWXøÒ3·É:ž˜h­6#¯¢•‘ +ÊmÙz +x»÷Ï?¡\:ú–6x8ÙGE0z\À"šd¢6» ñÄñŒ28õAeîå.úõà +ê5þ»|ݽíÀ<ËB¢K@ED“µ +ª}Ü`²Úsm~ +-œá½ +üY4ývËQ.Îjê<]TJ?ˆa‚ŠÂ*Ë + +Õ_Ímü÷Ÿ@Jn?Nú + +ðléäÖ >YYq ââA¬Vú_ +ëAf2~Ӕ}hš¬Óby +oÓi1Up +ýŽ³Ëh42ÛÂL/JH?$“ +âþgû±/í_ïTn'\E + +Y,ýa¬>ö˜jTÒ;ÓjE¤ßv¹“`\yÈÞ fÕIh†ݙª%潵ǠZv› +²#A +ÝFû• ùF«Ê;(þ|çÉeO”ʦ¡ÑwM{€y‘ +¹Épü.áPÚ¨‡’gvOIŸÉLŽûˈ̓hdy‰‹³tI‚ÍJu‚×ðI[Áµ:´ÁïS8õŒ%:Õuc8õn†Q„zž|_Œð +XÄÐûôÓýo¾‘mð¨Ý´èÃMC8Lÿ_7io¸aEW‘Ä,$/v)EëOÝ-EPjUÙvÍ¿Z×æxJú«£OØ©ð¼Tښ|SFNie0÷ad(és4>»ƒbC\ Ȍ +)PZhh +hVóä +k2hˆj.­ßSŸZ$0 +è5Šä$Ä2‘¹±YÅé¥ +±5n$Å +•Î.εÎzÒ+_¼øc8ÝM»bvGxƒ#m§À7×Ý +¶&ÒÇ \™Ï6"KÔëç#×9¨‹>²¥rSå:X +Áà‰ZŸ”]f Þ +Ž/°ï/>rT÷6ì×3§%÷PO˜f·pëhY×Ulg8‰P +Èý‚õø†íªN{DWQÞ¦ÞóúJq%ýó¥çÎfÛ­çp4ý¦u›‰xM5ƒ6Ðp̾õÑ +ކu0 + +×Dº3èÅ?¦ppEÜڂú¾´ºúrÑyé´ˆ_Íb[aÅ™JºÆW2j´Çteuu]2–%§6ʤ?¦ð{ٚà’_y`P 1È\i*©!¤w +; +þƇtîëú¸í—åçIçç!썩t9û‘À”CÇàwpÿ§ï#†(~š÷«=òeñ|"ä!1Ñ>öÀÌ_ý€TŠÞï\¹Ù2u|Ð+¯¿<ÿòžôú}Ë¢ +4–ýñÒ¯càMŒ?ž~Öòàá¦t•&,‚˜€’ÝÆ"SNMo•'½6<—F;c9 +‘ÿ°ØªÖü)Š0 +~*}€ÜÐ&֘|; +0[¼\çpÓÁódø·ª\MJÜ«ÉɺkrJ­¶¸XGÄïw> )!ÐÓ¿üZGýªcs¼kÜ2œ3HPmÈ^š +§˜ºòæ{ +ê©“t¾ÚøL¢^×|÷c×x—DjoL¬*9.>Yå^é» Œ–îK7ÈÀ«  BÎHÔU*¿Ž&Z[“ò<ҀÌh†Aôó4Ð$Fó„ß2 +3ãahe°D3ÓÏvt2#ÿWÑøí'±õ—*/ãNo¤çù¹{, +G +Ü«ŽÃ¢åU~ +óƒn°“h4üu¿q!|Ýo,¦§n_2zrk‡¾íþæ:¨&ËðzLDã8iø Ø_Y%\ñ”‘n ™¦øh1?Ýc3K +÷¸/Tí¯ +Ù¡‹¸¯A“ +J¦›xur²bΰÆ=Q2·s˜*o„"2+øi6¨C]µ~Âò³¢Ìõ%¥Y§Eë’r!R2S²„µK\‘p¡ðô€-:lέÄɉ8¹¿ƒ.\x¿^cŒP‚:)f"δ + +j’s4ÂdRÑ"Í_³E +âçß%­ +ÔY1©Êl¿ôði8Éz +2$ =yʫ՝º%oÒvz‡!G•ãƒ¬ð¯Ö©ÑúA7]Zjޏ¨Þú'ܐ¢>²É}§¾Ý•F”ÃkŨ ŲÕ{÷ +*+7×7ç· +Z©ýÈȹI#ì\¢Îˆ(ˆŠ‹IR®šc=çÇxašJ³üüLCçjÍ2uÔ.û®ßt\­¦uÍ3ÌZ€{o_·V½ +l|érY[^Õ¢.²V®OÌ%•±ªö³¯¿i¡È"˜ÄÇïn\ªµ'tƊFMu×c„.´ª“œEwy9qé]1? +@\~öˆ¶^y4Â^'ě5‘„eã4ê¤Ø÷±Æ‹‘19KBP+o€b®KÛÈW +ýT½Ð˜‘uRL´·2F¾1`ñ +Êwx‘9%ÃLyxAh˜<ÆÏ¡Åó0wšO–ºT0ñŒ¢úœ +‚ùlf¶à +&7"8|™ +‚ÓÈ ˜öSqI;I$¸¦£o¼p}ždNTAwÈ +¸†Ìñ¸×.G̍´„>"Í(ðÉb>e°ÆŽdyçøwþ¹èÅó'ÏÅȑÿ[Vî —å•Õ†ò2Ù½S)7ø + +„‚ª+ÆJÎRnä"ÿì4£»äÐæ^z3ûô¹`èӗëÕsº¡Ï[èހÿ‘¬:, +endstream +endobj +907 0 obj +[525 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 525 525 0 525 525 0 525 525 525 525 +525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 0 0 525 +525 525 525 525 525 525 525 525 525 0 525 525 525 525 525 0 525 525 525 525 0 0 0 +525 0 525 525 525 0 0 0 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 +525 525 525 525 525 525 525 525 525 525 525 525 0 525] +endobj +908 0 obj +<> +stream +xڍx|U×þ,If‡ ë@‚8AŠ€@‘.‚”Ò„ô¶)›¶ém÷lzHOvÓÄ +B‘l@eA@y +AEAÅ÷,ÞøýÿwSØøÊWòK&¿™¹{î¹ç<ÏsÎY ciÉH$k畋Þ[ædá;C× +ýpØàamvڜ”½(K’’_˜úÂY~ +ŸÀÿ1ÜixˈL[+[WÛËvëìrG¾5òàÈ?^ô~ñÚ¨Ù£¾xiÚKº—þ²Åb¥=cŸöòk¼ +Ç%èwßÏÛùŒC!ÅÁÀÉ +¹˜®( Κ(MX=ØՃF§)áºWÿ?&æB󏷴@ã%>ã¸Wn +„ƒ\†k!qµÕDg„ÕA5d•iJ9\‹ÛÿçÖ ÃÑWpÜ +­•47[ûá›ülA347{B¬èȖá8«æîlJ³Z‚÷Dƒ/¤ú«c£É`ÛWžût +ë žžÍP ~ÆFqV›Í>d£ÈH5Q©!£>½ ­m{Þ +Ž +ÇïùߺŒ¼ÂZÏjÇÑí˜ÖŽcÚ%ÍmímÐ? +㢧ÃøÌ=éYÃ•E—*„`H +O‰%5-±MW¥@^U.TANYf>‡ßþÎ_ß}~Ӧݫ,hY}òdËùë‹ùØðÚ#GÊk + +Ê]]ÃcE²Þx“¿¹«mËf÷5óßþp݉Öýçnt¯¬;r°¬¡°°Ìo‡kx@¬h +§Çkz +®—Ô²Û¾iC[ê՛F–od‹«¡¡1¢Ä×Ùh9øùVA©¸Ø{Fà†ݎ‹Š +?óPÉéþX¼i½Ëx¶ç¬Ó­LL\³B¥Žò„mÜ;Ç}!œ†ƒMûK¿¸Oë/ŸØª UPŠ˜ê +»ÁýXB®Y{lO5GVâD>ú´ú +ärçjj*ö¥/KÀ?ÂcÓ:NA,ùœ¨rŠ]Y ¥Á»7x¤(s‰¿X+‰ü‚ã§9ëÙº§ÁZ .0X +×óPœ”Q@†~³ +í-áÑ~qä÷%ù9™PÌå¦hƒüÉvbKò MmÞtfáuUÀÕdisÅ^[,ð žçn»çyrõùm&Ä'+EˆÎOÊJÃYDRLfÀr¿›ˆäE‡èøĈæ³Õõ¸ +m1O°¾§ +3.".␋Wµ6—¶Dñ©ì¿ð(fóz¯ÝÚ+nµQé +œ¶°¬X„ÒØ<•F^úîÞ "dÎÛäæ@9— õ;2tQzæS¨·Ëƒ½ÞÞàmŠÆ1=ˆ0m•y*HN-Bx~raJVÛfulRL2(ìRÁÿ€€C?W© +Áß.¼÷î +½ôøõêOU5œõ- +¾}çÑS+®XàI¬âq´™Hd4Ža + Ù“2"V cÈhé3ràh2†Ïfº¸@°&¢. +KÉ0 +nÅq+.Ɍ؜ÁG;mŠMO‹H] +YÚôëGØO¿ëCם!~>îõò½B6ährÒ©pT]‘´ +,Œ³©f®šéh +8LB­³À›í|‹_»Ü×wwCPÓþêÆFÁz–îiˆVrÎ8ÙÂèòtŸS¢ +ª.š +BRtr +ùú¯¥¶IQj€D.¢8R+T@Nqv!G9aÌÕKNðC +#<Ç㪱8‚ô#–ãÉH²œ¬ú•ŒÀ~hùGârx’\þíå8'à8Ã/ׯ]y•Œ'–“oSõFký¯4ž)E—(+K ÚO‡äؔX÷™ãÂUQê0pò²”b¡ +fÙÏuÎqFƒ¯_5‹˜if¢k2˜¦—œ¾õ‹ÏÎñ ‰É) ä|«¡DÀûìޜ¼&±FZ^ž + öü©Ÿn +>p±íØ%øŠÃAãnk2`î왻ëâJu•¥u¤&ä;Þx¸Û_n›.’Ík +MqÀô +袷9Òñ^vdx‡oû îcøˆ»¾ð3"%ƒ–lYê]­Ôv+Jޓ–ÑØxò€»|ÒÃE¿hÏÀPŸ ¹ÊCµ65ÀŸ“ýFŤD8ÆþrjٚUëV:ˆ;a^~Ðñ¬¬œlÐrUáZyHh´Ï´‡kpŽøöþAö®n=ïØ@Õ_ŒÞØ_+©¿‚ò6‹ý˜Æ'ĀŠâÉ;/©QÀ,Â8±æà-3Ï ™›æ»·ñ »7)×K`ƒ!E +£àÈ[ +rüՊü*¥goû=ÎÐۜîØ`@µAöol0Úñžàš´#ÔT¨’¤Ï¬‘ +Ö;)ÁG$åÒiÊ 3+wOmÓÁ2ªy²?o]¸ü­Åï½)ÀŠÜ€³YY¹9ôœõ!%aÑ~ »f}³-qØ/÷ÐBýûñ¼ŸÉÁû–vœ­·9ó/Tvl4P +¥õ¤_þáö]Ø%qY)ô'"¸à2EMµ¶´¡Õ㣉Ÿ#É`â"Ȟx´\ø +J~þ!;½ƒôdƍ°1Òe‡öä ¿ +vµ*ôªlu¶*›PgýÑäœ +4F£*¥E©ýÂÉ/nY¶`†ãÚEÔ'±E/9bø˜Òb°ñ8O•^$H?N ÞÍ¥¥ùõB¶àk¸P^[–žEœ)<ùšM.‰€D༠4\t“†Cè¾f(¯ë:gº +·QŒœ +XI/²‡XŒüB§£m§ÛNüëæÇ[6®ur](þ˗ÿªöh+|Ìݞy“ +$ƒÞœ;G€µÇ6ý+ˆ"j~؊Õ0Ÿ›ø`:C›ûw +pcùù:n.iâg9¶ôç.~ÿ㕫–:®›ÕUöf·c + +¯acÆܤÀ~køx2ôí “ <4a%™YYÙPÊUEhƒäŠH?Ÿ²Åøó!tƒÍ4¾˜L, +“‰Å¸Y4àìÝiHãûð4œ.=z#¯dòs6|výÎÕ¶ÏÅÃPR¢¨ñ.x’A¥VA +¤dFAç¼~í,Á$cèh–2£å?µŒœ·ü§¾Q‰¥šÓõY“È[}^öøù—=XÝiÉǬwNLNS&AT—øVüôZ~ê×äîàPêÙ*X·éŒ®ÚnÝ]mŒâós +siÝ© +/ˆ M­L ·ÉNۄä˜DڞÅäÆíIÂmQB†šò½¤¼ R„rú<‡ +@G[kÜxåöÉ~£³ +Ñ ñ{©Œï¥H~a•»©Œï5Ž'd2_ÔBßx›þO6֛¾i"±¯7kirò²MÞ@ab~|ùÝiµKÓ$ +B« +}ž„ˆ£-¡—¸$“‹v!å±%B +dhŠòLÒñ» + +·$µFo +4oñ û•_ðš +w2¸Sg«„HVÅ%'ÇC +çW¥Â¯lYå¸<ÄÊß­p&[9ÆÊCAÕ¥ +ÊÄ_ÙÒh¡0eOlVrF(DGCy +û 1X[“\c˜Þ$¡ß0Ú°ÅDã7(spûm +“÷ljâ+,®à/U +9 +íܵU·‰ +@ÂXem¹¨ª‹µJVö$’Ó]khXPÍ¢Õ +Ž›"¶|2§œs$<‘a +ì· + +]6ïZý†ØSÂðò +cxo݉€”ø”$U*¨bäÞuÛ´ïSybÙUÔV ýÃ‘û®ãÞÞ`ˆh0TþI¯Î ޜÌ?p"¾zçñœÝV4'#2=ª¸fÐi»ªœR/¹mÀ2ƒÅ#ò=¾‹ÊPöÙ +î`qÄ]´ÇøÆ +œHìD"í<Ε?IѪØŽô_C† +“E +Õ£«Þæ¡GŽ¶d>Ôó~fcF±»ÚuôT»0 +°”h¥²N +ÅÒ +Õ¼*Ê +=¯£v´h»¢jÛ->:­pMژ¼ÇKèìÏF›¢m²ÚЕ2oÓ¯äWŽ¢[[à;XÇã(ö¹6G¡7f<Çæ0³§{;•Þ}‚0Å\„6²&!š®Ç#zÉ~ÖP]]î|U%46A´Hö¶Þ%â!6–XnÞº¸9ï ƒãñµ¯~»)6ÃŐR¤GfÇÖôdEiW²Ã %.Ú˳ag±Mó Wȋđ¬üØá@ñc8Ô ­äBAÑ}¢g8•Ü1 §©y¦ ­6;ÚבjâB<ÑåïoŸUÜêN¥¼Oý +h^%§õ$ar³¥¿½e{P„á4â'M +aØbJ¯Æ®@ì7§™N%aúÜïﳎ1EÔÔ!]íÀ¥ô +“¨¡¶¤º7 ŽæÏÝîœÂ̝.$Âð¯ÉÌÊ̂’gÍÇÊO·>ê¸õÑ÷B¯[&SϖRƒmlQmï†3͇méTî6ßõâS +: +EÅg²Ôé1lÐK®´au› +6Zñ± + þÉþœš?> + +TÙñUr “ͺîPé IìTJ}Âz,ßîŽZøˆÆ 4Û%✓R螕”XT +P”›[”‘ý-fœá4Aìs?¬”6éh`äô +ë(ºS• A\Ïq´aun­ñs>votF pïöA€)ÇÏîþè“Dc€†Å•i +ž%ê°k(ÈØ/³«ÍÒË}‘ f{„ªÍ€µ4[ž¦^ûPX +q"Naä09¤ +D'\YQ‹‡²ƒöÙÓA®‹={ +îÀYh‡ËùÇ +Ï7܆МPì\°æÃ*p‚ÅqëãÖ +Mƒ®†q¥ +)"¨’¨hç Ê$¿È]»÷àÁ‚{D*’>üïTöÑäÍÐòcJË?؟/Ý°aûÒIô$Ô÷M=ZaCiãhp3h +²(t ùœ½dõ–Í.k +ÄE,:û🶔ëá ÷Ý;·iwG–üßãÍÊNÞdË¡š* ÜèéWîSêWµ¸‹UŸîo2Iu<•jµ—¨Ú +ÇÎpr*cëCtÊüžqÆæô'Xò‰û'²؊µ|]ò× +xƒÛ¸}õ\!6gî¬u«M=¤.S—ªË|€3É©Hl¥Q o cQvQ^Ó?}Ô%àûün‡—<Åî8˜óv'{<§Ì­À½ŽÛj=qUÀPüZ¶oFh~²¶W“l»5‰¶Ú‘‰~;š×¸PM²˜?w¦ˎ9~ +ÌÉ +dª†¥õ°Æ€v´íÕÛçH심wb¢·¸PúìÍ´ëTn”šfÁh­In0Î$´ÿ¡ +|X{Ǎ7,?ýohR +ûHôä§cØ>#1¾ðôu>eObi(pŠèÈ3ã3’ñ›¿ÞµÍŠÏ¬N[\Z&BnꞴl®wO%ÍÇÙ§/ó] 0‰é3''ÿ5†LîsïØ­~ÖÉzg=NÕ?Òۜ5lï@'ƒ,Ìد‰¯ð=¡Þ\]o +Ü >+1ƒC_éÕõߐW¶ + +~º¨*¡êò4-«ÑhӋ4 +¦©ò‹Ó¾‹EÙq²$ +Ù“¸¥—ÿ*ÈÂZ =çx#‡«ø7¥”a»"<"]L3‡ÓŽ}ŠÐú] +ŽÍäLéõhÕÕ[ddÑ8ÇhËãònT-47ZG;³Y„Ñ +©­d­Ý'4QH +þˆ2 +2íç—EYôp‰ðòåÈ&ËkÒóçÎ\¼~ná“–,_ò¶çÝÝ +¿ÔK®0¸Ã¸%|?$ +Q¯JR$DŽo]ÜÌEW¾?Q‡R|Q÷!$ˆÏrepUºÒúkcÀ +̏ŒšNý0mPÜ÷siO@/wùÿAÿžä=@y@¸Ö +g¥èbÌfÿq +2•µz×ï(ÙNÉ'™4™ÈÈÐ{ÿ ÇhƒCµuõ +úX.–®s™5oñ{W;~ºòɕK­ëœ»Ž1ê¾ —œ5`EÝ\\ÇëÊ¡Ù?“ádà¤ñ´i³~<)Oß«6 +R¤Ó^ZRxèûë¨&Ï?õ +§¹À];ö +ÐFWž÷J—4·ëqÅÕJÃÃ;˜mdy´îZëãìÍÏ AHÍÛÕ¬­,©»ðD½5oÛ†ñÒ®c™$ó1iק¨2Kö8֚D\ÀŸ½€Û.Øԟ +7 ³áÃsk>—ý;•¸˜_ïvüÌÇGŽœþèÐÖ +k]]7ŠS=ù +ÕþVàî_ûœê\CB}d® *³P“ +X™´¸ÒʂúÊðÆõb +lVoóŠÊ÷,ßÜk‹çS)Û^ê] +ÎÉ• +~àY$ϋ]àïB +7ãÉ*:>¾ð¤ý[Z"N¾_“ãV1¸%l"Ä@bz4 +c‹âŠÔZH‡Ìô¢Ì= +$ùñó¡,¯©I[]’׀ë@+˜á:ûø®6¹ + +¦âæL3ó +ã¿x®° +\¼ÂÃ9\õ +T+]û +ÓÙ"S¸ä4Ü®¸„}t}ÿ©3Eï D±«;ĵ¦U¯õYÅvçíÖ#t´Ô@ +J»qd"Œî“+ÒN÷©¥'̉ÍÊ +U–u¡¡¡¡uuut¦ +×÷™LŸèÀ&ãOŒ–ÏŒOcŸå +‡w¾ÆB$¸yºûR¶ûClztº&ƒÆ.‡« +) + + ôçg8ˆc?ÀA—èlüí9ûu#p E`?Úí +À\žŽ÷R«æ> +å”> + +Kf’ÉVø¤;¨ËÍr×Ú©ÜÜGüú´ø›o±_]§‰|½{lìr~€Ù¼ï´½Ÿýý¬])Nû]¾Ïýí> +ޓ +g½Í™6 +hú•ÝB‰q,¯jP@p>ÝÑÁ"i—z„õdôn· +at®Åw¥²ÖŽƒÇVE.ˆRޛö[ô¿.I¡.²Ó?Ø°+z_@™7p²[>ৠ+åžùÙUٗTu_à› xçß%ªý§ìèÿžÍv1@öezTøcVS†x /mÿ¦üB§^Ë)È0"ûq2öÃ~?þ„6q#3øN7 +|ÿÉ'W?¿´ÜaŠÓü¢5‘ëñuӜ{kÆ-ÚF–òÿ|2Îò9U¢§FÈ +Ö«ŠÜÿNźÿî´lï¦×»¦øJ깳ўïž;#Ý +Àú +5k©Š[ŽíRñ&b?ñ2 +kÑUrÄgsŸæá­>Pd—"òk7Ϟ½`ù•{÷¯¾ºqtž£ð,1øš—Þ‘ +E9­¡?œÿ  +šàRE5pڒZmì¡Yâû°"Ây%'ûr_7H?3êo‘ö9}8PԇClwl>×c¬ÞW/{Œ§(×B2ò,ÿÌw +àC®¦©ñGák(òËÒD¦G6ötŽ†ÞÆ1U©JrÕ¹B8=õ[!³=DxýIä}%m +[¿Š +ÜîÝÞÂVX—/¿™R–šÔÓÅNìnbó DSÐÒêqFUG³3­éë¢ì1üNxOVD.ëÓJL!˜F‰(7U¢Y}x6ë6ûìk†Ùo˜‹Ï]’ÆNºìqíú­Ã +e óôV‡E +j§µñ!À̓ÓÕ=õº½öáøg¯ñÑAp}Ë5%õ?˵EüÔ9±>sao“€•ÿ”r’ÇN2_dááàž–:Î:õ4ÞÐKªŒÆ +ô + +}ŽÐߜœ:–HÈ +"ÁVu[ñLêX”’^tv»r¨„ü½Ô¸ÐB/)1ÆY·™ì›æÇ`ˆ‰”¦Ö+¡\le7‘SVj6µ&æXìÁˆ‹iùžOóš–´“© +:ènÄSV­Ýß­ +@ø³ë A¼@:2C2¢€ÝÈÈ+ÓWßÕeTp6kc +韙XYÐ%™=ª"©5z™ä[Î#m ­ô™Ïû÷öÞµâ‚qï<¶ªéí8I×·>Ýr€ÅdJfXí4?Åþ½³²¯ø +é C¬B{5¼¿ylOݒ +¾ó¿„}ñŠÙ +‘äk§fSÊtIåS0ɶúù9hdq4yš*PہJ>;Fîï졊Vƒ&+ +¹êˆ2y`dDÛ¾­Â#8Š¶™ù½i5àÁ®o“žò:--‹¥Ü¾Pȃî™i›yfªÁt)ù„´†)ÔiiçUå‚q[‘ +Z(æΙ¿]s'R:àIÓoo½*å¡dä–í¿›Þ +\¶6»ªÑ„‡%@$1‘ÓÕÉ° ¸©Rð€h(èMjJŒdEr°_•zX£FIZúzŽÌ‘ÒnÉå´ÿ¡³I'€£¸h¬—kD2*>€FgH¡:í sáê⽚jî~œç¡Žn¬ßR³2Ó¸HJ‘ òTšCAE·öæ5°³ØçpÈ:ÕVHåÈR)í<ÈXU—7¾ÕP*ށµÅ·4Ùpê¸{Rºqñ%ŸÐTu¬!X/kH¿tUªó‹òð|–DäHõ +õƒ +XF +êo¬xáÿ0K¦ +endstream +endobj +909 0 obj +<> +stream +xÚ]‘Áj„0†ïyŠ9n)Å$,. +"lµ‚ÐmK] +=j2Ú@MBԃo_e=$|3ùÿÉdee^j5Aôጨp‚Niép4³-öJÆA*1íQØÅÐXe×ƾ5®îú5ÿzyÌ®Õ7£Oõ­`1Hì6Ém±|Ë¼ZÆ ‡Rw’„DŸkÅqr + +.Ò´øàsïN¢Sº‡CU!SÍÖþâ€zJÒ4”c[OÂH +m#Ð5ºG’PšBR)A-ÿ7GۉŸÆíJÎOWf+Sú|ò +oÌ<ç^CóÜs˜{=cÁ{ +ÌÎ>ϏWŽ/¡Î) +½ì·ú®üüîã³së»ÂÃÄüã”Æû?Xc½+¬?û¢€4 +endstream +endobj +910 0 obj +[777.8 277.8 0 0 0 0 777.8 0 0 0 0 0 0 1000 0 500 0 777.8 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 1000 0 0 1000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 277.8] +endobj +911 0 obj +<> +stream +xÚ­Rïk[U>'IӘ¦©à +br[d®nËÒt0+ÝD;‡u­„¶µî.»,Ñ榽¹Ûõ¦Ã”¶.IOšI«ÆÑÄÔŖlE®§øŀ?ùQi\AQÐí½7§Nï5¬öÎyΏ÷œ÷}ž‡#‹aŒ—ú|n_ïÀЩNŸqÓÃß®ý®-5¨ +¤2Xm3©ífu·Å½þ‚åo‡éQ„ð‘]>Ñb`ëƒ:¢=:XZ +B6Œ›[Û÷ù—Wׂa!8ƣ㲠rçÃØ1Žr¬ D%!|.$þ»;C>_—×çó÷O³7ØÁtvwÞÏø}¾næ™'„ƒ,Ï +°bˆ‹°¢~c†¢Á0'ÊÌޞ(Ž?uð $I^6óF +sG;ö3RX +1ƒ\Œ.pg™ãQ^d^d# +SWê­/½ÑÈøy‘˜èYNàu=6„­¨µ ]¨ +=†^ÕÅ­"åq‰8 +Óx½Œì&„‘u >´¢[¶Ïâ_L +¦/ԔS+@\Á?¨`Ö +‡¸+_ Å¢L➭O¬q™HRä=N¸§îàõ;f†¬« ++ñ|,Æó¥X¹\*•Ýz¢ÀŠ7ŠXmPÌêøÖ×­ÛÉèu([—Ȳ$yÒM+´Ò¸ +*t +Vþ+¦nîüguÖ.Ò1E»­àª¢}©˜kÇtp +ŽK/Ñ4 +¡Aš£W`”²p Ò0Aȹ·[G]T¤}0S0 +'  B +¤Stšž :áqª©ê2üVÄUu·Y +è‰ïú7Ú):äooÛèôçOw +q+à5®jÌÚ³j+ÿþ}›6ë̋dÉ£ÞÞj­øºùÙ:)mk‚“;¬ÝÜamí¢áµf7kßëþ³ãgfÞ=>ÓOæl‰ +YtçIfþráê¯ßü +7r—³ód,¼™Mg^ÉÓæ¯8èIåæ²qb›I„‡¤ßî_{¾)‡>{ÍöפU®×)ܯÝpÕõõÚ꧋ï}þÝâM’±ådÆ +'sé¤,vž¤ +#SÉdšÌ’Ù·Òï$ÿ8}ëȇԒMdRyb[̑œ‡ÌOßdoI×øNWlZ§õÿd¬7Í.׆Šš3ti£.¼Ñ5²ûÞ¡F™ÈÅ")ÜÎXI{ú+}äÝF·Ýr¸èx`ÁaÏ8š»Ò¤,9 +úl†õ‡ÿÄlåb +endstream +endobj +912 0 obj +[277.8 0 0 500 500 500 500 500 500 500 500 500 0 0 0 0 0 0 0 750 708.3 722.2 763.9 +680.6 652.8 784.7 750 361.1 0 777.8 625 916.7 750 777.8 680.6 777.8 736.1 555.6 722.2 +750 750 1027.8 750 750 0 0 0 0 0 0 0 500 0 444.4 555.6 444.4 0 0 555.6 277.8 0 527.8 +0 0 555.6 500 0 0 391.7 394.4 388.9 555.6] +endobj +913 0 obj +<> +stream +xÚµXyxe·Ÿ: +PŠ4) +²(´,Ê®l²/ +²H +–Ò +¶toº¯YšÌäLÒ¤{éš.´MKK[ R6ADû¹± Ê¢¢€¢â;ñí÷Üû¦-|ø]õ~>Ͻ4}2OfÎyçw~¿sFDõíK‰D"%k—zl~qÑjÏUSÜ +Wæ¬Æ¦ß]í$Œ¢„gD³}¹XÑW~§:¹ϳ%ò~š|Rÿ5Øñyç)Ççhòñ¬bÕW$bâRÀÝ}Údw÷©‹""£ƒw)]ÇûMp2k֌—\§º»Ïr] +ìçîºÚWæ«$_B]=#ü‚”‰®ãç)•‘³ÝÜâãã'û†ÅLŽˆÞùꄗ\フA®ëb¢ãü]—D„+]×ø†¸ö¤>¹çߢˆ°ÈXe@´ëêÿ€èp’í€ÉÔf³Òŗòë$ÚE +‹¢Å5˜B +¥†Qj85‚’R2j$õ +õ<5†K½@£ÆS¨‰ÔKÔ$j2åF¹SS¨©Ô4j:õ2õ +5ƒšIÍ¢fS +©ÅÔëÔj9µ‚ZE­¥<(Ojµ‘ÚD¹÷¡DT_ò@­H,ªìóLŸ3b/ñѾKú^uŠ izO¿çú +cÖõïßÿ揁òYΞÎ÷y +ºæR<8ü©©O½õôº§OÉ>là°v‰TÒ>|Âð›#<¥.҃²¡²‚‘F +µM`]P=<ÝùUŒ¶‘4DÅG† +)K”õu¶š½r›°ÏÖ^.ú}!ÆڇJŒ¹`S¨†tùâ•S 8•!ƒSÕÀQ8U3½«Lª +åÒ&JëBšL7 ­í49ásLE|.FÏËȱ*À +FS1ãˆpýòˏ6þm¿-¢ÑBI4ÍiãW¦&éõzƒÎÀÂvÖ¼˜FÃýàãûNtœ9_3H<õø$üÌlöb +†dŠ3p´â·ß?Wòœf>yógì,_[7)w0çðe‰ŸWÍ7 +0ÁO +ÅMm} +̧E+v(@™†G­ÍÌœ?ºSªÎ_,(¡‘‚·Xø\x(ÉαdC9ƒµ4 +–)¢é¥x‡S5]ÿu._`¬4µ@=Շ޾eÁìÀ­ëìZëãýRê4P1‰ +qµò·ÀҖe-¹W‡]ý¶çÔöÁÕ¢óG›Ž¡šv1Ò£[’À$ç(Ȑ3}·ø՝³»ãþ +< +ߔD$@ +ƒ´FÓîC¨ZŠVÓJ¦ú¹-tÃ}.öÀX›}Ñ_ê¾Ønµ¯ä6•ëå8–3°:ŽÛ¸ZªÑ¥!ªjàµÙÞ'ח¯%r¼ûâÍ8¯D2ìŒ^V|¶wŽÜ¾Zpx&OËëä¬CÔÚ°ä‹×®}c}Òf`¦`ç“h¹ŠÍù=uøüÍSß9´ä¦°XƒÔ¼*,„)9e"•Ì›]dÙ_þNŒ&ü +Ì(y¢%h% +GÓÆ¡ÁØ]W/•ô ÄÜ¥ï~¿») I—ͽcâM/3‘~+{.)ÙjÜ+j´ÏÛW¢|âM›ð¯x +`ø“? +•IoÐêÓ7EcSØ$¦šnG¥NÑtê‹qӁ™F·!¹Álé EzšFò:_,R@$ÒÉosQ¬Sׇ^[é÷ +´q +`ãÔS»ê¤º]\úl`bé^® +Ÿ:¹’Ü:lè#·‰bԀ.I®ÓçëÓ7+ ‘Mb‡Oqrf}å< +ÏÐèÙjŸÑŽè ÿŠ~诣wú%h=xZœÇÏØEÏMÂÌíÕ±6”jÆö²ÉyK,MfóyèiŒmÜÃNˆ€H>â`'ÄI™lôÇ%ÚXpl"§ÒGj|X•rÝü EÀLƒN#âÝ@ó¿BÏ~ùÍ[×W˜÷Æb+ûñِÝK“C¨JÚË[âˆé«JCÛ¼¹“ùãíx +ŽÇK‘? +æ(®Ã•½ÍÇòcüòɝ`êÎÛ!gmh¯@Ù"¶û¹67då_Æê°Æ v>ø/‚Îcz{¾‚þ ρQ7÷p¢'ÅU›mƂ« ûOnrö÷À~-­Cóc‰£W¥9<ÚÄ[øœvT"EÇh\Ús“ì?¹‰qAÿìižZa†]~!Ç2\¦Ê‘áNv +øûσ ÇVÒæ?‘a¥T’©šLŒ#X³£ô­—ž˜å”ô"m¡¶1×Ì^Ú¬Ñ~P,„3%(½öñé“|%/#á"ÙPˆÜ¹Ñ.3̉o5„¢¦¦k2»(|\z}úÿ‡^=z]Šd¨ +‹ÍjK*¤Ë‚½!A® +-56CÈ:ùZhçdÛVˆâ£Ë\ìN½§n‰íNݍŠ©<™ûdãߥ$÷ÂïièÁÕ +vø¿öåþ¨¡Ki—ßÆ÷Ü÷›‡ýl'ÑUøHBá9ô=fFKOã=ö‘5ñGŒÖsœ˜Í)f ¼Ý[™ÛBƒ”'ýþO‘)ݨÊY +XrÍ9è» +¹>±ë“')ÕlúˆTùìûc$o õÒ'[Ï¥c@ñøý®ÓÒîNê¡@‹ݳ»I4» +¼’œaö£3ì¡A‰>Ÿuï: ÕGk|þ÷ôoER³Ö¬2éЉ®ëÒìTžËƒàͦÒo +Ò¬šœC?Ù& +2xq!1kŒ¡„_¡N•@tXGd%yq׫$³ÒØûÌjѯ? +Q÷Äö*a‚-ŃРìŽýðò§ÄóÑ¢ӑ7zy¡Dy—¼k¬dÜì[ˆØÄÞl4©Q>øªé,0×~\‹*`v + +áá¶r✠+K ×-ZjÐ9bðÉш>’ 94‰†}‡ú|±à + +¥À?Óÿ|fn͏Œì+úʙÈy +HeƒUþq3—9Tïâ¥xÓOU£ÁV¡Ž +û.¢­èþ]±¿I²4áh`Z‘—£7kåÄÛuú”ôíÛýß?ˆµ&}†^þèg4 +Ð,æÏ0’·Akn™ +ÁS¬’eµ: +‡£yÈõSÔ·ã“+gosõ§5˜LeÓ£q~q|ʹèƒë€ysÛöÄsø´lƒÜó%á©aê`2’ÇímmlnSœ„¼m¦Je¬•€ù¶ +'`꾇ÅB:úVrÏúðøŽ¹=¡?#Çç +Pý%ŽÍd6kmý‡GBÖßaHÌPŠúÑÈ Ü4¢è2VepHf^¾¸«óFõƒB³>[#WA˦§m&yú°û?W@_ UÐUÑM ÕAå19ÌøB ·ÝUÁç•gÉr +@V¤O,ÆÒٞxÂE8Næ,÷ZRt¢ìN±ðå£Q‹l«œ:Ã{½4®a[ +I +r}T@¬Ñ·ÙÇX“y5îJœôý¨¬åÄÌ]æþÒ +ӏ"Z +Y¥PàØYÇ +¨c“‚±wϦŒMK—ãØ´øœ¼C§¥VeûÖ_‰sŽx@v‚ +(çŽ + +kٕ³vw@ž4Þ +’«5† +î +cÌÅ΋7øÈk£åd( `¨@S 7™7IYÁ&à}dη»‹ +,b“=Î5ÖB) п9iœ"¹6ŠŒeŽ‘Ñëq,Ys"·¼V4 +vC%X +œ™%“¸¦§f¤flÚh`HͪíP +²ïùCðö³ç _IvŒŽNC>›“,ËÒ,5Yt™Ø·k¹5h±Ì~ëy(„loÙ÷]?SŒšB‚9Ϝ‡L‚Yz¥ +L |æã‹Ìcÿ¨²‰ +@a¸ÍCo–”·uü"ì4ør!~[Á¯û<,oÈád´¦h²g¤ë2Õ*RáyҗÐzmIÊ(ƒ¢Ú’ƒ~ђD¯ +”ì”ú + +9Û#Äö̈́ +‡NŸ°´òÈ¶ÎÕMŽ¦â”"çê +­b«G FfR ÚÃPÓκštÜp òõ»ƒeè%ümª—’ä&ãÒÙØ]¬.B +‹ÐïD0‚´]¼QkLς +(®GsÌõŽ%>Ê+Ð,«è݋ˆûP,d ±}”Ö—UkÂÒRˆžj­e +ÈË=b,´4TÚ[™Ï— +ñÂÒžIy±¶ºÊªZ9Ô$Æð¶¦ùõÀ¼[¿u +!¹v£žì‘ +( +xV& +8&3¯ÞM>,¿ +9E̒ƒª +y +œ,/øÄTÈçXö‘YÁ,Ñ +éBcb‚’‚€Ù¾«v¿£ùÑ”B8"xdT£Æo›«E®¢È;ba +áÉfN·TŒ#“êÚ²¶ó‹ê—ãg±3 +˜þbþhä14(7GkÔ9ìŽËLYº>„’×ê&D¡Q£?+ŠàWD +Ï° +“¬(ð€èÂe±p–5 +¢â Å`0ÈXNMöÝ"]¤‚t‚–M܉wIUÅÁ + + + +!–âø<ðË×ï(®Â‰w³³U+¥H’g„Ý<ÏËLƬj01 +éæ= +BÑlS)³¢VÂ&€!).4pkø`ü—W!Jefät¤³åøەû‰—V.ÌìYÈ2zÏVZEï]AÙçÅÂ|”,©r¼,3Y¡, +0·y + +ÈßÜ÷‹Ù¿ Áç]’Åe«Éù9½Nõ¦ÛÜ +2\n[VçˆVoi"ûnV +¤ Mûnw07`B<± ƒVé„Ⱦ¬Áã‚X0£“S)‘Œbæs¯š%òW`Ӛø/= +îýRÓ»J¤™zÝ` +wÞË¿m¬©>Á5t|[”PM¼9»ÅTžÝžÝžÓnnÌ=|¤£~OKq#0­åñ[Âe¨×ã­ä1É°æ/ +“E,ÞÌ8^oÛ§hÐCZò«µØŒʤʰˆ]1;Ã+’jluu69ž‚×K +ΠV +s¢ðqÎÞ¸âw97ð'ŒUûZº_ٜ¼ã¡ªwý}O ¤.B‰G×£¨²rՊї¨Hb0êò{M·?ÈϹÐÑÎ;Z>Œ +.rµ1¶{**P§) >!5\‰Ÿs•^bþŒäüUÖ3\ÍççK +šŠ?yGº;ºiEÕ¶¼$³ +ҙøTMÙyœöðgŒ{ +{ +7l +TKT‡ìQ‘»+Œ’Ð÷’’ûøù +òëžÈê8TÆ&f8m„6;”¥ùšãÜÞîñêopõŸ=Ã\ü©x÷-2Û[š¡¤‡d“aゔ¨n©ªÜ­¢3WС‹b!eKxÞ5Lñw!Ý.{þó™¨/Ùö$ȍ•ã|¬•DÌÈCÎ +ØWˆú؎ +¹Ò™UBVµ«)¸¯”L-]¿!t³ãÅí¨ +Нb¤D_KJ~Æ.ê +nÈzÉñD%þ +mü!cå¦¡á¼h/j@¯›ËKNî¿ó5ùm¿dmF"Ä3aÕÚÂêªòú†ÈJùJðÚ³™ä 'òóJ™è«·‘çÛba¢0çÑ; +kÖÈõÄvRÒÒÕ$ÌZ2‹0øùÀ)o* ¸XYž´GYŸÙ¡nWŸI‡5LpôâÑr/ð(ÉDƒ +Å`N2βl¢|ôN^›¥Ï–oá+Ê-æ¢B³¹&¸EÕJf¹Z + +W@KrubIx}”ycžw®g> +exø + +-» +îrHãÒ3Õ¹“<x‹©„$/%ÕnC3ËEÈ +I+Œ‘ çé^4ðó¤7V9EÓɓ6½èƲ±Òë´7®!i²‰W5õò°ÙJ÷–’uºðM§/äRÓ¢4)Jÿ`|U­u +Èç³øì^•– + ÃQÀZaKþ°e´™Ál\ + +"Í +ÕlÞî³kW¨*˜ +†âff¾ŒÏ: +îKÿä^U, +®Í +PyB³Æ¶ý'âZo}fÉã +ÒÔhÈ_¨ºK¬UXT‚Âó-Vï(ègpy 5×ÙY> ïŒrçþè«aÿ +ê?)Å +endstream +endobj +914 0 obj +[638.9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 383.3 319.4 +0 575 575 575 575 575 575 575 575 575 575 0 0 0 0 0 0 0 869.4 818.1 830.6 881.9 755.6 +0 904.2 0 436.1 0 0 691.7 1091.7 900 863.9 786.1 0 862.5 638.9 800 884.7 869.4 1188.9 +0 0 0 0 0 0 0 0 0 559 638.9 511.1 638.9 527.1 351.4 575 638.9 319.4 0 606.9 319.4 +958.3 638.9 575 638.9 0 473.6 453.6 447.2 638.9 606.9 830.6 606.9 606.9] +endobj +915 0 obj +<> +stream +xڕXy\TW²¾-Ð÷j•ö*ӍŠ *Š[Œ‰+Š$ŠFqل¢ì»ˆÝ]Ýì« ìŠ ´¬Â7Ü5qâò\&N2*I4Ñè˜h]<äÍ; +1gæ÷ޛ?¸ý£ûÜSU_U}õ#a + +‰Db²lÅ +—O\'-^aï:ÍNÿÍûkHúhCMO’‘ø.#Ž–ˆï +åâpÃ÷F0Œ>™Þ!úg÷Pýs"}Œò0e +%.* +ììfL±³›¾88$6,ÀÏ?Âb‹isæ̞l1ÝÎnŽÅ¢í¾a[¼‚,VxEøûn÷Š ÿl³X¼%À7"ÖbÂ\ÿˆˆ§NŽŽžâµ=|Jp˜ß|›ÉÑþξá¾aQ¾>Kƒƒ",Vzm÷µè÷zJÿÇâàí!‘¾a+‚}|¨·ï3¶»‹ + +™O'Cg#/.Ð(Œe˜íŒ 3„Ƙ22f8Ã3#˜‘ŒcΌbÆ2ãKf5¡º#5U-'=®d(±ô!åÖ +Ýn‘ÿ¼¾`MÐþ‰¤Ïàu´çŸséW7í$÷ÐÎwßåÛü<=ýý==üÛÚÚä&âDøNҎÃ1‡ˆÕxƒ¢Æd’BRÔ$Éf‚†ìÀܣŸgr’JÞ֔'ÜL: ?C܀ÏsNt_Ë«„#гߣä3s` +ØíqÙ9Åiçvà¨Äáh©wá;øªÇ€/‡¼Py"¨ iÏ|gKˆ.Ú­TZ +]šóû¹Þ"¢ YJ /á(X°úmpžÅ1‚ä,ZâR¤ÍR„a¼›T´|çžÄ” +°8b-šN¶µFé7WøCvÜ‘1d°íŠi«ŽÅWÖ5——ÃI¯âøŒšÊÆ| +p÷; +*`©¯£Ã²™x™%좎Es±â"½ÕĶ:´E£¦ø^c“é1´%ƒQr|~Úʃ¿à/ü—e7ÏÂ}î΂KÔÒ;ó–äYÒØ^UwDçÖå§i +Í©îëôå[ &#Ç¥x«TêTõnµj7¤p²ÞÄØ<Ø'?*E ظºÁøqŠPpÉØtèpnU´p큵 +^þ!®Óž|Š<:Þ|öœÚ†® ûd|m?Æ(D +òM +f ®F;þ‰0Qœ#= Ê +–GZ½+žü­÷37l!bèÆ6¦mÍ <‘%Rú)^6ê +û"ŽFKÝ·8Ôô,Žúànű²WñÍ<²s‘ ò X¯t +äЌ=˜š¯ª­¾G£ªlUþ. +’VvbšsäúOXë÷‡æ&¥«5JàvBâigc!¡\^ڌ윦ŽÓy-Àȕ²×ö`MŒåáà”éuV§­©¤ÁŸòÜ +òý»ïãP¹ìÎ|ú-š(ú¼Äºc8´ZŸ9®Äa8Z֋Nø¿Ÿ”–µeï­Në.Â>¨WVDø¥Æ†Àv. "¸©©²ºñ’×å1d4™3‹dÊe¯anîG-K +·Ã¯Ñ`?þG¡ +ÕM2X!덤Eíµ€û +\æ] ¤)¹xG +܄} +;-tý +­­`‘U_G•‰Y8LrEø‹>íâ#>/´ÐÀOië̝Qê\U +ç&õ'ÙF‚4ïvaa†6?ë +”P³ó¤k—M"†‹É»@&˜;œ¬b!ó +y +Çҏe +¹WËÎ7´p}±‹÷hØ÷×Ý’[ëîËîà&1œß‘\õܵo³›¿9îí(‡¡ +AÜÑ0þš®ö(œãþf×N¤Dá0w’ +<ö9Ýõàdݳ?óp†E +­hƕ–×Ì{q€ +™-l<ȑŽ|C¬Òµíhؑ(ØÄͶÝálã|â® +îžjk(í÷¥ +‡uêð¥>£-h£~ŠïÑj +gùHì“VÅÄùxº/ +XðÓn/-H?Rí\}ÄAŸðP_ÇÎh€#pÚ7˜Kóp°€ì&c'|HFùO +qMzٍ×8bàÍO†[ϞÂW¯ç¡b}Æ°8§Ðñ³å&==´¬qY©¤¥ç€Ô3“O¬Þq +iÉ{b‰¦÷'³”xeòà¢Ü¤”Ek›ÎÀÚ¬j&*@“ž§Ñ +ÇÁfX&½@¬Œ&ÓUé?ÐVyø¦U +‹ß7wóüM+&*PÇ#³ÿó +p‡û~æWd–¼w©2½ÝRÙ/„q}¤øá7Ÿ*àÇYWÉ;¹Ü,r +'N؎륥 @½ça/Z†‰Ü. É% +öz¢ ¾$WÐVTvôd÷Lã÷Cn¬< Tªä=Ÿ¬2[qüã}Ž”µÄ–Ø/âEù˵4=F8ÙÒ=š8E$:nÅzðJ+˜³+].ºÝu +¾ +3éÈ\þâó/ +䟤å?,('²ôª¸j¶Zaòڈ’{· ¡¡G¢µZ÷ÈøÞn}4‹Y܀©™­B&"O6*zíݤ¨ìíæÅn´b¿€¯c: +\s +a +É®õî› +gìXI‡FOEµAÀ¼Sú­Çâ,Á ÇP²$òàédi26tIÌó\¤°ÞMº(És¢|-æád)΂jûb2˜¤Û0ÅèW‰ +䯩O=¦R“×£¿2ôÄA‚© +¹‰8vc§,¾gÌ)¾6äBh6pEP¸W›¿XåLðY=Ö[º¡¥+ ‚|"BãSa̪Ùxɳ+á:|hXzîHgóñ;G~„Wÿ +²o§ÆþÜâ<†šL%Öd +لãÉTÌWÈâà +íñK´¯>þ +ܱØJE© õVÚÀæÍ6à­wIJ¡–º±-éO¡£ã)´è‡¥”5éqüãM¼@±ه]òÒ82Ðz°¤ø¿+H=”D=¬ÀW¿ӟ¶k¬ÉëÛ¿½>á”ø«žÆÚЌ'{ÄêĪDˆs¦_}A +‘ju°2\©¢ÍÅ +éûä,4µžìs#ŒR|œ&VDyÊ9QаXÕû47º 5ÌK!goF.։ÄLÓgVªK--A§¡þ1 e#!Ã8“×fo:%¦2ÀÓ=³øĵ†*ûŸ;Sʊ©½_çíÒ¨‹ÁüäV(Ä[,”k4Ó+Óµp¸*Aê«t/—> «Ø}P¢Þ§ªQjÔÉõÚPŒNl鑶ô5ß"´5èiÆïyÜFÆS#±DA&ÏÈ´ ã0ãèx^ò^Cr‘_ö½oo½”| +îÕô¿ +ýSËÅ«Uçá +|ÜüIãòŒùàiÓ½–ºÛ;D®Ó÷ÃÚ9-Øù[N©&¡]<:H© +ánà@ +0á¯äCEï¬7™¤< +¶¶§ÐØ)KE^'OFa'¾+ʼn°`ñ˜O&)Lz^$ê¬Õam‡Æ$œh¶ß +—í@ +þÊc-bq–vÞÊ5ð™£ÀIQ×ŽF^J£cÿUá·Åå;a·‚j”Ýê„T· Èíð)$]OmUå'©ÎÜymm­g1 +À”’Ý·™^iw‚_>™ß.»)Z‰Óy*€¶ä®©‡‹æm/=“Ï*ÈèŒpP•W ™ +\ÞßzÉT%îv÷0[ݱ,w“žAO«€e‡7—Evn¬ßƒ’pNöèaL‰²«0#÷&pû©9õ&UÈð¡/³¹†] +HS¦ª•Ä½w“ Í +ë}šž>³ÁŸ.úžÅš_%9±ÉÁ¼ +!¿’3mXÕo¡r´a„ÁëÓ"á³J4ÚÚôRm'°!j•»ï +ðÓÛ©‚cP“Hö®1#¢»Ñz¶ÔÄÜ>÷Ù½¶ûåßÿ†{~•díÈØ]æU‘—UŒöâz3´ï]ÿÖ·”„Ï¤è¶ +øé!´Õ™ÖáÀùTÜÌD©,J +t‡ß›–“–@eE$(Vjh( +åúî%Ÿgb’6ã!æ@m]Y« +ÑÊÒ +̪Ów«Ák"€Î“%J’d<7 ‡Æ~)—E}BKy+‡ÓøÉ줩 a®[ŽêÕN/:ž®ïêP™øžWwѧ3q¸, +·Šãyì`‰C²‘{)|½O¶óŒ‘¬3'¹s]7-M›ßR®0·}LÆÓ)c‚£¹,BI$ƒ=Ðp¬¦‹®12ØAn°6Ô'È{sb 8€ÏéÝ{)9)ÍâfI#å{:°WœÄÇîPEA÷&Æû„ËZM +–pÄüñdœ‚ïB.»ˆ6¸<ԪԄP§M1®´÷€Ö +g€ª>^Ñ%ÊBåo¡ ¢A_hz;™èxñý6~#‹Ë³ŒvÅ +hRˆ¿üc˜Ä +•unhrÉÚJwµ;ƒžÀ̾ŸŒhˆáXem‡— +I:›뽖Š>b8øš‚ÖÎéꦚV!¯ÎBs`y°2¥ã‡:I +5žüƒèA|y + +P@mÊÍ +Ç?Ó­ß·”î1s¦%FF=›ˆ³pzÛ˒}1ªˆUjʎ¨M΁Ëè’1j4?¡8l¨mÒ´– +®nn.¨ +Z2RãϙàÏ}÷¢“ÐæbºqˆWñ¿î¥ +švmGã•>‰/Èàç,¸[%τLÈVÅ'&Ç@ +çÙS}¨®¬¥Õ¯}ž +a¼ˆ‘þB6ëpò×uÑbZ÷؁Šë%”O +:ܗ½JÄ +tægÀÕöv¸úð!|ìîÏP“Ý|Gø U­Ë®» !ìp|ñ¡â2m¾F•ªJ¢§Ô°’Øêê’ý•q +›åñà¦ôð-ð*[D£µ\;Vw©w]'ëa‚ýS¶ÒS}|ÆÆæÀ¥}8q®] +Ñ + +F!ùòÇõk~ +“€’,¤j<²é -/coVw‰¬ãéĨE#Xá糎Œ Æ;:.\†"Eß}K}HhåKÑ¥Tñ²ƒš +ÚƦóªƒ}"¾,Jîw^®/‹Z 'KÝØ·.`Y×d-Ÿ®«#¶pøÃ?”þÚDÀç]ÝhgzíÈ dd0B\Ï{ý¢ó}Uw‰îY«éÔ¶ +:¡Ògi+{ž'^åúÕ{½¹eiÕÕ¥éxџk—.ÉKd +¨ +Þ͋›ßêÔãt³#A«;r¬o³¥(ck*r²J‹žS³Ü]ÅÑ ä’è™YîÆ +Ò>ÐdêêÕú‹Ÿ8Ö” Åd +ú™áˆçEù¹ÙWÁœ¥2 +BC–i#ôDYéʜd®/.±›"Çé݈èYÆÿ³o]*Q +èÜ„ŸÎ´l¯þ?Y'ýù>þô—êË£çÿ;ÐÿŸ +Ø®-–r;pÙº9úÑÔt_˜ ÎîNœì +2,Y¨÷UÖٟ£¾‹·?\£u kÿßÜúÿÔÂzçPWŽž£·ÕÞoK¼A™OÖO +Ùúk²&Ê +8jês2›|`7ž˜“¡­ñ#œûà9“$‡8ñDF ûÚáDIýþ#­eÐ +­;ÊýË`-=Cϝ©¦d½€ct¢¤kKóïl~Cð/<ì×hŠŠš[Nf•wõÌJbJÆ8¸,Sì¤ìì~:±4°Ÿ›gØæt·^xLü[»Û=&–Š +°~[D,'{ÒùG™ù*z5ÿ +;k"n§8⸵úY¼D +£~Ë£K>üƒcõ ¾ÍI‹YٝkUhòL®VÇî€ Î».º¦¦®¬ùÔº¹¬Ý¶lˆp¢¤º!E'¾[gÚØêu +wÑØþ³ìeù p— +Á~ù-h +Ê\«‰×¤¾‘l_õ+¶4POLh¡Öà¶zJ +©€-¥!¥qÍþ)wvr²n]Ê­XÅ-œ +‘ò1zsW[jQ*ì|#Ó$ý2-´P¶—jÿ½éڎÀ“P +\-N´R@[tƒÿAšvŸšÀ¬y +Ôá5t +ü]À¥’4ƒƒâž +`- +D^¿Ý~ö¦ü”›+ë +¼®Tȱ­b +kÜXµõÆ ”œÛ7ÈüNÑúü£:cÄe7øy,:ü>Ædí"­´å€¼†ãºÞ~¾²ê´ +¿õËNÖâ^äOrYL5܀Ž»ÔÉieâPªÅÄbºhÌged_ÑK¤0U:,Ì]¥ïüý5ÊdU½ª´$:Ó͈ +«N +Ò­ªiô°ä®ÕËÃ+,.î5.+¤ÒżòÒóÊè$¾Þ¿UO™^`ó™ +9çõûG¨¶«ÃCÜ´‘}R¯S¨¥2E­ +Kr͈¤jÕv//íºæ<[¶fQM!]5—¬5‹ùúEÞ*oµ÷6m@ß"´í +” +÷»òÊ.y‰f/IÁ[ßqo¸TR.^0ÀŸPMŽ(,ÊÊþZÏzþ*ujØm°Þ·"(PìIKUZÚl[3dši¨ÚIè®ÝJ—\g)»;‘‘Ä:.Æ69­qíIMfÕ9U©þ>(6&3KA»L“ó%f8€Œ0òq“Vk.j×µ«Ó5Kh½ n:ñ +õ Ùþ\d¥÷ç"œbõ{.´ízY¬NÛ­VSy¤Öç¢âßäâÓÞ1›"7:.ó Ò$§çfTAw8¼2 8(ÆÇUð¾ ¿ç. +8˙$拫rѽ,/_J6g³Â ”¾ÓœmlŒÒƒÆƒåƒ +g—Ô›ˆ²áÿ—ÉÅ +endstream +endobj +916 0 obj +<> +stream +xÚ]’Ënƒ0E÷|Å,SUϐDBHÁ”–EÚª ö"c²Èß×c£,º_æqñØguYËaÿKO¼ÁúA +ótÓ +á‚×Azabà˺³o>vÊóÙ©S݈àïoí‘=³S[‡Á˹­Âö.¤½+„hÝ×esŸ +kÙOe +€ÿm*΋¾Ãæ(¦ +>ûÔõ ¯°9³Æ’æ¦Ô/Ž(¼<·åBç‰OgÕqԝ¼¢—AYUå +JñïÛÎe\zþÓiYPda¼,dFAµ7:Ú[ +Y}pú`tZm£ +OˆowV› +z®Õ½V[5‹^]µÂdÅä3Ž-ˆÉBB:I]ݘ@I r ¤Fd`›¸nä"%:+©ô»£lõã +ÐqÐà +sã7­ÍÚéÚQÑ©@MŠ²ìó峜[ +endstream +endobj +917 0 obj +[613.3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 511.1 0 0 0 0 0 0 0 0 0 0 0 408.9 408.9 0 +766.7 306.7 357.8 306.7 0 511.1 511.1 511.1 511.1 0 0 0 0 0 0 0 0 0 0 0 0 0 743.3 +0 715.6 755 678.3 652.8 0 0 385.6 0 0 0 896.7 743.3 766.7 0 766.7 729.4 562.2 715.6 +0 0 998.9 0 0 0 0 0 0 0 0 0 511.1 460 460 511.1 460 306.7 460 511.1 306.7 0 0 255.6 +817.8 562.2 511.1 511.1 460 421.7 408.9 332.2 536.7 460 664.4 463.9 485.6 408.9] +endobj +918 0 obj +<> +stream +xÚ­Y t“eºN†¨U +ÑTñÿ+""‚‹¢"0l-(„î +é¾%mš}ϛ}íބîéNKiÙ[Ë¢€*ˆ wÆïÌÜ{]æûËß9÷~iÑ;ã8çè™9=MOÓþß»>Ïû¼_ج‰Yl6;ô­uk·­\õìªMÛÖ/^|çµ4Ær +Q>@?΢g²é'&Ð$‡~t"ùņ‰ÿ2á ‹-˜|å>„_Y_? +|}¿DìcMd³‰¢RX´èÅ +‹½°*;§8/=5­ bn⼈Å˖-Yñ¢EË"Vf&ç¥'ÆgElŠ/HKΌ/À¿dDDg'¦'GÌ}-­  gùóÏ + + +ñ™ù +³óR_Ÿ· B˜^±59?9¯(9)â7ÙY›ã3“#Æ}_8þcUvfNaAr^Ħì¤ä¼,ìçƒSY3YsÙÏrqV²VqÖ³6M؉aÅ¡,ö–“5™5 +ÂzÊzˆ5ƚΚÁšÅšÍzš5‡õ +k>k!ëyÖ"Ö +¬Y/±^f-e½ÅZÅZÍZÃú +k-k +k=kkk3+’ÅÚÂÚʊfmcmgí`Å°v²bY»X»Y/N`±qføìÓÂ'äM¸Ê çlædq®OŒ~àÑNr·r¯MÚD,[vgº~ƺ_ðö<²÷ÑðGsùóùï‡G†_}lóãìÇ¥37<ñàC¤‚Ö‡Ò#L¼¿æ- + ç>ñûÙy·Ð³·Ðü[hÎ-ý!=›÷·Ê5^ˆ©×¹U·´òê[îÞ=`¨,.ЊDGV+*ëj:ûö +ˆ#ã!>S”R” NÍc +! · +­vU:+ +å­-Ç¡šõ5¥r}V)dŒ=×xÀßz$¦6šdf‚`žä-álþzn‰D2TRg¹oN‘®“Æè$áš|IL ¤Õ-¶ò:¨%üÅnq^ž0mÏaQyУ-èùat +$ܵÌ7’•%åùáZEêæ ¡µ´ü€­¦êÇ +Ì)(ì +w“—`pÈß[´â”ûJ;#|WýôóþkµlD +!߇>H»yN˜ÁLصV-©=¨Ë?¯:ۙ +Ƅ2ó™§(HuïjM]ÆL䫔ØW=¡±éì¤L¦jߕ?ó늛TÍ@ Qz +ͧ`PÔ]XO0æKžÊà$ç +ڂÒMàÞBž+ +@I0V3ÑÌdR¹PЊ +]ÀX|÷¢±— +ŽsP +£æ +T»·ßT݆ˀfѓŕ—›L`! +:‹†”3iùKÌ,f³>ƒÙåúmulýº¾-å@Ø­V;õ7çÞ>ΡÃèX + +)ÏÏû nP„F§ÓP84ƒCqz™óXĮ̀ÑIŒš‰“HŒF +²Úª·c÷ѤÏî YhZ@Ûà/Dèˆc«Õô Z|tMsèTÂCnny +Ô֊@B1À=‹LÖr05Ü£rÉH1èÄ如Ïx¸ +5PN!wú 5]¸Ä­v“`-·xˆP4Äl÷¡“OúÂЈ“Û0F»*x¥¯Çnܓ(“ ôµ£=„k0µMÒ HÌKË +PøÈZ¨ôجøŒÈ3ì/ƒÞE‘¼°Åk¶Ûý`%¼J“L +WˆÃ×I +­´„Ô Õ$6 +ß³±I6åãùžlÁþÌý¹Õ% +큶wU¡„ïg£ÉçÐ +s +ú$­æõhÑ# +\¯î‰d¸»Æ1«à" +=F¾w{/ §{¿êF/ÀgsrTÍÄÕ~JÁÍkèhǕ®k§ýí@ôvfn¤`å¦3nAážØ1ì`ÐÙÄ®eÓ{Gx<“ÅìĝëÔX5¤ŒFYéë³×¨³ôZ£Ü%„Ì +VœÀcö# +̔Ñ,¾J R¬BÅ-‘czÀJõõ[ú +™å(»O*®JLRS¡Ec‚r°›]&kÐpáe‡yýè ŽtY + +ñ£§>ä WyÇ¿ø¨7PÞùò, +&­8½‚™»ŒÙ»Ahë¿~ +tW+;¤­VC›Ëd°Ë¬RY)On–)lM®¡(Ú{$g) ÌÓ/-™µ7'>?>fÍù0 +7ØH/˜Í³©º³Z¡IX_ÒP +(ìÁx›4€Þò¸U ¦d8:±$!iÝ:Ȇ$§ØšêLre€ +”ƒq,ÿ·7Ðび~”âg +ø¨åŽÿòÿ{Á~ø†W¢„" +ª¨&nÍ a9Åʹ1‘Ùéoçí +Xˆm1\íӕuAQ)¯,Øiˆ,^{4ò6{Øw(„„ÝGot|Û1ø%|LÜÞpl3uάWÒj²ºº:Ž×Ȳñøõ&ΫÑ! +R"]%ÔÔT_ÿò¯+˜(f:"†Ú ×Õ²‡F +ä mè^Üqº4ƒÜh,Áћ” +²¾ÙÒhm ™eÕ£À£•IcJ5C\6¯«ê + +ã#×Ã,@˜/‹“ËpŽ`!»z,Ý +í!³ì^¨.SáŠÇ€Þihˆáò~£E +™jœÈ`8¼̍˜dnèȾÂÀÈs6š‡3rbdÏd5Ù1lÌF§‚4€”òß®äÇ]ÚR‹30 +ŒŒYú—ÙˆD1ˆöu+@Ki@ +zÕNf3mãR –¼xÍ¢àl=Z|M¸ø‡? +|Ä÷Ï¾DA®V€éf¬ô +°˜¬U˜ctaØ#ë>ç 7?â©Ò5ªµ@ˆå÷ +z‹Ù5¥£BôÔòÿaxs;öW'Ô¡„ÂÔnÐIˆë¸: +¦6 þÈýìú^æQ +¢²˜ÈWžÙµuuü«@Ìæf€ÅAÝâ6Ù±Ùå¸ïP[;{dCgä +$ã™Ì˜ +ô˜wFeÁ†LÛÀ¼ˆƒýÛÇ/¡&þ +îE‡8‡µ±T•ƒ&sCG-fkõ;(‡Æ^èH)€^S$Z-*\Ärî02:ۂކ£i\ĪÏ\MAŽAªÏ7jÊàIÅ$¦U«¹úZ÷4h ˆÑÔà -–: vTJ +Œ Ö•2¶ñš6:Ÿ[‹g˜£‡C=@8Ô×»8èú”÷9÷‚«{_¢c¾Vu?Ø +–ÅV3æ½ÕdÛx6¤`Ôk‹‹W‹óp}WpÏ#ïÞOæþşñ +òõ"}QÌÿ'ŽïþEŽcãTÏ!KÏÀ‘þY./¦.Ìߔ‚û8Ë(°‚يáyã +ó. + + ++xÎV»ë>÷Õé¨Äx}BB\BÈ,µlÜd{óX—¤F=3s´—¯Ú¯T­¢H År‡Á4ÙÛÛ×sŸ-U Ü +gš=hïތq{ïß{soMc{Nç9lÏ5´Š™Á-Ä=(/f¾=ˏ¦ +þ æ g®O™£^¾$:Y¶×@¨äÆb¥]ï ZÚ-ÖŽÀ8z½j“ŒÚj64`íeÁ>T¢pº‰oâ~c.u„—Ía÷ГGØømæÉÑsãI +ÿ1‰]-Ýݽ]8¢ ¨A¸œ®`DŽ`DA& +Ftv$À) ?ãUž?ci6¯©Ê©³)©Œýz =#d–V +"¹Ëè¢NœB\H¥AmP1F7ò™HºJSi4á8§ý§ã4¨‚Å5è +´‘/ٖ"}û—ÇÉ£½|$½k+5Ê! +·îÅ  +)lYÒÀFsO'ßæŒ4ÓQ<´ôé?b +Ï$2 +¦”yönš‰ö Ìrô™ÑßòEßDS)(G—Qè©»_~tˆO¯D2Qðb*¾cцóBԛ4Àì¸ûi=zÈO7×c3·çG£XPí<´ì +Ö +‘€Ö?g’쀧ϡŠ1d„ØæKDD/Š6;´6 +©ƒÆ .X›é_aø’`V¹x«Û +nÂ8_ž½†& +uû«@üah9ƒ½}qcb^~ÚЪ¹º +ˆmñ[wS ¶¨ÍZÍñðòe¹y&ôt¶ +9|ÞÎ¥@2£ +ǐYèÇ8?åG'lº±ÛÏ¡¡GyŽ§Ù¿Z¡ˆó‚ç(Ðènߞ™[€7‡‹"%<4«óâ +øˆ¸þÆ%fÉTýlç>>ÚópíÆsç`ïÁŸvZ«åP%±¸‡NŠWQ Ñ+%Ñò=: ˆˆ•Ã‚s·Z¾w: +vi[´zYIt¦ ˆL}c+ +–:Kƒå€í0øàLÚ¡ÕõCxT-jb£ÝѾ‹œ‘)?™VÚ _Ë÷Fó“>XmbÂ~ˆaãïIÄøw +æØõ~M +²Ô©¯*öH< +J,ZñÌ +o¾Ùù- l¼.˜‚ +ƒG ¬Ù +]i +“ÌÇì¨ÿa-p€Éìt{¼ +­î²®íçKOb¥†8è1FA³º7·5/ ³,hÙ2\ZszEI+ô7?ùÝí»MkW’kTë +þßÀ}Xü1]ìy‡>†ù,X0§Éin„* ¾= ÙDžòŠ(ƒ<¨³iðá20[,Õ-h-¦i,xï+ÝQ7VºzÐG1kù»Á—ՁÄb1›M&wÃôd“ñ€hç +À’O0ƒÒ Á\ÜÎW¦)xØ‰Ç +¤lԉS–'OŸcãZJ©R®2Ìzȶh­XHZ‚ +Æ$YRèy+‰¤{s9÷äô¼ö³u•G­n“ÕnÂnY«Ï¤ BfiÆYÅAUÛ52­R#gì£)üBZn4á¥ÈUöš +&‰ͺTf +•’¤O¤aJ +6î<7u¬s©Igل '5#}!1úŒõ˜Â˃‹° +ô?y֍÷‘~À²*¿iô¯|S‘YW$ ›³5ÑÀ÷jM"ÐTA¸œà¶žS5øÃë"zcxú'è†xž]]E +оúŠ@u·w7NP®’A¹ª)”D‹~›D.4–Sà€JGÓETÏNj’T_‰MA +@nÔÓûE}‚J +j†ÃLa0s^XsšþI' +öõ +#N#o³E%Ø´|„ïQ +µPp<€&Wª +8Þ +Äáú˜x¼Üµ +ö4{ú +–Á‡ØhÒ»(ç:3²ø‡uÂ¥±¨ð"¬0êsU|Yp—rœŽ£fµkX=FâÜQŠoÔ+ ™XrhíGh"šŒæ£gþy,’L†ô¢t¡ +ååí÷]£à°«£q +u`®¨mîénï¢ß½U@A|35k£,/nÍN÷ +u_ïÇƄË(þ6‡^K?ȋÕ@nO±G| ±Îß},®k#ó0ÃÛCëÿÍøü¿*l*ŠÔᄪ+Ÿ{AWÄö¼þA +N5~×p´óÂñŽ~ð@¿¡"á~‘î‡>V%}ú× +¾ +‘òK9ñ?©Åx%~U¹+ìuDT +O•±ùÕm@üc՜pÀXí»³@z£î‡Ú¡ +?z§‰{ i»9H +ļøÀr´æz+\1rpã,æ©9̚ÅG_ùúŸ¤hƒüÃt»û +„ÝÏëCK¿±¸è9“þ$³ +öSÁûÇK¤O}c—HgoqP +=›w“[å¾/kVp˯Zª+.;»<§:±Ë>C™8S+ÉáØ5P}}mG_r +ä1¨Ó‹˜ üõÁ±!Äy­»š,Û¤HÐ +«Ò¥1© ‘E^ñ“{ ½}E]ä·Ð‹R +Á +`ǼŸÜõÓ¡~ +·S·r.Nÿ}yŠW´D«)ÊNOܓ¥ Ť‘ã©uz}PE”)kr‹3$I‰]Å·Èïàã÷k>FlzßZ$’q°É @¥Ë"¦-iÎiŠÃžÈLbæ2O¾rd-Ûw' ¯×ë%. rÞ^fƒJ°yÛvÃÇX +mA“}GêOî?Ä{®%*êïZíö™êá_ +2fîè +¾Ñ€ +>¦gWi +郲*‹ÇZъ +q4ÙüvŸÍïê4™«[k[ûÎ]Æ 7ï-¢`Ó>fª$Qš®Ç-±¯)õèWíhžm¬ +ñv§•*'gÞ¬k¸ +ëÝ +κÚS½h" +7·ùw‘ë --#3xå2îøgahƙ#ïÄߜN£[è)Þß +••ó,>J%15âq\ÖVÖu +½Áw7ãkˆw’ëSžKgæiã£È„G€«­á«A < +m^äYjQæR¾t¿ +I’u¸+ˆ¤º„“wÛÐ|+9ýwZº€W/tJŠr„ÙyµªòÚ¦šf2áĎð±ï¾÷ëS:mTÏ7ê´B¼€ïèL9JvCmcY}UGùy°Œ#U +xEÓªóø%kDñÙÖБÁ±œ°Qê0Ú<Œv࢖ U¼ñZ” +³××|¼o¯°³ïjê¬à-Wß 1j±:;KkI/T9 +5=è%þ?}î_¨á­-µ{È5»/sŸêRLÍ^ˆ„]ûÓßVKo‰ƒTˆ3E‰Ò(ÜS?”ÅdóW_®9¢²äXHêE:ñ›Ì©Ÿq:(°þ?›þ>ü`ªj.¯ë¿öñ¿«—ÁîH©èßæºó¾ëx¼x/sh; +𾎺ôÒódö¹MŸ£‡¹è’±3µ¼¤”ÀLÉ +ˆÓzºkøh +Æö±¦}QÄÎDfmÛ¹w×ص +³#€ŒMG~Àù=3sºJŸd$”X‘©mZÕØlijmn4ã7m’`wS`w4X+;Ñ +¾£¤>!¨Ùh*š‹æ)µ +âR³Òeƒ{½y¿,z +ˆÕÙÄPÏÙ~öú;?;e·(n;)¬(1dÆxôGÇñ4äÐJúåѤ2o7RÓÄÙ²æ܎Ý?™v½ÐÕÐԘÄ,æË㌺FBŠ¥àØîÖÚaikëlýi¤³Íd' +Èú+ÇÝ2¹]º^3;Ï +êÅö#ÞXÍ6A­$M®ïj]¢†ê@ùÁ“<ûÉß@j¬¸P~*©fÿ¿Ð5-àh +KÒ¹ÿÝháÅãþ°o«Ï °w÷|4ý +Ë;¬èWÀvBóêl²¶ØÄ'NØàÎ^´¬¨ »dïæÁÔÑün:@Õ .bú÷ÙöT'ôu¾‹7ÈFèRx’:U(¹½¤®ªÁÛ7pp=39áÙrú=xý‚¤ çÝƽ +@«jq‡`Þ+ÃCøöøg8Á»W¹]hî¸l +›dy (ҕ&1/ò_WéÁ˞ÜULQ§ƒ$<¶-ñäŸø2£ª¸xwâ›[ÈúÊûj‡ßv4Ï£ÅX-¹éÇyf»É†éÒ£ª’™€)NõÓÏ׃A)egeîb¯òpÃm¿¯¿èôÙÊñ48¾?·0™«ù›ià +4~=6 +ôxAÍWäH’r×䮄â¥Á¬Óä)ho©k©ÞÞ§©ùúGyËF‹†ËÏ ÅÇ8´‚áuÈYy$H +j»º.×"À¤”½‡±2“¶Ë·‘0Øz§ñŠ­Ò^ñ‹½ÍxE {ˆE糆Ðkè¯ +dèȂûÆ£ +ÃH€­?Œ^㩳Exó—g,ݱ®–‘pºájণÆöˍÅ23!r ݙސߚݯ¯‚Vè(k9Q‘Ò“3ïÁ¡Þ–[. +D +áñ³ÑB¢`VIBaŒ ám bŽ‡(p™ê<‡¡×øv¿»Ë ±šf:Ǡ‰L”ûËo Üå~ö©[èø-EÏç%* Œ?bîÄo¹ +öïRˆ +ßÛåÌâ™íÌ£ÁX¨2“­²ñ‹“{€h®)HıÈv)Sä Fümñ†¢W#ñ"š%å-NW=T +Evi^^Ñþ¤CäQhë®j©ÝzLÞÄ7'Ðcµ?ÞôkÅ9/Ç&a +.Ìñž¤ ÎÓçl÷ +ª8ël+?ÙøμoÖC¥‡PÌÄWœº1à§g×Êýa¾5\qfú÷h¤—Ì,[¹/ˆÝ’n +IÁä0lÞF¨$|bO±,I +ӛþV_~Sÿç?Ñ$ßd7ÿCÛáOÿOuVbdÔ¿§å§?º²²1Ú9ï ~äâ9Ï>KÏá tˆ74xôcpû_3Þÿ²ý[¥Z1ƒÂ-jU– +Àâʸç„J‡ÁIy±A›×éo®ï‚Z¨Vùm¥ +¼Ã––(åb1³”Y޶{%f + +kìBûç(÷5öwƒœòê¼Ja +“äO£GêÜ2¼!c›z´8vwz +Aìº2ËdV!hñb­5:œ¾ú&Œ¿B?½Êƒò͕~.rqªßBN™¸¤6d2™ñY¡ +ð +endstream +endobj +919 0 obj +<> +stream +xÚ]’Ánƒ0 +†ï> +stream +xÚ¥Xyt“Õ¶OÔ(‘hª×|D‘ñ*KDQ+BQl2SÛÒ¦Ú$m3'ý’yn›6Iš4˜ +ePÊ + +Ñ绸x8€÷ª×éÔÃ}¾ÓV\÷½çÞõVWNÓ´ß9û÷Ûûüöo—Í=šÅf³ãVmÞðæk©O'®^´`þÐ'Kw`ÓϝƒÊ1Ñé¬èìèŒQÑ'9ÑGFóo­ýKì¨ÇY,võƒC뒉Cë”Ide=E–)æɬX6;fÜćxü„é³=Í]™ +¥y™ÛÂÌlA¡0SBÞóÈR˜Y´=;³4¿4/þüEsçÏ_˜XR*.ÏÏÍ&Ì̚•°àùçÏIX8þó ¯ Êó³2‹V=Z”)$?&¬+ÉÊÅ 3—æ +¥KæÍ«ªªš›YT1·¤<÷¥Ysªò +y k‚òJAvÂë%Å„·2‹ #(çŽ|K,)*Ý)”'¬.É”,“dzãX“X“Y\v<‹ÏZÂy +½’µ‰ÉÊfç± +YÅ£ÊG‰F±Øul†­cëÙÀ6°zÕè# +ã +óiÌü˜¢X©ÐXÿ8Áø ãÄ>û— ¯Çqâ¶L|xbpÒÌIÞS'O™|9ÊÄ +>$DŸ °÷_G‡/s¢eHÎE +æ +}?Žyx:ž:÷̲ïøça åÆYφÎÂ> NDÞm´iLZ + +èÅ[rAT!|ÜJƒŒN÷]4Ώ(0PF½]ÎW0Z±ø͂eÛR¨•/s½ô’< +¨ä¢¾ +4 +Ý +X +ï +¾v²¹¨o?ò" +9°Æ(¡â¢çð?z6€~ Ԑ%ÀþeÔě}ç9сè%ç–ð×@Iu^YjVêlÑ2¼èyú:‹Æv0 +¦+(ÌkN>˜s +®Á‡Ý} +ê¸×a çxn°¿óÔ9 ðJ¼„+ÕÊuP +Uz +Åèìѹx´š„Öpa¹ qca©³ÊXTå:C­/9nj‚ÝÐ`hwïɵҌk*^.ÉÎ^¿2w-PËýWipBƒ¥ù²ò·Ð" +Twa2 +M‘t°{Ï}Ûöí +ä&qñƒE³ñÀ'PO_H¼‹ÆÞD +Ÿ_d +ËïËíKùR_k7¿ +|R­Oæ“6lhm¤!PmʵotÕB5P/æf$Ó°>¼.òåÞÉ +¦µ¯‡D*I€_˜›º½÷ÎïF)è± +BlÎ + +ÖVû}ìÃï¢MAÇ ú(zƒÛ$nÙüD‚YÆ,Z¥P¦ÐºuBJ½ +$—²k-j1¤1|˜ÄöšiðBü&à +€§~Q4PÑ.7BXáWï¯ +mT©(;‡_¥îÊ&µUo¨J«­S+Nœ;|á +{D~•]Ò,²¦ø^h«¶Tø3÷À)h4Å¡Ä¿Ÿ¤Z\Ü[x Ìú&­ŠQhÓ¡Ô ·ùòºÖ®ؽ—P×%Ntk”á^#z¦ñ\܍Åτ1ç +4ÍAûÏàÇ¹Þ +¾Oö]m;ºû=RÉG­o¬¥a‹jSÅLJ¹ƒ+O«|N˜·B°%¨‚Êð +z­ý»¾&g}"õÎõ±OD• +4ˆú¸û§ +ÁÏ4 +w:¡ +¨@ŒÓ`°‚ L:#cV¸4 +jΈ^âUö¯÷l#°¥ WÙuºScÓWü +y8ŒÛd2¤ñ’zY#¿ +.»“œô +.ô£7Ñy>6ªF?p-~ç +°P^™SÂg D¯ÌÃOÜ»ÁcdäÒ騗ÌË÷ƒ»Éh2;<Ç÷ ¹ +¥}u>¸{ûZCŽ·w— +„nhiiìðöxΒü9•À+©¯cj%«Ä)ہ*evùH)¹Û»CˆÅ358÷˜,-äT+ÕTë¨ák¡L¯Ê߆“y²ÍòLF¡×n¿¨Í'iÛB¶ û²Ü~ég£ÏŽrPSt,‰)À3•°j ÔžïL'¬åó7‘ì`ÔÔÀEÁ ÛI×q +ÅÄxz «µD4¾ +³¾-/», +´” +”n¾ +Œf«ýèGýCz*fž° +OȜ¯ª!4¨)Q£ÊC.ˆ=äÞ]Œžc$¢/q¦½ê‹Îó£ûèÅ(ÿ"'š4¸ +F“‹ˆ“ +²!&˜:É\ÍË´ø) +øO0çÊR§Vªw¨ +eÛ`( +Moá[€èŠÉh´¶šê÷ Y<ô¬Í@zþmטvRø±{˹ɦÄnøPì-”€fy¨]ߨ;•‹{–(êl‡Úá'ö­Ÿ8(õ7\ÑZ\\QQ\ÜZ·¶†ùä·x½½ü%8(ÝÀ½T¾7» ª¼¤ÔWÖÉwƒÇìt‰3€2ôµ4¼’—\P —*Jm©³¸>ùåÇ +6eû£]>öÍ(â +.Žj¹n«Í.Ê¥tÈI-é@ª¾÷®çɵ*-È@f׺´Ñ¡—¤ôj~kp +O糄(dZ£ °è^mF7;ðÍ1qƒzÒ¥ÚaG¼ÃAþ˜«ÈÖ©–%ÚÙM4ŒA +Ñ84îkÖôÏvýÐüãuøŠºžtÇòñg1¢‘¿l¦D¹¼º&C½žad”¹çÁÑm4 +€xč¹íOI_ôì + +Gãuø6·–ä@cPÃPÓ£¥éÔÁCkbþÚüJÆÌ +³ñ8:np€Äx.‚º"ìAsô{®£Çè¼Ô.;*†.IdJŠ_+Ž¦’ÿ~ :FšŒ +î9dŽ +“sâÿøÓ~ô^ïW^ÄÊÆé\5 +HWèÉ +:?Pö!î• Ê)!¼Õh1XßGm<Ô“‰—çÔÕ(vˆô«ªù×ö •óDÙ$Gâè<îb´•±ëHÑŃÕÛÜkvœðRnѵíLfùêòØi9 +ú +XŽh +îàá\\%•oÙ°­z/ +);=(ˆntš"»÷öŒSaÐÑJC¡‘HScC£Ûó +ÑÄÏ¿þ;V™å=èâA%’d×ÉõJ=H(™ +ÌüÐS(x–ŸÍ +Ín¨è•I²/ûÎJ4_xæý+?¢ñ +¡pëžÖ3&ÁÐL´Ç)å0 +9‚\­ªhP[›Þ¡è jåR•’hØG¿¿K,O}}{{g×û–x×Ð +M¤›Uü²b¦´ oÇð +"¹So± +u•4H„euZ\ƒ}<< + +Óԃ‘ðÕzœõNÂïU%˙’ª¤¿QeV:ÊÑDüž1‘â& +?«KSõÌ +zJ¤ºŸ574†;œ+Z"+#¸Áæè¶ø»ÑTž¥Ù`²;ˆàˆÁÜw• +ãŠw·½ + +‹'Á}ò™w“>¦}pÌ|æª=³»àÈlWF»ë «×ètìéA <[ˆ 44É +¨ÙÉì¤Va7W+]$=u{u éWµïî¥áXšØr(rºo÷> .Ö?¯¡A£Óèµ$Nïpœ(§w8TÏà2îpšj`ŽR¢Sé5ZR24 +1ª|¦*+F Äÿÿ ´mf/õFý¿­€¸ŸÒz!À>4€¼ +”Œª¹a¸n<æ¿Òn9 +õÔAÁþ×1?='Î8½ôk4ýӟÜVb@HC×é4ª¥31›¨>õ¢òÓ܆HÃYÊàîEs¾oØÔá¶âüéøÏ°¸Ök¿1ƒni¸ÀAûî“#„WUe„ +¹ +ÄÿLžqïZÝ°¼Å +}Z±7nK}ó +^àskÀ°´Ä­öNƒÕ䈼×ÕhŒ4ê€+?—XXfW¼¥jÉ +¦¶uç +¾»=iÿ•=2JÔÔlØñZ*‘hµ³ +† £Õh<ЇÆC?u1«÷eþ›°µ0'ôØwäAn/ûÐyrýN¼"Š”}ÃR5ïä{ +#ש¡:~íÁ¼ÃüNú¼=M{Üýÿ;s¢2¼AG=ɜÁbi&©øÛH£Ÿ‡¸¹}šËÔh„Ä·ˆë• +¤[7Ùm>ƒÑ}Ø +|ÎoöÚÃsCäÄ_ÕçÈ) aõ<¥:C)ÔË@þ»¨«V¬Ûò?P7ŸèE£àu9c_"lyC"Ô¾·=’i ÊVˆ«ókS ŽR8Itñ§ïUߑ +âÁ\Rr`%#—n$Á‹~ÿº®q¢ùh÷‡åàGÉ×4 +Ç-ÑW턝1è@«wo_Æþe˜—3#/^¯ kŽ+ŽË!•*.&6¥^á‰=Ú`;„¨–jweYQåÛkOeÝBÏíEúøÐ# +ÊÜ¥¡bKº#מeƒ>*Üzö6?ÇÔ +Ùä*ýƒI|%úØÈmÚ +}‚{7Æç +ʘ^Ӄ¦Y|d\ø§!%/â=S¥‘Œx +úvL"Þ]'!"±~àäw§†j[u|%ñßZyÆô +ùd¾Vx:ïëa\ô}yÀóÊ +ÊCøKtùKúô.׺«åË+`VðKK´UåP1Ls £ißñ”ú|þÈÛ –_Zï,júZÌ-◠+úŸ€ÑÑõÓ¥`PÍÝÊ54JVæà„êÕy™é !Tz‚–€ŸÔ¶Ó^ST^¶#íXÕAþ%è¹b²ºsz²Ïõý)Ä +ÝIZ º:º aEÅ ²«;ºHK²\IÜR2]÷Þî +‘Ö×NT}k +j¶‘‰JÕeN«*¬«ËÔ¥šÒ·ñJ^]MÆò$ 6Éî¦á÷\×íÆýfø¨¾ +»7ÏÉÁ3”÷KÅhil»»¯@±{a +åŠ2µ(kªx-ºž/:Íß +]ÞPHºQ¶%kCY¾ 8 +jám“do#™¥ëÝN‡“l*RjV +ª·l>˜sŽÿ=|ÿEn,—íäØ/“z»É=ÙöDÀpîDOÏWwGH›% +èˆÛgtZeÑÖÊê +¨YCWÔ"ñõrÚÜJ­Iã  +ÄЭ͇ú +vbòšÕ-ª}5.rCr3'Šª,æ­X™·– +oèÈ|g´ºZºÛÛ: œÊ`±·²©: +Ô7ýè¡62Ó¨†8×0jáª7DPbk¥-ßSc®$M¦” +·3Mt¹<¨(ƒ3]ðǍ^ì‹ +k‹ +gˆ +70>hE·¦ü7A¦0‘ +endstream +endobj +922 0 obj +[571 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 513.9 0 0 0 0 0 0 0 0 0 285.5 0 285.5 +0 513.9 513.9 513.9 0 0 0 0 0 0 0 285.5 0 0 0 0 0 0 770.7 727.9 742.3 0 0 670.8 806.5 +0 371 0 0 0 0 0 799.4 0 0 756.5 571 742.3 770.7 0 0 0 0 0 285.5 513.9 285.5 0 285.5 +0 513.9 571 456.8 571 457.2 314 513.9 571 285.5 0 0 285.5 856.5 571 513.9 571 542.4 +402 405.4 399.7 571 542.4 742.3 0 542.4] +endobj +923 0 obj +<> +stream +xڝW \”åÖǑy_1™ÞÄ[ÍËu!÷PKE4R5wC”Md¶a +˜™3Ã;Ê:lƒ,& âZ–Þ4Ëíˬ,+³hñ¼ôxïýžÁ%ï÷uï÷ýú +<¿ßüæ9ç9ËÿüÏ9føpF"‘X{¬w_½tãt—5œ,ß_ÜIr~« +L·ŸfÄg$â³ÃD +T +7üY†‘xŒ¥'óÏ1–ó¿ž°œ“éÁçØ2Ã%N +—íè8w–£ã +—ˆÈxUp`Ú~ŠßTûÙNNógØÏqtt²_æ¯ +öó +·_ã«òóUÓ/Jû~Áþêxû)‹ƒÔêÈ +Ï?;Ë7,zV„*Ðyê +ûØ`uýÿhÕ.ÿöË#ÂÕö¯ù†ùÛ[Lže9\"Â"cÔþ*û5;ýUáÔÒ'F3˜Ì,ÆqØBfé°å’•ÌZfƒtÛ0oƗSŽŠ§¦‡3±Ìhf +3–±eäÌÓôþDfó +3 +™Æ82s™˜™yÌb&˜qfҙWæUf³œqeV0+7f +óÕ¹ŽYÏl`62›˜ÍÌæuƝñ`f +c$Ìp¦Hò´d³$FòÓ°ùڇ}.Ý)½9Ücø)+w«:«»².6„½Ì-ãü¸oF°#¦Ž89réÈêQ£²Gݶ>2ÚytÑè~협cÂÆüøÄÎ'Þ›0¶Ïö¯¶yòåòD­ØfÑʌF“äîy +9/_åµ 7dä(Kü +‰ÀaÖ:Äj±ò +ù„õÔÀJ +’í5Vzz÷è[O2³+5Ð#à'òŸ~ÿΒN2“ÿþÓÎÕP­«ÉLޝž‰\X‘Αù$Œµ‹Äg«q 2 +gB“ +ÅÏø³Q]¾Aq‘‘‘•‘mŠR(Í-.4 +pFÈL`eØkÛ¼t:­²¸¬üÝEŸ}ŒÖ +Üþԟ´Áýdó+ܨ n<„€ÓË.ÙY +ú¡›Å×.áÈ¿Euì|¨ÞT^n°H•ú)º盢MaaѪð°ºèæ溺fõ/Æ4hk’ +¸e7¤b~ÄC¿öFÐÇÞß¼\· +ÖÂËÑÞÓC—g-„—ÁÍ8­{qï¼Ë‰=ð>\lìúº¹?ÿc¸Ê%ù—²8´J{nÀ)8WJNT}yvo+ì‡3±•³Š7ÁK°ÖÀü´u»ˆliš +8ú8Ív‡Y‚±—¤xjPΛôF•bͪçA œ’­„wáx=w¯Œ +ЦÎR„*eí9_BgçMh§Y +egiK:‹’«8ðó€YÒ÷3†~-wà2>B¦KÉX—’˜™¾ +b)f–Ëî|ƒ +p»Ç``<²3®’1„}ÉÑqkwVaMsE{ó®¥" +´­¯;¶å8pm3– +0ÙyÁ¶×É*âa§Ñ€Ԝ(—ݏ)†>Š«8šoŽ®£ +¯SÑÀššä“áÿ;؃Å`ÆmfѵJÒ:¸A*Î +\Åg•jß°€N—™™HBï}e—¢rÖS÷÷ç4@G[þ¤² + f¨„Bcž1¯y;,‘ +'ÓsÓ +)ãÃ6BÅøÁœ£Ðs0>¥ ìЦ5Rãfžhd8¯ZÙ +†R +Þ7a‡Ù'^Çóß-»#1VD¾ÕXЫÀ§dßw¾´ÖyÅò™™-C†¿Sõá¸È}1ý±SÜ㔵²KFM€p¯† +Ðiœj¥Lþ‹8I†Oóå-n¾ð‘–pĝ\á·ë +Z¬Ãõ,roN}Íyí˓›Á„óàL³äԀ˜Õ Äð¡æ +' +hŽ¶äEâEvàB27áŸðY +Q +ÉB +Àn}z™A¬—Nn +Yy +÷a +º +ûT¸¿,©#óŒ)†¬Rà* ¯ZÀv¦*vƒV›™ÎÙ +Ρ^÷š±§U‚ö7Ñ£Q*~7¸˜¿÷ö#o*ys0ç=è9ð´ +AÌ1›B +u7ÙÛÅ¡ó„FÜ!›§ ¦˜y²û³•áL0m¬ +®Qf3ØcƳ8iÈCכÒÁ%ƒ‹ønjq_b÷?ýõÁùät¾ +퍇÷D¶W + +.aäæõ+̬›V[v¾A֓”-쭜Ôa5KlÈ +Hq"ëcÇý`(þ 6¢ +̃³Åu)&ˆ?ò탫 +“Y¶Cë +>>®°ƒ*5±W©–´êR)TJYgÎ9èî>4*v‘®¤fï@LÓàì&‹oêé`<~Í£y +瑵ôó<¥Lo⍎4}¯Ñ#ÎAoù–\ç +ˆð£'^¹}'.&ZRL„¹T¥6Ƥ5cŸ û(&'|ŽÅ?¬øÞ,OÀx¼Ëc +õÆÂÊÜBc +Twå@¦¾è½š<# $‰ÿ¶áò;p™»CF_#Ï)È +?€goÎ8tˆþS?Ô¬³®˜&4‡•·¢µì´øçf7@¼ ++ÀûoÀi(îzùçuùP2¼t}FÖje´BAS•±'½&ý\æÁŒ÷Òû‰´RX?ųc£äÔY¼vVJ+i +¿¨*ê,¼Åõ?{]< +^ægÈ*® + +(87³Uð†zýîԔø¢Ò×ª^?2“BbÄ|ÇɼԻ-/ë ÷Þ, +q-®P·/Ø o +€uœ«ÇG +3¡%ô吟\2dÄ +d3 +%Š0 +JJ÷¦¥ì;úÞÚ+i‡C›k?ÜàÔ®·¢›}Nx»•ÓzH ¼K:$ +f,¾‰Ef +Jø¿³²XcÕ(+C§ª&œFé¦ Št{³ +i âhDƒ!i‚b§ + +q +=,<¼“å­‚XC3e(¬Ê-26À^ âUáeÄi¨(ŠiŒÆ +ööûì0_RԚe^ڍàé¹¼(kÙû¹É +ýWTàs×ñÙxm†ÞZ›uIúm +)†ô6;Û"òKž™:ï¹õĪ +W +uʜîß +º%hÝ-År’ÃwOùÍáN7™ð¤¡nþ +¥î¥Uœ}¿›·ˆø†¸† E +¤dkÒu:½^œò +ø ùÝCÆœ +Èãò2 +v§Í[B¬WÕûvµU64XºùŸ|ÌÆÑÔÆÔÆߒÈŸ;ÿp˜âÃÒ_Åw~o-÷ +µ–Ç{¶Æۆ¦¦oÚL¶Ý—·ÝÂE/4Ê·iðÛ +|žoS`7p¦3åW +“›X +l + +„C +taignõê +Ø·­|+pó—ù®RV'Ô7TVÕw{çé +†úC +MÀõòŸ+„°òzf³nI֊P— ˜×Ásº +Ù¯ o| +ûO”5réã§- óÞîÝzDœúgæ[ªAcJ®íMÐeK8Ó +ù>\‰xŠ%CqEkÏáŠýÐ +¢ë}ë}ŒëhImÏÜåºC¹¼À¿.º#¹ +PÉ¥oâÍÞG"h#ÆQ8ì; +‡c§üH¬WØ + +ÉÉ·c?K¦h¬”ì¹ÂÝ +½[4»Û5ØþUS£¤õzߒŠŒø,¿+;6¹¨ªØúúê=æ÷–íŸKžœnOÆþç©´) +-8º°DZ +hNP/ßåÜ*§£8 +¯öžJḮCõÀ9³øԐsôÓyù>qh¬6¼UÑCې[vޛ‚üÇ +qÿ×(ÕªððZ•ù>×XÔJº,PâêÿäÑ¿nW6ƒ·‡`”l²µÄ#Ðò'?L‡‚ +™ËGNŸØ»sÙ¿sõaHþϋÅäsh +éØUçWâ .àá±%õ +¿öù°<^ßåÉɯ鿗‘ɏ,'Uÿþá‡;èË.Ê™ýç4 +|–'GÐÉ/ÝfÿßiÅiCÞN—²8 +æqÜğéÎ"w°§5>öç)8å?þˆc$–¸ó[Áפ~3ªK +z N™:›ûŽ”·Sºï +­ +®õ5¸ƒ/Àz•w„§g¬¯eõê'[Ì8Ã$>eNh´½{knPN]‰_ò­oŸ¨êîòéل!2×¹ +JÌõÑm)U`¤Äì:¼>ª5äƒßyÙvêd¤°¶ÆøïàäûÎ<`«óù™>½ ÿäå›L˜4DØ5-Tv—ß~eCaeƑD2Œ#ò)8B肾òî +yõßëOªXOrÊÂÆÙI‘*ßÐ-À-]ýZ!wþÓK—{l¢o:<ÌíÝów¿ ™]Nɳ³ŸC™BÏêô”Ó¢¹Èê„ÚêÚò新f/ÅZðõU¯J %⠐À? 8qªÆ$:ÖHZû0¥OŠ·Å +÷—€,ºD¦¤êtéé™YÊe~0uÔ.äwBË¢jcZ•ûw÷¥÷¥íÑÖ$e˜âÀŸ›ëɊÉõYêqm‘>?uhâ‹ȓl¤—(òéÄ··27¿¸4/¯kGÖD3¦ûB¿cbjƒ÷,-‹Ê{¥Nq-µ]_)‚F•!2K‡&ÒJjíDŠ7¹TI~½ˆi”âå!ʟŒ«#Xýü IÓ´œêsÒĒá×ÔÇúÛΞWœŠØÌ.U®€/ö*°™}Ø +­º +Uh‹ø9[W¹,Èê>®Àë,™n‰Þ%ÐÎÈ4ÜÀ·'¨)¶s÷8 +‡k›Nsò8ÃNyÔúÈ> +stream +xÚ]ÑÁŽ‚0Ð;_1G7› +5!$P4á »Y4ñŠíà’,¥)xðï·Ó{€¾–ét˜†¼®jÕÏ~™Q48C×+ipïF \ñÖ«€Å {1?gî-†V!?´úØaSìŠËñõöã|Ú³$v>âôÐñs^WÍcšq¨U7B–á·M8Íæ‹BŽW|£µO#Ñôê‹3oÜJs×úT3DAž»t̗$F‰“nšVÝ0È¢(‡l¿ÏTòß7–ø-×Nü´Æ†–64JJ–[７Ölå]’·Î<"û˜jeä(ޑKon2ç”r¦ï +™{SÌ:v¶ƒõқÎ]ûœv âŸUÒoP¿_íwcl#Ü¥¸S7z +¯{Ó£¦]îùðý‰î +endstream +endobj +925 0 obj +[658.7 0 0 455.9 0 0 0 0 0 0 599.5 0 0 0 588.2 0 0 0 0 611.7 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 285.5 285.5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 544.5 0 0 0 0 0 0 592.2 0 0 0 306.7 0 0 0 0 +0 463.7 0 371.1 0 0 0 0 0 478] +endobj +926 0 obj +<> +stream +xÚ]TipS×}Ï2âŽI¢bR?)@` +ÒaK†à˜„@Xš0 +µ°eK Y–,[ +¶?ퟵZz–äE‹ec +Áf±!PÖº%,¥ÐIRš +¡C;t2WîcÚ^»ÍL§¾™÷îûs¾s>’ÈÍ%H’|¦¬ä­’í›–nÚ´~åø×k9ß?®ŽµLʊ‰ì‹dvNNv./û“\úë +¹ÿÊË) rÙsãõ +éã•|Wb>.“ÿ9ƒ˜B’üiÏ=?«Àãï–(êd’*©B+QH”{ª$uò:™¼¸øÕ¢â⥥ª:ƒF^#ӊTŠ_Y¹rù"ñÒââ•â¥T#¯”ÔŠ7I´2©R¢Å +q™ªR.ÕÄ +^—iµu«–,ÑétEe}‘JS³ºp‘X'×ÊÄïK륚Fi•ømU­V¼Y¢”Š'HMÔR•²®A+Ո7©ª¤šZŒŠa<2%NJd6 + +.s +G¹Ü°)¡nƒƒ@¥ù¡Ö€Bp{~sÔµwròìM¡öÚúP +P-&0‰ÀÚæa= +íªxõ;Âe¬VÆM³»¬1ºÚã~?nô•%‰¸ë$zü)õf' Ÿß´Q=V€ +ªÃ5i؜À\R]i„<>{Tq +îB2p²ó + +MáG‡`°·ô"î1¿ +d°kW]]ÍV`( + +>º +¼Þ`äÌÝk€_¹Ä¯à¾Íͱ5ٚ­øŠ)¼?EBx0ù%†‚8I­Éd +{PS‚<ûYö¥›¼lÙØA«ß?a¼vÚ2>VÃ{œQȕØ8WÜLXrs0ŒÂ¶Q4oejÁI9½¶vš +V_0=Œ^¢5!$F€ðÅ{ßqâÅ<}SPêw¾Ä»æ âu`Ö +Çh,Ə.äžç^4Sùè( ‚ü"xhûA¿6£Ph5µµiÍÀ@:ÓOãsn†ï  + +ÚÐ!€½°²d­Ý +ŒÃrÙ/?GS®7œ¬ëÔ*UBý +‡x ÂbÎ'þ +áßñ²3²Ï +ôƒŠÞÝ@q'ÀIXÌåÜúð†è7pþBG7»õ¬áôC&šî: +»Ž ¸BVìsÃ©oøyƒR”Æރ=× +H„džC™®ßûãþX°|T‡)j M a +rjÇ + +zðì××TìQWUn<7"‚3ýhrÏ'‡®~u>0Š`ó..ߢ0+œVÐSÛN(O=:†æ²¬-ã¬Mše)v¼Í‡D‰ô¶¥çŽÿ¿¢ +¬O~@oíªÊr<Á+–Ì،aòÔ + +bÿ¶V0 +nÆcþ/ìøi`˜aOj:t8¹Njã9åIú$ÙT×`û%¬çÿˆo\§+Ç"ê,1 +#é +ù;°b•8X—¾mϐ臇¼ì‚l¡`¯Ý¨‚FJ3fú¤‡ŽÕô—Ók@RÖ¬7_ܝB +hŒ2}é}Ü°%ä +aÿzD÷½äÐG@ +„}M"hdvµMm­pš+¹B[ý„ªA:¡¾Pûx#'†ÐËÁ +o Øþñ÷Äi1ñ)NÆSœ5€Jä +¬ +<;Oð=¿« +º¢V0ˆ–òO U“&l²˜Z·µ’+.æëÍ`ÀÂt‰ +ð×qF‰û5ÏþÅ)ù§¿‚æE&T°‚Çe3*Jw”—cÌÑÃxíùÚýqÜQc¹Fo“Hô• ™¹xvdðî¯Ó©hìþ½¾s?.êp» +ŒIWW! +˜Xmo}¯žUµz׍ËË°¢ø‚­¾îO®@æÒcK1ÇM +¬lçÆm;*ʆ†êªÝ›ÁBÙÎ6: +^ xìꐟÅ{*֔R§5)/ 'WÑ̾°ÍgYÁms;ëJÖZÔ ]@ÑëC`«Ûé¡òRÙR–e‘*Åç$ìdzjîòDޔPÞÔÖ¼iSïNËóòÐ×3ÿ +ÌyËÿ +endstream +endobj +927 0 obj +[603.4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 419.8 419.8 0 0 0 367.3 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 734.6 0 696.3 0 0 0 395.7 0 0 0 0 0 787 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 524.7 472.2 472.2 524.7 472.2 314.8 472.2 524.7 +314.8 0 0 262.3 839.5 577.2 524.7 524.7 0 432.9 419.8 341.1 550.9 0 0 473.8] +endobj +928 0 obj +<> +stream +xÚÅWyT[י²°ülcÒ¦Q,û=â'¶À‰'ÔYº/±kŒð†m,³X,#mhùЂ!™Ý`0Nlìx¡ÁñV{fgŸ¶‰{ÚqΜ´÷1—sf®Àmšž™tr¦çôÝsôÎ}÷ý¾ß÷û¾ßwyTHÅãñ–lܞ°iÛ¾µqñ‰[7¼*ÁÖe!eӚùÜ·ŒÇ-ŸÇ1|nió鶐ÿ +·œ¢x±ß®Ô#d¥¾ø^p}’,ßûãTG)L11/DÅÄ<—w¢T–y\RñLêêˆu6Ä>ñ|L̆ˆŸIÓe™©â܈xq¡$]*.$r"öä¥f¦–F<󊤰ðÄKÑÑr¹/-]–KP.^B=Ã{ŽŠ£6Q[©JLç„Èø%r.µZD +Q+©UÔ*†zìÙHvm¦¶P¯“½Û¨xjyc'µ‹ÚC%RIÔ^êµl + <„Gñöóx¿ž—ÉOâ_Y2Œ¡µ +hù$º%BrÁF<æªR( +Oî=z‘9¾SNoÓ@Ã%°Òõ*00e`6J[K÷e]¢óøY¨µ¶Ú[h,Eï ýh¹­¡¶ÃÑê=÷9Ô๳L®+/bZî©hbÚÀí±9èjA +Þ4?Œ‹Åßîná¡è >êÅ!XMVƒCÙºÿ. H¸ÑÅ­E'‘Êé°XÀN[MN5£ +½o GKñ:À<ØQïÛݞ0ïº +êªÙ¿8÷W|.œK¨ñzîÂ+G¯(ÖôU,aÄäԌolŠ +‹vÎÌÇjœ,W˜ÍPEëmUNÆ +“çÐJ´ò÷È(CñWyŸ¢>šDñ¨[½ÅQÓF 5T’ +áƒ9ÀPnÒU“ST +àa¦eEéç<´ö3þôéW„Õ¶j;yÅUzæ§ëÞÞîÙáø8–â"\ŽŸÿ +óÑ3ì}x0qóAϸç8‚ù×1:ЁQ» +ïć7ýbôÛh +ïv¢õŸüñö¯~3|èg7¬`!Ó =]á‚BµÍÖH‡Mo‡º@=½¼é +¨TXÓ¨¦‚ù¬"LŒ&3˜* +váåi 8h¼T ¨­Pv›û&ê}.¸éPæ³ +J_`ҙ´`¤Uõ`cȎj{óÊÙÈ÷ˆLf-'2©*-ùi±üe ÿI0‰ÌÎ^'œ„p$ Ðƌ×Yr~¾1ßl0‘ítYn#T×X¼mh§È +äs&W ¬ Š®ÏeÐW²„[¢hüÙ>‘F¢×½´òO‚甂V’£‰ãXLó<î îBçI[Ý/n®ƒ¦ZM˦‰©ÇÄ©¡+ªÊçîë +fГƒŸ˜i³tš­@©¡ÔX­n`‡N[O +œ +]A(k +f9 + +.l`±¹ ¯]EÝÓëºxhͯ¹¢OøÓã\¼E¯E<ü$NÅ\†Uø +/#Ñrt +I +U23Ñ3›„?yåm´š +;íhíG(dòƒÇ Æ{ïïÄ,ÞK~Ý8hØWéçžöóм[|NË-r-`£½*—’QA‘VŸ§nÉï?@r‚—àH¼6òJâ»ìU=Ûìs¥ôɆá;Ôîϛ +šÌí?N:Ñx·‘ +sÝh^ã`Ç;gϏ=Y«c¡ +ÌF5¡7gÊ8ÍC +&QÁ->º<½FhuW“ÔCƒÆ¢0=¥•™ÕfPЄaï8h5 +½˜tOÏ<%Ò¥ ¤cG7þ+ Åh5zúw‰W71{áÈQ­Ž6̈́ ©. +²0X7Ð|ÏÞR×o±ŽÝ +m +} ~¤ga6¦U9’ +Ìʄ98¨ïÞ0!ŠI>æsÅ_ + + +š=l2é4»_{©è0Ðrßea¤åAÿÔç΍¼EzÓi“7-¥Ê”NԗÛip4ÇƏmÁáÇñ + +ùÂÄ«˜ÏáßÞüý§lÌF +LÈT0ä†jË· +¬'j-ߍå¢XžP¶ÅfèÛÈ<ÌGe¤òÿÎ;ûÝ·ºjß=–>¼%¯yoÅ!ïlýäa´ÿ{[ÔÿÒÇ)_Ï]ãžAëÿÝêzÔ'•®Ä/À66 +]'6æ}+ý³‰¡ÛñQ?·Rø±À뚫 +öAóœÖƺ±º3}DÎmàQ +WsH¿ +ÚCk§w`ì°/Ù™b:_R¾ÌExÁ7­mÓ +Uñs0•nם(OúvkEküè±  +zÝÏ-#t„jþª¢ä ,«*©hË$“LQ8 +3xuĵä«ì)híî*ŽU +¬’ggæeçTJ òí*›µÚï†7h_™«¤TZž. +Q~À ܽí½A— d’ªøŸÍ¦êIÕøˆï +ê¾1>4ô;Î +ĂÌF“ö›âúâªûÚÿ­¢æzÖʙ;"C9i¥Áªjf~Gwýi°Ô +»N7œwö¹†[»»{z.=X›•Í®£x‘âHE–IO|9i0oø·èiGýömÔ«ç½D€kU՝,´×Ÿt¶6 +F|¸D_O +ÚÄ$BŠL’Aüðú +ðÞã¡Ç¯OòчÓ|¡§Â[\PP,ËkÓ»ü­míLýL¡ð;Ü[Óæ +¸Àâ +é½/ªmsuC3ýffϑg3p¤¦¢ +ìA³Ûê + +¿¿tËD<¨@'W +’D‰ô¥J±Q£-Ö€üë@˜0ÔXéŸ~ô4ïþÔC.ÿF©Îqùýƒhnö¡ggŸ1h¨mnêo¸òͺ,Œ.ɗ}³.æï͵ë駂 äØAálVªèR·º‘9 ö–†‹öf÷„ÕíìiºUÓikè:ßÞþwÍÊf8˜.IÖ^>Úµ +á@x¯æ|ºÿdL^š®””ï!"QÍù,Øì--÷šº€öÔirX(Ö'ŽÃâo‡mqø/ +tuôÖwÝÝ$?ÌB©^jTߝ#€[6«`Ñ?€€8HNÉÏÖ¼•Ñ!þAÓ_[-qï +>ׄº„¿Møe4þ^JŒ|UÔå×î£ÇÑc(=É`v +%)í°0ÔòÕеžKçNŽVØw| + +’,8²9ûà¡lqЛ|xo=;GËþ[üßàµÙ:CÐ2×TY´.¶#`íêé +„®°?œ/£–×Zooñ¥w+ú€~蓫~—4Çî +ôŒìœò‹) +yß%È©b¡³Û×Öê;èr4}Ñú +ûr0-O‘% +I“&ªp©|eíÆ^Ò-ÕÎj+‰`c¥[KЯ'½ÜƒN -ŽQôÈgdòí_™T]U´¼±¢¹£­50r¨-‰I€Ô㙕c’ÿ—ðÜÐ\ã +ïÇVú/ÜCQï¾I²}-½Âç–qa†Žt`­©)ioõÏH +ŽÃ +S¢xõzy·n\=¦†}tnÁ˘Çäà +‡r|ÜÃdâí,¬©Ô§wî™8ö!zn +1Ð¥îûò; +íGj¥Žã8M7ynÆtCE„4¹û•³w³8r ÷2ÔD,íÓ9K#×2öe霓„Ï:É ¨,2(ÒpŒèÅ9×"S&ûþ_Ü«Ž_ùò"Š¬s©ÀHF9¢ìò¼Mâ$b<• +ËП[ +7þP–ë®ÕNò¹îÑ9DzÓMåueL6hsLšø”HwâØö ÷Γ~4Ñv³÷‹Ú6› +Zþv•UJu%‡ñ#êcB¯¾-?ÌÀ@sïpcJ¿²ç»Ì%aœtì +ÐU¢•ÿ@7 +Þ½=½àƒ&­C/ÓVÈ¡äk© +mK&&Ÿu¬\&?+nÊze"^Z„ÉÎÞYÜ­wϽ9tOcnVP# +ªD ^&Rl–fê9¡pëwºZÁ;kø2y֑³òæMèôtzÒòÏýÕî +Âfƒwƒ*o]b&ùRfY™e|6·ç +VÔÊŹPaµ§U€Å®E·ûkBC™E!±-¡ +9þcÿ +H[Nß +endstream +endobj +929 0 obj +[413.2 413.2 0 0 0 0 0 0 531.3 531.3 531.3 531.3 531.3 531.3 0 0 0 531.3 0 0 0 0 +0 0 0 0 0 767.4 0 0 0 0 0 382.6 0 0 0 0 0 0 0 0 781.6 590.3 0 0 0 0 0 0 0 0 0 0 0 +0 0 531.3 0 0 0 472.2 0 0 590.3 0 0 0 0 885.4 590.3 0 590.3 0 414.1 419.1 413.2] +endobj +930 0 obj +<> +stream +xڕ–yPwÇ»˜n +G&£Ý£Á›(êAY/"b2r”||@Àd_ù?¿ùÌDEJld„R¾ B£HŒP‰? òФÈX +J-£R%O7.--mlDâú±I)ÑÓFùÊÓbU1òŊõŠ”TÅ:yp’R%_‘¨÷¦<¶×%%&oP)Rä +’Ö)R”b¦î#i?—*ˆšK-¦#(C%ÒÉTŠE¹Rn”'åEyS¯R2ê5j åC¦&R¢fQÁâù +Ô_¨ET(µ„ZJõw¢hʙ +£Zè‰ôFú‘SšÓYIŠä™s²s›Kºt¸´‘éËØql•«k¶Û$7µ`ì'Œ'֊g¡åôO¼M¬²‚b(æ!ÏlÉ,!ƒQ‹ +ÇîÇ>øF{붋l¬-'_Çi`å +ý&2È“Hw ª{$aÿ㍢Û3h•Á} +J [Ø]¿/ÕÀꌆl +rÀT¬E9y}™d,}¤´"<3Ól†l6Ûj(äÊàH{ÁV +ˆr;†º‹Îí©ö +7;½¿«º%B^’ÁӬθOW3¥r /+#)z–i$,‡¹ÖámS[g^I? +mp»ôÈ£¦KÖnèd‰ŠtÊb!¸,õIV܃á\,:^ñãµÂø.l,÷+^3`üÆkCS‡gÄAolp» +-beÚë<×ã)«3Y’¹µ‘ËÖûÇÔÁ18YÇ>/d¢ŒZ_.&Nºßz +¼ûÝ} +1Œ¯±¸‰ïus?y蠏>AÕ} îÆ5²²ÒfGÙ¶3 +§ŽÃw,öq•x÷@¿ a¶U4–îýx%h¹úËçjû}[àd +ޜ5¸‘¾Ä‹¼6@›&Ha^Zs\¤Æ4ýJmúfýtÐK‚¥½²5\F îýéd-}åG\û³·à +Ùõ#‹†Ïw¢–ñb½å1GÙ=5UŽ]ªªø䤍‘¾?.@)¾þýÝÇ<|5·kXåuû©ópƒ½1¾ãMù”EÓ£j4µå•õ +4ÅoÛ`i>~ÕºØÚ.½³•šÄ•iaNºYo†L6c+lç^hˆý +Â*QÄK_H®ç +Y9¤r™`6ë2È¥ç‘âp·¿¨`Ö4N'½eÍ +ŽŽ\¸%*¨b¦‹šø¯~q +af.²ç.$ŸyQۓGlGÙ­ârú©Mw%(NÉJrö隁EÏ®oJ‹ +ÖlÞ$Ê´){ÝáÚ¥bkÃJŠu6˜Í„,5OZ5h˸°æÙ +ŠK÷¶ß‚P¾5}{tn8¬ƒ(óÒ¤Õ鉑 Ëà]˜·_Õi5o +°öÊ +Mʒ4u¼nÍøk~È ç/? ²“"nüJxO£ˆ}nCã7í Zºå +Ú +H„AØ&#FÂF,âRa¹5¹±%Ïê€B¶Aµ}½Z™¥˜sbí] +Œ¯á ŒÃÂtù·!ãH"ûá-tá>‡«ÛY2pŽ, +”šTM"èíp +šëö×ìÙU~ÎAý\kvE˜åϐÆ®ñÀõë)HuôŒpЧ~ò?”ô,ï™"+ƒÂLÎ v`S抙¢?š{xŒÈM8 $“D» +§’I¸Ñ _Ç~ +°UÃg1۬ӓ±Ä#h°o“Åc#VbÈ'÷ù{€lH-™aÑ[ +ۀÝù;Eê½Äáù‡ƒÆabstÂ#Ù^káu®Ú!j4ÁìÙ&˜êîWÍ\·êüó +ŒÂ¨ +äÖÇIoˆí¿x1nˆí_Ï +÷òýz*Sí¶ÙñÃ +GtãéŸ7xg +Jü^v­üAÜfï/É(Ž\«”^Í͊êue‰Ú𒨓§^µ™f‰B`¼ÛÑKz +QùúúxHg>¬iŽ:u"» +دÊo6l +Ÿe6dϏِKas«½YïLC‡îqú%L™Œ¼‚[¤Pk)ª¶nµì‚r`¿Å@FÉÔè¡¢wDõG7ЧÎâóÌ&É敾קÙs'ÏÞáp&T‘·mŠÜ,‹¡ز^ípó¢Az0 +Y1¡V +ŸWºDlPŸ‰ã‡ñ0ý@ÄÎô=Ñ=R)·ÓJŽ˜Â¬šXcƒ—Íz‹#N@¤G7#o}e«}:O–3Еˆ¤[ró +ó¶ämµ7Ÿ +½’ùIï°|ýè)ww«îeVgǔ:ÇÝZ;Ýr•]—%‚?¶Ë +ú +ñóŸ?7±B]kßY^ÇAõÛ7ؚjŽA>°'N¬ +à˜EÆãlåDÅÆEÇNúûû¸Ëppå>›¢VÑlá­¼ïøã K˜µhR£ µˆ›Þ. +ð~äòÕ»Û8øìÌyô³‰9$è1²ýítC7柗ã1]V¹ªºÃ~!CˆÇhâAdH@/ô>ò´*ÏX˜)j2˜6GždTÃ*¯HlMl +O¡µÔʶ¢üVu +ä‘!•âŽ§‡ +-4ºvab—D؈'d_+Ž +å&Bx¨:ž5ã=)•åǜ/0„ñÏK˜UZ˜ÇÅ1¬-PWß +Dœ˜yZ8Èã\æɍçO—®™Ïõÿ>×ï™ë‹°/b*{?IO¥ö˘Bsã |¾F©¾´¸ü] +áÁ™É¬ù” +ûw +¤ì÷S¸~ølgъ%¿›Â=÷«Bÿ-ÏHX¤]ÿ¦ö‡Ôîe +#îËF%]ØØ-Á2"ŽË +/Ì¡íú]"°Þèô_EÏáI_~ +,Ò­XΞa^öêsÛæþ¹â7¢LªeUûŽ4öjçۄ&Lÿ>ÂKãh·‹[}§ˆÅ±hñE +ñî£Ï¹ƒ/‘z»9G§›PQ^]QV¿;Þ¾š{V‡¥†²æ'R2ô7¤øÈz +ªÅ½Ó)–˜ÆÌ2íkœ¬³ +#jèÝÇÐpL‚‚àÿrgƒ4“yÓ&£x=™`sž¦HY´JœyyÂô¿ñ°²Ii5îK¬Ê9§=´éjÌa×½>ŽÊk™GsJÌ6í¯“îñrÒÅ{ʲc§ÍVTb³ +\{ÈTÛ+\ËåÏxhS^$}*õ¹¡ +9ÿ^ìc*›ïsè +¶€Ü$‹>ߘÿ¯E$>ítB_ú‹··Sj”àBa¨ +G9È(œŸ 5û­õ +kd“¾%µ +qýVÝznß'_p'–2Á QŠ¸]ÆõK­‚J1©° BJ"Š‡[W»Íݽ«Ì½/çæ<¹ÜÝŸ¾úOé_¶F +endstream +endobj +931 0 obj +[611.1 611.1 611.1 611.1 611.1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 675.9 0 0 0 0 0 0 0 0 0 0 488 +481.5] +endobj +932 0 obj +<> +stream +xÚu’{LSwÇ··ô^´âP›¹©·w +ÅÊ +¯9·Q|†. ƸMihy(¥][¨È£uОŠñp"Ñ"D×pf2VæÐ_ƒÌç·¨ +$º%ºü.ù™l·ûÿ|’srò='ßTŠ(Š’gf¨7ä~§ÎÊN +։VÒ¸\ꝫ +–!a9%¬ +-¼*]ÂáA>Ydà• £DHM‹”¢X˾z•êíx•*Am0V˜Š +‹,|L~,¿&%%i%Ÿ R¥ðèu¦â|M)Ÿ¥±éô‹X”ð9†üb¥‚YWd±SW¯¶Z­ñ½9Þ`*\»’·[ŠølYg*×iù†R +¿E£×ñÁ›ãƒPôÆ2‹ÎÄg´:S)B­’!3 +P8Z„£%H2Ð6”‹B%ˆBRTˆ©7©a‰\r€Ž uBC˜€Ëûç$ýÔÄ, +›¥ +‹xJ1 +ØC +Äē¦ҍ +ظ{Š›WØä6*/ÃS¸ +×áΗߟz|ûè |×ÊN¼wl»+ +ÖC&DïÏ1¬U×ìV\>ÁíqSØóÉÜB +· +ô\Ff«e

“,D+È?ä46—$†$ëÇ»/Q8"€ˆÂ#دxš3ͽ;7W—±x–! µ!ZæVËÁÊ—Lž +6rZ¦Ùu£ñ +k +­¢2³ÑÃJœÎ`ÉÌÐÕë +š,Ž˜ÿ0L¨´÷ +Ê>j̏Oúi!VHT +‡¶Jîsp@•Íáp:«l:Ï—ULv~Ý.%ÄâyûnÛ. +ü½2X­~WùãÖ_Z +Mbþû Îª$ +˜ýPÛÁ5ËÕÕÙsré·yàÇøîÿ¨„¯­Þ².Íùüæ­­ï·on‡Q¶¯wè9w +Æ>kJwÕ¸tÛ-]âyeöAöádñw—pôy— +Ë8ÙG’ñ‡2gB^lt=»÷q3÷ô7n^ò?àüۙô‚½jxÐÅ +•w +êcØÐúE·ŒhÚß¼Àüþf¹> +stream +xÚ]PMkÃ0 +½ûWèØ1F>Êv2’X·Q·£;:¶’Û(Î!ÿ~µzØA=½'é)«Û}kM€ì“œ 7VNn& +Ðá`,+JÐF +µJYÒ³¬>Hÿ.G„ìm÷úu¼<Öñýüt>5Å +hìoŒÓâʵn÷b™Ž­í +pβãuàhÍN»"öAÉØ6çZ$DÌÞÿâˆ6@Ϊ*+n')§qòR!I; ãy^ošŠ¡Õÿz«¢ëՏ$Æ·‘YæÛ2qW4ª¢½»;5]÷¦$Gq¹±x“w>ªRüy|m& +endstream +endobj +934 0 obj +[441] +endobj +935 0 obj +<> +stream +xÚcd`aa`ddäõqô +ŠÐvö +Ž4 Ø.øç"úâçjÖ2 +?dÈ1ýgþ!Î"÷Ћå?“,ÃWAù‰D¾‘ê@‚ÑJˆ•‘‘·ª¾¯ (37ÕÀÀXÏÀÀÈ9¿ ²(3=£DA#YSÁÐÒÒ\GÁÈÀÀRÁ17µ(391OÁ7±$#57±ÈÉQÎOÎL-©TаÉ())°Ò×///×KÌ-ÖË/J·ÓÔQ(Ï,ÉPJ-N-*KMQpËÏ+QðKÌMUû@L:çç”–¤)ø槤åÆh$Ú˜Y +~tðýðÙ¸àGÉ|ÆßW2ÿó#U´§gʼîY +ë³åÊ%u7ä´ÕüÖûã*Ñ^ßÝÑÝÅQ½µ±GnJwÓ9øŠÿ´_Èö[y:» +ó4Õÿ<œ“x¸zx¸s +æ>¼‡ˆy¿? nsÙ +endstream +endobj +936 0 obj +<> +stream +xÚ]PÁj„0½ç+渥5Ò¥Š« t»¥ºÐ +c2º5 1 +üûš({è!ۗ77õ©VÒAôe5oÐA/•°8éÙr„©HBAHîö.T>2C¢âÌÌ'¢öR~ü´ÏŹù}{¹¶Urý¦hƒ@÷¾>5Ëäp¬U¯!Ë@ô½NÎ.pxºÃ'Ï]¬@+ՇkѦ™¹ãˆÊALò<Ø%[$®N†q´L +H²8Î!«ªœ ÿþÒm¢ëùÙ]IiBó— +¿–ǧSÎg´ñSáýìÅqð +endstream +endobj +937 0 obj +[826.4 0 0 0 0 0 0 0 0 0 0 0 0 0 531.3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 288.2] +endobj +938 0 obj +<> +stream +xÚ +ÍkAÅgºënL¶±~„ +ÚÍ\Ɩì&"ñIô ƀíAÛth‚Ù7—RDQ!©c« +T +5´©  â©{ðêQ0ˆ÷BJþ„ÙeKkÒÃûÁûÞƒ€ç„pxºpëîƒé‰l~êá偸¦ïÎòmãˆ7<zñ!qÞ(/ïÜᤡ1`èø€ðXŸÀðü@ü<##£¯×L +3µJË.ëXU/$U55­y»> +stream +xÚ]PÁjÃ0 +½û+tìÃI +=™@I +]·±´ƒ + +[É +‹m琿_í† +v@OïIzâUsh¬ À?É©ôÆjÂÉͤ: +ŒeyÚ¨°V)«QzÆ«“ôïrDàßû×ãñí¹:µ×ÝËå\ç;ÐØßçÅ#kÝ +Úe +86¶w à_·S 6{í:|ŠØi$cØ\ª6!íìý/Žhd¬,Ó¸ü~’r'/’´2‘e%ˆº.Zý¯·*º^ýHbb™E¶-wE£*Ú{¸S3ÑmoúAr—‹7yç£*Åf,m +endstream +endobj +940 0 obj +[365.7] +endobj +941 0 obj +<> +stream +xÚcd`aa`ddä +sôðööÑvö +Ž4 ضÿóa5ü¹Œõ‡ +ÃYÆrL?䙈³È=ôbùÏÃ$ËÀÀðUD~â‘ï@¤:`´b`eddã­ªï+(ÊÌM500Ö300rÎ/¨,ÊLÏ(QÐHÖT0´´4×Q020°TpÌM-ÊLNÌSðM,ÉHÍM,rr‚ó“3SK*4l2JJ +¬ôõËËËõs‹õò‹Òí4uÊ3K2‚R‹S‹ÊRSÜòóJüsSÀ>ГÎù¹¥%©E +¾ù)©Ey@§1‰v&FF‡ +|?7-øQ<ŸñÄ÷YÌßÏýȝ4«wZ÷DŽUùK³ä’»ë3Úk+üqèlíhînç¨ÚÜÜ#7¥»Jÿd¾âÅ?헰ýVœÎ.ÇÅ> +stream +xÚ +’mL[eÇ掠p@XÉ ÄY +™XØ`ŽÍ\7kh×^Êk[ +-m9p±Ò6h­Nºæ"›[Œ‰Ë¦qQ§13.ó%û SŸË®Q/|ù%ç$çäüNþ$!—$I>²kOEy;<^¿ûùµF±MäüºÚûI)Ð)#ž”S·_‘ÿ§LÉ$RõèÉ +‰ûk|F‚ìÖFBA’Šô.Ϙ¡Éb44°MœA«}®@«Ý¦3[:¬¦ÃFŽÉ­ßÂ<[TT˜ÏlÓj‹˜Í¬ÕTohaôÎÈ68©hbjÌõ&–ë`r‹ +gÙ±uk[[[¡ÙV`¶ +.ݒϴ™8#SÍÚX«m`v™[8¦ÒÐÌ2ëëԙ›-­ +keôæÖÚ"]¬H'TÄ¢„0œTúH?±È v¯©)Iȉ)2‡,#Ý)º”Á¯Z-u':A.~‡?»)ŽbFýóïIüŒ¡cÞá^Ê >¯Ý¼¹ªÄ(³t—‰Šùr@b–H‹™bVîõÑ7à«Ùo¯Æ‹¯ôŸôIòÃɐ +ütü~O—Áèt«Ð‹ê²ŠBë^@µu§oÑpvâåkï_þxæ<\‚÷•Ñò¾F÷"•ÐèJ¬æ.‹7~Iþùµ +Ï +åj1¯¾TÔÀf$ʨü§ÝÁ9øi +~«»h:×xîåïa Åcñ$•„¸ãT×L÷‰¾ Ù‰™ã4̸øãÕ¡t¨Ì¾†ÚDõ|š°¨Ïî™>zTR'>µ½^ò.Æ¯âœ¤Â+€eä],“á·/©Ï˜ã–wlGZL‰ÖSs3'ߥTBBäcj¦È«‚V&°«Ô£ + +ÝA'%»|nQü·Xãu@üÈt‡©  +%Caýù˜]"ñýë#_ÊðÒj¾zpˆà ñ +sQ>hòsŸ¦5à +€äˆ@h¼½ø!Ðß!fÿó¹Æ× +^@Ǥ´9 + +ó£cs#SÓ?iøhpF¯ÀP|îÌ +åÅk€æcö7iØgí¯;¥I'ª^6pïÞC¹ àñ»mER´uõ§i˜ +‹g£ +‹8.£›µó:ªöÛÞÚ/<&d$ñKSäÒùG„lõ=Åd&#N褵Šyœ= + +Üë +vR&ðXzêšD•&OÑî„vGŽÓwU¢Çkí5‚cSÕÓÅ¿?ÅY¡ñÞ!/Õ# +ÏÓÝöÆÁ²J@vW$IÃ$?·‘Ê +tÁñql‰)ÄCÁT*M^8¥|ø¨2mP™>—öMzbX©Ä·ÿåGº +endstream +endobj +4 0 obj +<> +endobj +944 0 obj +<> +endobj +5 0 obj +<> +endobj +945 0 obj +<> +endobj +6 0 obj +<> +endobj +946 0 obj +<> +endobj +7 0 obj +<> +endobj +947 0 obj +<> +endobj +8 0 obj +<> +endobj +948 0 obj +<> +endobj +13 0 obj +<> +endobj +949 0 obj +<> +endobj +17 0 obj +<> +endobj +950 0 obj +<> +endobj +18 0 obj +<> +endobj +951 0 obj +<> +endobj +84 0 obj +<> +endobj +952 0 obj +<> +endobj +89 0 obj +<> +endobj +953 0 obj +<> +endobj +94 0 obj +<> +endobj +954 0 obj +<> +endobj +95 0 obj +<> +endobj +955 0 obj +<> +endobj +96 0 obj +<> +endobj +956 0 obj +<> +endobj +108 0 obj +<> +endobj +957 0 obj +<> +endobj +112 0 obj +<> +endobj +958 0 obj +<> +endobj +113 0 obj +<> +endobj +959 0 obj +<> +endobj +134 0 obj +<> +endobj +960 0 obj +<> +endobj +139 0 obj +<> +endobj +961 0 obj +<> +endobj +150 0 obj +<> +endobj +962 0 obj +<> +endobj +xref +0 963 +0000000000 65535 f +0000224188 00000 n +0000224091 00000 n +0000213195 00000 n +0000299458 00000 n +0000299775 00000 n +0000300092 00000 n +0000300400 00000 n +0000300726 00000 n +0000000015 00000 n +0000000160 00000 n +0000000707 00000 n +0000213289 00000 n +0000301035 00000 n +0000000822 00000 n +0000001742 00000 n +0000213675 00000 n +0000301365 00000 n +0000301682 00000 n +0000001840 00000 n +0000001967 00000 n +0000002102 00000 n +0000002238 00000 n +0000002365 00000 n +0000002501 00000 n +0000002636 00000 n +0000002772 00000 n +0000002899 00000 n +0000003026 00000 n +0000003162 00000 n +0000003298 00000 n +0000003433 00000 n +0000003569 00000 n +0000003705 00000 n +0000003841 00000 n +0000003977 00000 n +0000004109 00000 n +0000004245 00000 n +0000004372 00000 n +0000004507 00000 n +0000004643 00000 n +0000004778 00000 n +0000004904 00000 n +0000005030 00000 n +0000005161 00000 n +0000005293 00000 n +0000005425 00000 n +0000005555 00000 n +0000005687 00000 n +0000005819 00000 n +0000005950 00000 n +0000006082 00000 n +0000006215 00000 n +0000006348 00000 n +0000006480 00000 n +0000006613 00000 n +0000006746 00000 n +0000006879 00000 n +0000007011 00000 n +0000007142 00000 n +0000007273 00000 n +0000008889 00000 n +0000213915 00000 n +0000008998 00000 n +0000009130 00000 n +0000009263 00000 n +0000009396 00000 n +0000009529 00000 n +0000009662 00000 n +0000009795 00000 n +0000009928 00000 n +0000010061 00000 n +0000010194 00000 n +0000010327 00000 n +0000010459 00000 n +0000010591 00000 n +0000010722 00000 n +0000010855 00000 n +0000010988 00000 n +0000011115 00000 n +0000011241 00000 n +0000011370 00000 n +0000012023 00000 n +0000214064 00000 n +0000302000 00000 n +0000012123 00000 n +0000012254 00000 n +0000012385 00000 n +0000012517 00000 n +0000302336 00000 n +0000012648 00000 n +0000012779 00000 n +0000015550 00000 n +0000214325 00000 n +0000302672 00000 n +0000302980 00000 n +0000303314 00000 n +0000015689 00000 n +0000017754 00000 n +0000214432 00000 n +0000017896 00000 n +0000018028 00000 n +0000019910 00000 n +0000214556 00000 n +0000020031 00000 n +0000020163 00000 n +0000023028 00000 n +0000214697 00000 n +0000303630 00000 n +0000023169 00000 n +0000023304 00000 n +0000023439 00000 n +0000303939 00000 n +0000304248 00000 n +0000023573 00000 n +0000027124 00000 n +0000214795 00000 n +0000027325 00000 n +0000028175 00000 n +0000215048 00000 n +0000028276 00000 n +0000030432 00000 n +0000215131 00000 n +0000030530 00000 n +0000031761 00000 n +0000215249 00000 n +0000031860 00000 n +0000031992 00000 n +0000032125 00000 n +0000034865 00000 n +0000215347 00000 n +0000035005 00000 n +0000038340 00000 n +0000215430 00000 n +0000304576 00000 n +0000038470 00000 n +0000041501 00000 n +0000215712 00000 n +0000041654 00000 n +0000304904 00000 n +0000041789 00000 n +0000044929 00000 n +0000215837 00000 n +0000045095 00000 n +0000045227 00000 n +0000047823 00000 n +0000215935 00000 n +0000047952 00000 n +0000050036 00000 n +0000216018 00000 n +0000305232 00000 n +0000050178 00000 n +0000052075 00000 n +0000216101 00000 n +0000052256 00000 n +0000052871 00000 n +0000216451 00000 n +0000052995 00000 n +0000054031 00000 n +0000216534 00000 n +0000054120 00000 n +0000055010 00000 n +0000216617 00000 n +0000055109 00000 n +0000056054 00000 n +0000216700 00000 n +0000056143 00000 n +0000057185 00000 n +0000216783 00000 n +0000057284 00000 n +0000060062 00000 n +0000217038 00000 n +0000060221 00000 n +0000063392 00000 n +0000217121 00000 n +0000063549 00000 n +0000064310 00000 n +0000217231 00000 n +0000064448 00000 n +0000064583 00000 n +0000066731 00000 n +0000217329 00000 n +0000066896 00000 n +0000068370 00000 n +0000217412 00000 n +0000068546 00000 n +0000070528 00000 n +0000217667 00000 n +0000070690 00000 n +0000072669 00000 n +0000217750 00000 n +0000072821 00000 n +0000075026 00000 n +0000217833 00000 n +0000075199 00000 n +0000077236 00000 n +0000217916 00000 n +0000077388 00000 n +0000079517 00000 n +0000217999 00000 n +0000079690 00000 n +0000081483 00000 n +0000218254 00000 n +0000081629 00000 n +0000083793 00000 n +0000218337 00000 n +0000083955 00000 n +0000086786 00000 n +0000218420 00000 n +0000086967 00000 n +0000089251 00000 n +0000218503 00000 n +0000089413 00000 n +0000089956 00000 n +0000218586 00000 n +0000090056 00000 n +0000092352 00000 n +0000218936 00000 n +0000092514 00000 n +0000093698 00000 n +0000219019 00000 n +0000093839 00000 n +0000095708 00000 n +0000219102 00000 n +0000095871 00000 n +0000098508 00000 n +0000219185 00000 n +0000098684 00000 n +0000100715 00000 n +0000219268 00000 n +0000100877 00000 n +0000103750 00000 n +0000219523 00000 n +0000103931 00000 n +0000106351 00000 n +0000219606 00000 n +0000106536 00000 n +0000108076 00000 n +0000219689 00000 n +0000108228 00000 n +0000110377 00000 n +0000219772 00000 n +0000110539 00000 n +0000111898 00000 n +0000219855 00000 n +0000112021 00000 n +0000113265 00000 n +0000220110 00000 n +0000113427 00000 n +0000115046 00000 n +0000220193 00000 n +0000115221 00000 n +0000118353 00000 n +0000220276 00000 n +0000118544 00000 n +0000120569 00000 n +0000220359 00000 n +0000120716 00000 n +0000122997 00000 n +0000220442 00000 n +0000123182 00000 n +0000124504 00000 n +0000220697 00000 n +0000124656 00000 n +0000127106 00000 n +0000220780 00000 n +0000127280 00000 n +0000128042 00000 n +0000220863 00000 n +0000128142 00000 n +0000129677 00000 n +0000220946 00000 n +0000129862 00000 n +0000133080 00000 n +0000221029 00000 n +0000133261 00000 n +0000134960 00000 n +0000221379 00000 n +0000135117 00000 n +0000138014 00000 n +0000221462 00000 n +0000138202 00000 n +0000138735 00000 n +0000221545 00000 n +0000138845 00000 n +0000140967 00000 n +0000221628 00000 n +0000141142 00000 n +0000144521 00000 n +0000221711 00000 n +0000144712 00000 n +0000145956 00000 n +0000221966 00000 n +0000146092 00000 n +0000148188 00000 n +0000222049 00000 n +0000148373 00000 n +0000151702 00000 n +0000222132 00000 n +0000151883 00000 n +0000153178 00000 n +0000222215 00000 n +0000153324 00000 n +0000156358 00000 n +0000222298 00000 n +0000156546 00000 n +0000158636 00000 n +0000222553 00000 n +0000158799 00000 n +0000161580 00000 n +0000222636 00000 n +0000161733 00000 n +0000162861 00000 n +0000222719 00000 n +0000163013 00000 n +0000164437 00000 n +0000222802 00000 n +0000164578 00000 n +0000166592 00000 n +0000222885 00000 n +0000166755 00000 n +0000168742 00000 n +0000223140 00000 n +0000168918 00000 n +0000171621 00000 n +0000223223 00000 n +0000171777 00000 n +0000172965 00000 n +0000223306 00000 n +0000173079 00000 n +0000173862 00000 n +0000223467 00000 n +0000173961 00000 n +0000175479 00000 n +0000223550 00000 n +0000175590 00000 n +0000176858 00000 n +0000223633 00000 n +0000176966 00000 n +0000177815 00000 n +0000194400 00000 n +0000193197 00000 n +0000193246 00000 n +0000193293 00000 n +0000193341 00000 n +0000177904 00000 n +0000189757 00000 n +0000199577 00000 n +0000191818 00000 n +0000191864 00000 n +0000191910 00000 n +0000191956 00000 n +0000178065 00000 n +0000192002 00000 n +0000192048 00000 n +0000192094 00000 n +0000192140 00000 n +0000192186 00000 n +0000178221 00000 n +0000192232 00000 n +0000199623 00000 n +0000192692 00000 n +0000192784 00000 n +0000192830 00000 n +0000192876 00000 n +0000178365 00000 n +0000178525 00000 n +0000192922 00000 n +0000192968 00000 n +0000193014 00000 n +0000193059 00000 n +0000193105 00000 n +0000178615 00000 n +0000193151 00000 n +0000199669 00000 n +0000194032 00000 n +0000194170 00000 n +0000194262 00000 n +0000194354 00000 n +0000178759 00000 n +0000194490 00000 n +0000194581 00000 n +0000194673 00000 n +0000194765 00000 n +0000194856 00000 n +0000194902 00000 n +0000178919 00000 n +0000199715 00000 n +0000195771 00000 n +0000195863 00000 n +0000195955 00000 n +0000196047 00000 n +0000196139 00000 n +0000179080 00000 n +0000179239 00000 n +0000196231 00000 n +0000196323 00000 n +0000196415 00000 n +0000196504 00000 n +0000196550 00000 n +0000179328 00000 n +0000199760 00000 n +0000197787 00000 n +0000197878 00000 n +0000197970 00000 n +0000198062 00000 n +0000198154 00000 n +0000179472 00000 n +0000198246 00000 n +0000198338 00000 n +0000198429 00000 n +0000198521 00000 n +0000198567 00000 n +0000179631 00000 n +0000199806 00000 n +0000198705 00000 n +0000198797 00000 n +0000198889 00000 n +0000198981 00000 n +0000199073 00000 n +0000179775 00000 n +0000179934 00000 n +0000199165 00000 n +0000199257 00000 n +0000199349 00000 n +0000199441 00000 n +0000199531 00000 n +0000180023 00000 n +0000199851 00000 n +0000200127 00000 n +0000200219 00000 n +0000200311 00000 n +0000200403 00000 n +0000200494 00000 n +0000180167 00000 n +0000200586 00000 n +0000200678 00000 n +0000200770 00000 n +0000200862 00000 n +0000200908 00000 n +0000199897 00000 n +0000180326 00000 n +0000201689 00000 n +0000201871 00000 n +0000202055 00000 n +0000202193 00000 n +0000202377 00000 n +0000202560 00000 n +0000180485 00000 n +0000180646 00000 n +0000180735 00000 n +0000202698 00000 n +0000202836 00000 n +0000202928 00000 n +0000203066 00000 n +0000199943 00000 n +0000180825 00000 n +0000203663 00000 n +0000203755 00000 n +0000203847 00000 n +0000203936 00000 n +0000204028 00000 n +0000204119 00000 n +0000180967 00000 n +0000204211 00000 n +0000204303 00000 n +0000204349 00000 n +0000204395 00000 n +0000199989 00000 n +0000181128 00000 n +0000204900 00000 n +0000204946 00000 n +0000204991 00000 n +0000205037 00000 n +0000205083 00000 n +0000205129 00000 n +0000181270 00000 n +0000181431 00000 n +0000205174 00000 n +0000205220 00000 n +0000205266 00000 n +0000205311 00000 n +0000189803 00000 n +0000181520 00000 n +0000200954 00000 n +0000194947 00000 n +0000194993 00000 n +0000195039 00000 n +0000195085 00000 n +0000195131 00000 n +0000181660 00000 n +0000195174 00000 n +0000195220 00000 n +0000195312 00000 n +0000195403 00000 n +0000195495 00000 n +0000201000 00000 n +0000181819 00000 n +0000196871 00000 n +0000196963 00000 n +0000197100 00000 n +0000197237 00000 n +0000197328 00000 n +0000197419 00000 n +0000181978 00000 n +0000182139 00000 n +0000201046 00000 n +0000201092 00000 n +0000201138 00000 n +0000201184 00000 n +0000201229 00000 n +0000182228 00000 n +0000201275 00000 n +0000201321 00000 n +0000201367 00000 n +0000189898 00000 n +0000203158 00000 n +0000203204 00000 n +0000182365 00000 n +0000203250 00000 n +0000203296 00000 n +0000203342 00000 n +0000203388 00000 n +0000203434 00000 n +0000203480 00000 n +0000182517 00000 n +0000203526 00000 n +0000203571 00000 n +0000189944 00000 n +0000204440 00000 n +0000204486 00000 n +0000204532 00000 n +0000182670 00000 n +0000182822 00000 n +0000204578 00000 n +0000204624 00000 n +0000204670 00000 n +0000204716 00000 n +0000204762 00000 n +0000182909 00000 n +0000204808 00000 n +0000204854 00000 n +0000189990 00000 n +0000205357 00000 n +0000205402 00000 n +0000205494 00000 n +0000183046 00000 n +0000205586 00000 n +0000205676 00000 n +0000205722 00000 n +0000205768 00000 n +0000205813 00000 n +0000205859 00000 n +0000183198 00000 n +0000205905 00000 n +0000190036 00000 n +0000205951 00000 n +0000205997 00000 n +0000206043 00000 n +0000206088 00000 n +0000183351 00000 n +0000183503 00000 n +0000183590 00000 n +0000206134 00000 n +0000206180 00000 n +0000206226 00000 n +0000206272 00000 n +0000206318 00000 n +0000183678 00000 n +0000189711 00000 n +0000190127 00000 n +0000190082 00000 n +0000190172 00000 n +0000190264 00000 n +0000190356 00000 n +0000183815 00000 n +0000190402 00000 n +0000190448 00000 n +0000190494 00000 n +0000190540 00000 n +0000190586 00000 n +0000183967 00000 n +0000190632 00000 n +0000190218 00000 n +0000190678 00000 n +0000190724 00000 n +0000190769 00000 n +0000190813 00000 n +0000184104 00000 n +0000184256 00000 n +0000190859 00000 n +0000190905 00000 n +0000190950 00000 n +0000190996 00000 n +0000191042 00000 n +0000184343 00000 n +0000191087 00000 n +0000190310 00000 n +0000191133 00000 n +0000191179 00000 n +0000191225 00000 n +0000191271 00000 n +0000184480 00000 n +0000191317 00000 n +0000191363 00000 n +0000191409 00000 n +0000191455 00000 n +0000191501 00000 n +0000191547 00000 n +0000184632 00000 n +0000189849 00000 n +0000197009 00000 n +0000193894 00000 n +0000193986 00000 n +0000194124 00000 n +0000194216 00000 n +0000184785 00000 n +0000184939 00000 n +0000194308 00000 n +0000194444 00000 n +0000194535 00000 n +0000194627 00000 n +0000194719 00000 n +0000185026 00000 n +0000194810 00000 n +0000197146 00000 n +0000195679 00000 n +0000195725 00000 n +0000195817 00000 n +0000195909 00000 n +0000185163 00000 n +0000196001 00000 n +0000196093 00000 n +0000196185 00000 n +0000196277 00000 n +0000196369 00000 n +0000196458 00000 n +0000185315 00000 n +0000197283 00000 n +0000197695 00000 n +0000197741 00000 n +0000197832 00000 n +0000197924 00000 n +0000198016 00000 n +0000185468 00000 n +0000185619 00000 n +0000198108 00000 n +0000198200 00000 n +0000198292 00000 n +0000198383 00000 n +0000198475 00000 n +0000185706 00000 n +0000197373 00000 n +0000198613 00000 n +0000198659 00000 n +0000198751 00000 n +0000198843 00000 n +0000198935 00000 n +0000185843 00000 n +0000199027 00000 n +0000199119 00000 n +0000199211 00000 n +0000199303 00000 n +0000199395 00000 n +0000197465 00000 n +0000185994 00000 n +0000200035 00000 n +0000200081 00000 n +0000200173 00000 n +0000200265 00000 n +0000200357 00000 n +0000200448 00000 n +0000186145 00000 n +0000186298 00000 n +0000186385 00000 n +0000200540 00000 n +0000200632 00000 n +0000200724 00000 n +0000200816 00000 n +0000197511 00000 n +0000186472 00000 n +0000201551 00000 n +0000201643 00000 n +0000201825 00000 n +0000202009 00000 n +0000202239 00000 n +0000202422 00000 n +0000186607 00000 n +0000202606 00000 n +0000202744 00000 n +0000202882 00000 n +0000202974 00000 n +0000197557 00000 n +0000186760 00000 n +0000203617 00000 n +0000203709 00000 n +0000203801 00000 n +0000203890 00000 n +0000203982 00000 n +0000204073 00000 n +0000186895 00000 n +0000187048 00000 n +0000204165 00000 n +0000204257 00000 n +0000197603 00000 n +0000197649 00000 n +0000199487 00000 n +0000187135 00000 n +0000191593 00000 n +0000191683 00000 n +0000191638 00000 n +0000196596 00000 n +0000192278 00000 n +0000192324 00000 n +0000187268 00000 n +0000192370 00000 n +0000192416 00000 n +0000192462 00000 n +0000192508 00000 n +0000192554 00000 n +0000192600 00000 n +0000187437 00000 n +0000192646 00000 n +0000192738 00000 n +0000196641 00000 n +0000193388 00000 n +0000193434 00000 n +0000193480 00000 n +0000187622 00000 n +0000187806 00000 n +0000193526 00000 n +0000193572 00000 n +0000193664 00000 n +0000193756 00000 n +0000193848 00000 n +0000187897 00000 n +0000193940 00000 n +0000194078 00000 n +0000196687 00000 n +0000195266 00000 n +0000195357 00000 n +0000195449 00000 n +0000188062 00000 n +0000195541 00000 n +0000195587 00000 n +0000195633 00000 n +0000196733 00000 n +0000196779 00000 n +0000196825 00000 n +0000188246 00000 n +0000196917 00000 n +0000197054 00000 n +0000197191 00000 n +0000201735 00000 n +0000201917 00000 n +0000202101 00000 n +0000188427 00000 n +0000188600 00000 n +0000202285 00000 n +0000202514 00000 n +0000202652 00000 n +0000202790 00000 n +0000203020 00000 n +0000188693 00000 n +0000203112 00000 n +0000191728 00000 n +0000191773 00000 n +0000193618 00000 n +0000193710 00000 n +0000193802 00000 n +0000188844 00000 n +0000201413 00000 n +0000201459 00000 n +0000201505 00000 n +0000201597 00000 n +0000201780 00000 n +0000201963 00000 n +0000189043 00000 n +0000202147 00000 n +0000202331 00000 n +0000202468 00000 n +0000205448 00000 n +0000205540 00000 n +0000205631 00000 n +0000189252 00000 n +0000189461 00000 n +0000189557 00000 n +0000189651 00000 n +0000206364 00000 n +0000213112 00000 n +0000206601 00000 n +0000206400 00000 n +0000206501 00000 n +0000207072 00000 n +0000206734 00000 n +0000206842 00000 n +0000206963 00000 n +0000207237 00000 n +0000208434 00000 n +0000207351 00000 n +0000207451 00000 n +0000207578 00000 n +0000207696 00000 n +0000207808 00000 n +0000207937 00000 n +0000208072 00000 n +0000208205 00000 n +0000208329 00000 n +0000208977 00000 n +0000208590 00000 n +0000208718 00000 n +0000208853 00000 n +0000209143 00000 n +0000212637 00000 n +0000209247 00000 n +0000209337 00000 n +0000209442 00000 n +0000209549 00000 n +0000209654 00000 n +0000209761 00000 n +0000209866 00000 n +0000209973 00000 n +0000210078 00000 n +0000210186 00000 n +0000210292 00000 n +0000210400 00000 n +0000210506 00000 n +0000210614 00000 n +0000210722 00000 n +0000210829 00000 n +0000210937 00000 n +0000211045 00000 n +0000211153 00000 n +0000211261 00000 n +0000211368 00000 n +0000211476 00000 n +0000211584 00000 n +0000211691 00000 n +0000211799 00000 n +0000211907 00000 n +0000212014 00000 n +0000212118 00000 n +0000212223 00000 n +0000212330 00000 n +0000212436 00000 n +0000212543 00000 n +0000212801 00000 n +0000212911 00000 n +0000213018 00000 n +0000223983 00000 n +0000216356 00000 n +0000214235 00000 n +0000213170 00000 n +0000213369 00000 n +0000214159 00000 n +0000213770 00000 n +0000214010 00000 n +0000214956 00000 n +0000214405 00000 n +0000214529 00000 n +0000214878 00000 n +0000214654 00000 n +0000215591 00000 n +0000215214 00000 n +0000215513 00000 n +0000216262 00000 n +0000215685 00000 n +0000215810 00000 n +0000216184 00000 n +0000218841 00000 n +0000216944 00000 n +0000216866 00000 n +0000217573 00000 n +0000217204 00000 n +0000217495 00000 n +0000218160 00000 n +0000218082 00000 n +0000218747 00000 n +0000218669 00000 n +0000221284 00000 n +0000219429 00000 n +0000219351 00000 n +0000220016 00000 n +0000219938 00000 n +0000220603 00000 n +0000220525 00000 n +0000221190 00000 n +0000221112 00000 n +0000223888 00000 n +0000221872 00000 n +0000221794 00000 n +0000222459 00000 n +0000222381 00000 n +0000223046 00000 n +0000222968 00000 n +0000223794 00000 n +0000223389 00000 n +0000223716 00000 n +0000224386 00000 n +0000224812 00000 n +0000230107 00000 n +0000230430 00000 n +0000234954 00000 n +0000235139 00000 n +0000236865 00000 n +0000237286 00000 n +0000237856 00000 n +0000246469 00000 n +0000246872 00000 n +0000253722 00000 n +0000254070 00000 n +0000254334 00000 n +0000255312 00000 n +0000255626 00000 n +0000261479 00000 n +0000261906 00000 n +0000267557 00000 n +0000267955 00000 n +0000268384 00000 n +0000274755 00000 n +0000275196 00000 n +0000275559 00000 n +0000280038 00000 n +0000280433 00000 n +0000284943 00000 n +0000285310 00000 n +0000285603 00000 n +0000287608 00000 n +0000287949 00000 n +0000291232 00000 n +0000291493 00000 n +0000294183 00000 n +0000294370 00000 n +0000295580 00000 n +0000295884 00000 n +0000295907 00000 n +0000296338 00000 n +0000296654 00000 n +0000296783 00000 n +0000297351 00000 n +0000297654 00000 n +0000297679 00000 n +0000298109 00000 n +0000298364 00000 n +0000299589 00000 n +0000299906 00000 n +0000300222 00000 n +0000300547 00000 n +0000300857 00000 n +0000301184 00000 n +0000301497 00000 n +0000301814 00000 n +0000302150 00000 n +0000302486 00000 n +0000302802 00000 n +0000303129 00000 n +0000303445 00000 n +0000303761 00000 n +0000304070 00000 n +0000304397 00000 n +0000304724 00000 n +0000305053 00000 n +0000305364 00000 n +trailer +<]/Size +963>> +startxref +305549 +%%EOF Index: /trunk/FACT++/sofa/doc/sofa_lib.lis =================================================================== --- /trunk/FACT++/sofa/doc/sofa_lib.lis (revision 18346) +++ /trunk/FACT++/sofa/doc/sofa_lib.lis (revision 18346) @@ -0,0 +1,663 @@ +sofa_lib.lis 2015 January 30 + + ---------------------- + SOFA Astronomy Library + ---------------------- + + +PREFACE + +The routines described here comprise the SOFA astronomy library. Their +general appearance and coding style conforms to conventions agreed by +the SOFA Board, and their functions, names and algorithms have been +ratified by the Board. Procedures for soliciting and agreeing additions +to the library are still evolving. + + +PROGRAMMING LANGUAGES + +The SOFA routines are available in two programming languages at present: +Fortran 77 and ANSI C. + +Except for a single obsolete Fortran routine, which has no C equivalent, +there is a one-to-one relationship between the two language versions. +The naming convention is such that a SOFA routine referred to +generically as "EXAMPL" exists as a Fortran subprogram iau_EXAMPL and a +C function iauExampl. The calls for the two versions are very similar, +with the same arguments in the same order. In a few cases, the C +equivalent of a Fortran SUBROUTINE subprogram uses a return value rather +than an argument. + + +GENERAL PRINCIPLES + +The principal function of the SOFA Astronomy Library is to provide +definitive algorithms. A secondary function is to provide software +suitable for convenient direct use by writers of astronomical +applications. + +The astronomy routines call on the SOFA vector/matrix library routines, +which are separately listed. + +The routines are designed to exploit the full floating-point accuracy +of the machines on which they run, and not to rely on compiler +optimizations. Within these constraints, the intention is that the code +corresponds to the published formulation (if any). + +Dates are always Julian Dates (except in calendar conversion routines) +and are expressed as two double precision numbers which sum to the +required value. + +A distinction is made between routines that implement IAU-approved +models and those that use those models to create other results. The +former are referred to as "canonical models" in the preamble comments; +the latter are described as "support routines". + +Using the library requires knowledge of positional astronomy and +time-scales. These topics are covered in "Explanatory Supplement to the +Astronomical Almanac", 3rd Edition, Sean E. Urban & +P. Kenneth Seidelmann (eds.), University Science Books, 2013. Recent +developments are documented in the scientific journals, and references +to the relevant papers are given in the SOFA code as required. The IERS +Conventions are also an essential reference. The routines concerned +with Earth attitude (precession-nutation etc.) are described in the SOFA +document sofa_pn.pdf. Those concerned with transformations between +different time scales are described in sofa_ts_f.pdf (Fortran) and +sofa_ts_c.pdf (C). Those concerned with astrometric transformations +are described in sofa_ast_f.pdf (Fortran) and sofa_ast_c (C). + + +ROUTINES + + Calendars + + CAL2JD Gregorian calendar to Julian Day number + EPB Julian Date to Besselian Epoch + EPB2JD Besselian Epoch to Julian Date + EPJ Julian Date to Julian Epoch + EPJ2JD Julian Epoch to Julian Date + JD2CAL Julian Date to Gregorian year, month, day, fraction + JDCALF Julian Date to Gregorian date for formatted output + + Astrometry + + AB apply stellar aberration + APCG prepare for ICRS <-> GCRS, geocentric, special + APCG13 prepare for ICRS <-> GCRS, geocentric + APCI prepare for ICRS <-> CIRS, terrestrial, special + APCI13 prepare for ICRS <-> CIRS, terrestrial + APCO prepare for ICRS <-> observed, terrestrial, special + APCO13 prepare for ICRS <-> observed, terrestrial + APCS prepare for ICRS <-> CIRS, space, special + APCS13 prepare for ICRS <-> CIRS, space + APER insert ERA into context + APER13 update context for Earth rotation + APIO prepare for CIRS <-> observed, terrestrial, special + APIO13 prepare for CIRS <-> observed, terrestrial + ATCI13 catalog -> CIRS + ATCIQ quick ICRS -> CIRS + ATCIQN quick ICRS -> CIRS, multiple deflections + ATCIQZ quick astrometric ICRS -> CIRS + ATCO13 ICRS -> observed + ATIC13 CIRS -> ICRS + ATICQ quick CIRS -> ICRS + ATCIQN quick CIRS -> ICRS, multiple deflections + ATIO13 CIRS -> observed + ATIOQ quick CIRS -> observed + ATOC13 observed -> astrometric ICRS + ATOI13 observed -> CIRS + ATOIQ quick observed -> CIRS + LD light deflection by a single solar-system body + LDN light deflection by multiple solar-system bodies + LDSUN light deflection by the Sun + PMPX apply proper motion and parallax + PMSAFE apply proper motion, with zero-parallax precautions + PVTOB observatory position and velocity + PVSTAR space motion pv-vector to star catalog data + REFCO refraction constants + STARPM apply proper motion + STARPV star catalog data to space motion pv-vector + + Time scales + + D2DTF format 2-part JD for output + DAT Delta(AT) (=TAI-UTC) for a given UTC date + DTDB TDB-TT + DTF2D encode time and date fields into 2-part JD + TAITT TAI to TT + TAIUT1 TAI to UT1 + TAIUTC TAI to UTC + TCBTDB TCB to TDB + TCGTT TCG to TT + TDBTCB TDB to TCB + TDBTT TDB to TT + TTTAI TT to TAI + TTTCG TT to TCG + TTTDB TT to TDB + TTUT1 TT to UT1 + UT1TAI UT1 to TAI + UT1TT UT1 to TT + UT1UTC UT1 to UTC + UTCTAI UTC to TAI + UTCUT1 UTC to UT1 + + Earth rotation angle and sidereal time + + EE00 equation of the equinoxes, IAU 2000 + EE00A equation of the equinoxes, IAU 2000A + EE00B equation of the equinoxes, IAU 2000B + EE06A equation of the equinoxes, IAU 2006/2000A + EECT00 equation of the equinoxes complementary terms, IAU 2000 + EQEQ94 equation of the equinoxes, IAU 1994 + ERA00 Earth rotation angle, IAU 2000 + GMST00 Greenwich mean sidereal time, IAU 2000 + GMST06 Greenwich mean sidereal time, IAU 2006 + GMST82 Greenwich mean sidereal time, IAU 1982 + GST00A Greenwich apparent sidereal time, IAU 2000A + GST00B Greenwich apparent sidereal time, IAU 2000B + GST06 Greenwich apparent ST, IAU 2006, given NPB matrix + GST06A Greenwich apparent sidereal time, IAU 2006/2000A + GST94 Greenwich apparent sidereal time, IAU 1994 + + Ephemerides (limited precision) + + EPV00 Earth position and velocity + PLAN94 major-planet position and velocity + + Precession, nutation, polar motion + + BI00 frame bias components, IAU 2000 + BP00 frame bias and precession matrices, IAU 2000 + BP06 frame bias and precession matrices, IAU 2006 + BPN2XY extract CIP X,Y coordinates from NPB matrix + C2I00A celestial-to-intermediate matrix, IAU 2000A + C2I00B celestial-to-intermediate matrix, IAU 2000B + C2I06A celestial-to-intermediate matrix, IAU 2006/2000A + C2IBPN celestial-to-intermediate matrix, given NPB matrix, IAU 2000 + C2IXY celestial-to-intermediate matrix, given X,Y, IAU 2000 + C2IXYS celestial-to-intermediate matrix, given X,Y and s + C2T00A celestial-to-terrestrial matrix, IAU 2000A + C2T00B celestial-to-terrestrial matrix, IAU 2000B + C2T06A celestial-to-terrestrial matrix, IAU 2006/2000A + C2TCIO form CIO-based celestial-to-terrestrial matrix + C2TEQX form equinox-based celestial-to-terrestrial matrix + C2TPE celestial-to-terrestrial matrix given nutation, IAU 2000 + C2TXY celestial-to-terrestrial matrix given CIP, IAU 2000 + EO06A equation of the origins, IAU 2006/2000A + EORS equation of the origins, given NPB matrix and s + FW2M Fukushima-Williams angles to r-matrix + FW2XY Fukushima-Williams angles to X,Y + NUM00A nutation matrix, IAU 2000A + NUM00B nutation matrix, IAU 2000B + NUM06A nutation matrix, IAU 2006/2000A + NUMAT form nutation matrix + NUT00A nutation, IAU 2000A + NUT00B nutation, IAU 2000B + NUT06A nutation, IAU 2006/2000A + NUT80 nutation, IAU 1980 + NUTM80 nutation matrix, IAU 1980 + OBL06 mean obliquity, IAU 2006 + OBL80 mean obliquity, IAU 1980 + PB06 zeta,z,theta precession angles, IAU 2006, including bias + PFW06 bias-precession Fukushima-Williams angles, IAU 2006 + PMAT00 precession matrix (including frame bias), IAU 2000 + PMAT06 PB matrix, IAU 2006 + PMAT76 precession matrix, IAU 1976 + PN00 bias/precession/nutation results, IAU 2000 + PN00A bias/precession/nutation, IAU 2000A + PN00B bias/precession/nutation, IAU 2000B + PN06 bias/precession/nutation results, IAU 2006 + PN06A bias/precession/nutation results, IAU 2006/2000A + PNM00A classical NPB matrix, IAU 2000A + PNM00B classical NPB matrix, IAU 2000B + PNM06A classical NPB matrix, IAU 2006/2000A + PNM80 precession/nutation matrix, IAU 1976/1980 + P06E precession angles, IAU 2006, equinox based + POM00 polar motion matrix + PR00 IAU 2000 precession adjustments + PREC76 accumulated precession angles, IAU 1976 + S00 the CIO locator s, given X,Y, IAU 2000A + S00A the CIO locator s, IAU 2000A + S00B the CIO locator s, IAU 2000B + S06 the CIO locator s, given X,Y, IAU 2006 + S06A the CIO locator s, IAU 2006/2000A + SP00 the TIO locator s', IERS 2003 + XY06 CIP, IAU 2006/2000A, from series + XYS00A CIP and s, IAU 2000A + XYS00B CIP and s, IAU 2000B + XYS06A CIP and s, IAU 2006/2000A + + Fundamental arguments for nutation etc. + + FAD03 mean elongation of the Moon from the Sun + FAE03 mean longitude of Earth + FAF03 mean argument of the latitude of the Moon + FAJU03 mean longitude of Jupiter + FAL03 mean anomaly of the Moon + FALP03 mean anomaly of the Sun + FAMA03 mean longitude of Mars + FAME03 mean longitude of Mercury + FANE03 mean longitude of Neptune + FAOM03 mean longitude of the Moon's ascending node + FAPA03 general accumulated precession in longitude + FASA03 mean longitude of Saturn + FAUR03 mean longitude of Uranus + FAVE03 mean longitude of Venus + + Star catalog conversions + + FK52H transform FK5 star data into the Hipparcos system + FK5HIP FK5 to Hipparcos rotation and spin + FK5HZ FK5 to Hipparcos assuming zero Hipparcos proper motion + H2FK5 transform Hipparcos star data into the FK5 system + HFK5Z Hipparcos to FK5 assuming zero Hipparcos proper motion + + Galactic coordinates + + G2ICRS transform IAU 1958 galactic coordinates to ICRS + ICRS2G transform ICRS coordinates to IAU 1958 Galactic + + Geodetic/geocentric + + EFORM a,f for a nominated Earth reference ellipsoid + GC2GD geocentric to geodetic for a nominated ellipsoid + GC2GDE geocentric to geodetic given ellipsoid a,f + GD2GC geodetic to geocentric for a nominated ellipsoid + GD2GCE geodetic to geocentric given ellipsoid a,f + + Obsolete + + C2TCEO former name of C2TCIO + + +CALLS: FORTRAN VERSION + + CALL iau_AB ( PNAT, V, S, BM1, PPR ) + CALL iau_APCG ( DATE1, DATE2, EB, EH, ASTROM ) + CALL iau_APCG13 ( DATE1, DATE2, ASTROM ) + CALL iau_APCI ( DATE1, DATE2, EB, EH, X, Y, S, ASTROM ) + CALL iau_APCI13 ( DATE1, DATE2, ASTROM, EO ) + CALL iau_APCO ( DATE1, DATE2, EB, EH, X, Y, S, + : THETA, ELONG, PHI, HM, XP, YP, SP, + : REFA, REFB, ASTROM ) + CALL iau_APCO13 ( UTC1, UTC2, DUT1, ELONG, PHI, HM, XP, YP, + : PHPA, TC, RH, WL, ASTROM, EO, J ) + CALL iau_APCS ( DATE1, DATE2, PV, EB, EH, ASTROM ) + CALL iau_APCS13 ( DATE1, DATE2, PV, ASTROM ) + CALL iau_APER ( THETA, ASTROM ) + CALL iau_APER13 ( UT11, UT12, ASTROM ) + CALL iau_APIO ( SP, THETA, ELONG, PHI, HM, XP, YP, + : REFA, REFB, ASTROM ) + CALL iau_APIO13 ( UTC1, UTC2, DUT1, ELONG, PHI, HM, XP, YP, + : PHPA, TC, RH, WL, ASTROM, J ) + CALL iau_ATCI13 ( RC, DC, PR, PD, PX, RV, DATE1, DATE2, RI, DI, EO ) + CALL iau_ATCIQ ( RC, DC, PR, PD, PX, RV, ASTROM, RI, DI ) + CALL iau_ATCIQN ( RC, DC, PR, PD, PX, RV, ASTROM, N, B, RI, DI ) + CALL iau_ATCIQZ ( RC, DC, ASTROM, RI, DI ) + CALL iau_ATCO13 ( RC, DC, PR, PD, PX, RV, UTC1, UTC2, DUT1, ELONG, + : PHI, HM, XP, YP, PHPA, TC, RH, WL, + : AOB, ZOB, HOB, DOB, ROB, EO, J ) + CALL iau_ATIC13 ( RI, DI, DATE1, DATE2, RC, DC, EO ) + CALL iau_ATICQ ( RI, DI, ASTROM, RC, DC ) + CALL iau_ATCIQN ( RI, DI, ASTROM, N, B, RC, DC ) + CALL iau_ATIO13 ( RI, DI, UTC1, UTC2, DUT1, ELONG, PHI, HM, XP, YP, + PHPA, TC, RH, WL, AOB, ZOB, HOB, DOB, ROB, J ) + CALL iau_ATIOQ ( RI, DI, ASTROM, AOB, ZOB, HOB, DOB, ROB ) + CALL iau_ATOC13 ( TYPE, OB1, OB2, UTC1, UTC2, DUT1, + : ELONG, PHI, HM, XP, YP, PHPA, TC, RH, WL, + : RC, DC, J ) + CALL iau_ATOI13 ( TYPE, OB1, OB2, UTC1, UTC2, DUT1, + : ELONG, PHI, HM, XP, YP, PHPA, TC, RH, WL, + : RI, DI, J ) + CALL iau_ATOIQ ( TYPE, OB1, OB2, ASTROM, RI, DI ) + CALL iau_BI00 ( DPSIBI, DEPSBI, DRA ) + CALL iau_BP00 ( DATE1, DATE2, RB, RP, RBP ) + CALL iau_BP06 ( DATE1, DATE2, RB, RP, RBP ) + CALL iau_BPN2XY ( RBPN, X, Y ) + CALL iau_C2I00A ( DATE1, DATE2, RC2I ) + CALL iau_C2I00B ( DATE1, DATE2, RC2I ) + CALL iau_C2I06A ( DATE1, DATE2, RC2I ) + CALL iau_C2IBPN ( DATE1, DATE2, RBPN, RC2I ) + CALL iau_C2IXY ( DATE1, DATE2, X, Y, RC2I ) + CALL iau_C2IXYS ( X, Y, S, RC2I ) + CALL iau_C2T00A ( TTA, TTB, UTA, UTB, XP, YP, RC2T ) + CALL iau_C2T00B ( TTA, TTB, UTA, UTB, XP, YP, RC2T ) + CALL iau_C2T06A ( TTA, TTB, UTA, UTB, XP, YP, RC2T ) + CALL iau_C2TCEO ( RC2I, ERA, RPOM, RC2T ) + CALL iau_C2TCIO ( RC2I, ERA, RPOM, RC2T ) + CALL iau_C2TEQX ( RBPN, GST, RPOM, RC2T ) + CALL iau_C2TPE ( TTA, TTB, UTA, UTB, DPSI, DEPS, XP, YP, RC2T ) + CALL iau_C2TXY ( TTA, TTB, UTA, UTB, X, Y, XP, YP, RC2T ) + CALL iau_CAL2JD ( IY, IM, ID, DJM0, DJM, J ) + CALL iau_D2DTF ( SCALE, NDP, D1, D2, IY, IM, ID, IHMSF, J ) + CALL iau_DAT ( IY, IM, ID, FD, DELTAT, J ) + D = iau_DTDB ( DATE1, DATE2, UT, ELONG, U, V ) + CALL iau_DTF2D ( SCALE, IY, IM, ID, IHR, IMN, SEC, D1, D2, J ) + D = iau_EE00 ( DATE1, DATE2, EPSA, DPSI ) + D = iau_EE00A ( DATE1, DATE2 ) + D = iau_EE00B ( DATE1, DATE2 ) + D = iau_EE06A ( DATE1, DATE2 ) + D = iau_EECT00 ( DATE1, DATE2 ) + CALL iau_EFORM ( N, A, F, J ) + D = iau_EO06A ( DATE1, DATE2 ) + D = iau_EORS ( RNPB, S ) + D = iau_EPB ( DJ1, DJ2 ) + CALL iau_EPB2JD ( EPB, DJM0, DJM ) + D = iau_EPJ ( DJ1, DJ2 ) + CALL iau_EPJ2JD ( EPJ, DJM0, DJM ) + CALL iau_EPV00 ( DJ1, DJ2, PVH, PVB, J ) + D = iau_EQEQ94 ( DATE1, DATE2 ) + D = iau_ERA00 ( DJ1, DJ2 ) + D = iau_FAD03 ( T ) + D = iau_FAE03 ( T ) + D = iau_FAF03 ( T ) + D = iau_FAJU03 ( T ) + D = iau_FAL03 ( T ) + D = iau_FALP03 ( T ) + D = iau_FAMA03 ( T ) + D = iau_FAME03 ( T ) + D = iau_FANE03 ( T ) + D = iau_FAOM03 ( T ) + D = iau_FAPA03 ( T ) + D = iau_FASA03 ( T ) + D = iau_FAUR03 ( T ) + D = iau_FAVE03 ( T ) + CALL iau_FK52H ( R5, D5, DR5, DD5, PX5, RV5, + : RH, DH, DRH, DDH, PXH, RVH ) + CALL iau_FK5HIP ( R5H, S5H ) + CALL iau_FK5HZ ( R5, D5, DATE1, DATE2, RH, DH ) + CALL iau_FW2M ( GAMB, PHIB, PSI, EPS, R ) + CALL iau_FW2XY ( GAMB, PHIB, PSI, EPS, X, Y ) + CALL iau_G2ICRS ( DL, DB, DR, DD ) + CALL iau_GC2GD ( N, XYZ, ELONG, PHI, HEIGHT, J ) + CALL iau_GC2GDE ( A, F, XYZ, ELONG, PHI, HEIGHT, J ) + CALL iau_GD2GC ( N, ELONG, PHI, HEIGHT, XYZ, J ) + CALL iau_GD2GCE ( A, F, ELONG, PHI, HEIGHT, XYZ, J ) + D = iau_GMST00 ( UTA, UTB, TTA, TTB ) + D = iau_GMST06 ( UTA, UTB, TTA, TTB ) + D = iau_GMST82 ( UTA, UTB ) + D = iau_GST00A ( UTA, UTB, TTA, TTB ) + D = iau_GST00B ( UTA, UTB ) + D = iau_GST06 ( UTA, UTB, TTA, TTB, RNPB ) + D = iau_GST06A ( UTA, UTB, TTA, TTB ) + D = iau_GST94 ( UTA, UTB ) + CALL iau_H2FK5 ( RH, DH, DRH, DDH, PXH, RVH, + : R5, D5, DR5, DD5, PX5, RV5 ) + CALL iau_HFK5Z ( RH, DH, DATE1, DATE2, R5, D5, DR5, DD5 ) + CALL iau_ICRS2G ( DR, DD, DL, DB ) + CALL iau_JD2CAL ( DJ1, DJ2, IY, IM, ID, FD, J ) + CALL iau_JDCALF ( NDP, DJ1, DJ2, IYMDF, J ) + CALL iau_LD ( BM, P, Q, E, EM, DLIM, P1 ) + CALL iau_LDN ( N, B, OB, SC, SN ) + CALL iau_LDSUN ( P, E, EM, P1 ) + CALL iau_NUM00A ( DATE1, DATE2, RMATN ) + CALL iau_NUM00B ( DATE1, DATE2, RMATN ) + CALL iau_NUM06A ( DATE1, DATE2, RMATN ) + CALL iau_NUMAT ( EPSA, DPSI, DEPS, RMATN ) + CALL iau_NUT00A ( DATE1, DATE2, DPSI, DEPS ) + CALL iau_NUT00B ( DATE1, DATE2, DPSI, DEPS ) + CALL iau_NUT06A ( DATE1, DATE2, DPSI, DEPS ) + CALL iau_NUT80 ( DATE1, DATE2, DPSI, DEPS ) + CALL iau_NUTM80 ( DATE1, DATE2, RMATN ) + D = iau_OBL06 ( DATE1, DATE2 ) + D = iau_OBL80 ( DATE1, DATE2 ) + CALL iau_PB06 ( DATE1, DATE2, BZETA, BZ, BTHETA ) + CALL iau_PFW06 ( DATE1, DATE2, GAMB, PHIB, PSIB, EPSA ) + CALL iau_PLAN94 ( DATE1, DATE2, NP, PV, J ) + CALL iau_PMAT00 ( DATE1, DATE2, RBP ) + CALL iau_PMAT06 ( DATE1, DATE2, RBP ) + CALL iau_PMAT76 ( DATE1, DATE2, RMATP ) + CALL iau_PMPX ( RC, DC, PR, PD, PX, RV, PMT, POB, PCO ) + CALL iau_PMSAFE ( RA1, DEC1, PMR1, PMD1, PX1, RV1, + : EP1A, EP1B, EP2A, EP2B, + : RA2, DEC2, PMR2, PMD2, PX2, RV2, J ) + CALL iau_PN00 ( DATE1, DATE2, DPSI, DEPS, + : EPSA, RB, RP, RBP, RN, RBPN ) + CALL iau_PN00A ( DATE1, DATE2, + : DPSI, DEPS, EPSA, RB, RP, RBP, RN, RBPN ) + CALL iau_PN00B ( DATE1, DATE2, + : DPSI, DEPS, EPSA, RB, RP, RBP, RN, RBPN ) + CALL iau_PN06 ( DATE1, DATE2, DPSI, DEPS, + : EPSA, RB, RP, RBP, RN, RBPN ) + CALL iau_PN06A ( DATE1, DATE2, + : DPSI, DEPS, RB, RP, RBP, RN, RBPN ) + CALL iau_PNM00A ( DATE1, DATE2, RBPN ) + CALL iau_PNM00B ( DATE1, DATE2, RBPN ) + CALL iau_PNM06A ( DATE1, DATE2, RNPB ) + CALL iau_PNM80 ( DATE1, DATE2, RMATPN ) + CALL iau_P06E ( DATE1, DATE2, + : EPS0, PSIA, OMA, BPA, BQA, PIA, BPIA, + : EPSA, CHIA, ZA, ZETAA, THETAA, PA, GAM, PHI, PSI ) + CALL iau_POM00 ( XP, YP, SP, RPOM ) + CALL iau_PR00 ( DATE1, DATE2, DPSIPR, DEPSPR ) + CALL iau_PREC76 ( DATE01, DATE02, DATE11, DATE12, ZETA, Z, THETA ) + CALL iau_PVSTAR ( PV, RA, DEC, PMR, PMD, PX, RV, J ) + CALL iau_PVTOB ( ELONG, PHI, HM, XP, YP, SP, THETA, PV ) + CALL iau_REFCO ( PHPA, TC, RH, WL, REFA, REFB ) + D = iau_S00 ( DATE1, DATE2, X, Y ) + D = iau_S00A ( DATE1, DATE2 ) + D = iau_S00B ( DATE1, DATE2 ) + D = iau_S06 ( DATE1, DATE2, X, Y ) + D = iau_S06A ( DATE1, DATE2 ) + D = iau_SP00 ( DATE1, DATE2 ) + CALL iau_STARPM ( RA1, DEC1, PMR1, PMD1, PX1, RV1, + : EP1A, EP1B, EP2A, EP2B, + : RA2, DEC2, PMR2, PMD2, PX2, RV2, J ) + CALL iau_STARPV ( RA, DEC, PMR, PMD, PX, RV, PV, J ) + CALL iau_TAITT ( TAI1, TAI2, TT1, TT2, J ) + CALL iau_TAIUT1 ( TAI1, TAI2, DTA, UT11, UT12, J ) + CALL iau_TAIUTC ( TAI1, TAI2, UTC1, UTC2, J ) + CALL iau_TCBTDB ( TCB1, TCB2, TDB1, TDB2, J ) + CALL iau_TCGTT ( TCG1, TCG2, TT1, TT2, J ) + CALL iau_TDBTCB ( TDB1, TDB2, TCB1, TCB2, J ) + CALL iau_TDBTT ( TDB1, TDB2, DTR, TT1, TT2, J ) + CALL iau_TTTAI ( TT1, TT2, TAI1, TAI2, J ) + CALL iau_TTTCG ( TT1, TT2, TCG1, TCG2, J ) + CALL iau_TTTDB ( TT1, TT2, DTR, TDB1, TDB2, J ) + CALL iau_TTUT1 ( TT1, TT2, DT, UT11, UT12, J ) + CALL iau_UT1TAI ( UT11, UT12, TAI1, TAI2, J ) + CALL iau_UT1TT ( UT11, UT12, DT, TT1, TT2, J ) + CALL iau_UT1UTC ( UT11, UT12, DUT, UTC1, UTC2, J ) + CALL iau_UTCTAI ( UTC1, UTC2, DTA, TAI1, TAI2, J ) + CALL iau_UTCUT1 ( UTC1, UTC2, DUT, UT11, UT12, J ) + CALL iau_XY06 ( DATE1, DATE2, X, Y ) + CALL iau_XYS00A ( DATE1, DATE2, X, Y, S ) + CALL iau_XYS00B ( DATE1, DATE2, X, Y, S ) + CALL iau_XYS06A ( DATE1, DATE2, X, Y, S ) + + +CALLS: C VERSION + + iauAb ( pnat, v, s, bm1, ppr ); + iauApcg ( date1, date2, eb, eh, &astrom ); + iauApcg13 ( date1, date2, &astrom ); + iauApci ( date1, date2, eb, eh, x, y, s, &astrom ); + iauApci13 ( date1, date2, &astrom, &eo ); + iauApco ( date1, date2, eb, eh, x, y, s, + theta, elong, phi, hm, xp, yp, sp, + refa, refb, &astrom ); + i = iauApco13 ( utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, &astrom, &eo ); + iauApcs ( date1, date2, pv, eb, eh, &astrom ); + iauApcs13 ( date1, date2, pv, &astrom ); + iauAper ( theta, &astrom ); + iauAper13 ( ut11, ut12, &astrom ); + iauApio ( sp, theta, elong, phi, hm, xp, yp, refa, refb, + &astrom ); + i = iauApio13 ( utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, &astrom ); + iauAtci13 ( rc, dc, pr, pd, px, rv, date1, date2, + &ri, &di, &eo ); + iauAtciq ( rc, dc, pr, pd, px, rv, &astrom, &ri, &di ); + iauAtciqn ( rc, dc, pr, pd, px, rv, astrom, n, b, &ri, &di ); + iauAtciqz ( rc, dc, &astrom, &ri, &di ); + i = iauAtco13 ( rc, dc, pr, pd, px, rv, utc1, utc2, dut1, + elong phi, hm, xp, yp, phpa, tc, rh, wl, + aob, zob, hob, dob, rob, eo ); + iauAtic13 ( ri, di, date1, date2, &rc, &dc, &eo ); + iauAticq ( ri, di, &astrom, &rc, &dc ); + iauAtciqn ( ri, di, astrom, n, b, &rc, &dc ); + i = iauAtio13 ( ri, di, utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, aob, zob, hob, dob, rob ); + iauAtioq ( ri, di, &astrom, &aob, &zob, &hob, &dob, &rob ); + i = iauAtoc13 ( type, ob1, ob2, utc1, utc2, dut1, + elong, phi, hm, xp, yp, phpa, tc, rh, wl, + &rc, &dc ); + i = iauAtoi13 ( type, ob1, ob2, utc1, utc2, dut1, elong, phi, hm, + xp, yp, phpa, tc, rh, wl, &ri, &di ); + iauAtoiq ( type, ob1, ob2, &astrom, &ri, &di ); + iauBi00 ( &dpsibi, &depsbi, &dra ); + iauBp00 ( date1, date2, rb, rp, rbp ); + iauBp06 ( date1, date2, rb, rp, rbp ); + iauBpn2xy ( rbpn, &x, &y ); + iauC2i00a ( date1, date2, rc2i ); + iauC2i00b ( date1, date2, rc2i ); + iauC2i06a ( date1, date2, rc2i ); + iauC2ibpn ( date1, date2, rbpn, rc2i ); + iauC2ixy ( date1, date2, x, y, rc2i ); + iauC2ixys ( x, y, s, rc2i ); + iauC2t00a ( tta, ttb, uta, utb, xp, yp, rc2t ); + iauC2t00b ( tta, ttb, uta, utb, xp, yp, rc2t ); + iauC2t06a ( tta, ttb, uta, utb, xp, yp, rc2t ); + iauC2tcio ( rc2i, era, rpom, rc2t ); + iauC2teqx ( rbpn, gst, rpom, rc2t ); + iauC2tpe ( tta, ttb, uta, utb, dpsi, deps, xp, yp, rc2t ); + iauC2txy ( tta, ttb, uta, utb, x, y, xp, yp, rc2t ); + i = iauCal2jd ( iy, im, id, &djm0, &djm ); + i = iauD2dtf ( scale, ndp, d1, d2, &iy, &im, &id, ihmsf ); + i = iauDat ( iy, im, id, fd, &deltat ); + d = iauDtdb ( date1, date2, ut, elong, u, v ); + i = iauDtf2d ( scale, iy, im, id, ihr, imn, sec, &d1, &d2 ); + d = iauEe00 ( date1, date2, epsa, dpsi ); + d = iauEe00a ( date1, date2 ); + d = iauEe00b ( date1, date2 ); + d = iauEe06 ( date1, date2 ); + d = iauEect00 ( date1, date2 ); + i = iauEform ( n, &a, &f ); + d = iauEo06 ( date1, date2 ); + d = iauEors ( rnpb, s ); + d = iauEpb ( dj1, dj2 ); + iauEpb2jd ( epb, &djm0, &djm ); + d = iauEpj ( dj1, dj2 ); + iauEpj2jd ( epj, &djm0, &djm ); + i = iauEpv00 ( dj1, dj2, pvh, pvb ); + d = iauEqeq94 ( date1, date2 ); + d = iauEra00 ( dj1, dj2 ); + d = iauFad03 ( t ); + d = iauFae03 ( t ); + d = iauFaf03 ( t ); + d = iauFaju03 ( t ); + d = iauFal03 ( t ); + d = iauFalp03 ( t ); + d = iauFama03 ( t ); + d = iauFame03 ( t ); + d = iauFane03 ( t ); + d = iauFaom03 ( t ); + d = iauFapa03 ( t ); + d = iauFasa03 ( t ); + d = iauFaur03 ( t ); + d = iauFave03 ( t ); + iauFk52h ( r5, d5, dr5, dd5, px5, rv5, + &rh, &dh, &drh, &ddh, &pxh, &rvh ); + iauFk5hip ( r5h, s5h ); + iauFk5hz ( r5, d5, date1, date2, &rh, &dh ); + iauFw2m ( gamb, phib, psi, eps, r ); + iauFw2xy ( gamb, phib, psi, eps, &x, &y ); + iauG2icrs ( dl, db, &dr, &dd ); + i = iauGc2gd ( n, xyz, &elong, &phi, &height ); + i = iauGc2gde ( a, f, xyz, &elong, &phi, &height ); + i = iauGd2gc ( n, elong, phi, height, xyz ); + i = iauGd2gce ( a, f, elong, phi, height, xyz ); + d = iauGmst00 ( uta, utb, tta, ttb ); + d = iauGmst06 ( uta, utb, tta, ttb ); + d = iauGmst82 ( uta, utb ); + d = iauGst00a ( uta, utb, tta, ttb ); + d = iauGst00b ( uta, utb ); + d = iauGst06 ( uta, utb, tta, ttb, rnpb ); + d = iauGst06a ( uta, utb, tta, ttb ); + d = iauGst94 ( uta, utb ); + iauH2fk5 ( rh, dh, drh, ddh, pxh, rvh, + &r5, &d5, &dr5, &dd5, &px5, &rv5 ); + iauHfk5z ( rh, dh, date1, date2, + &r5, &d5, &dr5, &dd5 ); + iauIcrs2g ( dr, dd, &dl, &db ); + i = iauJd2cal ( dj1, dj2, &iy, &im, &id, &fd ); + i = iauJdcalf ( ndp, dj1, dj2, iymdf ); + iauLd ( bm, p, q, e, em, dlim, p1 ); + iauLdn ( n, b, ob, sc, sn ); + iauLdsun ( p, e, em, p1 ); + iauNum00a ( date1, date2, rmatn ); + iauNum00b ( date1, date2, rmatn ); + iauNum06a ( date1, date2, rmatn ); + iauNumat ( epsa, dpsi, deps, rmatn ); + iauNut00a ( date1, date2, &dpsi, &deps ); + iauNut00b ( date1, date2, &dpsi, &deps ); + iauNut06a ( date1, date2, &dpsi, &deps ); + iauNut80 ( date1, date2, &dpsi, &deps ); + iauNutm80 ( date1, date2, rmatn ); + d = iauObl06 ( date1, date2 ); + d = iauObl80 ( date1, date2 ); + iauPb06 ( date1, date2, &bzeta, &bz, &btheta ); + iauPfw06 ( date1, date2, &gamb, &phib, &psib, &epsa ); + i = iauPlan94 ( date1, date2, np, pv ); + iauPmat00 ( date1, date2, rbp ); + iauPmat06 ( date1, date2, rbp ); + iauPmat76 ( date1, date2, rmatp ); + iauPmpx ( rc, dc, pr, pd, px, rv, pmt, pob, pco ); + i = iauPmsafe ( ra1, dec1, pmr1, pmd1, px1, rv1, + ep1a, ep1b, ep2a, ep2b, + &ra2, &dec2, &pmr2, &pmd2, &px2, &rv2); + iauPn00 ( date1, date2, dpsi, deps, + &epsa, rb, rp, rbp, rn, rbpn ); + iauPn00a ( date1, date2, + &dpsi, &deps, &epsa, rb, rp, rbp, rn, rbpn ); + iauPn00b ( date1, date2, + &dpsi, &deps, &epsa, rb, rp, rbp, rn, rbpn ); + iauPn06 ( date1, date2, dpsi, deps, + &epsa, rb, rp, rbp, rn, rbpn ); + iauPn06a ( date1, date2, + &dpsi, &deps, &epsa, rb, rp, rbp, rn, rbpn ); + iauPnm00a ( date1, date2, rbpn ); + iauPnm00b ( date1, date2, rbpn ); + iauPnm06a ( date1, date2, rnpb ); + iauPnm80 ( date1, date2, rmatpn ); + iauP06e ( date1, date2, + &eps0, &psia, &oma, &bpa, &bqa, &pia, &bpia, + &epsa, &chia, &za, &zetaa, &thetaa, &pa, + &gam, &phi, &psi ); + iauPom00 ( xp, yp, sp, rpom ); + iauPr00 ( date1, date2, &dpsipr, &depspr ); + iauPrec76 ( date01, date02, date11, date12, &zeta, &z, &theta ); + i = iauPvstar ( pv, &ra, &dec, &pmr, &pmd, &px, &rv ); + iauPvtob ( elong, phi, hm, xp, yp, sp, theta, pv ); + iauRefco ( phpa, tc, rh, wl, refa, refb ); + d = iauS00 ( date1, date2, x, y ); + d = iauS00a ( date1, date2 ); + d = iauS00b ( date1, date2 ); + d = iauS06 ( date1, date2, x, y ); + d = iauS06a ( date1, date2 ); + d = iauSp00 ( date1, date2 ); + i = iauStarpm ( ra1, dec1, pmr1, pmd1, px1, rv1, + ep1a, ep1b, ep2a, ep2b, + &ra2, &dec2, &pmr2, &pmd2, &px2, &rv2 ); + i = iauStarpv ( ra, dec, pmr, pmd, px, rv, pv ); + i = iauTaitt ( tai1, tai2, &tt1, &tt2 ); + i = iauTaiut1 ( tai1, tai2, dta, &ut11, &ut12 ); + i = iauTaiutc ( tai1, tai2, &utc1, &utc2 ); + i = iauTcbtdb ( tcb1, tcb2, &tdb1, &tdb2 ); + i = iauTcgtt ( tcg1, tcg2, &tt1, &tt2 ); + i = iauTdbtcb ( tdb1, tdb2, &tcb1, &tcb2 ); + i = iauTdbtt ( tdb1, tdb2, dtr, &tt1, &tt2 ); + i = iauTttai ( tt1, tt2, &tai1, &tai2 ); + i = iauTttcg ( tt1, tt2, &tcg1, &tcg2 ); + i = iauTttdb ( tt1, tt2, dtr, &tdb1, &tdb2 ); + i = iauTtut1 ( tt1, tt2, dt, &ut11, &ut12 ); + i = iauUt1tai ( ut11, ut12, &tai1, &tai2 ); + i = iauUt1tt ( ut11, ut12, dt, &tt1, &tt2 ); + i = iauUt1utc ( ut11, ut12, dut, &utc1, &utc2 ); + i = iauUtctai ( utc1, utc2, dta, &tai1, &tai2 ); + i = iauUtcut1 ( utc1, utc2, dut, &ut11, &ut12 ); + iauXy06 ( date1, date2, &x, &y ); + iauXys00a ( date1, date2, &x, &y, &s ); + iauXys00b ( date1, date2, &x, &y, &s ); + iauXys06a ( date1, date2, &x, &y, &s ); Index: /trunk/FACT++/sofa/doc/sofa_pn.pdf =================================================================== --- /trunk/FACT++/sofa/doc/sofa_pn.pdf (revision 18346) +++ /trunk/FACT++/sofa/doc/sofa_pn.pdf (revision 18346) @@ -0,0 +1,19228 @@ +%PDF-1.4 +%äðíø +9 0 obj +<> +stream +xÚeRÁŽ›0½÷+æh˜xÆCo[u#µRµZ-=U= ¤ºŽ³Qÿ¾cœTT+ÀøÍó{3^ÀÈCà|Õ`ÝÀîŸZØl ˆ°)Kh kÐCA¶F&h÷?ԗI[R±SÇyꎺ°Þ©‡s +ó4ŸÆ]®”êû$ÇúgûU(Ø`UÙDYx‹¾†B(](_b7í» ]£ögi–÷Ó ïÒ¨­žú).Ìr˜îJàtߟå†Ç^mSÃ\“¤ÖÔXœÀ‡Öþ+ +ážÿC»„.e6¡oÿ®ïàe*؉nŸ,xF/S±N˜]¶ð´Õdd +¢Ðjµ÷jÖ—j>&K†Õ0‡üñØ +xȸ-ˆÇxÙ÷prkm÷ÂZÜ;ߕIs]ùÎ +•d°1ͲàÚ` Eé,º*[™‡¨Ù««æZu¡¥–Õ[*õáœv*«È,‚ +T§€` +Œ´N¶½Ú]dc©'fxèßÆU3º[2ʕ–‚x>{”T&²CŒ¿?n6×ëÇîrž‡çðksë]•YVâs¦ØË9üÖ +]Šì!•é>èçn\»q +endstream +endobj +10 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +13 0 obj +<> +stream +xÚµTKo1¾ó+|ÑØíz_É +ÓÒR*ÒBT‰ÇÁÙ¸ÉÆ^§¡ÿžC‹B„8  +Ö±¿™o¾y±ïL° +~‚ +s6¬›tÔ°vŎ§ìè¬d"K›¬aÓ;&ò>%¢)ÓF°éü3ŸœNŽO¯oIQüꌾÓóS<”üíxùGü“óx"ãc +_áÛøúõàëô‚%UŠš%ÀP6Áó +]˜ˆ”æ^9p¢¨Ó¬†XòÑh¯æºñÒ«žÎ—]? +ªŠËŽÈ¯f½rtã­{$Îè +¾iU·z9Ý “íYðI¹^ûA>âDaïÈô³FCÄæÉDº%AOd'gNy/÷iƛÞ;Ùis:\uªoíz ýN«×֐̒Ÿ!J¶ºÃȆü Î±1*8tôòÆÄ{­Ü~$ïñ °ý?¥òDú +rÚD†s»PfIy[îsœqÀM@/¸þ¦zPPóǗ‘õRn¼nIgÁÇÝJْè«/™¨[u°¦!s&¹€¢/8íGp³€6[H +[ùo"Ë`ôI‹-ð𸋾[þÉù[Óû4†¾^w»#TؚôÕ®ƒINH·òÐ^³»?¤êµ2FÇ~Ÿ´'ÒùÅSÅÿó”\(ÈxáTM»Æ¢ªÑ×?Ì­†¶6½>82ïÑHz§[t³$k(ltŒµÿòzƒíwgÝü)íÊÛ¸RÞÉ +ш[÷$ôè¬fMÚÔ®ºDˆ*­KŠ,Kñ +\¶6|ËÓá%) +Õ¾+Ër£:áEùN߇rAÉ«,çy– +“Ï°3i•3¿&!Ô+vE3€@H*4Ï i \㮋© +d=°S +ӈ{¨zU×üZ +c1æ`,DYÂÝÚِù¦ERèÈ:‡&˜Ëµ—Ï.¬#'°˜Lß +—@›#Õj«ýÂn@YYøÚi4*ë†oö +¶"Ý:åVºïÑK@`?“‘]èví+” +Óû£UkO A²Kžs“Ú.Lã–äQ—lÌ|·[ #hÄp‡â°¸]rÚI\9Û> +ŽO§ì˟™bä÷ +endstream +endobj +14 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +19 0 obj +<> +stream +xÚíY]s£6}ï¯àQÌ‚>ÒôɵIëNÖöÚd&NˆC¦6dÞ¶ÿ¾øK™¸Ým׉=ž1 $Ã=÷èÞs¯OtùN„œˆrŸqg¾t~HœË+æÀÀçw’9ÃCԇØIîýñ(‰GÉÌý-ùYÎ#ó!> åt5/Ïs3 +;ø˜P5Å3s< +úŒê, +CPgúP™U0Øy¹N/€®ÇQ†£dªVŒ7ýd8 +5ë‰|™W€–wô–çÐñ öÃPOóå/Â!W@ýnp«SQ» +ÃÁÛë¿8H ™ +Hl€ìÝ݉ìsžÖyYTÒcý¯ž>jèx·±·b„¼åcº(ýø:ž%ÃÞµ$%Ã2€§ƒá¨çò$ñl?làÃÂêÂƬ΋ThÎßç"›·E0:mŽã}Ž£.XL$PYUI¨¼BUÝÐ]ÁÈÎx­ñjcBüY¡T.V-J”ú8ÏYUçéB_Šì!Y1o²Õ_U-+Eÿ7„ÙĂ,Èn¦ +ö\DÁº@A`Q£Oiñ˜I³Cy~* +Šl + + +jW.C@¤ËLÃu—§ +.câ9-ï¦+ŽÔàØŽ5ÍÒâ^o±D„¾y÷!d6£6˜}Z¥»qŒ€ºÝÖ¥Ès•Bq„NfïZckÀò¢TàO +Q“ +2Q­*½›R2¿^¥ßÍ[R­ÔÃu&„ +]ê¬EZT¥Xv2L9LñÔ0ÖJ¸)k%kTY+3Aܛ6"ø'-Œµ"N†ÉÍ Ö>Œñu«a[UV},Fɦp§û‹Tʼy +ñs§ûÔö>¥°Øzª&Øç-î´ñd +’3>Fœnrn°ƒ6ìðîžï'íö€\Ÿ.ßJ0ø^m¦übá5¢ëºð]ÖÓ_äSŸFÛ^ û^똻(Uß +ÌÓº6Ç@}È +ڕÅê +¯½ñŽP=€Xx¤‡ùm#ߪü‰.ۆIJ4™Œð³ÀßCr«¾ÄÂSQ?™bºlã.gô +Ý +t-ý¢Í"sUÜË2³PýòZ'1Rñ¸jƨêò{”°€ŠØ j5ýlõüÜÄÄRÔyñØòm%/T߂Ÿ–˜ßÀëUAKLk÷f:G‰Ö¯vµ +¦VÉZ­¦EY¬¥×]Z媇žÃfã pŸÐ¤“­[ÿ›¡ +*³Ó(ã_‡ +ÆïPó;¾í}˜\Ç{¤Ž#uؑz"²E¾Ì‹Tä; yŸ ÿãH¦½bé!„ +©U‹9Ò-f + è%ä,P_H~qr¡ïd» +9²{ù ­þê1Uí(°ÙŽm¶«özïbKÕ+/´Â_U]›o°iñ¸Èš¤OŽÌ|¸/îˆyÑ|»³Í͗` k¾mw¶1 +Ûü +¾`8½ü +Î'ûFæ2€ˆÍ\ú¥æÚªXÎÔo0„mI[e::«ÆÞ1쉚=]!}B6óÕùêêÆtã©î NãÞ`8úq'!¿<5â¡He-5ܛLâÑ`xÛ܌çãwSPË +endstream +endobj +20 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +22 0 obj +<> +stream +xÚS(T0T0BCs#s3K= +K +ä\§}7C=KK +4#= +3]cK=C HJ´FRNb^¶¦®±±±FAbzªflˆ—‚kˆB Ÿž +endstream +endobj +23 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +26 0 obj +<> +stream +xÚ­XYsÛ6~ï¯àä¥ÐLļù(»rÆé8Jbå©îDA¦<€òñﳋuXTë$ +Ï×âÛß.@yß<îðǽ,ô²´ðóÂ+kïbî½»Š= +øEPxó•ǹ½q˜ú<òæË¿ý=ÿR +Çc?ŠS”÷bQâç©s +ÆìúãüË( +Ø쏯—óëÙG·›{œûE’àîöe~ +Ò>Ÿv&l¾–#XHØíìj„švՍ"Î +ñŸÐÒ! +Zˆ‘&ÑnçÜnOrf:Ñ, +ö +¶juoOx°=ü<»Å + +%œÙ]9g³µW#°f +«µl:QádÀ&¦ဵM[?û¶ñ"òyâÐÉG°ŠŒ +vF¢a>†¹õÑÎ*g¶ ¦l«J–j·+«n +f™„Þ˜G~B!¸åku§ˆ†q̲ŒZð:—Ø@l· +Ýn;ÕHCóÝZt´¤êM%ÁS4ËNâ]ÀÓR¡ë(q=Áµ¯´&ªûV«n]ZÄP[ĕ‹˜ÅÕX@À0X8~¶‡¦—m½Ùv½4þh +'!›8¢(û06QÊ6ZšqvEÕnÉÉ$GAŽ¬³ÝÞk6¢ êÒʸm<âÔ¹»;²ñ +íÞÅéÄd³ÝlÀ× +#.—( +³¹ý% ¶à>ŒÂ”Á¶ú]-:­žÞDí÷à~A¾gL +¢0ª¤î²u9+·»°)pÍÆ +;]¿ñ +8jb2A +Äîòzv¢ãÜuO¨Z.Á|I˜iu¯š³¨Ÿ~õN¶î2 + +É«€$&Óé‰ùmÛWp؍׶îÅá²jZÔûä^J‡¨ô˜Þ\œÀÚûk|ÓRwè‹þˆSô✍³µ±µfÎà]ýŸ®Ú­¶µv¿xÎRPKÝöþ,dr‰Ï–Õ/`¾ʉ÷’X:¨ÿ#/ÞßÜÎOiI©÷¸/l`r- + +ºQpJÒÓÓü +üëÑï˜Ølàۈ|ÃWàKMÑ¿iê¿V^j»¦ï+Kš +iâ>\-†™¯Mÿ˜:Ž3È¿p×Ó׫±)EÝþ™G#÷zŠá¡r¤ÙXÍÆ +¤~PåÙXÎ_oÇ +¿E¥Æ[Xÿ”Ó üàDNÓöÂrbK/  +÷ûO.ºåÁYÓÖ½Ÿî)[î¾ +vÌ!I8q ô¶æã§Óêe +ßîŸÒ/èRÂçɋ C®Ãç§S´Pâ\Üÿ†ñR—û}biŽ«›ýZٕ‘|_F&'ŸÛ§> +äà™´šÎ½Ï¿}´ï¤ +endstream +endobj +27 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +29 0 obj +<> +stream +xÚ¥ÑAkà ðû> +G=è¢6‰^Ûm1Z–š]Æ]c‹Ðf ß~¯‰°BÈ(Œ +ò +ïiÐâ(‡£\ <ÓLi´oÐÒ û§â ӉFæ *2Æ%2õ;äÃ.·ç®·Í\/s['ã;CTS¢òî›J7r†ª2|VZM¨UK(œ± +µópÂ:Cƒì·ÁŸ¾½,‹ +<à©õDZúÜuöä| +~´†+mÛCþ=ôz÷en­4 +endstream +endobj +30 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +32 0 obj +<> +stream +xڕËrãÆñž¯`åb°JDð€ }R6ëʦœlb)•ƒéÑS¬VþúôkPÄfR•0žžž~wsóë&ÞDðoöÉfŸÂâ°)/›??nþô½ÚÄQxˆ›ÇçRE£]’‡qºy¬~ +ÒíϏ¨Ã&Vaªr„Úy°4 +‹œÀ’í.Ž¼{ÿÃû‡Ç÷?lwé> +Þ}üøã_>üã~{H‚Ç÷‚+ÞÄqxÈ2Ä–}ÆX˜ðdÁÃ`êZ÷Œ¥²½)Û6N,IFq˜ +ÁC·Ý%ûÀ”öùÕ6'8žíƒálp'Ó^ÌÐے§mÏ_Ýuº7Í6ɃW2ÀÐ + ãsƒ–“Ç ‡̼ÛÂu²øÄAK$U¯Ç-X¸i|ÚâVMãøó€öÇˎ + +ϋÓ0cþ<ñë}¡‚ö™¿Ïº +ÚÞ}»Ýe*^Îzàõ_ôŠ +É$®È¦#%Õö•mô`Ü +,<§`¿7ÏXRÊx¦+ + +=P”Hç¹µ +•NÈ;~v-‡u#Gë¶9Ùa¬ÌíÃ~3}{Ü ( +¿ Œ®íe„¸ñ;I†`S€:y‹è"Ø'gúO[áTR$u¼Só³Kxrnw +È|ô§ÌgëÒœ=|ü~ÇQpÓy&n¾ ¸4ߘC͊œ† +™ +¯V‡€”¾Ì6 +£Xõnà 3Î6#ùˆ3(š, +º¾E>يõZAeUcˏåU{éjs1¤Dƒf«¡ +õÃ="ú7/^D;MM:Ï Ñ7ïé€éÆ9ÀµcådÄp"Iå `³ïu?œqúÓ2ðnìD)zà<ƒôä&*Ìûfâf +ÜC +ŒÑJ¢¾øÓ +LJwúÉÖ ÓÌf°Ý¦¬ÑgÐDxžùõ+Ä®’ F™ŒZÌ*ývrB—åˆf)ëf8³:TrÏÓ8ܲX×̯„|3¼Î™zŠ +°J6Ëø +1‚ +p»î+Ò/¥‚ïíiìð/l,Žã&Îݹe÷³8¸šHdIÅ¿¦ÉÌ{÷êsq×»%PŽ +ôâæ5o½> +È؝¡L{ƒ,¬îDÂ"é¶1×øЖªYŸÞ(Äuì„u+ߗ³åx!jÃÀ3±¢œc_ +5 ½#hôëŠP:‰òºÇ'€ Ó%ð•Ðáø—×-8h@ +Å"މå„ãƞfy´¬5x:v0ˆ‰xÌc`±$0É"p& +HDÚ@Vh»@Šò «u‰s +°·™Kž +± +{nGŽ’ÙôÉ2"=èº=qòƒ®ò°+~àQ~ªÓb®È¦Öõ߇C”}ñ8à4dè%Œ"3ăªtûa +¸ïµîÝ,=„úqNpú œÃñ1øðîLJãö»[iN‰²øˆç;Y +]°ðb)°ÀÑà(]SæÈû9ìwÇ@8mÆ +ì0nö +Cwä#K s÷ÍÀ¬5í0´^ KƒÓF‹FùM°Mšߊöä*Œ¼pâBT­è‹R¡Jô'+^„E&û÷¿á‹‚ï Î÷Á{H +÷A½‚3 +¤Þ_ÿ3EëƒÏ©xÍ´{µz˞^#ÌlÁY^|Av´c]ñaãE+Zg„¼¬;cf.ñ +¹֗]¬öaÎ +V +•§èÀ_VUxñUÎMAWI£—`Ãó[Þ©¬†Ø|q<#ŸxuÀ~ +@ÙîÄ|(;Š  öÇÃtÞhë­Êˆ/¿Š›¼ó¸ÅœÐìUp6u‡£,f>ð{壶¢r‰ŸâÌÀJ$“·ì2 +cªaw‘ì¨=$í{Æ#y‘ +¿Øºæ3½ùdÍËDÀW#êd>‡-œXJ˜®ª!Œ@*÷î`´7Õ´öʸI ÌM£y:PÅ@ G¥¤¥¼N׉ i>#­,öâ"ni§'k¤èÕqh]eÉuKoÒL>Sjɏf«€ ä·ú„µÈza| +ƾÀþç2O£)ÿJaüT",[ÀL²B8Ç#Ãg}L÷kÞ*Nò0ËÅ_ôöt¦ò +J"q. +LãÖiÙ«ðD“í® +Ñ(Lé +`+kÛ,rßkŒÙ><üN_ˆrv{gÓ|a\çž0ً¸bN£/(Q +RIºÜ»®o1T„ûýM Æœ +š“Zԟ +ñÊ&‰grU÷ÀÔ×ؔ#à¶OS`ü¤ +ùWÌO›«”1áí¹B¶n™ÇÆSÝ&©ëãšMç [ D+,ßq”¼qó¼;§MK¯ +µÑ­LáÞ+•ðY칝ÌÙùtSî¢Ý/DÛ8žs.ÎÌ&ÓłžÔî×Qm¿¦ÄE¸?,”x¢g墴¯ð^™;H5ÖBpŽQMøàß_w¥X¡ŠC˜dWu¹Æ¼HEÜ2À/»7<Œ’Ì +gpå§ó›íW*—uTQácþ:ŠË¢Žu +Ïn›’ʨ˜4QΔ^á9ð¾–ôÖ`"öôx¶n¥»À1bÒqք_ôT¨Ì8þ«I˜³ +qoE%à¾Z™‹€hHò rÙõœüP„¹—¥ÎQþE§³vŠâئý¼&á,TÞµ 'òœ9A¯rÔ°áqg¡èa93 +Ú +—ØžOÔ×cHò(Lâej$¦Ž•öFéâA±ÅÎ ›!Îvû';øJOŠ»ØĂ^øì+²¹â[ëiÀa” +©+‰7§ +:¯ø­/t:%ÅY}‹²E<ÊK1ì@†?Ö/q‡°ð‰.-8àx³1–kXܖ†!(µ˜<­6<ð~½Àn²Ø.-[!Ÿ÷E‚‹\ I¾-±Œä¶'åKøÊbçËrÞ%2ü—S%áݛvAÙ6¨•œ +Z ¾˜¦ÆCÿtVcb¢ò0ͯ¢¢â¨˜ÿ®¨øåü&õ]&‘ž”{ékÍ)ôŠ›aå±Ìs§¶F- +¹åÛÍþdv<‚ÀÉõ®)Psxòü¡nvoªë–vëÕü!Ì}ˆèzŠøOêxGÁñ–O;9·èwñ{ Šúd•{\Š+B•Ïc/ +X¬ì'[‰JùØÖ®†°C†¿½ü/IΑ澤Ê÷_‰nq~4ûJŽ‡iúÿ_ +Æ´æqAś<©lûɌچÞI–{+Ë2%¯º5´õ™ãã± +»sœ#áæÜÅþ£à›óxÜG˹ +ˆ¦Çbaühq祝2î+£öÍÀɸůܽiÁ +]­Ö*úyEõP‰°|*0˜0j49W +X!gá››Þw­Õ•´“hq=Ï9Púú +&ÿˆ +K°[ê‘ÒL\ó½| +O§àx*ÁðÙpçOú{&Ht‚í¼Ïµ¬»Î6 +Jÿ†Õþ§†xŠ†0‡c+Š>q=òú4f¦Å^!aðw)Lž +¡³MÍ¿ÑÁœeȁ¨+û +"aó|åûuUÙ)ìÅ®Ù÷õöiô¿¾Ä¢G‹w,‚5öX#°µ‡ºúÑ/û§ÄmP낋]¥æÓS ÇUŸÃóŒs|jKp +/½ ЕqàfȒ:½Ô¬0>·6Ò¾`léz‘?ÇGRfÿëߝ˜ßÈ8ôÃÃÔn¦_[ÚzœûéÖÿ\!mœq`Ø$¿‹¢ˆ÷^·Òûe~ÿ¸ù×þ +SôL +endstream +endobj +33 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +36 0 obj +<> +stream +xڍYIoÜȾçWô-l@͐Åâ6>َ=ь1Fl9—(JdI]6ÙæbYùõy[‘ìÅI ¬åÕö–ï-½ùº‰7üś\mò¬ +‹rS +6oî6z¯7q–Q¹¹{ŠÊÂ8ÙÜÕôöw¿A±"PEÆ)Ð!Úîʲ +Þ¾ûðîóÝíëÛ]’èàíǏŸþ|ûÛëm‘wï>Ë&ëSv²Ë.IÃ"£­îöv»ÓQ + +{[Ùap]‹ý"è +ù;2AتqÇÑULî +­Ì4ؚÛ[•/3]¼’AXÿgºŸ®H) £Dò‘Ç-H.°=÷^ð2Öô÷[¹ž­¦ÆÈdߍ†™†=d>hœßé +ˆÇîTš„ªX3Ò<ÀQyÐM#ër If4/»´Šà›kŸxªvæ`Gۇ^*ªõJ·T—ýFWîw®Ý›ö‰–ãÔSopî›qê3 +¬mqbd2×ò÷yw‡á=wG鐐ò= +lOº©’"h¬©ebìøkxfQ|T!œµ»Ô²½A¶¤+Hn +lóÈíªk‡Ñ𥛦û¶M‡ý +<5®Ì‚¿ˆ*)æ +JõiµÈ6:|-¶TvEÑÎ +œ÷¬ºëC×Î,Zß©“ÅÃä9 +³†³m}ù²¡2 +ž +•þ‘1l(ߚnkúÇÁSXžè-^•5º ‡§ +̓{z²ƒìDê;°3ºt÷Fv6-әñqãTÛÕ2ü¶ÄWhÅñÔ*‹m0ñ6XÌ6¸6°"Œ3²A¦ó +Ùé÷b¾hž¡ÅÅl®£FÍ£„HqÉ6S°Íàx\„ÏxÁ!ÜäQA° 4µ#ÀéÖï&¢@¢ƒù +¹diMNò@ +P42Ҟv±¤AÝFš±·FÈAƒl8κ×]ê€èU¾èJ%ç›á—e + +ËØ +ìÑôf´ ™B(ýbE9 +LÓnQ„#3ÈXÖ +˜©ªö"Uk,D™*AÃvbl +¯Èà7̈́în¬™äú+ÇFRNòh:ˆ*ÐgPXgy½;Ûv)¿ê²bÞ·{h +ʒLó~‹z%>²„§ÄÑÕ0/ŽT˜éù +•]9' +Sy@`ÅtD>£’™¾–A瑫ÈÂüĊ?©U +n0É +Üáð6›õK+ +(ˆ'^óø©‚áä¢`dºp0ì?ÛEù@Eöëå€ô¿hTRB|©O• +Ï¿dEš‡*ÂñÆi¦ñÚ#ºž4 +°1N²”[sàxJH+t䃸ÉCúz` +Åxÿ¸<¾ªYËþ{/£"—(QLÐ" +–ðh‡ +ò*L¶»86¿û¶M ºk&ï|µxæ4¨l1–#¯ÝÞ>úÈ»ÃË0Z°ÀËû‚%YșÈÛÆ +ây(H¶ßǝ û±ß%|ž‰¹WÇ`×#¹9¼&¤Ç¡#ÁxN!êIø¾zå +_'3¢£0½­Ï¨}ss ÃÏÓ]J +’BÐ +JÓvhVßyµ'fŠ[@RjIäÈMŒLNÎ'{÷´÷Ž +¶G3P8²+Áoqp‡„+ÈÞOr왱t„«Æ©—Y7\>áÑ +\ã +¥yi¸Áh +(JȔD+ÐxÆKv=Ê%ÉbÉ)HÕ¡G·Fª®¯Á‹÷ÊYH +·ÃÀÀq²Ôæ@R +¼l•=à™2 +Ž´êÝn«{K¬<Œ}ъèd×>z1!#ǜûëÜG "WËn‹nÂþ,æL +¾‡Ž”¦ùÞVöïœ-™¾*4y¢Õ+h7ôLá%9¥ö` „¥Ï™PØϬ²½XS4ë&y©ƒ y6诳@ +I—hf9S°T4áuœ­Ë/”A©óX6ºHù;S”¢|lþ +£ +_»ÑUíz”„À×ð!ó™ìU' ’M³«%Ī™ÞTÙã(‹ÚútŸãâó +XÃkY$çÿaÜÄ +Á/¼¹åÅÝð=NÍ@ +݁oã³ü)ò†@YÈ¢-ñ*O¶õ +"D!ì†mæ⚏íh9Ï&Ì´\/3* ¼ÌñėO„‰¯‹%6w°UŠ%ÑGbt‰¢©l=‰ÏÕ Fɔf¡Úš]%œ‘$àNÊ0ã¬:âØÔ Â¿•0¢çœ‚œ +¿]ù.è~Zù.è~&§ÂmÂ;B¢”¢ÜM.YOq +± +U÷;§–©/D@£7Fp8Ê ³©ýýK}éI(ø‰Ÿ‹”`XjZ/Ü«ÝÊìq [òª6bތûnzÚó>·o?}fÒ³« +<*ŽŒªéñ`ŒKWQðþה~Á€.Œ.%}°TLü +4¿¢ü‡ +\ۄð¸qO-Åväépˆë<20T~ +ðz +êµw+:¾,BTöFŠ•sZÂBÐ\|‚5µ}ê­lʕIÚgw­žËð竂à"Pâ«S)ìKÒB +_ +ù®)†ÍµexDµžš2Äà +QŽb]5Mâpx†î´5岆\ÇO +4_>áɱ‚ _ƒh´£ç–T»¼`«ê$=œ ¡ø„*qÐbU€µà!ä!`0øNU¬ð¬þè€ÖpK‹8%SùÐ~þØvà¢Å•„–cKÏ£<§§„Avä-O,å ¤îYñ3 +AóPn@t+¦®ÝŠ¼;;DxCìV¤ ÔÚg +}àA¬—2öɵïƒ7°ç€Z$Y&†‘­×ÒÄ}ðóŠ~ +HCw +HCwŽp±ÃᕇÊäp¤#6Y¤—Љ +ÀµÚ2q‹ª +{Ÿ½;òˆ¬—àɶ +® +Q¬Ü0’tŽÉ|ý.bqìÀ +ÉI簃’ĺc'Š— +.ظpÍb9ô× +·téyâ\ +¤1z + +wZÐL‹Iaƒ‹Â³îjrÇf9 +GjÈ+)Š¤\”:Ù£Y¢t:ЈßĵœµŸ“]^–§fµŽf÷›$å¶è¹*FJA€ÑöëA@ÎÌ» +n +Ï¿S°»'J°­nxö +ہåN º + +žÇJ5CP,±T7ˆ%âdÇþ +ÉPM¸é-Û[ؐ7X±Híq.öBï¸gªª›xä±ómÎ$ +ÄkɖÊW +®½%žß|­X¸‰-/*šå!ˆ: †Aoßð¸—VF¿ª©‚ÃYº²üHJz¶–º›Æ|¿a8]«ÌRԜ.O8];_ýóÔ^ƒ-q:ó/”I©‡0lô=áÃ͉ +C¬¦fä¶PJ„Q&D¹¥ß;Ñ÷gq¡ÉU(€ ™@× +On.³>ld‡ÎEO•Î$e‡¡Ÿe¼Ç^pÁçñ8Fa0¶ºÞÿŒáߦÀ|æmÜ(߁÷† +Ymu~Vê^R§ +V»ÁWè!{¯ÁŠ%¤w‹•£ï¾ÆÄA •ŽxêJé_ùÛgÁé/sêùînó×?üXt£M +endstream +endobj +37 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +39 0 obj +<> +stream +xÚ¥YM“ã6½çW¨rY¹2føMj÷”¤¦·’ +v3Ó·tn[ÝV­mõHr:“_€ $ڒœšÞšªi~$éìS&2ÿDædælÁ|‘mÙ÷÷Ù·w>œ¼È–– •Ýï~Í%S«µàœçï_I—ׇsWÕ§ÕZ)™×OøWåÛòP¶]µ9àPçMùT6åi[Ò·íç¶+íê·ûŸ`'ì¤µgð‰‡L¼¿Ï>eL>{͌cFdëÂÁ8;fÐ +íLJìcöËÖV(δp +ÖôØ`¨Í +XDáîV1 +Ë !˜–A +c¹9‘οFm + +ñ°tÑ+ûÀð¢ò9ÖáÐÆÉqÂo»Ÿõ»€\+ˌÆíÑ(„ÀÞ@ðg•ŸÎÕ©^I›ÿ1á‰p61¶¤Ö^³ˆ`k£à +-¼`\¤K'™Yà +±R§zDÁ-Ö +wL_B»øRÎ/(W åº`ºH)†§ +żö”3›XÆ{¥¢[ÑwöÚwnÆwȧJ(‹ãYÏõ¾\1ï9Å53~ôœ*lâÉ°ó‰ +½à–ëœ\§þo×Ù/qIN‹º>-žW7W +a>Ò^0ËyÏâÀyOãÂqáŠIÔKKæñôc@û ZB^unDãY´2 +óǀ +Æ):øH˜‘EgbŒ`¢ڗ•áùf»2™@—qù±9|›½:Fc:9^é»°¡’’ ?ÙR„-Å̖ßÞ¹qöZjp©L=ûÕ¦¦d +ñô~ݕÍPR\ +’È?ËBAÓsm-֑„|âf + +À*×íP¸'q|¨OÏUwޕËч +lÚ?*ùfš"¡ +ÑØÁ¸ +õ‚¸¸Æ*d±(@¸ô‹×9®sšƒ*:@ÁGÏIÐÙ[Ag +ì«(†ö·¯xSðb´9ǼMÌèfLHB¸– IQ°mZj*ñƒàË%^Ã$'­$+ˆ¥]unN}ÜÌä« €¬¶£”6Û<¬ƒßV.Ê®¦+ÔÌ +³ð·tá‡ÌmÁN;¶‹ÀqÜ/IXk­¡(Šò®~ Q2­V‹·I8©WboDˆº!p°‰ +ƒ µaʐ +%S†H°!vâ"B.#»1\Ó¬›áA +ÜL† +L +ɐWÅLÐÌ +‚Ë"F8a/˜ƒµrºV! +ÐÀzùM'\©`ҐÅÈ¿Ô¢ÄBdÿÊ¿õïwBѪÎ{ˆwŸ¦ŽVß6– +í1'¶ +‚Ô˜)Q·*%Š +Ž6²À—“Ñ +÷jÑÑÜàÃëÚ`ûG\ÑEï‰ÎööfãaŒŠÇ´ÀõÙM{6½€!¸'Ÿ+ôu/˜k„c+œÞ + Jòe¯Ûðhà +Ř­Û² ïÄånÙÑR®K +=¼é½ÙÑ*ÑAÿAê?eÇ +Ž)a‡‰¹ék5ħ‡ð° 1±_¯žÏM|åÿì-åé +·cúCy©½ÝWp6”—ù#üf¾[)‘¿âey¢oÒu€: ëfW6]Ù¾#ñKS®üáÃÇ)_kïXái _™qûÿ6UÝ‡åtáµ"ïö% ª˜~é´îÎÛX‚ÞøqaEþ#aK¨^ˆ¢Vä?$êCò +?†ßPmðrÛm¢"1G´Uà + ¯!|š¨ÙËùñPµ{'´‘“A1Øp\mºÍ¡~ÇU~n«Ó3}¬O%A‚ #àC|·äó*ŒÇÜýÆggZ·ÿÕ#l×îÃãäkÜsÓÑßA +È–È +/òrC×9¼VݞU×FSÒ +Z"°ÜV –Þ¢bKºôô-ÎÈ +5:ô +a~ÓôM‡öЛR”‡–Ááô>¿zþááîgý5Á¢áÅD䧺#q° +  E;6}Úæíù%º»é‚¯üØÿâßüÏÝJž÷ŽHâF綌:G•ŸjúÊç¢ðz +ÁFY„u,­ƒ£s +—ÄÃg¤?²A|RC³á¸³eáƒÙækúÜ‘ÌÍÅ»sX Y£iá á§×}Õ»Q]¿p8¼áSÕÒßS}„#ŽN-‚+ñ©Ü=¬â«¬ßÞ;ê¢êÿÑ0Xôû*8MüJ +TÃWI«Á”T¶±O'žÎDÑíç}i +ÞÔÞ~L¢êÑÚ + +๿9 +ªS¹®ŸÖmõ¼9*¨ÌúªðËWI/·“ +endstream +endobj +40 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +45 0 obj +<> +stream +xÚ½Y_oÜ6¿O¡·ÓYE$E‘¼>¥>·pQ4h¼÷ÔyWö +ÕJI®“~ú›áג6‡Cp0àG?’ó†Tô)bQ +,R¦Ll¶,þþ)†Ã|Ã4 +Ý´p}3Mû÷²[–,»¸K2ñD¨kËd –cYÚ +5±(Œó5 +ó¯ð‹Óûnf"®ÒDg“Öý8Ðú̜Ò:ÕdN¿sð.¦AŒD°çi’š +{êÀLiš( +“tދ +÷çäq±ßH—¨ŸÚ¡j›¹$nÃÑ%¦ +étîlF&)°H˜KÈq¼æð’¥*èǞh±ê›<ÅkœZÓV˜ïWœSO¶êœ0L—ìŒ +ðæ !o3±-Y ·#¬Ø1ä¡N®ØªÁåJh‘Y±ÈŠý_o¶’ÅuñyՄ,KiÂý8¸§˜ûc†T +Wžl$,À5¥Ĩ=M€³šc +C +i°¨¦è‡®=•CWíÁ#3 +ÿ¶`TÉqí05€9t!ˆ%:-¡ŸëäÂT8r>BÎçz‘6Áz!š•s•ð +­\ˆ5+3£’ +õ¢Æä[WOǃ4%H*Ë +Xz?†«ÁT°ÅCøâ +¢ìÈ/®F5fPXÀ +”'¾×Y" +\äÎÁÍDX€ÛÕAÿ’";·“WC;8-M8 +öÚ«Î 8ŠüÊØÿè + ÑÏ#!äy®€+j„+΀¿:Ô7ÂÍzȧ9fÙ-° +ü#Yõä²öCUôëÖÍ4æý`7¡Íg²€¾Ñínú¶ÕÊÖàP T†Ö +æ«|\ÌÃÃÕGøLt[)¡—RØÓ à%Êýé¹jÚÏ +E_b +;6ÎV9I¥­ïÁû·Íó0 + +ùÁÍÝ{§G«ÕÞN=ÐúÿÍbm™WƒfIž‡zQ˜âÖÔâÑ#a -Ú͂­û0è@!•{Âk4·åˆÛ‚íX°WCœ"f0ôÔÌSÙn`R¼/› +W±ÏÊ ñó¹è +q=45ä8þò4 ++Œ—g + +ÍY”‡z²ã×&`ºùq”ƤîŒè¥!Š}³TRÊôæ4—_5¯1ã +Áîÿm^Ïòhݐå™>-L GX±n™G†ÚF¸¼rÆÖXÇ·Ïðkûö¶yª†çC¹jÑ +{‘ð˜ñ¥#S îᑦ>÷e²ÙæÒÐw/ûîeƒ’÷4»iO`¼ºþâXª«§¦t + +-ýþ„öKÒP +²²øs©‰_*cØÈÉðÐÅç}ö˜Jw€LOw€Ž] +÷µ³»™¦ÀC;|Ð#aă{vôT¹WûR@.ˆn + +æÎC‘!Êk8ê0k•nNA?ýPtïi'ïíjÊõÙäPx”fÔ(Ûç*ìßdöã™Ïô6´(:Fa4–Iïïö€+d¨-Ða¹m·½µ2Y_Ñ*h§xm¥H°âh’](5yÆöH +&>tE³Gâ‘Æýњõ¥§)ãz'jg TzÎòööÃ;÷¶ +Ž@ëf¸eiÿMې¸egŽào UtîÆé;ŒgŸ#AYûºèûŠN_i +ºáÛïw4×óY +}“ñQ¦†•û +W­ËÇQ%é¨íü„8UÓÓÛ¢¡ßöì*>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +48 0 obj +<> +stream +xÚ­Yݏã¶ï_aô¥2°Vôm+yº +îÒ+Ím€Ù<Ð6½N– +RÎÞ6ÿ|óAI>ûúT,°"‡Ãáp8ß^ü¾H þÒÅ:[¬«:ÞԋÝiñýãâ›÷›EšÄuR/ +ÀXeUœæ‹Çý¯QËUš$Iôx´ËUžçч7Ël +ýB“,Ê°D£"Úôhºg뗿=þD‹Ñ¢ØÄ%LtÍ«"/âuµXåe¼©ô´åª +ÏÚԑݵÍyhv˜ÕIôBG/K΍³{™0F>Î +¬³ÝN©œ[ÓYY9ôNÇæù¸:;»k|Ów‚Çô{÷ \Ti +ýÔéþ}ó”¤ÕîÒˬŠ^ ¸ÁU÷|4ëb±Â§,ùÛå*ÛDÖ2єYÚdÑκÁ4LööÙY+ãþ }w¸^²Èpsdn?›ÝоÊäåhüôDôWœ¬é艼¿m÷Íδ؋åº} + +01Ÿ\1n|Cr, +’D%B-ƒ2z¶ýÉŽŸHg3 +eï€¯bÑÇK'¡QF^䁥ƒëOWØeôθá¸ú±—ëέq¯;+w±Žø.ëhËâÀj3ÜòO/²Ê“,¼ÀÜ +àÔ; +åÑÅ_L+À¦óƒ +[†^Öý^¤ŒÒâQw¿ûñ{ônÛ +tþÒ'(' +*L_xwýA3»zßòü‡Yl×y–òä +;ZoeøÜüA/Â3}Bõæ¤ÎzRO +÷ +é ­7‡‘’Ò|tä›V®ù¦S&¾½ñ·ì³¡‰¦*Ä4(LJr'4ݳÌgæŒY3xÛ +¾Ã$K¦=“4Ói¦,Í*pEs6)`6 + +¬á'6lüXhñÆw8g^s1Oø1ßÂðAlcy"FŸ“¡²'y-W—%¹ö÷KÓñâgliüªçÍíTu–ð·e\¯7ä,³Mgõ¢ˆ‹ŒyM–õfBLgn5®á?G¼oï8Þ +¸I\ +¬‘óßCWþnæ$Ñ§UÁ§å¤ðû€/úN +ÅJCKVÄYÊlçpVÌâO€;Ou +ùf}eó†ßv@Š~øøø´|Ù˱‘X-Srùô5òÓ<·ˆ='ðÀa‰fä鉸jñp”){pÁpýÀïs?8>E¿<¦OK±y¹yX%ÐSÔõƒaEƒ; +Äáñ–# +ï”ÃWM™AFѹcuÄLO'›™FV'qQªqè +ò¢ŠÜ’”OoHI>©µwŒ +‰Q\­•ÂSôîç7Ä¿]^§1N»Ò¹Qîy½f¹ç°k#?8\’”zVãö‚Û»±K"ð:ŒSà0Ž¿øB¶J´í%ãY«“ó«p>¤„ ¡ÞÕ +ìnZÀ’ù› +u“\ò\œ/4væ|IÉù~M +‹yŠW$k(œë[ + +¬d£ +¶ÖEëÌ3å•4¯4,Ó +”Zö_!ä/Ñi,pžtEî?Öõ²( +¥oDB<œnÎg3y~Zqáqîëµñ°kÉފ”ø%Òõ,+ÞSVYzq,uöåžKO«2NŠ SA÷ô.ËJQèB«›»€¾”û±1§Óa iÊ)¸Ü-ɉ·ÖˋüÎpW°¼’¢!«,ÈOA&Mw‡½UV£n¨®íþ퇟ž–A^© +òª$àƒ€Ì=¾ê2Á«ë»•#ÎX9æn*eááõ&Î3Ý˦†3>AOÉl®²áuª.§š%¸‚ +åëxˆ¢³{sŒý®ó¸R3/$± »eՔ’ÑX‘FMøzýžô퐥o[ÝJ +Mß½3>³*'OÁÀÆ<;sú’°ý +¯×tJÎb!ûúlÒ֌eϟdv·>`G'ý +/ü»FtŠÆ’"R #ES£‚˜| +æñeü«@Ä\“·ðçoá֛°7&çqÉCBœÏ&iˆQ_j;ž FBÈ +e‰·™Ÿˆ +{(ƒ«4!‘ã$U™¶†ÖÊØxA¿z¨X,ãà 8ÝYïk8ñI’ ·J¯ë%¼$õˆžGjr¼>B+däž'ä•h•^áö>š‡Ê- +ˆÇ\ê¤ +ª½—¢Š¯4ã¦uÄÚQsÈx–Eјõ(ÃïèøPÉÓ\^ô +¼|X AãFa¦•¨Í)۝ +KÜlæyW +†½@9—̪¬¯œãfÑ{2o–j«/ÇÿÇŒê^ĉìWB•h +¦"¨SJ§ÞöÞ^³ñÃ۟?Êâu H¾$¨®&Ï­u­érÌ15É$²DŠíbÂÍR¯X¡N¾8Iãˌý +-9x<ö +´ƒüV£uø½Â#ß$qžÿÿ +9]º¹ $I›‚¼ô\D¨Ãº Dq8™^M[Öq¶ÆÙÅÔ4¢UŠ7’°².©E +J†ZTë"´¨Þ-QÂ}µE +§Ê‹¸>„T‰¼ +2Ó¦r=¶/êy™÷ +§"„.%NMJô +Ò}^õTNŒqMú64”Ê €ÀžlÀçªÃ-„{·ç +fvêÖQd¼Õ»yÍY¬9åDž»k©WÄCo‘ïŒ o:(Ãäê­®ÌóäYŽ\©Zb@M5øB,¬8º‰¢@Ú´­à +æ“ö4(ÅöÒ¬)H +dÍÆ]¹„b*Ú+.R¬Œ´ìÓû¿ øœ‡.±ö¦ +ŽZ¶UiD¼a;ûyØμCÿÉ +£™bƒ¾÷‰ömú*”%|€õ?Ȇ¯˜´ª*é00Án¸´·¯y­Ø³¯²R#@vOgԃÒ˾À•4*Ã)'ó‰“#¦0ÈwÖ¾”m½~­ š•›‰%¦<@.t±ì½@þ” +‰‚ndùÞ ´–› +P8n¿åªÍœ¤I©ËWq€! +ôµB®Ç– +!(–P’þÍZ‹sè•Cø"çKz”ä‡T‚r0âûüܝa7NtC¸g +ƒŠ4ãó¥Ó¼çkù¢®A×wÐMGâÚ´‡¿ZÉVfI}}ÐU(À™%D“±ò ºÉ%ò(An_óÞ£m” r +ë¤ +ESwáÖHVK^\yä^NÈ ÃÃp¿–mÔ +e˜J€]–üA`HìT)[Á¦nÁµ >«)êæÑÅQk +Z®ÌF5‘l¡å~’xêHºñŠ{íEÖÁ‹ÜqnâwêÑ3•ÉÜ3•l¦½F íŒ‚ÕÇ 4ÔÂԘً§ºx)3€jía|@îmÃ/lUAKÉÛZšÝîgºQÝþNJöÕ%¼ƒÛsêX—¬£êbֆä†&Äɪ\‡ö9 +zé’a͜ú˔kc +_y§±cPÂ"z9)J*h$œH{%~0Ôkõ_|‘äÈYR4V¯ÕË +"˜ø)Bg¸HK¨‚ã‚ +Hò¼'25‰S$iÂáb +7–(ma»{ÁƒÉpNJš‚Ê‘Ôý´÷sãªOòò~wããOï—išFo¤­¤™"è½ +@²Ð,š5Kd=K¦MoÌý嬛n™õÈhzíM ò§ìT-È +°#y–eG?d %ڇçcD£l +î•8„Pž°+§ÁµŒf]O- +¥;É"¥á¼~ѝ,‡(ïûó@Št›«%×iZ©iÚûeGN:yÈ϶ùéX1¥cEFBó´ã»pƒà·³~¦?O¿ÿ(\>j +–Æc§ð૛Žk}^#/¡?8í+'3Œ=ÓZ +$‚ÿC+ˆÛ‚ùµ3'ê#ž: +ØZÒocpØ¿_Fe*6µúð%e÷AmµbÑfl +ª[ +ÂÁ<áßüxÔW±Ø +jÉOdôë½d¾ÈÊx£¹ú¿@!Pñ¥UýûλdE¼Nù7^÷¸øç_þ + +t +Ù +endstream +endobj +49 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +54 0 obj +<> +stream +xÚÍYYä¶~ϯhäIlsEê¢løa³/Æ0<öΉá1m7gZ°ZšÕ±½óïSuLkmç!@ÐâQ,‹u|¬Þ|ÜèM?½ÉÌ&KseóÍþ´ùûÝæõ·ñF‡*óÍÝPìLªt´¹;üØí¯w߁›+ +˜í.ÏóàíÕ÷W·w×o¾ßî¢(ÞÞܼÿÇõo¶6 +î®n +É|—pÙE‰²)±Ú7۝ɂ¦=”uÑ»X +Qð‹,ÖùlujTœ‹÷a®l`Ul +ÂOÙ•g–8lb™ÎíD£g,ŒVƧ‚Ÿ×Xy 9:D +S@ƒ`ÍØ£ü€ìCœ”AxÅ;°‡ÈúdJlC¶gü24A?,ªæ±dø" +®i? /œÏã)È{“WºÀxóó¦h_»‘„Ý›„zzªJ'¢PØïk!Žõ-Aù¥ +ŽéXbƒ•Ø€+)¸‡Öó<8– +p>ÀA¸Yû2˜4ñé©*Z짐Lz߯pÔrÈEª¨èx„ö¡Æ\d +ðQnB-&'Ôb &RL|ÝË"aë>÷­;aä¦n‡qH +õÁµ—9@ÃÝS!Vâ8ú£B" Š˜ +6f/˜ƒdE0HЊcŸ'€zV¢ÑZ +I´²v +D~\F¹Š½w•§§ +ÎÉÛw")‹ßõ ö¢=õP ZC¡pÓZEbQ¢Ñ8¸Â^’U%ÇÉäÖh€®£û3ÈTv5óLj|ù$n›PNåÍbĘ‹<ÎÀƗ7Ó:Sq4"Ç«D"šÍ=` +¤ñ0T_¯¹Ï›ÐÚOp¡n©ÉPÔ-øÚ.ñ"û `ú8ž›×ÎÁ +ødŒ M"žf’ +œçÀ +v—$÷ε;óH÷ÜõîD6™íºæiŠ{R]çWâ1°U;ç¹5Âcx¨Ù + +ÃÛAÀ´-KDN/^c®ó¡€\Œ ôD–!†Vp¡s:9ˆôJÁ}粪xùÐ + + +h!)žyhÞc +§7Y. OöY Û +†F{qôõÕ{ðSƒ^D—€ÞÞðw@¦Ægl\Ýðò`Í­ƒ+*‚54Lo]lu%„ +G +ח'a0î±xìâî¤*ž›Ac’k„Æʟ“V6½ÑÝÝgn]ÇÇ +þC#± + +gû¡ +‡aâØ +2Uԏ•,/%Ž •_)4UKt„Ӎѓ‘ S†•2\b@÷ýÕjªÏ”É ZÄJsê=®"åȈó%x3> +CcÖ*-™²Ée¡eÉZ +ðÁ×k*~É΄þ22Hr!Ùòpi> û4œd¨sU´T6Á‡RÓϬØ_ýà}¥è¼³@úlُLð®u +»Îø$¶Áqt€Põøþ +gK¯50ؙ{¯œk6›xRÞZ F¤3;*äÖ=`î—:9q–ú“΋8Y̘ò/`MÀठèÌ44°gßÂøeàÛñ ^¾¤!X2˜Ü%ƈâØ¢’A¨Æø²bš:Êþ›¢å»Û»W¼9|QÎOÛ$Š +oÒ + +Õç!ä¡mN<>,Kn’1T&’ +‡•·¹ +(Նڗ íS74îïݔÛCÉísÉírJáŠiï< +Æ[üú͉ЬlæŸÊ85òõïWÞØðs+œ +.ÒÀaQÅ9¢Uy«FV2•“ï +Ýô~HUxz¯C»¼:Ț8]©[xɀ/Íë–y°~ý¨ï‘N€{ˬŸ R-‰,OñȦpÜ}5 +èyTEՉØRûH‚éQO1Å& +àá»ÔÐÎÀ‹,´«zzƒU 3¹¤ä +^ðÛÒYæɍÏÉFjCãrr#cÓÞ]G•%ã‹7†A.|Xü¼ ¬vɎ?7÷ +xüžv¼¸sŒ'ݟ¨ÏZ©Ï^±p‘&W€ôi +°yGBè¿ýãr훪‡äûˆAX³aâ—ϯ!SWØížâ +Œ?•{„£Ò­zG¯¤éáAOq•8w.âéD¾ Ø¡ à´, Í +.Dñå¿KW!c=d´S +IƒÏ +ÁÇ)@ +ô„2˜ræ; + ‡Õ°;#(èœ<0Nž­y¬àGל +¼I?8¾D›s¤Åz™æá´?W„ïõ¦ïc +‘Z0 +ÅôLb:ŒÒ`/ +R)|—2÷¨”φDòh‡Vé¿2Ã6ŠyÈH½³@ƒßÓËM} ûênóq£ TmÎxªÔÒ#ý´ÑЀ¨6·›Ÿø/=cfœzª¤Öb)lþwŽN1è¤)Þéÿ8Å`矄x±&¹oNx“ îZòNÇ$$–[ù3Ô +95x +W)sáÓ¬ + +ªMï˞e틵Õ°srE7xj0©˜v`çÕX.EY>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +57 0 obj +<> +stream +xÚµYYãÆ~ϯЛ)`Đlž^äamìÚÀٍw‚Ø°Œ€Cö¬Ú¦H™¤vfþ}êj²)qg“ +ØGuWwuÕW‡6lÂM¿p“E›,-ü¼ØTÇÍ7w›?¿Í7aàA±¹{Š]”ú¡ÚÜÕ¿x‘_lwaÞÝAowJ)¯Ò +FS6Ü +;üÆÞ¨û +Æûy¢/Ûá¡ëåhºvûëÝ_Qì0Šã܇V@Œ +"ØÉØN%~žÒě²_ +°g”y§í.ʽ®Á£@cï•mÍ̓n+ +ÒМ˱ë÷Ûì–8óL{A)ûãîöõþ±‹àÎLüíí;&º/-ÜÊÓ©ïÊ +I²åÈ3fbØ1óºñ@÷™†ÊOºQ‹2i£ + Ãy„iet‹›Ž<ˆ²¥I>Ÿ®ÌóÌàÉ£"€« +cÉkÊVwççóYP7H–{cO‹ËÍÀߪl]Ï[ò# +‘óJ*Q~–Ê+UÛ$ðœ÷S8¼üQãDmʑ÷ØÉ*çÖ§mÒË]+Bù‰Õƒ=Èû=¿X7ÇSóÌí%Þ/ö”¡³EžÎ‡ü W ·iêý¼Æ/ö³PˆENa,ªlàâ~™×ˆ2{Ü¢(q6÷ªî(¢må¥^Ö=ðwÚ®ñ•œø»oüÀƒç–ôZŸp±®@=ýí.V©wÛÖZ×7,¾PÅ~°ðƒ +Iì•#VE&ý„×C£ÕÜ8êñ@ +äÕ<@ºI¤åÈ­A÷FË(˜êšd£8óÃ|íµ4 Hìã­íûQ"ãÊzåÊ®ßòQÐ*֎RøI&¤kïšÏ:ðٓÄ/Ÿ$^œ$öô“DV{–¾õ‡wo·!¼ðk¦î»óhZ«â‰³5èAxa¦<ÿ맟ƒt +ý"÷$§ühЪucX}z;%Ð +:Ç +²咻çÖj +ôHc±ÍQÖ™)yâkªsSöd{0¸^šRxвˆ²¯yò‡K +zÞæÊóÉéèJ"r>3A/ìØ(§ƒAÔUcNÀ{¢«0Úêùª°ì¡ìy¾œ,Óå +þÃz* MM(ÛÀ¡+-[Š$ *σp?õҎìú<–"1àZö²ãCß +¯]°žMì)Baƒëìõ±Dãh«ñ<¯¹1_ +‰O +à8È&söHRë¡ê‘¨k&ÃG”]»@—H +:4Žó1ˆÔï#¸ºë{T][Ü-¨~<àSaK?pò}Ø5vx:6öÄ9b³bIt}mZp>K˜yß³‡¦¥“*DI0mÈ>-‰¼W<8¿ËDÔf] +fè™Rvoø7Õ4Ü,[þÚS£öe6$H-n#Z¼i?rïBpO +™¸©eøhÆ·@RÖY²sçrÈÀåé0 + \ß +¶å +c¹5È·«f +û¡ëu‡þ„&¡{Ô¢hR4P÷¦IVhØuEíGðì´HÉóãð™ +àMpä£nu®žGíöÊBnábj +ûńeA­À +@cl]€b˳/+!²|º±ÁEê«d!¯óØaœ‰ñ +BV˜\ dhA uӒœžÈùct¤Q{$ ™Œ”¾2)ªƋÿA´Ð mۍä¾sïväˆ + +ÀÌüñºô +ƒuèm +ìJôɁävc·«éT¾_á$<:'Ä9ÆÙÈÂpdC˜ú„§û>? +Xì˜HÖ +“TSï‰É÷Þogò°i¹n¯ +›Þ3\Œð„8PÌrÁY +U‹)âµ1N¹ŒŠìú€H4­6ú +:œùM]7úÖ6 +] +cà˜vçjZ'æk6ñoø%– +Y +ýÝoÅÛ*åÊłw-«¶h]ž³’k äxcߐu½MùdJÝ +œYÏ0Sì)åÓά GÖ6ž²Á* +‹L¥ð>Œ_†t†ò^KÏA•ÇÐhñ´³®C +p”WÐ +"™*$3Z¸ +YfNjmp) + +H–: +6åËÁXmüÃ3åPév`ŒÓx +ˆþ®Ïþpî[b„‘Þ8F?QÖÏ`JÁ.4BhLy°šGž}¡·ГçA‘<• ~Äë'F +ˆZ_¼ +§¿0²t‰.L¨Ä’g+Í­Šb4Eæ‡VOèž!º +îûŽ€„iV²ÍÅ}«™óÙÜnJ廣Ú$~‘åKåè'b?ŽhM°·¬qö +È4'º¯WSÝÀF\A +‰Êq)ItáRnQ"±~ÜQÔ6À‚q7F„ãd˜`rc±µÑœ¨z/Ô.™ÔZ†905kWpæG`ÖÁ5ÏÞ[C‚6l]ÿ;+ `¡÷u¿[)ÆIĘ$Ö%éeŸ0FӗïžbUð†[n@5YRJôxg¬‘ÕZ6lë©Â7Woœ}ÁCœØF ó¹¨îêGÑN|¼]Z$œÇlÖ냕æ +L\Ì\ÖÒå‡r$¡r'Žpò #£Ý«B1 +º×$KwKÈlW¬•!˜ +õ@ÌØ+@VC)­’R\Œ` +>״Êúîd+G¶<ì?h[í€p$ò3Œ’(òàÊP¼yǓlå³`ì¨U0IY?͔“Ûq +çÓ©1L”¿ÃN +LÕ­Å +´ª6½§IK(¼U4CUÄy¬ïfPS +Ƴÿߑ3?wNìü, +½ÌJ}ÙR"ЗU¯/,w(­Oá„88×\DhîÿÐv—åw´ædÍ#—çaÔÇáðÍÝæïú7-¡8 +endstream +endobj +58 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +61 0 obj +<> +stream +xÚ­YK“Û¸¾çW°rØ¢Ê#/¾ìÓxv¼;É:öŽµµ‡ÕVŠ#A#Æ)“”gí_Ÿn4À‡†O²) +Hn _wCÁ§@ +~"HdÄK³`µ^/‚¿½Ñà,ãY°ØÅ\ÆL¨`±þ-|öûâï@‘(d$Y¦)ÔlžeYøáݛ™<¼œÍ•’áõåí,•áâGú¼´‹›Å/ß_ÓÈÛwß_ÿôÁ1ـû\ª˜Ei0WKc+cÉEâH‡;Å7á¶ÑnÍl® + +÷y[xÆ|@ +ŌKG~ë$–%81 +Ì‹3KðÏ÷¯'$Jń:¢Ú +jӘr&Ó°mP¾ì7²ªö3‡wEiÖ4eà +ʬˆR +Նž›:ß»5wEî&órM/ aeš¦¨Ê9ÈIÂc›·ða77OS)صbQdwd—)¥Â5 +Ó¥ièÓîJ) +Vua,ÇÆw‚“Ž +önv¦i‹|GŸE‰'iM½7ë"o +­:ÌæpîjçÖt¢sb¶«Êû¢=®Ý4¾/ÊW“'CÎ%¸•:5øȄC‹O›PXj皏-¨Y¢‚Žbz)bD##'dÉ¥œà1í=i9ƒóEQX ¦£8¼ÎëvKCuEJ¾€ÏX„LLˆ’÷átF`Ɣ#0ÀÅÔ$àúö’^ªš„ÿðaAkCÖ1åº(ïiÒZæ +¶Æ²˜Ð¯ä)KÕ3üdH¦“>HH1QxuóŽœVe`„xèµwycÖÞMèi> +‹²B·ûƒ¼ÍÒ¼ê]í¿õ£'™> +àésãýÛ) ‹£^%mþC‚S†ùjU +)Ćñ¨º˝Röº#5 +°UlQR× +?IÊ3åÊž +îUÜP0x„‹a +6_šÖì›.Ìíóú£Ùe(¬{ã\óҊ£)5”*€6✤k¡ÃLe·½r8S+B²« +TîÖlLMÛÄÏv'*?la,ÞÒÊ¢! Åg«¾Ýšn½èÆéÌYLmü2=t¿›«ÛŒŽÙé‘øE½/¬yŽCÐlë¼l6U½ïÆìNJRÝ¡&u¯À˜‹8 »ُ¶Ñ;«tš´dq8^äÃ^Ï¡"aW7ÐYËh¤^XCê¥÷È{BƒJxXlhšÔ ,ÏG„Ê8“òÏâ„Bœíˆ +Ð\ÎDs +Î=6ÂÇ\§l9²G ±Õ.3­¬Fà3? +òÚøˆÒi +vùʸEöœ@EçÌøç”P&Týésfêñ9í¾F0‡öt`ó +êtFBLuÇP>³x¯««ãýÖ§Ïà„”¨ +ùႦr󠪺:Ôè7§>|ïâ¬zd|ÖÕSþ»˜¥°·Ê%Ð5A·ž›Œ=—gc`à½çÂû”ç*>‚ +`oZ*°`ˆ øMJïÛsxpG©“Ô£Švå§ÄW9±ÏIØìóÝÎQ®ÿ}lÚ½é±<¬‹g¬F«l¸öº@6Å#] UMô¾ +7nóüìÆ1£ùâkҒSH$-ý”%;£•Öɖ + +,O +¬¦1žÞOMùr6yŒÅIí1¼¤gï®´ŒEaÓæõ´Ál¤Ž¼Æ`“ÚŸNMôÚµ“[œËðÞT÷u~Ø"  ¾qú«)!°Ðß´s +5ySØ,ëº|`Ö +ggy-UøÛT駢¤¯·¶¯Hݐäâ©"í!÷wâ¹±ø²«® ›«ڜh¨ˆËÇÖ\ +s¬¡pÒLé˜Z®„ÉP +ÊwuBcÛÖÁYGmÛºLQ[—à(~tm +ŒŒÛº@–á.lW©€»pH! +ÿ« +¸U +š  +Å8µ„oOÖä™b‘\ÿØy'-je‹‰º5-#U±2ãJ + Ö¸’iOê\›[ºñèÚ5Yƒtd˸îT/§ÊV3E +œ|nÑJeŠˆQ +2Ä + +vD5åü§Â4ñ۞[dáÍ%NüB +D–Ä8.y¸\¾ùGôWîÅR3/‹ëƟ-Gêt)ê'ÜYfµ³¾“á“­S”8Š‹) +Ðû{/ÿ:Ùq¯„A0ڄ`\=ÝMA“ãëùëãÎfKÐA^ÞïlI§†òÁ +Sä–Æ{SšàÊ9× +ªæËÈúêÔÏ 7·EiÜ6¢¡E#£´‘"?þëýíõU2ûñÀö]ŸÝ +DÍ°“±®èv8!\Ë®§´²ß^.&eGˆM¶]v'¥Às]XF¢wOüœsz{$˜d±Å6§ºg‰Ow傈¾ô†q‹ÏUie¼^ÆÀð舘qõÛ +Ö?Ðtþ)ÌvÌ8õ +Q¾>Z¨h/ +g\›×¥ÏëpŽ>Ø$ +ï]7@§Ñ¾ÑšÁ‰t•—ôrg—8¾Õ]›ÓMM9¿CP~àŽ›X]ÄØ¿øTHêŒ)ËÝ»±e†Œ16d +X­N.žýë›IögIw[â+²¦p7#:ŠœF=ˆ¿ +әíÀ–3O2§.$XUûÃδîkèù¸†<ßrÍÀ=V»#]à +±¶AM;N 낺Ûkò +ÿó, +»ünghxSWû©h‚×Xœ„Ó´6áäDBùêÙåºø\¬¶€²âH<ówƒ¸5[~ÀÐèø0a#®¬‹ĹÁ1ɵ,n¹ +È6½kaëÝßRÈõ«^¿Ÿö¥ˆ¥òI´±Àë”ÿ- ë +¯òCa·KŸ¦¥gŽq +/}üA‡hÓðMb( ;†C´†%çÑZ¦ÓéÐÄo~哀 *pd£[’×zÁ›êèK6Mé +e«›ãÇc³-öùü×"<ß» +fJSÖÇ9&¸xòNQeLÆ]ÑTRé)Ù2&Ò@¢Ï¸Ü9ÉÚ] +¡? S“)‹E'̳ç0—Xö̃)¿ß($ãitïZÀ×·íڞ ëÈ/'·Ÿê¾g·}&fܼuWIǶ‹_w +EpcFWR.÷]Ç%œ0Zœ.“ƒ˜~á" +}F×e? +›(˜>PRBivŠOßN÷ó + +È˲r—O(v +25èޖ‚ù½kÿÌÈ(ÓӘ‰äYN +G8ä¨'h*‹¯þÂ.rX +%^›‚Ãý5b |5‡³KÎÅdû•$}jšvµ>ä u£ø<7—¼ü)H¸,†%a²N˜ +ùzm^×Öèeøe +|n +¥ý›ÇvãZTÃZƒ% +XàV$^¸ÉÀzÞ·bPÛLÎ+FtÅãù2\%ÿ÷(TXömÜa½ +Ö¦ +9u™Ò½öbÁ·jiÄþátG>k¼òfÈ®¼ÀÌ8ôª³/µ)ª¯ÁÏù@÷y+ +endstream +endobj +62 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +65 0 obj +<> +stream +xÚ­X_oÛ8¿OáGˆX‘¢(©÷”-Ãu»‹õâZ\E–îÉR*ÉÛæ>ýÍpFe+iÚ=øÁ9 +g~ó«Ï+¹Šà'W©Z¥&Y¾*÷««ÍêÕ»l%#‘Gùj³ŠP!ãÕfûÏ j +Ê(Š‚7uÑ÷¶,êuÇqЬU +†b°m³þ×æoÀD{L´VÂÄÀ +™Hé(Bž +ãDdÆ­\6íp_uIJè֡ʂª +h¢ÝÑÿCW• +'Á·lOó°• okûù`”éq¾÷HS•µ}l)Ö GlàX^)h ·ÿËDhqBýáDj»¡Úõ¾u3Ûªî_óÅeîÝ\¸£™»âM$ÓáH²~6$£ ®/Q‚ßð# džšÞWECsÓE +\4ÓÁQ|¹·%n½'²’èMpK +åÙvÿpà{à’ãá.V­msÇb&ž˜±Ôh+’Ó‡¸ú{-Ü'‘"I˜UœH¸ʐØ! 6Fh¹ +eŒÜ7œ +ŠºoIª]ÛíO-½k͖@7ҜP  +éP +{ùêêF¡^±dŐì*@lþvŒ};Æ(ƒaè° +ã%;žë^êLè|®{`µ¬{}Ô=ßf%¥ÈQÃ;¼E*Àï4Ð¥ž[K¥gn&àÖqôŒ[Clˆ•H Ù¿~x·–R—£z[¼õv[õ¤ýᾫصfáÂ-¾ÜÒ?i™bO|÷õ’¾£LÈÌÓ÷O¿m^€õEô¤‘0ÚÁ'ýÓè‰._$=*,K[ÄO +JŸ?ÓxÃÿ“øW/?™x +Å¿z‘ø!œ"tâƒå²F@'ÙƒI +tÕpèS¸€õÒÃ?ÌcŒ¤ˆßT³COt.ŸÁ “4°Ì²n›;; +¶|ZÑli0ONYìb¶Ñ ÓHŽÚ—~ÈÍ3‘ŒšX!mð×%Ý+ |ŠU.¢üH²hA-ô˜¥XI°ëÚ=§k¥Eœù‘ÚO3& + +ü;S Ì싡³_iL¹7ÝѨ«@]µ½YcЉ\–J]–‚»ª©º‚ÒÐގ©Î{.Må"™»îûËÍ7\÷‚oá +'»›»C§{RÊJ%ÖCž">¬oåÛ$Cü÷j +)ðóÁ +A(›°Ç$¶i¿BÈ\2ñh››àíۛõ9Äײ³¬´-Å×4Öñz9f/ûsæd‘ @ÐP%cv#ïmLÞ +£÷Âpò^úv©Ý ÌY‹·ÝލVû™T +—l†ïnF¿úÝÁy(LI@]¸CLTMùø„—§R@‘$Qp=¸E¾qœh©qð„¿]W”l„”Y&zûߊ¦n‚~så(,Tt‰†ãp_0Þi¼J#MÆ$ӓŒ„ïtDHD¨²Ìºç­¼¯è™¼, óãùÍ ˜µ‡»ûö0Œ™-O ø%‘iO,ª¸ÄÃúlP裷*¨ +}Ó"\•iQ“øòt +ëGÚT¸\¿N`dëⶮhzÜq4 N: +ZøÇ}åŽ +ˆÑ£/ó‰ã>Ûð‰móû¡)e«AS²D mؕp€øÇâøf:]ô°þBKà’ßIèTã·e(þc +x¤¯Æm.:þ +Zú/ + +FŠ²ê†Â2s‡¦s#Ûßý°ŸÒ‹Ö’xiÅ‚Á¼B +SˆOTOã"ßóž 1e™3²B™‰ +±>c:éèØ­ø0¸hûÁÙäf2y,aFäPJÛTKi +ZËHŸ¤yóí*Åñ'ìàŒ + +ò¡‘3àcŒ\@p’žHΞ7ƒÂc‹xÖ¢,‡Ô¦º«¡Y­¶ +îwºFÝG±C Ô¬b˜à,؟ÐÍÅÅ%˘Dù5 +ΏÙÇh|HZE„åˆÓn;ʎ³^šÅOË4ŹÙQÕ[€ÌÀ8JyY«„­qnl(dd<·õûå‚Ú³õR'”Š|Ž™÷ß®l—ù˜ì”ÏR‰i u‡s©5ÃÊhÎiÅÈI1¡ëUQ‹dHÐßä0‹äbê‘åÁ+ª¹«½x¢Ýåj›úb}¶Ñ¼ò: +pf +„2nۓLJK™ªv +ëRoÍÛÊص• אÜÞ\ÿÌ»”ö¶eFèÑRá0 +5n(!ZZPbHÔ®õL—ZϪÛÊ +úê]é CýÉSA{‹1z‚ì¬dÆÖ'÷%SÏI +R–{åäôõ½Ô]ϙúäi ¼²ui¹í¶¶ÁÜE{Î^­P}nåÐØa4Z¤ +Úîõró–ƒ=¾ïjLÊ +ìª[ôá/&\6pØñÓ~QwU±åá?{øҀfíÈ{ÂļñQ1¢þ¥ªO„ +¦\ˆÃ#!©¾XúAˆ#§Ò™È3¿Ž¸õžžî-t.ü¶úêçŸÔÇO?ÖVËTdÙ´ÕJy¹[©1w/è0 +ôj<ƤBó” +ãQß®FÅsŠíÖ¢‘©ìÁ™aáÍõÔT6A6;Fǹ%/Jœ—:›tz°"ÛÁ&ÛÁ 䣕“)~2ÁÈ"ŽÿBöñÓ¯?úæ¡ãßO¾Ë8ï0*.¾@>ÿr±¨´Ø½¶;?9÷cÍ#ÌxÅOO<䞵8()”zÆlÐÞ&¾ÙÐq¼ŠH{f£bé%þ%U¾`ė½ü¼Ý¬~ùËÿm3½ +endstream +endobj +66 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +68 0 obj +<> +stream +xÚÅY[oÛÊ~ï¯Ð# +F{¸7^ZôÁéqÚ +4µë ꢠ©E +JTx‰íߙåM^)N 0`-¹Ãåì73ßÌ,_|Â_ÄbG)KÒE¾[¼^/~z£ÓïÜX÷[×l‹]¶úP”e‘íz<Ûߗ¦yeP¹dZ[]i=)ƒ?¿½¦A^-WV­7Å>k +. Ug{š¾³³¦—Ý +ºÖlèê¡h·=5Q˜²¨7Q‘uÿ~óA|üäÁPs¦{9æ7G, +Á,,|±9Þ¢æJ¸­Â Ï;âÝtêíÂÿ+͊0Œ~‚áM)_á +5s4?ԕ5^±±¨ÁŒ +¬«®-öƃ)Kã 6? +‘g?* +¡i·Yë6RíVVx%càSâ]š +D>}eÈzd>úSLõ +eûo!œˆÏŽ „ì•Ýàômù´\)tÚº§U" +S¦aËU +ª`½EïÇÛÖ«ît¡Oõ“›¢ó։ÒZ0o­‡·*Õ4 +McñIBÆSxFCÌ + +ÎîìÕ8ïZd÷µéã!s÷†øá^¤x¢ +ÍÛPøL +3àíÞXš¯¨)‡(XpÎRT +ƒ(m­“’©åŠs¡IT'ÖÎW4(+dðù¶ª_¹å„š¬ÇâTïGÁ•“Õ˜Vì¢l·Uw¿ÅW¤ÎÆ4&»Â8±ÆôÂEŒÆ8ý” í¦Í#Ø +£- +m0Áª»ª6ô®¼ÚçEã.jÓteK"–Ká^u×f`Ç +]Ÿi–L7¾t@j€s[´øó„w“I”’’)¦^´¯ZïðÎ!š°´Ÿ¢mL‰Šir4Ïj*ÂÜszµ˜E‰›þ½WÎB=Dü +¶ø ½ +ò,± +¹˜„¯“à¢Êx5SŒOV2ø#¬ +E^V€D +÷™5¡î‰W÷éG?O?@:”3ª +玨֮ÁIK +áKVKbpõ©ÕNù%(xÖhƒúÅþ(øÙ$$’hžšÖìabâ‰-µi +ª +%_šÖl¨ +™œÉ.Úî|L.7Èpžä’ŒgeŽäëÏ + ÛiŒ4ãýBà;BǸU7-ij¨®); ÷ý=ދ Cœ +0Ä»ŽŒñ¾§tŠ‡Ò‰, +AJKgUMEv!˜K©t|NїžÍ—ðRù|əàgò%€/{Bn‰ç»Êžuýp +åÜ?^û‹Õ+¸AÌ 55G 6ÙÎ +¥Ë®±FÆY_ Hkä×4 +I׏!Sß À‡S´%¡ÄQçM¦ß0iÈâø\ ÄÇȳd'R¨ÊÚd›'¼Áoû +{€‡=’l9«%!Ì]8O¥µõò¬,Ÿh’rŽ +å +¡F ×ã +ÄpI# +®ôœ`i$fôè<Áçá +ÙiÅX„L˜ë˜íì¢Hþ‚ê>,1êfÎéÜé3CQšþn–G•žt +ý¿Ï +ãÞÄ÷ENÎGNfQ]ø£.–/be +fQ/fe©‘•¥N-+« +K +÷y9 §ã9z0yLÍ= +kä‹i™4¥l›#‰ • ‡VTAÇß è4d‰þ´ÒLD?ŒŸôÈ·'Z´Á §w§çøIŒEÅXü„–Ÿ VÑ8‰nmlÚó˜íö\"‰© +{îãºæõÕ;oÒÖj<:êÌ´"¶YãÞ8gŽÅB +‚°­î + +¯à3ö¨¯_ˆn­ñÄA¸pJ{âà·JœbF„no=¦GÒ&-‰2 +„^Væ`·A\%öT iëÎ +%t8䉀ÖI¤g eÒFÉP¸9Sh­/ðå ê‚EÞ×¥õ~üO$F³¦i +xʐ¢àð¾ô–ˆ1RLö0 +^>é 7tçUŃºÄåÔêLá(mØÌËÆkÝ8ayôw¥‚뺰ùdÂÌÄÛ5ùÑLéêI¬0•=ÑyÜùÙtµŸ +D4Ñê¿B6šwDö5¡#<ìÍ}iòÖl¼ù C÷›%„È%„ˬn·tvWW“6כÄx +5'‘/ +¸«óÚ¾µçÿ>RÅD: +P +ïqœ +šÄ†–3QŽÿRJ´EŽ +¾¥Z1; + °20ÜiÀÕ À(©v×wºÝâɜ'D1ыCôïׯýÇY“%õ¡{ýÒÔ~=ҍ»¬1›®42Ÿ«0 ùó™‹÷¦±}ËXÎJ¯õ¼S»á\GÁÿÃv èæû±ó•ë½i.ÆfßÁ ³Üçe·é[­yãÕ×ãC£1ýØSµ[×íqõ·åB‚ä¦;¸¤né›Չ0ÈË +ڂÜ\ +Sóä3?~#Éóª#?iHÒ­@'¾( +X—Ó6aÀ]϶8° +*h;©L1¨î +=I½ˆýȀ»ƒr¶~þU¬Ö}ìÊ3HœÔ$^®ÿøÝÏ + +endstream +endobj +69 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +71 0 obj +<> +stream +xÚ½X_oÛ6ߧÐ#E¬HQµ¡má° +E<ìa +Ebj¶”JrÓ~ûÝñHKNè)ÒÁ¢©ãÝïþ}ŠD”ÀOD +ŒŠ¼äºŒê}ôz½x«#‘ð2)£Í5PÄ2ç"6Íß,åù*I’°u5LÛUœ¦)ú©šÚ¾[ý³ù«Åa¥$ÏSà‡Eê(D¹ ‰°—E§×¹%üˆ"À +WÂñºl3˜j·Š¥Vlj÷†VmWïé_ +ŒÝ +¦6ããn% +vpxáeÊê~ƒ+Öwƾh¿éð-î™Ýn¹ +·†^﫶£-g\žX +(Rže÷}i|«T³7}7šO·¹ûºa`_™0SÕ¸‰Ö9ëÌ-.ôy­RQ°}o¥4fGÿàÝh<ÚN#m÷+™³ÛŽ8韛µÝÇûÈÇ£ÅÑçdq\͒xнäµXJ®Ê§{÷TÖ͟¦Šæ³uË@42èE² +ú)Ä +ò*ãEfó +TG[G'“¨@Ñ@É¡ÁŠ¼Ð–âÝ`PÁ’ݶ5>¶¡¬“\ÑñÈːp!x&ï«v⻂ku$I’ › +×À±iiñçÊU7àÒ` +@ +ö€ÌPokÖ£oä +ÁÞ5Às•%¬V™`¦ +ñUÀÎër.’«®¡ÓЎf<ã6ÍËtéµ3¡¡¹ÊœÈ—›EÁÞý†¡'¥d?â#eëµ=‡µ¯p,¥=p»ˆ¶¹¥±O°ƒ}bx +¢3®|$4ħƒ«ªÈYOM±©ŠA‹AMèú/f +¥£L±*?H ºBõ®‚°®Ñ„ø×Ì¢rE¢ +NÿÄ`R¢(ؒާ±L´U|.3h"duȳҡ‰‚i˜úh®û`2‹œ«9àƒ%Hqå{”^YJï©ÅY` +ô!d°Ê¼ +ۑx¹î!ÙÝv$X랻¾ûØNÐʈc3¤T&±5?¨UÁ³ñҋ¬¿Úµàœ QøŽ#KÁ®Q^ýžHEY*Ú÷tCr_F +ÝGéMEØ +-v +‚5P¤l)¬ûÚª9º +&¦™ +f(ÅÁ´úèUŒWÈ˝ÙC†WÃW8šål2Ã>¾I>›}[¡‚Ð1µ‹+‚i\Å®šÆ4Ü餞琒Š§’—¼] !Ø+×R˟[;f ·i +E™ôüh:hJ +=1ðùË+<ô'ý¡:pÚ=çbSžFmêÀ¨»NÎÎÔá¶:ü‹t¨(å +B¬s‡ÉŒ'm‹ æU‚߁Íô +÷f7¶ã´è´*­Ÿýo¡32*rڞ—ðÄPt{xbxLçc—z¢ÎÞ#ë¦æ³ó A$K&¡¾úêæÿ“ºw•9ãÊXk.ô2^߶4©ÑIJ¥„RIœ|˜Úθ¡’À>¯œô¹Á, +¼|mLŽ +æYÓhý~ý +êÞs¤–OÜ^¯Ÿ7 +Ökˆ¬B(Íà‰ª@„> +1ϱ Ä×Ïñõ·C>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +74 0 obj +<> +stream +xÚµXmoÛ6þ¾_aìËh,ÒDê½Ã>¸‹³¥hš¬qº +Ë002 +“%—’šôßïŽGÚr£­õš"@̗ãÝÃ{áÝiòvÂ'üñI*&i’ûY>)֓ç‹Éw'ф~ +ä“Å-Px"ñy8Y,ÿ`<šþ¹xـBÄÂÏ# DŠpêåyÎ.ÏO¦œl6õÂP°ùìõ4lñ3Mgf²8]\ +ÏiåìüxþòÒ2çù€»'Âď³‰Æ~–×O-i< Ä·0JÙÿõÓå"ž[ÂᕒaѬ7}§Z„²n¥hp:›Š„]8 ³<ýQ”)÷3` +凂LF0Ʊ>†9ˆ‘‚ƒˆµÔ]YßÑò­nÖ´¾¥|uñœVÖ²Óåƒ?õ¢4f³ª[5ýÝjmÄtÓ3;é[‹à<ƒÇã¡Ç”¡I`4•¢¦Dœ£¦’ïP]3Üä¬UºDàHxÛh§9>THû"·WmÇ4±s®oÇä~èúÛÔK3öûÔ㜳Fxyœ(Aˆ¯ÙJÕ +"¸eg±^_É×4l{°dòp==‚9¨­ìh½´¤ +hBߗ­UGY/Õ†S0ªQ7 +ig¡E¤ÃÈ@hn‘[]BHl´*TۖM홓}';˜àfÀ֍a»T’õ’N²¦•Òþn´,º²°Lo +mA—4º/»H#ë=IQoû²nÐù¼i©ãBx‹`èΝÆâüüÆÃìi‚vëŠ{‘ëe™Ïñ=‰üPv¿N³5úoŠ!îtrÁ´j­5‹ŽVºÆþ©@üãé¹¥•è +n2 [ͦ쁶÷8QjÓÒ\âÔ¬Á(Cƒªr©´’•åV®Õ7– +µP©ohr¬²3Qò˜¼͆.Ò讯–f ´n4¾ +aÎ:fsxZV4ԍóFâ{W©# +çSE¬çàZÑôJo€.FÆó‘ŒrôدJkض„ +¾§±ÄŸ¸fï¦&Àð?B2Ú›WðpIM”–u +—[;ÐÀĈ +ß«?"*RnÕNRc +?Øû ‡í +F "ˆ«•Zªå³±à‰&C7ûĘ¿žÁØ;ÈQ?D÷ +Ìϳ³Xµ +ÖÙæ„s?GÝbžÊLžŠ¸P\†~Šï¥ˆÙÉ4Y_/å4 +îŒZSP’¾ëÍZÀº±ŒBœg†ßÂeÝ{e3y +j +Sû¶ +íåªÈºUt¼ÝxÞAèÑä +ËÚ&+Gb(æbŒiúb—KDȾÝ$ ¤”‘\’ø‰“/µ½´¬*{Ù¾.ð~-ÉϳâÄ0u8‡ñÖj +µnž©0‡A~ +sf +1j„(óç +ƹsò㨻_•FŽq—±nUõμ@-­Ñ%àÜ; +¥¨ÉÌۃïCìÊ;N¡‘¹Ð°ôµjírŸG{§ó×Tåy„wpAx«Cò^õ‰Ð¤AûçÀêOvm¿»Œ°÷|6[‚²Ð.1ÀNf/A҈ÃD¾p=V•ìki# +y71JyS©1×Ér_¤öt5Åã)\•ï½sæâ +¡É>@# Ô÷ó·¡Ià_Nõt07ñó +õîÉÖÝÉ!º;þÂ`Žs~ö¹hÌ +¤ 1&–ø +³¼‘z6ÿ¨Ôµ’6/TM}WvýR +óaÄΔ.zýþ#R‡w}óRß`ÙEÏDß + û DSâüt‘g³'P²Ô‡ÜòÅÕç‹|ÑoJ¨»zù½”]¯ë„^½þ|¡WZ +îI¯žÀ•^© +Ôê©×ñª•¦ªjŠ¢è×æn•ì”­Ww­¢-H¡¤¦3ˆ} +3à)FIŽu”BW®îi^Hìõ͚ÉÖ8Øô7UÙ®P&’ìUt¸ßc׋;mUÞ­L¾Ç*W–%¼c!t.® +ÀŽĎ +&±#'St›¦nÛ +5¸@Uˆ÷¨cpœ‘E½R²-[q­µ­Šm‡€5´jŠ†ÝÊTóP +Nw÷~ +}Û5šNÖ9Û¶§m;€,õ’œê5œÆªû€ +ûÌö™-ì/{ìýBŽ½õ¸i¼«Ù>©ž³CÍe<Ž0àZjýÔՊÂ֊ðû¯_2ðÔ~g#ª<Œ]—j”×-ž`:¨;±\Éî±~-Dõ^]Þmú–Ò®ù˜Q¸o +ö+vˆ[úéU7HÞ®Ÿ +|ƒãEMiڜ®%CÍ“_¾úԆ; +endstream +endobj +75 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +77 0 obj +<> +stream +xÚÍXÛrÛ6}ïW𑜚0^‘NlWΤÓØ®­Lâ©; +†‚l¶©ð’Øýú.°€Ñtœ‹ +:~0˳Øݳr>8Ô à:)s҄“Œ;ÅÊ9ž;‡§‘CÂî̗N1’„ŽÏBCg¾øÃ¥±÷çüWÇ7o˜d‰z3¿ž†¡ûêÈc©ûF>0—ò49¤< +äcä®χ— +Qu8‘·z×ЉŽÞ{,qÔgOc + +å!I9À–Ÿ+óᯋ³×`Ú°cJâH¯#ˆ—E1 ¥'1‰-¼,J·xå +‚àèðÚL£• +-‹2VN=6KI[hOØ+°=7%,Õ +¦,Q%cCÇû1t|q¶Cóos͏â€ÄÔñiHâx×Þ7y‘ˆí»˜=“!_hçÝõ +ì\œS +ə±Ï›ác3G{‚sü„ø;t·§ù!OdĬøæõbÂ"0 +ÆŸË]ÛYDÅÒÆO\Ÿz”R÷%bn7¬×ª›¶—3¡»lZ +ôŠ´`P +m+jI=nºµhó¾lj\Ð,ñ¿Å r&vßçH]rQ=2»åB0 ܒ +*‚Á—ëV¢ëà¾r$°Iaz +à¹´ì ¢+Úò½Â¤¹eïV!Ô +èó²Ú}ÛŽ®Å}¯®D!?AôQsÛŠŽðD ‰ø#ϧ”ÅîɛËËÙÙ +6§±ûúü—ÙoWQ‚­aBÂÔê +œ¹UދN~—‡»Ü*'ì()¯¸j)«ÚŒA +TP9ՍC®ÑÇÏõñsã&·Ÿãñãôöàád£ ³6Ì.¯6«ÃÇQY«öÕT¹ÌŸ8/L†p•ØjRGŸÛÑ窳àÈ­½³¼íïÐJÛà +ÏÛÒ¼hjm^Üb­Àü;QWQÈîBï®á>Ï@7ށiòŠ·’•Pí# +ì°ÀcÛ +}Y‹N?a¸a4èØJ¬ ssœ­!õ[±êE¾©=˜î„ +¨¢ƒÿ£¢K¸{;ä­Þ#DYßÊÙ6VKü@ÑÔ]Ùõ¢. +^ØaŒ”=PC¾R£Ðý0hseïÁ§ +Œ™ÕzÀt„5Ë +§åM@C¡#Ù¢þ0À÷ÐwMðt@ +¡^ÑÝ5C¥M×M¦?z±TE¸:_犳`ŲmVλ^ ÿPÖ¢m›¶3µLeŸær!Ö2%,ÃZ&ÔTs!(Ö3ԐÌt9ƒÞ£–pJ’‘<‚‰þ.ïå(•»2sÂÀava åL­Ûr¥\fu/ÌArÛw Y@F +df:uF02-[KõÀ–êáGmùQ>Ûåw€ØO +ÓÁÄ©—„ÿgèî ’þÛ²ªÊ|Õá¢e3´8ÊëÛJo€¼†ÒëE[þ›ÛýgÇ7AûŒ‘8ýJçvî!¡kÚ®ì}»ô†Ö­äYÉwÃHt|]¿ÒšC»oF}úÿàáF¼É“ØÎ +|FY›îƒ +VM7÷$Jw.J–**ï”$æ²ñã¤JSýï3aCCE£ÈJUn5Ÿ$‹·ŒËB÷'`\ÐJןgÜ'à‚|†ÿ:¼3Y—›"QbÛfU,wTU¡;;—ðRh +%TÒt~eR!ëKP0ùKMF"³âåÕ +ý™Íßøô•O™ +endstream +endobj +78 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +80 0 obj +<> +stream +xÚ­YmoܸþÞ_±è‡B‹fy$EQR‹~p|v.E“¸öIP +"ÑYá´ÒF/—¤¿¾3 +RÒ®eÇA¼”8"g†3Ï<ì>¯ÄŠÃ?±Šå*Ö)KÒU¾_=ß®~ºT+ÁYÊÓÕö$6R3®¶Å¿¡×ÿÞþ +$’™Dr–HD µÞ¤iœ¿½¾¾x½]oÂ0 +^½ùùâ7îK‘Î>݄B1¥á7b‰¶ +Ür;ѹ8n­1õZÆÁ—2_Ë$ØÑ6·Av8d-Mõ·k|+ƒ®,Lk²ŠdúrožáP/n¶lQ'Új#%‹â§ªtñyÈú²©i—æÎí¶3´—ù<”uƒz}5Ý3Rìâb½:þF? Î’6"áL¦n—[Îù‚" S^âÅ+oÕF +Íx®Uގ3§^Võ¦­AßßP#CêäYÝÔeNŽRÁǬ+;¿kÚsÎ_¾¡7 e + +Úf½Ã(†¼w–Ý_MÒ,Ԥדüç²5yOËv¦-ͱnÊë/ÏШ·ô 9×?Á~FÏç/¯¼Fb¶“ä +c·Õ{0C¥Sù° Fâý½ +A2L™ˆ0„¶O²`ï¼lªÉ +‰ß+Ù-ì +³H¹é?/.0Ó +<'àŠÂõqÈ\ªßË%üǜ!9ÓêÄ€¥1ÎG +ÄC–R4.eØë% +€ +8t„2´Pÿ^š¯‡Öt݈,c¼_\ŸÝo·âvíÓ=f2žgûv9 +몦íï!‰ÌR`´$@<ëN²ë®©ª† ·þ䤋¢DQ±Ó¡¸ +H¦A‹›¶¦øÝPaô +Ȫ¶søЯ¥¾`apÖ_® +¿Ý®Üg›weU•Ù¾£¹¬þT9HVAíMõ +Æ1‡%¥^Ä +ÅY +Ž€,¢ +Ó) +²º°:Â8J܇˫oS˜%“\¨6Ð,z +€’”ÉÍ6‡0XB–ÒK9ÄCÙõ®À’ÿ¾”ýnŠ`M,-lÝL=šLCç{ ++~8D—فz”Ï Öd9*±óÓÙ'à4Ý7ô +‹0>7-Š%—‡<žŽkv.'þöå!ë 4„\ƒšhï7gµ·¨ïÍþÐÛÜÀgÒEûò+9Ãó +²(²ëÙԒ ½M+ücÝ.‚ސuùy°v‚PYÓo†?P +Kt!gYK2Ý®ª‚&릧—푺Oº¡=´%9æ¾ìLMEÙå­9du^ú­;$eç7ÿ¯±Vñ¹=™E YËÖ¥ÂàO&_½Ã<̪*Ë-¡+|À±Øù?ÑËóìPöYY“P¼fÏü¹É£¢²8q§rÕ®#fÁŸÜŽ,fnê¡÷´ +^ +@ˆƒwG!üS +ðV–PЈ¸8ï靋qÂ Æ)°I™íõ gGêtM5X}¶ÄÚÓÚ§^×·MÝìñ¼¢Ä:~ìÌagC­+óq%ÁçY +Zðt +ºÆ +Å:ÓÓ;ЋY²R×g­º£ß8wÂx˜Wì¾1¿˜:·ŸK¿R¯=XA +p¶Ö8,s¬ëøålWZ¼WlM;þö ւ + }›ÕÓ*÷kÈIƒº9 §xrǦ‘{8þ?vš¼ëˆ,1ä’Ü€Å+ +ƒ³ªk,;ŒGª£= +†Oð{"¾Çøst 0 +ǁ#ΛÊü†@I¬ê +¢Íót“ÛGNž±Éúú t1Íä<ãa‘³ +UЯ'Ôõxì¥ÂÙBϯ +ÔfVodÊ +Ph +§Á¯öĺžîZÈ;< +|,³ŽFÄavžÿ8Ñ7x2ve(´'í7 'pš¨D +2²j´æδ®'難+ +`½ç×7Är]T¾iqaKÒY}Òß0üµI8}<楌<ï½´ +f€N,{´Ÿ0Ðu`Ù<Î2ä€6ÉtjËIez÷´ÏúÖQÊS*Š±7¸ö­.[Ýqš +Z‰×WϗÒ–W£PéÔºøÌh÷Û@àíšUËæ1 +&^ ÍGËß +?5Y +Žªˆ +ët2în¨ mR@Bƒ-ÑqœË—įí6¦Âüäû+:cÌ]Ѝ— G¥S¥SÇD‰ôêG5™ +ÏÃm¸ +\P£F¾•ÒÐ=Dó˜:s­À‹Ð(h\f\ÿ‹q‹3•K +ôˆ¸Û +eq¼ˆ$;²óòÝb¢GšiÏÂ[Ó-ÞàÚã&µß¨ÙQa¹o +¿NNø5,¹ïLEÆØm"FÂe +;QÀ‚DpTÖy5¦¸]£õۜ²2KÈnMәɯßn—VKlâHbÝíålցÍî±ù@Ý0 +jWh;ªIbOu²ó-àÈm`A$&ÀºÛnNKªÔ/»%aûŽ&vn@U†Þ¸ôD„Áµ²¢°Œ +†ˆ„öwçö±í5Ôô¬w/æÜÞ.vthÙؽ:Na®ùI˜Ã + +óüJ9 +Ÿ‚_Écø% +~‘K»¯Å«P‹ ¯ðᓩ +–“Â)G½ml<`-$H,ÐÎ)\.ßÉWߩˌ68›ñ +`ñ‰¢®Ì·+ Ô-@CŠãÌÍßç?à>¯BN=XÓeíX:lfý¢¬íÎ/øvÂq5s‹zÜ-i„ +ãÈ-Šfî{F;P +ZÛßЛŠ® ò¬_¾Ú +jwïf÷ä~K¨Ñrۑ9k†n¤ +Ð5±TÍ© +‚H +H-ŽÕÍ2Tœ6Š"!VŠtÚ +ê¼y0-çÈÿϺ.§º>æ +°=ÿÞ8µ&Ϝœ,è çEøý‡›ï”>F‹níµnUá%Yë<Ÿj&Òy,#v×Eø?Jceaùº´Wnö†¨™n³‡ºì}ó‹ؐ„#ñ­»pr·fÞ´-u6 + öÍâ%o +?¹)—,/6§néÃð±*»u«œõè¾Cŗ//®oÜí×ÖuBÛÕ?ÿð?f¡ÿ +endstream +endobj +81 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +83 0 obj +<> +stream +xÚ­X[oÛÈ~ï¯Ð#XÎ +¯í“ȁ‹MµhŠº(hjl¡D//q¼ýó=·¡(‹Ù-Â€57Μ9—ï|s¿.ô"„?½HÍ"Mr•å‹r¿x»Y¼¹Š:Ty˜/6‹(2*±‹•I”¶‹ÍöŸN—ÿÚüu±ò36VYB3­ë†º¯ËUdã`_ômõ +ÛIзš{hÚ}Çý‡¶Ùsëý»O·²¦áßwןnÿÂͪï&ß?-W& +šÎ]À`¢ƒbiÒàë2Žƒ¢ª‹ûÚñ¹÷8üÂí²¨k%~sO/¦áF1h%¯ŠáߛO²jz})›È¢ +¹w +ªX/VÚª8¦ ”+ +\+÷³6 +úÃ† +ª + ‚»¶“ÁQE_5‡ +Y©œâ*@¶ix•¤èøL+£éàÍ2³,1‰ ºáIôÓö8õÖµÜ,žžêª¤Ó: +éw +,P* +’Æz¨ÇµëD1ZO4c’Pe^w¡ —«4 +Àn:I‚ß@ûÒIqǪ̀ÖäèQü}/—(A¾¾ +Êþ•DO­+]ׁøÜg׃˜,Wy65—çAÛ +ànÆüq¬’dbýoÃdFÈ(WАe +oúÔ6dÓjë¶ +ÝÌ2w]_´ +ØcÇhÐÀ +ñëŒvÁ¹Þr +F +¾ +ݮګ¿Wà°Å^Žbõ£ƒ„IÐ5þK0 +Ý\‡‘Jã×7Ÿ1–ÎU”ü€­,¸|*ß·®ڃۂ0ùlç +F÷Ь`¦Ñ +ŠU’GäU×;¯7 +{®ú +ɚË0h¬}áѲ84ðñZä*`Ä +8qa«CY['Ê ótª¼‡¶ØK„ÞWEwp´` +ÆÝaeàY= +öÄNl`†6 +}ÞU%ªg7k’xâÿ +zL¸HQ(˜Ï”AŸVID+ìœsªº~Å]0wL¤Lt4üœmc¿bɂWr-Ž#¸í»ë +µ¢å±‰øÅ­æ×ß N}”Bÿ.Ð~G°Žl@åDmKn+q¬3.31Æ +¤™è“ ÐÃðÐÍC{:´×[º +ù›kG#¸CJ™š +NÐ"À ø0 +J6:öðÚøûËF‹˜us@ +OS +Ü´¸c¢šx–”‰²è¤õ¼s­;β,Äê‰[º_‡ê@ÉÔ¦ÆÁ¦VŒ€-”§FÀ¾›=ð+6`˜J)lc2A\ +kñÔ®ê¥û¾uŽ2Ù3ê'Cý $`@Ú1La¤Tl +D¡ÄΚ*\ä +Øhîû¢b(Á˜Ãm0š­ù¼ú±ùĺïo7ar9gÞCh4/ +QðÏю$Ń$ÛQÀc(™éÉaèÅT}~ ÎTâ%ÛlHëxfǿϨ>W×|ÁBˆ8oµ²:F®1IĘ Ô`ϳ*ls·ÆœúĈ¿a£löOµë}ÏAFé+ÂIø®v-¸ +lÍæGáÅwž¤À<ñ¶s#ãvQ\o>ÝÞ-/¸óX}¥»ã.Q"‚ÁøfC +2Ž +a¤††P™ºh¹¿o¾ÅƑ$B'¡È‡É¿Âñîñ0¿žÉ7ÌÙ£P.ºÎ }Œ‚õ0Ç¡ÏeËi1§Ç»l˜©“À.ä¶Õaëx>*êã]ÉhΩ_%±17͐? šÈ_N+Ð¥g +PFå‹qÍ*hOx‰·a£n*á Ø´s@ôÒ'x?§ëž-–^GÏÉùÅMï¢Æ.; + +sgº(R¹9s*H0ôÞÇFÛÔN†$÷`Ü +ò´2p’Áv²’ìi„æ¢5e³™–ì#k<£zÜù4˜‘KwèÆ\çwáéϧôûÉ? +O‡xÓ0>9ºÓ3àEè1Ç3¬9 +¾B°Æš” +¬á«k»bŽzÄž»k†zË'È+3™Vx€^+³ï?Ø°Hô»^_¼ÚÑݵžª'*™Þ|¤tG_°':c~ÇP@ðûü.:Öˆß}@‚7—Á ¥'ɐK+¾ð±×»öüän¸jSŠ'!tóݑÒË +YÙç+Ç*M&oÀ[çñÌ«˜[·§„~›`Çì€ +9 +>ºƒk9SÁG,+48Lã#³‡±)Oõ²Ã)OÉSžvæ“ün6q*¯¹8ƒÀðklJ}‡æýÛ†÷®ß5dIªpèüxmœŽUŸlyïùÒ £‡4Ý=7Ž•\ dùfæÝjs@H1îgXi}¹âsH6òžÐ¹¶ròvR¡LÔq}⧠+ÕÈ;'<ýzí«oï®?z?¥—R=#NÏîùŠ=#à\}e°€  +0šÐ}&Vè§Å—‘ÍŒeB.÷•e3ðˆv@úH™Åë†X„T9]ÁµDZ¾üðñ§õ +hÃz›¨POý—ªPèÀú?`MŠõÌoÍ®Kƒ)ÖÞº ¦ +”ùÓgltµÌ +– +[¬}µÍ#ܝ×ÊCÖ $t~\>G¸ê›Q¿óWÅ«·ˆ±Gjˆm2‡5r1¸­š¡ãÑ«èÚ2EÄQ¬àa:Ü?EZdb+ÅÚ¥àUôé°GZ,–ç©Þ +¶Õ]¨­;">ɂ|´`†%dÿ4G¬p `”dc&O8q{sµÔ:Döˆ]ÿn @̸Ԉ㥨t+Ùe¼qçËÒÕÑ6pߞêâ€dà +§z÷­ç)‘/òׇp*çžó\ìïäaMaNŽ,‘åÚçŠ+ޙݗn¦âªçy@‡Ã¶›¡ÐWBë80&¸ä#Ñԁ·¦}R•eàùVe +(Ê,Wø%îø +ï¨ó4y£ó,ÄþåKt÷ªîbáã +¤4Í[ۙ­M†— +JnDQ +[ìèr¤Ÿºè:yQٓ²» +”ÊAÑ +4/ô +Ϙ¼ù¿^Ïë1ùÁÓfk߉Š²ÿ9•$*¶'©„­7‹Ÿÿô_ã–ª +endstream +endobj +84 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +86 0 obj +<> +stream +xÚÕXYoÛF~ï¯àSAµævï]èƒb)­ŒØV,°Q÷–h‹%:”œãßwö EŔ,'šÂ€9ڝ™o.7xÃ  +”Œ‘Žƒé"x¿½áÁ(ÆqÜGD%",Hf +D÷þNN€C·8˜HJ`4 +¢Œq8¼êŸŽß'ž¿-1ò"&–öT2Ïzc,\­Ój/ïݯ‡^DuXæË +UáÚ¬Ñ0_™'ӕã¹+‹¢4ûW¯¬2 +Šçˆi+|–®½ôŸÝc/2Ë +¤jÃ)ÆÊm÷ª¼p$GŽ Ô¡8P(V‡¦ˆˆ€¡Øa˜w@US0¥fÁø©bÍmX +RbÄÔˤ¬<!-1H´¥¼êPÄfÞ +¸I)ÃËä¸KTDIŒ o"öÀ§§FID° é’ç¡C£Ž‘`AÃòk + +òM€m±qÄuÿ˜·,Ö!îТ†ï9€ŒÇTÓNtTZÓ +·ÜŸŸ¢ˆ ‹ŽïDcÄIаìGGDGAÇ5cD2Ë´Çë2!µŠ¸%€$ˆ—pƒ›<Û +â±çhåF[ˆlÕn!ºÉ³ÇriRYìKeiSY +iE±bR‹ +±fˆÆmç̂Žú¢µ‰6‰5î=!֛ˆŽ¿ò»§K!žMvï€LTg“øº»ø}€%ꃫp×ójdt2‚0ÿOª +ì!Š + +æ^$DxݙìrÎí@3DøhL¥ø΁–?^ ‡ø‚@ËÿY ©ˆýK¦I0ÒÎ}j3Tr"Ã!̔sCª°¬ò +¦I®Óu^.ÝþCZ¥‹lU+˜ö8ƒQržO +ÓÜí§UæN§fÎüа”émáåßUåÂ1¬çžs4¼˜ +ùCõéiYUÙÔ¨]yîrsÊ`Àí Á$¼œ¥Ď« +¥ÂEi§âYV¬Üð9bZ.2Çî-‚µòv•U`2 +ÌFó«^¤öv¶Ÿ°‹´ª +{·ýþ1uƒw¾Î³Î×0Ç`n +ó}àî ¨Vf( +z¨}ûâo˜Ä"Î5bÜT‡” +›Ì÷Úά®ÖUžn¡öPf‰ɮщišÁKf'/ÝçŒÖ-Ìlj¥6ùRۘzkg¼¡ù2ûò¬ÏCV¥Ëð#_ +’›A»•_»\Íô +¿õ +b}>®me_ñ6Ú§ÑT +•|»êà½`«Î>ç5GV@ÄmÀÍzp·û17.5nÏfÙ{"jÔ7mãÒü`ÖоcØÔ,òñÀm +7áÝ"àRÄ5.ªh˜Þ:[\ہv +‡®ž‹G“æ€ + + +«¬øì軲r»yQT!ªÀHAŒÏ§¸ùU“à»8í„ñGä„È~1wƒ‡“ó7àAE˜}J +Çæ&7ðr€F§ã·£ãQbXyxv~6ôñoøŒ¢–Ü~5]eÓr9[9é&BæY¥³<]n)ÙäÎàüòõÛ¡Ó1¾ +&£ó3w®?¡O;ظÑ? +&à +wæ&l1[êw÷àHsM˜Ô„àX0ÇðùÇàÏA$ +‹ïƒÑ—Èk@tœ¿Øè +6Ú2·†ÊҌhÁ°"*ZÂ4SAµà-›q;PgÉðZôèúÈ1ŽNkbPzâtt橓§¦îÁ6 +ûsWcO\×Ä3?줶F +—ΆU\Ï_ƒÁXã#§d0z¤\ᆼƭU¹Y•õLå>£èäôdÐhê'C/'Ö$̂µð~Ò!›ï’ôG^p’Ôb/“F*ñÔÅø&dGì¦WkoàZä/@3žÔ*ÃñÄKª_ë:ÛÖuq6~ݬø¦òî§Ċ¿‚ +endstream +endobj +87 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +89 0 obj +<> +stream +xÚ½U[oÚ0}߯ÈchãKì$“6)¬ +⒂©ŠÆ4E”JHmÑÕþþ +Û 1! +öaâÁÎ9ß9ŸÇúc! +Š²ZÌèÿH˺ŠÌš‘ÏÚ=ŽÌ‘1 +.|ô€s^f +¢Vëýp8<ÜÙb +QÉÓÍ)¿¥É¨œDåi ¤«¯SÈc= +h +N3&OF±³,ÃD¢«¥"ñ)[ŠkTÈÿ®u¹-®Îeçè}WʒrìªÁgîénë +¦rQ˜7¥ÏÍì– ]ܪBïШ +ú&†ÁêF¼®Dº­éÔÑW\­Uq Èw#h¼u·<;|~TGŸíÁ¤àvß8tæ +„~ÁŠ¹uûéÚ`xÊ +endstream +endobj +90 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +92 0 obj +<> +stream +xڍVmo£8þ~¿ÂaÛ°¶1Vꇴ¡{­Ú.m¨´Òåt"à6>Hy¹¶ÿþlI“’ì†Hñx<žy晱½ ‚°üäSäC'Q¶Bç úzÉÁNˆC”u—KUGnº‹É•ü­•ÖLÀHÕŒmotiÔªê¶VÌ(E¦˜ +¬œƒaÎWUÙÈå–7`[•×L3žwµ^ՎSêUó_›8B®¥u-·Ú¸ú@3 WèZ·:ÈØÊ»¬•Õn›[*ˆj¸¶?J + + +?‹Ò +'¦sUKcwnƒ +:ö±oÅۥɸM³W™˜cÂxZQîdª†žª¡KU +jIDUt +ªiˆ=וW +ͽaf[‡·UZ³Å• +h^¾¨ËÉÃÖÙö3¤¯7»šHŒžlºMŸ +¶ÝëR"PP¹I +Þ4ºBj¾JÛZ¼ÂäZÑã`˜¨š«1— + +¹Ìqým8“›eÄ,‘vÿÄ·“¤3·`œ^ß^O±qŸ$Fxˆ• +WŽq, ‡ðUÙµ©*ÚQˆî +“~߯Mã ×M£Í–ß ›ä9¦ù¿]Ó®xÙÊ;^kžêtÅA\ˆ´9ýÌýHS£~æÕzùÞ¨‹ò@VÓxvY}àéÄ(´fÐ/Ó(žínŒ#³ñ`ž·<5ÍR- +!¯ºö}€Þ2Úd'œ*ó›ßá8ºÏ;QÂõÙVB]A7l÷ò‘!›u”¿i‡ÙÕ¦ +âYßµwǽ¨V +QòOP58YþoÆ*6Þ +SföC|T?vSx¸Û +° +æøü8ÔÑK·E¥º~wàÃ+îmÓ´¢ÌŠ.×Wøö±„YVÕ²ÕqL£hÐ&Ñ}t²ãúdØùZüÃŏٰ²Ç‘ð½æ¼|ÙÒ +ìµ|!Ëc +³Fä\}ŒfDÂç;÷|Ì홟%ƒÔ'wñ.`¥ü~;Kº“é$‰zR +÷³ïKøÓ+ⲪW¦h¼àò3+-F-—å“Ÿ¢ÏV¥4/†uU¤µ1¨>ŠÿÎÛ>{ùJ½ÿãíñ; +endstream +endobj +93 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +96 0 obj +<> +stream +xÚíXYoÛF~ï¯à#՚ÛÝÙ;EŠÚ‚S¨HGV»uQ0’ + +D[¤üüÎ +)‹j +WF\ Òg©Ù¹vŽÕ—Ü%,¡øe‰†D+KŒMƋäd”|ÿÊ$ŒKm2ºFŽ +a<MþH%ὌQJÓÁqtú®—q)à›ã#Gó´?x㑾ÏËé$¾\—³å‡@ŽçyYÎÆùŒñמ—~2N¤ì3ü}[ÎÏ磽b2.×3M˜õ­ +˜¤éY1ÏWuQT³bé¼ZÍ>ÕòGƒáyöã`4< +§Ãó@1kÕUx%QÇ>{÷ý>{óëƒ}½Øޛ]ž +=BÊå=){¥ì +Ø«bµœã)¦H5ËçY5]­\Í\úì†o¶ +ÏןjîÅíý?0~ˎ¶O¼¡£-gNGÉ]B˜`ÉÇ +çeNË"@7«yrž¼ +µ&îÕ`%†@Œn¦¡dÐåõ¼*Ã"_Å·y*èº˜Ï +WŒËÞ@yÌÇU/Ó>l ъ59½[ϖ~ã§ðÂl¬3‰%ë­â@`´ +¡àåÑÍñk"Cc8©_)ƒҟ:j®&„MßÑÈÃØ6“±î_tá„ÖmÁº”3­€òZšmq[F´‰ìWئ:"läè4H!f¥LqK9XM¥‚g`Õ +þ ˜:Ô`bˆ­ìÿ×çý¦Ô +#Â2¾O*•Î +¯’R[+7#૆“ +)%¡ˆ' +§;6P¨E3®No¾àF + +(ý §dµ\ +!EG1Š˜„+wRnÛmýöqÜ¡4ãJŽ_P"µgÃQŒ~P›¾Ä©Á¸MYÝ/6Äj·OaÇh²U1O˜êr{S¶aêvêL +¼€hAãÈm¥AmÑ&)±ÿ×qF +4Ýt(Ó®Û6öH¾+ +ùF¿aYtH±.žnº¥4BÊÎÈÈχ¦É­¤KÛ  +g¹"T¶æûfš‡©SñÙ +íÍ° +3î*]F¶Û^& +ƒÝsÅÁþÏs‹íÎ-ñ5ç–æŒ +œZ+QÉCU"pÊ7 ˜RÆðg1~( +L­ºìéhŸOnV“¶F—üpÓʪÔTK¡ì!»6jŒwÕaÿ/ +:vwèˆÇ +õ˜öŸºQם sAk8|gÒBx& /­Â;ú¼:“¡”[f”9xgRÂP€Cv&† +-SÆÂÓv&&e”UíLxW +Ccߙp +Pi| +F«±.² +ÿ2„'™„Ù<‡WSÏqêá9-xNËÏ!±ç®á9$Ûð +.÷Âsh +÷]°tZõœAiåQ +cÓ²ÊWU ‹k|Zê +á¨ÿ°7l +ˆ›½¥÷v5 +Oєb™- +ǺÊjæø +¿N¦ó dœ/¢¸™gö-WërJz™bÁ|ÕÀ%Î玆ÂØIÖ(Ù)PN@¨V`ܲ1/¬óå$ÛƂÙÄÐÿZáY¼¯òYÜêCáˆþà,ê +F«Él™WÓÎ;¹?eÝW.Òðð•N/;Ž +ÀềO¬tj—-'}õâÉ!ÚÕ[Õ TÄuy:±çU±ê2L[7ÜèÖ¿‰ív©k³}Ðüè +ZDzŠ9sQ¯bsâírA$û@6%Q5Æ-ˆ­ +×´tÿÚxãˎÏn~Ô܃ãwù«‹ËÑ>FŽh ´-ô³ªÐµ·ßü +zœn. +endstream +endobj +97 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +99 0 obj +<> +stream +xÚíWßoÛ6~ß_ÁGy©X’ÇŸ6ÌqÜÁAÒºŽ +8[†AKÜƀ·¶ƒvÿýŽ"iK±¼:]¶æaòiêîøÝwÇ;Š|$œ0üqb1ÚQëÈå +9,Èó—’pF +s¤x‡¹Ð”)®~̈́èüV +£„­I€QTkôª“sÆXÖwO‡'ý³(¯jò9HKÁ‘\:*y¥õ½×R,ë +†\ ••·WaÒ¼~fƒîÛ0h¿K+à )’s JU†zݓ/%³iy÷ûøü +EƒÖEÆ£ãÓã#mEœŒãx +dz¨Ô©¶Éã>ÂÐ&ÞîÕf~9_,&—«éüv¹â8àû!n +†ƒnÌX¥Åêç +ó¦ÆyÔ؉ñçÞ(z³š'°iå¦\-¦Ÿ÷â²'Hg“Ë-Öâ8Báý엋Õu]ÌW¥ç-%ÀûÙd +˜¬”û£nƒאˆ–H +u‹~ +÷Ûb?X/狛ÏÉl²\MËY¾š`d—ÈW9«“—ö¼ä~˜ÏÊE˜oüùs²ºèìGô¨é†'sÃkÑ$–í¶3ú¥iÚif'Ãvoš®˜Oùƒb”â?è§ó +{ú=|}z?‚ãaJ°4ñ‚gCÆ.Ò9.Š‹Nr +-ükáÞ^Î·ïwDyO'GãûÑEÐõ°ÔNP3WûùH(ǂù‰ C7ƒuT‘"[ÿ›‘3ò¦µŒKf|ö ŠëI'€ +]¾›­–áO¹ˆ«eµ ³wóÙlÞ&û´|QhãVŠ*žŠ™ÀǟDÎÁeŒbu6\-p†ÙÖr֢ä‹þ2¡Õ¶ÊÔ ý„»šo +(@ì?,Öæû–J%ÒkliŠ:cýkM$•_;·‘á5Ôi$1ɽhÙ(K8˜ûÒ鐉†SË«Lô’øþÕð0p +ÒìYøƒÝ.Lþ(—“«¸ƒPÄáÞPí ¨HŒ¥LÔ¼ñ\ª²Ã´¤)Øj姬ȭ!\R”Z]F!'£G_pØU‘ÀI©Úâä8Eº +§: E¥Ú‹â`àOO<À¸mxrÕC6ªÇE“Ç¥@¸Nî8ìJ¦(ސ +ø0.yÙ +ŒZÇC¹M÷?>÷‹ß#Ñy¿>>j”ŒT $ö–zc5µ´”WàÛÕ¦·Umº-›æ M¸ó3ªÌæg™Z÷ ~“`e® +3(‰ŽyÂukiöÝ0 µ;-R¦·Ò §5s&^±F$Dë¤ÄþšVráÑë–ÍŒ/ÎùZDÁ¶^5ÒµÈM‹çùÜXY;~ÏÊÆȲ•ejF¾˜aÀ¹Õ0ޕ4eªvZߖB“òßÕX¿:mzZ¸C„›±_ý€=ÜfáâTIŋÓß·9¾Ýæä·ls8“Àª&u0Ð` +ÒØxiúÖ݊a„åÖqõTºU É8k™DhV«X*à +(¥Ø#Vm.˜µVaÔæÿ¦óЦ㶛ŽüÚ¦£¿¦‚ů7ßý”bÎ +endstream +endobj +100 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +102 0 obj +<> +stream +xÚ½VÛnÛF}ïWð‘j¢ÍÞI¦PÙR +‰¡XLà . +Z¢c’h“Tìü}göB‹ +¸¨Q遳»³³gçrfƒû€þ,ˆxé„ÄI°X'iðæ8`”$4 ÒÐrM˜Ò埡"r0d”Òp:ð(ü< +ÁC3£×(‹0¿ß›rÀuøh¯³:_ºÅm]l¾¡(ÃÅ*«ëb‘­ìJ¶ù¶ÊëÁ_é{8_îœ/%'Z +<Ÿ +§ÁUæAc(℈`()&5Z€œEDÙ©?¥‰ˆÍÌï=‡1A¢€IÂí¦WÔé0ÖUJ¤ô¶Çˆ ÔãM"Á¨ +ü)ÆĉcV©"‰g™å‚ +-b®¹H8¼¹dG;a$Šú„§Ç`Ldâ4zA°Õóð€ýˆ +¦ +Œ9×qž!’ÈB"ˆRÿ,ç&J¥ÒLè—ò¾ +ªŠ¨<Š¢—2 +Þ`,VR ­cªr×þsNb°Sš2ýÂð©ÔškIE,ԋ9Ûü"p·’”Ëžò5‰¡1Ýq;¬ýӃÚõ + +4QD[­ô6ù‰°*›¬)Ê +’Ž—Åe"¯òÍÂi\Ã'óIña€b¾Á +6Þl‘­ +uÖTÅόÊûmn +3#—~Êm¿«òïE¹u;Öys[š3^á”èó¸dPUâ™U“ôƌ? +ìŠrÝcCå'«‰70FÌ]ð°ŠŽ´aj)w +㊠¦¡Dò©¡DÊ7X|´‹mCEßP@Üm(0<ÚP B2çO\·ŠŒqª¬q+fww+°‡¯qF‡‹r»ZZ±ØÔMž¹Á²´_,nÊÕÊX}xd0”Ðð¦¯TxspVg£ +7Ø8·6ÛpúdYUù‚ð™ýD¡ao´ ÷\° +ÀŠ'kÀ 9õ¸„ÇØà]p—ÑpmÔ +Œhâó—XX^7Y±A7¡â5Þó‡•ÁeUyWY“¯~Xå¦Ê6õMY­M PÉ\—N§3;³{G³Ò/¡ё¿Ù%@íÍC¥Ã¯}™-I¬Û»A,t¤Ãic.¬O‡XÉ®c79gUp h aSÚo¯§›31áìãG +ß +ù +úÆÀ͊«–kP¶\óh– +ŽøّQïì8w +íë"°îlv:úðµ¤qóùçÔäî‚1ßñûïÇÔÙLS'ŒgÔύ16vËÀ¦»;²ÀY›fÃMKB¸ñ~›mš¢)òºû³ ÏÎ[ÿøk‹ + +b׶íaID„¯íÉlî£xqâ +Y+´Sç­0;éz +qÝã“Ôó—U^^¾^~µb‡µpâ¦*ÖÙéÅÜJÈ +ø]ç™ó%6{c Hòˆç¾°«!£óÞ9g\Rz˜Œ¨É÷5¿ +Ó{štÜ£Ø +ÛÅå¬5ô›sáæÞñ¤3g;üÚ9õ +oo§Â7ö3ŸžwÁpöUÎè¤Ç(ÿY~ŸÚˆaçÂ=>ǏDa<›O»Žù~å&ÌÌ!:ßÝ89Øèùò(֓m±r8M{@Á¿C]Jáòñ™¼ñq” +:¸-¹ù´-¹Ù¼-ç‘Æi¹¾† +·Õ?pßzjq֜GÜÈ1íìY—¸¸¼ØOŞòÞ¯ê'Ø{l|VÁý¡XÜZ}xºdð oì¨.–ð¼Ç·¤¹U±ÎýÑ +æÃE/ò³yÚÉÄ?:ß+¥ +ÜCŒ¯Æ£tâÙñsK]ÒìÜzë§_þíC= +endstream +endobj +103 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +105 0 obj +<> +stream +xÚíXmoÛ6þ¾_¡ò:±$¯6,MÝÁE»º¶¤[†Aµ•F€-µ–½¶ÿ~Çù¥V¶ts° +X +D$õðx/ÔsçKÞ',¡øŸ%š'ZYbl2[&óäáS‘0J,µI~ +ˆŒ+ É翤\ +~͟!Âì!@K¢ +B2F)M‡g/Æχӈ—{ø +˜%ZâS£ü®G +f5N΃A&¹L«bóÛpHi˜]¦áùäًgOè7a’çq0 +OÏâðÉx:Š[Û§;"c\¡Aš0Ê×N[IÓ§Íjp³rQ¶ëªXdërµÂá +ÇáÕ²ÀÉÇN“º £wÍ¢XE@³®š:Œ?•ëËñg‚  ñd RúSÏϞ?w(áÍ;Ÿ +7ùqü8š19çùè@z³œÉχr~˜æ7ŠÉ¢NGŽ÷[shz>šL³ïFùd +'Ó0â”Â-í +¿|ñy\/ÆQàënà€Ó1¥—]ÌóürЙ +ngÕßoUÏ›yU¿½!Ê·4rrñytQéý°ìÆ£üÀ˜až¼O,ù AÜÙű:Y&‚Óíl‘L“WýŸ­0„Gä×å €MÞ,Öm˜«¸Zø‘^5‹E3à:ýІ/’£<†~Åó½ +¼šaGpÖ7aR¾ßTµß÷1,¼)Úr +¿|.K¬ÏœŽÎ2„½èöRk"Å<î–ãW¾’öÍCë„ Âæ4b;YùäQ âkëþA¹–R‰­4»‡¶Œhá—Hq= +6"z’DÈÛéC)S`¹±’Y©í=Їjƙe”g2|n +/¿8¸üÿ8Ñn© +e 0™àã&©TL]_^%%hK©ºî¤BJɵÑB›;t§ +WBs«íÉÜéÕ`®(?q”¬¤@Šë!£ˆI@¹H¹ +ì˜>Ώèã¬çÐ +Ö6É%R{¦K´ƒÚô[L +lÊ SK$Ç´¸O!ãTÙªxO˜ê3¹)ۂúæÝMŒ +¦©J‹˜ÅÐcñ FÛK‰ôßiŒ¾Óèºç0M(ßÓG±æy~ +YöH±ÎŸ;)`ú¥ì„´½ž‘íšÝ}0kIà<–nT*}zwPl³yH;ë&>÷Sû.[ + +*7·únq“†ÄîQ1±ÿyââ÷,qi`TÓR§öTŸ" + + +W\hPì^äŠAâ†äˆ>}zøóÎÕ +nÒÖ +ÄɈÐUjªA*©NHیScŒÏÿYçßÏ:_È`ÿ©’ºc&eµbæôÌFzO˜ «Va8H~¿˜Éø2S{rfRHÅNÉL +iI‚RÚ»e&&ÖmÜ(qRfR +Ï¥Ó3“–øËTÜ)3C É$u +¸mÇ +ÓtÕ¬ +W9&̤ó +«^(We=‹ˆ7¾Ž*×¾qàþ”eíÞ¨t +„W(‹­Ïe³² +»›«°º¾®âJQÏ»¥¸ýݪü½j6ñý²\_7þ̈»L%×èso«v¿Q&Nñ-±þHr¢aË2\õÈPDvà´¨ßb¢éQ‘ú®™WãéÀ|‰žÝ!ÀÕ·U]{ùn͇ +”S̆Q„+§8WNq'Ä) +–1ˆôÖ÷ÝüCµXìäã +Ë4‡ +2-!ÞA¿5Ä{VÎ7«¸zLA—ú8äö‹ƒÃƒ?æaP» +» W<@£«üÛ*>qké‘.U/> 7ؽm‹e÷F|´èªYEÈeږq8-gë­ +þâºè™àï£ +oSûã°˜¹ó¯Q;ß´ãÝ!âÛÚA¤hó¢§ëŽÙÖäÅë)U}d üÁ¬ÛuYÌÉóc¹HT}&–ö‰•¾‰€¤kq¾úêóþ²Ç +endstream +endobj +106 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +108 0 obj +<> +stream +xÚÍWmoÛ6þ¾_Áò21|§X à +Ç +ôÅuTÀÞ< +ší6»µ +tû÷=Š¤-Ù4âbÝPˆdêx÷ÜsÇ»ú„("ðG‘fH+ƒ3ƒfè:G—·¢bPþ +$R¦0å(ŸÿžH,;)%„$ƒn‡éä]'åœ%Œu ÿH÷'»À“Þà}É_Eµ˜ûŧj¹úà +geQUËYQ:©bõ¡\T?ò;0.Æ +`XqÀ`3YKôsô a*(úŒ˜ÆL£TSÌzD‚‘ð£D÷è­óF6ú +”pÌM­õGë$ÉÕ©«6 +z)ÇR¶¶ +ºà¿d²í¿]¨ý·µÿ§5æ3 +à + ›qi +¡v²FڃPËÐ +܏F{íf'Œë6ùÃÂõ*ðö©ÜVîG±ñ«EåZ×ûuY®m+ü\½¨í3PFR‰• + +ŒÁeO!¥Ü$Ce֔1%43Ҙh)‹ì!Bð +\%‚EÊbRëäÊ÷QjŽIèw¡NAS¤×fX/^CחØè̾VH`Áýkcö2´¡ +¹+ +“€ƒi/´kë¶og´‘„¯‡×Žj—`íɂ7:ëå-“È€i^`X0à%Ä6œ±Ti, +°ë°¤0Ïê•_"PZ¨ÀÌmºˆz +BFx‡žñ×ԗŠs#„Œ +ÉP +lu˜š€$ò<<Ä_’ò,cì{ÀãO‡§(ž”AÝ­ºñÑdqIÆt'5”ŸJ"1LÓ_‘ +p*Œþ>²ÁÕÁ2p³>“ÇtÿëSpXû¾‡åñ›FI +É%|‹H½ÉÎW6Rv=®6½£jӍM¹Òö›$Пô~€ËˆÜµÊøjƒÂ\×e(P åó„ªhe†(î„âN³)œfÂ0£1> ›iŸNC@´KJh­‡BÎöˆ +"Æ`~b +<’k¡u݉>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +111 0 obj +<> +stream +xÚÍWmo"7þÞ_ᏻMÖç÷—VW•#¤"J6´T› +; wí¿ïxm )¤ +‘bcggžgæYƒ¾"ŠüQ¤ÒÊbcÑø}ÈÑ»K(Á–X”߃EƦ +å“?¦Ò¿ò+°0;\K¬: +™f”’´ú›Îu«ì™D[ŝ}ÆÜ£L7¸S¤4ƒGQ¥_ú—æ¦\ù5øڍŽr¬˜ùCg$ØPZ5²"Ä÷SŽ ÛVsJ§Z„é4³”òJ$èŽrË8ኦ˜ÐšØèÎîX[Šµ æC@°Æ¡Á‹ڈ$ò¸xÀ¿&œsf¨1BÖœ1.°Ð@ ÇRþ?ay˜´5†jØ©Ð÷¤JM4—R‹S¹4(#Æ)¬4¾3jP{qM:²(cJhf¥µ' +ŸÁd’hìS]~´\ +ÁHMÿ + +âʕ»;@÷{¿¹×ûš‡f\iÌm©#R—fãbV¬ÖÓÑ,Í º“õ"ŒÅr ëËÍÆã¾üSgX0Å`Bߨ2)«ÛÓ+·”™7¢LTqaµæm)“Ž‘Šp}reR ńžR™(ȒäJ)&_W™( BSʜT™ p%·Vž\™´„‰WU&c°»à0ÌXi•?^y–‹õh=]Ì£M¦CBy±,æã`ñ)͘IŠuÊtòÝý+Š¹ÛaÉ::#"x^ËÆÅÊo-îƒä=LW~4ŸÑ+Ö‹ÒyX&óaê¿DóZ˜¹Ñ®hŽcOÖŶ< +Éæ +¹ëCaef´ÂÑ ¢[W°÷Nèášj +¼Øà +O¸oR&’v#å$¹ƒ +´H!ê +ü#s· “fûÖO>VÅ$,>­¦óϱ +ÄÎs˜XGáèb"ù +£T2¨‰ŠYLcf«b9&j*‚ih+ +¡LEiÛ»½L)¥P@%þ£Ù*¼­¾,ŽöoÓI$u46ð&›Cý|+ëÂWÅýbù˜2•<ÍÊÂÚ,Æ:(<¯œ¹óÛ[€üf³ÝI +OÎýL9õ yÆ[9úŠ zŠ¾#¦1-aV¹å#‚7ýæÛ +õÐGÿCBî@ŽpƱòÍô£û­ IòþøϦ#7"´Üeªä» +’|7‰ä»yÈÑMûç?Ùa/à1^À +mì*xu é~%¶¾ÎBP}¢ö³TN +ª'áÄÁkv{ÞÖÝ#}°qÅ_ b§ÉÚýA¯Šá­0öÂØãCº.ډ®5Z®¼m|§ÄÂú<+DÖê6ö†5¸<ÕP|vÑÈ[‘ç»ü8b/yBã]<«\¿·èÅgκ_³Ñ2,¶ùü[¬‡éqHw«i84·ÀæíÃe_õÓý£ê:èæ úlª©çPPÙ/í¼ + ÝŠíϏ̻s{óœÁ~'VXœ”½Ü!d8χiL +<¼½Óùxö4Ù¨í +ËG&Ùí?g‚Þ¥e§ +òçLoÛ§õûE|™}üá?wbc +endstream +endobj +112 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +114 0 obj +<> +stream +xÚíXÛnÛF}ïWð) s½;{7P Nb§)P'q´EÝZ¦-©ˆT.ßÙ +%Úb›K•ÆJ¹;;;;gæ̐ɛ„%ÿX¢!ÑÊc“Ù"y4MOEÂ(±Ô&ÓëD Š'(Âx2½ú==ùcúSr2MÞ$„ –¼K@ÐI&Hž,´¨’WÉË]­8o8QÖ+œÎ‹IÆ9OWE»®º6<ä«8šû‘^7UÕL@§ïÚ#o :–d\^ѯ“ +ðJ¿ŸdŒq›>¤„Rª€¬é×áæŒ)ýšßF×P!¸‘ ŒÑ#kÐ Zã7uxÊìàh’ÎQÞ ^ ¦(3<½!ÂF‰~}+‰ÕÆM«DÁã´µ[6ÐA¬J²ÜÑÈ.œÐÞJðLñ,™fÄ ã58{ñ(øz‘w«òýAxxüìy¸¹ÌÛâ*î2±¸7÷;€Ž1„Âà4ÎWÚï† +õCŠpãG~±}«&„EGŒBVÄ}äÀÖ_Z(έr +'˺û³q$‰Ÿf—dÜ€û`Ï&-ð³'Žá¥‡qÿo¹ÉÙ%ѺIfÿ«` ’ s}F4àE™°ú~DC$Z +¤Üu÷?΂»ä·'wÞåǽ¢¤ +ä‹ +ᣈI¸rH¹l—m +ï°ÍñȦWšp‹üI‰Ô^ìäüx’*7u€ñÞ¬È̞˜‘ šŒÔ℩QjF7B㇆>R83‚UŠÚPV3Ž +»½E› ÄêÚ[đÉakÑ|d3íÈykä»Z˜/¤‘ňëü¹Õ²9ø +-[%í¨gäÇ]³‰Œ0ΘQÁàŒQE¨ôU‹ùùYQmWæU(R]‹öXÆú‰PÓBq‘ÖQl‰5ܤM•¯¢TӕM}1ùû2Çv˜ø–eNsFgZâ +öe{ÊDà”+n@ÐšÚ{Q­(‚³e›sߺZ7ik +Ì°½ñ Ujª¹”Z쑵PcŒ”ŒjóÑùÜ¢cw‹ŽøÒ¢£¾„ÁþS +xÏL +.®öÏLÜ20÷„™˜â¸£Þ/f2˜1RÑýyÃL +©˜²}23sPÆô×e&† +a +¤{e&¥ñ(!öÎLZ:Å_µ +6†ð$“”€¹óE¦ér×õLtUbÓˋUQϢĥΘqÿŠ¢v3v½\"¢¸lVď<Íu¤¼y¿òäõU$½¢›7^y +¸H%áØ ù‡^|ÔÍÜh4Ÿ–*v(Øâtï£#:‘=Íä-‰Öq(Ê»UPK +vÍÂèY¹V +Dzúú|b!þxrŽÇÐ"=?9~òììéÈ6ÔÁCXxK9ô™ëX©Jkçíõ¢@wzçâËKñ>_,±¦¸8 +Òwe7²Åûe•×y׬>¸í`(\‰’mQôn€Áæ ÔöcÖ&(Ž±6M$M›ºY”³‰di0º@¦ÕwšÖAèÆg +g4­-¥ëÂ}Ö +J‰`쯷ñ'±k__Vx\7„>Lj•é± +7)ðˆ]Q·å[ƒAú¦jÚ6÷GF28š;‰·)Ó +7¾¬¢p +§—ùª + +08G|‹®¹å­¢OØ]Ÿ¸™;>É¢‚ÁŸ×UY£ŠÉÞïµÅHªÝçÙ 1ïºåÑáaÞædÝÖ +©ó·z÷ðU1ûùðiô™w‹jd/Ê}Å +ªH´•r ûãIѡۊ˜“e}ݬ +˜Ðuÿ:R·¨îæõr¦fÅÕzÕóÀ,¯oÑIx¸nÖa‚WW†ñ©†Ÿ€‘kôjá7œí +Þ„HAZ´-ڟÕë. +06–!Ä£s␢Åþ¾ +2³mÙbèunLĜ©Òg +ù×A(Uá.lÞ6ÕÚGñÁê ¶i÷Âå<Æ:S*ú_þâÆòªÊ + +»¯×ÂÏYœœ/K„©.úó +!çâÕÅªË +!yOû™åÜO´åÌs Î +i‚€5,³Fö¤ìN¶ym¾Ýù§g¸9ýtt~,o +i1 +!8•m1 + +g®\ð0 +aâ‘™´òÃ!ûº²¾ Ó¡ᴇkÐr£®²F\^[‰”V,=®žP&D.Þ4«ò¦¬GÃ֞õyzÁڀ12 + +"À–C€! +ý¿ï׏Æ0ïð/3F;™&/¿û–> +· +endstream +endobj +115 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +117 0 obj +<> +stream +xÚµYYSãH~ß_á§ÞrD[¨. +ýÆÕ@wC³`f +– +aX,ytÐËϟÌÊ*[¶Õ³lDXud]™_~™UŒ~ñQ|‹Q +¥A’ŽfËÑÑttðYx¤a:š>‚ÄDD—£éüŸL$ãM¿€DғÐŸjD‰h<áa²Ïw7ãD²éùéÍx"¥d7§‡'Wgnä±=Q,q·ÔÍX‡Ì¬Æš³ªnÇ•D¬zÄoÌÚ +¡ÂEٚºÌÚ¼*³‚š›¶Æ¡UY-󧞈ݕ FB'ùKÞ¬kôùµªŸóò + ;£Iº•[ى^ÛfƒÓÚ¹M3±=rhm·N3ËH°¬œcAҎ±p:+òU›Ï>ºó«­ãGA¹ó @×QľÙoÌÎó¢­Ê0‹ +ٕk<ÎVy›å¥qí~Ðñ"[Õ° ±»dÊLK]Y2*âìئisÔö_šÙXÄl‘•ù¬Á¦„}°{œ¸mõxòZf \*­ÊQÝ8þqa—,U¶ ˜üH‚RsPBL•{&Â0ºb†02å›!3µ°«\ +Ž +fwX +šªè& +5Z{‚äOв +öhjk撬M]·¯Mk– + +JŚMó¥[öv†c2P«í’d~ì9ÍêvAE;o5€šÖ˜V¸¬PjnŠæÓx)ÅNÿ³*²²'á¦ÙÅrU˜¥)Ýð}T © +;áÆtÊÎ +NÎ +Ž¾f8½ë¼ +n"`·« +Mú2֚Ô6ýþИZËÚª~%„¸%ìa”]ç8¯g]‘Õdj +§=›ëµÍõ6mt±hÛÕ§ƒƒ, +º¦¬‚2{y +–yq°ê + +À5äÁ¼š5~¡ÃÁ¢]溜ӛ[Ø6xÿqU¾€† >hÀžCޏ½Xò@'nŽ§à§ðËÙ± +‚õðNf?gNð»L›·Ô|Ï̼ p¡‰Œûeœfê"{"6™ÜP¤ÙQWB9³.Ø6Ô d)vÏãx¬¡¹«;ÓþzÚþ +[ªžêlµÈ +Ù©³¼ +3SÙYæv•¦,krãÜù3úz•Ï +246Áì÷H©grõ¿Ý\¼Ù.à +ÄÂMCiÈ +«š +èû +}+°tˆ%ÎVäÇ=â&–F©ßº +ŒÛæè·þ#â@øxå ¶G¼Hà +ãú¦îû+¶eE‘Í@«" +ÑÔøùâÉۓtŒ$MŽDkõl³Í­–V?©ÚžA©Îv¤«¸p¬«£x¢“¨gùžf8„‰uÂJó +1[í +F¡¬³/ +t‘ʸӜV÷Ü5‹|™}Ü2›°ó¥ê ö®Ÿ‹È›»•ª‰–ê-çWa ÿo~°A¨xÅCÏŸŒemlIØÒS8 `ê‚_›hèVפì| +ÀIì(£Q0ÜF˜MàƦ• +( +R®”q ·¨(ZSÒ6iÅ}¼§A= + +¹‘ +¸ßºÿvK§ä­,Bígk¸¾1gHôŽe-à•B¶¢%ÄÊÍó÷M?,]Ճn§ã òYÁ5ÀW³K +&ýa3å9 +²kŸšº& ”&™£L Më¦pîJC@ÍŒh½BÄِ¡E°Ә¬ža>»p@áaìräÓÌÓéU~âÀ´ÔhA#ޕøV«"§TÏY ’ÞҁR·å—ðÐ½"ÛùÔPa‡5U™ûäT!Î/Žon?RåøâšæY8>ýDZż¤ï#ìÌ&Å>d²^Žû:„´Ø@Ax(|u†¼59¸È2+q5{/€Oº¦ƒ¯•Ëñra^šgïÏ*R»ñKÉ؈_8@¦Â–4“ +n +šPh½S½¿]Oz–À +82ˆ¼{ACí°ýtµ€Ô»Îª~G‡vCÉZÐHs„ìnÊ©ÁK¸IùÞ%vk=kîßK³wKa2ÛX2t"ý“L¯žìϺ¼¬Z´Ÿídv'‚$Š¹›æ^Êû öMnmKÛêQjíÙ?M&*Ô=þßÓäöÆ(»vâªb +W©F^L¯ø;ÏÁbà #W2H՟©9܊›"vã¦HµÍ¡§7±u£ÜÈ+ˆ”í)Q%N‡b!Å(æi‘§iøž·ož&k+Î7)¸âsT]ýJÖøVŒä‚ýNäP·žh½Zëݧ Þ4ë›;?´nžr ÒÊÁ‘%}¯Ü†L¸åq›è +PâP +$ɞ‘³§‹X¬8Å7• +ñ`:u™¹ +·B +u¡ö°ç®Ì_LÝäSû”1ˆèDÊ#úÖ©â°zÎ-˜Ó +ÎpþF{îUçß°“^£b|r-Û¬A˜¦e{¦øÐK +w¯>ðpM:EFô´ñÞ*Þ¿ÆÊÝ@¡`!‰—Ÿ݈Phsç$Ù›O4é|N" +1P¹3ëè؊g‹ñÍv5öaŠÊhbüfC/\{QÅ%)M +»$5-¾ó2鏾Á!ží³n@•¿Æ}3sSÔ +>éÄ?c†QÃVDžñÇQ| ?öYäeUC +­Ü”Û´·‘ç,D[1Åî·w@íÙÐß+8¬²qÁ8vø˜à +<¶Õ2êùŒx¬ŠÂ¦:?,µ K/3·!¬dES‘äƒ}3ño)yìÜõÈbÄJd–êjýÖR› +¢ÊÓ§!œò·ÓÛÕaj +-÷J®Øm·r +TÇëƒäÚ½Nsõ“çPÉ%³”Ž„x#ÑQôÞ1R™y€jˆ¶SJS–o:ØÑÏ+±nc’ð¯j7iψHWhu“·WÒÜí,‡LÈéûˆ^¬ªçæý +þ—q +9GmËëÞÿ–¦uo¡ÛzIÓ +oú@áéÓ㼫ël*9¶’ôâ‡T7÷Ojçyñdè +ït:úÇßþoš}æ +endstream +endobj +118 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +120 0 obj +<> +stream +xڕ’ÍnÔ0 +÷< +WȖÿÛËR(Ò ¤Ò±`X¤XL +pܑ†§ÇŽ]: lª,|sunrÎç +~Úô (PÒ`mÀn¯;ðêšÒbÓÐíçK*1a ¾@jÐ×n“dĜéžT† ¬å"ܶD=Jé™4WùçYs÷ó» +n‡D +ûJÃ^Î1ä÷ÉOã©ÎŸ;2'Ëeü"0o§{çKù£†Hßkkk +‰Ñb‹ªøªUð>¸á›-­OÞ +sφÙED5<•þM°ó¼š–´¦`¡XÐg¤]‚¦¸Z$(Ü +\öû˜£+x‰(‡1ºø0Ø㍍6ŒÎ÷ÑM9ŽÐ°÷C)®&_I +V0QÊ0ÿr².Ŧí\ÙU`Ÿ‘¦ @üÛ´@“¡ÝZ7ØÃ* +Ê8¦ò¹(®‘’ðÁɈý!™­†Ó>ŸæiFÃéb% +ásU?¶Y2Hø~Ê·xDB¤m²ÇùGºGn|YŽ› +ñQZÏ»%ØØ{Ÿ’ +fþ_<·² +ÙPS=4„aÁ#O +ó¶_ü}~×g +endstream +endobj +121 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +123 0 obj +<> +stream +xÚS(T0T0BCs#s3K= +K +ä\§}7#3#=33c +4CsS=Cc]cCc=3# +”h +ǀW?ÏÍØ/× +@.’¨c +endstream +endobj +124 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +127 0 obj +<> +stream +5 scnrRGB XYZ ÒacspöÕÓ,desc´`wtptcprt( +A2B083ÊdescadhocXYZ öÕÓ,textnonemft2 +ÿÿÿÿÿÿ$²o/)îe¦ª´M§ +<멏{S]\ +$¼ ‘/¿ + +"<{^KOÁ[a`³„ÂËÏâAO¾ +geÓ +TK\¨Üu¼Ñ$Ô ñÁ/× +~Õ<”gK°u[z*,KN;þ™[t‘ñÔà˜ÑK +‡ÕÚ¦~¨†J% +»90 + +HN<Ç1‰KLz í[­‚«¢¦ºTñÚËpH,_î)Ë +ÞmT1ýþþ ÞÉ%] +¸0a  Í= +‰ + K£Ñ +m\zU!žeÓé„JhºÇ$ + m! u]e þ° õ +¨ +} +Ö +t%Ý + +c0à™ +x=œ‚³L"Ê\‚# +JÍG +Y’ +yö +¯sÍ +þ + Êj +ó\ +Ÿœ +)i&ˆµX1Bm>H+©LÎs +]. +¤© +°³[ +ûÓÒ +{ O +6X +õ +3ÄäxM8÷ +éÂ'd +²2i«Æ?$”Mª +Üf^ +Âz¸æ‰j1¨á°ß^m +. +j +™õ® +#G> +Ì +˜(tT‡3xá @3 +Ê!ØN¹!#<_Ð$ãþô$ò°?%'¿%H ¤z%— +Kw&;¼&ŒL'5 [,()º +a(ð4¾î*Az"Ø+@Oÿ& ,¤``Á/ò}å0000"§°0X +#k0§Ê +h1º +­1œ +=2E!Û! +3+9#S46>%à5Bú(É6QQ~,7´aß ¡<»8 Ä<Ëë!<ê +b!=! +Þ"J=p†#G=Ûu$Œ>eÈ& +?#–'ü?Ú,ô*1@Ê7ù,¾AßDµ/§CS;2ðD~c›(uKQ +2(™K` +ä(äK€ +[)dK¶Ø*L+ +Lpo,`Lú +Á-ñM£%/ÑNo.í2O^9ò4”PtF®7}Q¯U4:ÅSe”1K[ +l1o[Ò + +1º[ñ•2:\'2õ\w¹3ò\â¨57]kû6Ç^'É8§^á1':Ü_Ð<,=i`æHè@Rb!WnC›c +gÎm7‘G¶Üg-[ªìPW +?Xá“èŠ`ÉV$¿ þE/à +‹Z<s•K¼ù[eÍë +ñúÎ<E¼PÂwŸht + +X¸”«H=x) $× +^ø/Û +ë +<—ÔHK + +¬[}—cO»r’x†ÈõA›>ƒ +Šƒ +Þ¶«ó% + +(q0 +µ +<ÊŸÁKPç +%[°ïâ¥òX^ÎÝHK™—ò– +áÚŒ5j5 + +K%a +€ð0d +=!ö +@K¦> +¤\ç$ +œ×V¼NÕòÊ‘ A qŽ ­`Ò +6´ +b +à + +C +«%àx +›0ä +¯= ïëL%6P\† +Ð´ +‘‚ÿ +°ù +çv :6 + + +7¡ + +|*_ + +Ô +-ì¡&Œ"1¯¥>K˜àLÑàD]2 +úܬ + +ë^ +h +Õ +èAR +£ +ù + ûèå +;v. + Vú'h‹é2lþ?'9M­ +I^/±»SÀnžàå + +bÚ +f +× +Ñø +ZK« +Œ +Ï(wÁ¿3|N Ô@7 +6"N½!#t_ +=%a%)´¬%I+,% ¨ç%Ï +Nä&:>)&ѹ'm ^™(8)½ +Î)(4 [*y$ù>œË&‰?F#™(i@,ø*žA7ü-+BD¸0CRS>3]D¶cž(âKˆ +5)K— +ç)QK· +^)ÑKíÛ*ŒL=ƒ+‰L¨r,ÍM1 +Å.^MÛ%“0>N¦.ñ2tO–9õ5P«F²7êQçU7;2SKe˜1¸[ú +o1Ü\ +!2'\)˜2§\_3b\®½4_]¬5¤]£þ74^M'Í9_1+;I` S}ULØŹ]9 +ÞP³ +`f +M€Ý +͵Y +ˆ + +pïÊúC[£ +;o'op^2týs?/æ®M´ +. +^ +&Ã9 +5u„ +Uì +‹i¿ +Ú +¼ +F +ÏR +yqD(¦ 53ƒ +3!I@>" +NÄ"d#é_$"% F%ž»‘%¾2%ô ¯Ì&C +VÉ&¯F +'8˜ž'â e +~(­)Ä +³)4É!A*±A„$*+íP +'r-Q`j0Ÿˆ70®;‚0α +1 +. +½1TÕ +º1¿Å +ÿ2H 2ò!æ"p3½+D$¥4­6H'25ÂC*6ýQ‰-c8aaê!ò=hC"=wö"a=— +m"á=Í +é#œ> +‘$™>‡€%Þ?Ó'n?»#¡)N@‡,ÿ+ƒAw8.B‹DÀ0úCÇSE4BE*c¦)ÇKý +<)ëL + +ï*6L, +f*¶Lbâ+qL±Š,nM +y-²M¦ +Ì/CNP%š1$O.ø3YP +9ý5æQ F¹8ÏR\U?<SÀeŸ2\o +v2Á\~ +)3 +\ž 3Œ\Ô +4G]#Ä5D]Ž³6ˆ^ 8^Á'Ô9ù_12<.`}<6>»a’HóA¥bÎWxDíd1gÙ×sû‚ÉF¢@Åؽ€'d~’ +S +§RÅt +3‘$Ó +h€/Öõ•<“ÞÑK& 4[y7&/[5â¦UY%‹ÕáÚ|ÞF +k"Ï¿²xŒ +“D$ë +È3/ïUH<«?„K0† è[‘žb%®pÍŒð«S¯¨¾ +žìGò }ñ¿ +]½% + +’¬0"Á<Þ üKcQ +`[ÄY +¹}-kÈMâGƒ_Ò = +õ DÇH +Ôp + +µ <%uê ++0xx +@=4` +|Kº¨ +ß\Q È8u ×êÀ ÷a? +-Þû +} + ø +èt +< +qÇ +Ì + +•­ +æ%ôã +Ö0÷pê=³X'L9 ‹\š ú½ä + +Ì– +iì +é"Š +¤q +0 +¡Ü +ågsv +@WÜ&ŸŒË1¤à>_ +Lå +J]E +cÀ +‡&r +ÒFéR|f +Ë + + +7üPÀOàj + +À5'{õ%2€‚9?; +kuMÁ³ +Ù^!š +ìϽ +ü‚ +øˆ +QuC +¡ + +A + + + + +–_?,ö +(‹+ û3 +¸"@K ¡#KNÐ#é$¯_1§&UË&eÈ&„?–&» »Q' + +bN'uR’'þ¥ +#(¨ r +)t)Ñ 8*c4Ö"Æ+xA‘%¯,³P(÷.`w +˜1f” +¼1uG +1•¾ +‡1Ë +; +B2á?2 +Ñ „3$"3¸!ò#õ4„+P&*5s6U(·6ˆC+ 7ÃQ–.è9'aö#w>.P#›>= #æ>] +y$f>“ +ö%!>ã& +?NŒ'b?×ß(ó@‚#­*ÓAN- +-B=8/•CRDÌ2DSR5ÇEñc²+LLÄ +I+pLÓ +û+»Lò +r,;M(ï,öMx—-óMã†/7Nm +Ø0ÉO%¦2©Oâ/4ÞPÒ: 7kQçFÅ:TS"UK=œT†e«4"]5 +ƒ4F]D +54‘]d¬5]š*5Ì]êÐ6É^UÀ8 +^Þ 9_ˆ'à;~`T1>=³aD +§é +& +ù1 +«=Æ“JLKÛ®\¬ +5àö +Yï¨ +¤ +$Fœ +ß• +CÜ2 Š +±4 +R’ÿ&²Çï1¶T>q=?L÷ + +£]Wž:ÒÂI„ +iûŽŸxIï +FZŠãa +/ûX'Ž0H2’½\?M +¦ +˜MÓ!ï +ü^3Ô +áø +”C +? +à +u‡~ +Ä +.{/ +À¹qP c>0!/( +e" +3¢ò#3@]"Ü$nNã&$%Ò_Câ'y''ˆÚQ'¨QÑ'Þ ÎŒ(- +t‰(˜d +Í)"· +])Ë „ >*—)ã"t+†4è%,›A£'ê-×P)+2/:`‰ +Ó2‰§ +÷2˜YB2¸ÐÂ2î +M ~3=ó!{3©ä"¿426$O4Ü"&05§+b(e6—6g*ò7«C#-Û8çQ¨1$:Kb%²?Rb%Ö?a &!? +‹&¡?· +'\@¯(Y@rŸ)@üñ+-A¥#¿-Bq- +/CC`8"1ÑDuDÞ4ºE°Sd8GcÄ-‡Mç +[-«Mö + +-öN +„.vNL/1N›©0.O˜1sO +ê3P:%¹4äQ/7Qõ:9¦S +F×<TFU]?×U©e¾6]^Y +•6^h +G6Ì^‡¾7K^¾<8_ +ã9_xÒ:H` $;Ø`¬'ò=¹ax1Q?îbg$þ§-04 B<½ + +~KCe +á[¤uÓZ™â +äƒ d8 +‡§ + +ò +– +`|ê +ñ%·Ññ%à0” õ<Ö} +1K[Å +”[¼ @K c[@ ®z¶ +.°3 +éÚ +æk +É ++ô +»žêœ i%IÑ +Y0L^ +n= G +©KŽ +[ï +—Ëä +»Ú– +ú + + + 0Š +A  0 +> ê ‚ +ts + + +@ô +é%Ÿ) +Ø0£¶ +í=_Ÿ(Kå +ç\E + +uc +³ +„ +þ +¤Œ +~ +Ú 9 +* ¯6 +•Ÿ{ +ò +È +¿ì“&!„1"®™=Þ—ÔLd +ß8\Ä9k\zÁ§š8'еã +[àŠJ%žµ½ +k•‰&ÊÊx1ÏW>Š +@ÈM!‰,]p£ÄëÆӝó‘)‘Lx +7Iä&Žmz + +Gÿâ'¦ +3Ñ2« +Á +æ?f!ª +"Mì$ò +^LØ™úü¨¬GÈ#Æþ ‚ O +G º7Ã!C‰ +S!íW +4"¹(¶ j#¨3º"÷$½@u%à%øNû)''\_\æ)@ + )ò +T)1i +Ô)g æ +)· + +Œ*"}Ñ*«Ï!b+U #B,!)ü%w-5(.%A¼*í/`PA.50Å`¢!Ø4¿!û4"r"F4Bé"Æ4x +e#4Ç +$~52ü%Ã5¼O'S6e" +)371+{+h8 6€-õ95C<0ß:pQÀ4';Ôb!(¶@Üz(Ù@ë -)$A + +¤)¤AA + *_A‘È+\Aü·,¡B + + +.1C/#Ø0Cú-62GDê8;4ÕEþD÷7½G:S};HžcÝ0‹Op +t0¯O€ +&0úOŸ +1zOÕ25P&Á32P‘±4wQ +6QÄ%Ñ7çR//: +S:4<©T”Fð?’UÏUvBÛW3eÖ9a_â +­9„_ñ +`9Ï`×:O`HU; +`˜û<aê=LaŒ =>Üb6( +@¼c1jBòcñt Î +Ö¯ é%6ä +Ù09q +í<õY +)K{ +¡[Û + +D­ +@S_ +‹sÖ +©SÆøùà c +é í<˜ +– + y +b%h® +Q0l; +f=( +$¡K®l\t +× +Ò¶â +ò-b +(© + +w P +ã?` +l“ð + +`Ð +á%¿Ñ0Ã’å= +{"L Ć\emn‚}5ܝ¬[Ó(" ύ¾XèÁ +ßɍ&>þ|1B +‹‘=þsÌLƒ"¼0\äc.:rà +’WÈÔÀ +{½ƒj +½‘¶ +‹r&ê +§q1î4 +>ª" +ÁM/%f%]¼ +£Ë¼îë3n!°)q +W&ÜFje™û + +g +Û +Ú'Æ  +Ê2Ê"ž +ß?†%‡ N +(Ï!^l´!“Ø!¢Ì#!ÂC£!øÀ +^"G +f +["²W + #<© 0#åv"$±(Õ$F% 3Ú&Ó&µ@•)¼'ñO-)T_{Â*û`æ+ + 1+*‰ ²+` +!m+¯ +¬"j,œ#®,¤ï%>-M ¼'.*)T/5 +á0 +AÜ.Ê1ZPa22½`Á%´6 +ß%Ø6‘: &£6p + +'^6¿,([7+ +)Ÿ7´n+/8^"<-9)+›/E:6Ÿ1Ó;-C[4¼âJ–cý4hQj +“4ŒQy +F4×Q™ +½5WQÏ96R +á7R‰Ð8SS +#9ãS¼%ñ;ÄTˆ/O=ùUw:T@†VŒGCpWÈU•F·Y+eö==aÜ +Í=aaë +=¬b +ö>+bAt>çb?äbû +A)c + \B¹d.(+Dšdú1ŠFÏeé<I\fþIILEh9WÏOŒih0¶‡ˆÚ–;%¶²¥ì.` ;Õ] ¦ +Ä¡ +02 +Ùå +¥%DG +”0H +Ô +©=½äKŠ#I[ê :¡: IS + iÊ ŸGÀ îí½ +Y +Ý +ã0’ +Œýr +X%\§ +G0` +4\= + +—K¢#fü\á +²Ô +Á†P +áýÏ +zŠ +g ˆ +ÒÌ +[c\ + +0= +Ð%rÀ0“ +ÿÔ=O èKÕ$0u\58 +2*\ +Aݧ +aS' +—Ðâ +æ wßQf#Ûº´„ +‡”Q%æ +É@0éVU=¦"@L+%ˆô\Œ0Ý©Tì\Ÿ +ÓBOÚ‘ ö×ýå +†9¬0 + +Œû&e +Áë1j!Oÿ>%$8;Lª'€Ÿ] +ÚÑUþáI~È7û„† +¢ñ‘Å{ä +U$ +²6ð'!lß2#ùô>Ð&á +/MV*) +“]·C ++1g +:ã² +ZZ +1 +× +í +ß +~ +ê +Jm. +ÔÀ ¿ +} +Ž" I'í$Õ 92ñ'b!N?¬*K"‰N2-’#í^“x$@œ$óç$0j h$fç!#$¶ +" %!}#d%ªÐ$õ&T&Õ'(ü) +(4+—)#@¼.€*_OB1É+Ã_¢$‡-i‡$«-x9$ö-˜°%u-Î +-&1. + +Ó'..‰Ã(r/*/¼ ä+ã0ˆ*B.1x5G0¦2ŒB3Ž3ÈPˆ6Ö5,`è*x8y*œ8‰¸*ç8¨ /+f8ß +¬,"9.S-9™C.c:#•/ó:Ì"c1Õ;˜+Á4 +<‡6Æ6—=œC‚9>×R<Ç@§V+&@ˆVö/vB¾Wæ:zEKXúG7H3Z6U¼K{[šf +BdJ +ôB&dY +¦Bqdy +Bðd¯›C«dþBD©ej1Eíeó ƒG}f(RI^gh1±K“hX<´N ilIpQ j¨WöTQl +hVo +r·“ +iÞ +¡à] +×] +&  +’ +óZ +Gê +Ä + +ː%s 0w"Ž•=3%wÑK¸(¾4\Ï +%Ïó +4‚> +Tù¾ +Šuy +Ù +v +E +º +Î_ +Kx +, ++C%‹ `40"îH=K%ׄKÐ)è\1™ +ž½ +­µ +Ì,ˆ¨CR O@½> +G’ +ð +_ +õ½%¾!+¬0Â#¸Á=~&¡üL)é`\dñ +Y- +`M‚߃ÿ›Ò ¦˜=• +ÜÇè +lp +¶ M<&"ƒ+1%@=Ô'ù|LZ+@ß\»éÈØ +ØŠX÷Ø-~ +“} +% +è +Ôqg d +5"Fç&”${Ö1˜'ë>S)ñ&LÙ-9Š]: +’½„ +¶Ì6 +ì­ +"*<q +Ð 9ÜÀ!f# +à$ïÛ'?'$ +Ê2D)± +ß>ÿ,šM +/â ]å ý`! %!kE‰!ë{"¦Ê +¬#£ 7$è Àï&x!j +¼(X"5(*#%3 -$9?Û0%uNa3L&Ù^Á%2&ío%V&ü"%¡' +˜& 'R &Ü'¡ +¼'Ù( +¬) +(–ÿ*­)?Ì,Ž* +)+.Ã*ú401Q,@ë4:-JOp7.®_Ñ*?0Vµ*c0eh*®0 +ß+.0» +[+é1 +,æ1uò.+1ÿE/»2¨!1œ3t*q3Ñ4c5v6^5xB29G6³P¶<8a00;e40T;tç0 ;” ^1 ;Ê +Û1Û<2Ø<„q4 +=Ä5­=·"’7>ƒ+ð9Â?r6õ ¢7~H^ +7þH“ +–8¹Hã=9¶IN,:ûIØ +<‹J$M>kKM-«@ L<8°C.MQElFNŒSòI_OðdR>äVÄ +é?VÓ +›?SVó +?ÓW)@ŽWx7AŒWã&BÑXm +xDaY&FFAYâ/¥HvZÑ:©K[æGeMì]!UëQ5^ +fKGºg5 +#GÞgE +ÕH)gdLH©gšÊIdgêpJahU`K¦hÞ ²M6iˆ(€OjT1ßQLkC<ãSÙlXIŸVÂm“X%Z +n÷h + +)áî +Mð  +˜ +F” +Ó• ;Ð*!‹~"¥4 +K$†%ª&»ï0­)H=j,1?Kï/x£\P +‰” +­£¹ +øÃ0 +xù¬3I S 0´B!u>–#ç +c$æ³%Â'¢0Æ)¨·=‚,‘óL/ÙV\h +S +9 +w +ì +Â<cBrßý † û-u"@¶É#Ð` +–%°+%õ'å0ù*r/=µ-[kL:0¤Ï\›«ÏœB ¼¹ šò6!VA Ý"S¬Ì#—6%'ß +í'«&L)=š1O+ʯ> +.³êL‘1ûN\ñ!¤7!ÈFÁ"f8"“œµ#Në +\$KWK%àž'Š +l)U&Ë+5E1Ï- +Y>Š0¬ +•M3ô +ù]q$M +,»$q +;m$¼ +[ä%< +‘a%÷ +à +&ô +K÷(9 +ÕJ)É +~ ++©J'v-Þ :2{0k!O?63U"ŠM¼6#î^ +'·"†—'Ú"•I(%"µÀ(¥"ë=)`#: +ã*]#¥Ô+¢$/&-2$Ø +ó/%¤(R1H&“3W3Õ'¨@6¾(ãN˜:*G^ø+ì*[¦,*jY,[*ŠÏ,Ú*À L-–+ +ó.“+{ã/×,61h,® 3I-y)b5~.i4f8 +/}A":ô0ºO§>;2 +`0ú3Äì1 +3ÓŸ1i3ó1é4) +’2¤4y93¡4ä)4æ5m|6v6!J8V6â*¨:‹7Ò5­=8çBi@:"PíCJ;†aN6ë>Ôk7>ã +7Z? •7Ú?9 +8•?ˆ¸9’?ó¨:×@~ûGAó,'@|Bâ7,C +C÷CèEóE2RnI;F–bÎ=ÊK '=íK¬ Ù>8KÌ +P>¸L +Í?sLRt@pL½cA¶MF +¶CFMð$„E&N»-âG[O«8çIèPÀE£LÑQüT)PS`d‰EŸZ2 + EÃZB +ÒFZa +IFŽZ—ÆGIZçnHF[R]I‹[Û +¯K\ +&}Lû]P/ÜO0^@:àQ¾_UGœT§`‘V"Wïaõf‚Ntj¤ +ZN˜j³ +NãjÓƒOck P +kY§Q +kÄ—RalM êSñl÷(·UÑmÂ2Xn²=Z“oÆIÖ]|qX\`Ärgh¼$ñÙ.%èà%_W%ß>Ô&šŽ z'—ùj(Ü‚½*l, +Š,Lø%é.ç0í1ü=©3ø7L/7@›\%QŒF%tœø%À»o&?òì&úA “'ø¬‚)<5Õ*Ìß +£,­«&.âš11p¯=Á4XêLG7 N\§&y&?+&Š4¢' j'Ź Å(Â%µ*®+–W +Ö-w#&5/¬182:'=ô5#cLz8j +Æ\Ú'r„Ï'–“‚'á³ù(aéu) +9 + +*¤ ++^-_,î× +,.΢&‹1’13‘ +§>K6z +âLÑ9ÂF]1)k/O)Ž>)Ù^x*Y”õ+ã +›, +NŠ-V +ØÞ.æ + +«0Ç +M' +2ü<25‰ R>Ê8r!ŽMP;º"ñ]°, $ú,8 3­,ƒ S#- ‰ -¾ Ù +G.»!D6/ÿ!ÍŠ1"w +W3q#B'¶5¦$22º83%G?v; +&‚Mû>c'æ^\/}&}Ö/¡&‰/ì&¬ÿ0k&â|1('2 +#2%'3i('f4ù(Ð36Ú)œ(’9*‹3–;œ+ @R> +,ÛN×AÎ.?_83³.Sæ3×.b˜4".‚4¢.¸ Œ5]/ +26Z/s#7Ÿ/üu9/0§ B;1r)¡=D2a4¦?Ñ3vAaB»4²OçF6`G8Á7¼,8å7ËÞ907ëU9°8! +Ò:k8px;h8Üi<¬9e»><:!‰@ +:Ú*çBS;Ê5ìDà<ÞB¨GÉ>Q-K?~a>²BÌ«>ÖBÛ]?!Bû Ô? C1 +Q@\CøAZCìèBžDu:D.E# FEê,gHDFÚ7kJÑGîD'MºI*R­QJŽcE‘O• fEµO¤ +FOÄ +FOú +G;PJ´H8Pµ£I|Q? +õK +Qé$ÄLíR´."O"S£9&Q°T¸EãT™UôThWàWWdÉMf^* +_MŠ^9 +MÕ^Y +‰NT^O^Þ­P +_JœQR_Ó +ïRâ`~&½TÃaI0Vøb9; Y +cMGÜ\nd‰Va_µeífÂV +=6 +pL@~Ô\ð.ù‹Á/ +št/hºë/çðg0¤@ +1¡«ý2å4Q4uÞ + +6V +©&}8‹ +™1‚; +­>=>éLÂAI!N]#0P + +0t +Ê0À +:A1@ +p¾1û +¿ +e2ø +*T4= +´§5Í +] +t7­)&Ô9â 1ؓ?X"iMB¡#Í]y2Jµ—2mÄI2¸äÀ38 =3ó k +ä4ð ÖÓ65!_&7Å" +ó9¥"Ô'S;Ú#Ä2W>g$Ø?AQ&M˜D™'x]ø4ó$«C5$ºõ5b$Ùl5á%é6%_ +7š%Ê€8Þ&TÒ:n&ý +Ÿ„(¸3A)Í?¾Cû+NDGB,l^¤8\+8€+Ñ8Ë+3H9J+iÅ:+¸ +k;,#\;3 +{?83úk@|4ƒ½B5- ‹Cî5ø)êF#6è4îH°7ýAªK™98P/Ná:œ`A •!ÒHü?`+0K1@Q65M¾AeBñP§B¡QuSïDaÖG‘GSóGµGb¦HG‚ + +HG¸ +™I;H@J8Hr0K|HüƒM +I¥#QNíJq,¯Q#K`7´S°LuDpV™M°RöYàOcVNoT + ®N“T+ +aNÞTK +ØO]TUPTÑüQU<ëR[UÅ +>SëVo% +UÌW:.jXX*9oZŽY>F+]wZzT±`¾[ÞeVEb± +¨VibÀ +ZV´bà +ÑW3cNWïcfõXìcÑåZ0dZ7[Àe']¡eÐ0c_Öf¿;hbdgÔH$eMiVªh”jsg +_s# +â_>s2”_‰sR +`sˆ‰`Äs×/aÂtCctÌ!rd–uv)?fwvA2žh¬w1=¢k9xEJ^n"yXäqjzåiD7Ï +zÈ7ó +‰z8> +©ñ8¾ +ßn9y +. +:v +™;» +#W=K +Ì +$?+˜&ƒAa ˆ1ˆCî!>CF×"ÙLÉJ$<])8/ +-à8S +<’8ž +\ 9 + +’†9Ù +á +-:Ö +M +< +Öo=«€ +=?‹ L&œAÁ!<1 DN"P>[G7#ŒLáJ$ð]B8ú +¥9 + +µÅ9i +Ô<9è +¹:¤Z +`;¡ÅO<å P¢>u ù +p@V!Å&ÏBŒ"´1ÓE#É>ŽH%MKI&h]u:Q!&j:u!5 +:À!U“;@!‹;û!Ú +¶<ø"E¥><"Ïù?Í#x +ÆA®$D'%Cã%32*Fp&H>åIY'„MkL¡(ç]Ëð%ð%@5&yxAÆ'# +EC¦'ï'¤EÛ(Þ2©Hh)ó?dKQ+.MêN™,’^J>ó)Å”?)ÔG?b)ô¾?á**:@*y +áA›*äÑBß+n$Do, +ñFP,ã(PH +-Ò3UK.ç@Mú0#N•QC1‡^öB]0pB0.#BÌ0NšCK0„ D0Ó +½E1?­FH1ÈGØ2rÍI¹3=),Kî4,41N{5A@ìQe6}OqT¬7á_ÒF’7õ€F¶82G8#©G8Z +&H<8© +ÌI99½J}9L:G ÝMî;*RPXâ?¶`áK A^ÆKÄAmxLAïLŽAà +lMJBNGB}O‹CUQ +C°"#RýD|+U2Ek6†W¿F€CBZ§G»QÇ]ïIb'Q’LmEQ¶L|øRLœ +nR€LÒ +ëS> +endobj +130 0 obj +<> +endobj +131 0 obj +<> +endobj +132 0 obj +<> +stream +xœÄ¼ +|TÅÙ0>3gï׳›d¯ÙìÙ=»›d7› +¹É ¹B j‚¦ä¶!{‚`¼¢Ø*ÖVDmEë][– +b­yÕZmí +­m¥ÕW±¥V[Qûi«&ùž™³  ¾µï÷ÿ~¿ÿ.3óÌÌ3—ç:Ϝ=a„mG +j\¹:VˆØç[“]Ô±©m@®ï:Šþ clDh½úÝÐðBM×ÀúMÉ%›`ŒڔÇÖ÷né’ñ¥—ZüAw¼­óÈ`É +„¾ý84–vCCšÂz!ÓÓPto¹LÆ¿Íóôöw´Éõk&`S¶Mm— +˜žN«üãÐ(ôµmŠg¿‘õ&BfZÍè +‘ñ¿ý +Ú00ظkÕ„b0Ÿ%¡¼y•ËYÊ侍Üͼ + ö:óîôù3Ÿ)7"qzÃÌq. +VÈ)õ ¢kQ½‹nGÏ¢ô3¡:œš;\Ž–a +ّëPÑ2Ԉ2ÐùèØˆö¡yèϸ +] +ƒh%ºùÑ +dCÕèV´Ÿ7ó +º +½Š{Ðc0úa,¡l´ +/™y +­B3OÂ-D»ÑØ„¼Ð£Ãâ̛0Ã0ځžB¿A3h-ºC¹fiD ¾™'Ñ¥èx-¾d&-E}èJtº=ƒNàð¤B9ӊJP;Âjœ†s¸«g +Fó•Ç´O̼0sñ€/Ìú>‰(êg>@zWgºAÒP|ûÐ}è z;p WƒL¨ÖjA_Gû¸ +Øãt#Ðö¾ +ïãL3÷5e¨mCÇñex’ø”Ç”ÍlEV ¯vºݏþ=þ³Õã5ܦ骙# +Š :XéZt=ú!pî9ø¾€Í؇—ÂÌÿßÄos}Ü;0óCè$:þsp¾’T‘«• +SWÍ<B@¡s,E£^ô8a _cï&›É•dw{C‘£øpfþÌóH +b€{5zèúOô*z +äUðoȕܸòú™Ëa¿1Ô +T\‹ +@‡ÐÇX‰µØ€Ó±€‹pPv9žÄoI×ÎíS~cfËÌ7‘t¥Åaät +º=‰Ž ß£¿ “Ø#c0² +7âoâ[ð +äw1w)w»BRÜ®xLñœâ3¥EùÜô/¦×é<¨¾-¨ +m^OÀ÷yô;Ìa7΂™áóa¦u¸ + +ïÂßÁßÇâƒø'ø(~ˆÿI +ääÛä0ù19BŽr +.ÌÕr÷p¯(|Šß)>U·My¦ŸþpF?™)šÙ5s÷Ìë3'™2Aã«P +h×Fð×¢]è;è»Àóèçè× wo±ï ôÈàS¬mrŽüXÄÙ8¨»7áÍx'¾ +ߏ_Äoãø3‚ˆøá&¥ä|r)¹š¼O>ãtœÈUs—q»¹_rŸ(¶( +áû˜ò åGªê æ•ÏîšzsM÷Lß>}×L è¢ +4/ +l®-;¤Ü‰á;„ÆÐfàÑVàøÝ 9ûP +F/¡W€÷GÐëà¡è~é÷=Ä)4 +¦1y*±¾òÞ +@25 -­8²•¿—ã«ñøøÞ +¿‡ïþþÿ¿ŠßÂÀMˆDI59(j$—ø®# +ä*r9ßÿ$¿!¯“ß“O8ž³p^.›«ãÖs7p;¹w€û÷kEHQ­X¢Ø¨ø‰â@ùåRå:e‡ò&å½Êï+ŸSþTyB9£ºMuŸjBõ®Z§.U7ª×¨oT?¢>¬~C=£É}j€Ýç¢3ŸÛð%ŠÙ +gÈÐý#2ÂýŒ|?vRî„ +t¢ud‚{†|÷뻸ßs“«RÔ²îEàÅ^AO£W”¯*2”úüá·¹6ò#²‡8p)·Pqâð:[`Ÿß'o5Ùi¬Cb'úoÅEèCàÿåNài=y?F^$çƒ&C÷“Ãhڋ⸠+v׉ž@Ÿ [ñ!NÀAﶡ£è}tüÌn±©Å¤Jå cª ¡CxÕÌOHîÌ_ÀêßÆס׹O@÷/Â+p +=ˆþRÿ5.Æ^Ŵ~ž/ +ÝZû'46øSE,èctˆ+FkÇA汩—§k•#Ü5ø4©qڙç^I½1øà;ÀWQ?jBû@À‹0‹þ +ú9ö_Uý݉nAOq(È=@¶“î% +€¾ +ŽsËaÕ+À?eâb˜iê:„™w¦ï‡6 ùh>nÇkQ-ô,AY3›`ç‚/’f.Ù£lVFÐâå8= +ÞË\¼]©> ˜À_GKðMh|ºM¹âÀA\ÚtR9¦Ü¥|Ty@ù#åÏUóÐe`µwNÁ©!ààşÑßA׃õäýTÃ.–ÀÖKš¹gP +v¡ð9à·ւ$‡a–«Ñ7Àž +€3ä?ÑG˜Ç—¢¡c`9v°óX_ó,C‚ԇуà +¯ÁãÐ҉²Pøô 6áùdÖ£~öv𳓰§7Ð;à9fؾòðB\ +Òë@§¶ ++”¢F¼Î䃨 +NÊZîôG€Óu1Øèý0®tÄ<¨\ùLPÞôŠ™ù¤‡{Ûà44V­“} +„]˜Ž)”W¢’éó`¶ÇÀ—5*ª×HU•‹*.(Ÿ_VR\T8¯ –͋„ss²CÁ€è÷ Þ,O¦ÛåtØméiV +o6 +zV£V) +Á(¯N¬o¡Ö„"$.Y¥u± +ÚÎjhMÐT.NBheh¹˜`v}S’1¥9LÌ +¨"š'ԉBâçµ¢0×®jø›µb³8Éàïb°`ŸuŽîZ![ +ºDýX÷κÖZ˜n¿^W#ÖÄuÑ<´_§PPÂ.ìÇöJÌb¯[°Ÿ 6•p‰µu §XKwà‚um‰ÆUMuµnŸ¯9š—À5 +b{‰‹æCA5l™„ª&¡fË=”t“°?orç7&xÔÞ1tŠm—6%¸¶fº†%ëÖ&ì[O8ÎTarkMӎ³{ÝÜÎ:G@«;wî{W5Ýë£ys3ÌcI°¾ug=,ý +`â²Õ¬F®knJàë`IRB©’é‹‹u´¥uƒÐŠ‹ÅîZA4® tÁ_Òå’Í +G®:açš&ї¨r‹Ímµ™ûÓÑÎ +¶Œ;%ÁynO4o?o‘»ßdNãÙ@|®A +BË.˜ã,¦;—‚B$„vÒ$MóiŸvvÌ4ø4c•è‰ô$´5­;ù´ŽO(ƒ¼(ìüˆ'ß?·¥-Õ¢ +ò# +R=™S5èŸ +‘H" +¦*¢®™Â ++Y½$š76Aîx +`jÞ¶5/ˆû}>*à›&$Ô•ÄöUMr]@íî$’b‘æi¥=“³=Ҟí³=sÃ[EÐäˆ^P2šÐÜ?3oK«ë^À¶Ñ +—û—­—­ZÛ$ÔílMñvٚsjrÿü¹¾”H«iâÜ$7ÇzA)/C¦•&CB„*¦Ôj +h%kÁB}‚o]"çÍ:Ÿïß +41ó +Ŋ3ÃRÛL,ˆœ[_xNýœívr°aEˆ,[³vçNÝ9}õàvî¬ +ú­;Û&f¶·‹/î<áJö΁ºÖY‰N̋o@Eö?§`#·Öғ‚M(ßၝ`åºÉ±1+ }ƒ•Ð®sìIÁ +vla0•šÊñ| +V ãû +VS¹8ÞKÁ +ÇË +Ö@»ÁiIÁ +”çø+ƒµ)ùÊ°,_–å+ò|eX–¯ +Ëò•aY¾2,ËW†eùÊ°,_–å+ò|eX–¯ +Ëò•aY¾ÖQ^9¥`à•Sæ¡ +ڭ΍)X +2 +”çwS0ìßyƒMTóGR°8÷1˜gó|7Óydü4ÊsçL +ž;ßbp:ݏ+˜‚a?.%ƒ3 =ݵ:+P±«ˆÁ6†¿#Süõ +v2ü'R0ÅÿƒÝT\ï¥`З,SӁ÷R0Õ¹ÝKñÝi)˜âÿÁªîE)tÀ-ó-LùãîIÁÀ÷RGÙ<·¦`˜Ç=HaÍYüלÅÍYti΢Ëp¾á,|ÃYr1ÌÊe +Úx +núm¨J=i +êfpø«>H#),nçýpë +`y´÷0 +Zza|>@µ¬½íÿãL±¹ h5ôô¢Ñ9œah£÷#y½yc—£MA +¬µFôByŒY{a£.€ù†!Ñ{{ +î +k wk êÃ]žâôC[ÌÿC¶º»Nè£mCh#´õ·þï) 5{êUGØ^èN¨Sœ‘Ô¬ÕÜ$èx +Øz +¯„µ» +t‡t\ +f +f{ïN͖ÿ +=-ø +J¸}Q +wæEl–á¹]Á|ðà–Ö­ +ÐÛý” +#(÷¬™åyÏÌÚ4DçfnÌ°ÿ5 »zH5 # +¯„VJW=äËY{ +´¬†œJñ<˜¯¾ +¬u +2" +K”û=Œš‘/hðl»ÌɶßFŝ•ßå&k\?ȆÊmÆo9‹Ï=) +e܆H’õnüѹ5; 6v–LGÙXZ?³Y曾¼j+½Œ³q¦ÝqÖ¶žÍg¼íƒQTæÍ©Õº¡ŒáõÃ>¨µQí‘× +ùœ™•Úf¦Ëq¦==©Ñ=vB¶w@[/£¯‹qoӗò«?EåXü¬Y6§æü²õ:Sz?e;³iy×í)Éô¥fþ2 e3ªÎåÕ»ü/ъ/®,·S^ANýI¬Ú›âö0›mä\;ŸÙdÃf3mù‚,d9kє;òªÃlžhíbü;2RºØǼHÔάK½R'ã´l©mÌß +åïò氇ÎÒ[™¾‘¯äT/³ëž9 ɔœ™o3“ÿF&ͳ½\WJ/Î`ö®ìÿFÇéüÝsôÈû:[»©÷ Ú ó_¶ª”~Ìjéçuè_QtF?–2Ú¿(9Êa:ÿ ´ÇÙܳÔt°²ƒIµïs2ú +¿ÏÌLé£P/ã +ÝÃàÉ^wÖü;ҟO¶Ij«c)iœ±±Ùù¾(G™[2#ÌŒ|© +ÏJ¬ís¼îú_íö +—¿¸BGê”iOÕÎޑLÕ s3ÐÓ¯Z£ìԙŠQœ4äó  +Ó¨˜I4½-Ka@ï<è)NÁepv•±Q¥¨"šèìTZ#°³eĀ_ô›t|Þâ;˜çûŸÎ +Õ2ëÜ<§òéܓò¶tO«²ßؒâþÓS:+µÐ‹þHJ˙ô:ç4€Æ4EӜñlCgÅ"g<Ø}}óåÃlzšÑÞ¶ÏE³³ÏÖgcš³£Y–³ýv¦¬¢é2õhm©“5ï,=ÚÌöÚÁ´³‡­¿™yXÑ5Ì,F>­¨ÕÓXn$e²õR/AµL¶Æ¾¹³¨YA?ÛÙçϊY=•½R/{Ž,0™Ê + ³v0ÎPïÝÅlS8GC‡ÎĘòÞf9ҟ²ôž9OÛyŽì‡ÙÚñ”åmJŌçFÿZ²S +:sÏú ùlü×z"lj_”ßÙ +–yԗÚiß\Ûó2뙼d;£Ë˜eö1i¥Nùl“y4vVl5ËUY‹ÆX¼76g]ÌSž + +ô§âhYç¾ü”ÿ÷lL¦n1Ó +Y¯ûçö/ëeϜþÇeëœóHLGf=Ò(£]^³‘Í5À"„Qæ'g£ÂF õÌùœ7§ñ³Ú¼iîléOÌÒޔÖu39Îz¡ÔÉF©f’=Ç~èn©Å{&¯Ÿ“¥›ò¥—Í/K˜BëÙIÙü¸ +w0™°ÞsϓõÐӟºYt¤d³ Æȼ¾ð:Ù +[ÐìÙ}Ɵ´³±S{•9´‰mhk*F +>ÇWP]—oJ³Kÿ9>´“é×è9Rœ¹Ý|úϚMŽ +˜L¶œƒÙ™ŠËG†,×üÿåIcø›`öä#ÌÐ}ÅX4¿ŽÍ-[ì‡ænBùs#ÿß®¸™IbÖ'þ¿Xe¶/ö¹nî5[â]m +qáaMw\hèïë&¡¦h ¨m¤§¿OèíÈjÛFÚ¾)F'V÷÷ŽÒ–aaiŒ›W^^ +¬0_¨îí.èYß=2,\ŽÅ;×ôlŠ ++⛠+ +ú7µõ=,¬jëŒojÚ(ôwýËń¡øúžá‘øP¼SèéFõÂÕBcۈÖ4+»ºò +¶¾N!Þ; +ßÜ +hù³3-øÜ¢ÂâþÞÎ҆éÔEùBNCOÇPÿp×H.C\†Ú¸:J‘Ö¬X¹fiýҚê5KW®VÖ +˗ÖÔ­X]'TŸwA]]C݊5FQ·¦»gX™e0 +a“Cýñ¡‘-”¾9ڀqýë‡Úº·°=÷‡F‡ãBûaKÿ( +ÙÑ?Æ( +í댱y€òMÃt’6¡·§#Þèmë‡âñMñ¾‘|¡†u·Å +þö‘¶ž>9rÎf(i›Û†âB¼&:{†â +#½[„®¡þMgöÕkõ¯3”Í€yf\'ð~¨§}t¦†mö÷ÅÏ&({xvSñáü9VÌ +¸Mkë +mkï +mÇGÎ +/\Ø× +fÄ3*€¦” Gúaèð@¼£§«§ã‹” +Àž‘ž¾õll[gg՗¶^aˆé] +m +b¼ +õF>¿©ÞžM=” X„ámîÚ8<"«\ð‚5öoýmïíî¦ëÀ\2»7µm`ÿ ª-”qg8tîBŒK»Î×Ö·E +³e:úû:âC}) +†RûfÈÃÝý£½ ÷c= ºT¾H>ÅIÆ{À¶d‰Q¼9a[°ÀH[ÇÈSÂÚR»îúòiٖçt€É´Çg'‚uÚFP„ +WW +Q!g~qY®P6o~´ ¸ @«½p4̛W\ +yYQ™PVZR^RnÔuŒ +,ˆÅ6oޜ¿iVð +ý›Î¶‰¸P;Ô¶™òÌ63­ +iÝØÛêîïË.êé +–· +uRÌ+/*dÊ6ļS°9­ïê +Úâm)·AÑiI=ì€Ëûû:A}ñÍÃm`¬yŒG›»{:ºÁ4 +ÍmÃBg|¸g=˜U¾ , +1‚xGۇã Æ>jEíq $>k”§ J½Ã¦~ØÀðhG¨w×h¯ 3t(Îtlf£ÒÖ÷P¥í”©6ƒöƒ‚uÆSàs\s“ +˜jXãçx>qŽ>yð£>˜´BCý£ë»A +øe# vÐ + 2N +íóVt«À¢±þÞ1*‰®Ñ!Ù +€mPΝeò_"1XnqÛ0ðºŸÎ¼ì¡ú4<»qà\'U¤ÎQ¦H£Ãtdc|h >2ÚÆ\ac/³ç<ÊxÊæMÔZÀ +Ã#[@´ +ÝmCT a¶‘žŽa̍ɧ­³m eÉë) +ñË:â½½”à^86Ú{z{ÀwôôÎÚÉúþ~8,`/ý›¶À®/î錃 G‡e=iïïß8Ì6´©m}ÛVð¨Ã²V +ÅáP¢Ž¥_ÖÐÎþŽQ™DŠÜÖ;ÜÏÐÀ +ô¶ÉÞ½­|ùH¥5ÿ0‚X÷ȦÞئúvjlÓðº*:ÐÇ!zåÓÎsàæx/Õį +Bk±”á3ì¯|ļ‚¢C,ˆnûJl´± ÷¾³ +}õ£|Õ³uG¾ +»{†{{òýÿ6E=ÿEË¡_~äÔÏFŒ~åˆóØÕ`öÑ$ +ö¿šÊ÷ pۈNÃ*ïÁè¯Â¿ˆÍüUXKX¨=Æ8ýÕ؍H~„>Ê® +ò£Éÿ +'¿’J +WQ©X¨¨Q”*æ+$Å"Å2EùW®°æßÖ§e”Z<à¯Æ”¯/¿zÏ؂~ωPûj-égט6„ÐShÍ̤‚¯«+”& Œä³2™“[xˆv$]™ +Ï(8².Í^hÀI››õ äâÅ) t¾ +Œ‡£ +oUë}‰(£ +yÔxN~áGÏB +sÓȌ1må>çÓa5njܜV(UóÜ?Q#$‚`“êç>FÛ @ߗŒÎ£ +qûÆu¦B +ð?cúm‡Ä¡½cV— QüÇÓltú?%Í6î­dA± +ŒóŽÂÆêtî +ØÏËÜ/‘ˆ¼Üï¡Ì‚ò'Pz |‘{ Ù>ï7ó +Ûa½ïú÷¹-(ºජB(æ®Dn†öÛ¤I^ç·ÉœpaµŽ{ˆû:CæQ1”½ÜÆd¡W8ÌÝ;•¸÷ǵzº¿÷“|Fá3Ü{ÜF”X'Ëî5?Ãõ¡$JÉĸÖX¸«ÚÀM™À/ì£{X.q¿LÂD°Þ#Üvdƒ¾#ÜU(ÊG¹«“ÞÉÃÜßÚi: +¬w_RSD‹q£©p²ZËݽ ãÿÍV;5 +š_ˆªCÜ7P$Lý@ ?­sôˆéÍ š` BÜIè9 81îM4À½ŽvAº`L¹% +<Ā@Ná!î +îëÀ þ0ðCë•ãZÝÙדÖ4†öõqƒ©°êî5´Í·; +ûs73Rv;ÜtÀ¯’Z°îrY0p+•Á3ÜvîjƉ«?‚*Ffî6xfÜ`)ÜÒ_Õ~Èot҇€¶hXƒÖAâ½qÜd.4æÖ²ÁK“¦"ï3Ü } ã֒d†Ÿíù¼qV +斁’¬äV$;½°ÁUIL{WŒÏ_PXp˜[Á^‘ôŠrs2Íɀú¤VVžšq +.WË#I‰5GRvÇ +ÇÓí +^PÆŒ¤"úÚ W2*þ—11ŽŽóVPñN®m»µBÚ +)I‚,ôBd!:ÎZÌ\)ÐTŠf q ÀRô$íóP¤[ = +é8$%km +D ½Vh +|$3Æ ÎC.Aj +´ +Ò^H“>‚¤FG¸(¬CßE(€|;¤¤·8úFB?—ûÈ£ïkpšÒ äEÛÈ +iކ¶ámd·M±M¹ßfÑH%Á¼BiÍòi–YY«v@»]Ëh%m£–㵂–LÌL&Õ +Š ¬ªE¿køsÃ' +œµl—j—š +©6€ã| +҇˜¾KsóPã¡ÆK;¸#•oU~XÉ +ix«áÃîțo½ùá›Ü‘è[Ñ£œÔà^PX¶÷ãmø¬ðâ®Â+±b +×Ïmãná^.ÆU.(Zõúíz®@/éõ +¯ôd—~¯>¡ŸÔÕ+ªIÕQÕqÕG*e£ªU5 Ú®Ú¥Ú«RyÕ1u•ZR)>ª®!¯S÷Bž€DÐvÈw1ˆg=“eõ]¬Þ +ù«K72H„¼€BD˜ëw€· +ò]( +­‹Ð:$\øo¡mò]ù­”é/H„AüQ + +D`2@&«cl—Ç`—ÇØ.ÁÈclíc0/@DØík +ï5À{á½xú²¶VÈ$AÞÈ ò +‘×’b™¹ÚNî‚×A~¤· q(y¤~VóR +rä¹s<;¯pû¹3G +_.²ä"“ãNWáºj3¹¦¼¦¼&¡5/¤*Z›™${’µwOr‘\,(z«º +ŽJº•=h$‚VB~ƒbW1hÃ1ÏՐgÐä{çÆ­còÙ± +¹¾{2“­ÐºUÒd³ÁAnµh¬ä©dÕ;A$sx(Æå"I‹ê4Âïø–ÿå÷°üÛ,¿˜åfI/ÿ),Õ:r> +@óG,å$SÀønÀøbÀøý€ñ¾€ñ0þòC‡OrùôÿËo|Òo|Ôo¼Ío¼Ôo\å7.÷Ó©r ö0Íñ×Xž)Ùãg‚ñmÁø3Áø’`¼W06 +Æ ãÿ†Cӈïfùn–—÷SøáTÍq1qÔõÔ¿aøŒŒŒÂx<<,óÚ!wŒDêX? Œ4Â>€ 0Mì5Õ?‚FÏ|" +Gjšö74Ô9zjÝďӸ;Ò<Œ"yÁHÁš@5 +ôm,Ð׫lE¿nøcÃÇ +Ü$‹ðB:Î"üIˆîB:~7Yy´òx%7Ùp´á8à¾yôÍãor“Ñ£ÑãQ®,µºT3† +žùŽF†Gis3jÝP +‰ +G(ɳ<€Z„¶R®ÀGngã"0Kdnlä +0,wŽ²!rë𿚉2SIßïW£Å~^¥žà4RR*žçN­x +#§F¥|žpOãj¤ÅA|rDøÓS+øS +S¨ +`þ3Èæø,>K2œ©@Ÿ Üäg’}ŠÅ$uã +¸Ÿl!•°–K2ÀŹ”Ø©øÁ7 +‘ü þ +k89¯ûJ|dËÔ!r +î?Ž€™·I•’¾µ_*yÀGW.@øÉaLôÜ>:É>’§xºvuêä +þtÃIØQUÅe~ä +þ˜‹˜TM×lÇÏ*7~2¦ÜIÿÎãü™ÜÊn¸ØGðù’SëVyUAm®]ípgAG®V­Á›5 +8G’Ve6ã*£Õ>Áé¤ ’¡b$Eò!+* +lá¢b 5¢½”²¨Õì÷ú‰Ÿbšn1b£”–Qltæ}üWJæéÈPÃɖš&Éî—ÙÅ~:‰ŸN⧓ôûñ •K3 2 á$=Ÿì ¦€l§ê +ø¬„!´|FµÚS£PÕÉ*à`Í© +‡Ÿ×GTfo"ª€‰JoдA¡Ê°¥ÛˆÊép9ÜNE0‡˜S +#¹¢Ê²øÛQH +Yfš½ +ç(!ó™<íX4d·#‡ + ˆ9@š +SŸ«Ð +Äéjý¡lø–—•–Úì6%Oë¢_­RYx»ÍVTXVZÆ=QîþÖEíß[”ç‹T + +ûyAÍô+ +]È9?â +ºÒÍóó +ayðg‰Þ«:[j÷|ÿ¿íùþ½7 +~w.¼ižà÷O}8}¼ý¼aþ(Օ + È + U;ºæidÂ?À%Hƒ8è_§îW +á%mQãÂíĆ€ ÿï(Zl„H&³)5j4z1ÁûK¼ÉÔhî7ï3s¼›ӏ +ѐ‘ƒØñ[Ì +N€ +´´T4ðS-Ôª¬åŸü + +Á-P +oVØDŸÅDØ.šý +°ŒOðoæÀµètZÙ†mO᫑ˆó%QÐ9 +B¡í¡½¡£¡ã!U !)Ô-»B‰ú–M ªA¾å”ÓÕ0u²9ª*xøVU¸¨MOUX@MíT\öòÐÕò +¦üˆÎ( +hy!BU¹¼Üø“˜Ÿ”ó–³+j¾¢B]§#jÁ-à=}jŒÝfÇ*‹°M®P·XR +®2›ã¸5Ó¾òÌ|÷†éEK¿V‡ÿ˜†ß«ú+§Ü+›ŠdnøéQ|õµ‹#ån^ +ê;îR,øôáïåz•Á Ï²¦iÿ +¿: + + .XJ“r9r£š‡/”n½ÃŽ­q÷+xÈñXÞSYOå½¢~#úϘ.ÏÇKðR÷ +¤Ù +'דk + +Æ?ÉûUÞ;YïúOgýÃÿËM(˜d›Öï7 +žt¿XÌâ(_(˜FÁ¬DÚôÌü`P› +ÈÏÈH'á|F«A/áMçw­ +WQ`ž9ۛM²£f“³°h+Æ}‹šàµ‚-'¨ÉÔ4 +Dù|>Éox¯Å½?¿ádó)ç$MjKNš3kJyL¢æM”Û`\ +‘¨O´9”j{вU¡¼ hbØO³ˆ:?†}ŽÍDh£Êp + +Œ¯˜51ø\uµ2L +›dÝZð^”„ò"åþæ¼ëó~£VÑ®fÈlvæ¤ÀuÍyúó\*%mµÅ¢N·¥jÜ-ÿ±bàòÝÓǧV~­Æí®m!;ß{nàæ©·oÞ±ä¼k¿ +ËJw,iº“ +‰J—ܺ§sKPœßÇ +ô•ûƒ«hißc•FÖ® +®ÀSwO7––·cõºÝô¼X5ó¶òbˆ–ØsÙf¶kuřr©J•F(¥f +.­»4­Áu½í&×-î35-­[,[¬7Z +R=l|ÀþûÏÜ:• + +jlՙÛm×Ù¯w_›ù¤âp–.êönVÇÜק=eV—™,ր­% +Œ'p:jk}X¬&ågڐ¡Åëblq +„pÈì;„ +ÙñqÖ¬óꈮÁéWFh°²Ė"vÊ3áˆg +O/¦Ì +ìŠöFŠ²×­4ˆbÚ#³í5åÑ© +Ñ +—IoXqY®ixSÅ}Šé©WK·ošºø?.Ÿnë.Î3L~G÷u +O_~ãµn3È(B„èÿz†vJQŸT–Y¥<Äïw +«ßï<à +ô‚Çâ­B°Æev{ÝÄ]©×Ñë¡£^¬:®Ã:I7 ›Ô)ÖAFtNÁG;ÝnOñq +ðMúHOò­óm÷% ¢Z4&Ð28·šSÇÇBÈ +ªžÀHð‹”gÐT–q†|p6ÁäÇ6ëÁsˆ”áÏ®( +Ái`Jƒè©´ +oƗ‹ي]â®Àƒî +ÑËý2¹Üb¡  +nî +*ƒøÄ +¾ +¼À¢ þ}O}’í +[œ¡‚l){o6GÝúŠvQl©8uj +ôü÷TÅ©–ŠrðÙörF,;¹E.$S +¥±èÓågQýêBFµCt¶öîê‰á7¦_BýÞîr“vùý{ +𐻁><˜´ZAFÿHËi!m6”ó™™f>Óã1x4Lòv¿Ÿ,ð¨ý¢Eðؖ§¢°AŸiÇf§át0sÛ,fÆ +»OF‡ˆÝ¦1k1`Œx +ܯh±È[r2‘7º1r÷«®ð35àO +¶ +Ñ»tµ˜!ùVMu†"Örùp£§ +>v(®xA£CŽ4¨ºìà+®xaÿ¦Ì¤WF4“"i%È̛ËА0àÛ.l÷݊v™w »|ПQ!(|aE¶ÞŸv©ø‰™K’i%P<(¥Yéƒy> +óü.¼73Á'25gFð`K„> +z‚פ»«xúìVkuT!)­ +MÌ|”ª™Ó«Ì3 +(—4Ù«äÔ=öÀˆoÔ YÉ°ˆô‚Ä +œž™Ù`Ô%xš|W,ē-ôù?Û¸±N˜ö4y"‹+•Ë?{’œ·5²€@¸#®lýt·¢ç³ûF/ñÚ^î™@©Ÿé/Æ Ýàü3¢,ü˜TÔÍw§Ý¡{Íúšó˜ëXækž?Yµj‡:ËN +»Ëž™Íg§e§ç¸tYÛá8´Ó,#uHšÏ:,i©¡‡f'=E)¦™u7¾ìQíÑÜnØm|ËÖk¯½†tMß@CÌ3ÁæÑ»¯}Úï wL +$·Þ±û”ƒÓ7+ÿ +Q!~YªSè»Ý™ëƒ +«Þ¬K[j^š¶Ãx“ùFþFëMi;2tµ¸F×í_ÜcÜÍï¶îÉxÐñ¨pè§æŸ¦mԆšR6–•*ùTé 6W@ˆ™Íàr¡Õé +z¥AÅë¬:[5¾õzó +i†Í†Íüe¶Íþ±àMºÝŽñ‹:í*ӏt\Ó1Éa¶ës £ÿõÝûzéE·½Ä©飉`^±z— +àæ©J”8.YôÞ_"êb«É™Óëë“o&Ô$H¤÷҆t×$„IìÑ°ÑZœ#{Ì,#-§©Y>yÎÅM +“vžl¦AmÅif#U'©c/çÚ"êrj¨¥† +Õ +†›ÄYw9xÈBV¨ú3¼A`~¦ +ƒÞe¶q +2P¸¹ðgÝ] ¦š{ÔÛ2H¯0¼‘·”g@2ƒ•¦AB²%¶(ÙS¹ +g‡À‘O 9>Ë-|vˆ{5ÿ¹oåDwo~júõóOO¿ŠïÀ +p9¾}ú¹é¾í\~Ñî;.¼¼¡ÕpÝõšE¡ƒ‰b¼«p¾mºwúÓÿ˜ÞªT +þîô›Ó÷?<:ü^†ë¿E_@£1ÉoÁ&EŗIUº†\wdpÑ!.s—yž¿-³Ã¯¶"%RñJ^¥(ˆ­wovoöß ¾âþ™x4¦Ùcû•ëŸŽOŸº”1a‚üú³ZPÃ@*§Æ›é–]jTô§‹¢›x +3}îíþþS~Ž÷7úú¹£~췇3ýb(˜ïžÀ¿—ì"Bª@4? +Ì^ø¥Ïç÷«Tj +xX)i +(̇IøMûG$›! +¢ÔCĨÁÐHOþüE‡°“=/l© ‘1=Õù)%ӈÕN²¨ˆEÒS©ëìàPK9}üPÞBýÓü +.’Ùy鮌 3”ÌKÇp¶ +²ˆ-ùŽP +¹Ügn±²Í倣ÓÊ#Cy¦#-£ËÇr +`|‰óH=zS§ +P`Βº¾ŠDï1u~ʋŒ>±«·îë¸^rç–N_8½¬¹ü¦+o½—l˜¾ö\Rûäå··Wz§Kšm^.H6=S?,ºnã]ߦ7¥ +3Ç>ð,å8*•; +.ÎÝìãT&¬5«#ª‡Ù +‰š#|®%æ"¼Òpid}7†)ž?UœV>wý\*e µæRo))}džÇ“µVðx/öN€vÕg­E.ÞE\däF̚Yo6gê3͊1óXî]æôOè_0«"¹f½BT–ÌãĒ +íJ<û^–_ŒB<ÜÚ&0/™¬® +`ÿÅ +Í/„ÁÐtÀ;/ß¹`—ïOâ'NR—Fßr¢E¾ÊÚËáJ¾ +ñ﷜:ْºÖR˜ûU¤fM“$pzÎL‚¹¡È}y«~‹ùúÜë"ß1?®?¬ÿ©þ§f#t3 +œ!rN“ï²ì¡ûf¤+ØCxzÁ-E¶”óeçÃý¶”^oÙý–{NŸëùõ]›3;åXü¤l¦‘Yóóûr´f](4õAM +eçE +ÎfŸ6ÛCf?d`~²?N™àà¸ã¡4z©Q¥np)SËÉw +ùªCC@,ÌlP]@žW.t–]ÙÚwWCȽÿ:³|¹ÅXuêÕDë5½.é"åò oÁÈT÷Á± +?‡þý +Í*‡µÃΑœë´×8÷¢‡2èy¤u8s!±¢r´T¨Ÿ7„†°ñn¾j;ÂZ§S +¸Óép¹4zDÿçª?*°ÁYc!»Õcràv +@ +fïuey¼óžy’"Wô3׎;ô:ˆ×.—zrAú.¤áÁö4ÑܜôÜÜ +Òóz¢×G +öt‡Ã®Õi5º +‡`§J­ÎÉ +RØnÐë|ŽËIÿ§R‡êB}n87‡þG¦ˆØõó/œ|D¯Ó¨µEv» +Uëð3H@¹¤IÈAªæg&ò–bž>½$ëÇ}·lrLà¼ëhœq9¦\Ž)—sʱ¢.^û¸øŠ +š**è“dkùP9¸w4äG¨SWî%ˀ‰>S>ÁÑ͎ƒr×9˜¿ä1³\ù¸e¯©ÐÐë`n‰ÈîäÉ° 5 +9.rÍôYKKËà ‚°;2pð"ý‘”^À|Ð~§« Z ½´ž–Æü~v‰úƒPqºª|úâìéÄôÍÁéŵ¥Y~^l +Öýz~~au¹µ.+Ãýû‰üü• œ\ h¸åÓ{¹ +ŸÝ®XýP½*$ٞÐåS}„ì[ gÖ©}ö±©+IÝÚř¹1¸ÆV\:ó7îMîy4Uó¥ +ϗ+¾¼Pª¨-¾©ä6õ]%\%¿Ú–• +,ÇWªŒ>^ñdôÅè1ßkÑc%ïDµ%ê:õùiçۗ–4Ù»4ßAw•<€âƒC‘o¯Ü£¸3z÷<ªl¬ì°µVÙoÏ؇Xð,>^©ÓØ+GrK4$ÚAÒU^°—¸i@e"y9‘¼`$/·¢è±¢ÃEœ¢hQQCÑEß,º§èEÏýgѝ,Òᢠ+éŸ&®Õ(ˆf¡f¹f«æFÍ=š5/i~«Ñê5ǹ†K·j8‡1äÀŒ¹]± +KHánÔ‹‡”)6;¼ŽuŽ~Ç=Ž}Žg +ê· +ï;>sp‡d⋠+œ—Þœç͋åUå)òjskÌAoÿŒPL[¥Ý¦}V«  HËk‰v–x©r{%‘*[+IåÃ8ƒ¾!å4æT͸±;‚Êø2RV¨”Ä`q?\£IRR6*[• +¥sÑü +AÅç]Ç +ä`¤áäà©ÁÈ´ð-ƒ§Zà:ó4=㪬å‘ôƒ·–Çø–¡H„¡æʨ¹)ÔܳPO§î·ü E8_ŽI–±+¨0*ƒÛ•é"*mHþlì18³ÑäÕ,ªBÙØeÌÊB>MVö92fÏôáV&^¡ +ÐÛ·k +R>¨yR¡¹Zs–lSlÓmón +Þ®Ü +P±ÇÍؒú=Y-ÄFÅòc'Kº=u +Ó¨ ïûF룭[_¹fùXù]~µ.R„¯Ué–/,Z:¯4{1 +ºSS[Þ°ç“k +JãŠV¥eºIpêþéÖmâÂ¥ + +?þZãzÞ®˜9Á­/&¢¿J›>Vá€7kÌú1ù±x +ÿÿž¨uœGÂé{»´ë½cÚ1ÝPÖî´ÇÓ +OŸ O¥ÌzJüq֑ áŒ4ę2¢ã #GñqL8 +n¾´ +‡Óñ‘[þâéÕ¾% +½Ù„MLQè¬Âì´ÖRlÆx/NÀ×¾à‡à#̙ÞL’Y¨NáÑò`N¤ø¨S.5¦bµ30ÿfùwìú* +{èDo” +'†X0{r¯`¿}¶ +–²_HS?ჽ + +™ýúˆüÃtêµÙêlìNò.þqÿáã]—»õ±ºù +´*»Ý[à/^³´lÙ¼¦¿:¾¾»^|öÖ}ßZ[^»¢³Êé,j¸çÚ¿.ŒäS[Y ¶R¶’÷Æ­’x‡ñaã!ã“6 +ÕZ¦AY|±{£Zã>o֏E9Òû9€ïSy¸äIMäZƒA£§ï&KNû_(] +S!9¢ÍÛA +aÆ@pȌWb’À»b²•Ñb +ŒŒ–R:ð«1v4Fb{c$æ +áDíEÊ Cg­ì(¯àùó¯rÌ9QÊS°¡Èi¹vRþ ®ôGNž½KÒ"›ÌœÑäøÃÆ´@P +•5”“›MT¦ ?-”ÂFȂ_6Î6G²S‡ÀJÂÌJbƁ´ÿ@8›Œ©LÛ¬cömâ@îåÑëí;£wwÛîÊ{ÐöXÞSy¦íæ-„J±¥™YwL¶îXʺc)ëÆ쥣ÙxìÊ9tu¤Ì¶Ä’4ùş”È˸_ª4ÑùÓ£çõ׏w¯é~¢»¦{¡ÖP°xÇùƒŽ`¬8jÏiZ¡\þé+›Ò}‚Â×ðí‹*÷^ýÌî·Wc×F›'3OeÝgzÖDÜ¥¼¦ òºdñg¼~ѯ +x¢˜ðú&Èï¤1'àÍE송ÈÑ¥Pû}>“ɨÓxµXNO“|ÕUiRÝyÅiÒ¢’4©Rù¨̃,;²H2²,/dØIÃæ4,¤ +I#|N£¡“u2{óù$–?Oò¥ÊJÈ8LÅJ˜•0!+a&Væå³R2¾å#Ùí†s²Ylì£l +˞Ì>šÍѦñ²ŬŒÍ“KØCÕz|ÅÙÎè +ÙuPe‡Áž!ó©hb+ćμݩQd¯³€CW͚9ú~–Ÿù` +«¾ŠýR©M7T™À“ɵ4›jvdN3dp3Q»÷¥Wy€ßBÝý¸€ŠÀÙ*®ô×:ú›Îìyp¯µÌ¾î"·Áû|Ãöº¦+rsM‡ +Vkĝ³<Ϝ¶p:´ÐiÉ®„óõ«j:w읾mc‰:Pû\q|ïÈB_YÝ´¾Óé×*Á¶‘;¸¡XCõ Ãq *{‘ +e¢×%[Öv‹½ÊlAV” W9+Ÿ©²¼Vêüýƀ×BÑðf +f¿¤j-Å¥ÅûTX%!lÈTY-:-åA&´Ê±³Äå +f£×HŒa‡]‚éÙÛl +JØËm‚(¿”™fg¥‹'ìø;fÁ›ýr)«1‹x³Z³öf%²±¬ª¬[˜Ì:ž¥ò¬˜„ +wº%õ´–Š +‚g0N6Ud¶ÏX +Á +g‚Õ´sù +< +U¯½D’Ö®}%¿fZ]™•ž¿XÙË$é’é +SîŽ2E @üöâ0Ö¾À:yÄZ)×Z­8aÅf%R!Þ«äáÞ¥Ò¼*Æ; +ð*ï +/OCQ›#UJ]êqgØ §œÑ˜¡Åx´¸XŸâ-%X”Ðã[ôX¾©_îµîµ&¬\ÌZe½Å:i=nUZ)þ¼âbZ +Œæ[ƒ¨‚ŸÃ¡ÙŸÊe + +d?~œËŽñ3lXþéØ +ñÜKí”x ~9BªQ89êÉ +É{ +ÁV«WÒe•iÌi¨Õ{ÓÀpêU¸´ÌðB8öÚ4àÍ@J÷W¼¢ß +𦉢”ýoö9ö¤(-ÄeïB€¥°¸8à­Eµ?ZêScEVEa—"«K§S¨Q½ªbaNvzšn‰GÀʙ +³üÅhÉÞ%‰%“KKìv—Élöš‰9ìr‚ÛrRuóYç''9oèý=Ÿ?œ +®(ëŠ>=å¤è-Q}™Ë¼p‘ +/®¦3»<þâÖêãÕdou¢z²š‹Av´š«vž·d‚¬ +÷Q§B“š} ÅxS³eK{Š1Hßù`1(ã :9™z1®œ +þ;ã[Ø1ˆÍs{ôF¥ª ”š§ÌÏÂ*µGïÊÂcLU˜ +݆,ù0š}LÆÞµZºf‹dõ +­á¾Ò«õe#Á§Qcöø +É uÉñ%DeŠ +Ғßè•+•+5+´+õ“K”óÉJÕJÃ'*}è=8$0Kè© +Æèq>£J51óqpt¬÷g˜˜ùh®´åv(Yݬ—ëæT?Ÿ%­ïןùE“ +¬4"ʐ# ¯vˆ•döµ`Úö9~¹ášk·úoklŽfWN{ÊÝÖôˆ'ҵث§3³£æô˜;Ç+¾,æ7¹‡._S³æ¢ÿÓÞõÇQÝ÷÷ö×ýػ۽½½{§Û½Ÿ»:­N§“O²dËheɶŒ-,l@¶©1v +´2&)¶9Á +¥%Øuƒõd’q3<Ó6‚v&fh1t:ƒ&!!igSÜ +¸5(Õ©ß·»'K& +t:Ó¿toÞ~wïÞíí½ý¾ïçóý¾ï»»ax˃Çë_½½v’5R7ãc÷ögûúêþàpÁ(ÈW7âcãV!ª +Õý;ú8ۚÞN‰¶5u0{1Œ +“bf¿s†ïñq¸l{•CÃeÌ^9úçÔOéŸ$é(× HNÿ¿™¢$!„²ÈÔBbV4O +?¼8Õ$4ÁÁo +0;ŸóžÛø!ø +ͪ›ù|6“„_¹•¥O +HùÄ°íə3ÖH¢ï:ËùmDFeé2è¾ ãŒüšLÉÞe€v™@»luvÁY&cC& /|— ¾ËßEËÔ­üT™ª”Ç`Ø¢—]D·%œ¤ì"{ÙEò²‹ðeáí>ÙËMN"U‹aè³Ð®ãŠ~NŸÒiÝ +vÝ +v݁ôBMWZ/Cºèâ +H7Ilå²nÙÃÑM4‡7ìHž‡ë×3 +\®g¸.\® +× ++q½ÚŽî$¼\–5:'02_‘?«³/­:¼öÆ»eTÒ茋’™ +YctÖ +W=÷¯Ü9Ôs²þÍÛmX/*;ðw÷õfÖù/u{æ©¡»Fã9Ðà Êâë¬Äù$6XºÞ҃yâºÇçåÓÓðÐK7kƒ™dÞñÐl1èˆ>[Lô,«iÀ×=—ŸÊS(oå·çÉ.k忓§òNŠ +5ÅcÞe趄Syˆ9¯äà +‡ž5:»÷ËéÜ<ǗsùY½a/Céµo’mûqVÇ[S3*Åɑh„â8=ՔlRšh’‰aÀ·L«8æ“T”ð¤ +’‰a`•©8⏫¨‰sV]˜-$üưڌ{ðj¼ZÜ`ǸñÀ¸8¦ +⎎ˆ‡”W¨—5ÿ¸Î5)^ †kB©¨¤¥EU,q8‹ÇQÚT5þ²–¶©j¾ •ˆ6¥óþÁR{Áâ5-îvA%NMû +QäoC +ÞöÜQϔç- +úø‚Å£’׀½·äsŽ¾ål4¨Õl™ÊØҒ¥Xí\å0ʉ9*÷-ë6ÙºåpUP ? +½xQ¼à°y°¦I”Ãc+Ñ +pfó4ˆ8æ¶0sS £q'ÈâäʹQËWGZÞ½by[ç:?˜N–¢ì Tºëže¦×¯·ÓO¼þgÛVö­XÓÏp±\ßÍ_~£»GL)4‚ž; +kJ²E;güõ:Ü£êë&¾=*ö1b°$‹éÃÉ1ùåâËúÏÅwÅODOI,¶t‹]-ðä)<Éÿe~’6ϳ6è-EƒüP€³x+@I +:AiÜÁ/õ}‡€9^iEÐ ©OÔ*˜ M9‘Ò’IbX¡ÉÑ$NNâÛ¬¼r"ö$±ºé‘T]âÝqlIѾQr20íè +/Ԝ£ +qM­60ÖZ‡’B +WjëkÛjP¯®q5ə¢·à +Î^.YjnlÜL +òlV›NLú^“ÌޛÄBœñf%É:*+oðZr¶ÏÛÍÃ&V„C¸t8 üúNÉsޘÍ8îô[–ÎÝ +ï&W>'°%œÃ–p"Ÿ™=“¹å‚}KÁVsz°) +1’PicNC’åG>HUU¡Oœù牀ìHhA$É¿´ÚížG,ð) Ú²*4dUhÅʍ&â/‰×ÙHH°×z Ëî«X>6ð]H3ÒÈiE>¹X†Kƒq<5áHøªÀ+Še`pôcË;Å2ŽâäÌû`+A^xŽ˜Ù&0¤—©ó´†±[`¸æf40³– +†BžžMfp–v5rõ©o +¹e÷//-‘3X]÷ðȊ1•ÏƲb®üíöe½»+_ýÈ7Ö¦ÂR,A¿Xñá݋ +)¥tþOGÖ +ná;ððáÃK[Ú÷toÜqûé¢ ø•>óuœ™F +zÔ + +á({Ð2‰ÏÂíad™ŽÞOa.ӟä¡ù;};Cä2øs2ÛìD€È_ +áJè\h*D‡”üºÙ¿v”nndîŠ8 +@ÄÅÙ8 +aŒ6Ÿ'‰=$äc‡h€4âö̕îb¹{×»ۇô?4/«ß¿âë×®?Øb\ +R +ts7áÝÓG»wxõÍ_;‰÷‚=ýÕ[–¨‘äzü¡ëõ +g.°ÏÀÝo¥®VBaÜJ’bŸä¢ÃÇø¸ˆDZd<¹«Äûä¾X_|½¼>¶>¾™Ý,¨w°·úoáwK·Ån‹ß¢Þª}E< Ý»'¾Oݟ¹Û8Òö¨ù3î +ô¯¡w[?Fù?â +ú´Uçü +Ï +‘ +3ªÕ6ܶ½Í‡1%IáHùE^óeÒŒ +³Y3œX +ãÕ|ñH®,Óâz¦¨éÖäÌW&Â4 +Î>ëKj͘­­ZFÖ´Lù§Qh«¦Â¡ÊÐ>Ó[5† ˆK°/‰ +M1¾V5"aÄ +ù +~/ói†Ê˜†ff4•ü¿-ƒý­†žˆû}\+M!¾°•V' +¼¸Û ÷f²N¸7¡$km™€ïDnÃmñxÒørF›Äå³ÖöðX˜ +ÿ5&ÿ¸ákÌùÆ}3³¿5æSÊm“ÔÈDöÅM³™% P$·dtnrɨ£HWä˜ØY¥{a/ìd™Ì&—ì +}vì˜æ¼ôs~~ɼ4;½¤—˜žQ2`£Š:óÖoÏa4äǀ=1¯Ü‡êÐÚ-,¦ó4±Û@BsNV‰1'ç$qRLÈ¡ÓfЧµOº +eþY{!óàa¿Z®à7»Õôồúb +më2ëÿÙDý`z#õø‰J&T,6IáMõ?Çw$†JÞb‘Vâ±!8 +^•4 +L±ÈuÞ3­;®ÐAÓ+xÇ;¦ °õƒHô*2©º­ ®JnIސÚܶ'¹'µ»íÁÔdê•T¨9Ò,w£îäîâvyv +­|}?ù†„³+Á@%Ä<UbZT$ÿšÎh€®Mn‰Í3T© +$9™TÁ` 7¸•, + †ÆÙJR È5*¨@v1Ë& +ïšGU¡ð®•Y.‰øíÕ·ª—ª´íóåæZôJˆV¢TtÓVœ-•2FÍè7hãÕ¬‰Ø)@ +¥½ +¯Ùªd«‘½œÀÅV óNÔXhrH&uITÏI@÷H=xÛL[Cìõ®d¹Ù©¿c½«Wt4„(È(‹ÿÇ{LyÜX¶ +^p²Œã_ÕÔ¿¼ +¿_mîøî +K«Wា%ýõvVWî¾v×`­cÆ^¯H5wéԙo¯‚ûNåúXýN}ki±•*ÙeOOÕÿ«÷ºm+–¬µVè<Ÿn9îüïg×ç” +PîÁ»ðu—SèÔo-ï3ï°O“ÂÝo—Iñì÷ì÷îöÝíWø«Á*”ß#¬ýl_ Ÿ–¶Fn–ÛI‰îˆÎ»/áWÖ%+©öT{•>ªrІ́́ì.” +²PÊBY( +e¡,” +²PÊÿ½Ø~E~f +2¢‰ÀI¨ +úÜ=÷@DRDŽÂŽrù¹BQGäç5Zª jÇ¢ZgêFKf_ï_90¸ +¡¡µ­Þ°ñZ´iäúÍètÓçöÿ˃A¯Û[†ôÏ¥ý33°Í-ù¡ZtEÌ{ˆP% +ºÏ(¿µ]É +Xdw²{ +‘ÎB¨Š:Ð"TCà—"è54§ß.?úÑJ4€Ñ*ûhˆd5Ác=Ov#ºö7¡t=Ú +{7@½É¾v„"ö‹vòÎ?¼„.ÍÌ{ÂÑ +Äõà¦F%¿Üû¿®§P‡]{È~ 5P€ÚqE]ûE+{ +‰ì2AnhTæmÔÖ¨t•Úév=Ò\†×kD±ÎìC{H +ývR¡;¤/Rán‚÷™ô7Ð:ëAÎV8 +€ïÙ2§šÜ)¸nxÞþîûA*´ +‚ëÛýB®£T¸†0©Ð.ü;4ðò½6O?uú +mBïG^Ź™'ßî + òùŸœYýéƒÓ‰ÈÛ m}{ùßؐ!> +endstream +endobj +133 0 obj +<> +endobj +134 0 obj +<> +stream +xœ]‘=nÃ0 + +wŸB7°ü'5€ %]2´(Ú^À‘¨ÀCdAq†Þ¾tÒ¡Ã#ô™ä“ýÜ +O¯§¼lªý¨kø¢M¥%ÇJ·õ^©3]–Üt½ŠKØ +$5\çÒ´Ç·¹|ÿR ´óû|¥ö³7ò¤ÛwÂéVæ@uÎjœÖÞ¥äÊñ_«³ûÆ9=F{Œ²´FF/FÆäÝÐ +ÂÎ +Ƌ´FmÜØy7Œ8Ñ¥;J÷àEÀcð"``$ï¦}—€ÓäEZ£­-Ðà"#]Ù 8ã„«•O0ìlñ¾V†qÂƊ•e+‹=+»¨ +Ð3 ΊCf¬Â½VʛüIž_2ýý¼²ÞRPó +Ô¦†Á +endstream +endobj +135 0 obj +<> +endobj +136 0 obj +<> +stream +xœÕy{|[řè7sŽtdɶ +¶õòCG>zX–mÙòÛVlùÄ±cl'ÈÎËOlƒ›Ä ˜ðÉ/%qã.Ï6MÛ\6²³¡J ÒÐÂ]èòƒ’½Ûe»@Ch)îæGMØ4‘t¿s$BÂrÛÝßÞ?îžÏ3óÍ73gf¾÷‘@ì:Vwy¼ =¶åX­ +ÜÜ?ëg_ kwLñ¹g.ïE»2ö¦É‘ÍŸž¹ñ÷°¨GƧoŠÍ×4ºÑáþ¡Wž]? +àè@bÙ(ÔùÌ½Ê +â&£›§nïwß?7>1Øë[DZ¿{sÿ퓔‘=  JE"¿¥ópÂì%ØÇBÿfrbÛTl¾£P +ŸÜ:Òï‡Ãiø +4ÂP0“;~¾ ؇¡’5GOÀ*øB +z°A™9¤Á +"ï +hÅwTC +쇭X߀ôÏIŽPÂÜýAx +^„_¿€ ßXg G>> +Ð +gØ 'á7²zÙHoÁ“p~ +’r„|Ìü1z"úzô¸ÊEPë`áÛð}œ÷$ü +˜FÍѝѧ¢¯Bžþ¼õOáÜë"áÉZ2HŸ`¦#Žn‰>ƒ|HÄ3ãéêð6í0?™gá2I@ØMyZK#Ú¨8°n<ßØ +wÃ>8ˆ·x +¾Çàw¤–Œ’7ÈiÝE_’upí\{ÂKáw¢-ы¸G"Xñ´7Â-p;®ü6<áÊïã^g.@˜”‘jRCVNr?ùùù7ê¦ÿD/3ɌšÉcz˜>æNææ’B^ +y8òf´#z;ò’ ϕ(ɼg7¬‡IØ·Á¨íû`a¹÷ +BùùÂÏàŸá·çáwð ¡D†wT’\„B„jâ'+ɲ‰Œmäaò + ‘É+äc²DKh­¤«i' +¡“tŠÎÑ §/ÑsôOxÊ*¦‰ÙÆÜÃ<ü̼ʼÅüšv%Ûώ±ÛÙÙ û{]b#2 ²~Ùáð"­‘uQG´::=Cø +ò8 +oã'Þ§¥:7¡æL"܊0¼Û‹7z!ïDî=!xµôe”ïÏáMø5ÞïŸáø +.!sÄû¥+É'EÈße¤¡崃ÜIv‘Yòòyžœ@8MÞÅ[Fð†kiÝHwÐ;éAú0}œž¤§éY”D”‘£$ŒL +ÓÊÜȬc62SÌCÌ#Ì£Ì!æ{Lˆ9Íüœ¥lÛÁne÷°sìØcì/Ø·Ùwe +²jÙ +BPvBöÙy¹Nž./‘wÉCœ\1­øHãð +˜‡ð•‡ì#2ϒ–ÙE_§ª¢gÉnöï‰%à# › +-ð)ž0“¼EËÉÌ éEþí&7‘uð]&ƒù³^—m!]L‚.öa¸"ûôËfèCe3L˜\¢ÏÀ(ÌÒ[ÂG£=$ºÈújÌ]àk†³´’=IìÔE_âþ†„ †“3•L•B½#Ìoñ˜] +5ùú™Ð~ÞGÛê¤O O8OÞåVãéÂÌ1œsԐ#- +•õÐ>’AUá=áÿÍ< +ý +1ÑÂÚp +m@[}š¾ÿ +G.±ïÁ‹ôŸ` +zAÉr>EÛ» +=ÍZ¸B“ОºÐLúkkk–ùª«*+ÊKKŠ½E +ž‚üHúø¦`óŽÑ™¦¾F|ß¼JÙ 4 ++óó`^©BT +XÐ LÎC +‘jhªš§ HÂSÍBcSÐ$4ŠG2ö¦þ¡`Ç +¦Æt«µ'?/H + õAµ[š +Ò6AyC“¶áÇÄëÀ~>ïôÌ7Cès' CýëA¦¿GÜCëÆ}ƒ†;οìâËu +û® +MgfšŒc¼Ø™¹ +¾!pí¨U¬{zð +¸–Ú›ûfšqëo"[»x܍îí É^ܒo"Þ*v¿a¡I¤ôÝÌ„zatææ>”y&ÓÖ³Ù2ú +˜›ø™î€` +Ö¦ +=ýó©0Ó9}ÜäçM׏äçÍk´1ÆÎ'«ãHbÒµÈðÕ1 “¦‹XkçUÎñD +Ԉ ?ÈãIÞ©B¬†+`f°§áÓCpUp%2Lhè›ÑT‰tq}Pf×üÌg€ ,~r=¥?N‘Û5ŸˆŠzrU×pü +<èvssEáP¦xÆ©_šŸ·#Dë„I + +²:·ý=U +d¿Õ* +ø@ÈØ îº!ëó0¾~»'HûđÓ_Œ¤­Gv}1ruyŸ€šü· æfiA +ãêŸZ£Oi­ +ý_ +Ž·v ­7ôø¦™¾8o[»¯ëÅÆ+®ŽÅ±`JC€I§qŒ¦3Ò(*åú«“ÅN 1ÈÚñO.)õPˆS VJÂ75}ËcuÒjý. +E/ˆ«¤æËeñc«Ü×÷«¯ë_w¼ÄÌ:hkwï̌òÚ1™¦PEj°^yæJbJbãµÏD9‘U&õ)hÀ~Äeêø +%ÆÚ/ÖÝÇPc/†³ˆÏÆq9âßÅQ`°ÿÇ d‘§ã8 +dòj +g~6Ž³ˆ/Åq9dQ]÷ôäðMýƒÃüQ¾{t˜o›Ø21 +$¾abëäÄÖþ©±‰-üäø`ßØ?ÕÿW&yėñ]ãÛEÊ6~Å\WTYY˜•·€¯ç;ÇFF§¶ñÃۆ·î +ZU×ÒÞÞìîšÞ<01ÞÖý—»˜uMcv2ŒyJ?F©ȁbéƘ*âm01p³ÊØ, +3µ ̈'¥ºécÒ + +)㸾±F‰Þÿ_|“çêÉxŒ“HÛ~uÎ6¤­À6¶_T"b¾ +üµWŒcۉkFð +SÒªN|ß6,[aÖCñë0»oGh–2ãǐ¤ÝÚpqöî;ŽçÛúWæþWF¡. +tԉà ˜ zÔ»MR½Zªk¥Ú#ÖÔ³à±XB´`á°Øä-dº°±ùUï›-ENÅçûõ¸ËòÞÓ&ËûXžqz-û|^Ë +, +,;°/Îs>í²L8'6O|câ>¶ +ôzT}Vá‘ß>·&5!5¡|.D^òWrs?áæŽss#ÜÜ7w#7×Ì͕qsܜ››³ss6.U¡ShɊD +R¡PȬ‚*@‘Š¾çw‹¦—*׈œkVÂ5T¬iÌ2)QPüb +¦0­´µ«>Xán +qÑÎ`¹»5Èu¬ +Ì2ÛƒÔ Ý"Ð +‘¨Hڛ.Fâ“@HtïÁôxÛÓCZƒ§¡u€^ìBD‰ÎG&ԓ ®Z»ë ßQk¬ÕÕh+›¿¦ê‹×î/£ûÚ§µcú°íâ™:ÎY +àDjRç$êœH“¨ÆÌàC­]àә=A¯ˆD3{Èñºþbl±ôì5w +ðü¼ÿD<è;úGŶ8xBn +ú +F~¾nç× +ï‡ë„ÆyØÙÔ +˜ßén\¨ó×5 ý='¡ +ÌçÎ^·Ýþ/¶; ¹dàß¿1DÄWæŠ;¶Ï~͎³âp»¸ã¬¸ã¬¸c»¿]Ú±i¬«ž´væP߃EjS•E՗ní©×k&k$¹U[w§Ÿb<*Œ¯‰˜«%a‡òëòëÄ!Tq(YLãâCÆ»«­é§ÈSñ! +’µB=¸·»¿òl065ŠOr2zšîZÐY¼î +)jˆ®_&† +VíϒsƒH“±ƒ +(å²A†¡æŽ +$`R¸*Œîv͒¯-ìk×\ôµiÂ>¨õ +}b)*´j­Z;V¨Ûp +gN_ñËà2ðìiI¿ +ÊnALÓþ +svY>¡©„P–aeŒh*ž +ý=Oq„€‚í¢ÌóTüGF»Ÿ#›à~\}ŠDðÄáòŽüÝL·€Ñ­¹hZ:·Á¨Yƒ‡ª5›ï“݊»4g®"xBkÃ/wÐ)Ò¹5²\v˟?b~q¥2 +eïÉVáw×6uRa–";ÛT˜•šm/Ìâû³ia×/$f¥d +æÂ,K¶@ ?55 +ò§p +f3˜œv§9DVûUI„:““LŽºW¦ ‡‘kMÍçñ>ä™È¾˜ŒŠ +‰U›ª/.N³–{ËJµ%A(µ¦ Ùò´kélo8wy ,ü„h]Ù#ÈÞ³V® +ØÂ?,¬b#—Ö½Ün_ÞżÞ%µWJÄvEç·;üwÃ'þw$‘œÄŠÄK‰— +l‚ÁlÈ50v +ö¨^¿_—¥uu:÷çf¹íÆdÊ* +Ôî`ˆ,Ùh`Ô*EGÄé0迡Ѩ‰‚%1ܖޱínÓê’D¾ÊÝTÕõÄðòÝqýoEýwÃv¿/—q9+™Jçj¦]Á­t®Èfw*¦õûûõ* +Ñk” +—>MžA\z£ÉüдWà@®Q§xT§DùЀ_EH¾¥%£133/ÓVчœ«%ÔÖZÔT­áKn‘b9#çä +§—®¿9iSœ“ô +))eôȓšÿQ“ž¨ÞÆÉS“ +Ò­Å5ËVÜØæ)Kv’2W“ÏQâ*É +T3Ú"¿ÜUŸÎ_ôçí[Yâ¬Èk{í. +¿ª +ÊRÏ4—ØŠŸùMä2q½*~•áýٕÌ1° |Ì/¬U»Â5Î +–ƒ³üÙäd•*IÍ«T‰œœdßÇ=Oþ‰`$²$)/qO’Ø×A‘ +çÒ=º¶ù¢îh..jÎk–0¶ø°‰¹Rärb±Vò«1wépS¹Ó‘Ëä@ŽÌn'nê* ¹Ëþ¥»Ü`ז Ð!ÊåœVР‡¬¡åirQƒ;¨?e¥%1•"m{dñÞ_>¹ùÑ7î]³ã®u½3[ +^ +®YÛ»®~»,ƒÞþèîÈ¥3{.ݖ ‡’n¿¸gâÅ- +ÆÁ½øæÃï”f§¨lE'w¸mmë +1‹û„¥²YŒ½Où둀9‡=%5uÌΦÚ혁ø(“J)cOMa§+í©Àd°)*&ãÃlÕGÜ^5a8J”ƽÙ*"¿Š¦7fˆa9«%#D~þce£ê59œ!ò‹ãÖö;c†·„ +N²º¶Xýœäæ$g¸êà×x8џ¡#萜×:$dQŠ[®s\”‰ +[ ÿK›5\SѝdcV–®j(\^pØV¿¬ª•s’º¢ÕÍ[ +éóá&æX`n¤sýw66–ÞðFØÈSؾ֜´§Ã·ãW1ŸÄ|À<ˆôˆß–—•gqó ++ëÌÁ2-ÙæÌd‹Š#˜šä<"øòò@®B¿‚ÛgHVå„HÎsÙì¸v.sãsÙÈ œ"2üPp/Ðñ”H`è€lª.¿àskû¨¢‘9ç}>Éå£n½s’bi0J#ƒ$ÿ/F‚JÍkȏ[Išs6Ȁ¸‘¥X)•˜ÿI²¹8»˜>–—¹ý ‚vûŠöQGäŠ%Ðfó(T¶eFwRÁ +[U¡³¢µr„yð[¾5Òã«<´{öå;H ¼ù¸ÐfN1{nèy„荶îgë½â¯ȟ;Qƒ´9°ÑïwS›Ü–`Sº“s5.sYB•ºÚ<­™NŸ¶ìO4]“©ËËÌL4zYbó&ªt-9™9 +ÅÅLäºrgѸÄø‡wm¯Ž.YWé +Mt(ZMLàZ$eô¾vêŒù`9“&‹Àt凧 +™úÁ÷î|jÝCS–Rú<)rÔø·V+Yƒ6×ÔWîßV-§÷“™w?ö‘ÙÈáמØpøÏDvhºÄqó¿E>©_˜ +ï(l¸(cZÀ¾‹ž¤Žù5݉É´T‘Xd+²%2%îÍ÷› ‘˜M&•x¬^µ:Aµ +m@æ©Ñ +è7ßö +):k;b~ۉýgzRL>ñ®˜¢¶ +/ž_ +/¿Ž‡!Ÿd’ Ÿ¹ÓJəØJ˳xN®°8´vÎQfç5™v(UTØI–Îj‡ry‰ + æW$×" +õÒX¬’¬BªE­¨¡Å’‰™ãª+FóÑKQ«TãtÐ_=»ç¦ùŽÀEåÖ¶>ySeÞþÇn;p¢)wUí­9yéùú,‹Þ]ç +«o/¬›^Á +°m‹>rïÙÍCc7Þò/»Nõî(²%ÿáÜûcµ£û¶o-éo„úMSÏîß´¬ó}¢Ý½:ž£É21æ{à”¿Àírù,™©K&+—ûÔÚTµZ+4ÚTJ¥­ÅãPp +yÁY9kÒ«Œj½Í‚vNþbÀLX Jp#!sÎu + ¢ô«=~;=(BY(CäóØãÁæ¸`*, +‘u×8¤¸?ݸ˜ +£–Ð¥Jtë¢DP$K’kGtmê +š©E‡]&r0 + +M +yÉTt墆:ÅJ(•rC5hé+m›õ)' +­î´L›ÚàæwèÙ¼ïu¯#C›¡ót[ª‡¼É©MW3^Ù§î<}û»Z«Z?þ­ÇÚö7)EÇ®}ü¶Þð#£)IVmþ'>µKËÜ$Ô0C²û ã]֊º±:Zì­(϶Ôn5›ò¬4ì2PìÅ:+øè +~ƒ—$´¨<ÙÙVçq8ì*ã\ú¸N¢²gyŽ¨ÔzEŽÖ’e +¥ë{F¿ŠñºLõ +ŸYsãÜC&¡wœ5 +µ1_%~ +ž«] +ë®zsñ£BôW¨’r*¦Ü±ŒÉO¤JÅ(jc,Ôœ%¤›eå)~‘I±dî»?ª +n~È©ð×÷5ÖçÚ4|ñZ§³Î཯æígû¾¯¬eH;"ÏÜӛ“‘ +ù»ú`dv!°³(6·ÜûýP‰5˙µ©¹Æé”%ýþ—§È¶CiËó½ +¼PНéRUaf_ûmIC(ñ +.Šý‰É ¼  +êæïÙÇÁ¤Öˆ­µó`<¥¼šLÆìV›R&i†™8ƒ””Òä¶å*“–Íà{sîΫ-ϱÓ +÷FþQú%Øûÿöü_àÓk¿ +è>º)DŠÀÖ!¼ـì/A¾[¾›sqo Š„ÿ®ÿ=?ö«|ªßPÌXä_ýïò¿V¶­_îì +¬ZÝÛUܼá¯Ïÿo÷°à“j11„ +ùÑ(Ö¼X‹¿ªb½Ú`=,'tà TÁjè +.(†fØ Í2ÿÉäQ\ß½¢×âÿ]a߀‘ÿoˇ`þϹ +„¿P*þ3 + +‚f±0{` +TV¢'‹ömh’Ê}¥”³nèùº"» +:âÅÃ,Áº¯+äÏ0 +³™¿ðˆr£»`>xìÔ&µï3EfLÐ?\þBµØ.¬úÕûb +S|¤PaWõ +œÿ×´A +endstream +endobj +137 0 obj +<> +endobj +138 0 obj +<> +endobj +139 0 obj +<> +stream +xœí|y\[ÇÕè™{µÐ‚I€ +®‹@Æ`l„;ÆØǎ-ƒÅ€°$À¸qì´ÍF¶6ÍÒ&M¶_›Åi-Àv°“4~mº¤ýò’¶i›öë¯q[ÇMÚ8qÛ$Í×静{Ùl7v_ßû½?ªë™9sæ̙3g›¹ +4pxX¿®ÕS쳩«ÍýþA±ßz9×9 +_y¿Pîé +ìé'[ž¹@Õ ©§o´[¤¯®0¼Ýðw}7ý>%À5빸)û”am +öózû£{¤õ^@þ×÷ +:ýb€ü·ôû÷ +ª~™‚sµW!Rð÷&ޟúû½Ø•†"Q‘þšR:> +Žf­ú€åNþŽün”j +X±,âwƒ ñ[,oÒ¿:q^¾ +ìñÞÄïøå8û~©ˆ<w5ìƒOB”ÃÀa +Â8 +µpŽüV +©F |0 +F⇕¤ +{wƒ)ñC +¹6ñw8ø܁!ø9tÂ÷@/äÁøOX–è4ùk°nûÿJY| +^Kü:‡«à+ð©%­üùr¸ö +p'1‘"²„ÜN”a<'9}ÒQHX +mÐ=pDFpM9¬‡Ãäg|®ÔwJr2ñ(•J ž,æ\‰EPK¡n†ûàóð +â&Ëø2Ùq0ážüpœh‰‘ä’ç_+>-°%½ +€'áGð#b%mœ‡ß!"þ&h!„îƒ;àgðg’L®!{¸)þñºÄõ‰ÉÄ +8» +×i„«Qî}ð îî18'á¡N^#²ž´Ú=h»§à›p¦àðG8ï¡&¯'wqr”üKç¾ÁýLv^þšü\â‘ÄyP£¶ +P +¥øxQƒ«`5Ê2¡¥^„—0fþ'Ù¤šÜHn%cänr?y€¼N>àná^æ~Ã?À?ÁÇøȈ¬\v½üù)Å¥?þ@ü¡D3î. +yW ß,G +Ð#è_D=NÀÓð<Êö7øõ’†»Í#KÉF²‡Ü@n"÷GÉ/¹«¸ë¹7ÈÞÂÛù|þ6™UvHöcÙ¯ä{åwĝñŽ„¨ß$£7,E¹ÛñÙݸÊ^|î@= +†gÑZßG¯} +½ù}øWãÐÎj’Al$Ÿ4á³ ­ÞN®#~ÒKö‘¯’CäWä +Nϙ¹\î +î>î«ÜO¸?ð»ùÏñó“üOù¸,!WËËñi–wà~Éÿ¢Ø¤¸]¹B¹Sù˜ê?§‹¦0ý›xJ<#žo:þL¢=1œI|9ñXâ‰Ã‰“,Ryô] +ú—€O>¸1rša +\‡òï‚Ýè“cðø,>á +&á¼€ +÷cø ü^Çç +¼‰–ýÛÓûp +÷d&vR†þRE¶’¤› +’½ìù$ù<ùy˜ÄÈóä$ù!ù)ùyœÂçò7ò!gàÒ8WÅ5r«¸uÜF®“ +pƒÜ~îóÜÃÜ×¹§¹ÜwÑÊ?ç~Á½ÁÅùEh‰&þ*~ +jd”¿‰ÿ2ÿ4ÿ*ÿ3þ5þ·ü‡¨ÚÈ&³Ë +²YìS²SòÔS—üzùA|¾­P+®W +VL*~¤xS©P(¯R®W~]9¡L`¤ +†{1Jç}Ðã +' +ܵ(%O¾Ã +!Ÿ#/q²³œ–t½¤ì¾€Ò'Rúf)‰^¨ +ڒb¡É.Ä^j´ +Sdˆv„ïj´w±³ +naðg¬AØfà B“¹·Qˆ‘ +BSlåpïXӎFd7®Nn°7’KŠa8NLË 8SSÍ8* +˲76Å2íT‚ïhòwÅÖohoj̶Ù:JŠc¤¡Ó¾3ö1‹‘@[&¦hˆ)Ù2BîîƋOŽÝ9¥‡;\)]ö.ÿÖöïï k¤ºpÝƘiïió\™Úo?šÍ5™ƒ펍Ý*Ä +ÝÐ>ÔFëŽäs9ÇÊ +c+qé;©Í +„ŠO·"n*`o¢˜ +× +±$û +{ïØõ;Ð +Yc1Ø8j›ÈÊò +Oœ‚¬&a¬­Ýn‹ÕeÛ;ü‹ÆÓalãèd¦OÈ\8RR<®Oµ9®ÕI@Šf>˜ +c#§PóÆYu*‘}5zALèP’v;nd ­K`¬s ’ᧃà¬Xš!KjØ1¦¯¡x:?&wèíÂØû€f·Ÿ}{!Æ/aýû@Aê +³þ +ã3pÌåŠQ¿P6 !QÆå¬_YR<<ŽcÔ +Ø ú`};Në¨ñ Îm6jÕ;¦|°;±Úž;³'Àçquĸ +tääÌHÆ&:r`fdvú;ºï o1•söŸNoLkꭉãÇ +ÄñæV{ó†-íBÓØI·Ím +zâø’Ù1 Š¥5´óٜqÙ<EOÜ:KL;í)1™ÿ)˜'wM)UèŠ +C„•1ýŽ«Äº#Ùf»ÂIS‰stkæ¦IbÆj\ +ûKôˆ—2Æ£À2'×ܶel,yÁØJL;cc+íÂʱ +cþ©ÄvAo;Žw¼ØØ`ӎ‹N%Nܑ +[ygn¢—Ô ·r°bÜNnÛ0î#·µni?®Ç›ímmí +áv¬èÏñöãøŠäcXnK{íA3AOŸàTl(û¸à•1ëwN`8Õ +Ž@ç'âô +‡Ÿv}À·1[¼ ®Qí:/?W}€ïRÊù÷ +¼ç" +ÿÞ£jñÆ.Ç»€ +ïâ›dŸJþÞÑð@„í²½ì¾F?qéîFyç° + +9HáTÌà ù¹Ë ˜¼)Ár0sF V@)·R‚•ðÚ,8yN‚“à–¤" N–oNŠI°Â: +§@·nkG¸a ÖÂVÝo˜óÓÏ~}ÐéK0ŠÔåÌÒT‡ËÀ˜ê–`9¤¤6I°Ì©Û$X }³|T–úŒ'ACúËœÌ +Ê0H°ªMÏIp +xMH°†ß’:$ÁZp› +Q"£ZךG$X†øk,gø¯I0ÅßÌ`Õ¿ù§Œ:7O2XÉð ¦ø׬¢øL¯#>3ÁI’}EX´¯‹öaѾ",ÚW„EûŠ°h_í+¢}EX´¯‹öaѾ",ÚW„EûŠ°h_ +'Sdn—`ÔIf +ƒÕˆO—ö®F| +´÷êá™wI° +J3û¬E¼*ó9 –AAæ# +Ö3þoH0åÿ]§Q|VšSü_œ>OçéótžÁèë%é³l +62|H‚)~ +ƒ3)Ÿ¬G$ùdícp6£Q‚)ý +¶Ì[×2o]+ãó7 ¦|~Áà<Ê'Û.ÁÈ'›gpÃo`Š/cp 哽_‚‘O6Ó¹jžþUóô¯š·/Õ¼}¥Ì£O™GŸ2Ï.)3viÃê ¾3wƒ:±à ,m˜§(܂·Û,Q‰J€ì +¦µñAF! ¦ç»jdxÿÿ“gV2Zq¤†fi"ˆ[­¸^¾ +UC)”HP9ÃÖãŒ>l7✠+”!ÊfmD~,aƺ +×B?à °ÛFBœù“ÉO¥ëÂ1Š +ã{³€ãÝÿƒ ˆ + LA\5Êd¡’ا4Q‰ë&ܵ€ot¾€o t½¬×áÚÝl‡TB:/€\#Lö^‰›û"™j.³SªOj³>¤êDê͌SdVrªSªc +7¥ ãH„i" + +󸋼ç8¯Ç}”,àނÔkqmˆ]‰¥mEáuˆ¥û[‰õ†oBL+ÖԚ«g>- +ÛHf +Z!Èv½È“gð¢F™Ìƒlg”vƎÛOô¼ڈÚoçÎÓwPò¥!¦u¼T²ÑQ¤š]³{Ãól;ÄæÒþœ<¢íû½( QGæå†ëa\L¿8‹Ú¾CZ­LJ]å :¦^$®ýÍÌXn„ùt€yQP’ŒÊØ +=ŠïD\Û_7Ó^ÿ%õ’öE5˜ÇeDây©õº$ÿc»“Ŷ(õNÉ2çKY(Ÿíj¡¦¨ï¹/á¯,â©®‡™Oa½[QÛÆ-ú×v³Ø +`ôÆiô"[ˆvZÙT;âªƧ±ÝlWbsAòÅ–M°7·.ÍN]LÓb´úYÞ +ÏË{ųÔáy~+î/zYMõ±ØÎZHÜÉ +¿fÿ]̚ó³]·äs”!¤óàÓ8åß;»Q®ùÞM3õQÿbT +Jþ1ã¥úÐÇíhÎ?V³½_l9ªaÊ7âŒ÷Ìn:YÛɬ:p +Âè{Ž3Ý +ú˜æ¨ +ÃH'fߙ×5›‘º˜Ìd¤!¶wqÍõŒ× »! +±<9s+\{;Ÿ‹g=~ƛûgϖtDØNû$¯ëevœÉ„aéd£»‹0Ë-ˆ*-¸ +grϬ=辩^úÑÂêa'eeqñÜÉl>ÈFž'=8’Þ0:%Ûôã +Q×× ][afÎî¹|²“ÍÝ%É*j¨Ÿ~Ø+ÝQ# +rõuñiæÆZC»˜ +-°â +g?{ +Íã&Þ +™MFPvI÷ò(£íêþ'O£ïGî +¬£,P¹<ì6¿ñ£N̏áÙ·!÷ìÌíŠ#Ì39ñ_±Ê̘ç‚–wÛè` ÛßžÚzBKh E”Ð +†Âþh04 +öuº +FÔ"e&´†ú†(&"¬ +ÀyeÕÕ¥%X•» +ú¾>ac°§76"ðp «-؈k#ÂÆP¿àq¡-ìï +ôûû„P÷Ç.&„=ÁH4t Á!Š¤›Z +õþ¨àÚZ„uÝÝnÁ?Ð%ú"‘^$sÏpª¹`QauÔßì¬Ù +G(órwu©PÐì +‡"¡îh!#GjF¼¾µD$oi[»®mõÊÕ +õm«×­Ö­Ö¬nhZÛÚ$Ô¯ÚØÔÔÒ´¶M“¬Inë +F„茒)Œ‚†Cƒpt”îqv¨¼POØ?Ø;Ê䢖†"aç¨0¢3;CÃl·C]0・ïP&~% + + ¹¿' +ô¢n¡§õú‡BhgÔ +À™ÑÂÐ͍øÃ!Dfa¡+tFûF +îp¨N®®ê 0’¤œ›× +úwE‘5ŠÌßP~dF¨@Ä=«ŠÙÉû +aߐgŠ +‰¢óg» +M}H„mží÷$;©‘Á@g°;ØyñÎÔâ@48ÐÃæú»º‚Ôgü}B˜ù^1E‡™nq½è +BõûƒtC¸£ +wE¢¢Ûu£.24‚>8´³/é¥ë /QÝýþQåGS +ŽRÅÍiháBL«»ç6çv"l™ÎÐ@g < í ,É͈#½¡¡¾.ôýá º/õ‹·OéВ Ɨh1J7»G +ˆú;£s6¦óKRw_š-yvB'†ÍÎÀ +#\Ç­¡›Zë +¡`IEU¡PU¶¤¤´¢´4)iS3"KËÊ**°®òV U‹+«+«5ɽÑè`Ç322âîŸ1|g¨~L„Æ°„êC +BN­Q?úÆ(ŠFBÅÂæ`gw°Æî¢ +(«ö–3g +³L +lÖ뻃áHTðüRê ä´¥ÙFL +¨ƒ5¡.4Å@`$2èÇ`-f:é +vöbh +#þˆÐˆ{0¬Üf4#šwhg$€f + Q´3€; ÌDÕ)ºR_WDè¡‘¡ÎNtïî¡>ATh8À|,‚ܨ ¸µž uÚ.q÷a½ +¬+ %€ +´€á&0õ ŒÆ +t‚yqv¢À(Ñ2 + P84ÔӋN(öDÑìè9¸ÉM¶Ã,[QQQEá¾aj‰î¡°˜06¨ææ +ü%,†Ë­ðGP×!Êu¤þ™ +5×E +©kˆ9ÒP„Î\¢C~– +×÷±x.¦Š§jî§ÑÂ0ˆDGÑ´½þ0uBä +vF +7f—PŠä +ºÀžÎ@_Ýp + +;ƒ}AÌÀ¡¡Á¾™8é +ðÀ@YBý£(õ5Á®r("úÉÎPhW„ ÔïïñïŌ½" +Àƒ‰&–è¡]¡Î!q‹”Øß 12Lƒ}~1»û»0—Gƒt¯îžÞhŸ§?J#ÔÓÙ +¥¦C +ÓcÈM¯pâH zâå§ÐžG +|F}Ù¯›;ÙˀøRá¿,õ.F½ÎþÔ"ïËÑ6Ï£ +±«ïÐåæðòÏðOñ“üq~ü²üþ©}Î}M.¾ò^Ž¾‘l@êèHš·Ë+—™~p¥Ú +e/'W²ÃßJWÊËJ"˒5È|²zÙYùZò +}„”Îjz×e9¯‡ñýênà +´7À^ ƒðG]Žº åØË`?œ€¶ÄIþ™É¦¦r߶.7k' + +ˏ³,gùú4þ8ˆå0–—±È°¶báøg¸ÃøâlEâãÆl6kjbÅ + X¼D&‹JÊ_¯Oæ§à], +?ŇqÖd»ü\½šg?y矂 +W²?Æß4QcÕ՛øIÐó° +Ë –SX(Ì$¼Žå], ,20ðOüîvë·øƒdy™| +>§"¾ë~Ù~9·ŸÛÏs۟áb@'‰i"³»|*qr2Õb + ŠxŽÿ41Ñõ'¹Ãe^ß6nÖL¢ZXëÌ[›Cl ¬°‹Ô™ÞGŸEµÄ°œâå}¼­úËdsYù³ü'é5*8jõ9¶zs¦pŸ[»àI‡Û›Ž]j‡à·ø›P%c¬ÖRœ§\OÇ6\[žBÛµÊsi»ª¥\KY¬ô&cãKr®*78ÚÑD¹—Ι(ò(iÕ²rÃ3Èpxïù2 +˼fGåµåz‡³¢\á(ò¦àúS‰¸/ÏQâM©ñxË¿àxÒqÂñ¢C&w,ÆÑò%å™5 +5Kjx³Ã„ +8–8dÏò7Ñ +*ðé­:+ÞºÇÊ©­¥^Ü՟'­lÛèV$Ê°VmW +VrÛ‡\îSHŸô”þµ/ù)kny®Ýµ‘niÿD¡—5¹T)û'räö‡§s\Þò +Tu¬ýÇÖ¬+/w{ë“ïðû闊‰±uaûGœRãpædÝÊò +ÚzjÊ +”“Û˺蔌¿Ó+£ÝÕWWÐɛ׌/ÅâÍu––—ç:½Kpý}ÉN\<əm+û.Eøýô'nÌm­²*<Š:;Ì=ϽÌÉò‡ùçù—yY©îáy+ïáëøuüv^®«¯ä΢q·c}ËëXxð`]‡%Äz‡Ñ‡¬Ã9‡£‡q”BuԋÙÈö +Fh|~‚ŸàÎâùø²ª”á$ +L&̆T•¯^Í}‚³ChÈ2VW±:ۗU¡¹§Bóé +Mo +¦£BÓV¡¹ªBS\¡)¨ÐÔë¹JL'.›Öä<«¿Ãêõ¬.öe šs‚æ[‚æ>A3*h®4~A³]Ð4 +šz +YN–€–±º”ÕZ“é#º +$=O¦¡4ü8ª6¬\Ƅ³Â:Å¥O8ë°QMäKlÃÑ. +qŽZ§q¾cÂúwLXÿ;oŠ;4a}Ó9E°÷Ž=4a=]†=ŸÚúû²ÓÖߕÝný‰sŠ#Ǭ¯8_²¾ä˜’!áÓeŒð›NÆä© +D"ý—Ê®³>èü’õs"ï±ýݯt +ž6 +­e +ÖsÀþ€‚ýª +GT +\ +±4¾™kn]«r5O)cK\ͱ¤õ׶rwiŽì„æBìƒVûIÞ°%&·¯ 1C34·­0#qŒ»mŠ@[ûIÐ7gÓ_ÑÅ3‹øn¾+›¶ +7ßÕÑÆá:sayjõÊÆKT;¤Ú5÷1»~̖ØÍ­í±'- +±r +$, +ͱU­ÂÖöãÜ>îMÇ¹hÓÑ~œ¬äö5m¤x²²±c– + +ê$C§¾A$Û9” +½{?#»N$³âl$sІ’=VFf%S2t3J7~ÈÚÔ8nµ2Ù +b4‡dƒ"ƒÑœ™G#×ÃFsF®g˙I^ +’”åQ’ñÜ<$ÏËeÃæ†íâð>qx +˜öŠÃOŠÃOâ°ë_ô ¬¸ +ES°ui^ß>®‚ + +[ÅÖ¨\Îü õè²Ù'È"þ— vuĒí+bjû +¨«3»ôµÄ³M‘S N‰ +’/µ™oÌ>!T9%OA´F*©/©§CèÎtHK½\2߸Ԇ‹<. +靊‹ »[Ñ/w5Ŋv`coìsS°ÿIM?CCC‘Htˆ~p‚³µ9¶lÖöq§³)–¹£±ÃÕd6F?fÿÐ ++ÂIut’RÙóá¤HÄÅæ¹\C"€¼)xá'*â)¸"³xBùF(A•N%~3™³ˆºG]^³Óå=ž8Çß4nðRâ‰ÒÙÈKä¹Òg¿Ô)§¿ã¨„º# +ùP¡œâº}i —}ÈC²Rö!L•Bþ!Þ<ÉՓI_ù5ÚåƒÚéÚµú÷j[¦k¡aýy¬ÊJm©¶TV˜Là¼ÀŸ<ï“ÃGøjp'ˆ +Ž@:x|)žþn–ì×mê wôiX®ÎÌèßìBÆ-oŸ> +žm»Ïê_,+U.®Z\Y‘ïtæ;++{ˍé +eF³'O!+å•K + +ëî¼ù·¹ƒNUš”jt-_QÞq¬ +XSâ-\sԐs +wøÙ +7=š”™2³^¦ËJ«S{.]àI×ÒÚ¢¢¥K'—Ò +j)ñ +ÔÒWåk +Jàõã°(ñ¦Ï›Zíq]“=š¿×uGþÑ + +&]kѐ +<Š³-ÊIÏHOOÏ°»5ÅnÂiTét}á <‘xkvšê'ˆ <‰“¾¤´êAñd¿ºèO ƒo:bÐ¥“ô)9æNJ7¥»“OòÅl§¯uQ¡w7Дž8@ù`6?0Y`f­O]‚Ÿ¹:ݗZí-ßrzúôZý6×®–·(ýI +­³ú³·jÝ.ù>ý +fП%ˆduY)Ùæ"U6AfÈH×r2»­j1{ÒÐN»œ(2ҍ&£·<¯j±brIq +'i$éK×Fމÿñ•éokÖe¤YòÎ-ªXCZ⿲e²j +!šÍ{ï=õ‹Jy¾ãÆøŸ¾ù£]ãàRR-Eûù +U~‘ó|R8[Ÿ#Oª÷m#+_ùÓx%þ7j½µî!W +ÍÈÕ¥./ÃWߧ2k*äÚ +íƒÎǜÏɎ¦>íT­ˆV§e±F³]eQ-&‹1¿×ãñXòWqœ_nQdèÒ-2qääY + ÓåXrÒ-– +ÛÁ¹5Zm†ƒ3f¨,¥9½â À“”{Yùº’Sæß +ÎR§Ï¹Þ9è”;³ÊàU +5UßäK1è,V‹Ç° +5Yi®\šŒàøù9‹mMfMf‘Lf™1™Mf¹Ðdìn9!pzÆhµu†jOíŖÛ&6î³oƒþ}"6ó0·Êõµû^Pêk™m]„÷–/®òòvfP;Ï +ª\`f§½Ê&Žç;íÜCNì©sÞU Û:2,TíJ™~S³6« -Ûñ®%Ë»&E¶¨Ë©^]]p‡\6ý‡«Gã†Úüe +ñžþÎU$Ï·¶ÂØ o¨Õß¡Hÿ„þ9½ªTB%©.«©jr¯.[WµiQ«ÐV¸©hƒ{kùµÞ®¢ +îë+† +n¨¸¹ðîòû + +.;Vt¢üYovenŽ¡®1_£z’¬Îx†˜Á€/cüïñÍ3gR«öà[ú½¾$åÓZÓ›Ããkt£/ÝãÆw20š,&;t0™˜ðEãi€Êbõ¹Æȧ_F5Y¾­•Y¾U]Y%•ôõԜë³Õ×åú2ìXm­Ì¥c¹¾†ÊÜ)b:6XMª[ñ¬Ûö3ß[zlß:­?Jíu«Êír¡¥Hj5˜ëξQw¶nú½Óú÷¦ßП&ôЂmÔN°M.§'–Œ‰Ù +-¢Pæ'WY€ChC¥å*JjDJÇ2+wM<¾¬¢|1õ† +^m뉿ùÈ5þa«½¸ØD +úÖ +$‰<òýû~ +Žÿ=þ‰/v=ÿlóµ÷>¸%vݞ¯Üký±:¥®e‹þ¾Oåz“Ó²IcÉzô¿È«„ìycϙxÁ_å+;{ìÔ÷ïþ¯-}cäɧoý Í´#˜iÏb4֑­¾¬ÛeËÉx³q³¾ßö˜÷¨WŽoÆ*3_I-´RW]ïË,­ðÑ +Å6™Œf³Üd2ä +¹rñâªÊʤ‚‚BtÁªª|"ç,DgÔ[tîJÅ­ú;øSøŽÜY]gm’Æ¢µ™‹ +JHIa±¥¤zqÃ¤PÔû0)ä[™””c,Ä .”WåçÛÍòt\±ª²0ÓlL’«ê}RH ¹Ž'ìž\w ¾ÁØoË͵鴪ä\& +žiµµú³´&ž÷NCªÁTMhEƒîVí¾°5S“΍,L°óê÷/FTêUµªÚ[õª}/h_`€Xת^`1ëچÞ@lJÔI3šr8)ëâ͆'Ìø¦ÙDLx¼ìTٔèˆN“Èœù²\ò#µÿ³ûâvjæÒÕW«§ßVoÌËÎÚ +ÿö6ƒ:G»*9¾L½iñº;ÈX_Ùêk“É) +žLó֟ÝèIM˾Z¾Æ¡í¸9þùøýý+k¬¼ÃÁ/Jm'›âÏoÏ1¤æ¤©’ +•Õs'¹“Üz¤Ó@ªÝhnO¼zcKv†IcàñV5 +¾²}¥”ì;nôˆï¦UkˆŽKáS”)*]ŠN£ÓjtȂ¿Sy§êN͝:ÝAr;ÈT +T +T=’|P}0å æ ö îsišrMî¹O +_/y†›L?êV<ÌâMâo'cünþ*$ý +¯Ò%YTY¶lKVAi¡¥@IefªÙ’™owZòm©zåfèSSsl¹é6[®/¶v½.]¯×Ai)@N®==73D©]Gdåe¥vÂ+ss3 +òUJ.+SåSÜgé“R’›d£é +¥²Mq·ø’le¹z›­Œ]Üâ5Œx\,ƒcJxLc9“é1Ó\ŽÞ•‰ùaƃT·¢OiÑ©0ßË\ó +ìãëq×ÐÖ>Q;ÚÖAqü¸Hx·‹–êÑOì!â10ÿ8—üG©#qÿI¸.W ™<©Znʳ{:âGº +&‹smòôwS6-*1ææ|6¿~C2y?å:q‘ +û1 ޕo´ ¨’tBÑ'â‹ãã7–Z +äBvCŽ{=åÕjñ¤WʕE‹ +;éëoâ +ën¼ +ú®NbÀ÷b«/«² +Ú½kýo“,YP—ª}êõj™ÚҔ±¥`Q©¥ +ý• +·âÍÓ`ÈЩ +9ý +aàd™çKá +0“†W +œaŠ,õ%ç$L†œä‘5Ò­ÿ@ºqВ&mÞ"’Ê3ë +¾‚t֛tElš=±6Äú(¡OŸ-Žë2¥YZb5"õQsµÁg¬^ð†ÖAΞ~ïím3×4šNT4˜ëÞ?ë:OÞý¶Å{5ɧVÓu’iE0ŽÛ«m„ˆù¿Š +Jñ]¤ŠHGx%ç?™™¦M3VTçl_¿´ÒéˆÎæ,0yäw´¥#]—žZ¸ÙzK¥³"7o2’j¶* +xËʉ_Íÿ€¿ +ìPNZ}͛È])¤|#åY¼:£VjWf\U´IÐiG³ž*8®z¶ðxыYچÜõ°Y˗ž‡ÀM^Y9Þ°Y¦Rc†6½4Ãޔ=E +ói +rKí-GÃ"ìd[*ÞÍ"ٙÞ,Sý2¿f|³è +xU£VÚû¦Ù£?;½m·x˜‹ÖÚMCöìŒÅ\æ:À·πêjýŒýæbñVz +«Åû´‡˜Ðñ¬co¤€ïaF/¿™W&´ +½‹-çYƒô»Mý‡::nŒ?ôNyKéj£©¢%)^˜¼­>oÚd,˃}=ëW—õý´Œ¿ý́î»vÿ:^m\¯1­©‡lÉ~¾¯5=;G™?vuMøþv®ßôá×é)~ãîhíRxڗWNˆ)7[_§RËtfu†®&_^ ¶ë¾Àó +RG֑íDF¦ˆÌ—ìþ +”*åy +ÊÌ)rÔW‘ñ=³ImÉKUscð=â3¨ëÖB^ÔÖ¼"œÎ ü~á +á pR ªjœ÷ge~ÏÌ©¢Òì+ÅbË­xÔ|Ò̙o(;AI¦L<1QëïÅgÛ¶i´¾Þ㕩öôY±ÞÆôéB}òv'ÕKdâ;9½1)íi^#½ +á1èæØ·&Ú¯âþ°Ì!ïmY¾ÚRöÉ5ßøôU×Ù +%&Ç2‡"ܹ¦C¿hÒ{WHÈÒö¤º,üíñ—nÙÛXj«]|÷g|½_ÎMq“ÆÏ߸iyAní«×Wúo‘óù +Ô!¾éóv~7¤“»Ç +š©Äï|†ÜšŠª>!ÂVÉO%ÞöÙ*s?"/s?âÅÿWóKù՚ö”vMëæ÷pÃü#)h¾Æ}™×ˆ)ܧIJ7f¤I¦Š^ÍÑoaMsàÕÉ'5¯h¸W4䔆hèÿ_ñÒ¶ÝẗР+]´PŸ¬Îö“â2ÙÛªÒ¤ô&­öí´ÒtA‹w©)’éK"ô{\oMÁÞd²:Y3Eì>mÒGVÓïç™ü•’¢öe +uj¢þ\ÆI?Šæ™Þæª=ëÂûk-5Lí™i–GM¼¬ÒCm7 +Re`à}ºjÞg±/çñfŽU:Ë· +i¶ +|åYL_^m•Ä–KoRöǹOL¯!ŽÞ% +‹ãšé!îHüÔµi‹ª,N~wæt©¾¢1~ν"Wx—Ò¿(®øØgŸÏ]ùC֒µ\íÅo’ñóy¦¢èŠžwÅGy†>ªÛæ?IÃÿ~þýüûù÷óïçßÏÿoô¿‡Ö¦‹ÿ/ +É¢€Ë~øy°R/I“ +³°·Bl—Ö^L·K+Àf±·íò‹ÿ¿øÈà笖QýœÛ›H`-КþÈ +*`þG‡åÒê¸ô'Ká%ð^¨XÐ_ +—ÐÜ%>뤶•Õ›Œ±ÿõ +|†þØð +?ª +Ýsp.±!ú(ªÉ¢™BáŸ+‰·ÅMÿ7Šüû‰h‘ý>ñò–Wäßÿ?*8¾G©UáªaÝü"ƒ„u¦ð–Ä; +žÀ?ö¼ù6áÎôŒÇŸØ®«}_•)ñ«Ö©çh{ôÅ' +Ï˧ïT} *Eå'ÍØðÿ$Y‚ç +endstream +endobj +140 0 obj +<> +endobj +141 0 obj +<> +stream +xœ]Ánà Dï|`ìĐJ—ô’C£ªí¼D +‚qùûÎnœ +z˜•ž™ +Ãt‡ãû±äEwŸmŽß´è”ËÔè6ß[$}¦K.ªô”ã²’Ìx +Uu‡P +•4 +”ž| +Wê¾'_úçNœ'ºÕ© +r!µ7ÆïSòŠÊôï¨_7Îiµ°²ŒÁF/FFò" ·[/2h½h#bƞqä¨q|Ü-R­$[Nv0;ù¯c³Ûxpüä¯ûò‹¸šW:Þ[£²HÒ÷’ +ýU\çÊ[R¿¬it +endstream +endobj +142 0 obj +<> +endobj +143 0 obj +<> +stream +xœ¬| \T×¹ø9çÞـaî +ËÌ00sge`€V‰\TÜP!Š +V + +‹"¨˜XÉj$‹6͞TMS͓%4i4yI^³ôż¶i’.šÖ¤IÛ´µi“ü¿säõõýþoÆsÎwÏúo?g."ŒÒ¢Ä¡êªUþ<Ä>¿¨†lMÓæ`—üüó,„ˆ«iK¯ø׬w¯ƒŠ_!¤z¹¥«uó¿?–3¨EH™ÛÚÑß"÷/¹„ÐíÉm¡`óßJ» +¡w¡?*jƒ +ß +Ÿ!ÿ6<»Ú6÷n‹®w!.±#Ü”ŸœH%onëÒbáß ?̇ÄÎàæ* +Q!¤KE(õ•®pO¯ÜÿÝgi{W$Ôu~ö]€‹ïC蓠¸!Å2dƒ”ÊÝ +,M¾é<¤'–N^RlBΉ“ç¸ýd4!äF÷ ýÈ +>Źèt-E¡rTîB‹Ðè(ŠGýø5Ä#'Z€!7¶!‚"#V ûÑ;hŠ ÷Ñ9äE•è7ØóT .”ŒŠ'?‚¼Ý2yzÅ ùèßÐI܁W!?À‹IöÁÊ{&O##òNþdòmxú>z»&‡Ñb€>@z”Žv¢ï"ڈ^¤q¡Fô8¾„ì¨ÝÊðƒ“›Ð +t +ý +W´ +õ+ÞÖ +C +0êlħ'ÏNþ +=Çc‚™®G·Æ#è4Éáæ+ yÐUh +Bë5è +œ€s9i2}rÞäýPû8ú +ñ‘—9àáCKP=º += +Ôx +Gñ¸†ï›ø +ÊÝJԇ¶ƒ\}¨÷8:‚Nà\œKŒÄÔ2¢ +´Úö ƒ°þ(:ƒ+q->Ÿç*e“‰“I“¿ŸœD™h +`¸=k\Äè+p®—·ò½Š¼ñë`‡Íè!t½ xüèþ7ôœ ß÷ÈwÈÎɵ“‡&ß\ÔȆf£«ÑzF[ÐVôàê +èEôgü%Ñ@Ï7ø—ÛŸNÞ ´õ y€{ô^sß +\Acð} +v©Ç"ìb6^WâV¼߃Çð;ø +¢$vÒMþÀ +q¯q¿â‹ŠÉ˜)Ya]'Z‹Ú€ßjß û=„^B¯à$ìÁÙ°£·`ügdYßGÈä7ÜMÜ +þ’âæ‰sO|99ˆT e‹€}è‡@ +?ádÀ!oÄ=øw€ù^òÏ œ“+äʹ®–» +»‹û1÷Ÿ|„?Ì¿«X¢*«‚oNVNÞ´ÀH x¥£,T€fü´€4müºàA×¢ëÐ ºäåNt +†}ŸB¯ Ÿ£_£O€ÛçvX}3HÝMøøޏàçñKøü +þŒ~‰¾^RDÊÈ|²´’›à{9CÞ"r©\·“€ï>î8÷xžŸTäÁw±âVÅãÊ×T^ÕbU£úõKÆ3ÇkÇ3&R&¾5qÏÄó¿Ÿ\3Ùø»Q6ÊLw–÷ƒ + +„ïA£—Ñëè +׿`‚ ñ&ìiÈ®•áEx |—ã«á»¾kñzøq#nƒïN<€¯Ç7àñíønö½öv?Ã÷i|¾?Çgñøø/„˜p Ín’Nü¤v:Ÿ,"Ud%|[I¾]$B¶‡ +'£äy‹KàÜ\6亹û¹ã^à~Æ}Î>‹÷ó¥ü¾•¿ƒ“›ÿRaST(Úû/(-ÊåjåFå}ʣʕ—TJUµªQu­êgªIµ¬ÕÀ¾¡™¿ò +Ü£H䷑³ &®K± +¯Š)I +×ÁÝÁý—¢ʉø]<ȵs›&á’pa¼†œÂΦ(áZÐmh&ä÷|®!a/ÿ]ü4 só‰’.¢ø)ŸÄß K~JÈ|š¼ÄÝÀÝ0ù#T¢Ø‡Ï*ö‘7‘ÈŸ# è,hõ.r/ +úOÒNnEëøŗ¨ +èþ„bÐ{.¹gr?ã÷¡÷9'ù+þßVã'x)ï"ß&Åø0XÜqlEp7êÂw# ?ƒÇƇ¸Çñ2Ü"Z< +œÐO8;þƒj)ŽØC’p5ù”¬æžUžá +1+ñ_h;æpdgê3:Aî"é`Ó*Àšüç!ºìýʼng©ÅV¼­¸äìa. +­DTG^C% ïÃw +º塓 ƒ· ¹];9€›Áî/ûIÐވü8¬¥pÛ þ"™8ÀÖêÿûÿ*XýJüG´‹ Y§‘—§-·ñ`™ÀþÞ +ßfTO¡;•Ç?EU؈/Nì)ÿú6øœßÁú)¨ð[ +æ³k,s7Œxhb1’à{3z +´pž +z^Í/Ë{ÏäFØa;ø¨eà_Aí“÷¢ùÀ»•“7Lފê'žÜ€ZѪÉC`·LŽ "´KQKÖ(||ØØWð‹à~‰o»½½ +öȍMèð?æ*žAƒü/Àv–MÞ6ùs”ôp +Á‹žG›Ñn‹¹Ó(bž\Èu‡:‹®ž||҆cPÛdXÞgÑA•lϲ*‚ì"iÞê©lîU¥sJŠgÏ**,ÈÏË +øs²³|™ÞtÛåtØE›5-Ւb6“ +zA¯‹Ñ¨UJÏŒ²*œ +Ä!OÃïq.^œMŸA¨Ψh¡já•}†ÄÖM¼²§=[¾ÒS’{JÓ=± –¢Òì,±Â)ýdS +Ãë¯^ðí +œµâÐ/gð^k¶Ûa€Xaj[ á±bhᖶÁŠ†0ÝplÌ|çüPLvŽ‰0 !£³kçbcEÉ0Aj- 5”â\P1dv.  +qîŠ`óPõÕë*XìöÚì¬!<¿ÉÙ8„œó†t>ÖÍgË +)ç©Ø2b;Ý +ºU +Î:=xۘ€|qÍÎæà†uC\°–®¡÷Áº +†ŒÛϛ.?Âä†ùëvÍlµpƒ¦v‘>î‡\½nf«æµµ0Çq/l\ +ß$¬\%ÂZä¦ÚuCø&XP¤û {’wrVК†âÆ9ÏÙ6¸±“28„VöÛGRR¤“çPJ +8X³Îi*³8kƒ +R‡ÑàÊþQ³$š¯lÉÎô2Y‡ãuQ N;M·1ˆu§PåÊiºbŠ‘s ˆÃØ$&뜰§Ù4 +ÍFƒM³¡|j1Œj~´iæ7 + +%P/ÐñC +·àÿ†€ÿÎ +Ÿ\YŒÖ(ÝÂß©”L +´OÁC>ßPf&Õ|à(à8—=fgm#CÎ.A„ȇª¶ÁÚ?ßn§ì½uLBð04põ:ùYD–$ù}µC¤¶œžjIZM[¦Z¦‡78AŽŸBô|‘4¤öLÿÓ É m%C8ùŸ4‡äöÊUÎʫׯ+¢´­¬¹âInŸ=Ý +°ÜâÝ@©%N½•ë×Ñ +ø§p/tV´7,U +‡æ¯ã,¤V†ˆ +cSün˜ž™>¬‹£sñn%“ÿæ1•˜Õ`qáÐ°XÎkcìöqÐØä§t+.‹îi¨Äwåóœ+ž¯@/n„y©¬Y?8sEÛB0Vƒƒ +âÂÁ†ÁàØä@£Sœƒ'¸uܺÁ®Š†)öMž¼Õ2´ð¶ZØD.Ñ&hÞ°ßrõ°„oYµ~Ý ŽX·Ô¬!˜Ìo˜W;삶u'D°Ï¬–ÐZZIDúþ +´b„¨YË ¡Öʳ +öÜ4†«SOÕaÔ4Fä:aªŽ@ +/×I¬Ž~¨¥˜_³n¦ +0ŪÍfœPíh­€¾ìð¬æŠÏK´F9ˆþ +t +ÄÙ p[ñÍ«º8賈[9PÆAODa‚â‰: +s(‚ߊÂüŒ> +d"¦(¬D²8 +«ÐÛÓ}ÔÈC>‹Ât³Æ +ck4FáX‰ÿ" +Ç¡]GÖ*Ÿ"£p<Ú û¯é½îr¢0F:áÉ(LJŸ +9T¬7Ga~FŠÓ—Da%ÒëWFaê˜î£F ú'¢°ÍOüQŽ!‡“¦è +‹Š‡£p +Ê7žÂZn½¾) +Ç£ +“0Á<¥zœ©‚Á +ÊÓj+Y}ˆÁŒS¦n«| +ƒ5Q +É°Ì#–y$Ã2d˜ŸÑGæ‘ +Ë<’a™G2,óH†e +É°Ì#–y$Ã2dXæ‘ +Ë<¢p̌ýƲ½|—Áq3êãü0ƒºÓ0ƒ6˜N18qFÿ$6 +'Ϩ7³±o2ØÂúÈs¦Íèc›»Xÿ³ +Îdðg3øK +«g௞±V܌ú¸{ÑQùi1kP +ê‡ófbï j‚RDO@ª“2 +—Ã9½Ro´—±rN§],B};ë!BMŒÏh«þÎäŸÆL„6 +u}Ó}zXtÝ]/Ã7gQÊcµå0¢ʕ0¦pèe£VÂ|="`gBÕ×@ëfV'¢Pne}ÂP„ùÿáO±k†6Zºí-ÿ;¡68µÃª½ +Š‰Ï´OotÖÕ°kU³ñô>ˆ®· +ò*X» +íbHÇ +`Ö +†{[t¶œ¯áTò?ìT¦L+иƒí²¬/«g÷|˜5_‘«Úahéa´è +³ÌåùåÙ/Ï] +;Yí+÷àÛBHó?®‚Zº§ +/cõP³ +rÊÁE0K; +ÒÚ¤ +ÓM”òíl'½_“Þ©z™Š] +Ë.¶ÚwŠw_ç™,ma åYŒïŸAãö¨üô1JCÆZû¡ßôšMìNë2?ûØXú|™ß›Yª' +Œž!&Ù!V×Êf 1ŠvÂ(ÊïÚèjmо +õ + +TÓ¨äÈköþÊLñj+ãpˆIN{3Šc3<Ñú&¨ë`ûkaÔÛüô +G÷E)š1ËÖèœß´^sTæ#P62}–±nŒr¦3:ó7q(íêJJQiËù©øúÊr=¥õÈ©- ª +Qj÷°ÙzÿÛµs˜>v²þ=l¦þ¯ñBæӕÚL©#¯ÚÃæi‚Ú¶ƒ +çbT;™鄧ËëR‹ÔÌ(-ëgÙºÈ +[—5Ý;2Cnåýõþ”ê`ÚÜ>Í!y'—çÛÊø¿‰qs¦ +k‰ÊÅåžaè+Û¾>Fq:Ûô~d¼fJ7µTdúËZÕ•))ýª +ý³ +]–%lï_ç +¥0¿êClî©Ý4±²‰qµó+<ˆ| +ޗg¦û +3KÚ +µõ[ Ÿlq§ìÀ¿Âý©ùd¤ºº%ʍË:65ß×ù(SKÞA/³½ß¨ÇS + +~ +Ö-ÿ+l/Sùë+4E=Lcôi&Fò~¨•LÏ@=½?Ëf¾f6» +Ïxø÷ÙP€ê‰hä·UF{ 5Z +¢ð,ðX³Ø¨"TQMtvÊ­^À¬" +?Ћ~s`_Õø&fùþ;?A¡L;·NË +ì™Û£Ö–â´ŠíS¶ýQêG˜œÒY©†®aý{£}=!±±_ì÷ёMá-lŸ}Í¡›ö½¹‡N;ڛBÐ=Ø +6‡:{sÄZÖÜͽÁöNÙ{2tW[ƒ‘j‡É"bs{$ÔÔÛÑ/¶D›/ㆵ­!Öe+ô¼<®(ioìë +©Ípghæ†Ò{¦ +õäL“bz0ÀAqK°£/ØØh÷ô„zgŽÎWwv„zzØæÙ.`OQ6÷†ahOW¨©½¥½éë;Š½í­ll°¹¹JK°CŒ0©Ë¢ÕF[X¯÷«Hu´on§‚EX¿­áȦž^YàZ€¬2¼¤¯¯±£½§®sÉäÞ +ì`UW?%Üe +]¹£Ç’–Ë› +vö‹Ý}¡ +¶LS¸³)éŒî śuîi +÷u4ƒÔoiÁ¥2ðõíÓ~ÀÉP;h–Ì1Úoz€,Ðlê½Ìcº±`ë–ož–¡<=  ¦145¬ì-¡ +V¯*³Eïì‚Yâ¬ÜÙف‚@@£Y] •Ü܂ÈgåÏgkcÚz{»Jüþ­[·ælžb|SxóL‰ +"Á­” Ì€Ì´ª7²ÑèGÚ{Yâšö¦^ØÁ²`¤™ ·8? [„Ù&`ÓRßÒ +ééƒ]]¡`ÔhÐî´¤vF6 +@ƒeáÎf`EghkOW”5‹Ñhk[{S¨¦¸5Ø#6‡zÚ[A­rDqI/°ØÛ×Ø6vR-j +ÁNBSZAi +¢ÔÑÜ#n=}MM Þ-} +¢LÐHˆÉXÌF­µ¶S¡m–wß#nékE +ÀW¨ê&+0• ÐƯÐ,âôþd„£N˜´“B‘p_k¡ÚÖ +lɁM†¨™Ý¬EH´%ܱ +r¢¥/"›Ð +J¹*ÿ + +ƒåæ{€Öa:?вÊSÏâ@¹f*HÍ}LúzèÈêP¤+ÔÛd¦°ºƒés%<%ófª-aPƒžÞ~`mS[0B +fëmoêAÝ‚ÍÁ®¨&·Ò}„¶5 +::è†;Ài4¶w´ƒn +÷uuLéIk8 +®p oî¬×¶7‡€‘}=²œ4†Ã›zB›ƒ­Áí`Q{d©ˆ„À%QÖ%´9ÜÔ'o‘vvô„Y70] +AÙº›Á–÷¶Ó½æü7JàoëÝÜáßÜKßÉôoî©ï¥¬yŒPÿ“CÿŁ[C +Tÿç!ôÉU|Ö­`!Øf”u²‹ +8¶`-„áù#xLµO +„šåC +÷7Ìýˆ;éw’;2c® +C¦žßcs‡®X+tÅll>ÞÊçò•ü"þ*ȋÙK”[X(?mx?Ì!–Cÿ;¤Ñ9–D/«éQ†¶ôi<-‚°wê@G/¾7´€]Ì,Š^ä/¸‚áZÉò¥½|£÷+=(Þ9¡“¨fò4÷ÞhEEž4¥/‡•#ތ¼´a$%5ïGÜ{ä +†lPqv$ÙÂZ~32o^(š-£™ÙygËc¸ß ?A"Üo¸³È+õæä}Z® + +Ì}é0F6t€û5‚DÄ½;êòäí?Ží¯r¯Àé°WF´ú<˜ð?¸§‘Ù¸ãܱh˱Ñx} +*ïánG†ü +¤s> +Ä£0÷8Ú i¤£x¤ƒÜÉ©ŠÖp‡¹Ã€çAú(ä~HaH{ ñ¨†û!Ôo¢9wˆÛˆ +0ö6î.”å­Ü÷Xù(”)Pþê­P> +Ï´Ü}~JÚþ@´þ~xN†ò¾hy/Ô[ ¼‡½‚lãîŽ>oáúظÞhy€ë±Ú„r+´‹8€îè. Ý]ôç]È1w×ÁV†2ÊÍr äÚ1bw2 +í5šóIwéwåvåv +š®ês­Ü'›»ú\ +}® +>×U\¬×C‡\€$Bâ€î=@wZ?ùiHgXýï +t€>q[Ž€Õnnãˆ×BÖ:Z,å•=õ©%®eԜ–·çò“&† +"”ñÑRGû†XkhTGkC£)ir ½6•ÇsMèH%Bî‚Ti$žkqùm'¹h³Iñ¶d'·“ß©à +°á—‡ªÕDÒÀe£Rèa«/ų4]š +'hDM@#iª5Š0·“ÛÃq6ÎϕqU\=§›<=¢*ɇBZ¤,Éß{ v(ötì™XŐò´òŒòœòS¥BT”’²ZÙ ìR(÷*(5{•{U¤!¶+v –bÅØ@¬[ +«°©ðò›¸Fú8ä¤.H{!ñ@ãz¨¹oCªnÔ)¾ +õrO¤3ŸƒRO:觃~:¨ÕA­jä´¥R¤®h«rºej +íÿ)m”­ñPKr>ù§‚´ž´ð¤ +'-ô:C.†ä"¤jH +«; ¤ò©¶@´½’’µÊúLµIt,¹$ÓOgà¡ +| ïÍÀRiYyžä€Ì`0Ô;ëÝõÞúƒ|Øv‡½áƒ|•³Ê]å­:ȗ9ËÜeÞ²ƒ¼ßéwû½þƒ¼ÍisÛ¼¶ƒüžeG—ZöÆ2¾~YxÙÎeÜ,`Ýèˆ/ÇJ‡›–ÇFÌ)y³tåsÈQØN=äû! +Ä!ä~HeÂxrryjŸ„Ú'Q¤zH +A߈ÐAn‹¶Ñúý¬B´\ÑÎÁƏŒ”äW•/“[i?$æ>íGXo:Êê‡ ?Çê«¢ý°zäSc80p뙙[ê· +•Aª‡ÔIÞàÖ¢³`fÈmº + +ÄsëỖ[Kž„ïr„Ë’´¹I6”œ +ŽÃ W +å‰ÐâC,¿å»Y^Ær—¿TûÙRísKµ7/Õ¦@¼àè´ø.–Û¥ØríSåÚªrmF¹f3";Ғ$–+iŽ?fù +–gI‰víçví_íÚ?۵߷k»íÚ«ìt\*讖$²<–æø +–/e¹GŠµi_¶i×Ú´³lÚr-އau4åV–[hŽÿò”nižÁŸª%x¤4Ã6F+ðäHi9#¥‹ )ÝÅ#¥ß³=‹?ÇÌ¥áÏF\çmåIø"^ÂÓç¿FË?ã%è0”ŸBÙ +åc¨»¡|t¤ô:Úÿÿ<ÿ9Ô´ÿ蚍ۏ—°úïGÇ=4’Õ«>8’Õ«>€²Øª÷Žd‡Úïdí†âΑ¬(öŒ¸)‚GJ3måz܊\„ömBnB1Y]q1ÌÜå"ypÅH +µ€.0†ç8s¡H§X>‹¨š-gq²M¦!'›"9Òäfe<Ö1äµÈÁJõˆó:˜Eù”û¼íï¥ÏЍ£¿aÝÈ>Ûïž +ý­Çßâ%#‡mož ä±½‘5†ÝÇmÿé|Æö’k +¯±ÎSCé¬1‚Ù†ÈCЗà㶣Y­¶'¬õ ZÕûK³m:×ÛîwÃóˆíº¬g)h3ìx +4×f͵-+=l[è +ÃÐ,•ÂbRŒ­Ä±Cõì1¼dô°-×5FQ À +‡Û2aE“¡²zÖIRˆT¸OÊRõªUkTW«æ¨òUÙ*Q•¦JU%ª +jA +¯ŽSǨÕj¥šW5R'ŽMž“|ôݧD%{åLÉӜg°@hNä—ÓVН¡®’T®š‡‡ +•¨²fÞÐ,_å˜jråÐl_吺ú[ë†1¾£ž†È-cÕ¬¥U7Yè +¶'Æþ›n·Ðòڛn¯­Å•C§›Pe£8ôÙ*ØGÌÕë‡Îy&”¼¥ÌTf˜«/^¸à²†hî»ü1ùf~LiC÷T®Z7ôôڡ< +L¦ÕV-¢¯æž Ý$\±àé¢Eíºx;é®XIëñöµÓݐƒtA7TJ +Úm9h7äÀ£¬Û2Ö +ÄÔQ±`Øá;½€—ÐN >/°N­ò\.X檦t#Väbs¹ˆ•vy'Ó͜,a +›L‡Ød©´Ó°Û +]²Ü´Ëð,7tvÏb͇/7;Ý2:µÈÍÖqãZ¶Ɨûxå> Ñ>D +}|ÿ—ŸÐ¼ÿEg<üUs}AºÁY‚Ô0të–6ÓÐ@£(7ÿ*úæ´§¡±©–ÁÐЯœ¡CÍÎâp°éš›hsй`5UÔ¬n’B +F‚R°Â\P;úØÎù•W¬µ{z­ù;¿a²t²ùt­Ç*¿¡¹’6?Fת¤kUÒµ +“ +ckU®œ‡+«× +«Ñ¼Úùär”Äƀ>4Xìµó’ +®¹L9æØMß±œä¸­X_íPœsސmÊ.Ï.§M ´)ž¾m2}gŽÝrŠ6 P­wÎC>dªh_0ý¯§§§—¦¾>ä½}&V× +Jk_U9´¾°[:TZ1$5,¨Å” +}ÑÏüu’pªôR.ÝYº§téÑRE__-TN9ÞpzGرӱDZßqÔ¡¤ +Ö +—J÷;þäàú@šp/|*°5û „ô±·¯‡~,ÐI^Î×盿®Üš ÚÅ™g£HNHùVAR ‡ü§~鯐xtä߃ô¤QZÃesÙ¦ötÅZ5:&.o4P˜7{ +Ê`‹\®Z/—+ä²´<ÏåHY~L¹Ž£o›ž„üUHïBú¤/ )¸<.MÞ'Kmmêña@ÁC/Íz|½Ø¦äîíñùMTÀÐՇ¯”{„{à ݃€!P@'VÛC‡õÑòrG°Á©)Ri´ŒThù0Áϐç LU‘S#HÁ‘çžâPŒŠÇ02«•ŠSÐN‡3oÂßF&ŸðYéxé +ábéòñRT°p ²Ü€]o×»!é<º$r§/I +ô%ùÓ@‰š‰¥äZÅ +(•HÎ{ôëÉÍq»õ$æ> +݇À;ÄhÅ;ª•X9XómºHÝ +ñÒRV¸Pv!7€êp +Nò¤{H¡€f%)•$)Ñh%äÚ{C{ÂyŸ]³o +=e鎉°{YËwñàÏpžìÌ\ðÉÄ=/½utðñ‡ +Àa +áXreð™êÅ +× àM41€€|žá”Ië +ý:¸.¡0٘lHª°¨ÈPXžCrî +íyh⍿_³¹Ý\y­¢9³²åΉ­?Ÿxuwº+>ƛ^úùÐàcƒÎ‰ÃJþÑ*)½–Ô_Læ4Æó3§ÁHÅó:µ +7Hq±|‰.ɖ4Ä%áLpíºz +љMR@ùºåãu§ó†b¬7‹)f¸;PŒŒ˜ÌHªÆ+îøbâ‡ô-ò¥“rO+ڐ€\èäHP-Bô7¢P$ÑB«MÃ:É IA +ÉC$Oƒç€çœ‡÷èiu|= +£h:6Èì>‰­@Ú(7/¬êº?[~!*fóû¥eØåt9\DI0‡‰RåNµ¤Y¬N™àѹc=&³ÑL”v^߈lʔFœPr +@.,6b‹2ƒÔˆÌ11ßH³L–23¯K(0Ìé0&ë P8Ý3K0&ççÍ*҃É"D–ÞÖ»¾á¡k¼å§/\·ùŊâî¢^kNÀUœQ² pqÙ÷!®ZY¾ÿ¥‰£ŸL +¿ûýçÿ>ñáðÝÁÈ\üáƒ=ûU«& + +} +¦F KF÷J‰’©ÁtÀtÎÄ#“d"[Ð͈ė'àv8£hðä;Ca5ÀN`ð?·£d¨Aø/Dß:¢!X¡QǝćîK$C|¼NÒt;u{ut¼ÎlFm¸Úz¸K߂ü +äMÖ¡©B+é8I‡3ãp’ + +.æ4 +%æãbµˆÓòÊ8-hUªdP©U*µšãUÊ85²i±öüÄO±x¿¤U`¥F­Tª|\ +ÿ +œë8°d-R¬F£ãð~î(G¸1üwɄ˘zépØ«s:N§”TXeŽŸ¡CÝ¥ŒC¥ @~ ÐH«¬Ø/€‡.ã‘R}±ž)Ì® +þŠ‚:,Z¥îNrêz{!·s'Ž +ôu +œpá‹wL<€[¸ë/ÝF + +¯§ö«ä½_± +Ù±Ušÿ( +µÖvëNÅNåδÛøÛÓT +¤Ð¾š[-®µoJÝ¢èOÝESSái8Ï9uȉu‚ސ”lT'‚çå(©ô¢ +\./ÚS,©œÊÄ+ vÿ¨(ÚN‚%1q Ðÿ‘ßÚ탟Äs‘/:6 :@åÿ +ä؉%gƒ“8AA>?.vl§“HQD0;Nâ»ñGŒbçëÀÌ +u”:L´ÏƒÑü)h°úÔÊìRçø@.DdC#i#8B"âõøzr½¨‹C + +Ø8†H±›ø°¡ÙÚ¥èJSÔÕB¥²«x*ÁJåŒ+*¼ »é˜ë_1ÑV‹5Þ´öÆ«{ú·‡sœ)éþÊå}ÃûnÝü,æË~x<}ß-c›Ž¤ÏZ•—êìÃ;¯ùyI¶Šè¨t®^ +ƒtš]’2û4[b¶Æ_¯yÇý‘[©äðn;¿=ù&#_ªö*œÓì5+9±^Õ`;Ž‹ +ìñè 8»}Ԅ48Õiá +‚%Ê#É›‚2¥L"e6d +È<—ÉgšeºCJĄ@‚”°7á@‚*Áœq9D¹çùhŒÂLt jÝ +_¦åS±J‹’0‚ýÈJuk +i©ÖT¢Ô»µ +·Æ B°4"{<@®O#N5ˆÈšŠQ¨Ñ`&'Åsª)»Nc}ÁU”•I‰ÓãÏÝsããlríýî­¯·^ûú­ÁçîĺlÝ°haþ’µ»oÙáY«hsk«~ð»›Î +ýð¶nÅiÇñâ‰uã +v­jxožÿÑû!‚,›<Ï +-ˆEϟ@üä¹ÑË\»ÝÀ¬Æ +.S3IÚíí«øò6~›œÓIq,FZIËå÷¤Ž$r +á9­BZT¨ø-VB¡ü-1Ã÷?‹cÍqŠ“äCđßKqˆx‰¯æð +þYòŠ‹Òž>Î3s}‘zPŸpÁ'ǧ»âw¼^M¯¢Wy£âF%\ð #Dà¾Ú!ŒS¥ÿ'ùÅDi¾{âÖî@M~šb™ç‹çø—,9 +±ôx-ÈÛ È›yP>Þ.¬ +£P¾-?3=œ¿Ý1;72`¹Þ=àÌÂt0åq÷hÜS)O{žI)æ¥Ø_h“U(+µ$E“ž¬5¦¸µîøJ|¾A{Sü(~*Á•¨/ñÖão¥oÈ߈6âvÒê٘ޖ +¾6}KÖµù{ø=ŠՀúzýõ†=‰{’ïãïQߥ¿Çð`òcž'ӟÌ㏫?ŠýCÜGñ¥”—¡ÒjÒKP1ž§X Fq)é<Ë#‹Å•ŠlZ$hÓÊ5`×5 ù4À +¨P*$RaCáÂs +|¡óYhà@2AbFɸ×ÈÍ'ñ£† +†ç™Q¹pþ¢ +¡SÇôÔBžçó[ +úd^ä¶+œŽ«ÒqVbf#Ê1€Gtðà"­4 +÷%g7"¿>[õ¨¬SÿHM7åšçò‘M•l”Ï>é´Î]•u*ù JZD½%ÞýpÝëO<úãŽÃCÅËÞ +~¾cM?ÎÝ&mii(Ì-ZU}ûæŽë=‹ÈᬹñÔHdÙ¾M·¬héÞóZ°gýð[ +;ªÚ·n©*hóOü~áÁ†ë +ܾvqñF°AWƒ& +™0¢t +'å_“þŽâŽwÒù6¾_±C½]³5n›¶?a«x«ú†„zO™£V¤›ìé&guóH¥8‰› KO¥WƒgË$iüî°"gd¥ì‰W€ºí)£iMÔ¥`ÝÓÈ DgÃ!°FRÆ@'e4d +È8—Ág`jÃìÐMŠ9CbÌÞ+♠+r@3.[ý²¨q.«˜Ýg¡%ãW¦Å¥ÖÇywªÇé±ií(MGMj€ÄX+œô94î™&‰2Šù#=õϒ-ÿ¬h0CÀ:aÊ ™CÌ4u\î͌ïïÜózË5/?¾õÎß¼üðs$ß0¯yí͵åõ9ßIu“>ì:úõÓ#·>1xøËßNô_·‘œ¸~Eð½möýtëš,zê†Só^nì‘ÍæÌô6?MÛZ´×|RŁA×IIp˜.؛t ‰$=‹Ýà7þ +#Ùz\d±wôæ‡g +§f +­íô@ +)Ë_>–ܐ|ÆÎ)O˜'Có¨gºcâ0œ­‡'j’,v÷óúÖ¢—u/:HœÖ’$h⎛â(^‰cÜ +Éf•LpÎ×ilp¸/²%:»Í>`çì?¶˜]ô¨Œ£×;y–~á<ãcî¾aÛÀ)Qä¿ýÕKnX’q—¾øâë× +¹ñ/ù +ìÇ|ºvX©ãҏ+ªøzžðÏqËè•—Nµ˜ +æ”ÀQc‘jÈ 3è +œà•J +‚ã3°„`a‹p\ß Qñ<Ç¡ +êuì"«”EmŸÕAXÆ@TV×í+ +/ +ðŽ^›ÑËúuó³¾| +&®gåŕìoó‘bH± ¥"1 +fï +Øf%Ö4^¥Ù0øÖÄç¸ß"#$¤QMR­œNšœ†l]xŒÕ:¢Fþ2ª?9ó¿Ÿê„páÂ?Á~ù#ìØõ⋤܀E²¨ãu:­cÕتíÊ$]‚¢O±XRMiJ;}+À]H‹ÑÀºVúrX9’!W‹ +¹:Å*WYõH+¤{ +„­.&/Ö-Õ-–X«ìµºµÂêÄu֍ºV¡ÍºEàwÅêv » +»­·Ø +Ô=(ܯÐzBwBøQÊ ëkºW +§½jý¥îmác݇‡ÖÏuÿ>Oûܚ¥ÑUZˆ +¼' ¥Y­©šø‹&9ÕhIV•E¤O´$m³êQ°¦¦:ôB¢¾Ké?F^‘ôĚHˆÕ–v!™pcø˜§t\Rr²Z­Q§Žá/$Ɛƒñ’~ŒF«¬Ø:F>‘âE)¾:þÓx.þqqÓ Ó?s +È·) +†¤ô +LyùERÇKwÅˑ论ø +“oœp}&$\ÀÂé¯ç»„ +/–ªJá +M/ÿށ˜Ô®bn!É^X4«hÎÇòMS—XÂ=1þ× +Ž9«W›óçâ_;ñÛÅu«Æ?ººØÛùÁ'øå·ªÒm~•Û­3¾Çoøò¾[®V¸Ý|Ž=« +k‰küW4Bp Äq‘ùÐl²C +¬Gë­»Ñ-ÖÝù÷§|?ýHʑôRþþ{Ül´=½?ÿ¼ûóº~˜ÿvÊÛéo{cø’1òûQ]kQ •ŠTG-¥ß% +ò%{dfkAžäôBfI+XàZàޝò~ËõnþûnïÂnmžÀ%)-)‰ÖdW²7)“WáZZ°¯3¯O¿‡è$”¬Æë] +%]%%JÔ)”¼jÄ ª—ÕköóJÂYÖªü[\¸ÞÉW‰%RIuIiâ +ÊUC`‹²'¥ÇÒeíuõ¤o÷Þ¨¼Ùr³uOþ@É«þwý»¾p™kÕ:›Ecw6K²Ý™ïB +Ÿ + +}6çȘ•Ïå8¼ + +šä +¯Ñ˜Lr¼TRöB$Nž¤óh10ZV^@Gç/d¥”õËêSqŒ5JRWó>Ûì¬\Ú T$ˆ ‚ì +Ïñ´2F«/@<y +a曒;K™@VgÅét4×j!w€,ë²Z'ÒGݾâ’gñ›ÈŽ‚Ø>Á·â¢ÏWºüÈÎ8Ø ºnúÓF.—ý‘ +jáè^J%4r XDv§ôôÅ®iŒòÁÓXLïÏÀ¡–û +œ^“«R,f +Q*=.póù +¯É“ýªÜ|ì´zò¹œ›Ï¥[2òq@‘“ÜiŽ|dÍã +ó!ÒJ}¥3\­|k‡X +‰DP¤{:\BôòGŒ”N{a~Þ¬"v[çtÚé +Ô»“©÷•£%•>zH`WDÜÈí +ƒgßÈ_í6¦¥/Ï'Kmºgßµã׸ë‹ïüފN6W÷v{nÍ +{殳§¬ó6Ü:±Ú]äŒp +ß±g¹M®§·¶<¬S©Ê®_¾õPò—aË#Ûªî¬áô½tò= +lµ +ižÆêÇ~âçü¶{t÷[Ñ=b8®{Ú«¶öp€»&i[òíÜ`ò÷¹{RŽpÏpš8.ž'i‹¹ZNáW +z—Ž ŠcĂñI4ÆU +PxS9EԔŠ&¬3ÙLÄÄÄôÄÝÜÄ<¯¯.Ân?‹tCxÛM=p÷ź‹”]øä"˜ +ñ¾ÂØ+&Y”q*wŠ'֓ìVZ4Ù(. 2µY‘cŒÚl%á™1RNn NFt’”h`·ÊF%ïi(kpј‰rnÿ¦Í6÷ƒ‡w½»cË +ûn|µßÖ2ñé3GO + +Çe?úޞLƒ%1%V±i"ÿã»'~vvlâ/{»% +;ôÅÉK¯ášg''X”ò™`ž딏‹¤2©°5ukꃁ'LGÏΪט»”]ªêšå€jzFã²YÒì·Íâ³;Ւʢ¶ÇÇÛ4µŠ*™Ö¨ì„Ø”Uª`!Ø Þ0- +ôå l^·‘Ÿ‚áÊòÁö¦Y>LMMSkŽ¨ÕÊ#eô©U•Šƒ¹>ªÙ\[rŽdùlÙ~ڑrDÿzÖÂYVUvÁ!„+DSc©±Àø$8Ü®8:ÖÅ*])´Òµ¯àÜ ¼‹ +v@íÒqšë.\¬;?þ™¯®îB)»k>ÿÅs4 ¸fÐÀJ¸ð þæÃÑ2zÿ]‡õvʏ|½“]¾Ùé]x>û-`V>'«Ùe=£œÁ™½éJ·;>Þ°rõÄ[‚wö=m¹åÞ¾/?|¢1ÅUà“téIùyސ‚ŒèÌéð6¥:½åëӍ¢#n£ 5qÝ×Y½î‰_lªNÒQŽÚ£ô°ÍƙÃ^ÿ¶J³ÜÍE^3äçîóô½ì{‡û©ï#þ£˜/ù/c4]Š.åNàñ€b@¹x¬VÅh2‰Ê +7†=’VmQ¥Ù,F»C L¥5 +‹2žYr«Íâ±;}YÞu +á +vùÙÈéA^ÁK¼”ÓîôtI6ªÓ}Þ#(£Œ +MºàD²W©´©p• +ŸbGœcRŠgœŒgL‹gœŒwXÓ'ÓXeãdÚ¾œ`T +©9fŒ¼È¢ÃÏêºÙ¸÷Ǻiæ±C +;Ãø¢ÜŸ* +ÝôÂχõ”eÀÄ +âtêáj–Ÿ4ÃJNñÚñ#_]¥u»qzł¿kcĬ@îøÉ@Ç¤±PpÖ:S*BiW†' +«–º'Ö´ÚÍ“۝+nç:dxâ­úZ/å×b°}?ÛW€ë¤š~a1§§x‰`ÌD,’ŠŠ¶©»L]æm™{M{ÍC¦!sl¶Kì®XÎT”“R]ÔUtÿ$®ˆãnŽ=]Ä-V_Lu(לÌŽ2kˆG! +©”æç>e4™ +Joïuh°Ïf£”·2"[•”Èp*×WöˆÎPe ôp¹Ó0ià +<å†Á06yþ)ÚÍ0Fþ!ÅƔV{°Îcóp˟JÆ#ÐvϒÂæÁ(¯Àf‚žù}ŒUŒkçÙñŠrI˜²›Q·X úT‚ÚíMÏHÏLç”qàuvý +,ڽʓ´NÈ1~Ò¤+³q¬;>;zà¤q"û¡ŽTÓQê©Y.Š4à“íªž:·B{=%éÁ+2# +Š;}+9‹ÿØ^ÓÿÜÄø®î{þ:Py[¹­|%њW¤%öœÛ=±õõû×´ŒÜýÚÒþðì„ +·æÀÕ}?yòO/Lœ¾ÛãÆ·´”Ù=ž÷æ‰àܒK?úûè£ÿ޾֔‘äÌÎçñpýÿ¦ÑóRØÎl©]¢T³KÞB³=¨o.RÛ,Äî0Ù,»Ãl³`»Sc³èíNƒ +ÔMm2Ê7³šÜÌÓ¡f‡¦K= >§æ&Õ8 ®V7¨¹zõiõ5§æi75Ó!õØä?ž¢c˜Ò˜Š]pÂíÀ¦±æÒ +Ô¹ÇС³7øƒ)­•í +ewwÄÇ + À°Ÿ\e^_¸°+ú»!„aŌÅ*úªª‹Ì_'y5³!—¡bCZj¨Gë +a´Ñ°Ýð ~?ƒ^Ã_`ߦž¼A¬Ö=Ÿ¾ÒK&Z +e„^$kË $ùð8•”ZLÁ‘haaÅqs1xK +¾-é +ņdC1’ ™‹ n$¶¦9#ÿ8–XL$}1šº&šzû¤ +Õq TWø7çW¥Œ +øÜÅ]E%¿MeÉuéz‹§ +‹ +Ҝ«æ¤ÍQ,»¤ââ§DåËÝü‚K?šœ£Y ô¡¤±á6ˆ +㐠+K¹÷©žˆyBà·â~Õ.|‹ŠŸ¯Öz—äUjL¥ôâŽ¾ª%q +nIåoJY¡˜&¥‘4})ýƒ%"_)/I +eéIv¹ÐíûŒ—ß ÊÃú¦TŠ'Á§ÏFlÊƉ*€’ 1Úll&ÔIÙÈÈ'e£™Äò] + +žE/ ;ÍgXzöš”A/À™àVã&¶O|<ñáÄ +¿:õ÷㝻ïØ=eám'Plõ{% +þœ>S¯¥7õZoWÎÝ©ª~ÓÓ®“Þ_Z~™ú®KiNr¼žbwqú +o g}z{zWÎ@Nì˧¤f¤V¦þÂüK‹â¿êzÇø®ëô·½»”©’3Í«Ž§¦Ôm•Ý †6ÉîDibVfš·ÌYå„#ƒ*)ӛœœDÔ*µ¥))¥+E‘²$‡²`nY!ÊÁRÎPٟs:çL—“ +™ƒÄÌbæ ±CÏ´-zbþ1~_vÎÞ:j§G +v5uä‰ê[Ýrz +å‘o¡<ôJ>±;'ú:J±Aö ÀÔTW†1Õäöz2Œž|ìJ +,ݜ™ÝˆG£Ì»î:´¤‚+˜ç +Þaç +m³¸ùäÜ"R×Ñ_E¾naÙ}Rrô·‡ôäË·H*ühªgyÁø3àŸ-àŸñŸÿ×Þ_þ87R^¸2­íÞÅ7ÖäW“k&úlàŸgÛz¹ +UŽlìLü¢˜˜‡ÖÝ[IÿS'BŠ6à¼"¸L”\nF´]l¸Éó’ó¥ln‰ëñlb²sZ\œkÜ +÷"´‡IØu +¾†ôØzÄ-ŽmîA¼K¼/û0>ì~Úólö¤+I)ވosݘþ€ë ~”<æ:š}*ûíÀŸ²'³µ”ŒSˆÁ +ÜÍ-É) ´¸Úý1™j’šŠ“lÝÜ^ +‚H4 +bP›%Õî”H–Ûårœáºë‰*3ã »(1RtU‚ªZÕ âö²×6åHjÁþ®¤Ë󦥥]|<ÆHm`?¬“¨¨*Dö£vRΘ؏ EX‚à™"®¨@Í$JÍè f¥v$'1‰Jb•IL¢’öO`3úÊ Z¨‹À!ÚÇ^×öËÒäJSÔi_¸ €8ÕEü¾q¨0§vÑËwúúŒ¡8¤“ݶûØûf¹•·ì\«ÓæÎvúóq®² +GV>rºb^>FS/:Aä‘o¾˜]w³Æ0øš‘Äb/¸¯ã‰ÌPøé1¡8 èÀ4cÙ"ƒ›÷ùìvÌD퟉¢ŠÞëã¼é÷ +TŠ¶‰{& +óE­UHõ,+dBɂFüÇ·²ç‘ÃØÔ0¾tUBªæ +—ößPÒD¶Œ'¶\)šeOôíóL\sóº8r>týÎý 4 +˜|W€ÕžMÖJfÃÝYX‡u$–C:ދ2¾*\E4ú’1¼P:S4»( +³ðõ¦zs}J½E©Ð*âQæé¾7¶WÛ¿E×eí²uù»»Õ7ÇîÒQ·Ëwˆ?”/´ùÚmaZ~ZAZ!½0ÍæE«hËÈÈΟ‹ç’2>`X¶€ýª‚« +kgÖĮѮÖd¬ñ¥Ù°Xòm +–¢S¹&¥6oCþ†‚ + +ŠÖϊçbc3b-ÎX±dNF $bˆ$ìvݧºÏàÿ´÷ù̗}§K>-I\¡žmAab9ŠßÀïÄÑûVI[ø@nª%-l³X­'ÓhMùÄL±¸øĸ¸x_\f<ïÑ°BéÄãy{s9§—ÞÃbÉê(ÀØF¯ÿ±SüúSzrVEýQýY=§#»ž¶ +±úúf&t°íÏÁ§rþ”3 &UZT(å¼ +Ês`hùœgñBTŒ²ë{êìê|Ýàæ"é +•‘ñH±ß'û¯%Ëúï½·ÕÜùÓB³ÍO%.øä!æ“ÿ,•¬ÇëÉú´õÖMxٔ¶ÉªöÛËìUöû÷Z) +³¨N³&Ó³¤CC­§Ser"tjû9-%h°IÆø2ƒ¦«FGéë?Ä+¥¨5ÌÎi˜IÓ0;§q“m>+µñt² +Özë+o=I¼(yò)–ZÁdfÿ’aöQ±¹N¾¾XG +ž +ll!`$VWöJ£‹”3HŠ-„4Õôs±ã¥ô>ñzÓOOòý’G¾>œa‡h”lIàÖybl­5§ ô?OÃÂGê½KU +A±lâ +Wɬ//N +€|\|BÇÿkïM ã¸Ê„Ñ{«º«ª«·êê­z¯Vwõ¾Iê–Ô²ì.Å»lÇJ¼Iv‹ÄÙ–•Õ!ƂÄqL‹„Å + 3ر +[N&DaÀàaH~ཐ0¿'† +cò€Dò¿[ݲÃÀüœwÞ;ï¼s¢Ò­{ëÖ­êZ¾ýûîWWàðT­ç_1?Ažj ßs +Uˆ¸›+W+ÔWœ¤µ¾Ö®f¸^n%·ÝiÒZº#ё^œXœ~8ÍgÓõ43X¹Õú^çCégÓHq}ÃX‹ +ñ¶ +5™¸c!%ž *!áSŒ–±[rD7øíxj¤ñ*U +hž`4Ébt[]Љx)TF;ŠËãÞCùG­% lf'z¥‹5©‚Ç*û++¯TL•˜J_¦J_¦J_¦Ú&Ë;Ýx«»)ïr;`Ÿ; +û܁ò¹ +zÇHË^±uTóȏ\0"Ð8»¦1ˆ?+.ÛþD·@P7ψ.ˆÉe8§–Ö’µˆ$Wʖ-b«—´"ÊX5f1ETã†G.¢m€²øÏì3éá5o3xQükr öŸñ+ƒyïeg¾ÿóW+êbpœU×&‘•{¯ßõ£U„ã€ÁfalÛÌϾÿ‹¿{èÿgä +—jZ-9>óÄêïÜúäOm§Z p màk€]Œ|Dtr1ƈj8âÃQÉ>Åþë1GŒññ"H@¬BCš9uj—!$Á&Kqì¬õÇ|˜JŠlÐY3‚ +eZë÷¨‰êÊoÆÎÆÙ§üǕ§ƒãä͏þ>øæ£Üqž¨±rñ{õ™?ËO:'å‡|“qó +Þ-þ[MÛʼn¸y£oƒ0~ +woÞÄ +›Ä+ +Ã^³ +DkÙ +æ5œYWM=Þ%h¹Ã¬qY>#d¼Ÿ™ˆ˜ñJ|4~*nn†æ +‘#®Š¾ /çc}¼ +n1ä |œbðoDšùÖ·¾E¤Üj\ +é +dÆ!äôJ!§C ƒcþh(6u~·îòñœ*ð<‘†$|0|ùþʞöñZ?îþ¸ò`ð3¡Od>YþDå+Âã–Ç­¿z,üxäÑòaþ°pLœ + +©|§òGáÖ·"T®/_S¹¾}ÅÔº9º5öž¢éþáz +»Â²2¶,³¢lm(_VaùAa£•5ñH$bVØWÎ +³±v¾nµ4¡>‚äy½¡Š%l²ºŒ'’ފ­B=-ظ ßŒÌ +éK8,X,b˜È]Ѩ€8‚î 'äΔ³¡Œl#gIGS¡t½½'TŸ:?v8dÕ©ó[uOEàU›ÕÚ"£CÁp8jEj + +IG¸ +„6°VÊí +ÏÞp¥l¶»åt&C”KÄXEQx˼/p·“wvH¯µ¡4#IÓÚ'Ú'ÛÙÕí›ÛGÛÇèÆ+ígÛ +öׄ·\n +=´>Ũ(ˆÿ¤[u۠픍µ=Ú;oŠ¹ñ°hʐN+ÒÌ9ª¤äg^ÓKšVÅVd/ż + +aÇE¸øבñâ5/9ú²ðRß05D„þƒŠLpԓÉøì(¬Ô +YÅÙÚ0th‚ŒÃØÛÖDÇ&F쁢¤; +6|jÇ¿ÐÙÄÓDßQ»$êÉÏޗ™ýÞìÉä컋6Ïâyø +¥ÖSÀÖ_dT¢Å¹w–‘’=Õ"6a¦ñ¥æ +NU÷¾ù4{õ[Ÿ7]û>JÓ´J[â}3<³{|SGÊm—Žte;wÎĘ_Ý]ñgÅj'ѧ¬n° +&Gq™x%Dpú×۝ѹ¥”+ŽJ¦T ‡I1PƒüÑ@8`3Ò[s.mwa{À’êÅw¢;âf91àg½,yêR¿ž×ûÙ~Œ½±Dõvt§ë®¶±ü]Å‡Ú +L<‚‘ +‹?ÖöXâ‘âcå§OkO§žê9Úx^úVè[êóõéþäÔ?ZÏö‡å²¤Êmj2Ÿ)•Ëó¥Š\QçŻҕüRDÔô~µ¿Òªßôí"¾µxwyW~OÙ´0?lŽ³–D á[Ðè_\˜ædO 'K×ÄŽ?\251°Íì׳®T‰q¡xÉÒàQ„‚\P€GJõ¤ +) +6+x- +´¢¤–q1®–¥6—Ô&7.Ê +NâC\P%gI3 ½¡º›B怬„©68k¹;ÔSl“¤6\ô`\$”S¦ÖyµìQÕr)îB&ºÂmõž +ð©Ž3 +×7p#0Q1U\ÁWàQ<†âiü +>‹E<ÅüIw.Rר[TVí@mûۘ¶)æ›GõþOµëÜQ + +k\d›oFhƒ"D1ÉÑD©¿ }.^;Éß0z‰}ˆ<˜Bþð¶ +CGË8ÛV^À]$ìâ[ò[Ë£ý û +Ht{À2çµéz˜œB,!ÙÁ:ûšî¶ÕŠµ^"%±ÌWOU|Ð?}ÔWoËø€3¾rÈW‡´G­ÔIÀ€ÕÚ*׋‚\oSåz˜ +õ´QI˜TªQåjÁÛÙëܟa¦wÈª+ØmצYÌ]LØՍñEœØí6F= °‹pbûmgžê +{C¾òêìé¢Üµr6Ö©-[†õÙß¿û3W3· +ۜúmÎms––á_ԓ]/g~3{é‘Í„Gc«Esûý®¥øŠÙOô¦½jŽÕ4³ +ڄ?wﻚl±¥°¶tö»¸½+ãõJ^&]Nÿ¥7Þ» Þ?FõŠŽ˜–©„þ•FM¯\©\¬˜ +þ÷ú·§¶§ðïIss€cPÅË{3je°b6›É]d¼Œ)ŽTœä3édF+U*K°^¹ +ñ£C™ÁÊ-Ü-ü-™[rc• <ÁÝËߛ™ÈMTö径¿Ä쯜ˆ¼y¥¢îâvó»3,æ™6ÂXJ +ÅP¦B†jU"¡h2¥øýDÍõðçУ-![%å/gøŠáÓ)Å +“0B±XTI¿¯åðõµüÐНTlÓ +CÕHÒwŒj’¯¦á)Èöšš®¤õô`z,=‘žLóé)æ3‡Ë€4˜$:F_P¹à +ŸÃ Pv›š¢ ©É~°\o"Pþ"1ÚÍ @½©Þ´1ˆú¿À€ÇqžÚÅÌ@F "à +pX)Â6 +¡€~ÂVo +݃HH¹ +áBîçJýÞCT•Sø§Áà–Ëûf‡S—f¦ACýÐ%åOŠY-¯žCXì‹tu^SZÿ®™™Ù¿o©«¸ŸéÙґ5­PH^9»ñÊR¸ï×of—˜äه 5ÝqÄÀärädQ—™Áי–.#ZøïûŒ ”ä¦ãµ¸I~ó%SbvÉZ°ñ/?†Ýà +@ +h>»¼í6hŒDC‡·ê +ñ%M°ZÁþ +½²uø.3ë:}0„lÿœ*²ðâ½ðº;éØÎ:Ok¾Hôª + +RêDQS¶P©Út +9©MD`í"»lSç¬GaÍfÚ©` +ö*t„"iQ¾¯`Bå33DΑëe 'Ë3 +?ΟÄe²AÉÇôôKùü éÇ'!p"¤oµ†?ØÉÈkº°¬ÆꍯXŽŠ¬œ—w  +÷¡¬Ô¸ˆìë• +“%¼Ò¼’[¬.n[Ù«7öDÑÁ«¨m9^!.·.¯­è^Ø»|þëuÖ]–{Å{­Îµ¾{|L¬±¹ÁŒ +¨ÚWÊ«OÑІl„`Z권µn£>¢ÞšDä.„¯Q«Òêv›ÉÖ§€Ë,k­¯V6+[¶¬ìTå}ÅàŽ+}zCn{ +&Ókä¹M±Kt—ÉZš.â⨆:í6[µJ +ü[ä +pë:Ÿ†tSHƒ_tԑÓ&´Iͤkg5fBÚƒ´§™ +ˆG^"BÆêÞ)| + +•ëí¼î¨«ü ?Á³Ïò¦Æ,\°ð=†aoÛøx +få‰ò~‘¾™|S0”Þ!Ðunæôˆtf[ãÌ8„îºê0&Ÿ/xwˆµa‚uÆt—æL—¥µyá„ÙÝÝÓÕÃpA.Þ¦¶1\ÍZW‘+â#ÙíŒÙø-1Ï\£ +¡ªâZÕ*‡¥0v´‘U/×FÔ¶ƾ¦5!—ƒ]‚Õ»ñ¶qœ±!Sž’G û +i'wZ6&Ñꨣޭ:€C–« MY gS­u?)a€ö •h +Özwj‘Ô"©-¤¶Ìy1[Ãä>µÖìK`R†9œóú=s3C `ÇKã!²ÑkׁeљSÌÒ'»æo~o4û½×7¬ih)¦œÒÊ÷Ýué¼°,ú’ÍÛ7vm{/þtaõ¢õ=+ï}·+ð¶/ºs}rϵmm +ÞRGµ¸~2»$¿kö»÷Ìóðö¾žO-ú8 +é +FëË6Ì?ÿæùÓìqóG%ñ +Ì"j +–—Í +R¨+Z±Y +Ý`]´xnƒñvo³)~db,ne] +ÝB†y¼(¤Y¬ña†§6àÆKyÃLñô¥ü´ôm‚´D¤mJ†)øä 99Žc£fsJC +Ì­S€^¸œ? +mÒøõ1è²ÙRš‹‚øÓÐ:Ùü½“Fö‘¾]Já/sG¹'ùÿˆ™Ì© +ö‘.5u{»é>v·éö«¿”ǽ‚'mïwG=‹¿ +™B>$Åñܕ´Ç̓ffÔ¥²QE%ŒŠÕÈVÌWqÀ +£R›SÀš6¸÷¿Ÿ<Ç +Æf¦Ø2܃i­Óåò]pÑpxÞ®‡>ü£/>ðÕÁ‡×;U%œs`w±óÝõMŸÿü–Z-üqü·ÿ|½ì“Ÿ[”c3™™ÿ³£óùg>òùf ¡Â=âø÷‡nñ&ÈQÃ"GŽ +åœOsZøÑøXœCؓOñ¡øGÜ +f +iüÓQà(‘v–xB¾ó#g( œ„9?OÈ £·äŠU”€·ç·o03a÷ZÓón-? +óיo7O ‰ø¢ÌœR_Aÿf¶tã¥x½².¼91ªŒ†oWÆÔ?âžtM*à/3‡ñsø;üw¿N‡ÿC=‡Ž7ÈÄ +P'g¼KÅÿxþ¤’#Eà +‹ÑøDœAq)®Ò`¾±øäEÑ;gãöøµ‘—Øù +Ÿfá# õzêPé=rÜ¤5þý˜ +¯¶íµ1¶²Dã¼FÑšDÑ4zY ƒAß¼'È +ñ¾ Na›.Ÿå0â$ÎHdæ¶-<Î|Ôp½@¤üÈø¶™m#§·Q°ÊçgÎl£¤û´ÜD1qMäêÈ-öã +¹-nôôôà +:y‚8©î}I +X‹Î +u×͒®ÂiB+ eœ~Bª7ÈmÃ`ŸejUÔÙњÚLÎB ¡mì€ö“{>÷ÆGv­½0/ê²& +¶Ì¿ìïö\uiw_ñä71÷òO°cïªT9å½= +¸êï¾üæÂÒvr÷‹ÎŸ6™ +Š¡"³¢ [©2âÌr +*Á0 +lHø(ÁòYUj*xR©©\¥£IïtîÀjø)ö_Q5@Çdª†»u‹ƒYçö ¼¸B¥P®2)¸)a¼Dä‹i +œDÆh‘¯ËerR­, +‡†Ç"XŒF˜HÌJNcõQæ3Á"WèZ59dÍÀ +PB³t +½9n +ǕK”ªÌÄ-?}’hHp1##'0Û +8‚ÇQùüôá¥K«e@‘Kò¥êhùnÓÝæš&ÊÊÓe^/O”Töå¼ùuæuÂÚü§x~Õr·¸T\/~Æôhn™Ÿ.ŸÍ3ªŠÔøSÚ­„ +.îSW«Wª×Š7«w©ûÐ>õqþ8ÿíœ5%¸Ó¶~9ê^䍤}ýáhdQŒ +f5¼ô©Å +¸Pˆ±Ö²Æm*²wÔ7á;àcc¾IãûUvcd¦T +úØÒ·°´pgÓï°êÌÌ8L=„?ˆR +'·LÈ£Dé#’.É`*oÒZJȪ(o"« +¯©8g.¨­Y0U¿ +B*À ¦\­õ)F\»@ +vì7'j.pý5a˜ùΉO½ò‡on_M(d0oÇ®¢3î +­³gK\ßÕå¡Å›Þ¼éº%óßüÖ·ðÒU}žÊ7_ú»¥aWbÛwñOÕW_ÿü?ýÑ0ƒ +{yP„ÝфèŒà#üΓ¢ƒVÍÈ|oEGB@„à#³äAQZ +ÝgYCš‹‡ + +„< +£yJ]É8žhê/Ò#H㟎6˜Ú­VJ@‚¦qáàä¡`MØqùäôf +ñÂd҃ˆmE¡Ò‹0~ј‰’–x•?ȳˆå!5†‰ÿ˜é‹¦C&~Š'·˜˜pöxbQrŸÐ$wKÀ +î–TDã"]G,úvž?y +¸øȉ‘‘|‡1cš€=5p˛•‘À(õ¼Èšj˜ˆiáºO×ctځª£ –©Òî5¹R5Ä,Cî+}›ý•MA +³Ž·6³w9·‡ù·ÛöAiWäKÌW•'Ý?f~êü™tŽùOÖ-ò£Â¹»=–çøçgyÂéxû½ +k<áž +tY–0K-«ck™µ–«˜qf{OàA÷—-_§„'-Åï0ÿμb;'z„SãT÷æɯYu›^¬ÛI€ãd@ñ† +hÄ¡±2ö5·DcK4¶,tKwXê^)P¨®º]¥a†8ÿ6)}xxØÍù›3¿ +&Óâ)ÃÇÿ3¼eËŠ1ï?}æá_ýöèCߞٍ¿b–Ww­¹‡™÷ý[o½úNϞ_`üÓ_aþ{÷%{ô÷yh5Bì]æ¡<#4±[+R~Uԁí©^ +ÊcÉÁaÁ‘ōJ“ +û.‚:dŠúFxìÉBx’($µ¨!gÖ9 +C‡dæJŸ™–¦'ÏHg +¦4 +âô éÛ°œ 3šˆ| +9é1ˆ +ªG²\’œIÈbŠˆ˜ +ÄT®¦—ñÝJ±‘ö“íŸQùÚá(Z,è%X‘Ÿ?y҈d +é + +Pô>˜b±‹lË»Ø]6óC&\.îŒC¦õ}Â>ˤ/¸-GèÔæÜæ< +G¢ÂÇÚð‘(?Å +z,Ý}6ÊD]I͏óƒDù­ä²²‹xQ"> +/?¼—(¼Ṡp.? +%ݞÉbÙé’>ætâ$ëáÑÑ*­{{ºÑ0êd;­u_8^t`ñ͎1Ǵ㔃s +O± +Ë7ƒW + \uì% T÷‘êՑÓãÔþÔ×73Þט!šm¹í'ki/¥ySš/FiO2Œÿ,ފI™†Àe¨u°™šø˜ˆæçíôâGÂڂ53/e3— +zrÛ +C½Õ¨¿s K•ôðëìʙG&Ú +ÉdfÑUÌÆe}{¾~Û¢bO´·ÛÝ~݋—,ƒÙÐóg—°ÿ‘Éç¡åh˜ý´þÙ7øéԃ],*J›˜Ûs·¯aPŽ+q—? šÝ«7mí¾-5¶ rœÜã¿WÙ[ûà‚{ï]qßêOú?©<¸zÊtÜ|ÄDùnõ»+¦7Úôʦ³›BAÕÛ)Õ<]±MæG +®FùØ®ø@Ê0YÝn³Š‹Ûí±–5°Ʉið:<¶ÔºU¶6öi´g5V›Â_xr(?×ùÏu;Œ•÷Åğ³ñæ1´&‡ÄÉX]™ +À?n@']@: + +º{«€w +¤á‚P‰÷àB¼pŠm×m± +Àƒ‰x†ùâr­B}d—ÈñËðe +‚sÕ×Yø¤h”¬ëh[ÑcRo­ì­ì«°økÅ(Q©ÕKìÄZ¼îÍN°•4þéˆä¡ŸS[ÌZ#˜› ÒZ-–Á +ƒþ`uo¯ÎŒe¦3§2¦ŒFfZ–SÒøµ.ÁÈܦnªlÒ7í'Ïܼ  +[mÕMŽ½ŸZ‚—P+ΒvՇ¾1ß ±Ÿ:ÿ;ÝE#pl øè5ú¦˜gt÷ƒ +Üh¯°ƒ,3Èb^fXx”H•Öä¬,ü<ˆÉÐ8÷ÈÞ°qÓSøN¢×‰Oì'ü ZÅø +mœÉŸ–òی¹8yc2ö6é4‚vF:Ód +3¯‹hHèfŽK0ž +&\âÈã/ÇÂ'ÆϝÇ<ôh/k¤g¼eçmšy/¤Ü w׊ +½‹“µpį`sJëhïl¯¶³\juª¤åRëµµa +ž +£µU*º7T4ßÜ£Áâª0º<¿Vŋ”%a¼.½!Œ×oˆô†ÈðÐ<´²}@Å+j]:³2--0õ +ñ¥åËÂhMö2-ö/ +YqZ‘eÍÕÛÝæhº +@~H˜ƒ·QÖ¦‹%‰ÀhM’ÁÖtö ¹_֊£@O牦eø8è2—[ʘ5×MÂsi\hŠ +îâ-²][»ñäþ{F¿‘w°œ™uæïè9ñ𢥠+X¼ +ûÁü‘­7~îÍçv­°ºjüæj¾Ž½[UW^µ¸söåJï–gŽ|µ³úÐ/ð¥ÙßB7sP4sËÆ&ŽzRuKåM¬Ùb»|ÛÕÛÐÑ¥(Ú%–«cí±Ä•ÌîÛïú†KÆïÚ·ñ’·Þß9¤U’ +v.«ú|&Âô‘§ÿ$Ú\³·É#=: ®$ºDÊE% Û + +"SÀÊ8¡€=ŽjxŠ€TI·ŒAG*^­¥‹8n²Ù˜uqzŽxQsÁ)½¤ñ5Y[8F¯ëNʔéùŠ˜haý"aµ2))RÒ¨ +5jǪu¡´+R0«\]pÝ×_'@ÙÔ©Ð*øv‡t"oôœ$ +≋t᪠+(Y£kò‹é*9)œÒ•)û)Ë)[›–.ÚÕ´})=Ý8N»ã´;N»ãänÎRjC¿;;Hã­c°¯XìénrmÊ´›í“ t‘»0¬c4• +XÉË=z®&öŒ¹Ù©9S=“=¦ƒ=Ó=§zØ<‡{F{Æ KïÁª d£®)Ö©»ÚŠÙhz MÌF¥D<MM±½”¨¥KýÕhmVÓ]ˆÞ%«\.I +(IˤˆŠØ)Ž‰ûÄŠ&ˆ”VDñd)V +,ŽNJ¦‰âd‘9XÄ0}ºxªh*Žv?²“¦,ãÙ +•@¡nùTÏÀ +Àz3kj“9{‚a³Ài¡TØ +c^ò`ÏMK5 +üd°c¸ºŒùÍyn¯¦ÎFÄ'U +Ios¦yScÄ«¶~ ÿÒ±Û!VôÙ^½Cdc‹*í7xëKf{ç'<Š3ô– +X6d檻¯¿B|ö7¨J8™L§¤Kñ¢O]Y®®ž +_YŠ%“n±g=;ßÐ +Á3ÓGV<Á+jcšž™ã(IA„N +¶Sp·Ç©%#Nôãn +µBi¹¦%Q‡hMÜŽÂh‹]iQ|Òø×#Mt{¥ +n/>I±Msˆu|k|'aÃm[ r˜£’,ÕÚá\ç&Òà‹„¨Ÿ +‘^iZH +OÌI‚„fæ!5ê +&ØUŠqº†ó +Y±¢Ùèï7z »›[§ƒ©k?ÇÀ"¤ÆÛx7ÜÞzŽ´X’ ;Å;`o§øwfàƒˆOñ‡ô +3P(™¸ + +“\ûK'' +gE“I<š +KN&÷'Ï&Íjr0Éè°JÃìè¨Òº§×¨‹£Nh´ÖK`• ˆ{ ÍžÊ-ҁ~5_d +ØܓäVêµÙx·,NZ°¥<øÐÂTº³Qco²Ùì{RÑóu +úºz«“ + +Tð¨2¦L*û•³ŠY9”8ô%Š45àa½g +1•p^È¥0—B7]êÛ +³ðÅI¶æຫk.­0ëlnÞ¼\®oÞûíý³ +–B> +g +ØcþìèËåæÍÆgÔõuÈÁ¾uø]Ÿ,¨grŒ@È|µNµ^üÑÌúÉ+£0ë±q˜oê)ä&juÏù *ó¥|ǜJd¼ç ]D‰Ón +y +j€WB|S2ô j“ƒ‹2Éf0Ú0ÉfóûÞFLÔ°slÒ?í?ëgýTYR +Zï­Ï«bÿ!û–®A?ÖýƒþQÿ˜Ò¿Ÿ +ämÙ(?І³Q.h9È%ñœˆpÒnkžÆp!ÖæU'mxІGmc¶IÛ~ÛY›ÙvÈw($±Ñwáå1„ê$ôÝ¿ý}·^÷{Õ¥³F)èˆ)ÁŒ +»Ìy³}O„¾[VÿìRƒ"aäBˆ«Íbû/Mî¦ +|˜êµ~}µ®u++-^[ +¯¯BCà +WòtT¾½{IkԒ֨%t¦8ŒZÒ¿´ŸŽë§€ÒO¥¥~me븕-Þ¾²uÒø“ +€±+E8ÍÊ<="4ù¥„kp¬¤×–Yó³+¨$•Lº.'}íz¤Ð=ëÝØJ&CóÖá+?]ˆ7¹”è"ÿ¡dÌ +%«QJV¡ŠF»1ITpú@J°•ˆ$³%IÍ,” +>ª²4ç½Øþ< +Ê‹ñVŸ‚á>¡Gè‰"ô‘,ÕX²TÉò4焜mÍ y£9'„Ð6ŽÈ¢0“¬!±´ëàºjï°C’E‰”6C‡Ñ-Ig²ƒ +Ï{¹L‰úßߦµä§/¢ÉP\.+Ë>jñ 6 +vÚ¦Ðnœß™(÷(¥(Õ|Ô¥å£]>º|¾ZEèÈíˆÐz£ÔëÕ"Y &0"›­UÿV†ˆm½5¢Á5ÀÿJm°6Z«MÖÌEÖi{‚l +¬qk§jÌÁ +% +Ó56"ø²Q§¡Ìd³Ñä@›:‘l4a(3íé\%Ú¾(Œ +ôŽ“‰„Óéý¾$?)àƒv +cÂ>ᇂIe&”íŒ$s±ì`vò0Md'³³,ÊJY†¦°„ÏŽV + +&ÿ·+4²`9“`ýalæs° +ÆF2ºÊFõ™¿ªÍ@Ò¹‹:/xÅß}lÅͪÏam¿dvž[ïMý«î¸ÝêDô,i'šLÏ|cÅú¾»g·oˆ¨ +ã\ïرí³‘_„`ÚÒ-xíÃ˂€g +!Ú§ÙãϜ(Âؚ˜&b 0BÅ9êë²I`f +šw`'4t7tšè0“_¬’† +Îh„*Ƈ•öø + +˜ +š<â<6‰JpßLT€¦ÉµÙ +ÇeE\„¡–i{±<áŏúŽú¾ +¿k9ù© +“ÿ]ÄË,‹}¼»ð‡,{œ? +ñ1½£f¢§}1ümïwƒŒ +ÃË +ÖÕÈ45b^¶6VP4áS° +4šÆL“¦ƒ&Îô:¤Émè¶}6Æ6çkX+Pvó+fÖ¬88xÙÆ'lÑåOÄLË/ß8ô +D—Á—cá +³Àý# +² +ȄÚJR†+ax¸¦€âèh‰“"3*NˆDVü•Ê¸! + ¤ªƒ +4ÇBc„͘㣽$E•H +،rZ­N«e +´ÏHY®ñvA«¦l©ŠVã;T\¶“U§¥KÅí֒úg ©m–€ «uzç>÷Aá0Ý`:}ÙyÌÁ„°Þ¦ Ãà`jéÞÕ¼bÛýcte:üõ³j ;íöJ‰¨¢áªÅñî5[\v +>T)'Ùúø‹Ûßuó½?>óٝ^gqö—WvF5 +û¬í[Ø«†+Šcçìã[½C—^{üGÛ.Ud°ý,š +0!Ë”Ç?nÂr0EIeÊKÓcy‰* +mêÒÐIh´K3£•C +`Ñ¡r +d\¡EóS†ê¬K|„sF儦pÙaÙÊ; +¸! Ó¸Xyž¦kÍt($4”8 +åƒÎ`t½Äâ"¹U%=XdôâDñ˙ýES%X‰7r=ùՒ +Ôã«sËòCÎÁàpt0¾1·9¿Uº*xU|kîni[pgt[|g~WðÃùÏ9?ü\ôSñÏ侐ÿŠï‘àWÃÿ?îû:¹‚Ÿå_Ï¿™Ï©Å[´[2{ݟvÚ3]ä׸q›à tº©A‡g4Æ&‚Y +·•Ð" +ÏsŽPÅb»2ŠáǏâ |³X úþ¯Rí’wÐË<ëý¡÷7^ÖK½+Þ + +V< +ÌgŸÉŒ‰ËTÁ>Әx”[ǔdÆíOúS*ʸÉJó%Tœö@X +Àžá€ç=y±Ê_PśÙ+›)ˆÊßݬ«•¬ +ÌúìMJçÀl‡»'âQ6Ý¿|×?cÏ7룩ÞÚ=é-±ý_ºeÞì7¯ +êkšd­Ñ÷æÕ¿ûÞ/±¦ªáäLðë¯?w|ºVx恬 +~²’£4’‹ù]i*œ¦•nªòk¾±–\kI¤1 FÔ룊yŒŠ°1ªñҁXb_àit +J°s¬NoMïL³é +¯ØXB¬N‚†{†è·ÿE*Ë¡ôvzN—"Çnµì´0r +#WJ ¥‹j°p¢„2€WhPv,–Ë^&Éù©{dN† +é[‰úæì`:œ:£;?`âõ +ޜÃ1 rT_¼/‘N«ý©hz­9—G•°IXÕ%¶ +³,â‰F¸™Ã:‡¹R,‡sȕŒÅb*žP'U©Ñ§ÕSªY +Í>2Umèx㧷7ÓʌŸq5g9 ‹ÌxãD¾#ŒÓÛՊµki]þ9ãt÷Åf•·lï^VM&6xeo±â¶_²`6¿¤- ší‰`,-b/{à?XXHw-öd¯œ]¾2M„·¤êSWÀ˖󧙼´›ªMxIwRxéÔA:c0µ?cjÆÎPPHÛ ? +w¶Èiìw¶óBÚ7Éy3ÞnÆ7›±Y+cŒs|àŽ(¾:Š£šÄ£Á± ”­¨qbd„È@eR“jÂÝDˆÜwòÇ'¥œt::âδ`Êù¢rÉÌäÚyã4y +ßd~¯™1k9~Qo‰Þe¢šlÅp +¿Óƒ-NggGPpP-&-C•Nwv49æ £>±H#P¤'FÒ Éތ.ÎZ +#Ë%ÝZ/d¬uÅ3lۘú¬ô‰¤YäŌ˜ +í +ëœè䜝SXÕwrù=û÷ +'’'´ÿ‘x1ùÓ«¦W¯&Y°ÊÂHá=Å + +½x/³—ð·M&Â{Š{KvÈq"² +Ï·}7!„YŸGû"l¨ð åAñ³êÇOZå¼=S(¬îÜÜygöÎÂ}Ž¯$t¾Æ¾¶e +ö(z†‰â.ÓäñùCè™Òꮜ +<ŠcA,Uòä`gàìl“ådÂn59Ó´2GñwP©œkG +jð}€A± +_ +,ó}cÜ»¿ï=ëÑ­cð%©1礓uNá.=J1 + +}iÎdcªäâø˜+ +Æ\V#HˏøŒ9Œ[„ +t/˜]÷&ÿ†ô†ë͌idÓ´"Cz`ÞÇìc÷Y²Oz'ƒ“¡ÉðƒmŸNì+Úè¼m4ÚvH·–åä +Ï&?[0ÀÇeuWF +Ô-™@ +ëb!%d9©oD¬—HWKÝ&Eå†C +$ô Õi¨'P±„QÙ`’»»^hÎ?$çrÊä'dòr½ ÊpÌYÝé$ÜuV²“߱à Î겝üŽŒ!EqÑòçÓ +Þþ‡yFeî³#þ¹OÆ•pu¶ѓé‹S¨0“ñÔ +W,Y¯Æ6ì{Ïܶöæ¸×oÇÃ_¸jñ†wÍþ¼Xüì{»Vuº$ÙÆ +˜}þã7{2ÙÒÒ«¿¸ãÁ¨ÄK?ô‘Ëꋯœì­oØö¿Ó¡Àw¿Ïÿ–é3=‡Bx¦•ÑeBÃ"46Ëj£›×ÍnÚtSFæny ÝÀù¨²ÏÂH™a +NŸÇáXs„“Íœ:Y>s¢ÉÃ^jÍl¸@Ÿ~#&ƒ®½µÉûxÚ=‚­Fä9êž³b«3„½7xðr¦?§P$¿m +a3UÌԘb¦\Ðì6ÌG +½RÊÿHãOÔöêvGÂShlecæÔÈÈ´tR:1Òò‘×:ŽìäúmõÍx3Ã4"º + +<ë}Ö7x-Àï‹à=A¼Ú¶Ú¾Ù¶Ùþ{ÅÌ)^%­°>¯²VžÐ~Ìz+Í«e+ +ƒ9[ +.Ú÷CïËTƺÆú>²Ná×õ‚J˜g© +9a"c“Éœô +ºñ„ÿº§Ý§Ü¯¸9÷hø«{ZªÁŒ1íh„~¼¾W3§Ï©‘]§1aŸˆJgFöiúÍ)êçíô&\T¦êî¤W +ⱺèw)^|±3_àJ'&•†rí¾¥èϚž›ý—%3_^Í\uuç櫙ëã¾–¥®¡?ša?4¦Ò„*_šÚ +¦XnU3M@S +R£M +ó´î¦Še +ÊÔû ·ÀMn颤qŽºbådKõt(gU + +)8¬ ª§ ¢òKyˆÈ3Døכ^XÃ9ÑêÉQx# +”D«jU +IÍOÎjœÒڔ‰EÃF½bjzĂTÄ +ŠÔ®" +BJ¥§r†W %ƒ†È-Ï+4(ìÉr:u±ÝŸ¬$jo„Õ4bƒ!Ĉ'¨uÔ :f«!Ë4Q—¦ð³G¥6<Ñf< +2 +ê£Nw5„5 剢{ŽæÈ Î(¯Âlå\ð +Ôãʙ¹ ØÒ ®»ÿ† +¬ÝŸ¹?;QzHú +֞–ŽkÇ3ϖž×žÏüTûiæT)†Ì&žóšüO[2\¶æ_(-t +š/ç×+—g÷X÷J÷+{{÷k÷§&Jþݖûü»S¬Ý2Œïîp™N·©i"æ VH~WTRñ¨Š² +(rŠŽ¨3ˆF‰Zßa!“&Ìt‡®+ZRxÁÂ'³O6›!Р¥+‚Å#"¼IQ󈢖H&+JÀ£(l* Ê:Á?‘¼‡§ñ뉢øõÃ1ìtÁ–„ +D6!\P’ˆ¯":1*!I•§ñHC~Dwftr±Édƪ¾å¼F$:ÕG¦Ñ5ÙD"{õPy0€÷ð3^&TïcÉ2AïÐ1Õ©a‰¼ôf®ö4–P +y †Ût±¼9 +õÔ|ë¿~IJ#]ž"h.qJTQOdη?ï'‡föóÔ :˜Åðõ)«fõìÁìtöT–ÏŽ礦3àQÏ̜&J϶&n“® é »•ÓA"JAi} +,H?OÛ"Vk¢·Ñ>cèYs™¸ y‰Ð"ÂÅ=s> Èd¤d ‰þÀFFÈЊ¤$Å‚ÀÝ@'"‘|®ò@uö¿®Aå¥[Ox/d1(G3AM +d!inãkÐ;ž løÄ·ªJÚׇ,‹z„SÏyÒu +ߐýAößf¯Íþ,ÒÓGè‰)Žf~‹ÿawŸß™@üRÂãù +~³KuÃWØí7¼õ+fùÌ1–YÞi§Ù½bÿP˜ +öwM™Ñ–•jÊTDäTeÈTtKLi +EÅ¨Ë 4岑h¦‰ûF ÝòbïµïuìuíNí®¾h}Ñÿ³ôÏ:-ÎRJÔ¬IÛ¸x›õÕ>Ü[rnì2•æ†Ôpõ¤™zµÒ»ÜºZZíZ]žZ™YQÕ{×Ökƒ½·ñ;­;¥®¾þOòû¤}®G•§SQ‡Ù)9]ÎBLŠ¹b +¬˜õ—{E©wec×`o+«O’\÷ö +Ü7r{—K©ª"šP î!ZŠDê¥Ro½EÐÊåff# hÓÆîé‹)‚›~Ÿ/]­ÖD«ÍÖIÄž¤ªµjgM“÷úÊ.쪱Ôg‹ì +Fq´¬mMìL0‰½ œh¥R½³ø»l6Ý9HžöŽ®™Í¼àùdMóÔjšÍ—NW:mžÎNyóŠÅæïLkkO9¥ˆ¬­Êלa +Ž‘7Q.Ák +Üå®\2q±FD1ŸÜêþ’6 + +‡Õ]µI5=p0ðJàlÀ +ÀO3]¨ñøºCµRšÐƒÃ¨w>Í<‡ê¨—Yu8~r‘xëÜH©ßvæ\ë3|#-n +“ %*oÒüGT±‘ÿBÞ ¬Èõ +eåuéô<ãÓôAËõ‘òé‘è¦t÷ë¤Å +RŸ£o·CêÛqâT'„<©Ò +IQÆGèòmÈHo%8%Ö­Àc©ûÁÊ@Ú¯AVx/(©–°«a×CM”r˜l(4ßÑ0ƒO“‡”]]ЂOê +#u6ㄳ=ê¬kª>d⑝õÈÅ`';ì´¬)Š‹ô¹à8È#BÂ!Ù¨\†È²×%ò\¤øu¹.Iκ‹”‚î +äó@|F%Ó=‚íã¬îöÖ»o=SñÔ³¤¸_ÝBOæ«gu)ÞzòË~øuRàð'\ÿ5kQ¾¥:ÿ¹ +ä¢ +” +µ +!Ýt~S~áÝF–#ÃŔ~Ûç»AÎ áÙxÂêë_±¬- +»Ú“íëvœ^»¬>;X +¸õû>¾¨Xœ}!JmœþÚÀeó a +û•©íúë¯z#„,)mãÎNmog“IÃï9qb“KI3ɤÙ¹ãü[7wCDÌìö +¡L +s¾S"æs,º3Ó¢1P;¯“‹6!!áQ†6hvÐfÇTK™ÈŸÉ¿N–FùäH‹d5)EԒG‹¹«w ™‡Ä]ðN§¡jçœÐóÒÈ ¢RÚ`˜èJ+Ö=ƒBçÿ€çÏ¢ !ô¢Ô +ûªfY8òŸÌ2îjÉ·¥ë +ó.Ž±X̲‚–¼'˜²$åd0•ïÁ]r-´T¾Þr½xCàÚàÕ¡ë +w +ÛÅí;‚·†î,ì÷>ƒ>cùtðSù§Ñ©ê¿q "“äó +\NÄTR€x_èhŠ÷)A +ƒ•œè! +ù<ìó9rH.h1‰BÔ"i‰¦ˆOÓ9ÈզˉzÄYõûƒB{Eü²xœ¥câoDVÜÑ°¬¶l¶°– +D±uè‘ü‹N;Õ}*£îÝ\ÀåB£ÀÕÇ l +BÆFÆW +ÙvzæÜ̼œi†Š­š97ÈÉ\þeá"Î +y“\s‰“þ;挷iÈÿ5QœÊâÜE9N@“íÆF&>þª·XŒ¿|ÒÅ +myœÓ2Š%0û@ׁËæ­ì®Äë1º4Ù?{ÌHþNÃéHzñlþS6#[¬v"¬+qGã­÷ìºQ!×és.ÞÇ +Ž•6Ɇ´½Ž]c¾ ùP}@Ï`ä0)~-Ë´ .kFo;êwéÖ£ÈÏ"¶L +·“æŁig9ÝêÝOPõ›NGÌ1á` +Ðg1õ +ð`O TžÂ· +Ž¯Ýh<ÝUgfàkv3#ÍÛXE„¥Ö7œ/¤¥"Ê;7'§ó¢xkí/wã%C+E‹Ý^³óºÞ¼‹ÙtnµÚ¬_vþªžKn¼Ï|S¶´e^ÂîpÎ/TߺnË?¤R½W,; +Ò¼|û²ñu7ü:¾õ0‹N dú"÷ +© „™ +›%zÔÈ Ï±×àߑgD«õˆ%@ Ò,Y<è¨]÷°aòp̽NÌ?1Ì8wX +„Âÿˆs(Ž~„ç_脏"_-¹õíj<â’õ¶ w·’üú:-hµ9¬rЕYËõ.¼ix +{My~-U‹9¼¥¯ØNm[{û» ëÅÂÙìô<ò£2z@Ÿÿ¹ÐçJ•§ÊϗYæîrÜæÿ c—ߤÂi„M萳)GszҊŽÊºÍÚÞ÷±³+NÙ"}Åû }ù¦©×éy'¼¬î˨´_ürá¦ÞxødÚiòß + h½ÓmpñÏæ¿ÒË5 +Ñj}>_®oU÷%7íÆWoX%Š6»Ïï"¯ºkÑÍ»fOäê#óɋ„¾|eÙø†¾–̯™—pØaA¾²ä6ò²ý›÷— +èë°`;îÅ×â}Ló8û1ÓûÍ¢ù÷a^dáKÄr/Y^0kÀöUûõöë +—9³RŠ,Ç\ï"Ëëî §Ûó-ï7¼ßðËÊÞ@opAhgäÆصêƒ-ÇÔcmG/jæÔ{2Wf÷ç_/Þ[z–òɎŽÎWká®tèùμlßÚù4æ÷¿gáӋƒÿ¿Z>¿øàâƒKð³<ðÎòÎòÎòÎòÎòÎòÎòÎòÎòÎòÎòÿÅBõ"¢ÞÒÚ)ʈ‚Dó¿ýc›µÕ†SrÉn×çWÁP8E*ّÔR(“Í¡B•+í +ˆh·=õÞy}ô°KТÅK–.[>°b%B«/»|ÍÚuë7 + +oÜtÅ_ûÅ£‡üï/ëÿ¹?aMò|Î~âüy²VaM¶MèÂhýYaV +ùs" ¹ŒÜä‰z‘há + +  +¡0Š (¡6H" +¥HAY”#uɺŒ*¨ +uÀ··Q +u¡nÔo¢«ö]ôk—²-FKÐR´ +-GhZI÷¬Fƒè2t9ZƒÖ¢uh=ڀ†Ð0ڈ6¡¿údÿêßQt +ûǓÈü7%¼}ó,:{þm +¼!®ŽÃ­Â Äÿ¦<ŽÖ’Rš+½‡ÔkHýQ¦ŽXòBH9KJ”5¤¨¤\EÊ)+I¹›”ËÈ؃¤|Šé +¤]\ÌßA’y=j#eŠé¢œé'ýË ßëd#( +ìËò2ö;ç_ +}d\r\‚ÔdÿÒo%Eæ?ŒB¤v’âþKńΟ +Â~-'õ[¤^B®u©W’ß\MÚóI±“kÌçêÈEúm¤,&Çý Ž!ãíäú¶ý +²Íâ"¿a'u¨9öòÿB!ïja«wðÜÿÇþªòç€;dÌ<µÙÙ÷{!` ÛÿgäPáÉ̛·Î|HB‚ƒlZZ¸ö¿! +‘Y +endstream +endobj +144 0 obj +<> +endobj +145 0 obj +<> +stream +xœ]‘Arà +E÷œ‚;رgo’MítÚ^c‘ñ"˜!΢·ï—œtÑ +4<Ðÿ Q.çKZ6]}”5|Ѧã’æB÷õQ鉮KRu£ç%lO’ +n>«êôæó÷O&Š;¿ûUŸM/;õ® ëL÷쟮¤œ1£‹qT”æGµÝS|–6(å0ØÁž1Œî0 àa +%ŒAVÎÖ£³F¬€-ð(Ø2ÂÆzÁV­\dÙªm€rVÀ8Jñn×Á¹“ÓŽ;h;²v€–£15;xÂ`ƒôüjŽÛç9¾Æ¦Ã£J› +[†ÉC\ýýG^3«4Bý-1}ê +endstream +endobj +146 0 obj +<> +endobj +147 0 obj +<> +endobj +148 0 obj +<>>> +stream +xœ½}{s$¹‘ßÿó)út>»ûfwîcØþÀÎL$ +?TUÏSgMÄ +D%2¯|!~³ö֎ɚÍÀÿðó×Ï~ù]Þ\=<{ólظÃÞÙÍëgüíö™ +ã°7¦+W˜Ûg×Ïþ´9PsCh +¤Å°y8?&¿wÁ+5X>½ùÍ)·0ª9}õ¬0a6yÜç4Ž—÷Ö~súúÙv³;ý_Ï\ +û” æôâÙÛÙ +„-˜qܞQqð1¹˜·WT6c´£ß^ru0Þ +~»1­~s×ʯ¨hó¸ÝxÙÙ0üÓ¯™?·1n?ffñŸÏ~“LÞÇ\øx¹;¨.ù¼=”"ýsÛG.T̖91{¬KÛûÕ"ÜJ1fo©[Œ‚X³=º›rGÅJ–9xhÅëV¼Ù¹ýà†œ¶?–ÊèSª°RÞìÌ~Gk·“Ú0xeË[Jßæ·?íÂ>Dos.#,CCüÈýZÊnðnû¯R´Ô¯À´ +·–± +ƒ +Ýv€QZulÅ_–ñ¾´(økÜ|Ü|ÓÚÿ¶õbÖÌ +†šÝ·ï2ôO0Z;^0ÎÙ½·c]¥7 +÷a9²Æ +›\€uƒœ¸dö.Ž›^ +nŒ +Ä)# ÅãÓ¸½¾„?6»Ê̙˜"mŽë{ýî†è¶Z6Y<Ã^Ü(ð}Y~úùêþ +¾Þ¥}t֘Â|¤©NVQ<ìæø¥üˆ +àÝÓ¢ŽæÓ$šš©Õ7\Œa4f†k½u<¡Síÿ~hÕíËò5Û`imM€å£ +†ø˝ߓxɑ +íýai`†¶õ‡ymŽJ“¤]ViýߋôHÎÆí]köԐ=Þ +fòHÅԃH/K¸•5”a‡†ë¢± ÓyÝ>"Bþê÷Á˜X6¹ÍcŠÌ¡,ʘûiQsÀqCe’0ŽDjÁ1Z3(k*Go + +?£½Ù õ©á~DB}ïO-›Û:?©<ž´ÍÃà +«²Íc¢m.m¤q‰×&UÓ>t"Êö9 ¡ì-◰Ÿ‘à‹>FOݔJ›Â„'Ó ½‰¦bg +·>eÙ'Bl·¿š“?k”JÅ+–¾&DÝõ¤G2”18#Ò¥‡S¦ü²ñôFÄÄH#éTê”òe#w€êÇ9ßi°iûn' +ÛÍ$¬B‡M;–Ræ £Á +ƒñ´eÄì`Fåö j€ÔÍ*U¨Øw¤E\Jã=cô9Q´•ÇD#L””å"^IEîJW?ĸ‹¥÷a yUÉCBיPºä|&9¶}ˆ +YüúÎ +3&Õ¤a°ÞNë% +" +Wh¼¿ +š?í2ËHZ +(üaކEŠ­h +0vé¢g"l#eW²-dü@Šó2™&ea¤ög¡æL¦Uõ—R¦¹ +eDfZ¿,ÒÇèM7)eL=}H°ku>úM{'ë|H\Uál.«ÀÇllY]1Žºo}p´-/¸hIfQ‰$RšˆÁŸ³1ú™¶o#t÷ ÊÕ'7Nè]jç +Žu¾ìÕRÔF9IJðIK§™z›1ÝÄIÏè]«”½ls }ºld€È +*ÓcîP5üÅ.L£qÛ·2Ý$7\(»†4J1Æ8ò>¾€zš8žm¯{L[¾™æ1„S™þÄƙ)CËçƒx^ÓB7–Ö.«îÖXÁĊ²•|`$²Ÿƒ£M`ê†.;øjpPìÍx½Ú­g} +Ú33ŒN Iq +:: +ì•AŽ4’Á!fí#°K´—'fdÞÇÉpÑM*u[úNv¤ +yþGÒ"±Ã&Ê:ç¾TÓ¶ì´ÈÙ G§ÁÅaPÑü +h†JŸ±4ź´Ì p#–“Í{Þö ‘# ‘Ÿ¡\ˆ¸Fç +ªA™¼]ªA¦¨Ã|è:óØÒõzC>€~;keš½¨Ê¹Y +‡léK +†@Ó(ȯD¾;WæQV'YfäÇ]´,ÎD +ì ExYÁ}S6ŒÉ uÃ|'8L +I‘Ÿ +䨄ZO&Vەˆ +¼fE?+5”Á!g +¤h(ûuÈ,óîoìÏyÁn½èKr,ۇÄRUz2bV°¸ì¬7¥oä©{¡¢iw¤:Ã¤Ü + +ÅÒ¶’lǐC}a#6HRvå(€þUÁ˜lY®nÐVÛ5@îH¯( ©áPÑÓª•}6ni˜ØØþϲ#¤ +[çǘ™Fü±hÒä’øͱz¥ +—ø+?ïyH†mùï)€]ß-ýªê·è}ïL¡w@/ +”†çðñZ-‰‹Õ1ax'“ÅÂ.J³ L Ç8ZyÔ#n 6RùöÚ·óÝdÿ@‹CÃv׊\«v;)jȬc¸mÿw‡&‘¿n(¡ÅÛ +XŽSmiñÈä×ð$ÌÁñM`‡¨Æ›¨q.†+ðNÃêiýŒžíÙÍ#I—ênf´¶( +9]tW4Vݲº™œ7a +I˜  r> 9ÝJ­V0“q¥.¥®}é"‡6Ü +@v4SËՑµä$ÐF¹ØMÛl¿Ä;ÉŒâÂÃ>RØCÃpÞð +ëv +Œ2FŒ{Y +zhd¤tÿN»PƵìB+_†÷¯[•m¼ +ϊ}š(aË¥ú +.»5pQÀŽ6Úhn +6=,8ò¼ÃÒ[ïn®Ò‹ ›ãd„‹m~¹°‚Ù¾‡Ú‹]@#ƒ6hç²Ü,VK‹u±­ÀAƒj‹½ +»Z‰©ÅKZ +tÖd‘³K +£aAt@ áã:í:RQö]çw`i¿¤£ÿwÚºw + +ã2‹dMTÀ3AÇíý‹%ñ +ã$nÄAEéyZ +“ +Ÿ.«ê¥çaDáñq½zmh@lF‰ æËÊGãüc›Ù#a;m^Ô£F¯*™ÎáZ’Æõ[T†"P¤º +£ +uò½4KÎǎ«fýÔ +lËø÷ãÔv+͉æ~·vªÿ +´jÑKÐ +Xæ•ZÕ¡>G•!¡\שׂ¢ªèzP«+4¸zªô”ó-èÌ +ª8€d5xÅ/ªrEW +8h!¼ºýX@ב@G[  °ô~E3_ +atC +.pг8CêIœ‚ÒÚ;Å’©.+–ÿ"§Îy¶è¥DZ7mÞÊJÑ '˜÷ +ýeÙùɐvŒø¾BRü$ixY[Ê$âÑ(´zF­üàǸ÷[€¹„Øî,úÛ/4åó¶ðØ .åDÒ ï£âtÉV[`äO +¨?B·Ê¨’YDS|hà+QûêˆM+Q" +¶Y 3Ô»ȊŽ +™¡U–^ÃP’üê:y ÈR'¾âޑø"YŒñ× +w’c]ûÛÅ(Ådڄ8ãûƒŽ‚ÏMëú¶mþ +Í% yh +ômDøhτÙÑC¾‚¡ÀaAºç + +ʺ¹õ„#®Ý"',ÍÏi˜ä% CˆjVV¼pHØÆÈ) +¼ÿù +2.p²q2BLj2[Š¦§/yÒôʘìïDεëĀ‚{ú«u +œÅ+Ë|º +2_±N$¬ +^Ό°4´”v +²·v +aUX°˜Ð¸€Ògëj¿‡nº¾ÌH¯ë!§§œK³v;’£üÐwڌaš+7¶XR2.ôq¯˜+ãÛïX͒JE +1hTµŒ™P«\0ÁÆɃ¶´‹S91—œ,[%-Á±¥Âq4––IÁ}&œÿ +ke`S;xi—[œ¹’ˆèù³räû»l`mwÍf¦<ÆèDZXX¿¬+Gؗwmä_‹ÜH™ƒúð%àS$9¦©·q +»ƒ*ädÅG¨ñ?nj +’\q®{PjUÑ^òً´­ HÕôäÒÖ]*+Ö¾Ñ44Z‘‘µ1³xº|¤4Ó*áÈr¦ê +­×f6[SÑÅ +ú½kh¨àz(,´ß'=;ÂG£}3•J +-ð¤"BË +\‰£ãÐ=:ÊëÂAÍæq¢ÍEۘ»ÑÔ2î½=½Ø +&ÇÀ#õ]ãtžtçu²Àméº"´üüoô ON#°±¬=? +)æî€ñõ››ÆÄ¡à!aŸôjIw%3·úÚT‡lŠ×3NiºvfIÂ%‰™ +;Pñ÷ÏNÿù‡íïå¼°!a†¬±õ@K§Y¸'ÓÌh’µß¾ØÁÂåµ=Ò +ñ¡ËçÀÛŠIæŠØ• +ñœæ³–Nʛ;WF +u̺Țªœ ++µ +ù§å‚L!fX9¸duÕ^mZoX_ègឲtžðÄøW§Ï¾ÕñÏÌ+'3„t̆¬3é÷kZ¹¢ÛH=Öüåę̤^†Fò‹RÙ­ û`;’¼&SI%-‘/æ]Ì£«òØEξ)EI;•áTÛRvH5¼6çð嬔‡`Շ#YêõmÕ&Óz1ʐ‚âєú†ó`6²™M¶¶.%ðH=àâXÀÎì¡e“4Ʋw6³,¬RÉ''Q`’fœ;ÊrPÇ©GI—+7Ž}:Ë>_œf=ç°6ššÚ#¯ )¢iYfzžâIÍj +tI¨?ÿÁ +Ì7/ÂÀÖð—,.¶Ë6$öH€•Å%†wÙ8÷²ùs©ÊR +û?»¦7ŸÏüμÙGÛq¦c^R‘U—íh· +¯fúŸët LÊ  úÄi8¢ŒQ¥×i6z©!ŒœÁÿn ÊÊW¨ñ_ODZæ2Ù¯“–„²¿yÕؘø¨ñ‰; +[01°<Ÿ0–+À`Ú+ƒGîœdÑWµu:³d#ÇL#_ñ©ZæceHêúB«d?³D„RPJäUp£6y$Íè+ASNj*9>S +yÎ|6“ +¨tî±áÕÒ“r§™¦¦ìª@´³6wuͱ̞±Ëã0-þqàÄ;l»A‹²ØjEGtÖìoö70YªÇÅÀ¥ õrè×»éôµ¬Ô’áÁ‘}_º +ѼBæÐlíã¦í¡£2;šh­>@FZ¿¦Y$ +™Æ¹¥é@þÓk +ÂAÚ¶Þ~ ]ej*„ª +PJ’PªŽóƒSáo²ÚI +ÅÔRéßP’·ªr˜>+n‰)=ìhVÉÐ0gaÈGÛøœH·É•¸ç|%îïa¢ä +q‘ÕÙ³"éLñ¢9dt”iõ:7%ÈÉ"Â3y¬Çã4×gçö&“QjÔ*-ußu÷ÄÙ9 Áôƒ× +œø¿¢ÈŒöÊ +Õ G +z(¾„. +֘q³l¾lç‡8;“¾ñb9‡jL¶ÇK‹¦¾‹•cü]?c•ž(p +\ãøIGÂËã˜R¾›5]9j™ +Õn!Æë"°#ë +'ãxlÇcÇ_<§ÂáÀ£<"éÑ´ÛC$®ˆV/õ +¼b¤FPã1–FË4;a–Ä¥)Zp` +Ýô9d†zžEqÖZ£nìX9oÅ#ÔÞÃù­ÎAFØ;èËìºÀj®C$ßd5r ‡mG:€êC_=l7¤·¶ÿU©QÑåCƒG,»n•ó`Eeô +­k$Ukó0šQoè~[¤³ø/Ò¥Á§q˜á€ÁãUw-z‘Ø=\‰^ü +¨,ÕF!¤)H$¦‰WÀO fcâŽÑrnïãsãÞ#Š_ +#æûœ +ò‡¢¨Ü@°Õ, +ò‡õ”ØŽ£©1OÇ4høÃÇ)гA àÄ·F–úÀ\@ù²À‹y!êšl^>í¾‡òàœ¹ Z;^&IüÛjX)¡Ã!k‹Íu[c—: +-ÐÒ>•@Kò +¹œZ~Ã^:ѳ%÷Þ8Ërîl7áek^É=ßµa› +^šœË™GjBuÿŹ}‰s­!†"0! á|ۗ4òR|ފ` .BØL|»áo +ÍÑÊ +&2™ +‘$ Ec¹W}›#×gP¯âiα„-<~3?<¬sà +_¢&åeêJ‰i¬x7tçŠÈԑlëcm!‘-9—#McQÜÿŽ&‘°úÅ.Rýà‚¢M3­ïˆŠÅƟab8“{ +ÈÀ?î¼Ëû1Æc +8N2@ö³¥}b=ÌVp‰óÕRÈÌcR(®›y¯âÜMÕ¼" +æK‹£¡‚9iÕWŒ +Ëg +>ðÙ¸d÷CÈ:jVò©’›2ÎhÈDçßÉz.©ÇÔ4xÛxGJs¼ñ½Óî;¦|L;nfÂ)‘³‘¢ÏµÑŠ;,ĎDŽe°ÍQ2˼#qº +e;¦\CC¬ +"É¡ƒÈj5U©öÊ÷À4^Dî³·taLÊ·¸o &é÷²ÀÊåÖ;¼žŠWRñ²ëÝ=Þj½{µÑr£öº»+ûâeyPH>mþºÝ9ÇÙHy¾·iÃV£áa¶ýž¬¬ö’ŽäÅ©9;·5Õ¾“ø´A¼”†) ÙûxŸ5žÆOÁ‹Á:ãêS¤¬!ç +Hó¦ùG¶‘é!ËQK]u±—kXÌö\†é”e±¼†ƒ‰ èº¼Å/Ï +Àí©·»é + +†Ò{5üŒÁSý2Y¿+o +,îüôïÞ5}é@n4õIÀ­ +E\[6žM¡2C~ŸQûƒ\lМÀɊå5£—õ.Zq’u{Ëa®Bê/3R¤Nã0½¨qlG”'³^¼”§cÊ_{p +³áŒ +ÞJ +a^õa‰vbê + +M”Wzždãøž³”•K«*Č +û;2ìüȾCiŠ¢/¶@ s!‘')¬BêHê1?hšýÈu:%·³)q´I¨åÌ¥Iӄq&{žµý„½ +%ÎBb¨*Äc{ے›ÔC¾Ÿ—ß~”k¶Þö¿ÍÚfvÒ ³¶¡µåÇyôëšµ +÷Ö5Gî³L<ì4IÙc®Š³ž­ӄßv–e›ždböyîeòCD}—Ï`‘¬—l?–Kr¨¼6·ÿý# +ªÏ`*r|éc™Š‰s©¯Ê3GVb_ÈTÊbÿ} +S9Ðî&´\¶œ8ÍíÙ±¹uâ%!Ç~¢R?ŠcoŠy + +Ír’Œ³%™—ÛãŒÑ´7n´ùK%<|ì|“%½7¹côûc㨁 /äÎG>ªþHîøÒv¿“9½„K¿Õ“ïا\uéQ˜E„ÙN7P^É*VŠ%̀§7!9 ÏÞi ÜóÎ$Ì?L5Äl¥•´Ãš[fºüú. ¬‘[dÿ÷™o +ã:‡¿;À£ +´dA +äõÌ)rÝ9=¢ØîqÐÌ)š0N¹€€“ÒY¹ˆ åõœnÌ;û¹°^RÃËÛ*d§ëYtÈi>¦ +uÈBÕD¸‹5<5‘K³âºÑÀƘQ 瘘‰C†« +³1±ÌÂĹd: +óoaQ,wBIoë3:?+06’RÞØ +«Yu<Ðξ{¢¹*žX¤pFŒ5cËðýDۙŠ+ÒÿÅqúüæOœŸoƒ|¶è̌¥¿îŽóäFrˆ?—©æÛðB +GV•™¾fŒ5bC²$”í`òq¸¡úvAˆŸ’ +‚ÿ!òÚÍóèÊÈMÃüÏÇ­ŽýûÏ< ò!¥ÿ|œ%Köéÿ– +ËYdéùq–žþé8OcüüU»> ++fòž]ŠŠ†¿Çt2Ù-õ=I,¡Ïš÷Ý÷Í&F#°_/¢V†¼ƒô +ΐ!÷%u<ýÃqž‚á™ø÷ç)Zrm§ã:Í$þ}ŠOäé} +QψOìà8|*–¼ûúl)œO‡¬·b¼Ú ÞHwS³Æ&Tbæú¦7åEHhô8ʋ·í +ÎY« +×#áqÈ·í +Fx­r"ᱼר¾•òz†¬د9á&Oæ +1YUò‡ãöâÝá +bÙÝ»±5_ï +ð÷,n!">¡¬ï› +ô»RhŒŸ_.Hò­ÀdÀo +ô~ +!÷åçÈìðå'¸¢Ö®\PÁË*×s‹~æŒ-.x–3‘V+gñÞãgÍèîû“U>ÏWSÏ«ùx5gáÞ4¿à£Ó}¿áv™êQFbuzÆߧ1ë9©\õ«’”Þ”wÁù1åo +–Ì/ã°= +ù1{’tuÝð±˜ÒC\°Ã)¸ +±¾<6Ö +ÌÈñuù즈ǔÂK ü:t:štŒQÊÿ}d²;ŠÏäÕü—•·à°õ±È¡Ñ +šM¤aÒ;mPžÅ¸T‚]ÄÙ\@©ô+-å=¹4XæèØ +‰q +Õ©Èn +}ßdÝ7E`ãb9žÞsB˯K½-/“Ô†÷EŒZR×oY}ip®ÊtíÉ +ŒYyœ·ÄN•­!c•ã£©O˜Mã—X¤$QÎ폪¦ +Ì ø®w-õˆP×»YD±Æ·6í-‰»]œË©þUÔìπ÷ +?°EæË??êvãc³é½ÃŽíü¸Àæ›;øã•ÜO +ÿПeX<'ðü¥ŽÐÐpÄVÜ#ºf +üÜüÉOÃIì&y + +7{kÆÙ¯'A–ÈòÝ´ØÿÔƱܑM³{ú÷O*fL +dý± +ýeŒ•§DL{ã†ø_œ¦KS›õì=ÍFÁÉ(„aû»–ûôâ;ø‘µ.=än£®|zóÔý”ÀÝϛ™u‹éUožÐ +/HÉýàWØî9 +åÛâg‘L嚲DK§÷¥g¯´”Û¦˜}ºr©S<ž"—kökaz<ÿd˜ý@ ++¿)ÐÊxQUÑýù²‰²ƒ÷Pñ +éz;¨=PƒYºõ×0ôƒxCøSËc*óâg0Vr™ +ݼNCýaGMøÅ1ÁDàŸ!±·®NþùÁj¹ý‘³£KA’òUÖ¤|?37-UºÑv+—Cu£Ÿ©.ãÛÊey+?–&¶ßhøÆF±GIVašÙ¶ +îÙ͋ïÞ.ÒÏàQÆÙoé€4€_»$´Mù•ËúÀõª )?/%G<ü“oqúñ*xõxz§qù«7|ßqóÝ¢Ÿ\­im’rw$ª‘wx\Éà˜¿ðf1>Š#žÊ +fít[„ÿ¥q¿iI§‹¾ÅÑs:=¬9_¡|1Ý>y± |;¶¿bÓ>ÎÎB] +â_”Sñ.6ÞSÆ÷OõÕQ¯¿Ò¯šƒùgwø2+>öºò*êtÙzeöþœ¢@âx½[L¯ƒë=n£1î¢ƒ¢Aêx{üØÝl|ƒvå·ùøVùÕ¼Cšò +&@Zû)g¬fµMW4°Z¾þižófØYtݳcçwÝLìä +­±ÉÉ$QÀ¢ù;(ßV°õQòÕÙS>û{YfDîçë3ÐòЮ⎞d®âž~}F›¾g²etW&[žÆý¹›àÃÇý”Þñí4¸5Ê?¾Å¹Oü„ÕàS¬“•WCãÖ +ÉDR¯þšMWyø™¼ù²˜Ô +¿ü ‹­æ¹D9ÔÄöüÃÐ8€‰ýùf9xtXf7hôjVy;¤ør§Ï°é\—cŒ!3èÂ@V?‹Åö@Y$“¥È‚9'ØãjtúÞ@ +èÚ¡Ë2{ Eé<_Œ1ú;JôÀÕ:-8DÏK˜N +¦–à_MP)å:Çx×¥¤ +ô­à%;¼Ç¢Vòti½Ýe/×UV®Æñř +ހӛ3‹È6xÿ +á3xe¦ÑE²?Cyå.»> ð|Ѳ¼¸¶º³ +ïƒîHJ^=IŸÇVܯܐw“öU±åØ@/uÉqޗ[y¬%N1äÞ¾m×Úê{ŠøAÿEîÜoÐF½†jY{S›;øPߊl(߸[y2Nn˜Öw·è¿šÞöþfWÏöÍ_Œ³Ìv;tëó¨÷®„þ ‰8³E— ¯¬ w—T ˆ¿þvw轫«rH1ùH3Tú›×Ÿ•Qâ>o +‘ +>tlKÞÃzvÖG_ò%/ÕÉ휢ǘœ¥#øo;~©‹ffZ¶-—‚Œ;ŸûìÂO ú)©5<úÝH +?,拊þGâ«Eñ3ý›úKá +¦Wª+ +„aô]t¦ +¦(¥åÛ¢¹ *VÐø΀Üà_}g@^ªâÿ^>ÖÑ +endstream +endobj +149 0 obj +<> +stream +xÚS(T0T0BCs#s3K= +K +ä\ +B=K°8Ò55Ñ32WÐ577Ò30Éê»å(¸ä+*r¸‹ +  +endstream +endobj +150 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +153 0 obj +<> +stream +5 scnrRGB XYZ ÒacspöÕÓ,desc´`wtptcprt( +A2B083ÊdescadhocXYZ öÕÓ,textnonemft2 +ÿÿÿÿÿÿ$²o/)îe¦ª´M§ +<멏{S]\ +$¼ ‘/¿ + +"<{^KOÁ[a`³„ÂËÏâAO¾ +geÓ +TK\¨Üu¼Ñ$Ô ñÁ/× +~Õ<”gK°u[z*,KN;þ™[t‘ñÔà˜ÑK +‡ÕÚ¦~¨†J% +»90 + +HN<Ç1‰KLz í[­‚«¢¦ºTñÚËpH,_î)Ë +ÞmT1ýþþ ÞÉ%] +¸0a  Í= +‰ + K£Ñ +m\zU!žeÓé„JhºÇ$ + m! u]e þ° õ +¨ +} +Ö +t%Ý + +c0à™ +x=œ‚³L"Ê\‚# +JÍG +Y’ +yö +¯sÍ +þ + Êj +ó\ +Ÿœ +)i&ˆµX1Bm>H+©LÎs +]. +¤© +°³[ +ûÓÒ +{ O +6X +õ +3ÄäxM8÷ +éÂ'd +²2i«Æ?$”Mª +Üf^ +Âz¸æ‰j1¨á°ß^m +. +j +™õ® +#G> +Ì +˜(tT‡3xá @3 +Ê!ØN¹!#<_Ð$ãþô$ò°?%'¿%H ¤z%— +Kw&;¼&ŒL'5 [,()º +a(ð4¾î*Az"Ø+@Oÿ& ,¤``Á/ò}å0000"§°0X +#k0§Ê +h1º +­1œ +=2E!Û! +3+9#S46>%à5Bú(É6QQ~,7´aß ¡<»8 Ä<Ëë!<ê +b!=! +Þ"J=p†#G=Ûu$Œ>eÈ& +?#–'ü?Ú,ô*1@Ê7ù,¾AßDµ/§CS;2ðD~c›(uKQ +2(™K` +ä(äK€ +[)dK¶Ø*L+ +Lpo,`Lú +Á-ñM£%/ÑNo.í2O^9ò4”PtF®7}Q¯U4:ÅSe”1K[ +l1o[Ò + +1º[ñ•2:\'2õ\w¹3ò\â¨57]kû6Ç^'É8§^á1':Ü_Ð<,=i`æHè@Rb!WnC›c +gÎm7‘G¶Üg-[ªìPW +?Xá“èŠ`ÉV$¿ þE/à +‹Z<s•K¼ù[eÍë +ñúÎ<E¼PÂwŸht + +X¸”«H=x) $× +^ø/Û +ë +<—ÔHK + +¬[}—cO»r’x†ÈõA›>ƒ +Šƒ +Þ¶«ó% + +(q0 +µ +<ÊŸÁKPç +%[°ïâ¥òX^ÎÝHK™—ò– +áÚŒ5j5 + +K%a +€ð0d +=!ö +@K¦> +¤\ç$ +œ×V¼NÕòÊ‘ A qŽ ­`Ò +6´ +b +à + +C +«%àx +›0ä +¯= ïëL%6P\† +Ð´ +‘‚ÿ +°ù +çv :6 + + +7¡ + +|*_ + +Ô +-ì¡&Œ"1¯¥>K˜àLÑàD]2 +úܬ + +ë^ +h +Õ +èAR +£ +ù + ûèå +;v. + Vú'h‹é2lþ?'9M­ +I^/±»SÀnžàå + +bÚ +f +× +Ñø +ZK« +Œ +Ï(wÁ¿3|N Ô@7 +6"N½!#t_ +=%a%)´¬%I+,% ¨ç%Ï +Nä&:>)&ѹ'm ^™(8)½ +Î)(4 [*y$ù>œË&‰?F#™(i@,ø*žA7ü-+BD¸0CRS>3]D¶cž(âKˆ +5)K— +ç)QK· +^)ÑKíÛ*ŒL=ƒ+‰L¨r,ÍM1 +Å.^MÛ%“0>N¦.ñ2tO–9õ5P«F²7êQçU7;2SKe˜1¸[ú +o1Ü\ +!2'\)˜2§\_3b\®½4_]¬5¤]£þ74^M'Í9_1+;I` S}ULØŹ]9 +ÞP³ +`f +M€Ý +͵Y +ˆ + +pïÊúC[£ +;o'op^2týs?/æ®M´ +. +^ +&Ã9 +5u„ +Uì +‹i¿ +Ú +¼ +F +ÏR +yqD(¦ 53ƒ +3!I@>" +NÄ"d#é_$"% F%ž»‘%¾2%ô ¯Ì&C +VÉ&¯F +'8˜ž'â e +~(­)Ä +³)4É!A*±A„$*+íP +'r-Q`j0Ÿˆ70®;‚0α +1 +. +½1TÕ +º1¿Å +ÿ2H 2ò!æ"p3½+D$¥4­6H'25ÂC*6ýQ‰-c8aaê!ò=hC"=wö"a=— +m"á=Í +é#œ> +‘$™>‡€%Þ?Ó'n?»#¡)N@‡,ÿ+ƒAw8.B‹DÀ0úCÇSE4BE*c¦)ÇKý +<)ëL + +ï*6L, +f*¶Lbâ+qL±Š,nM +y-²M¦ +Ì/CNP%š1$O.ø3YP +9ý5æQ F¹8ÏR\U?<SÀeŸ2\o +v2Á\~ +)3 +\ž 3Œ\Ô +4G]#Ä5D]Ž³6ˆ^ 8^Á'Ô9ù_12<.`}<6>»a’HóA¥bÎWxDíd1gÙ×sû‚ÉF¢@Åؽ€'d~’ +S +§RÅt +3‘$Ó +h€/Öõ•<“ÞÑK& 4[y7&/[5â¦UY%‹ÕáÚ|ÞF +k"Ï¿²xŒ +“D$ë +È3/ïUH<«?„K0† è[‘žb%®pÍŒð«S¯¨¾ +žìGò }ñ¿ +]½% + +’¬0"Á<Þ üKcQ +`[ÄY +¹}-kÈMâGƒ_Ò = +õ DÇH +Ôp + +µ <%uê ++0xx +@=4` +|Kº¨ +ß\Q È8u ×êÀ ÷a? +-Þû +} + ø +èt +< +qÇ +Ì + +•­ +æ%ôã +Ö0÷pê=³X'L9 ‹\š ú½ä + +Ì– +iì +é"Š +¤q +0 +¡Ü +ågsv +@WÜ&ŸŒË1¤à>_ +Lå +J]E +cÀ +‡&r +ÒFéR|f +Ë + + +7üPÀOàj + +À5'{õ%2€‚9?; +kuMÁ³ +Ù^!š +ìϽ +ü‚ +øˆ +QuC +¡ + +A + + + + +–_?,ö +(‹+ û3 +¸"@K ¡#KNÐ#é$¯_1§&UË&eÈ&„?–&» »Q' + +bN'uR’'þ¥ +#(¨ r +)t)Ñ 8*c4Ö"Æ+xA‘%¯,³P(÷.`w +˜1f” +¼1uG +1•¾ +‡1Ë +; +B2á?2 +Ñ „3$"3¸!ò#õ4„+P&*5s6U(·6ˆC+ 7ÃQ–.è9'aö#w>.P#›>= #æ>] +y$f>“ +ö%!>ã& +?NŒ'b?×ß(ó@‚#­*ÓAN- +-B=8/•CRDÌ2DSR5ÇEñc²+LLÄ +I+pLÓ +û+»Lò +r,;M(ï,öMx—-óMã†/7Nm +Ø0ÉO%¦2©Oâ/4ÞPÒ: 7kQçFÅ:TS"UK=œT†e«4"]5 +ƒ4F]D +54‘]d¬5]š*5Ì]êÐ6É^UÀ8 +^Þ 9_ˆ'à;~`T1>=³aD +§é +& +ù1 +«=Æ“JLKÛ®\¬ +5àö +Yï¨ +¤ +$Fœ +ß• +CÜ2 Š +±4 +R’ÿ&²Çï1¶T>q=?L÷ + +£]Wž:ÒÂI„ +iûŽŸxIï +FZŠãa +/ûX'Ž0H2’½\?M +¦ +˜MÓ!ï +ü^3Ô +áø +”C +? +à +u‡~ +Ä +.{/ +À¹qP c>0!/( +e" +3¢ò#3@]"Ü$nNã&$%Ò_Câ'y''ˆÚQ'¨QÑ'Þ ÎŒ(- +t‰(˜d +Í)"· +])Ë „ >*—)ã"t+†4è%,›A£'ê-×P)+2/:`‰ +Ó2‰§ +÷2˜YB2¸ÐÂ2î +M ~3=ó!{3©ä"¿426$O4Ü"&05§+b(e6—6g*ò7«C#-Û8çQ¨1$:Kb%²?Rb%Ö?a &!? +‹&¡?· +'\@¯(Y@rŸ)@üñ+-A¥#¿-Bq- +/CC`8"1ÑDuDÞ4ºE°Sd8GcÄ-‡Mç +[-«Mö + +-öN +„.vNL/1N›©0.O˜1sO +ê3P:%¹4äQ/7Qõ:9¦S +F×<TFU]?×U©e¾6]^Y +•6^h +G6Ì^‡¾7K^¾<8_ +ã9_xÒ:H` $;Ø`¬'ò=¹ax1Q?îbg$þ§-04 B<½ + +~KCe +á[¤uÓZ™â +äƒ d8 +‡§ + +ò +– +`|ê +ñ%·Ññ%à0” õ<Ö} +1K[Å +”[¼ @K c[@ ®z¶ +.°3 +éÚ +æk +É ++ô +»žêœ i%IÑ +Y0L^ +n= G +©KŽ +[ï +—Ëä +»Ú– +ú + + + 0Š +A  0 +> ê ‚ +ts + + +@ô +é%Ÿ) +Ø0£¶ +í=_Ÿ(Kå +ç\E + +uc +³ +„ +þ +¤Œ +~ +Ú 9 +* ¯6 +•Ÿ{ +ò +È +¿ì“&!„1"®™=Þ—ÔLd +ß8\Ä9k\zÁ§š8'еã +[àŠJ%žµ½ +k•‰&ÊÊx1ÏW>Š +@ÈM!‰,]p£ÄëÆӝó‘)‘Lx +7Iä&Žmz + +Gÿâ'¦ +3Ñ2« +Á +æ?f!ª +"Mì$ò +^LØ™úü¨¬GÈ#Æþ ‚ O +G º7Ã!C‰ +S!íW +4"¹(¶ j#¨3º"÷$½@u%à%øNû)''\_\æ)@ + )ò +T)1i +Ô)g æ +)· + +Œ*"}Ñ*«Ï!b+U #B,!)ü%w-5(.%A¼*í/`PA.50Å`¢!Ø4¿!û4"r"F4Bé"Æ4x +e#4Ç +$~52ü%Ã5¼O'S6e" +)371+{+h8 6€-õ95C<0ß:pQÀ4';Ôb!(¶@Üz(Ù@ë -)$A + +¤)¤AA + *_A‘È+\Aü·,¡B + + +.1C/#Ø0Cú-62GDê8;4ÕEþD÷7½G:S};HžcÝ0‹Op +t0¯O€ +&0úOŸ +1zOÕ25P&Á32P‘±4wQ +6QÄ%Ñ7çR//: +S:4<©T”Fð?’UÏUvBÛW3eÖ9a_â +­9„_ñ +`9Ï`×:O`HU; +`˜û<aê=LaŒ =>Üb6( +@¼c1jBòcñt Î +Ö¯ é%6ä +Ù09q +í<õY +)K{ +¡[Û + +D­ +@S_ +‹sÖ +©SÆøùà c +é í<˜ +– + y +b%h® +Q0l; +f=( +$¡K®l\t +× +Ò¶â +ò-b +(© + +w P +ã?` +l“ð + +`Ð +á%¿Ñ0Ã’å= +{"L Ć\emn‚}5ܝ¬[Ó(" ύ¾XèÁ +ßɍ&>þ|1B +‹‘=þsÌLƒ"¼0\äc.:rà +’WÈÔÀ +{½ƒj +½‘¶ +‹r&ê +§q1î4 +>ª" +ÁM/%f%]¼ +£Ë¼îë3n!°)q +W&ÜFje™û + +g +Û +Ú'Æ  +Ê2Ê"ž +ß?†%‡ N +(Ï!^l´!“Ø!¢Ì#!ÂC£!øÀ +^"G +f +["²W + #<© 0#åv"$±(Õ$F% 3Ú&Ó&µ@•)¼'ñO-)T_{Â*û`æ+ + 1+*‰ ²+` +!m+¯ +¬"j,œ#®,¤ï%>-M ¼'.*)T/5 +á0 +AÜ.Ê1ZPa22½`Á%´6 +ß%Ø6‘: &£6p + +'^6¿,([7+ +)Ÿ7´n+/8^"<-9)+›/E:6Ÿ1Ó;-C[4¼âJ–cý4hQj +“4ŒQy +F4×Q™ +½5WQÏ96R +á7R‰Ð8SS +#9ãS¼%ñ;ÄTˆ/O=ùUw:T@†VŒGCpWÈU•F·Y+eö==aÜ +Í=aaë +=¬b +ö>+bAt>çb?äbû +A)c + \B¹d.(+Dšdú1ŠFÏeé<I\fþIILEh9WÏOŒih0¶‡ˆÚ–;%¶²¥ì.` ;Õ] ¦ +Ä¡ +02 +Ùå +¥%DG +”0H +Ô +©=½äKŠ#I[ê :¡: IS + iÊ ŸGÀ îí½ +Y +Ý +ã0’ +Œýr +X%\§ +G0` +4\= + +—K¢#fü\á +²Ô +Á†P +áýÏ +zŠ +g ˆ +ÒÌ +[c\ + +0= +Ð%rÀ0“ +ÿÔ=O èKÕ$0u\58 +2*\ +Aݧ +aS' +—Ðâ +æ wßQf#Ûº´„ +‡”Q%æ +É@0éVU=¦"@L+%ˆô\Œ0Ý©Tì\Ÿ +ÓBOÚ‘ ö×ýå +†9¬0 + +Œû&e +Áë1j!Oÿ>%$8;Lª'€Ÿ] +ÚÑUþáI~È7û„† +¢ñ‘Å{ä +U$ +²6ð'!lß2#ùô>Ð&á +/MV*) +“]·C ++1g +:ã² +ZZ +1 +× +í +ß +~ +ê +Jm. +ÔÀ ¿ +} +Ž" I'í$Õ 92ñ'b!N?¬*K"‰N2-’#í^“x$@œ$óç$0j h$fç!#$¶ +" %!}#d%ªÐ$õ&T&Õ'(ü) +(4+—)#@¼.€*_OB1É+Ã_¢$‡-i‡$«-x9$ö-˜°%u-Î +-&1. + +Ó'..‰Ã(r/*/¼ ä+ã0ˆ*B.1x5G0¦2ŒB3Ž3ÈPˆ6Ö5,`è*x8y*œ8‰¸*ç8¨ /+f8ß +¬,"9.S-9™C.c:#•/ó:Ì"c1Õ;˜+Á4 +<‡6Æ6—=œC‚9>×R<Ç@§V+&@ˆVö/vB¾Wæ:zEKXúG7H3Z6U¼K{[šf +BdJ +ôB&dY +¦Bqdy +Bðd¯›C«dþBD©ej1Eíeó ƒG}f(RI^gh1±K“hX<´N ilIpQ j¨WöTQl +hVo +r·“ +iÞ +¡à] +×] +&  +’ +óZ +Gê +Ä + +ː%s 0w"Ž•=3%wÑK¸(¾4\Ï +%Ïó +4‚> +Tù¾ +Šuy +Ù +v +E +º +Î_ +Kx +, ++C%‹ `40"îH=K%ׄKÐ)è\1™ +ž½ +­µ +Ì,ˆ¨CR O@½> +G’ +ð +_ +õ½%¾!+¬0Â#¸Á=~&¡üL)é`\dñ +Y- +`M‚߃ÿ›Ò ¦˜=• +ÜÇè +lp +¶ M<&"ƒ+1%@=Ô'ù|LZ+@ß\»éÈØ +ØŠX÷Ø-~ +“} +% +è +Ôqg d +5"Fç&”${Ö1˜'ë>S)ñ&LÙ-9Š]: +’½„ +¶Ì6 +ì­ +"*<q +Ð 9ÜÀ!f# +à$ïÛ'?'$ +Ê2D)± +ß>ÿ,šM +/â ]å ý`! %!kE‰!ë{"¦Ê +¬#£ 7$è Àï&x!j +¼(X"5(*#%3 -$9?Û0%uNa3L&Ù^Á%2&ío%V&ü"%¡' +˜& 'R &Ü'¡ +¼'Ù( +¬) +(–ÿ*­)?Ì,Ž* +)+.Ã*ú401Q,@ë4:-JOp7.®_Ñ*?0Vµ*c0eh*®0 +ß+.0» +[+é1 +,æ1uò.+1ÿE/»2¨!1œ3t*q3Ñ4c5v6^5xB29G6³P¶<8a00;e40T;tç0 ;” ^1 ;Ê +Û1Û<2Ø<„q4 +=Ä5­=·"’7>ƒ+ð9Â?r6õ ¢7~H^ +7þH“ +–8¹Hã=9¶IN,:ûIØ +<‹J$M>kKM-«@ L<8°C.MQElFNŒSòI_OðdR>äVÄ +é?VÓ +›?SVó +?ÓW)@ŽWx7AŒWã&BÑXm +xDaY&FFAYâ/¥HvZÑ:©K[æGeMì]!UëQ5^ +fKGºg5 +#GÞgE +ÕH)gdLH©gšÊIdgêpJahU`K¦hÞ ²M6iˆ(€OjT1ßQLkC<ãSÙlXIŸVÂm“X%Z +n÷h + +)áî +Mð  +˜ +F” +Ó• ;Ð*!‹~"¥4 +K$†%ª&»ï0­)H=j,1?Kï/x£\P +‰” +­£¹ +øÃ0 +xù¬3I S 0´B!u>–#ç +c$æ³%Â'¢0Æ)¨·=‚,‘óL/ÙV\h +S +9 +w +ì +Â<cBrßý † û-u"@¶É#Ð` +–%°+%õ'å0ù*r/=µ-[kL:0¤Ï\›«ÏœB ¼¹ šò6!VA Ý"S¬Ì#—6%'ß +í'«&L)=š1O+ʯ> +.³êL‘1ûN\ñ!¤7!ÈFÁ"f8"“œµ#Në +\$KWK%àž'Š +l)U&Ë+5E1Ï- +Y>Š0¬ +•M3ô +ù]q$M +,»$q +;m$¼ +[ä%< +‘a%÷ +à +&ô +K÷(9 +ÕJ)É +~ ++©J'v-Þ :2{0k!O?63U"ŠM¼6#î^ +'·"†—'Ú"•I(%"µÀ(¥"ë=)`#: +ã*]#¥Ô+¢$/&-2$Ø +ó/%¤(R1H&“3W3Õ'¨@6¾(ãN˜:*G^ø+ì*[¦,*jY,[*ŠÏ,Ú*À L-–+ +ó.“+{ã/×,61h,® 3I-y)b5~.i4f8 +/}A":ô0ºO§>;2 +`0ú3Äì1 +3ÓŸ1i3ó1é4) +’2¤4y93¡4ä)4æ5m|6v6!J8V6â*¨:‹7Ò5­=8çBi@:"PíCJ;†aN6ë>Ôk7>ã +7Z? •7Ú?9 +8•?ˆ¸9’?ó¨:×@~ûGAó,'@|Bâ7,C +C÷CèEóE2RnI;F–bÎ=ÊK '=íK¬ Ù>8KÌ +P>¸L +Í?sLRt@pL½cA¶MF +¶CFMð$„E&N»-âG[O«8çIèPÀE£LÑQüT)PS`d‰EŸZ2 + EÃZB +ÒFZa +IFŽZ—ÆGIZçnHF[R]I‹[Û +¯K\ +&}Lû]P/ÜO0^@:àQ¾_UGœT§`‘V"Wïaõf‚Ntj¤ +ZN˜j³ +NãjÓƒOck P +kY§Q +kÄ—RalM êSñl÷(·UÑmÂ2Xn²=Z“oÆIÖ]|qX\`Ärgh¼$ñÙ.%èà%_W%ß>Ô&šŽ z'—ùj(Ü‚½*l, +Š,Lø%é.ç0í1ü=©3ø7L/7@›\%QŒF%tœø%À»o&?òì&úA “'ø¬‚)<5Õ*Ìß +£,­«&.âš11p¯=Á4XêLG7 N\§&y&?+&Š4¢' j'Ź Å(Â%µ*®+–W +Ö-w#&5/¬182:'=ô5#cLz8j +Æ\Ú'r„Ï'–“‚'á³ù(aéu) +9 + +*¤ ++^-_,î× +,.΢&‹1’13‘ +§>K6z +âLÑ9ÂF]1)k/O)Ž>)Ù^x*Y”õ+ã +›, +NŠ-V +ØÞ.æ + +«0Ç +M' +2ü<25‰ R>Ê8r!ŽMP;º"ñ]°, $ú,8 3­,ƒ S#- ‰ -¾ Ù +G.»!D6/ÿ!ÍŠ1"w +W3q#B'¶5¦$22º83%G?v; +&‚Mû>c'æ^\/}&}Ö/¡&‰/ì&¬ÿ0k&â|1('2 +#2%'3i('f4ù(Ð36Ú)œ(’9*‹3–;œ+ @R> +,ÛN×AÎ.?_83³.Sæ3×.b˜4".‚4¢.¸ Œ5]/ +26Z/s#7Ÿ/üu9/0§ B;1r)¡=D2a4¦?Ñ3vAaB»4²OçF6`G8Á7¼,8å7ËÞ907ëU9°8! +Ò:k8px;h8Üi<¬9e»><:!‰@ +:Ú*çBS;Ê5ìDà<ÞB¨GÉ>Q-K?~a>²BÌ«>ÖBÛ]?!Bû Ô? C1 +Q@\CøAZCìèBžDu:D.E# FEê,gHDFÚ7kJÑGîD'MºI*R­QJŽcE‘O• fEµO¤ +FOÄ +FOú +G;PJ´H8Pµ£I|Q? +õK +Qé$ÄLíR´."O"S£9&Q°T¸EãT™UôThWàWWdÉMf^* +_MŠ^9 +MÕ^Y +‰NT^O^Þ­P +_JœQR_Ó +ïRâ`~&½TÃaI0Vøb9; Y +cMGÜ\nd‰Va_µeífÂV +=6 +pL@~Ô\ð.ù‹Á/ +št/hºë/çðg0¤@ +1¡«ý2å4Q4uÞ + +6V +©&}8‹ +™1‚; +­>=>éLÂAI!N]#0P + +0t +Ê0À +:A1@ +p¾1û +¿ +e2ø +*T4= +´§5Í +] +t7­)&Ô9â 1ؓ?X"iMB¡#Í]y2Jµ—2mÄI2¸äÀ38 =3ó k +ä4ð ÖÓ65!_&7Å" +ó9¥"Ô'S;Ú#Ä2W>g$Ø?AQ&M˜D™'x]ø4ó$«C5$ºõ5b$Ùl5á%é6%_ +7š%Ê€8Þ&TÒ:n&ý +Ÿ„(¸3A)Í?¾Cû+NDGB,l^¤8\+8€+Ñ8Ë+3H9J+iÅ:+¸ +k;,#\;3 +{?83úk@|4ƒ½B5- ‹Cî5ø)êF#6è4îH°7ýAªK™98P/Ná:œ`A •!ÒHü?`+0K1@Q65M¾AeBñP§B¡QuSïDaÖG‘GSóGµGb¦HG‚ + +HG¸ +™I;H@J8Hr0K|HüƒM +I¥#QNíJq,¯Q#K`7´S°LuDpV™M°RöYàOcVNoT + ®N“T+ +aNÞTK +ØO]TUPTÑüQU<ëR[UÅ +>SëVo% +UÌW:.jXX*9oZŽY>F+]wZzT±`¾[ÞeVEb± +¨VibÀ +ZV´bà +ÑW3cNWïcfõXìcÑåZ0dZ7[Àe']¡eÐ0c_Öf¿;hbdgÔH$eMiVªh”jsg +_s# +â_>s2”_‰sR +`sˆ‰`Äs×/aÂtCctÌ!rd–uv)?fwvA2žh¬w1=¢k9xEJ^n"yXäqjzåiD7Ï +zÈ7ó +‰z8> +©ñ8¾ +ßn9y +. +:v +™;» +#W=K +Ì +$?+˜&ƒAa ˆ1ˆCî!>CF×"ÙLÉJ$<])8/ +-à8S +<’8ž +\ 9 + +’†9Ù +á +-:Ö +M +< +Öo=«€ +=?‹ L&œAÁ!<1 DN"P>[G7#ŒLáJ$ð]B8ú +¥9 + +µÅ9i +Ô<9è +¹:¤Z +`;¡ÅO<å P¢>u ù +p@V!Å&ÏBŒ"´1ÓE#É>ŽH%MKI&h]u:Q!&j:u!5 +:À!U“;@!‹;û!Ú +¶<ø"E¥><"Ïù?Í#x +ÆA®$D'%Cã%32*Fp&H>åIY'„MkL¡(ç]Ëð%ð%@5&yxAÆ'# +EC¦'ï'¤EÛ(Þ2©Hh)ó?dKQ+.MêN™,’^J>ó)Å”?)ÔG?b)ô¾?á**:@*y +áA›*äÑBß+n$Do, +ñFP,ã(PH +-Ò3UK.ç@Mú0#N•QC1‡^öB]0pB0.#BÌ0NšCK0„ D0Ó +½E1?­FH1ÈGØ2rÍI¹3=),Kî4,41N{5A@ìQe6}OqT¬7á_ÒF’7õ€F¶82G8#©G8Z +&H<8© +ÌI99½J}9L:G ÝMî;*RPXâ?¶`áK A^ÆKÄAmxLAïLŽAà +lMJBNGB}O‹CUQ +C°"#RýD|+U2Ek6†W¿F€CBZ§G»QÇ]ïIb'Q’LmEQ¶L|øRLœ +nR€LÒ +ëS> +endobj +156 0 obj +<> +endobj +157 0 obj +<> +endobj +158 0 obj +<> +stream +xœ¬| |SǙøÌ{O—eIOò¡ÓÒÓiÙ²%ù?c›ì€›âbaËG0–-ۀI(¤98r@ÓÜmiJB]„ +ˆ!i¡i’mŽnHl’v²KÒ¤-mÚÒ´i°ýÿfžlL’ívÿÕcf¾¹g¾{æ=ƒ0BHƒv"56¬ +#ú;ž„huû¦h¿”?ö#„ðû훇„?¼}ü!ŋý]›~øXŒ üBò¢®Þ‘N©}Åe„ºF»cю׾”óU„Æî€Âòn(0üÁð1BÚ7!ïéÞ4´Uj?ª„ñ;zãíQ)ÿm˜_“½)ºµ_ƒùö0 +ú¢›b¨lTÎ†í¥þøàÔ~¬—Ô÷'býæÞk |m2dw!$[Š +lì=ȊÐÔ».@ø`rÉÔeÙF䞼~ê<›½¿› +yÑ}èò pzEKÐc¨5¢{еè5t +iÑ~qȍjÑaäÅÄ  +ȈeèAôZ‡è=t +ùQ=ú6À8u¨e£Èԇ×£ÝS§ UªAÿ‚Nã^¼ +^Äà̼oê,2"ÿԏ§Þ„Ü·Ð{Ø3u +-è}¤G¹hú2 ëÑËS# +´=ŽoÄ"'jC·s¥ÜÞ©h +:~ŽëZ†FdoªN ^èõ(6â³SïLý}ŸÃ(#}톏¢³L­‘ +Dò¡kÐr +ÚÐ[8±âTîԂ©¡ôqô'&À¼È*` +´­Gw¢Go  +è/XËð·ðx^Ç¿—êÖ£a´ +øê[€½ÇÑQt +á"ÆÈ[F”‡VAÝ>tæCçp=nÁgñØC²ðdÕTæTÖÔ¯§¦P>j† +@?€9.á0´X;ÄÙ¹!YñÄM°ÃôMt½ëøàý/èo8žw™¯0;¦ÖL +žzÖ¢D4]‡Ö¢8ڌ¶ oUŸCÏ£?âO´|{A¶MöÑÔ݀[Zko€Ö+aìہJ£h +ž7`—z,À.æâåxîÂûð}x +¿ +ßb䌓`~Ã&ÙWØ_rå2ÙTŒ”ì0¯­AÝ@¯¶ï†ý +F/ —pöáBØÑÐÿcf +S +Ï£Ìk̯Ø[Ù}ÜeÙm“ç';ùéÔ^¤.»ð0Œž,ügÃòðõxÿ¬|?ó«eyÖ͖±ÕlÛÂîfïaÄþ—àŽpoËË¢²#ŠèdßäëSõS·.0’úrQ*Es€:›6ÂúúáI ÑMh/º +øånt +}ŸA/¡Ÿ£ÿ@¿ + ì„5÷À움ënÅwÁó >Š€_À/áwñÇäa\ðø™r¦Š©a2]Ì­ðÜÜcÞ`>`ml;»ƒÝ ÏÃìIö-q +7%+†g‘ìvÙãòW~Å"Å嫗/NäO´LüjMZ&¿4yßä&=µzjÖïE +(+Ý«|xð ÏÓø4Ä~îkøi&ÎÖ0r2‰ì§\w³ +t,ó拓َÏ2/°7³7O}UÈ +ÆïÈ +f^GwžÉ@ï€Tïbî‡NÿÆô0·£f®Tö)ê¼?!Û +øžÏìÆùìϸ‡Ñ{¬›ù3þßZãÇx ça¾ÌDðи؎.âԏïE"~ÿ +GfÇK™t V’Ñà9`„~Ì:ñÏØ4ÔBֈ}Lnd>bV±ÏÊϱeƒ–ø چY +ޙþM¢>€{˜\Ðiu M~Š‹‘ ÝúþÒä³DcËޔÝ|ö[€V 0je^A ïÁӌnCÅè4ðànf +@7NíÄ + ÷—þdÐ8¾ + +°´¥Ö¶ìE6ã]¸ +fýèÿ—Aë×ãߣ-XÉ:‹ü +©¹ƒ«ÍÔú÷vx:P+侉ý5`#Bœ0ù0pù/їÁæüÌoA•°¾µè®V-€f +€ +ߜ\„DxnC¯`m‡5Ï9oäæ½oêzØaب¥`_B=S÷£ ÝŠ©›§nGë§ +™Z‡ºÐʩà7O¢r´KÖ¬–¸Rб/áçÁ +ýßz{zô‘›Ðoà;æ˞A{¹ÝY5uÇÔÏQàÃÚVôڄ~x[ĞE%“Ë™ãS +Ù~°Pï ë¦ +Ÿrà4Ô=Õ +š÷YtH!ݳÙe‡€w‘¸`U“X5ÿšÊy‘¹sÊËJKŠ‹Â¡`aA ?ϟëózÜ.§à°çج³É˜™aÐó:­&]¦R*ä2Že0*¨s/l’¾¶$çs/ZTHòî(Dg´%(Zxu›¤ÐF› W·¡eçgZŠRKq¦%æ +JTYX Ô¹ +äkÝÂ8^{]3ÀwÖº[„äE +/£ð~ +kv:¡ƒPgê®’¸M¨K.Üܽ·®­†;®N«q×ÄÒ + +Ðñ45€j€’Fwÿqlœ)Àë*Ž3H©E%-îÚº¤Ù]KVd½uюdãuÍuµV§³¥° ‰kÚÝ’Ƚ © +Ð&¨†N“”×$t¡‡ìÝ. +/8»÷Žq +mh +¤w¸;¢ëš“l´ +Ì¡À¼µI㶠+¦+YÜPÓ¼kv­•Ý[gêHvïÞ]Bòàuͳk$ni1’ŒwaÛÞ +0ñ +€Âú•ÌÅÜÚҜķ„Ùٓ´»˜»Ž”´]/$Uîîî½×·a,{“hňsÔbOMG–:aoS³Û™¬²º[¢µ¶ã™h1³(˜¯®),8Îë%´ +×êR@ºf6›©£mN ú3xÅdEîÅÀI¡]€•4»aOsI›‹ö¶Ï +fðkÁÐ+ÙôèIªjÚöòPΓþI™—w +{ÿ‚€þ»º$š*‘{ù¿ .™a4¨Ÿ†“@2?Ÿ0ˆ¢( +kœOóe +›Ç™¤»Ÿ ô¡FÀm´¥"Èw: yoÑÈ$w^×,å´Á:ŠÄP %É´‘š³Ó5Y«HÍÎ隙îmnàã§9_d%•¾™:>;£®»"‰³ÿAuLª¯_鮿nm³P··- +Ûú¦«rRýܙº„¥ +@x’󦻁õV¬m&ðOæ]è®ëi[¢kLfÔ4³V¦E‚+K‡þ]732É4§“±8¯œòǸB +LK°°0É·-’â–4§óŸì4>õéE“+ÝR{JV®ÎÏ»*ÕòÒ÷²°`ÎÇÔ7­Ý»7íªº + ¬öî]èîmÛ +ŸÚ¹Á-ðØf¶yo]Û4ùǧNßnM.¼£6э+€µ´à¸ï¾î¸ˆw¯\Û|Š‡#Öî¦æQ35m +ZŽ{ ®ù”ú™–2¤”’Œ@2`ß@*F%mo=%"´“Ör´€æÛÇ1¢eÊé2ŒÚÇ©ŒŸ.c Œ“ÊDZF~DSÔ45Ïæ*X- +Ô€ªs²­áѧC“>ž–\õk!%ò½èO`A7ƒŸÍ +Îb«Á¿yY—çaÚ\Ë® +˜Mù +(cð 'S0ƒ´Œ2³(ßHÁܬ62dbL)XŽ\Ì¢¬@oδQ"óq +V¡ÛTöœ&[­úN +V£„öï)8 +uêzS°Fþs} +Ö¢uºŸÌìuLÁéøï¦`)ôÅ)˜E½9s³ÚÈPº¾"ˑ^¿"+PïL%ÊÐ?‘‚U¨&ó{)89’5o5Š¤àtTb¼‚5ìZ}{ +Ö¢ É+Á +Ázº©ŽÂ2BÓ* +ËiyŒÂ”R¦ ++)| +U)I°D# –h$Á$˜›ÕF¢‘K4’`‰F,ÑH‚%I°D# –h$Á$X¢‘K4"pÚ¬ýªé^¾FáôYåZ +?BažìÅtœÂLg(œ9«} +G‚³g•›iß×)l¥m¤1sfµq̂=´ý;ΧðE +RøS+g­_9k®ôYåé³ö¢#üÓiV¡&4çÍøÞQÔ©€ž€Ð'e/ƒsz„¡T+|å8œNûi + +ò +ÚB€’^訖–Gÿ?G +ͬL6eÃ3m©wݗš¯Eà ÃYT‚Šii5ôè +tôé‚5 +Ñ^+`¼A Ð31ðꛠv-ÐrH·Ð6q(‹ÂøÿB×OV×u¤,'tê;ÿ?v&@i +ÖÔ³ѵ•'m†R£®‚] +¨‘ö'÷Ad¾e7Àܝt‡d +¤_ +F +¤kïNüܚ*þ‡J˜é +÷Ò]V€ö%c +ά½F +Ã#ÐsUì#5ƒCp–¹2¾4ú•±a'Ë ~9¬½ è¶B +ЇÀ +PJö´⥴¼JVBL(x-ŒRGOƒ¤´ ià´FÁ|ÝÉÐç¸wº\Âb?]e?Ý +i;M»ÏÓLâ¶8à€Ð¬úÌÂqOŠ†)¦Á£µ#Ð~xfÎvz§u +žÃ´/É_YDïM´½´"'½Ÿ1ÊÙ1ZÖEG‰QŒöA/Bï–ÔlÝP¿™¶‹Ã:ˆ¤Αæ +ú˜™¦ÕJá圞ÔÊÈ; GÊÛ¡¬—boÓâ+žÚÁXlÖ([Rc~Ñ| +)žO@ºÊ³´ê +)Êô¥Fþ" +åÒ]])ÂmÁ/àŠÏÏ,•\o†˜è’(ÌڛÂö +m违;H屏¶¤#|Ž®–f‚ +iÖA:N;”vÒ +ü34R¼ØG5Hä®ÌK4RÅ´$ŸQªë³t]ÁLëÄ,¾•ö7ô?bª—JsÏ + +¤\o +¥ÿFJÍÙ®3ÅWZÆ¡­¤û†)ÆÉøÝ3û‘Ö5›»‰Î Ü á_’ªþLségyèíè +,¦{ÿ<å†ÉøP +£cO劣¦í”ª}Ÿ¡Aâ3ø¾22Ù_œjҎ”®ß +í$;­þêO'É$‘ÕÍ)j\‘±éñ>OG [Ò†¨úB9ž¦Xô3¸îü_­ö +–??C{ÊÂlHåf¯HÚ᠊™ˆå#÷g +ÔÖÌ¥·ãyÏû>JÃPB,ñüV¡úTË0ÔAMi +žkíUŽÊÀ+ ŒN¨5+«#ø"OöñY‰o§šï¿³ª¥Ò¹e†/$ËܓҶdM+é>%½1’Â~‚ò)•HèjÚ~(Eƒ¥”z +3 +@ü™ðg®h¶Ä,?äŠû¼®ï¤º|Ž¥ob)θâiL>Ÿögf{ +,¥ëíHIEåe¢Ñ¢)ËZ0‹¶Ðµ¶Sîì¡óo¡V û¤#Y+"õďJI£$½DK.“¤±oÆm R§+û¬­˜æSI+¹¤š$žÂµb†hïN*›ÂU +š ø¹â_Jk›ÆH<%é=3š¶ã*ÚÒ¹c)É۔ò¯öþ1/ä¦0tÅOë É6þc>‘|ÄÏÓo6†% +õ¥VÚ7S– Z¦‹ÒK’ÓÚJ%³RksÊ*H¶MÂÑæY¾Õ4V%.ÚL=õÍ32ÑI5ålï žò¡%žûb+ÿÏɘ´»”s$¾ŽÏ¬_â˞ý4ø9ŒK<×1£‘:(Lk¤aºwiÎF:V?õ†©žœö +©·ƒ7I€ 4~' gö'-VÔƒö(îê&b[‡€ìÀ9°ÉQ³›©¶"KmŽ÷n&”è +NHêdƒ`n–ÈÅ`ºÑAÀuœŒ¸ì!ü48½pÀ\a¤ŽaÊHägc,ÑŽRUØØK幀 ž y‘–8ˆÁàА¶½;š L£ +õ´ + n”>юhJ’»È>b[Ûc½½dý`46ôôö€n÷÷NËIW<¦Öß4«^ÓÓBJ|²! +ß8H´)ÚÝuPâŠD +LQ,q‰C;âíÃÒIãhï`œ6eÐß•´{´tùPÙkð¿‚P÷ЦÞЦ!òMfhÓàú!B:àDZ?ARùOvÜë%œø?w!¹PJðik´œº`›¨SÖG/.à؂5à:\ù©ã1]?}ê1ìCìqö{ì§ØÓìÑYcE©2—Ž +»j®ØU£Ññ8;WÄÕs×r×@ +¡Qn¦. äütã$~„EÔ¬†ö zH#c,N]V“£qmIn)ä®·wú@G.¾7TK/f®M]ä/¸Ž®µž + +¤K{é0F.îWP|uB§QÓÔYöݱººbq +Ò@¦£þ¼âS¤bÔb+þ +û.sC(xg4ÛJk~5º`A +(Ÿ+cù +ÅïT§±¿B€À°¿bßA~©×˜?XüQµ +0û¤Ã9ÐAö?PƒDöí1¯øÀöU¨™} 6Hº½4ªÑÀÿÊ> +ÈÁždO¤jNŒiõŨz½atâsÎCø‡âìãh„}ŽAàb„„R +aÀ:‘ ‡ Ä!ìƒÀ¡&öI(ßHbö0{=rAß;Ø{P¤·³_§éw µ@úm(·CúäIz •ÿ¤¤þ¡TùƒÏ†ôTz?”[!½~‚ì`ïMå7³Ã´ßP*=ÈŽÚ +|µ +êa,@÷t î +òzbÌÞÌöҙŽCZ +é&)tmuº)¶ÍÅ¥ÛõÛsÛsÛU7N·¹QjSÈÞmn„67B›+avæ$/À!æ!XÀû à”'!> +á +-¿âý’ +»ð˜«ÚÃ^?êw“uEÄâªgØN@µÈvŽ™sŠ÷]É©Ò#BªM¥:Ò6FkccªtR³äH)´ÚX­eÛÑ +” ±B)„Z +Û>ê 9N³ËÑ&%µŽ +Ìv·CÆ +k±á +[Œ•XÒÀ¢JhçX_‰ç´©úU;U,¯Ta•¨jTÉâìvË:Ø[Å6°ëYÙøÔÙQEE $âµòŠ’ýêƒê¤ú¬úœZ–”Ÿ•Ÿ“Ÿ—$— ò°\”7ÊÛäýòòýòƒrÕ~ù~Ó¦îWïT³¼ZP‡Õ¢ºQ-s(ðÁê[Ù +ä8Ä<„~û!p€ãõP.°_†° +¨± +Pñe(G#ÈñÎ| +RätÐNítPªƒR +”"ˆIM#„6ý©ZùLÍtÒþ#R!jµPJ^9Ÿ‡ø#AX9 +ä4Ó@«sÌeX!±¡KËÎC®xº.œªoƒ §õÑ6Óu"éË\£¹góp2ÌÃûó°XYU],º 2 +ëÝë½ëýëqqwÜ÷Çq +îoƒ¿áWå®òVù«q!wÈò‡q·Ãëð;qû– +[zfékK¹õKãKw,eçéÆFábšº¼$=1j¶ÏÑUÏcŽÁvÖC|Â;Xä€8¡ +B +Ç +ƒØÁ|J¿ +¥ßE +ÖCAòE„bGªŽ” u"õÌUõ,lüèhEICõP¹ë! +€ÀÂØG¡þ(m-AÇhyâó´¼!Õþ -w@<݇·–ª¹µ ~kQ„õú!ÈÐkìôb„~Ç pìZxÖ°k˜ïÂs”9ʈš¢,ÊÎÃaÐ+ùjžI +ÐàÃ4~€Æ{h\Ec¨]¢ùx‰æûK4·-ÑäÀøÁÐið=4vŠêjÍS՚†jM^µF3"'Ò0Y4–“ÿ–ÆËi\ f:5Ÿ85vjþèÔ|Ë©pj®q’~6] +“Ic5‰ñ}4^BcŸ¨vh^thÖ84s +šj +~Ãìhí4¶’ÿé)]­©žÁ›ªaðhežcœA4ÁS£•ÕLŽV^ +ÉÄhåÐü}´òëŽgñ'˜š4üñ¨ç‚£: +_‹9’ÿs*ý#^ŒŽ@ú¤]>†*±ÒïŒVÞDÚ? +ý‚ü·‘KIÚ?‚i¿x1-ÿVªß7G +6À¬ß-YBtÖûG +.@é×G +ö@r÷hA/$ûF½d×Væ;ªõ¸ +yÒ¶ +y²’¥©ÁȽ^+u®- ½jÉã¸fÔ]I.Yå³ØétŽQ7ÝdrÓ!lÈMmE^šj±Ž.^ƒ\4UŽºo‚QäOy/8þZù +Ù8ú +֍>ìø¯ga«!ûŸxñèÇ맺F +¯ŒcïIÇ¿¹Ÿq¼àÇ«G +g +ƕPq¦`œÁ' +ÇÉIhËà“Žc]Žïºií!7Ô©T:¾á^ëxÐ +ùQÇMϒe M°ãÕPÝR0ß±´òˆc¡w +CµX “‰iŽ +wâ¹ãxñØG‘gœ,% +c +9éȇ}nº”UsN3eH‡ÅŐbƒbµâ:Å®D +ZjÖIé£Nyh³:[dóýó©pÌsš¾b=Í!0[ê@K2ݽ ©@ª +« +«IH'©Ò’OàSU¦¯ÌsZOãé* +Šõî(€Lu=µ3ÿ‡H +@<4l¢eC ´Î•õÉ +äƒÝÊde]Rl«mÁ„ +é_M³ÈŸ©|­’‰Wî¨ÜWy òX¥lx¸Š +g\¯¹˜õ®¸k‡kŸë€ë˜KN*Ö5Ÿ+¸þàb‡›ðüêjéœÃÂ?’ + +$? +B¦ + +jš«]¨ +¼] +žy!ʀà†Pa%ú!Ä? +ð_þ +C7CüuB#%l![Xgê©%3¶ˆÒ1±Åcá²â¹ãF;¥tåZ)­[.¥•ÕÅ&HG«JÒªu,ùÚô4Ä/CxÂo ü +‚Œ-f‹éàÃ׶ +¢Á†å#È +‘h00„`‚î¡Á@‘@ +(Møj¾Gx҃ 4¢¥ƒ¤Û0I¯4 +lCHf#Þ2R eÇü +ó}pS̙Q$ãƙï?Å¢4N`dVÊeg žA,ÎC*¼™üǕ•ËùK•Ë&*QÀüeˆŠÂN½Sï +Û8tY`Ï^eèS$pg_cÙ~Ù]pDÿxgVÓ­º/•ŸÒž±Œ-|zÅk–.ü•åg +•sdó´su–y¾²9å +KV(3sx_™Y¹ ³¦ÀZPwõšºåÖåuë­ëëFLƒ¶Áš‘E»M·Ùn­Ù³èÓ}¶{k +Xô¤é1Û¡š#‹_ö½·”[zëÊ뷑m·Vò—&.¢ªK—&*/`½ÁÑ"‘T: + +Q+ +h +`_®¯¬´¼¤8;+S®(ŸS> +ÊÙÆl¹]Ð$2¦­ËçzR™9ä!MRãdãßs&W‘Ç,“Ï)¨]àr.¸eYIiýH}¡Ý¾x~Þ5L–'lõÚ³‚é²y‹½›+œ—gm›?¯¼þ†œÂB»sI—YW»Á +3>Rë.nð:¼9úl«6{A®½ qQ R³9àŸ““ +ï*)Î +¯Èæƒ6ó +Cz¦ÆlÕY²œ!kaþbÔû&€sü#dD+ÅܦÅø|6«2¶™Ï™YF +ŽÓ) +è¤ALWsº,GÖÎ,6k +烳¢[¯ctfÓ7¿c +/µ.›h´^¼`ˆ` +P˜QV^^Všës»¦"!°¯k@¥P¨½†Ì¢Šúò]û&¸ö5fhT™ªŠ’¢ +ƒë»Ž“Õ}mꎣçDåjVT‰e*±ªl½ +P +S1ª[Ó%â$²‚¢°·8E˜£X + +VW?Gã`H$ߒ/™ú€}Z֍xäA§G£J|ÀQ™,‹$e +ëDƒÊ‚|¢}m¾ƒ¾ó>Χ'ÅÚõ(Žv }è h"³÷4¶ƒã™ÂÀÅå|ëÀÇËÈ"È2jFÄ¥Øãö¸<ŒœÁ,fä +¯Íšcµ[Yy†OçUûLf£™‘;9ýä[6àL-@Ùéy°°[•ø¬ +Ȝµ$ʧ!?ÿ¦ŒRà +À¨1[ŸÉPö›Ã³KŠçô¥„çڙ%w +­mûæßØýÓ +ÏÝ´éùºÈ@ù=öDò*jË•2€VTxaòØï&OÞûÞþ:ùÁñ{£‰£8òÁ7ÃÎkVN~(Q +ç`̎»Å¯*LêˆÑd»¦Ô$Bd&‘͝§¨T,V<¡‹Â—¸µÊ/ך6*‡ôC†oª¿¥}PT}Tû’ì%ãLoß2>á>1f¯Î™eÖ,s¶Ù˜cR¨Œj“:§Ô|­yqŸ 0™Æh1§›åÖÌÈä&"hŠ +N3ËP©ÄÌôª*¬gKÄt^fÙgÆÌÇ̌ù4[ïÎ1̤ÛÇñ¢Éÿ³!c}FO¬UU$ÄWÂs‘ŸHTê#zŠÒ]Á·ž€:´w¢·$p–[ïÖ;Ëp $˜=uòÐÄsÌpß¡I¾t×äC¸s'ûÕËw0L¬':¡tÂqÀˆ ùÑe1Xµ9m‹ö«ª·¼zårog·qÛ²o5r•J¿\ƺÍ~³œÖ+±£'öùtxm̄dDŒé4à?`N¢ LÔ”/æ3b~[þÁüóù\¾ù4žG{¨B|†Î3ög +ÌPd˜ó®(•Ë V/¤´Ê¥J¢W*/"¡Ö‹ à'ªgS¬¤–[儕¨Ö)°yU† +›ÝÆÈõ^Ï«roÀÞº9µyÒ|°Í l@®tˆÐ´V äßt5{8KË*¦¹h}©ÁS^‚åY™ÙT½H,ÉÞwËãnôìÿÚí¯vÝøêíÑïߍuÛ8ñªáÚ +%‹×ìٽݷFÖíÕ4|û_÷´ŸO>yǓëÆpÎI¼h²y¢v×ʶw„¾óÀ‘¿ +äj´ü~6 Zވ +gÍäԛ£é*ßo>êQDŠt@ NÌå_º?ë`“õ,œÔMè'p&¥fý•@ªt1XíYê?c¶)p¡ T½€¤lR² Áꉌ´€p‚ÿ‚[G¯‰èÆãrÅ8›{RÖÀ­çîûìRâL±¹ä<<µSœW"º1 +DçÐy° +r¹LÆ0<Æç0cÄ,Â<À¬SEeY´NÙüeê‡Q^þ¸˜•‚¨ªu ¾0=qÈ2œYôñrs>}‰vpÅ¥ô¯¾,)ۈlÈÁ˜Ž3„DvØ{º£ +êg~ŸýOd„ €Æþ§hT26;«SÚ²s£ïÄ +ÆJ + +ÿBU„«~|îÇ¡a*þâÅßÿ‡¤¿}×óÏóŠÂVѪÔêt>Í®r4:åYº +Þ¢·X­6SŽÜIe$ +7—Ò4¤éhžT,ø¤b‹]*6ÒâÑ,šˆ÷󥝏è–èò‹í +ÎÝ~Uf³ýz]ßmßÌïävi÷êvñ» +{ì» +ßÐ}ƒPÿ +û)Ý)þ{–SöWt/ó?ÊyÙþ +ݛüouðØ?Ñýÿ$ç{JWoe + W€$”c·ÛTÚ4«*Ûf´f+ +U™¥Ï´fmµëx·Ûl.=Ÿ©ï×còGÙÚqæ%QÏØ3ÆîÈ9„„¸q|BLWò:6+;[©T)mãøï¢J}˜CZQ?΄ÇìØ>ÎüNÔ +¢¶Qû‘–Õ>.lÜK9ÖlwÉd5F¼&J{ˆ/µr—6:ÛÕª +š»À2Lˆ¿ˆù³Ÿwñ۟¯TTÂ?b;Z¯œ¤­-Ø© "›å,#^(.ÁÙR†¸dj†}bâÏë\ó6L®Ze.™ÿÍߌ´®œø𺈿ïýßáßhÈu„^¯Îþ:·îÓv_'óz¹ ³`=Ö0ž‰_’ˆ +!î}ÙRd‡³æ\f»^‹ÖÚ÷ Ýö=%Z¾•{Ôr4÷CËor +JŸ‹¶åŽ”Šó‡rKå^¯VkX±jò +Þ?÷ýÁîðüjÿ𧿠+‡‚Ñâi +sYºÜ¬’bLÆL|àMúÛmnÿdõÚ\£š¿}ò¨×ȋíìÀMv¿wòß76féE@Qò£âüãþÐ8¶‹s¼ +å*N•– +±N^ +¼Åþ4ð!÷aڧܧiª~Y¿|Ðx§l§|ÐX©HSåÃù)=} +ûDÒªÈqXN— +ˆJJòdV¹–jr»Ãêsºþ4e:î +vú +ÈíC~ÞÏø ¥½¹¹>&Û¨Ì +ø¢<ŒòÂyb^ +—·_.w(pƒŸ# +q‚HK)©¥DÓRJj]ö +JÉ +Z˜C)™óp0šC¢Ž)!/Qïðãց‰ +@B Þï[gˆ']ZRԛ˜N„äÀzB2 bq»õ™FâėdÍҒÓôƒzüè_W5h¼^œ[WûWMšP.š8 +nò™4i` +ö·¥.v=í·õñɲ†%ÞÉÕ]N³Áäõ ÛØ^ ž|c}‹ŸÐkè¾'A÷•âV±)[d̹?Ûx3#”‹åmå[•ý¦~óÖüý¦ýæ¤)iV†6«w©YSyÐÒXÞ_~÷]î|9—ÎÞ¦>[Î.R]LvÕÜ¥TŽQmˆÇÀ©kŠ +*0šL.¹¿€Õú]* +pØÓ æíÉv9A²Ý¥×7ö¡ÁÀ oØa˜2pŽPÃ`Ÿºðifgþ&ªÓ*}Xçsø0ˉ<ÆǓzßⲎ½)ZÎ9 +(©(Õ.Ð ¡?­7Sf±T(x¥×Ÿ›—›ŸËÊÓÁ,êœúyXpðzE ­iÜñ‚v +RåÊ +±Ú«-LÒˆŸH/¨B +P%†¨U ¢@ +>I¯ê‰q+sf‘+ ,=XEªdÉu$ +ì¤K"îC {ÓÈ÷''v +Ü÷çõwT;ªW0óòœÌÁó{&·¼úàêÎÑ{_Y2Ÿ›‘aeAá6 +¼nøÇßýÃs“gïõyñîÎ*§ÏWêÝ4_qù{ +ûÎ{֘ò²Ü%@ù8Hm%ÿ“!úwR]ê ֜¢¿ÌìŒê;ʕ+ãt™ +VƒÓevX±Ó­rXõN·Aâ¦4™B7³’ Ü̑®f—ª_¹Sy^ÉN)qXÙ¨lS²ë•g•ç”¬’#͔T†”ãS{Šô`RÌ¡j<*ô;w:Ï;Ù°³ÑÙædÏ:Ï9™è/z@1*l@: $qTÌT +’ØûyaIáU&fëÄ3))‡™º¢•>3ÈN ì½J*|ù + +ÙÈ]ö´Œ|8—­à©b Xt­aº˜-Ì^áAá ᔐŽ]ãø.±DÛQ¾ŠYggC¬Ó•=Ǫ¿Æ•æ°òN·à Æ'‚3þk›žgln†U¢£¸—gžCÙFªwŒ”ûTï]*UUXœ,~Õø’élñ/o™Î_4þÆôóùâÑߍ +{áÅÆ +¡µ¸Å¸:t½q«ùEÓ +á7Lo„ß3½ÖJçÁaµ8]A‡Õït1«Òé–NN‡5×é&* +áLd2#l6™È s~8”6Ã!xˆ°v£Ål62*¥¡p8ׯ + $Ê + +ºÁyЙt>ï”;‹q1fÈ^'èôÄ·/¢¬ +´$¯x–O€•úHh*Ý:TJÇNrÙ¥L +9•pâ$@ê]:¹O¹SR³®Y´†øÌô*,E|ÄdÒGL¼!‚”¦ˆq|êÜ cÄΌHח4´`ð̝˜pÆÕ6‡('ŒgÉѬjÌ.œ¸dõ6†'ýá՞ìLmýJ8rÿ_À;Ck<Ù6ochâlx;{â/ÜðåÍÛ +ù^o©`7¯õçäz?ýG³—÷ÎTìýôv¸©÷¦~Öh)ÊÅ?ë÷°aŸ¼¡lƒ +9 +Îe +3æflÍx€y‡™b.—h–ætͬNKèêÎ$tu +zÌ0.ƒ+Ó`p„~[Ôå +Åi*f¬¥AÅRz¤VêõæEžåǧÎ?¥âpé)êÏp’ºtçÑs]U™˜‡ò=Ùù<&/#“ +‘åt†]ø¬ +»¨Äº¨ùqC”FººÌþè·§¥¶u€È-!÷@"@ü@ :ÿ>½4•h}ñâ.‰Ì\†%±‚¯$®^¢¦Yô« +fC +®BCZbXÖâèzÃ6Ã7ðø|Âð +þ;6üÁÄê´ ð+jȇ +ÌÔá1»¡Š!‡×lM˜ÏNS‰¶GS‰•&'ÍÐì|SÔ"†lC„á³ ˜#P6ªŽÀ0ç¤äo'2#Œ¨ é+éw ÀU¨•¦*½J»?ËeÔ +µâ~öÂ1øMÂKžË_µú€±#Í»f^Î<ÙÒË +V;Í*Ÿîáj/o†qŽÕdÿ‹‡ø1[ÁIGVt\,ºßpXñDÚ<·(váÝ +®F©ñ#6Ë/W™*É'˜ +byV`ìÈÊØÅ9„¾–ª2!GÌarô•ä³MF§r¨Õb[êØEN]ËøÀǸò©[ɛ"‹/çM×"+6âL@Ù2€ø4M!63”Y +ÈÈe¢ÙÈ +Ài¹,‹žGNÏ)7²ôô5‘Aσÿz+ñ͓Û&;ùÁäÍ¿<óד}{îÚ4væ“=}`ðã“?›|e²ß ++qÍ«Çï:<ùìäSc»q>®ÆëŽì&·¥ä(@-}Þz +a«_¯( +‡MCÖ!ۍþþà½6ňéiÏiÿ/¬¿°½í‘›sù ßñFrçùÃÁµ¹=¹ýÁAõ‹[ly¶zÛ¿›a• +öã—=oßö¼•û¦ÿ· +¹Mtçø•Z¢J]ØaU8Ý h³œn”#äçø«Ü +npoYù~8î3J +Ҁ,¼%l-ý™eq`~U +b1˜ +2‚gƒç‚l°S‰©)ÄÔ@b—NK¥-å­Sû¨}¸08Ž·Œ9‰{N/K¦Ý󔼵.#7&>éÆÄGnL$gÞ´‚#1Hˆjóäm&¯ß—gô•` +¢\s~ öZÁwJ鍊Ð⦑·ƒúqÏã\va +Ð0õQ€ž¨àþµ’;ïÏkXz÷1ó’:ûʍ‡Çæ[V:ñ +ØçL+ØgüǓ?Ùÿ‹%ªËVät߿薦’Fæ†ÉᝰÏs +Cl/êG·=vN{mZÚ#;›ï¯'ÿ“Ӣɸl¤" +ùЄ˜W‡›÷bV®Åkêěñmx?ºOù¯º÷ŠÓ‰hfW+Ùû¹qæœRfûyÙátLü—~´qh +R©a®JGF(ƒ¹ò^D–±Ø?-A~_–J^#hÆ¡a4‹s¿H‚.[©V£Êª‹ü%I–D•OðÚ|êô´tFnòzÜ^7#wd¹ +qŽÊ£ƒÈ§‡¬3Ó^»²¦C¢RšµÙ +Øm€ˆ8àä_ê-l~ E +V¹Yõy<Ä=dÊ$YËDxFÔ¤²>ö¶Î‹÷ï|qòםû›¶íÂ{1¸,øV½m'ãwÜÕwâÙÁ]K"ßÓ%Kd±±XEu[€ÃøîÉM“?þdr7÷›¯>:™œ|ztϞoãÊ??¶s„H !Y7H •2Œ8ê1¶õRæÝå†[}/¸_(d{ +/dLc°Óê°Êëó^‹šqœ‰{nÀ70ƒŽAa³k«w/Þ%í{¶pʓ%nÁwxnÉ}Ès‡yÌs¬ðLá›á?Nj +([ƒ¤¬¨"Xîôô„Òò•ŒÍ†³ +VÓ +¼~+7_ëtg;¬6§[d +¼ +‹Á™àâ{Ž2£ÈÏ;D/WŒd¹ +^ѨhS°ûŒYÚJÇñ×D]±?'ÇÆè´ZŒ‘Ò@_4K/ +êʐó˜“i§ˆqžà˱§Æsåly©’J¶’âAI%[éÊ΢’E +³¨dg=\= +Íè3§n¾5ïýx($Iu(%Õ)çéâE +ĺ5 +L@ÙÂ_ÜE.ìɋHCÄZ‚ÞÐè»Ý¢°‰È}a‘ÝíðºC%¸ÈQÐUP‚Üž°P\‚Ñ4gÁÙ.!ݖQûê:?š +Á`óG3# çOfRƒ àG'øH˜×‰Ä’ew+p:1ù¤ä].žy›§uOÞ7YV"hì¼Í·´Œ*ê¼ãß¿ùã} +Á¦¶½ñË×dØTϽpàæŠvfƒñäæ«UDÕÃÛÇ}“7Ü֜Î܃uǁ +rÒÙ9õ.'=1—Y#š +÷` +Ö1jé8?ʓp£ÒWŒã +â¹ò¹åÖÊ­7­7¯·¬·Êe™埭à†ÔCš!íf]¿½ßÑêïQÞ¦Þ¥Ù¥½E·+p˜;\Â4%šRMYNINiN¹d-ä»àÈË+,™ç3U\Ø +¶‡ +aç5¥×”-Ò,ÊoR¯Ö¬áWç­ä8°ƒ±–8ʬåM¦&s“¥¥x]ɺÒueëÊ×ÎѲju^†ÚšçV +óò C"cçÅ¡ÇCgý?È1p¶â£ŠÌåʹVg¬Çðk˜Á;pêŽVԔ=Td³æÄ +V»ýt))5?” Ê£2]›™ž® +¤çk9ŸŠ&r7ž€¿ˆuûÉÝ-í®RŒ +ä•v‹|HFϼ£Ç‚þ˜þ +=«gv=í8jðä+hà8Äg‚Ni¯-ƒ¯A†EA!ƒÇŸÅ +Q/¤WþDe¶@Y&.‘‰H( ù +Ôn¥^1“÷QZr&@37jÅüÀŔj-÷„~Ÿº@U‚òtĨe@¤C6­0½©Ó +¹<˜86/ßk3§ +É ÏKW4ÂÓWÅÀû­àªÚ՝š.¾=Àµ¶´b°±hÑSHºÚ¤‹pa]¤$¬£îa +¦—[.y9Û™ÔÇX҇ú;#±y®Ï㓾A’.@Ø#^CëÑuÝ»ó?üþíõxv^©ã‡sŽÂëµ4ŸèÝþµ9¹“ßùúÒóßí +™k´8ÓÀ# +ì:øå +×Í/©ßÞ¹éžë +zG%«²‡ðëw­í–µÅöÝÑt÷OË̎áüùà%©oôG±b-^ˬÍYk߈72s6ڕ!g•³Áù€ì~ëaÙcVƒsìÙäLïRíéV˜ÜÈÁð:¥sœ9+f¨p‰Fm•AÃ5¢c`/Ç¿hQª¨žSQ•¦¢zNå2f;v¢µ¤²óöõöƒvÎ~šñ£ì©ß‰j¢³©þˆÑDŽŽVéòøR+QxvP°ê22À¨ZW +\à+S—‘„2HT—A˜®zŸº:•äò%òv€œú¤;)Ÿtå8Ko +ȒÁ=¢ó©3 +]MgÀ#Mü€¸ç®÷—.QøxÙÒÉçš<s>½4íŠséڌÞux>Áªzê¼ì8`5ˆo> +ÂpìÈ•†éûeMŦl[©_^!_*Ñq^·7·Ø]œ[ç®Ë=”«Èˍä2á!õ +º‡rÏäþÍ'¯ÔJ7Q‡Õìtåӛ¨ +‡ÕätÃÑ +ìãõkTùpFûãSk¼Op Ì#'5^¥RŠé¥NŠ2¬d”p¼õ™™ÄöP;$§QäÐ']UѕÖV•ñaÜ>N†Ï‡¹°C Ä(1JLÁe0ìÈÀñ +œAmW†–ÔeØI]†9téÊù¯uúކ|1BO€Ö+—9ôë‘Ô"¸¡õ׍ +Ÿ£Ñõ9ýiz—Óídä:o®×£ +¯÷¥çbuš“÷"¿ÚKNXr~è[8Ü +²ˆˆÈâ+·aré{H°5W]’QùKY öu|¾¤1uÝÅWõ~X¨#/ÛJ›<朥ûºoýÉ2°8²\¯·Æ10ñö«ï>òÐW[þ¶/÷zË<‰‰ã +¯&– +x“ñî +€¬Sï*¶DX»ô +ÄIž›çËԏ³ÿIŽ—L.cS +­œÚÀ¨•(ªeVUÅOœƒßY +"ß3˜Ur"]™¦R¤¥ +å +Akʈ¤C°~RªJ­äÝ,¤6HÅ(W• +–¨Z¸fÕã*¹O +P¨ýéþ +¿%ϚïÏ-*—G,¥ák嵊zõ"k“¼YѬlIkNo¶4‡›Šzä +Š^u·¥Ûº±d3·Y¾Y±9m«ú†ô,[­Ûm[ +áÐ­Ü +ʽ¶Ý¡Ýá=Ew+ +T=ãë¦-Xïñߺ'|Xù¤êIõ“–ÃÖ'lOæ< +SŒ)ŸN·<þ×ð'ÊOԗs>–t‡báî¢=*n®µ× +wôr1ELÙ­bëUK +‹üõ!®Åº&t]˜mT4*תYNÒÀÈÙ²Cù¶ò(í,Ú_Ä6­/j+꧙óE)‹>PþZµBm=aQŸfdÁÕbzcú¹t6ýñŠyãÌõcNòù +0.^0óLüÄ%ê"&ޟñ +Swk»dÁÀ.íöç!5Í”)€˜ÓÀÿUÇìXÁk+•ð(øÊz +'ý@úÈAXÄL¿?[Se'‘†Èa2¨«¤“$¸„-8ËE¾IÆn +ÿ|¹Óoˆ¹Ä¹¹>é™Uˆ%sé.Sl/[`Ï +LÞæŸ|eòǞÉM +é™uóðǦ²¹Xý®_:ÃlÎÈcxÏÜÒBÌa¦ 'Ûwl©×Wê¾åÓgØöËßâ:¿bôy½Þ°Ëý• ³+ñ¥b_†Æ ”CQ^Ɏ óÛÃF8Ü{éÿù +§™c ÕUl$ÕOé9 +É +2ý”¼bŽßK„›÷é(ÈùÌscVʕ¨ +~ôÓ%î³üåçGôXcVù*ðV´Å)38È_;iu‘Ÿá«Å€XÍVÆØçp—nF[õÛ\ým +¹ +t?†ãŸp>ázÂýXá¡gÜÏxŸñž{²êGü +Ö„EÎVÿÜðsáõGÕ6Cˆ +.ÁðC¡kø°!,Ìs–ç†×"8$U +ÕáêsÕ܋ +x¨ðÆЭ=!®&ВÞâdUn³;{~Uu½¥&WnÈ +bO0æ<ä<äRèâ,ÕbžÞdôÈä¬^‚ +«EnQTX}s}D +©¦‚„Ö” Ö +.t +!Þ¥ç]†*„ + +Ur^a•[%·ÐBXUaÈ0g•™ +&«Ùç"£†æXçºxÞ + +31.Íi wÔB(SBA§ +q4®Èܹä-¨Ål–ËeÊî*\@ +|N­ëpîÇI|ŸÇÁAwœù»¨«V + ++#×Aãg~xR¬¾oZ°.µ‚#z¡õÊ! + +ªY$7”J’6%Rÿ”ø̎uðk!םàÌf@0ˆ(ၚæ“!œç +ÍgÁÓ$þM³#µUÏ3€Áó¤R¦ëÌí™Ëä›@Àܼ†ÜQ~ f¤GÜ&u$Á½(;â +g“ò³'³#.v„n͎?±;©¦Wå +¹»U" +JCÄ%"sÉå¨.’+%äbAJR2’ãºÈgþfDºbo¥wì-xúë®9Ò'÷¹,–Ïúü«|Æ>_.ˆ8)5fdH­¤␱µØ=2¼vât +-˪R„ߟ¼Ph(_:ùÿÚûöø6ŽóÀ™]`w,€Åâµx/ˆ7 E K‘"%>LÚ)R +%ÆRã:Š¤cÇvl‹íø»ç¥85•gÓ4WӊlÓNÝ0©jljëwMܸ÷sì¶:7IÍFÍ9¹\lR7ß, Si{Í÷»¿ŒÅìÌÎÎξ¾÷|ßl¤”Ø1»k›¿|ߧ07Œm+žÿ×f§hoٍÿ¾o?p +óóÍ«Î +6&ØbJ8½^Ç~ÇæÇ»Rnµ™M$Œ’ò þ8¾géÙb[‚‰Ígqk{Úí–ÜLªìÞ«®¼'ª¢ñO©T÷óF„e*}¥Vъ‡”C¾±¢!çý ÷–ä-©{½'RœÏèãTtóî´Z ++Fri7cˆ"Çùt*žN´‹ýX+^'ùáÉôXñîþ†ô +ͳżÀÝÅߕ^h^(.59]<úa蕢z7wOšÅ<Àº8 +IªJ·.˜‡•P +O*^/Q2\üyAôhJ¥ÉVZIz +i¾(¤ùTR1F$ŒP$AÞëY¹ô:4éiŒ@A³S9¼IL +âIÝãTŽÿšš‚§ [+jª˜ÒRc©ÙÔBj1ŧV˜O½Hã#Z\ÖO$¼n¿òÖàåe¼ÑCZªÕ{ +ºGrý`¹ZG ìÑËu§â®dWJw*¦£@ ~áyœ¥V #Q‚8 +œV +€°Xåõ +ú±Úð.&0J{ ý¶©'ÿ +ÞCÅóøE¿ÿè5ݛO“×ä6VA?ؼogaЕdú +Ñí8€ÍÝ¡övÂkZ&Þ¹±±ùµ†²€{˜Î£m1s"‘ËÅmáÏj æ|`+Ûsi=Á>ŒÚÐvvOÝsV­Ñ‘éšoÆ +à[‚Å4¨M ±¤ã¬ÌŒ—<Єlÿ˜ª%xynxe%Ú¶TåiÎ穹Y5‘CZJ(lÈäŠeQ3‘NE-‚µƒìW.ý@ +C#Q4 +W°BkÚB‘a¾;g@¢YaZ&º9ù­6àuþ »† +dƒ’€Õ՗²ÙsÒÖ`¸:  +³?Rbä½íXV#Õ +ÚWL™Y9+ߎn/}Ýk¹·Â +dO—T[¨LÁaã0·KÝÕ4Ü¥ÕN„³WQÓ +R‡« +™Ö)WÉMZ¢ÏED<*ž± Qo“4‹Ñ2ZE¯ T0è«7øïô3c~¼äÇþ,jòE#Nâô)fŒ\oSïÌGuÃ#ø–NÏÏmÌM_˜›“c6[[_Ÿ£hwA® +¿æ½¡#¡Bì! +QT‹:;;q' +¹P·'ªûœE’ÚúÅǜU£$¡|•À9êÕG¤j}0tj +Ïa°N0•2*µ5¢5ë!r \²ƒ‰Ýùٟ`|öž?oÍm +;,±ØŽ£Û¯þ܉k¯ê(ãw<úW˜{ùGØvr$YHºoŠ„¯ýÜßèm¹ +Ü}ߥ +£ñ~Ayf¨[Éõ{Êp +*A0 +lH +yè¾Ç¢RCÀ“J +E*mMj­éV ŽPƒO²ÿ€B@dÁe0"S5È©™lÌ¸Ó +äÅår,åµ—²ë’p;¼DxÃ*NÂõg{LŽBª +eáÐàlk¡™ŠXH7AnÜcêI®Ð¹j°Ûɚ= dhzsÜ8ÇZ` 3»–uèœjuH¨p1ÓÓk5ð¯½DΣ(—V¿>0P.Šì̶”g +·n3~Ä°Px¸°ZàµÂBAO³;;n +öe?Éó»y¬:Ìæ ó§ +Ò|ºÀ¯.fUEjôIíBÁvu«£ê!õ]æ÷ª·ªKhIý*ÿÿt³%)8Sb +vö¹C)OO0 +ꋐÃ,†œ›>µHçrÖA–¨¨sÝ3žÏà +6âYô0žΌq` +J·”!| Âõ¶ô +¯[ÝFÖ7æ!X~à+5OnÙAÔÐ_®¿‰‰ôŒR2kR‰¤QQÖ@Vi>¡âfcNmøICøU'@8 +)¡­„²êDT&D´>|›J”ê¤ÔkŒU +`ø®Ã0óLïÂà'_ùõ_Ý2jW֊ +y{ÔÈ[6/¶pÝG +“».¿÷àuýÛßøë¿Æ#úÇ»ýRlö—>7tÄæžÅ?ꛭŽþþw¾û·¢‡ ½ÜË.# +±·×!:-x\n$B²Ñ¬îËê.jÃ@.ƒ|ð‡<(J+¡ 9Àï!K áàÁš¿³p4O©+iÇMéz)|÷qÀC«ÅB H?ԓLœÓ¬_Ê®ÖVÔÖ +Un¿ZFlÃŽ^„~FÝw; ,ñ*¿Ì³ˆŸ!Lÿ4oà?fø¼áŒ +SñäÖ“Î.W$LîŠän ØÃݒŒH¼¤Êf‹„u('rתöç×ȵNŸ›žÎ¶Ñk%WºF +ŒòaeÚ7ƒf\/°FŸ$,6XõhÁj„†mô– +°ˆ±t™Vïmn)8ŸiÒyÈsØ{@9èç1kâx“ Ý{¸Ì}Ü=âG¤»C_`þLyÔùæEûßI¯3ÿ“uÊ3üŒ0Kîî„é[üwìyÂéxë] +k<áž +¶›ú™Óhd³Ït-3Ϝpžðr~ÑôEóŠð¨iÙü +óOÌ+âëf—pžÇˆ?Ï3sÃ³ƒaÙežão7¸PÑã†KuÊUù°û¸{Éý²Ûàvþ"P.' +Äâ +²i»å*<ãw0¼þ9Á“Tí +|ÌsÜsÒÃz^w¹À¥sQ`ŠÂIáe•M w", +¯œðU›Û€N\±9M.Ú žŠE6ɦÚ؋6lƒ+1‘gië +÷é˜IÄ·‘¹n‰g=ºNd4$8 •wWDä¤cn"'AÄ +Œ +ÍÍÓ°uÔÙ žÓ½“g9„fnŠ +vT㞧ºOÎf‰UE-_µ’$ÇIƒâЈ3}+ ï«o™õ-³¾e¢[šÍTuK¾ªOuT­*uvÂÙ+$¬©©)'ç­ÇJè +L–ˆ&õ®¿ÃGÞsàî|ÄýÝOéŸÿõ±Ï<½qþŠQò +iß{'³í¹÷¿ÿÈÍ®ñ‹ÿŒùï}µk2Þ©ý!‘‡Fbo5އ²ŒPÇîDžò«¼l'Ou¢@K6 +¶ +¨oŒLžõÏ4Ô&SÔםd8`O&“ÌB<ö"dÏØWpàŒÌAtáúª´Z[[—Öu¦DXÒªtNz–sÔǶŽÈO ;=‘CµP†‹“ž„ +¦ˆˆ9À@Ì"ÓËø‘f¡ØHëÉöß=»l¶|®Á‚^‚9ýښîOÐvÜ«žrŸJ²}lŸ¸Ûw7{·hüŒòÇ£0ëݒ°dzHzȱœ7I +¡S‡›g™ `;>քφùVÐ"±ðRø›a&ìˆ'¼8;F—bsFvpo–€¯àk¾~’(++̯Îàæì +–4k:ƒe»Cú˜ÝŽã¬_Ÿ™)Ó¼«KÏk5=·Ò\ó£åE?l›µ­ÚÎÛ8›/÷$˱|}èVʑuºT+é&Ù«Óæ©þßݽ1ß]Û ZI¡îs$'R.O2áN&<é J¹âAü[ÞDHÚ¢šÃ€M¬R‚ -@~×݈¨ÀD¤vwɍ¿ +LìØ»ñR&½ÓwæÌä£s×Ov•ÃÞÒ`$’lт¯±Ã_^hÊÅãé¾k™»»Oüå}ùÎp%ú>§³õºvî†øÁí›ýì'2ù6´M±ŸÒ>${Æ>•<Õ΢¼t¹©ù¦½ +jæZ¸kîU +µŽÑƒÇ:nLÎ +Æ÷óßGku“]fŽ÷]¯Îåì#ÉÂç]Âd]E#lQ‹HE|¬x²¸Td‹ +ð×¢(Q¬T[Ø +}xܛ•`+)|÷¬ä¢ +S=zŸîRJi_"’ÆÔÝÊãõ—O¦ñhz6½š>Ÿ6¤mÐ2Ý°\‘¿h2ŒôêÁâAíàiò̍áРE,´üd?î§x«êÁvϬçyBìW.ýBsÐñg½FÏ +ó”æ}9Ê>1ÿú:„ØBMâå©™oØÙêf6jnkèû·íïÚ¯C^“‰¶ÖRk¹•åz’£É–Dsr"±/ˆƒÛÂA4TQÑN\SÑvc-ˆÆò#AtMvŸŠû”þ +Oíâ‰ý¡®i +؆†[U<4Xiט^| + +ÝA|Uáê ڛ¹ZE»¼½AԟmøUÔWWN:!$4˜r +ü×ð +emš¹E"0Z‘d°\|D®{W4¼&hèÌ +ÀÅbu +J·1Óåò|zœI= +ëNÔ#•¤&éË[d»²ïÀÚé;g¾µ±œ‘µg?ÐyîK}¹H´œýþöécïþìߺ{Èâ¨ð‡ËÙ*v +í+ +_»«´ùëB±ëèSgÿ¬TþÌßã«2Lý—sš‘3yýf#·{vá1W²êr¨¼5š¬³×Ì +ùØþ¶vEIì4 +‰´Fb‡˜{nºõ¡ý;ço]:°óÍ?,M&Šñ +Çw—= +aúÈJˆÓÿ$Ú\;s²ÎC ®dv˜)#4+qØV¨ + +'€ +ØR¨†§ØH•$pËT$£åJ*£QdÆ£´h^>ò`†ZRøu(È7pŒ^Óì”)Óþò˜ha=fÂje’$¥IJ¡2 +xW49¶ÒŽRŽPÎÀ°.@$\÷µ×PÖõA*´Jçžn“Îeõš5¢ žÛ¢N–e@É +]“3¦Ê¤Sèґ2Sök¦,×LÙ²Y¡U +­Rh•¢tvà(­ŽÒê(­Ž’»¹H© +)üâ,ì +7‡}ù|gGkS¦]/¯ÐE‘kº + +ƒ +³Ð©5W̝3Dn¶'ìÉ +ÎÅNÃrçjçùN6Ëá±Î™ÎY¨Ò:±*(™°c +µkŽ¦|&œl2gÂÒ`,š 'WX›Ö«¤ZzÊáJVSíˆÞ%« +ÉìSâ¦E3^6c»yÖ¼d~Þl0‘JäQ4Þɏågò³yÃB~1Ï,ç1€®æÏç +ù™Ž/§Aþ +¶A%PÈcZëµnGµJC݃ +—?h¸D 4ú‚˜ü|Ø3õ¶€P/êä; v´ë\õhWSÿ>Ý߉ª†¤¶ +›Y×ñȱõ\5pÚÌEms‡[k3³‘¾bë»ÝÕþÍ®í1—bøÝ–÷o\{뮉wh_Ýü‹ýª¯Vé*Ü÷ÉC +òèfðPK$ +wš;'ØíºöVõn²â ¾XPS·ª?â„„h •‚»5J-Qêžu*¬‰pJËM +A<@ +¬|ÿ1hm²* +ŠO +ÿp¶Žn¯4Ðí +G)¶©`ñŽFE6ÜtŒàð +‡9*ÉR­ +:àš8'‘_ D}mZziºn!Ñ­èk%ÍÌÂ$<—1ÁªR +ˆÒ5ôsvh¨^èéÑ +š¯£ƒ×ÀÔušcऩÑ&Þ ·÷+-GšLñ˜•âƒ•°·R|€;ÓñAħøCj +×Q( +ۂºŽI®ý¥µÚšnh®£‚o1Žgâ³ñÅøéøŸQÅ +Vq`˜mmešwvéy¾¨ç±͵Ÿ¿LÄ9Ød̈́e‚)_Žö‰>ѹHn¥ŠP“È;eó¢ ›ªÀƒÏôV Óìµ +û +Q´ú¬qEËVjóoï*/*xLÁ3ʬ²¨œV.*FåLìÌ(:Ð ºë]×ÅTÂy!ú¸Ž +ô–è&áHóÖ·När®ÛD®3ÍÛ¶57wo»Ã×Ú³ÙÛÛ0ña0mÃ.ãý°£»¹yÛftC¨@öwãw~"§úìñY!Û ÔÚ ÔºñG0ë%¯ŒÂ¬Kä0_×yhl!æ€DcH)üŒRm±–"/@#)üøQ8F4>Eȳ3° 'P‹ÓEi´ËM*€6·]V‰ô÷|´¢-”8夐ç¢8'9 +!¾® +ézµÉÁEé€$ꌃt@E¯ç +bZ£v8€Ç½«Þ‹^ÖKþ2äZWu[{ÏX¶y±æ +óÎxg½‹ÞÓ¤!/fÂü`΄¹T̕²ö8î>rIÔfjo&:³f¦*Sßÿ&Q°A{| +¶]»¨ªûÆ5hSÇ£ãÇƏ³ãÜ@«’ÈYø§þÂ5¦§ ÝX +_CÖ û·Å:¨ƒŒzNÊÒüiJy/´nÒ=éÝÂù}ã¼Ò:à ïP©QZÍRÁ"Kë² +=t«‡nõ +“ûøÙ㺙z²D3¨îÐe4ZøÝÛÑ19 + +*‡D +¿¦{‡‡§&ëˆã¸¼–È•ÓDnÑ{^«Õ@‡ лl +Ú7ùMÔé'hI’Š—~ò¨_ñ)D ÒS-XæÏOýÜÃ.Ÿ &kŋSDPQ3ae +yólSG&ÜJ +š¥i8 +lrdÂ^"«œe3áâ +k=ëɄûIAÛOôì +÷ ™Ž­šI +ˆO +L쇓ȉf +ÏŒü@kQñš§¼^¿äˆG‹*žU—UF]ÁÍޑiÉÆ;‹ +x¶c¹ƒé€:ÏÈþžøðpddl„YY +aЈ4Œ€[‹ËS +™™œZa|=J¤œ|ôn +"J¯ƒ¬sAϺ¯Úõ{}à¿ý¬Ã¤1 +ÏtY +jÈAMqÑnMĒq1Ä6{“-±U"bPSCE}.Nï¿# +u´7¢ +ˆ4Ä{ߢ#—«ù-RÒܤ„ÇŽÊùß/MÜæ¾îþ¡=sQÕܾ}³Û¹-ê5©‰Ê{†ÆÝÕ¿Ù:\µ£¹ÑöÊÞ¼¯uhs[­ÍO9Oʎ]Yæµ£ödóÑÃ7 +wݶyӄê!B“WŠ9ÆðGf[´ÊnKvsˆJRñ¸ãRת +r +›îíx<°m +úT.ZçR"ÑEþ¡d%æ2%«PJV¤ŠF« +ª&Ø=1 -° +Å3%Iõ¸xJUYê^ßâo»¡è. + +Ðê“Ð܃Bôàí(D»e¨Æ’¡ÊH§î}±áý«ºG4¡mf8"ƒ‚L¼„ÄÔªÁÐUk›¦%“HjÒuÍ·ÇÛxŽ¡´¤P  +‹D4ǕZKvu +ý€€HºâòÙ8TðP‹µ)´Ò2½€V½{\ ÜS ”B TCðÐ!-­òPåñTÊ(D[†hEˆî +Ñ¥£^ +r‘b-2™JùwU`ˆØÖU!ŒPü/VÆ*3•ÙÊbŘ7`–ÈÖr +[®œ¯0Ë}Ó4u%¢ų́ÍÀ4M[*ßJxèsz¯ê±YZwnnsj%³¡gä7Yl€ˆ®þV¢ÉÔñpýÛCÝ·mÞ²?â£zŒ}àö¹m†¦=!‚iGñ¾/íöž1„h_`Ÿ xfG!F¬cZˆT¢£Fn‘Žu‰8‰~à섂æ„Jmfð&‹”@:gÔÝtã­+ì‡v~880å7¸(ĹD‰Jpß +T€¢ÁE}à‰²".‹Pô½K^pã?ñ<æùkü¬é\èE'ÿ“ï6íòìwߍï3°¿à#Z[Å@œ–"øi÷³~F‹à=Bãjd:™XV¶ÔF (ðyXf +³†Eò3¼S1Ö4qIdÄËc-à'Ênvh9½whyìꏈá=D +{®90ùxÁW|àk?À{'ÿùÙ6d@.¶í§ÒO[6 w˜z+ö¹ +‡ä„-É$‚Is‚K:ì. +°_Å +))<)9­’Š,Y¹-^ùŒd¥ù_þQÏkêpï¤æ¸‘¹‘»Õ|«íVùfύʍAazjZ+2%G5@’Œ_ÝøjH}b±úüÎ^°€»äº‹AçïxÏMÏþÖënnoå=;—>ôÎ;®`~螇?øæ—îý¯wüïôÔ +ºí;›?>ýW¯ß7ƒtûó8µ4~´1²ÚL½Ï¸ˆ×‘¢d7¥Dp]HÝ*ÓE;Ò µ ØԞ¡"g„ç•åhC,±ŠÇ÷ +Bl”$äÖ6š:–:žbSi^Y¥k »­ÉíßÐ[Љ¥+C1è.IŽ=f:nbL¤ +#WJA×Ae3¸ÆßP2Y€ +tt&iμE&Iÿttfú2u +hLj`bocÚì£Ù?dàµf|¸Gˆp”¢’Їc©”Ú“ +§úÙÒìp©6(0 pU±8Ųˆ'²Îa•œk‰4ãfäˆG"/¨‹*ƒT‰È>«êyÕ¨Îd¾|Ù×K—^æ/ÌÍ×öçק +uÿI´EA'”‹€„»½áEҐ'¼—Í. +[–ánéØ]ŽÇö»ew¾è´îܱ™íoò™Ö˜?’2c7ûð÷¿ß›KµïremîN²÷PIáÈéíA M^Ž^ºÀüÀK«¡\‡—T‰ÂKIºÃ`jYÁÔ²‚í¿¡>µƒ©öفδÁ~{+/¤ìQƒœ5â[Œø½FlL0Æͼïa|$ŒÃ Տgü³~Æ/[PíÜô4ÁîÉI6 +Ž +"„¢­ý`MúîUr:Ú¢ö”`hö„å#ÓÜÊëÝøä!#~ñƒFƘhæûÂøhøýa&œ-®ðš Ån/µùåÏ)²TªÔV÷*9§çç`”}’tîÜtM:Gýëè|ã-cÊùrŒ,·h–j.m©*®)ñ@òAéãq£™7§Í™™Òli¡ÄÙK+XÕî!Dð{ÖïÙÎÅÏ%þ6öBüÅÜ«†Wc¯Æš³ÈµÜtîò·çNâ“ÌIvÁ½à_,OäO¶X!vÕ̚D.hÎ}§é٘d=.9è ù2Ü)Ó)óƒê±â9kMçs£¥Ã¥›37ç>lûJìáÒOØWƒbFh +£§˜0ŽàH4{=Õ²‚ýš£Y ûž +„ý?–ü*yr°Ó÷”v6Ér™q0‰¨’ƒã#¢p!ˆ`ŠVħA¬{Îè“B‚ßþü¯¤_9ÞH¦§ˆ²á¢“šo /1Kì’å3ÖE÷¢1°<Õô©ØR^¤ÎýsԏlR³b +ø½¹ãæŒÓð +͑V}USÚWŚ¹ÊЇïýÔêg®¶ª +M¦ª( +åšM +jª4óUãºDLÏD˜ÅYÍÕãËÎÈz_v™œB&§«9U†c.jv;if¯²’•œÇ + +\Ôd+9•´!IqÐôÛΘWþ°î á±Ô8LÃc/«€¨˜£Ô˜"žÚË,F“xGÿ„9ü±ï=uã¾÷FÝ^k4|èÚ]ûß¹ùã|þÁ¶” +’,²o~çwæ;ә–#Ÿ¿ýTØìÇ÷ÝuuסŮêþ¹O{í6¾.té_™n÷Po4ü +BšLhXˆz +XDªZˆn'6:iÑI™³1¶âÎGƒ +áY衐!g÷¸ +àh€0G8ÙÆùµÂú¹:{iUzºp%}òyõÑFºvo)“÷ñ*ÑûXO¨ámւ-öv_ïÂ{\˜žN# HÎm `#U +ŒTM0R.htêŠG¯”ò?Rø +µ*8¡à5z +Õ6ÎOO¯Jkҹ醔¼ÖÀÈJ. G¬ +Ƈ¦:å8åû¦û›žßO|üRŸðãQqÔzX!Ìl?OG0Jî˜ÃEÁ¬D½Û’àiÐNç( +|á +R:ºÃ‘Š-ôµL6´ã†¼7cøÖæßôoüùԎLúÚ#¥ÃG˜ßz®ßü=úi*"µo°G ¦X‡*OŠjÇBÝxkQÓu[W] +RÃu[×ÍIma~ÚÐ/S»šÜ7Ybháu:È ÇŸÔçÓÖlJ‚³¨6 + +ål +üx +ÕV0£ÂKYð5!BCMZ­>¾ ›½Às‹ +µŸ× +œXÁlQ-Š-žð’^õ.-X Ö]³nÝ¥ö^ÕOm½~*bùÍTc!©RÈS9Ýޕ”Á> +MäƘ(ìÉr*¹Õ¢EVÕ¤aµ +€X#@H1"Rïµ +NŠª¦€?,§ +eKG¤KÝ +Ù­ý‚s”Èd±èh8‘Š )ÜÇ +>Ւ +x—æ4£D‚°$¸›Ùb¶X¢Ô¹Ò†–!ÌðWu0 ¿mÿтSd¹‰,ŸÇŸg¶1ÛØY¾Æ~Íp}}y"7Ñ +ëç$|Bø„éó„e/Y.À" +³þ±íIûni—Ã$O9_pý¡ûn÷ÝÞYß{ýKW.ÁÏ?ú^¤ +7½+~&9˜ú,隝ûZþ`iùMë;Úî)½øöòöòöòöòöòöòöòöòöòöòöòöòÿn¡zŸÑ"?„luޏÀŒóŸþØË%+²#r"7ò"Ù!ø² +Š'’(i†¯Š­m¥r¥½£umë®ևúvï +FhtìêkŸØ?ùŸŸ÷ÿÛπž£k<Ÿ‹7^ºDÖ*¬áÃÜhëxëg%ÉN’ƒ$'Ià,æ%ÉWߢkµ¾G ”$yeà;)ð¤È¯€Š¨µ¡*£ +jG +¨“ÔvMµñä¿>’úÑڍö A4„†ií(CW£khy +M ýh’^3‹Èø;ß½påæEtñÒ:Ì ®Šƒ_(ÿ]yx +DÊPOP†ºÁzÊՓZO“[SEˍd¸%¶&ã3H2N &’!þ5n@QR¿óUTj$²/ÇHÛg.½ +ûH»&ÚnÅHyìßA¶-ø?B’ÛIrþßûGhO=õ“kí#ù09×()o'ÉJ®¹{KÚÎU‘ƒÔ‹$íj$ÒÞʆÐQ²ße€GöïAÚo¿ +Òæ‘凟> +endobj +160 0 obj +<> +stream +xœ]‘=nÃ0 + +wB7ð, +-ɒ¡EÑöŠD +" +Š3ôö}¤“ +žÀO䣲9žOç¼lºù¨kü¢MÏKN•îë£FÒº.Yu½NKܞ$g¼ +¢šã[(ß? +4 +hÞù=ܨùìÜt»'®‰î%Dª!_IMmë§yöŠrú—ê»ã2?K{”²Ú'0x00F/FFò"  +|F¼†½¦÷"`Ï8xp`t^tŒxÄÈC†2ɋ€ 8t~ +#" Ž‚–ñàEÀ#>h­ Ò¢ÐJ‘š +Z±ÚÖq+‡®N²ˆ€ðºY½#¾?J+D<¾×œx’¼’×t|ÔJy“½É^xK¦¿Õ–µ°KCê{#ð +endstream +endobj +161 0 obj +<> +endobj +162 0 obj +<> +stream +xœí½y|TÕÙ8~νw¶ÌšÙ—LæΚe’™,“•Ü@‚@[@$LH$™ˆŠ`]€¸Vë®E»¸%ЀZi]ÞÚêÛ·µ‹¶ýY}_Š¶5jû¢õ­dæûœsoBP«ö÷}?¿ÏïÎåÜóÜsžóœsžýܙ(Â!-ڍX´rEK´ÑO×p»°£/>(>' à÷:¶ +óé†oÝ ¿CH±£kps^÷Ô­)× ${esïh—ˆ_C(Ðߝˆw¾`þ†¡nÀGåÝР٩BH€ç@wßðób ?Ô;Пۿô×õÅw +*_׬|èG|¼/1ñáäGðÜ +²Áä°ˆßý4é +J +Ž:/x¡¬;ã9ÙM°ªeÈ%‹ÝŠì¥ß‚ò)©¥é³²-ȟêNÿ'[ +£o—Šø ¢GÐMXv¢¯¡FT‚¾ƒ~Œ¶ A´ + +B5èüktâk;ÊCšFV +G‹p<݄léCÏÅé?2§ƒîFW¡¿¢ô+ԁ^Drt.ET‰^Fóӛ‘Iö*GסÛÓ¿E +.†¾‹^Kÿ.B‹Ñ·Ðk¸·°»eµè"tº݀m8Wâ+PÖ°=ƒN2Õ1¤AÍh9ZƒZÑft”Ã0§ +­D‡ð/Ù +0S+º +—á“郈‡U +P!ªÇåL8}e£|CóP +º}Ý +~#x>[Ì +G6ØS + +Ç:lÅ>ülú>䁫­‡•Þ€î@¡Ÿ Ÿ`^ÃDٍ²GSï +€îD×£_¢¿à +|ÞÁL²§êҗ¦¤Ÿ‡Ñ0OZ +ëމî„Ý=Œž@'Ñ€'¯a7^‰ïÄïqò’é«R?K½™¶¦ÿ‚ô°Öµ¨õ£]hÈæ›è‡è7èúsX‰3ñ™"æ7¬Žû¦Ì–Fé=DPÕ·v =h/\ÇaÄ +˜Ç¹¸ã_1:FÏô2W2˜wÙ}ìaö¿¸·Ó +ӏ¤Ÿžÿ)®Z +RÝ R»dw} +C“èGèOèt8y)¾ +ÆÇðß3ó8óKî¬ì5ÙéûÓg‘¸ +D¨®Rààh ¬¥Ý’z ½6ówôwìÂUøJ¼á›ðíøü{üs +óSæ +ööQvœý‡¹îRÙõ²7å«ñÔ +©{ÒM°;ЎÞÔ ‹IЉû€èIô,¬íoèà‹ vÀóðj¼_¯Â7ãðëÌbæRf€d1ëfýl»—óp¸Ÿq¿‘]&»>Jµ¥#ˆèMhÉŒ_ſƯá7áúÿ +Ìe*˜æf³šé`Ì ³‹¹‹¹—yˆy’9Á¼RþókæLŠÍI4²‹ÙvöàÈ({û û$û +ö—ìkì[ìÇÀdäåü\«æ6sWsoÊrO²Keûáú¡\-¿T~H~Dþù; +¹"W±X±RñbB‘K9„n+ó{ç1Ã*Yü +s߆_a&¸)F‡Ûðe,b +¹ÐñftšÙÇq-»»ÀŽoDKx¨cîg.@Jj5Xq)èáÙ«œ?Œs +îóSП&ÀًN `ú5”‰¾žÞ‚ŽaXT"}7ØÂn܄O‚ +mf¶2âβÐзØ×AoNƒíÇð +òŸ õL´m>ڏ¬¨ +äùÅ<AëÐÝì^´9P>×+ŽÿÊN Ç˜;˜}ÌÑôK +Bï‚ß[Ç]€÷&øý|äÁF߃µý˜y•Ù‡qrü ^kÈb• ÿ†Ìý(ÁŽ`ŽÙÍü7÷z©bÖ±ø¯\1 +Ñät5jÃÆJtßÁ|Œ½èv¼vÿügæhý7N3ÓìÍL7þþ7leÂx[„RÌ[x¬&€Þ“Ù°’©;’ƒ^f +c»ð½èUÙÙßqÍìˆÃßÇÌY–gp3[™žBAùǬ6õËôBÔÀ¤Ó·rêé÷;[ÑëéçÙB.Î-ýäØ'?eløV¶O֚þkj§ìj¦uÉþ¨˜F™ +à!~ +±èÊÇï3Nà»ZªS6î–O>aV!7óþíÀ7ƒu`'kÀs +B›ñ#€+ƒØTQàïÌðšÍìø™'Ðó íW€o71 +gºñjÄ@”àh<¸´á/\ +ìa%z¢é€²eßê×uµókæUWUV”ÅJKŠ‹¢‘‚p~^nN(ðû¼¼'۝år:ì6«Ål2fô:­F¡R*ä2Že0*hô/Úȏ‡6Žs!ÿâÅ +äÙ‡†øœ†ã<4-:gœßHÑøó1Àìú¦ b +³˜ØÀ× šÂ¾ÑϏ¿Òàç'ñºU­ßØàoãǧ(ÜLá[(¬Øë +|£½»ÇùÆñEÛºÇ76¹ÃêŒ +þ +‰ŒÂt8C +  q›ð0¶Õb +0¶Æêà +RjaQãNCã¸Ãß@V0Îãã+Wµ66¸¼Þ¶Â‚q¼°Ã¿i +ùŒëÃ-¤ÓŒËŽ+è4|Ù +ºž?\prì†IÚ´1¬éôwÆ×·Ž³ñ62Gfæm·]vÊ~î™ÛëbÇí=˜AF)Á,Ä¿’`àw$X†ìŒU‚娈Y$Á +ôÚ, +% +±Œ«Ðuª| ΐ]¨—`5ÒË%Xƒºô;$X+?Êl“` +Z¯ƒ*?ùì2TK0FzÃq f<³V‚YT™”`Y3#,CšÌF –#{f»+Pï, +%2e>%Á*´ÐüS Î`XŒ¬FU¶g$XƒJmI°–]—9"Á:±çÁJ0G¸®³o—`Ú/¢°Œ¶W‚Iûµ–þÛ_•`à¹ý +´=-Á¤ý÷V’vG©C»ÃDa•$_å+¢|EX”¯‹òaQ¾",ÊW„EùŠ°(_å+¢|EX”¯‹òaQ¾",ʗÀ„'Ž + +m_%Á¤½˜Â +„Žk— +å¹rÿ•sø¯œ³/åœ}iæàkæàkæÈE3#—5¡™¹ +ÅQԊ/®„،ȣÕòmÛL©$(ûa‘}›4[7ôo£x°Âc¢EâœÃ_À™Ém§: ZÔ#­Œ¬±žH{´õÒýuQîõ}.¿¤}Ž%æPÙ.Ñü¼ù:%ý‚zµmq՛$ÉôK”?OB9tWçsŠè^äs´â³3‹í„×Û¨NŽÀ}Ô"·“”Úð?œ;Bm³Ÿâ')¥ÑÏÈB”Óù–M¸#Κ¤t: µ‹îà«Èœ—t±Ÿz“~x:7/ñN”Ó¢µÆ©ßšã÷ +f±‡æè­¸¿á/åT/µížY ‰;9Go;•ÿ*͹ޮKҋs˜€+úÁÊqB¿{v?âºæj7ñ DDþ‹V5(énj–~Z‡¾hGçôc Ýûg%G8Lèo +ö¥=³›ZwP©öJCŸâ÷9Êd꥜#kØx¢÷ñ_Eú3ôD›$¶ºM’Æ9›¡÷Y9ŠÜw0L}ÀðçÚñŒÄâŸâu×?µÚs\þì + +R´Ù$=Í]‘¸¢AÕ³H¬‡ÖBy*Q +‘o‘x¸ÃS!D¤ýFdºkQ“„Y½ÅГà +T + +Œ*GeÇH!ԉ´†aeՐmD_äŠÀ>>mñ +Ôóý£8A jÛgõBŒÒ=’·%kj¡ûýƨÄý!ª§„*±Ð +)þ°$ƒeTz³@r›RˆÃç<ÛМœäœû¬¯ï¢¾HŒ_¬'b¾øYùÍå°È£~i¥ý³mCÔËl¦òí4vPËì§ÒÚ&E1¶‰<Ú6'·šáª¨EÛhÖ¾mÖ&º¨§œ› + +Hù´¨sŸ忚‰»[@5GÔëÙõ‹zÙ3럒Ÿá¸¨s³ +©“êȌG¡{ç\Ii +Ò +a„úə¬p%ìõ\|.˜Õøm-R4HҝöJZ×Må8㠇¤ÈFv—¤’9Ï~Èj‰Å“7Ïʃì›ð¥—Ò%L Í4RöP/.æÀ +T惴÷üx²z¤F‡$›>#òú"Àë¤3Œ¢™Ø}Οl¢c·Hk9ÔGcE +]&å¨Éó|ÑuñÄ4“± +œçC;©~œ'ÅÊqz˜CMÌ +©LFÏÃì”òòaŠ!Ê5òOF‚(ÅïêQ¸SO@Ö¥ÙüJ[´:Ñ?͞†"³#ÿwgÜN%1ãÿ7f™é‹~*âÏÒ^3:˜èŠw$øGù5Ý ¾y `šø +CƒCñខ~~°·#Â7ćã_‚%Äø–ÞҒä—ôø⪪¢B¸•DøúÞ^~uÏæîá$¿:‘L +mKt®ééK$ùå‰íüꁾxÿ#üš¡xg¢/>´ +èúÂÉø¡Äæžäpb(ÑÉ÷ôóÀº¶ +_æCüšf~EWW„÷wò‰Þdb{7 Ef(UjR~Ép¼·§£úÂÄP’/‰Tñ¹Í= +CɁ®á<ŠØyeK¡ˆÞ¼fùŠ5K-YX¿fɊåüŠEü²% +—·4òõ¬nlln\¾F›¡ÍXÓݓä‡g˜L`XèàÐÀ`bhx”ìqvÀ¼ÍCñÁîQºî +àÒH2ÁoåGFÈȎmt·#ý‰!Jvߗ$Dâ<¬(ÑèñÍC‰D_¢8·Á°îø¶?°i8ÞÓ#‡Ï[ +ÙÜöøP‚Oô±!¾³g(Ñ1Ü;Êw + +ô[×Ì5°9AQ¶æ¹qÀÿ¡žM#Ã@–9Ϙ»¡œäÌ¢ÉÈ,+f +ç·Å{Gâ›zaÙÉdbxî迶¿7‘LÒÍÓ]Àž$aÀÐä`¢£§«§ã³;灋ýÃ=ý›éØxggљx/?Du¯€4QÞÂ|ß^ToO_ÙLBñ¶ +mI‹j×¼ ÛAG6õö$»É<@Kdw_|”‡õƒ¨G ãÎqèü‰(?–tÛ\¼”ß:’HÒi:ú;CýÒ†¤uSäd÷ÀHo'èþ¶ +P_¢ŸÝ>ÁI&zÀ¾D‰¼Ù=²`‚áxÇð9“Å¥Uw}>YºäÙ +`6›3„`žøp5AXÛRÏò¹•±Š<¾¢¸²°(VT¤R­m‚Æ¢ââX +î¥|EyYUY•6£{xx°:ݾ}{¤oFð +}sm"Á7 +Å·^€Iâ€RËp +tc–?ԓ +è/à/ìé† +,‹uW•–Pe¢ž„*جÖwõ +%‡ùøà`".¹‚NjâmD×Å07р‰5~Š'àg÷'.VÔDû 440²¹”O챃æÀ&ÄÙn£ÞŠ,X´m w‘D×ȐèÀ6çæ˜üçH +¦[O¯}àeѧä́sD‘:G¨"$Éȕ‰¡ÁÄðHœºÂ•½Ôž +㠛ûˆµ +€$‡GA´ +Ýñ!¢„@m¸§#Ƀ¹QùÄ;ヒ%o&ûHìèHôö’ +÷BèØÔÓÛ +¸c`d°wÆN6 +@À€µ +ôÂª/êéL€ G’¢žlؒ¤ +ê‹oŽ_ +5)jÅPq,¢†vtŒˆ[$ÈñÞäEg0ؽ{¼|ùpÙkäA´{¸¯7Ú7L~íKn&¢} +"a(B:¿âÀí‰^¢‰_>„†d£\qԑÜHÉõj–~óÎ>‰0V‰€üìUÕ +}½=‚ +ìÂZ eʛP䰘#è÷Pއ’†Â!#ûÈÄîó|ŸÝ·à{€È]è6%4ž]Ü.³‹ÙÅ2žbÆNŸÄ¶ GWÉdú䑄³ +–¹'IÃ3ì5ØFæOŸdM— +“PEhuØBëPŽX{ƒbÅÓzÂ/b;JxØ2åMæÐ1V`½y0Ñ_T‡æ—<Í~\¨Z‰Žy„àúÒìIØçúN@xïH0Rj†G"‡žï³WKÆè]GÚ¢%Ò·êâ +©—¯*ñ‘ú‚æ +!±¨4*Aº Ä\ØJ‘&JJɘ‰üR#A­˜_b| +ÎG¥é3‚%8¿Ô +,»¸Ä +ÅJäÁüR +Ì?™N `a©¦:ZZrwð±à‰àKAN,‡Þ’ÊGu^ue5kڀàÑÜ`e{š½Š\(¨D‚Á£÷Å{vxµ§¨võ—# +ºíÝäB +@²x*6()˜ +òCrÆwðU£0ñƒ +_‰Ï^M¶´k"¯”V>”]Ù¯ý¯ +嵗òÚ8¯ÝÀkxm½×âJ¤Eó齈ÞÝ䎧ê›õHõ,žFÍHË +ÖZ‡±L„bžIÆ<ªƒJ9‘ý”§ÞÁÈQ¶C¯ +Ê(œT³ÈÑvŒŠ‰ÀŸ ?¾êïM„ò=“øq±:@hÖ[ÈnÉ(ü]”ƒP + ÏßBÅ´~PªïŸð÷°ûHU¯Â÷"?™&(¥“l›E »w¢xÈSŸ‰·Àœ¤¹(Z#¨©ë¤aþ‰ìozžÆ^”͐Gt44ꙆñÁ ÏßK'•xÂó?IæÀ„çÐ$†§?@ß=žSÅð$¨=ÿU|ÊóŸÅûµÀz ZQJ—‡a“ç‚â͞E¡ž +ůxjý—xª=Ðþ„§*pÊSá§sEütx~6lV’ç?àÉ)>àY[ñ4~)ð”°QìRlUô(ºM +AQ©(W*| +¯Â¬4* +JR£ÌP*•r%§d”HižL¿)„Éo¿Ìr©ä +¹s60ˆþý© +ƒ• +ZŠÆMlÓÔ²`¼"Ü4©H¯ +¯ +7«V^Üzã›ÚpÓøÉÔ´‰ÿ¨Å?‰3V­—ùàqcjZ³ÀÈãÌÞIŒÖ´Nâ4q­‹üDb®½ÑEê¶kolkCÖmuö:cmfÕ¢†Ï¹m”îás{øüÝ=~GSKëøcî¶ñ¤ÝmMã´ðë[3;™ËŽ3Wª­õ8^Äìl\MÚñ¢†¶Y4P¨+ +”ú +mÊ&h Ý»(Ú%"šFZTíä¡h +üA5#x‡x{<‡D(ÎnPÄ RœÓspdtšâœ–èt6ŠJq€  +öápÀG»Wëö‹Ý;Å»ÿ\w©Øý˜Øýt‡ÿ—>‰_†ÑØÓ²7­l=¬D +Ú®k«a°–êAæ±ù»]'pû:R‡ÛÆ3ü +ÆÕþ¨®Î +6Ôàh»\3.‡6‚>Ïk¿Òu‚CÀr‚®f­ÔUX_XOº@I—Žü¼\ê²_9Ï +“<"u 9&=Ž´€^ni +Ïß•¿¡ +Ù{àŸT%á322’L +µ4Ï_µ®õp(Ô8îØØÐn´÷4 +ÁþQÓx> +ª#ƒŠÆq%“a:. + + MÀO†Å6ŠŠÂÉÙvLè& •0–N¦ß8’E£î±p©=.=žþ€½ê°±” ·áä0 +´D +I‘*±pú£Nù£Õ +eðÇrÅ$Ó%˜Œû˜E +îcŒ +J¹ìcÈ<ñÒ#ªoýäòQÍtÍrٚæéT°á,܊‹¼™ÞÌ ÜÀ™ ³<{ò¬ CŸÀÑà$äŒN¥± +Ef4Èl~¿N‡wé°.ó +F +sìIT«vXú>´‡p󻧦P´}ë”á¥â"EyEyY,'Ê •ÅÊKK¬³\aiŠä\«˜—›Wwõoùb¹A£^Y¤Ê´†k”´=QŒ‡m”u#7:&xoV^§¾OyGÆAåͳÊšWþ»=ã}öOܟ­ïÛ8µÆý +þ6r ގ²p¥`q³6;g•1³‰5ÊYgå°z’aê€^氟Fä—yÏ26`âßP6’C8r3̄Ñé9?Âï#²“šOM>:L2L×ÔMŸ2Úªp&Üà_dê]d˜Æ†—˙ +kZ•žUs +ÖÅq¨½­¸µãv¯· +™`ï!¿O‘S.n]!WÀL%å¥ÌsÓí +÷Póî®/ö—>?tÕ¸§èªçSÇñšÕ—ÚrƒøyŒ·_Ý}õ +ÃU7¾²µiäëo¤~ßP2O߇·Q¶ùP]¸Šµ +gg½J_†_ +Phü8ê¯ó¯ðoðø¯ôßä¿Çÿ”ÿmþ#^-óÊü²@‘·ÔWht7úÖúúܝ¾®À6óˆïß/,¿ôþÚÿ«€)ä+2YŠÝ\ +*pE³¢n.GpTÇB‚©:f +úæ€ßoñú||†QíÎp{½“ŒKXêóf»Ý*¬t«²,.w–ßbñ{}f¯×ç7ú-ÆlˆV}‚æ ßdRùëÎÊÊÈP)Y_¦ñ!¿×bpÆP‘[ȹD] +³L² +žô_é +®˜Ojƒ¬¿ö"-HjA“x Å‚¡:¦ÇQ¼³x’]~,t½ß‡øì:öbdØp¦=|& +þ( +>s:ÜN$˜i¬j'b +«®ÆX`.Vî4<µ=Ì`G†)l89{W¾;û¤Ðj2CM¢,̹½½ +µ£­x+få³Íj-Ux+JK*@û+*¼ +94ZmÐT^^kôržÍJ½©¾Y=ý'µ­>ÏmPgRWŒEí±uj@½të ›ÿíÔv¼V¶å“»V8r-î¬`0ËTàI +|ª®ÂÎG˜`m¿‹[ž:2ýGrXJ¿%{t"Ý,† +ê +†õòÍêáŒmêíÙ×î0?s=ªÑ>d|ÑÈÈõ˜™Ä͂J¸UYšÃ³–IÆôdf§] +ÿÙì f/ÆNäì%|>j®BgÈqA0f 4ŲsÕþ,œ•ÈMì¤öÞ +7ÿq:ð ”辜óûàŒÒm’=˜p²Àâþ +G®;_yzòú×Û£ý©3O=”F×½‡÷¿Úqy¹Ý +ȗmI-鯹¤1gÓÎSOÿà +?_qÕ¡ï^öëoàï|5›£à©~ +Q/[†*ð£ÂC‚㨃¹Öq»ã»vOÖu9wdÝYø°ë᧸cÆcYOflÎږu +‚‰Y¿ÄÁ– +®*Îg©røL–Z§ +ëõë +¤(Ðé6(Ý +w”<«¨ø~Ô +‘/f˜¸Ì-w]c³}àt»¸\ +» +Á +Š ++"LD§×[ +[Ä­ +Tæù£ +Áo¬‹*°"ëQ—`³Ç\Àã'ÝÄ\·Fn-X°:³bû +ß/d +UÌc8ª{Lÿ(ºÛp‚Å(È6 +5ê8@ðÔf[, dVí&Ï8ùD¥*` +TfœÀI\MÕ¾&,‰gëB’öÀf²2ë`ìî#!›XçÚiýD!< +öª°pšOMŸ:súÌipíáæ3gÃáSÑöð)B, nªL¦fÊ0ELFvÎRÚ©WüŸWÑ +¤³ð1‰ +$R³ +¡jÁú‰· +ùý¢ •Š^jCå¢+õWx)ZÄ?sç½»ö^V¼>×蟿骫MŽÌ† +Ïý¹=¸û“w´Ë]¹FW𽬲f‹†ý÷5A +ÓW_ô¸Œ~§e0e®-Ç +©ºzŸÓ¬;Úd4Ƭ¼«Ù’ŽX( +L +xÊ»‘$Ò7¥ß”½ +¶UŽž–™@ùÚ*sUñ’âuÆ.Ï°jX;š¿-|æÏè˜ê„å7¿ÊÍty³Ü.§Ñáv•0jcff¶Ïköeê}^—Ó +êÃ0“,„#Eié­åQV×T¹ˆÍI¦W¾= +m¨©Áîôy0k +±½¼DEb=5:bs†ˆÍyÔ¼;} +He2ÖÃSÕy + + +·‡±Èe?ÏÊ3ÍFÂbe'á,¸)0SV.ódÀ<í³úÃDHõø]©—^¸ÿ‡?.i[×aqæ_’¥fb͋ +™¡Î}´ÿ*õÑ®oü?_;òÂ×G¢V‡? +lumS`ӝ©ß½úÏï§Þ5zpûâpÀäÎÉÁ¾<××RÎËy«® +Çó[wQ‘ÉV@¢ÛÏ º} +ì7Ø1a§ÒªÊ©É_Œ–å/ +¯C—¢ËÑvÏhá +ò{ +Ë?n{6ÿÙHæCò£ +FžeÍÚWȲ9ÅŜƤukÔ\†[í4ƒB¾ ;TÌqÙ&³Ùd2CèÊFØ +’õâ¼hęÈädBZ”>’þ˜JrÍ&CÁ 8‚gƒÑäƲIÀÉÊk“ +jl{b°—ÿ‚#†ifLÇL‚Q]g’¬‹Ô‚ +ÌË$è +µ&¯Œ¤Þý$ؚ©Þ^Eڞ0V™À‚i7Ìb’f¡]0Ën6Ë.Q™l¦’ +?žaŸûP›]nh‡ š!Z*†H7åH3LR›Ṏ́9Ù焹Ùû +CÍÎçÅ\¦ÝËÊsD³¤QìœE**¼bNg²B&Ê"¦½!åkc +k +7{; +¯P^®ŠìS^—]὚{t÷n/}=®9¤;¤?hønäÑèqü}ÍÓºg +G"ODÏD²­‘UꕚíÅ +k¢r¹Ùf^ªY¬[j¸&"×j#œ"× +¡SÈÈí´øß÷z-,óŽ@~^™ŠÒX +© +acÆA¾¨¨ˆ)Ôcþ½>~¯¬ý˜Çû¦—ñ‚Ð'LU¤:)©—/'õÖyw{Y¯s~ø Qˆ”_1º‰cûћpÜ'‘`+C'p9ªÁå‡wJ^¢ä°SgÂSԗÏ>·U º¡zŠTÄˆˆ{ÓLÆf*•"¶èn¥ +4À*úÉaû} +%ÇAü²O¡ô)Ýxõ^Oô厬È/ +ª,ñ¬®–ë2ÝùY¡n÷ÀÕÝ_kÁáÖ¾—Gkº‡rœó¼ +ü·%Eû>ØÓPÙò³ÎâUm7ýX-÷Ù6»8U[ +½ç²•‹v¥ÞzðâÍ?¸ÔÖ¯ùß +‘¾< +‡?KlOë3T +Ób“Óì6ՙn£ŒÝËð{½ŒË1~ŠU¢ +ä%3³Êk@EhðŽU +—!C­ÎvºÌN§K••Žø>ÁŒï31&£ÒéËuÔ?7:‰l@”´GÄڟ'ÖÙ<­µÝÛåÜï<äd“Lö“>•Óæôel>Î.‰Ê¢(ÂaËǜ‚YSGNتDzFúø¤ÑTëJ +uRLž +‹Á·&\Ws– +HjjfÂoø2ÃíØ + +èM*Ãb§ +ÓUçûpÿa<?ý~LÅ;“¨Bb +’”+ü¸€“„L +¾·¤Î” +«"šé µsy¾;š +«FnnÍ +ʖ¥îZQ»$˜uvÝx^¨8td¶ÝÂ>W3ÔrùMú-ùÕ —Ür +yàh«7ÕÊàˆ+ôp»ÿ¨æ˜ö)+×"[íIj¯õsʈ2Zeœ—é²Â9 +–3nìâ!z¢Â7¢\®Reçšóó +yœ'Ìf£Ñ +aÜ6C¦ސðˌùÆÒÜÂ|³Á·×(€Û5RGí¨%µ Í¬*2 +ƕFÖ`ÄƧÙåH>;xî(˧²ËÑ:\HkÁX\ +ãóqþŽRU¾ÍhÚ“lÝá*?àŒ1X@8ÔãžÄ™ÄåN‰N÷ïÃ¥ÇJeJ¥ÒZagˈ,ÒWÕ +Ž¢˜@n°Z›Íj·Ël6{nnN^žU.—)@ËÊT¹¹yååe9Xú ·ÜúH$ÝzDþp»„Žª:7Ò©´n×뽨æ¸ +«Êsƒ6¹¼^À&—!_(5ÏlµæÉ*rrüv™f¬(ËsØ­*™²^@ +ä +>êú" + Uà˜}^½Nyÿ‰q€Í‚ÑÕÔ7YSƒ£gNQ™ÐDÀ{t;Eƒ|ÏõÌdğõ‡Ÿm:©0(k”5{ +ʝÏ랧€x¯Q>?“&C¦é6YmٌƒÁŒYL5á\XÆlhF Ù$¡ +r8þ‰:þõ©:t!{ђ¥êéwÕ«.ç†ÔۍêlÝ©ùêµå+®Çc½ÅK.ÎÀÐ,Œ:ìëye4ÓäZ +š¡k»6uWêöXߢj +A:ËÌgmÀkSÏnÈ6ff›”ª`Pé‰Þ€oÀ{Ž¶ÈƒÁL¿ÕޚšøŕÍ.‹MkdÁ7L‚®\ºR„w +GЈLUZ¬g4¬F¡Qê5z­^§Õ öÅ +Ê´7èõûñ~f?»_¾_±_yÆ~õ~Í~í~Ý~ým&m y1¡ô=Æ?TøsÄ|,"¿—=À> b÷á1öŽ»÷à>†UêUn¥Óër;s‹òܹ +,w+ +™v·#Çrçx3 +ˆó9s +¤‹¯,ô!¿Ao6ô¨¨¡lŸß +Žá"¿ +s%ÅE~Ì*|>GnŽRÁ8 +JT2É|ý ƒ*óç>•½«!z3× *oq®ÏàõÓ3YHôþ8J +9†Díy< +å´#j +#Úå€,mFƒ”{$§A¹Zž£`_|ÝÊD +vÔ>ëBðÐÖ0Æ3NCN/úÖÂz^r'鑜¾»°1/c¦3œÈÀ)km´-u´3hs‡–gL¿ Y›Uhõ¶=§~UþPs‰Öšåf~†{ṉºA”*=Ÿyª{[²kþ*Kàaq×þ†‚¾Ý°û¦×]¬U4*ƒûb{w_8¯xeӁ†âÑK÷ãø¥k„¥CY5kS{V<ø«·Ö.#º'€îmÝs¢ J åzƒ:h7؃ +R”Œ±E¹JÅäªòƒ•ªyًK”KT‹3.V^dX¼û÷]Ó÷DАCd9?T¦òeeÖ)}•*UJ•Ì +”* +Æ\‚2£Vër»¢.ÖåRûF +,G­æ«õ +±8sІü˜Á¦UÐíÎ]Y§€Ð~ +Ö9BáçfÞ· +›ÿçI蛧H²1n£=s<‡óÖ¸ +ÔÆ$+o?µG6çu3É +ìuØHíëéðYü!™œ>XÙÌ +æ¦ñ°¬ròEï«lÃD´‚ +Û5U( Ã'LæZ³ÏT%ž°Qúҁ•K6Ta›Ig¾˜Ý?$ýôQQÆ´¥Þ~âåö"!ë2[¦çJoô"_0êOZ +fw°¡Í¾7ß%܁—øà +cÐ"»él6 +]P±à’Tû2¥Î¨-Xn*ÛU + +ìÀ·4 +Ívkþç·‹Z^áv\á̕³9ä-Ovj)û#°4?9%Mkñšû5kžÖʪ,Mh‘n‘eqþZyB7¢u +Ì=®|:ïxþKNÝBßJt¡Ž-B1Ÿ€X¬ +—ètÈê´Y-:s‘ÅßG·‡]®¯Èߌ8ÂÈ +ûFÁܹùu +ñœ +d¨a”Þ‰¥¹.'yÛsR€¨#e +"ñ<±Ê¡•`áË‚§l + +Š•ŠAÅŠ“´N°óbÃG]~ÿ$=³•”9‰ó§ç@c<¸Ü±÷Øå( +3 9CT¾PÔI?.{Ç +5LMG +é½ÍVDDú>BrÃĺ‰vTDý8ïMN%5ôm +¦¯T±Bú ‘9•?ýF¢¼|Vòe&r|`ECVàû´µ]™ºç½’æ¢%V[¬Y•ÊËh¯LÛ<¼;Ö_Ûëݼº~Iqï«Åì¾Ó»»nÜú»T•5+•Zf³z2ƒA®rÛÛbve+r¦MK«‡nÿqÇʵ?Dl<Lªiç¡ÿêÐU/”Ux-{‰ê’ŒÕy±õÙ¿ëT]ë¼Ý™³û¸»9&ÛãÁ¨Ñû§Ü¼"Ԍ3Ïxìj±vï|æ \Ž¹< +Þkæy/ïÉÈõò†"• Z©bU'ü +f"ï%žH#b«â +Øü/”ñBŠŠ‡‡†,w +ññûùgùÿàßçÓ¼ +œÂÞcaÞV²Lüúh«5OMŸj'2ª«™1_Q:Ќiˆ$’Dc¤ôú, +6Y1ª'J_“䜳?bÒkXŸb3n»åÐÍ«J½!Ÿ½Ðæå +R©w–µÄó³óåüÝÇy½Ùk©dWU¦œ8¼½!'¸ ¦0Ûc’+•:aÓ} +Z†lW2}½£Æ Òï0o÷‹Ð“B c›Ïe¨Sª9½]mÑWçÈrÕ~ýÝ,Åuxހ9<‰9!#ò"*RÈy +Ç$>&Ä,/Úmjw S͌¡1yÙ²cü’®ú?ø7ùxv3ðï$Ïñ(«C·;Ç +/Ú ÛM±2»PÅë‹=`?igìWŸÀ +¸’a8 + +Iþq† +¢§Á +NÑhVsjJ¼·Sm#ò +RHzÍd³’÷L~å”ßTj•ÞOEéåñsÌÛóƒ²îæÚ%îâ¯-{üšÅ—x +¶àü |¨cY›!ëH鍼S·93ìf÷¥^¹î²†"oMùM·Ýú4Üpוkks}5¿¸´,~ŒÍ‰‚_<ìâ®BÙX~ +É ¿Üª¯Ò +úªïÈÞg>ѱk]cè#ÌÜÕèb +«çÝ<³ +‰ÉF:81È +äÎÊvag–;Û.spX >Ëáà8ö6ôƒå&5R(<à^­V‡Õ“ë°˜%zÖÃ2i³½<:¤ÐéN`Œ ++hŒV¡¼*vÒúVÆ:‰ç  +°Å“±}ٜ·K$4è­B®¹ÎJò+ñJ4(@®g8E4Zú6gæ +„àù4}oAÏHLù¨Ëààkx‰&í[Å×l©Â?'®Ìdn&?q2Œmùý™÷ +Ì2¨ +yöïúՕU•üÃwfôߺŽ»*õAÝôƬL£ß¼Ùq]E¨"\>À,ÌÉÞ~Ñק!#¸ôuV + +Z¢j +¤ÈGóq­YqùñR× +xŸãÛøQÇcùÌ?TgX,Ê +¶oÒû’ã'^™Ê¯É_íg9‡ÓÉäç‡k +Ú!×ëcœNO®`ÎÍjóù™e +ƽˆ2IÂï±Tgd EًU9‘HHÍå;j½cû}?õ1¾—´Ì©Æø$@žàüZ.q?nÇ©Za^S¬Vp—ÕÖ^ÀkíÍÚCZNë\\â¸`›¿A2µS†Ó퐚A@tüô”A|íJß»’¯Iáf835ó"A'~1¦Pjf3kòåXfr4#|=ç@$ïa²Î@NˆeÄZ²ñÅ +¸êññæb‡1¯Õß²»Ã¥ú¬€‚Ý[{áj“SkɪÈñ×Å+B•^˂û.™_•ëµð|À©Ó˜¢ßrÔÊlKÛ²Ù}±XàîkŠ.2dD¼!CeȊݞzd +ÇYjܶ¼ .ç¥þ²¼Äm +z +x›!t¶ò¿uõåL€Hvcj{ +H¶›„‹ï-ÆÅöê2•ÃéÈsÌw<Ä +eN8æN–¼È¾ÈýØñc§v‰«ÍÕãb¹â¢hTæg;‹™ +ùOx†s³\Jo±L®Pª2Ô¥+«|ь—Â9Ùzï$>)Tg +jcLŸéÉd2s5#6H©ën±=`cVÚvÛÆm,o+‚6Ö¶¤ºrɳ¸®bEņ +¶b’õ +ZîÅÄjŠ‰ÕÓÃY0/vKñÅï³+‹w3|qQ±PÌO2YGªJÞ ?ªi_BMÌ + +h¨8 +ê¦ß­«93 +ş +П + cý"Î=_#z9<„á@jßàÑ$‡F¼ +RH$ÑÁI§¦ò +–J57ùœÚ‚š¡ŠUÅj¹n^NQ  ¶7õòoï¼5æ‰Ö‡ÌZ¥I)SÈõK6F*u• +,å*v_uâ)óâû–]½’7dªu¦Ro^ÉaÅORë?>Ðõä*YT)Ëð-ÝTË\vƒ<(þ·çb_xõϹþþEÃÁµÙG~«Ëõ|Þ%»R~¥b©r¹T­=ç_ê‡ÅK'—výù—®E×¢7ê.¯Ì‹Œÿºþuýëú×õ¯ë_×ÿÿ.é¿àŠimÿÛ´Ø EŽ¾ôÃ΁õôn9!çï\”®¡¬¼¢¡y5Òc”Å5I-hí +A}ñú/Ÿûÿ“‡~Aï +áÏ£é4Üyr'ö€ÎgÀ܏~lù8â‡üBPr¡ä.F*G¨’ÂóPͧz¤z1½7}ª·ÊZt!ºHz¾­§kGøòÓí¯øQžÿøú }^ƒ¨;H^ +³f +ù;®¤ßý¼Læÿ_—ÿJßOŠìB4F +À¯’"û7tÓW-€ÿs ¥ã’èfxþÍLö +Ð6ù +¡¢¹ +½ 3žó¾¸¤=¤°n”ϺÓï1UhÍÜÂޘ>žnGÿXçʆ9½ùðø¡ô5* +¢0¿í™|†ÔÇ^z,ï¬lúåGÊ"‚jF–ÿۇ: + +endstream +endobj +163 0 obj +<> +endobj +164 0 obj +<> +stream +xœ]‘Ánƒ0Dïþ +ÿb;•/é%‡FUÛ f‰|ˆ± +rÈßwvIzèaV<<;2Cs8¾sZuóY—øM«žSž*ݖ{¤ÏtIYµžR\Ÿ$3^Ç¢šÃÇX~ + +4 +4o|¯Ô|u^Þ´ÛN\&º•1R +ó +Ô`Læ9(ÊÓ¿£Önçùií`eƒ ŒAŒÀ¾ +"c0Õ°kƒÈL`DÀžÑÐ2ú z EŒ•SËQv|Ü +R$;Nv0:1;Žr0³€lö¸¯—;{¾³G²ß r²‡ÑK2ž¸‚×·r\ë«E +ïµR^¥{é–;M™þ~OY +oiHýmî~À +endstream +endobj +165 0 obj +<> +endobj +166 0 obj +<> +stream +xœÕ8 +T[Ǖwæ=é ÄG0֓ˆ€Æ`>a$°MÀ°-ùÈ +±ñ‡úSŽ‡Äm³q>›OSçëMóÀu*;‰MR§Éž&ٜ&ñÙmÝlœ8N6-­OKœ¸6ÒÞyRˆ¤IO³g·;W3sóæΝ;?€Ø +4-hq‚’R>ÅbqG¯¯?L'ËdnǦ1ûÔå½È8 âWõ¯îý8ÿÔMˆ¿ƒY¿ºgpUXßèP¿Ùå÷u¾øär?@Z2‹»¡Ïåvh/ ÞÕ;°%¬ŸÚ„ßÿ´§¯Ã¦Í9Hïîõm駜êQ]2Åu¾^ԁ%EHc¦?éïÛ0ÖO›Ëäýëýý;ôÏc1縛T+ @uX0Oãî€T€ÐÙH>ô†ÆUkA +® ÉÔcëŸFr8ù VḂàœ ÙÐc¡×¡%tn€5z0A:”‘>PC"¬†ûɘõør¨ƒ[`=– +‘ÿ ™ZX½ß÷ x +þ’ñ‹ypšä“Ð3P-hÃV8o«æ¨n +xø>< +Ãóð>É#‡ÈGÜBGC¯„~‡­² Ša´#ü~„zÂ/©Äý8”Úz,ô2LCë㨟‡±¯‹D$‹I}„ +þ%´.tý6£õÕ8šF€‡Qó4\&Q»©H«hGÐJ, ‚ +í[½°öÁ~ +Å=ð<’*ÒE^% 1t'=©j +ƨ““o +êB±h°¢µK`-lÁ–?€ØòGØ×)„ +0IŠI9©$óH3¹|¥vúz™‹åô\çåÚ¸mÜ»Ü%jrAð`ðõPSh +ú’ Ïµ8“58ÎVXý°6Ã6Œö}pa½wAFžDø9üÞC8Âï %* +£–d#ä#”'™O‘Éj² +$O“9A^$‘ ZD‹i)]@›éjÚOè0•é=IÏÑ?£•eœ›ÛÀ}—;̽À½ÌýŠû5ü|ÞÇwóù;x™‹¿ÀOðA¨$„<•OõàäCÁúಐ-T +jí +#|ˆ>žŽ£±A&Ž§ gµVaäô#܄0ˆ¾Û‹#ºîGß1ï= +x£ôœß_Àëðk +ßoá]ø.¡sØø‰•ä’ôïõ¤a)ÎÓ&²ì$È=èçraŒœÁQq„‹©—®¤›è6ºŸ +¤÷ÒctŒžÆ™qjœ 3WÇÕsK¸eÜJn€»“»‹»›»Ÿ{€ +pcÜ/xʗñMüz~?Ì?Ä?Å¿Ä¿ÁŸQå«ÊUC²ê¨ê9Õyuœ:U]¤nQµfPó&Gà%£ð +Dö'É +Ïí¤¯PÕÑÓd7ÿo$g ‚€ê¬ƒ?¡ +iäW´„,á:ÈRôßn²Š,ƒû¸iÜCÜ|xEµŽ´pM¤ZøƒpEõsð©†è(GUCÜ$¹DC + k'yI,´CôŒ˜íPY| +œ¦¥ü1’A³èIá'$•‚š+åÊ4z¤q-=ù|Ü»¸~ÎâÚj¦àžpžœ u“ÜS¨³ +*É¡  +Wyi™F‘&÷Lþ;woè’Lߘ4NVÓŒ¸E¡'è ø# + +^â߁ô7°weåü ×ÞfÜiÃë©÷‘~gUUåõåe¥³KfÍ,,Èwäåæس³®Ë´e¤K3¬¢ezڴԔds’)1!>ÎhÐÇÆDë´QA­â9J Ç-Õ¶‰²­MæmÒܹ¹Œ–|Èð]Åh“EdÕ^«#‹mŠšx­¦5W}AÓÖtNiƒX¹9¢[åW]’ Kzß¢<®à +ÎÛ" «[ˆns—K”I›è–k7u +¹Û\ø½¶Fªñkss`D«CT‡˜œ$õ¤J¢ 4É]6BAƒVÉ)’Ë-'K.f‚Ìe¸}rÓBÛ•jµzssdRÓ!µË ͑õvEj”ndu,(݈Ýl8p«8’36t[ÀímöèN©Ó·Ü#s>/ëÃhÇ~]rÒwΙ?'ñãq5ž›¯–¦rCns·ÈÈ¡¡›EùÁ +ž«¥VVz½ø +lK3jۆj±ëÛЋõ-"öF÷z=2ً]Šl$lTáñù%7ã´­å(iŽÔ5´¦ +ç&eH†æAëhJŠóXè +Hq‹C­ +É*W¥J^ŸkÚH +5 +IvŠÉ×JrsF +Æ°cGbõ$:æjÄ?%S0EaõÍSž%Ì"i +F„,vˆh‰GÂ1Íf +6 +uÌF5L^‚­äNœ‘n9ª¦mÈPÆø¬½¬Ê0HâÐǀ ÿþZŽ/ÂQg>†²8™Š5”†Ëv»œÍBD¨Á9E+zVnΦ­–ú +"Vè>hBßú¼et¿ÕÊ&øրڑw.ô„iÚSGÁé°{eÚÆ$cŸI1ÉÎÏ$SÍÛ$ŒäŸ»›%ÊÛÔOo0Å»»Êdbú±?,¯o‘ê.õˆî¡¶ˆoë[¯¡ÂòÙS²&Ç×x¸TÁh*§H1(—O)3Â-óøS+AÝ4• +‡ˆµ²¡mn¸ôj­Ö¿±Q tµRªÏ›E̔Ëì×Òå×Ðט=Ä¡Á¼Ö·. +Ò^-æ4.X‰åâàá+yšōW§ + +g +OV•BS0€œˆ«ô +mD‹¥ïDpôH +q +ñ\ø}(> +© üK'0<Á)Ē—#8‡üÓœG|"‚«a:k +ì÷¯òuøÅÇÅÖ.¿Øз®oYbMßúþ¾õ¾î¾ubOGžèò +ø¾AÉÁ>&¶ôõldœ +â¼uØ® ´4?‹Â<±º§Glî^Ý5°Alöoð¯ßäＡº®±±ÖÞ2ØÛÞ×ÓÐúõ$ÞºñvâÇ{ŠO)?ÞÇ܊g*àÏÀ>¼U†µD¼©õ፸_)}ÈïV4Däô`û<Ä\ +ß÷-¿ä˜²LÄs²y§t6 o +Öáþ + !ïëa¬PáVc‹ +¬›±Íj´a@iՌßۀy=l²Oüj¼Ý7"Ô*7ãA¼·+½5`ÿL{5öۃö­ÿÝo# +êDˆ£™6jƒ>b¸»Q)(e•R:XI +£‹%@óFdUÎhZVéNÝÙKAfœ¥"“ÑIÎòž,Ë;O$[Îb>œYhÙWQhكفyÒL/ó‰,K_f_oß÷únæKÀdÂЏ3jœòÞӋ¢¢J†䤳T~N>" +¯†; +á%Âp­0\, +ç Ãva8CN4qƒ&V­Ñj4µ†×P +h¡wœv¶ôÔV©yVò +n ¬¤á•I‰†â‹MŽçêi}Ë +y¶½> „šå{½,4-óŒrÀ‹\™î +hõHˆ±ö¦²“øÚ»?5R{½¤^ +ë€úvQ¾Ø"ˆ7•4‡ÈqõPß:Ç +¦MU檸Jci­ë+Š¶Hiÿ<™íW§ú¦ÁgÁB6²8"X~(0n +r‡î0ã+\sš|g}‹G~"Í+2$”æ%Gª:·²³½Mrû1·É·nê2Ë;ÛEqÄy4rèÛÚÚ;ºXíóËG%¿KvJ.q¤zëWˆ·2qµä­îVÏÈV§ß5Zí¬vK>—÷4’ö‘ì×twËgÝ +ƒlÒþå/H;ûd6ë±ñÀWôx€‰YXXÎF¥GwwË +RßäÑÀ +/ +(J}„ê´8Um©Vï +“¡¿R™·r«yGêq +Èc Ãó5ïj1˜™(·:·š‰0`˜(–]ã""óŽrkêqòXDd@¶Qšöö/¤ +,ÙÝíb-9£;Gã, +v¯rj°­_Ŏ'­Ü9]-t OÅwp U«:8Ž¦D |dMÖl³½Ñ0QÑ0YÑh¸XÑ`˜¬€ªŠÉ +– +ò­F«1 +Œm¸"rcWœ*¸ +"?¦Ä7ð²j-b*t^Çã]•Kh!”çx— 4máÿK¤ +“Ðð-”{†²?LT´õir#܎­“ Z<9JÞR§½t +˜í†‹ÉçV˜ +ã +Ð +4ª*%yüfUžÙ®Ùn85 +  +Ö(Ž—/7ÑÒ¼)8Wµö/p/])UV_è,¾€ñ~ +ÒÐÌ{gR¿2ð¹¡5é +‹J +3DàR² +ñ±%ïWÆÈt§Y˜^—’Q—R˜•åˆ/Ga¥Î””b +ó¨n¸,@jœºjÎaªËqT'»ÜH±fwáBjœh˜œ7Lž;×èö»ÎCUÃxÕ¸±Ô1~ÎpŽÃWjŒKÂ\ZJROVÄÛl³ŠJŠgšð ¤–fØ2mÒ +ubB’if¡ÂNL +á*LSl]|ySSãš'W*/šQ2ϜYºtMNNî™Ó얘¸\mR‘µumŸ§.7%->ZLÏ.[°aôÙ_ö’ßåtºWT.Êo˜a™y»!¥{©Çáà“^¯‰á„uK»7ړE‹evwYË#þ¹»™?ƒµøÆ~÷ùÎŠl.+³”+Í\À5ðó„ù™ó²ù­šAÓ>Í-¦»5w™ +øË2%ª§‘,“†3¤½Ÿ¼W@mÐÇ;tÇÉ12 +=¬ŽHÉù²ìˆµq[x +NLN(k9±‚åô*úu" +VèNæÚ Å±7ÇæÙٞ‹{Š²¥#º«˜ +Râ +Œ2 +¸XÊ +iÃÕ™É +i–²b“¦Ó$#}±ae­)~eŸ­Þž˜–®O²‹»oõöî{¥Ð6Í8cZœ£ÕRÞY›à^¹€»ãÊ>}ó©Ð÷­zSÏ÷?ên¸Å­en5Þ»yéä]]ñ1Vc;G>y¹Åȱÿ“ˆwØX˜éŒŽ‚ØQ5pìQ2ã$ë +¬¶6ïl>SÛ.\/ÆøbeÊZ8KLL¼Ûžž­¹~¿{ݎœª’ë,æTÛ®à°;~è=u¼:H Jœ1©zΚUÀexÌÓtÆhtA +V?ƒurºÿ6åÔhg +=ŽIÅËù% ‘E‰Ýªþ +þvu^^5Ëôð—±Guµƒ¡_¨ñÈ(ü +=ß®7r˜­øZxïjà’ÿXó‘÷høU™À"| +fõÿ +ýrš›¹|~CÇöoVüÿšx|™±’gþ¹` + +°YÉ^XÎ +LXŽï€|Ùmg:d8òÂÿ[’æZò\]ÈüÀ¿ +«ÿaóûò¹=0OÉóqgdþ +pÿ½Yµ + +-“¿ÀàÿFÆÐ8^‹_“X|Н0"?uüF}Åǚ´p@ýxî³å¬ +½áͳ¡P°RóF‡¤î³xúoU+ýÜ +endstream +endobj +167 0 obj +<> +endobj +168 0 obj +<> +endobj +169 0 obj +<> +stream +xœí½{|”Ź8>3ïÞ¯ïn²÷löÝk.›lî !ِ‹ÜA@ ’’Û†Bî «àÁ¶bmEÔÖKÕzi˲ +¨•£ +µj´¶•V«X©ÕV”sŠ´U²û{fÞMê)=ßßù|¿ÿ¸¯3óÌÌ33Ï<·yæÝ +"ŒÒ¢mˆCMËVä"öÿd—uljë›_BŸìZ¯{ÿ$4¼‰BÑ5°~SlÁ&£€6éñõ½ã]"~ð³Þu + +,YŠÐU7@ci74¤HŒgÒ=u_÷¦‘+Eü-˜¿µ·¿£M¬oˆQæMmWèžJ©üÐ(ôµmŠd¼™þBzZ5 +ôˆøWu҆¡ÈÀÆ]ˏ"”gEÈ•~ +¹¤KXJ㾃 +%ށ´&ޏ/Jœ“nDÞø†Ä .V÷‰)ùñ£½î@Ï ô +áP=¡ÕH‚­È†.G‹1,HŠU(yÑbԄLhú#Ö¢½¨ý7 k±-C÷ ZŠÌ¨݆î×$>@×¢×pz +F?‚Ã(-Á +o£å¨)ñ¬Ð\´Ý +uÈ=*ìM¼3 +£íè0ú +J 5èNé}0Kºõ%ž@kÑ/ð|E" +-D}èt'º=Nâ›ñ‰4ъJP;Ârœ‚3¹ë 9ÒãʉçÇø÷ì’ ¤!ñ +£÷%8Ñ +š‚ŠàéC ƒèMlÅ%\-Ò¡bX«} +íå2Æhìí0¾ +ïåt‰a7e¨mE'ð•øqKKO'¶ #ì¯(݉ +Dÿ†žCÙðJnS¼:±a¤@AT+݀nB?Î= +ÏóXÝx!Ìüoø-ü×ǽ3ÿBgÑßq&îÁאjr´pêÚÄ€ +†aŽ +èrԋ~„8Œ¯€±÷Í䲕;Ƚ)ɔ|œ˜“xÉP +à^‡ +ƒ}ýz +½òjÀø7änBzSâ* 7uÃ.n@¡Cè,ÅJ¬Á©XÀE¸ +vv>‚ß!Nâ%«¹vn¯ô‰ñÄ7‘t¥E`ät=º=Ž¢? ¿ SØ#ó`d5nÂßÄ·âçÉQîrn-w‡$,¹Cò¸äYÉ9©AúlüñÀu:O>j„§u¡-ÀëIxžC¿Ã +vàt˜i +^3­Ã]øëxþ.þ~Ä/âcøü1þ±’oï'É¿“£äçä²¹:î^îU‰[ò;Égò¶)gü™øÇ u"˜(JìJܓx#qŠI! +4¾Ղvm_pÚ +¾‹¾<ߏ~Ž~ +z÷6{N¢Ó ƒÏ° +´Éy°gà +ØÝåx5ތwâÛñƒøü>‰ÏD4ÄO6)%‹ÈZr +ùœãTœ—«á®ävs¿ä>•ŒK +áy\z@zZvRîW¼zîî©·â(Þ¿#~w¢tQš—6WŒæƒÎ-)w¢Ax†ÐÚ +<Ú +¿4g/Š¡'ÑKèUàýQôx(J/}>IœAS(Ž ÈSŠðˆ´çƒdjA[Zqd+>Wáëð|'þ•îž6·ðãä²4ù8z<‰ö ûP—uèú݆q>z· +C¢穕äMÍ'Õ2+“U€„áå‰IVâ/`õïàÑܧ û—á¥8=ŒÞ©ÿc—$.q _€çKGwƒÖþ M€ +¾,ñ}‚qÅhäÈKj@œ湗Qo +>øNðUԏêÐ^Ðð"Ì¢ÿ‚~Ž=ÀÅ×d¿Cw¡[Ña΄üÜCdIp/Iômt‚[«^ +þ) +ÃL›PìCH¼f؀æ 9¸ +¯Auг¥'6åƒ/ +'Ö&öH›¥Aôx 6¡gÀ{Y‹wH•ñS€¹ìð +´ß‚&âèœ+VìÇ + M§¤cÒ]ÒǤû¥?•þ\V€®«½¤øtN +w/þŒþº>¬'짨XgX/iæžFµØŽÀf‚ßž®Y®®šW9·¢|NYIqQaA~^(7'˜•™ðû¼ +·àJw¦9ì6«ÅlJM1x½N«Q«” +¹L*áF9õކV!hJÞ +riÝÛ +m³Z£45\ˆZšp!f0»>‡1Ã3˜˜*QenŽPï¢?¯ó +“xÍòÕ³ÎÛ,DO1¸‘Á»¬Øí†B½µ»NˆâV¡>Ú0Ö½³¾µ¦Û§VÕzk#ªÜ +´O¥P +PÔâ +؇-U˜ÄR_± +ˆŠÚ½uõQ›·ŽRåüõmÑ¦å«ëë +nwsnN×vxÛ£È;?ª2T˖‰Êj£r¶ŒÐCwƒnöå +ÙùI +µ·5Þ浫£\[3]Äu뢖-'­ç«0¹±võöÙ½ng½µG Õ;· +Ñû–¯žÝë¦ys3Ìc‰¿¡ug,ý +`ââ¬Fnl^ +Å7’Ý Ý•¸¿ˆ·ž¶´n¢Jï|o÷Î +­ ûÎ(ºtÜ +³ÛÇ'½^عrµ× +­vx›ÛêÒö¥¢—ŽOØ‚ížܜ}¼Adì>> h´³ÈLƒ: +_:ÃYL)ò. +ˆ + +P²Ú +{šC³È +´³c Á§èh'H¤'ª¬mÝÉWÐv:>*õó^aç'4À{êà +[ڒ-2?ÿ ¢ ՓUƒþi8 +F³³©ŠÈkA¦@c«—äæŒM’{½¼°5oۚ+ò€ýn7ð-“aÔ•è¶å«Åº€Ú +1Î +6GI+í92ÝcZE{¶M÷Ì +oõ‚&ïGô‚bŠ*3ÿéysJ}wE›ÿIwDì_¼Â»xùšÕBýÎÖ$o¯¼ &öϙéKBєÚ՜ƒ$!âàX/(åÚdZY­‰JüðŸŒ)uç¤\ZÉZ°Ðå[ˆy³ÊíþM&NÓQ¬8?,If´"xa}îõ +ÈÓìä€`I€,^¹fçNÕ} +àvîlð + +;[w¶M&¶µ{Þ»ó„+;ê[§%:™8|‹#ÚðfØD7®m%hþ>/¾yù¾0¾yŚՇx¸vݼruŒ`RÛ:¿yŸúVàÈZÉL+­ ´'ÐôQ°.Ç¡0BÛX¯„5°zÇ$F¬M1݆QÇ$ÛxÖŸ\*{¹;^.çÑg;â £ +?«i‹l'ú/T‰ú!–$pëÉƒÓ +É·¢]ÀY'Ù9Çðã,§0†-ž„ÁEæP/þM– Lü~–"+1&aÊ!ó“° +âŸéy(@>MÂJt“Ò“„UÒ˔$a5ÒMãkP—~ keûI_Ö¡µúßÌìu+_˜„1Òóû’0ACiæP©Á™„%(ÕHÂR¤1ÌMÂ2d6¬HÂrÔ;3¥ö&a%ªM}. «Èã&YV£rË4¾Yþœ„µÜCOÖ¡Õ ”` åºÎº1 K }1ƒ¥Ð®²îI”m +g0•šÌú\– €õ +–S¹X?H +ëϬ€vÍ„%(ÇúŸ +V&å+¢|EX”¯‹òaQ¾",ÊW„EùŠ°(_å+¢|EX”¯‹òaQ¾",ÊW„EùRXEye›—„W6‘‡jh7Ú6&a *´‰<Ôнؾ—„~ÛÕ +ÖQÍ· +M”oÛË`žÍó½$LçñS(Ïm‰$ +<·½ÍàTJÝŸ„ +»”Á&hOµ¯HÂTl/b°™áoOÂ=ƒm +ÿ@¦øße°ƒê€ýƒ$ +:`eêd:ðA¦: ¶»(¾#% Sü¿2ØGuÀ1/ ƒ8D¾eSþ8z’0ðDZÁ¹lžÛ’0Ì㤰bÿ³ø¯˜µ/Ŭ}ifákfákfÉE3-—•h +"ðÜôÛP”zÒJÔÍàFðW}F’XÜÎûáÖ;Àò6hïa´ôÂø@u¬½íÿçLy3” hôô¢Ñœah£÷#q½ˆ±ËQ>ÊMB +¬µFôBy)ŒY4Œ°Q—Â|Ðè½=÷ +•Ð»‰µ õGà.Oqú¡­ +æÿ £ŸR× }´mm„¶~àÖÿùÎhM=°ê£ +R"@âŒ$g]»à&AÇ +(ÀÖk„|¬ÝÅvH)¤ã"0ë0£½;9[è +4U\d§ܾ(;ó26Ëð +ÕE0_><ÜÒ¡µzû¡Ÿrae͚Yœ÷ü¬M°‡Ü™™s)пdשdDáeÐJ÷ÕùÖ^-+ §R¼櫇§‘µ®DZ¤b‰r¿‡ífä +<Ý.rr€Ñ;ÀvEq§å÷E¹‰×²¡r€ñã³øܓԡQÆmˆ$Yï8àÎ¬Ùµ±Y2 +eciý<=¢Ì71|‘j+½Œ³¦ÝÖ¶žÍa¼íƒQTæÍÉÕº¡Œáõ +ÔÚ¨öˆkŽüÎLKm3ÓåӞž$e”ÆN¨ÑöhëeûëbÜÛô¥üêOî‹r,2k–ÍÉ9¿l½Î¤ÞAÙÎlZ¤º=)™¾äÌ_&¡ +¶« +9Eõ.ô%ZñŕÅvÊë1È©?iƒU{“Ü +f³ü·k‡˜Mö1üa6Óød!ÊéB‹¦ÜW +fót@kÛÁ¿"s!©‹}̋ôAíüºÔ+u2N‹–ÚÆüÝÐ,—3ƒ=4KoÅý\”S½Ì®{f$$îäü|›™ü72iÎör]I½8Ù¸¢ÿe +§ówÏìG¤k¶vSïAµAä¿hUIý˜ÖÒÏëÐ?ÛÑyýXÈöþEÉQÓù¡=ÂæžÞM+;˜Tû>'ƒ¡ÏñûüÌtêeœ£4Œžèu§ýÀ¿"ýéùD›¤¶:–”Æy›žï‹r¹%î`„ù€‘/µãi‰µ}Ž×]ÿ#jÏsù‹+t$O™ödm6Eâ~¨UÌÌ@O¿hÍe§Î +TŒÊठ/€Z.œFÅìL¢î*´8‰™½ÐSœ„Ëàì*c£JQ D4ÑÙ©´F€² +ˆ2ò€_ô Á>>oñ +Ìóýwç +ê˜unžÑ +ñtîIz[JÓ +¶OÑoŒ'¹?Äô”ÎJ-ô2†?’”Á&½Î + 1MÄ4ç=ÛЬXä¼û¢¯ïb¾|˜ÍBO3ÚÛö¹hczöéútL3;Zõ` £·3i}L—©GkKž¬9³ôh3£µƒig[3ó°Û×0³ñ´¢VOc¹‘¤5ŠÖK½Õ2Ñûf΢vfýŒ²ÏŸÓz*z¥^ö +Y`29@gí`œ¡Þ»‹Ù¦p†1þœ1EÚ¦9ҟ´ôžOÛyì‡Ùڑ¤åmJƌFÿ\2’ +:Oû ñlüçz"Ɖ_”ßl‹<êKRÚ7Ó6ļÌz&/ÑN#èJf™}LZcÉSA<ÛD +ÍŠ­¦¹*jÑ‹÷Æfl¢‹yÊÙÑA2ŽuîËOùÍÆÄÝÍgš#êuÿ +ý¢^öÌø§á/p\ԹΏÔÉtdÚ#²½‹k6±¹X„0ÊüätTØ{=>çÌhü´6oš9[ú“§Á0ÛioR뺙 +§=áPòd£»f’½À~(µÔâ.<“×Ïȃî›ò¥—Í/J˜BëÙIÙü¸w0™°Þ +ϓõÐӟ¼Yt$e³ ƈ¼¾ +ð:Ù +ãhúì>ïOÚÙ؍IZEmbgEڒŒQ‡/ðTלÒtÄҁídú5z§gnc7ŸþY³‰‘Á“Éø˜É¸|„aˆr +ýO‚<†¿ fσ|„yJW +‹æ×±¹E«ýãÐÌM(43òwÅÍLÓ>ñc•é¾¼Ïø3s¯ +ˆtµuD„G +•Ý¡±¿¯š„Úþ¡þ¡¶‘žþ>a ·#$Ôµ´])N&¬èï +¥-ÃÂÂ>WP^žŸ +YaH¨éí.íYß=2,\Ž +E:WölŠ + +K#› +Kû7µõ="¬ +jëŒljÚ(ôwýÓń¡Èúžá‘ÈP¤SèéFuÕ +¡©mD+ +e]]!¡­¯SˆôG6wZhz¦ŠÏ-*Ìïïí¬¸,24L§. +åç +™= +CýÃý]#Y +pjӊ\ŠÜ¸r鲕 +ÖÖ¬\¸l©°¬AX²°¶~éŠz¡æ’Këë뗮Ԫ´ª•Ý=ÃÂÈ4ƒ) +D +õD†FÆéþföŒë_?Ô6Ð=ÎhîG„öqa¼”Žìèc; +íëŒ +±y`盆é$mBoOG¤ÐÛÖE"›"}#!¡†u·E„þö‘¶ž>9r1tk›Û†"B¤&:{†" +#½ãB×Pÿ¦ótõÃZýë# +e3`ž× ¼êi +©Ìþ¾Èì +e +OÍ°bf0ÀmÂX[ïh[{/=< +™=:$¬êë +³Í³]Àž’‚ +釡ÑŽž®žŽ/î\.öôô­gcÛ:;{¨¾´õ +CLïrhóã-¬7òy¢z{6õÐ +Á" +osÿÐÆáQ庀¬±3èßh{oÏp7]æÙ½©m\úATã”qç9táBŒ +»Îo®­o\ + +³e:úû:"C}É + +%éfÈÃÝý£½ ÷c= ºT¾¸}Š’Œô€m‰£x3{²`‘¶Ž‘ó2¦kKRÝõåÓ2’gt€É´G¦'‚uÚF*(ª5B®9§¸,K(+˜“›_œŸ¯T®Z +ùÅ՗• e¥%å%åZU÷ÈÈ@E^Þæ͛C›¦ßÑ¿i¶MD„º¡¶Í”`Î@Ì´b¤ +tc +ÈêîïË.ëé +,iê¤ +((/*dÊ6ļS°­ïê +Ú"mI·AÑiI=è€Kúû:A}‘ÍÃm`¬9ŒG›»{:ºÁ4 +ÍmÃBgd¸g=˜UHŽ€A¼£íÃcµ¢öì$2m”§ J½Ã¦~ `x´£Ô»k´W:a:6 +³QB`kë{¨ÒvŠ»6ƒöƒ‚uF’às\s +˜jXãçx>qf"Á@QLÚG¡¡þÑõÝ „BäÊ;hl2B +íóV”T`ÑXï•D×èèÀ6(çf™ü—H +–›ß6 +¼î§ó/{¨> +Oœë¤ŠÔ9Êit˜ŽlŠ + +DFFۘ+lêeöœCOÙ¼‰Z +¸`axd +DÛÑÝ6D•fééÀܘ|Ú:Û’–¼žî#reG¤·—n¸ŽöžÞ +ðÀ +ý£½Óv²¾¿ + ¥Ó8P}yOg9:,êI{ÿÆaFЦ¶õm[À£‹Z1C‰:–~QC;û;FÅ-Rä¶Þá~†Î` ·MôîmàËGzè^CÿäulêÍÛ4Bš·ixÝ +èã=„B´ó_ +¸9ÒK5ñâCh-/iø +û¢¯˜—²@tˆÑmņ@kú࢘]èâ¯òÔÀÖ +¹ +w3÷4÷<÷ +äûþå +õüK;Zýâ+§~6bô¢#.aWƒéW“4Ø¿ø.?€Àm#: +«|£/†›ùbX +X¨=Æ8}qì&$¾BeWñÕäÿ„“Ý¥Ä%©’Ì•ÔJJ%s$aÉ<ÉbIùEWXù/ëÓbº[\ðÅ1ÅëËƋӌ +èœjג~viC +F+G$ÜD}}axÊ`ˆ•±Ì¬ÂC´#fO+|Z‘=pivAŽ™ +¬ÅæÏO¥sD`";·ðí•¡! ’`”)ŽšÈ +ž~ꘋ#=Æ´•;7Á§ÂjÜԄ>¥0\Ãsÿ@MŠ‚a +DP?÷ Ú +‰úÞXn]ˆÛ;¡Òò€ÿ1ÓÇh$Ý9fõ0$ŠÿñDŠ™Nÿ§˜ÞÀƽ +Ë/ ÞZØT“ʽ ôüŒû%ò"÷(Ó¡|J'”/p/!-£óÁ =_¸ +Öû ÿ€GYÐý·Bùw +r0´ßÆtâ:¿efÖ¨¸r_g(ÃÜ *†²—Û+t Or¥aîà ¥šÒ÷aŒ7>Í}ÀmD©€u°,.ýÓ\ʃDw29¡ÔîªÑp“°ÍI`‹ +hÄè^–‡¹_Æ`"XïQn2CßQîZd‚ò1ÉuäIîo +í,Ö{ ¦(¢Å„VWx¤FÉ=½QãÿÅV;3˜SˆjÜ7P>$L} wéWëÜG}búDóˆæ# â#$Cˆ;=§'{ + +po ]îXSŽÇ€ƒ‡àË,<Ä]Í} +8Á? ¼ÃÐz̈́RG)ûz̘Âо>¡ÑV?ͽŽ–A"@üñ ‹µ°ÿIî[l+»&¬:àW1¥Xw•( +¸ +Êàinw +ãĵŒџB#=w=œ˜Ð +·‚ôWBµò[! +ƒô1$  ­„=¬Dë q€Þ4¡ÓêŸäÖ°Á +cº"×ÓÜØúÆ­1“‡Ñ|É˟䃒,ã–Æ:]@àò +¦½K'æTæ?É-e^syÅæXŠ +1¥¨<µ*]®Ž!c + +k&íŽËžHµº@+ؖŠèÏN¸2Qð¿ +Œ¡ˆq¼p‚7‚Šwr +ŒìBÔ +é>HQHd! ‚ +Ñ Ö¢çJaO¥(‰–¢Ó´ jH·BzÒ HRÖÚ +‰@{>¬Ð +ù.Hf̃:yR+¤mîƒtÒiHrt”Ë +uèoò!ß) +émŽþ"¡ŸË:rèï58M)r¡­dO¸oE[ñV²•Û*Ù*ÝÊo5(Â%þœÂðš +h– YY«r@¹MÉå+ÃÊ&%Ç+%™L +‰É+Š eE¿küs㧍œ±l—l—œ +­Ñ€ã|Òǘþ–æ(æ¡ÆCoçŽV½]õqw´ñíƏ¹£o½ýÖÇoqGsßÎý8— +7:* +ËÖá~¼ߊ%.œ‡«ñ2,YÇõs[¹[9‰‹ËãªA$­êõ65—¯«›Ô +¯Ôd—ú>uT}D}L-ÊŽÈŽÉNÈNˤM²Vـl›l—ì>™Ì%ϓWËÃ2ÉéšZò0õ>È£Úù.ñ¬çäÇX}«·B>Àêațä +<ŸB¼0×ïoä» Q¬öjÿáÕþ»WûC¯¶FE!4Ÿfù,ßÖù´ïû´/ø´?ðiðiŸÄï"t¸Ãvö +íï=Ú'<ÚÇ<ÚÛ=Úµ +írv‰‡N• ±‡–8iŽ¿Æò´°EО´ïÚWíK‚ö~AÛ,h+@Çÿ‡¦ßÃòÝ,/y¢Xë*Ö:‹µ‡ x&|EL”O‚¯@ZNË®rMrJVw¬ÑEZ¬± +G¬ñR(ì±Æ!(Rb·»j”D÷ADâ":¼OAKM,ûZèV‹ +"–ý5(¤±ìr×$ŽÇ²½P|ërBñi¬+ +Š³±®b(>¡ÅSø¯¨‹À4ø?c]߇éñŸQ&ÿ ÈãPNÆ«û qu¼Ua?4ÇP˜RËâð#±ìL(~ËöAñ°Xü –í‚âþXWŠïǺn‡â{±®“PÜËì¥óíA™lž;Q€•Ã±FtÆé +±Æ<(úc%PlŒUý +ŠžXÕI:t=އA³qÊf”¶Åº²¡{]r#-(“u¯E%læKb”% +t’-®On¤×ÒÀÏÇûØ,áXv> UŲPÌ9Wë +B1'– <Æe±ÌïçJ“ +dQù< +}@ÈË~ +\±®,(Òc]õP8èH *%¹ªU1¢ +±lŠÅDz×O±u±U(€ï:蚂y?«šÄ—Å\Ÿ†'8æú[&]6¶»þÒ8 a­ëÏ`t½ +¨oUV»ÞÌ>éz£Ëãz90Â×ϲC®çã®ÉÌ']é®}@X´«Ýµ·‹Íð“ +‹¹ +ɜ$Fß×µÄugvе;0Iiø6 o§kÀD7f»® +\ëUiÜáÎvº2¿æڐI²¸z²/uuÃFÖØH×zW[öí®ÖFñײîZQÂö°¸‹íhaëXÐu©«(€ŽjÚ̽,„¡¡’')P.®ø¹kUÙSNa¼ +ÒP8$Z~¼]¾R>Λ +¹_ËSF¯Ð)4 +•B¡)$ô‡£ +DR''ÂAú +ÜTû²ŒþE+’0˜'4'캈`A‹P4 +[L¯˜- +.ž”'.Î .ŽÊ›®X½ão5ãÅÑ# +hq»=»Â;‰UË×D¥Þù8j\Œ¯œoä(¹y£•«'q‚Ž¸ÑAÿ`âÂ8çÆo:hÙpã7››‘y¬ÚZm¬2”7Ô}I֚Ìëë‚ç?Ö`ð‚š3zÇâ«£9›£ +H8›G³èU +"½dC}Ý!²‘Í«ánÒ[)mÇÝù6—¡¡*²ÐP#-¬EU +Ú×ÎBÃû ¹n_U•ˆ´ +ï£H`4ËÒ©v6w +®eHµÜ- +éûâ‚Ù@,¦ I{Q6[0[ÚËЬm_ 3u(ʾ ì +²îåç»3Åî‹Ý?¦Ý“Ÿï/ ˆÔf¢[!@2'øÿð™ÿ0OÌë[Mÿ¦Õ[Ô½e¬ÛÝÖ.ûúƒ%hmïè¦e[$:æÔEû¼u¾y«¿¤{5ížç­Û‡Vׯ\½ou8R›žWïm«kžXzíœÁ +ÖÚ1³Öœk¿d²kédsèZK¿¤{v/¥k +ÒµéZKÃKÙZ‹/7­Þ§@ó›k׊åQ«ÀZZ +îæùf~ Š™Î\·õÇa  u°9ªñΏj!ѮܚÜÚ&M»tôž’]Ökæº +‡ñ#É. +š +ÞùhÄZßSÿ +Ãgdd>Àãáa‘×V±c$XÏúa öL€if­Éþ4zþ +Š¸h8X»z_cc½µ§ÎAü»ƒÍÃ( +¬ »f¾™új™¹è׍lü¤‘;Â"ücN°ÿD÷Ç €?;Ru¬êDw¤ñXã À}ëØ['ÞâŽä +Ë=‘Ë•%) K5c ðü3 + +¥ÍAÌvËö +ՑàpnyšP +ÒVÊøˆíl\f Ό +ž†ÅÎQ6Dl +>¯ÀàWÓ’¦Iéïûåhþ~‚Ÿ“É'9E8I%ÏqH%—<‡‘M!“>G¸§p +Rb?¾ +YƒüÙÊ©Ê¥ü™ÊÆ©JT +0²‚|·ÁmðC†Ó$èœÀ +9–¢Ï 9BÝøüø +ü4.¢õ +6üƒ`¹R‚ŸE¯jT’Å&ˆÂj\äÒc}õÇ߄5δœ™: +ªO9 + +ååù¸%¥¤´´¤8#àõÈe^O ¤¸´¨ÐlJ•uôÈår™Æœ{yç%—mùq|ONá½+ +J +Ü°¶j~ç#·¾E)(ÄýdœTÁnía +\]]ŠmºØRþ$ÿ +Êk<˸KÜd|ê¹÷e‡Pâ +R-¥7PvÂ)QM¸T0‡1Qs{é${IŽä©zJó©¥üÙF º²ºr»4¼š +fÄ^LªãµÛð3ҍŸŽIwÒ¿4Y”8É +v#3 +âEa›Ò!sÉüÊ,‹Üê0 &¿5K)WàÍ +'œd1£4Š ™Öh™äTa? +ûÅ( + +AVT +ÙÜyÅaԄî£;Ë5ê=.ñPLÝ­Z¬ +§˜Šµ¶œOþ“nólp¨ñTKíê°Åöe{è$ +:‰‡NÒïÁƒT3š‘§è iCd +5Àg% +¡åÕjIŽaUkÇÃí8[p»ÜD¦×ñ:"óyý^"SkT¥F¡‘ÈLæT3‘Ù¬v«ÃÊÉæ°s²ì`VÈÒ +žvC––biǙRÈÜ:g;öj2Ú‘Õ +PÄ\0Ͳ“ŸkÑ +Ä©r +ÝȀ§¤¸¬”jˆÅ,åiªÌÀ[Ìæ¢Â²Ò2î@¹gøۗµ^Ž;XUtldìçùµñW%ª€mNÐæ·§êç„ +mÙ2òð+ÑޝË;[ê÷üà÷‡öüàþ›Ÿ|wν¥@°z÷M} +?Ñ~I¾0g”êÊv0¥ª]ÿÒáã¤À +ô¬“÷Ë †—¶Èñ?à~dÆÁµãoÈ-fBÂ:½Ir +4º0Ápûó:]“¾_¿WÏñ`6«î§)È +ÈJ,ømf‡'Á +[Z*ù©j‰ÕÆòONÃŸqKϐ +{-2¹KŠ +Ár +Åʃ +?¹ÛÜÐèš*õ]¾Èn,Šñ_¥ÝŸ=~u}ŽßŸÙ°<óµ<·à;Élvtì( +½öÝL~B~ÄqšïrD¥V©1’:Œ÷™÷›‰9M*µ"m· +4æY¢b™Äž6*¨º¨µÅŠIη_'ÅnŸ ;”—é›Æ×ôiø™4œfO×cü +ÆØæ<ŒWã]ˆYeË ¶e°ñÌTËIT]}ŠzæpŠ"lÖV+ +d6=dÚr¦À„ÚµI} +¦§€ÄJÏÊXš¡šážŸb0–cH-†rc9TùŸQ'ƒZÜîd,)f¼b +>F.ÃnàaY×tî¸ÿ{×}í®UþÒ7w­¬uQ$þ#ìï­ÉöøÌøíê¹å.í‘ÉÖ.¼qÇ¡øc°žÚû°÷g™fd £ae*‡»Ìcf¢šLü=l2¦gs>Ӌ&®Z!õX­.©2`zš¼ +Þæ»ôoÈð] +IáR¢ÚÏk=oj&ñ;Ȟe$?; ·»ìÄNí]J=Ֆ)û°ßæ‘ÎRG +ʑwŠ?u¶,nœ™jÈáW¥øi§ƒÈŒ~]À¯ò´ãtƒ½ + z€¼ê@;v¤¸Ú‘[ +š6»`vðÚkQ +hZ +6鈼´,鍩k&%ÅF–™R0¶ÒžZ÷ì7¶zsœ5óï|¥ïå᫵ù +|{ügŠ’;7´ 6¸0SڝºíèžteêéĖ +Xq÷I¼ãƒ©¾áñx±ãƒ8µ§Ž¾õHü ŸãžEjàgá!dƒSÚfL)–-DrÍB£ZÏ-Tæˆá”©i!¿_™ê +™L©$;¤P(Hà"¼eûžQb/òè3\$#W¯³MbɄ{Þj¸µ.¥!\ËIê"jWD!>DB´8ö +O5Ÿé€pNÑd ¾ÃFsæ=’žd“Èy]%å68“Â`®Ûk¶Jå¿'`ñË9~¯YÈà +šå¡<ì¶úhæ +6o®4; + +_9íRàsíµÔ«`êÈÃÆ-ùä’@N0¿ÜӜsSÎoä2ÚÕ +™Ùœ2¸ê™“­ÄÍ<µLJ[ An0ÈSÍEÉwë¿- +¸jwüÄÔ²¯Õ: +u-dçÏ|kêom_pÉ +ßÆe¥MÛ¬¾‹ +Í +_q۞Îq¿wN7ÐWîñ¯x¨¥}1<²fÍp%žº'ÞXXZvÉöëvWÒóqyâ +éå +ú°ó2'¶M(UÅi“b)K–Z(ÃÍhìJGiJ£ý&ó-ö[ +;Ò +ã†qãÃeh²¼hyÅ¡’™Q Ö\“¶Í|£å&Ç +iOHžLWåº]›ecÚ1ÇM)‡õò2Áès¢5Ä Ž§B`ºÆý¨Á¨“nprº +&%^—gÀû@Œþ¾C¸ +§÷)õ*—Š¨m¶3TÐ"t +"¾–³-'™‹ãú¢n +BoDÅÅ+Æ÷*@¼>sšL«Á*”r%‘9Z³Êdi©­:?RÚ¥~, +3›Š· +¢–A&[lðÒèCFMÑH¥Rf¢' +E +ì˜(“^ž‘súέ¿*¨^ûü=Û~=6ô·‡~ßûÄ+¸ùÙ[ï]kòäҍñìÉç¿=¶ûÐÁø¯÷ +ìݼñ'¸aòY¼öH•/¯ˆJ$ +!ɧ`xiø”YbS¡(¿h hWÑ#–×S_·¼gù›E9®1}=´ƒûvªt‡êNîNÕí¦G¸GT2!µÞ.j*ç¤*N¥"EáTMõw$÷(”üDùpªTƒ‘|¹FóŠÂ)§Õã ./(x'Ç”-Çø©SæœY +/–!\‹L¼‰˜ÌÁT“™³È-æ cÈZ™ +C5‹X2¹^¾LNª!»U¾W~Tþ¶\¦§‘¢¼°hoð™ É +V—×ûƒ[ƒ·ï +*‚×óæó.3g¶‡‹à.¥×º´D[ål +󰃎ÚseR˜-ƒ4º +ʃ“/yøó§NU&ý+Ä=̐ƒ è?•,¦« +/MºÐà` +| º6P¼!â#KZåD?ZF­EÙ`ˆT֑ãÚ>Ð4vµ¥W,ÿé +ýó>ë͝ë³ëÔR•#0?WÒpö´Î¹KŸ:þÀ÷§*F¾S¿n Pˆî/÷›t +k÷õµ&oJš?Þû¶t#È7ò}䛃ÝáF¹D©Êá<êEj©L*SH€ +Hª€: YÆ5¨–©»Tcª›Tº-Y»B$T/H^P½'yOuVzV¥Ò1wêœ&'°<'g’d†7d8zVP!+ +ÖåË yE攧 +NŸÇ«ËD³LK–áÀ3~ì·GC8„°V¯s鈮ʩGôï««Òӝ¶ÜTSN¦dâLVëKÕ9Ëiƒeú}Ä¤È += + +èó° +l3ª¤ò©Wið¶'ŠŒÉ +ŒÏ;ë:Xàqe¬Z¦ñzS +ݘa©-ϝš+ŠÊ +°äÊ,Ýð¦Ê@P¯•nÛ4uù¿]oë.ÎðOK‰Âñ«vÜàЋ6H>¢ÿŽ ÚÎu‡ËÒªU‚“xóü.|_Z”¦)àÖă-Aúvñ¯HuTóô»¥ÑZº”j4™8¬éS«õ“‰?M”¿‹é,Õb¨À^£aêrä F +1¼ôºËԛF Ò%8N¾çÍÄG.›ëöœÛ¸±^ˆ»V;ƒó«¤KÎ=A.Ù¬ Ìy—µ~¶[ÒsîÑKý~¼¦—{ÚWê!~ú +îi8ݵ( +? +.êæ»SîT½n|ÝvÜ~<íu矌J¹Užn!VÅnIËà3R2R3íªômpØ[hfJ†úY¡-4$è¤1ÅÂ43îÆw=²=Š;4»µ“‡5/J_T¾à| +¿®Õ‰\!SÊT +×jEkv*»l]iWJ7kÆlcÎÝúƒÖƒÎ× +§êËtºęKäJ£Úæê[ÍÔ‚»° +9xP‘Æ0‡9{žP +Á¡Þè2#„Ô¯ +Òp ¬¿ÁØxJì:5ýn‡†Ëi(P‰Óy¿3Pú¥›Ýj'2½Öè>9üؤÈ"È Ñù±6@ŽSTf?²K ++áßވQÜ»iÌ·_!3–K'gÂjc9±Ë5Èdâý˜¡\3™ø +)­i˕PÛ§-GӁcóL ª +}ÈÀˉ[ÈàÞ +FNßûPã7–ðpFXp +þîî—â·Ç¿ýÒ÷ñÝxÎá¶e[VíY_¿º½óné:M¼/þËxüùø¹¿?µ8„o_òÓ{âoÆzx¤0Œm€6u½ÃYôX¿ +bý£‡Ö¯)¨õ¯U—/ +àÝÖ³–³Â?<’lEÂ,߃§ÌãÕROèu„Œ(”–&K1¹LÁ»±û­Vó6ó½pÀï̃ØÍ!¾ +ÊÕ" +¯!MšV +Ñ\í\pr,=ÃL¼E´öF´WWŠÇ=p#yŽƒÈÒ]ÞT»Õb³™7՝‡]vÈ<&ˆÇK: +Ä©D²Åð›V˜S4]a +4À–Ë8»Õّå¨_;R/þøƒ»Úþä6l¹á†ëIWüf@Ÿ¥ÝsÃS ++¹sê ¹íÎÝß  +lŠKúŸ`aó⟠+ë%ên[wÚz¿.ñª” +ú +)Ûµ·èwð;Œ·¤l7©êp­ªÛ³Þ¿G»›ßmÜczØú˜ð`àeýË)Z3µ!fš¤¥'K>YZ©ÍU`æF3¸:)U*Zª‘ñ*£Ê\Ã/2Þ¤¿9E³Y³™¿Ò¼Ù3æ¿EµÛú~A¥\®û© +ƒk: +¶ê +ÅêLÈè?¥ø¡šCj¯ÃRbàäôE“?§X>‰K÷s²é$Ž„ +j×/‘Bv¹QgËÈìu÷‰÷.j’Z䥷îÆTûØW +Zcq¦x2³ +¶œ¥fùÄ,œÅA +“vžj¦!{åYՃÕâ›p®-¢¡.¡†Zª ¸ÁPm~@0{ý8]ãð#+YÀUÉåæ§i¡Ð¨íz‹ûR €{_9ëfÅÌW-ƒô‚ÆkyC¹ ’ +¬4-±EÊÞ±šh€ŸSDnæx–!øŒ÷ZèÙogæîÞ|8þÆ¢³ñ×𝸗ã;âÏÆûö·_zÕe»ï\uUc«æƛó£Åx +–á||{¼7þ‹øßã[¤Ò'¿+þà#£ÃáŸáÛô¸ÿlҋrñ•áêUö!û&NáµzÛ/I»ÄӖÖá‘‘Éx)/“äç­wlvlöÜì}ÕñŠ÷XžbùWöX?³}f—æ)4“ä×û™Õ2€.árj¼iÑ¥æz=©^¯g«÷&ÊNs;¶yNzÎx8ÞÓä9æáŽy°Ç’æñü!Ç$þCØâEHæË +¥€Ù +¿t»= +™L®€ðKÃJ +Êæ³Iö[–IŽ„͟ߏ’¯„s5š&zò‡æ +Â6öö·¥’Æ +ôTç§hŒHã +V£wö©JGNU&/ëƒC-åôåJy +=ö[tWóÏ[YdJ"dä¤ÚM~[ ӟ“š‡3ì͹y8ËÈCvÇù;ºèÄ­™àèԚò BSžfM1UañXnŒ/q +É©òäëÌ’—s/À{L-Jz‘±³'wõÖ +7„ +Y¥ñUñÅÍå·ì\vÛýdCü† +ýIÝWÝÑ^劗4›]œŸl {¦~RtãÆ»¿Cï'$nð,å87\nÍ¿Zqiüo¯†‡.ËwÙ+Œ~Îg· +ÜXÔ}á.ÿèÀüª¼í{º®ó• +ÝtI®7/ä^9ÚÝ}ÓcŸØ}©™Y +wËòü5Ëk®Øöýuœä55Â<*ÕE`Ý°nýèò€¿µÚ‹=ÔuÎåÅ‚' +&wÄ#É€àßËåç@†VÁÉ{ai]`]ÄR[‘;U!Þ=ÚwT]n H—ÄoÛÚï6~öçó׉¹bù +¸Ÿr$?qBú p$„¹ðýV½ÍC¬ª +O¶÷*ï7ußòîõþܛð*ُi8 +ó„çðÙjÞj9¤{)óxæû™:©×¤ã=‚;à-p¯ñȟuâ%ëêH‘BN¯j +{Ց-„œÈã3Ð[Œ×j±`˜S³Á§„[ˆ°Õ +×¹.âº:??œß”?_¾4_¡—»äD^••Õ”³¯ÎKÞN’ßW±xeP¼œ +WpÚ!yܙJ½*ðëüj¿"edj½ñª'Þôèk'¸ +0¯$Ï'Oy—͵•]ÓÚwwcÀ™{)þuZùƒ¶úÌkÑÖë{íáˤKü©îƒcK;~rœd]±ÎH($¬˜šúøW±¼ðK’;GË=˜Ê˜xGNï½Dž¸Uù÷,²ÐÚc{Ô:i}Éöíƒ,y¹Ës,ȏJѲÂu +MEáŽSÈÑwNEۊvÝW-R>‹¾‹þŠ +Òaå°m$óFåõ¶ûÐMQô +RZmYÀ¼¢r´Ph(BCX‰x_½ +a¥Í&‡Æf³Úí +5¢ÿ6Ü%؉àô5ƒÅè4™pßD  ½“wÙÁ +²óaI–©'7LXÕ*ˆ`¯ +÷dôíHÁƒ7Räfe¦feejšWµ:×jIµZ-J•R¡Ê´Ú¶Éäò̬l@ʶhÔ* Ÿi·Ñ +Ø*[¢ÏÊÎʤÿT°î0êÁ±Q«re‘ÅbG5*ü4t©Da0°j€ùđƒ¼¡˜§o«Éú ÷­›¬“8çF9í¶Æ)»uÊn›².­Ô½–WYISe%}³e,*ÇàöÆP +sÒíâW" £ß!œ‡ ˜ad¹ý‚/¾äk±òIËv^Q© äJÜ +ìقR[,db¸Ú6Ów/--ƒƒh."&8ÚáÈóÒÐ+©À³âpžT+¡—ÖSRØI˜Q"ÿ(Pœ*+_žÆ¿åÏ¯+ +“%—ä`Õ¯ç„ +kªÉmõé&kîß~ïåç,åä|~Í­ŸÝÏm8w‡dÅd~?Ép®šê#d×Ø28-±Jî6YƦ®!õkæ§eåÁÅ´bmâ¯Ü[Üs¨U’Ea“ŒçË%_^®¬+¾¥ävùÝ%\u«m‹K–ãkäçþ¨ò‰Ür»_Ï=^ò^®²D^/_”²È²°dµ¥Kñ]twÉCø >¨ÐÉñ¶ª=’»rï) ª¦ªskՐåÓ^üPÅ3øD•Janª™Ë-P“ÑDæÒUž·”<)@e‚9™Á +0'«²èñ¢'‹8IѼ¢Æ¢«‹¾Ytoя‹ž.ú¢ß*Rᢹ© +·"¢UHˆb®b‰b‹b‡â^Åʗ¿U(Õ +‡b@Á¥œUpaƬ®¼¹ +HánԒ—G¬á¬`±Þê²®³ö[ïµîµ>c•¿mýÐzü¾5¬ã‹­œ—ZŸãÊÉ˩ΑäÔeÕêý.?ñÿ¡„d‰Ó1uyˆÊ(oqI±´¦Ð±‘K¥2³, “@`äA9.-ïásdƽºgtāQŠÏ¥›$o„ +ž +ŸËãõ(}.­×›æs¹'Éï +ÞLŸ+ÇëŊਖ{ÜnN«R¸”X™šv×T§„ë/)N Ï+I ×B*¯€J~d™s!óø KwAŽðh +Ö§`!åh +áSp +U5ã‘v +¢!’‘P¸ª„nd¦b%ÌÆJ˜•0+sB¬ +ëRLÅ!¤Os¥‘´ìÌ +Ö„ÎÀyG2Žep´i¢¬¢˜•yb D1T¥Ó]œaË]z­ø;ø€N²·|R;@Aq‡ÎÿÞ,X)¾‘e_÷ªÊš9úý!onXè®foz•©šj +ýþ +ÕRÌZ¨YtÙôÁy§£?èp§VŸÔB}ïýÎAȕüñ¨ûêwú½/Ć鯃ŶŒü\ã¶úÕWge΋ +mFcБ¹$GŸ27 +˜k3dTI—L½»¼¶sû}ñÛ7–È}>¹Û +Á÷Ìu—ÕÇ՝6Âç“ æÜÁ +Å +?hÙb„¸>ð®Y8#¬RÔåêT +_­NrPMßh:\ÅAZ/(¦å¶˜«„Uéb³žge8#Õ\Ìñ +ê]A¢¶i +Åz'JGY.'ŸÎgÉ°Él± Ï®ôIüÑ~å—“^¯Ï•@ØéUêÃé•ÕúpZYµ~½”“ÈQ–,Ý©Ò· Õa¼Iðº'vɏÉOÈ9ù$> +V£,½Åe!–l/ +«c‹KâÁöxxñü.{é*v#߀¤Ïœi9uŠ?ÉÂb8œOƒôm”\ÇWRaÃ]#xþ}åL¥Éߏ$¯ì½¼É‚J~qϾ_¢¢úYË7jæÔքJ–ÊUZ§=Ë$`¹&oN\>/¨Pò¹þê¶uõÕµ‹ê$2³§ºmôõ9å¼ÃÆù|Òò-DÚdN³K©Œ‰¿’;$SȆî +ënUߪ!,Skm +Û°$5•3]O°LPÓ?·âÔCʈNM¸I¬ +;¥êƒ»K$H/uI‰4;ÅlOãÖ¤V§PñNOq^ʑ”c)\ŠÍN¹C +;°¦‘?îí`ìǂPEÕS'[èíÚƸCÐ_"‰_ߘ¼3ޒ1. +ìG +“o½¥ð5éË6_ePm¹fß|ÉTü±Ž©g–ç9;ÌG:æyîÀÿð6??Nÿ%éÒúlF߆çiü1âíM>÷°çWâ#yLz¿lƒlƒ|"‡=÷O?Ê]ªûÔ5š +Ú>]³îúGôðS_|Œã³Ÿ”}ñI½ž3_=_=_=_=_=_=_=_=_=_=_=_=ÿ›OòÿøƒY™*þ¿Œ° +’ +]ôÃ͂õ<2¦¤š²Ar"$@áóPfB9£ °¨¸¤´lª˜$þ?$ék‚ägºüâËþßûHÐË,—Pþœ +I$ hNÿ@]ȀÙ=ýKdD)ÀQS²Í–,,’5òÓoêQ&ÿ¿œ93s BT„ŠQ ÜLËÐ +h9Ï·óŸº +j‹¿c¤Ë)ýx’þ³Í^ðQ\X=N'.hõÉÊqÚt¢¥þ?LóÉc¨¥rú[¡E¶C*ü\Z2;þÞé$¹eÎNÒ/½ +¡\ÎÒe(Kò. +M'Ή²>ŸÏ)+GMÐ_LK¨$ÃhŒ]p>MÀ㿒€¾µÿmF +ÿJ⾉Óû +ü·6[€³/º÷ð:}å' +›(¸Þ-i å¡_Xøَ©oðHQ¸Êi¹ýÖyK +endstream +endobj +170 0 obj +<> +endobj +171 0 obj +<> +stream +xœ]‘;nÃ0D{ž‚7õ—‚Ý¸H$¹M- +¦Z.rûÌ®ì)fÀ'í,¨Qu<ŸÎiÙtõQÖðE›ŽKš +Ý×G ¤/t]’ª=/a{’x¸ù¬ªã›Ïß?™4(îüîoT}6“<©÷LXgºg¨øt%eq6F§(Íÿ^Õýž¸ÄçhƒQ–1p`΂1:Û6‚XgÛÁ‰Œ½=#r­dáÊvµ³]ˈ°J'àÁ‰€Fr¶ï ؏Nd +\Ù«XÆ +¼j˜œ8G\p”K;©àõ­Ü×újQ‡G)”6é^ºåN—D¿'¯™SR¿”€“ +endstream +endobj +172 0 obj +<> +endobj +173 0 obj +<> +endobj +174 0 obj +<>>> +stream +xœÍ][d·q~Ÿ_Ñvâ ÇÐ +ó~ ài¡2âÕeG°!†ìõ$è‘/› οÏWE²X<=³ÞÕöŒzÐÙ²XU,’u#û/³9W³³Cÿé|wõ‹¯ÊᏯ¯þre>¥¸yw¸»¢¿®\¬f³vù +mNW·W¿=ü€îh^ssxýýÀ6½u +Ñßßß +>¹¡ +ö`ýVËáæÕU£€Z¶à¹ú-¤ÃÍÝÕwÇÏ®Ÿ™- +\j:~Ìß>–d_ó·+% +ôéj-9 +}c|pGÓ¾e|3<©ï_ÐwM©¸:úÎö¹ïÓè| + +¼““KJƒ†Rr<¾T$®ðÿG—Ké}Ñ!øÖ×ð’Ž_)xïŠóƒ]†ß0=¶ø‡xb©Ç­I.>?UM:9µ‡¡\4ÿqók’¿?`F üg֔-†Ã³ +#Ôâpóû+´»ù¯+Ÿë&ïŽ_\ƒÈh¢KÇßáӄ”}*Ç?âÛSñù>8üÃVPŒùùÓü~EÍm¨ ÷TE— +t“·mp¸kD<¿%fLÈÞYñŒÇöЁ¿² +£+Éÿ›¾m ВƒUmþõÚ{¿Sv~KÅØÁèá¦ã‚(<ž +n»9Âáî:cæ +(–´Ûøãr +Ì5ÆúAú +þ:ÉùS§†¤õ?­EƒbŸªsIÌ6*$zð×M]ίöTCnè;Ê>jÌ’Vø5üw ++Ï銴>B5âøjG>Öhò–ð$¬ÞPì± ÃYKÄ;'ÆßU¿ƒÂw.ïM>¦6D°¤I¿Umþ H?üê9ÿ¥©ÕWí’šê›|­«ôpÝû³FæÞ߇© ý#ÅÛЖˆyº¯7c}yM*ç]ØòT³‡¤ÿ{MÛgSDC-I:rãm\IÛ4icQ=Ã_6_ÏRN›ÅðsÞÊ +õDS³ +‚í‚·»Z2MJ úWºŠ–T¬ïÂ/Ñùä°¨&\üôæê˾©¿åa0Ö¢œÕp(n+b; +^€Ê˜k„V~} +" +ˆ\„L›ªÁg©`ÝcÇ։¥ +-¶ÚìÜfSÊÞé˜:£,DŒ·vøž„¢¶míóğ G„þ|MŸ6”˜.*°ì· +ß^`)9–W’y4y9[5QÐP +-_욀\v ,‹ +‚ì‹9„hiS$‚ÄÍĵMØ°Ÿ4 +X + s,¸ºE«{ÄEy¶£ïh& +È&ú΀ùB£ÑÁJXh +m¬Ý*azukÚ°o +¼²û€~æ†q8Å¡ÈhÛb³8ü‰Q ++˜÷þ@æÑJãçŠý74òi˙ñ€¥v„Q[°¡M(òø–Ô†§Õ'¬6¿¿¤ÇhX÷çA~>üõhí7S$ +þ÷ª +~ƒ¾¿nVßó—]=^>q•ˆ\O\¦°9Js‡œÎÆ:Í^¹=ëwØË÷SDÈ68Lt²u«}|ÁÛ+L5쵿QßlžY]¸ï»XÐ +Ǒif^¦Ó6]GcôÙ¢±XkoOa|ˆBìÞ\óâæ:F*º·.íƒÅ’adŠ8,´ÊÁÐýä:% +ðÕ©íi¨‹Kö0 +øÅ9À꒍oê’RӗX#‚¶­Òªn +r:Ctš½r{Ö¯éÂ{í–Àa +¢q¢ +ŸÐÜFȇ7ë&Üt/3 +»î¦|0 +딻.=å2X6}ÊÁ4vc% 肘°sÚžÔá_œuÂJ‰ñͽš·È›7kWÊq#™b‹«þ°`Ò{Q +KÀ۔ß´á>rÚc9>òïÛ³NÐ+ló[ +ǒE«>¿¦s?Gž±¶ +Y{ÿ~M@öÊeÉsu¤ZÏöÔ%ô«dÝ¢]¶Û{k×ý¼Ãø'žtë—rÒ |9Zœ)Ø,ŒM8ÊpHÁ½ôÅÀIðë¤ú +È{Ä2è +áà›ºrh/Ž¨é€áÄ% +C±rXXy ‰?ä}Œ$ó~ªßj#îãiQÉ"ª‰ì9RwGl1ðåãºE¿Í‘ŽCËS`¡+†6߁z@Ngƒ¤×„Üžõ»Àrs~ +ŒÞlæ‘N6oÝ-Û¼>eœç¤ôptڂƒ'Jë ++ÏXë!¾Ñê珳™Jš±·;ÕIÃ*µÍ8+LÊ@¦¡58dÁ〜óђww’^ò$ËeðÅìËå'ËrٓNÌÀ!Uì2I?gïi˜Á¡µ?™ùé?níïô(x^ù“´vr.ì(9[²u³–s‡h9·^O-çPwÌì”fG:1ÈÏY˜iÅÌ{OÃLÌ8Ú53—<0殞1N˜a +»ys˜ÂØÕ +|®dÅA¼›¨§Ë¸ì4{ äö¬ß +5[,¹Ö±x姑éh(TÌan؛˜{¸l\´`“î[¼¿ՉÁöôè.Ù +VÏðÈ^`,x +À !Á!y“ílc¶[Lâ>¹š¬Äí´?%ÝÄ3Û#:Í^Ê3Û÷»ÀäS¨2–Å1{N‡w œ¡ÁW-pÊ?£sÜfcßÐAŽ•“ßÊ×Ëëg~ëä‹çL!ŒQí²}Ã1Øè3¬ú +ö%Æ\Ž‡o)Úæ +–È€çjc¸bq-Úî¼õ÷Qû㕩 +RùzÏï±mÍØLëÁYƒ­ÜùqðØ`4ɲ¿›½æÖ°Ãsš½r{ÖïúàuB;áÔ³w9e¡æÛ'h +>m¬1s°Ó×ì’ã8qo0ö|QmôÙ½ñe‘ýÃ_fÊûX¡æ7MyÁñY}€#0׫-[„Áæk%d + +-ïf¯9íñœf§¸=ëu wÆÐYüœp΀¸É†çp§<©m‰Þ`LNåþ¨öû›ö÷»‡7eë¡ô_öHË Š¢¿5ô8Ìw:©óúÚÃÊKù¾3cœà6PÀé²?2`ePˆÄ¦K'({a@NgxN³—@nÏú]Î^€'ñ +0Ý¢;~;?_js|½çß +!ôÒɊîòºñÐX> +Ýøæ©D“Ú F몴!î+Î%F +º›D)7!¹Í‘ïš0E6ê %ÃGp¡ +%yÝ–þo‰:I—ê,ÅіX•£ÔžZµYéåèU&ç;R’LK› +S +;ZB‘6k’M’‚-}Ÿ¥5”iF¤G§ØÞ¡Q¦×Œlï{]Â.‡ÆÁýZbÛìŠ9çŽ_SUtV¹dØIMhée‹¯Ø̂áŸÍ=’Eôù³@÷£˜Ym(Šw+ë +XY#1­–6¬™Ñ +™­fgDGFHóÒ&І~Òx|Ë;Ï¡~\"Õ©Z¸BĪM|G±ÎgÃÉæ +³ÒBEaoc‹£M’U}„Š)Zït>@gJ›5ó&c™Çµ GNÍHÃÏ¡&$Qª]õ¢†u©0Ï6}ð +Å +÷¦:P÷ŠÄÑN¬û +n§ô½3åêá„S[)–ŽíKì¸XäܸkÝh¯š'ɀtD§ÙK ·gý.WO\ãÛö×ml•çrK +7öò Ñ1´‰j!s2¶Àpãâ•Ø±;]«)¶jۃ]ñiWìMи8òÄ'š÷ð³U(õ +fy1^ +)ßÒ,·Âä'Á!â$ƒW³3Ëc²tиû/³92zuÈiç4; +ÀíY¯K¸idŽ¹¡ƒxÞÅâe.Ul +[÷ÁAŸ: +°áÜP'ªÂõ\HkÉ)²¡xt´¶—†¾[芪ðÿ„Bv6›züé5•¶w§BåU_±­ßaxìdéáׁÜԒ +*²¡›¨²¦%cØê€ÓP­TÛµGHY–°’ÆsÔÕÂ9OË°|½ñDȔ¯w|«bÊw¦|GŸG‘/œÄS¼ +&ßBًUS)¾gôêáùà4Q’ì%ÉÞç1$émøP5žÛ^S_\Óþ‡ƒéÍ:{O¸¢™‰™Ü4Wß=Õì|á2*e£ÌÓF]Ç:ÍNÊFÝõºPLߙ¨9ÀÏ+=¸·8yöxFøâ©Bäó¾M(ƒ×F* +Œ˜kƒžB~²6€â7=¢ÐûäIlºÎ +ÖÎýe+áÄI2\õ19é€ÉÉoOÃI +d®)V>˜J¡`¸sR¶+¢JK +=Š)²[´@ ¹÷yZ!S¼£¾A]V‰_é2£â¤&'g¼= +'6‘ë¤Xù‡93g9jGnÆÃêR’Yw—RJ‹ ˆ;@ ¹÷yb!SÊ烐ñ¹ÃHIÐ\Øg¬Êg¬ÆÚõ Y²vÙׄ#y +µÒ•èûêë—ÜÝÓô׬Xaêˆ*Ìa‚qV!“Žl“bN¸s16@6!pùS¹Æu¤f³P—ÊÒ*¶j‹;·a¤—±•a¬ Ó) +H=Ý7fzô°³ï¾—Äd:i( +ã2s6¦¥ž4$™žl¤^¾Óüˆ;+Š›}ã +Œ]5tiï;Éö +JŽ-|ÿê*P +´ŒÛSwârjÑé@—)§ïЏé”Õ£ + AŒgˆm +|ª +֕s +ž‘›Zҋ’¤Îj̒6•ÑU›•fâ?@È1dª&¶Dѝ¢qT¥9xirÒqt̙w3GÛ!=GL;>A¬¤š=÷ +=0Ûø~eoâq-¿§ÆšÌ§ËìEã4æÙfŒ¾£¹g– +¥êœGk»Yi[Å?5ç‹}-ûwwåét#َt d¥@n¯¼£;šE‰ß›JKEÝÖ¢‘Y‡÷µFÁíÝU-´ˆ)ëG‚µÐ]^Z¡´¤E¤Ë +ž‰ÎM#nU?:TÖXvpÌJSB„3sý¯X%}Uü“nÅ\&ÿ ÔtS£ÑG Jý規ZýäêâP¿ÞdÍúÐ-5Cù{Z?aw‡ò] +¦X)šDÑb#ðýâœQÓÙ`§ÙK ·gý.sq.À':xl³Ø†jTsu\ÉÕªtÍ"ãâcÝk:`U=zu +湪|DÙ¿™Iœ(% +3¼•zbüp~±ûLI"¦Rï-™,ŽëýÕüwÈé +šÜžõ»€Ë<ä +Ì,Î拓>)_œä +ÄÑR<ÎTÚË*•±±åç +ôÚr‰’¼{.96Í(͛UÔ¤¡­ŒºøDTcËÆÒ°ï“ +|P/±y<\‰uqw&Ù·÷TnŽù|CÉPƒYù1:Í +’ +š©;ª‚dßë‚[‡® ù¢½ +k¦×qè3•ão¯É™È”i~äÝã¼\äá+Y +>µ­vÞ_¤-ŽC¹¿8ã¶âìó¤÷{êã?}(¡ +ÆÞÃ!P´­Þ¦§ê9¯ÄL³uJÌ1.O*åBIã5'ÿü¡H¹Påc-K™lÒ•˜C¤êâ8Å<Cª³Ï“Ê™ê›Ì*ç&Ðfa¡–7‰K1Y-f¼ø‡³DÌÒçi/=›¼c劝XëÉO¼ÿÒ³i÷"Õõ”Ú +u†P’Ý”@cú·¡  +,W +«†}}¤A歗ÑIÊf^)¬•‘u“ +ÞV€ÙjÇ`‰\þ»h^·°ÆµâÖބ½ +ÀQ5X¦ÐÅ]«Èiá«R ÕÚÜqkJ%” +¤´:3 +=¸b©ðƒkÑ +‡ +L-”QîÕiT7kjí1ë蕙Ò ,­´vGq«_kϝðX¦]^oŸ=­@^¶j +óRpׯ¡Y~7g¹ôæáÒ¾ý­È~Å͖䩨q^ŒÓ~¬y/N·g½.`<Û\Ö-y)zŒq­äRUð¼ A|^º˜ªSóû ªlûXőÖßWWW±k/«;¾~çÒ)OJ¦ñÿì¾ûqc*AñæՊu½N9ç‹Æ +”æ\Ul Ú¤Ú÷ÓùèÑWóóãëdù1Çݛ§t%Å<:Sdk—)¿Uß¼%ܘ +r—áKQ±±t*-(œüTLoBn”=»vü4f:ÚëP)3\ï«!©TÁ|צ.W +=0öÛÅ!)`±ÿÑï¤×€œÎðœ¤×„Üžõ»ÄíbÊÀ$.–ÔìÄ~?ú©niß«úµ¦¸¹Z>Q¾y^àœŽ +œÖZÎ?ë +œXH\I8Þr¸DTÛu+†¸¤ƒ£[É5- +‡®ÚµÍX +CÔK½ ¥MÇÀ̐®Dmô¥ÍBs›ü›òQ)ol|tçä'*9MNÃ(¢ýÎ:Ó ¶RÞ) +„Ö +t†uŸžG’,0ËËÒD./46÷+ó2”‚xšՋj1³Õ˜g›>øŽâ¶ð± +3AXÅ.­"±·1±&¨çbhÒ¬×öQÙsÚÁzʽ%ØiQÇ´6‰-/¬Ð„ö&®jB"-NՋ¶‚T5æÙ¦¾£xɯ[Š~8_×$ö6ðÛ÷ùÝaÑæDwìé¥ +E5î­gÇ[ +2Ú +H1–ät†ç$½&äö¬ß%BÍԃ}:L™Oå +ʯämʏå½Êù6¥¹~ +aD<Ês:L–­U +¯¥Tù†-„ë=I ÷„m1¦w{Gƒ¬ù +Ë'¶æ;t±æ›­Ð×_M¼Žjǐ¹ +ħ¶ +ºnÚ©/m誣S[AB;-e,áí@õê[†Â,mdô +ÍzϨT%T‹Ú3[›Ðc|zÕÚÖaŠ +ß0оâv«†ž^ðÊU¤NTŸ2}NLŸ³wR>ç¾ÛE +›©­®Q9íêbjÏ +ñù%ÛЕÆl +?¿£+ +–'½ì]滩á "•‡ú÷ž +SÊN&–Ÿ?óñ§aáOcÉýJÿ|ÂÇüC¾ÛÞÛÉgD +Û$“c»oK³Î©+‚?<ß +Q!Š÷²õ÷Ç + +ì}.l$S_‡¹äU`ºXO§d‚ +0:à¤üìßI÷éÛ«äøY“qAþn¦æåýhÒïٟÚZhOìE8 ím6ªÃ¢[ä +BՃÖ0Ëé†X‚TïHÏÔõ*DiCï60Dð¤n2α&„•ê$ï¤biRå)• +bÞ6¨šŒl8Åæ‡_}Ÿ\„ÄW<í&†æBÚ‚gÐ<ǚ˙Õ˵Wûfi#£¯47>"[“š2$-|`‚CZ0>ÏõhÒF(’Ý +Šô<Ð:Øh"ô¡YFšÔ÷$éˆ_ðJ{%¸ç<»ÇŠ‰šä€èLÔÜ·VÁD¿µ¶ +³$x„hkB\ßþ¥Wv}kÌÒFF_inðTp¬Ùù“ +*Úϋ@­Ë^2Û +‚&žA´ +5e[×Aì2³ +¾Pܘh?¤¹HE·ÎEª}cDÙô +I“6Bà¢e¬ }ï—^€ØeŸmdô•æÆΧè4Ù~bò‘ +ßP˜²I}G£Í6ƒ¢‰G¨–±&ÄôMIø ëgë + +endstream +endobj +175 0 obj +<> +stream +xÚS(T0T0BCs#s3K= +K +ä\ +B=K°8Ò55Ñ32WÐ577Ò30Éê»å*¸ä+*r¸” +¡ +endstream +endobj +176 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +179 0 obj +<> +stream +5 scnrRGB XYZ ÒacspöÕÓ,desc´`wtptcprt( +A2B083ÊdescadhocXYZ öÕÓ,textnonemft2 +ÿÿÿÿÿÿ$²o/)îe¦ª´M§ +<멏{S]\ +$¼ ‘/¿ + +"<{^KOÁ[a`³„ÂËÏâAO¾ +geÓ +TK\¨Üu¼Ñ$Ô ñÁ/× +~Õ<”gK°u[z*,KN;þ™[t‘ñÔà˜ÑK +‡ÕÚ¦~¨†J% +»90 + +HN<Ç1‰KLz í[­‚«¢¦ºTñÚËpH,_î)Ë +ÞmT1ýþþ ÞÉ%] +¸0a  Í= +‰ + K£Ñ +m\zU!žeÓé„JhºÇ$ + m! u]e þ° õ +¨ +} +Ö +t%Ý + +c0à™ +x=œ‚³L"Ê\‚# +JÍG +Y’ +yö +¯sÍ +þ + Êj +ó\ +Ÿœ +)i&ˆµX1Bm>H+©LÎs +]. +¤© +°³[ +ûÓÒ +{ O +6X +õ +3ÄäxM8÷ +éÂ'd +²2i«Æ?$”Mª +Üf^ +Âz¸æ‰j1¨á°ß^m +. +j +™õ® +#G> +Ì +˜(tT‡3xá @3 +Ê!ØN¹!#<_Ð$ãþô$ò°?%'¿%H ¤z%— +Kw&;¼&ŒL'5 [,()º +a(ð4¾î*Az"Ø+@Oÿ& ,¤``Á/ò}å0000"§°0X +#k0§Ê +h1º +­1œ +=2E!Û! +3+9#S46>%à5Bú(É6QQ~,7´aß ¡<»8 Ä<Ëë!<ê +b!=! +Þ"J=p†#G=Ûu$Œ>eÈ& +?#–'ü?Ú,ô*1@Ê7ù,¾AßDµ/§CS;2ðD~c›(uKQ +2(™K` +ä(äK€ +[)dK¶Ø*L+ +Lpo,`Lú +Á-ñM£%/ÑNo.í2O^9ò4”PtF®7}Q¯U4:ÅSe”1K[ +l1o[Ò + +1º[ñ•2:\'2õ\w¹3ò\â¨57]kû6Ç^'É8§^á1':Ü_Ð<,=i`æHè@Rb!WnC›c +gÎm7‘G¶Üg-[ªìPW +?Xá“èŠ`ÉV$¿ þE/à +‹Z<s•K¼ù[eÍë +ñúÎ<E¼PÂwŸht + +X¸”«H=x) $× +^ø/Û +ë +<—ÔHK + +¬[}—cO»r’x†ÈõA›>ƒ +Šƒ +Þ¶«ó% + +(q0 +µ +<ÊŸÁKPç +%[°ïâ¥òX^ÎÝHK™—ò– +áÚŒ5j5 + +K%a +€ð0d +=!ö +@K¦> +¤\ç$ +œ×V¼NÕòÊ‘ A qŽ ­`Ò +6´ +b +à + +C +«%àx +›0ä +¯= ïëL%6P\† +Ð´ +‘‚ÿ +°ù +çv :6 + + +7¡ + +|*_ + +Ô +-ì¡&Œ"1¯¥>K˜àLÑàD]2 +úܬ + +ë^ +h +Õ +èAR +£ +ù + ûèå +;v. + Vú'h‹é2lþ?'9M­ +I^/±»SÀnžàå + +bÚ +f +× +Ñø +ZK« +Œ +Ï(wÁ¿3|N Ô@7 +6"N½!#t_ +=%a%)´¬%I+,% ¨ç%Ï +Nä&:>)&ѹ'm ^™(8)½ +Î)(4 [*y$ù>œË&‰?F#™(i@,ø*žA7ü-+BD¸0CRS>3]D¶cž(âKˆ +5)K— +ç)QK· +^)ÑKíÛ*ŒL=ƒ+‰L¨r,ÍM1 +Å.^MÛ%“0>N¦.ñ2tO–9õ5P«F²7êQçU7;2SKe˜1¸[ú +o1Ü\ +!2'\)˜2§\_3b\®½4_]¬5¤]£þ74^M'Í9_1+;I` S}ULØŹ]9 +ÞP³ +`f +M€Ý +͵Y +ˆ + +pïÊúC[£ +;o'op^2týs?/æ®M´ +. +^ +&Ã9 +5u„ +Uì +‹i¿ +Ú +¼ +F +ÏR +yqD(¦ 53ƒ +3!I@>" +NÄ"d#é_$"% F%ž»‘%¾2%ô ¯Ì&C +VÉ&¯F +'8˜ž'â e +~(­)Ä +³)4É!A*±A„$*+íP +'r-Q`j0Ÿˆ70®;‚0α +1 +. +½1TÕ +º1¿Å +ÿ2H 2ò!æ"p3½+D$¥4­6H'25ÂC*6ýQ‰-c8aaê!ò=hC"=wö"a=— +m"á=Í +é#œ> +‘$™>‡€%Þ?Ó'n?»#¡)N@‡,ÿ+ƒAw8.B‹DÀ0úCÇSE4BE*c¦)ÇKý +<)ëL + +ï*6L, +f*¶Lbâ+qL±Š,nM +y-²M¦ +Ì/CNP%š1$O.ø3YP +9ý5æQ F¹8ÏR\U?<SÀeŸ2\o +v2Á\~ +)3 +\ž 3Œ\Ô +4G]#Ä5D]Ž³6ˆ^ 8^Á'Ô9ù_12<.`}<6>»a’HóA¥bÎWxDíd1gÙ×sû‚ÉF¢@Åؽ€'d~’ +S +§RÅt +3‘$Ó +h€/Öõ•<“ÞÑK& 4[y7&/[5â¦UY%‹ÕáÚ|ÞF +k"Ï¿²xŒ +“D$ë +È3/ïUH<«?„K0† è[‘žb%®pÍŒð«S¯¨¾ +žìGò }ñ¿ +]½% + +’¬0"Á<Þ üKcQ +`[ÄY +¹}-kÈMâGƒ_Ò = +õ DÇH +Ôp + +µ <%uê ++0xx +@=4` +|Kº¨ +ß\Q È8u ×êÀ ÷a? +-Þû +} + ø +èt +< +qÇ +Ì + +•­ +æ%ôã +Ö0÷pê=³X'L9 ‹\š ú½ä + +Ì– +iì +é"Š +¤q +0 +¡Ü +ågsv +@WÜ&ŸŒË1¤à>_ +Lå +J]E +cÀ +‡&r +ÒFéR|f +Ë + + +7üPÀOàj + +À5'{õ%2€‚9?; +kuMÁ³ +Ù^!š +ìϽ +ü‚ +øˆ +QuC +¡ + +A + + + + +–_?,ö +(‹+ û3 +¸"@K ¡#KNÐ#é$¯_1§&UË&eÈ&„?–&» »Q' + +bN'uR’'þ¥ +#(¨ r +)t)Ñ 8*c4Ö"Æ+xA‘%¯,³P(÷.`w +˜1f” +¼1uG +1•¾ +‡1Ë +; +B2á?2 +Ñ „3$"3¸!ò#õ4„+P&*5s6U(·6ˆC+ 7ÃQ–.è9'aö#w>.P#›>= #æ>] +y$f>“ +ö%!>ã& +?NŒ'b?×ß(ó@‚#­*ÓAN- +-B=8/•CRDÌ2DSR5ÇEñc²+LLÄ +I+pLÓ +û+»Lò +r,;M(ï,öMx—-óMã†/7Nm +Ø0ÉO%¦2©Oâ/4ÞPÒ: 7kQçFÅ:TS"UK=œT†e«4"]5 +ƒ4F]D +54‘]d¬5]š*5Ì]êÐ6É^UÀ8 +^Þ 9_ˆ'à;~`T1>=³aD +§é +& +ù1 +«=Æ“JLKÛ®\¬ +5àö +Yï¨ +¤ +$Fœ +ß• +CÜ2 Š +±4 +R’ÿ&²Çï1¶T>q=?L÷ + +£]Wž:ÒÂI„ +iûŽŸxIï +FZŠãa +/ûX'Ž0H2’½\?M +¦ +˜MÓ!ï +ü^3Ô +áø +”C +? +à +u‡~ +Ä +.{/ +À¹qP c>0!/( +e" +3¢ò#3@]"Ü$nNã&$%Ò_Câ'y''ˆÚQ'¨QÑ'Þ ÎŒ(- +t‰(˜d +Í)"· +])Ë „ >*—)ã"t+†4è%,›A£'ê-×P)+2/:`‰ +Ó2‰§ +÷2˜YB2¸ÐÂ2î +M ~3=ó!{3©ä"¿426$O4Ü"&05§+b(e6—6g*ò7«C#-Û8çQ¨1$:Kb%²?Rb%Ö?a &!? +‹&¡?· +'\@¯(Y@rŸ)@üñ+-A¥#¿-Bq- +/CC`8"1ÑDuDÞ4ºE°Sd8GcÄ-‡Mç +[-«Mö + +-öN +„.vNL/1N›©0.O˜1sO +ê3P:%¹4äQ/7Qõ:9¦S +F×<TFU]?×U©e¾6]^Y +•6^h +G6Ì^‡¾7K^¾<8_ +ã9_xÒ:H` $;Ø`¬'ò=¹ax1Q?îbg$þ§-04 B<½ + +~KCe +á[¤uÓZ™â +äƒ d8 +‡§ + +ò +– +`|ê +ñ%·Ññ%à0” õ<Ö} +1K[Å +”[¼ @K c[@ ®z¶ +.°3 +éÚ +æk +É ++ô +»žêœ i%IÑ +Y0L^ +n= G +©KŽ +[ï +—Ëä +»Ú– +ú + + + 0Š +A  0 +> ê ‚ +ts + + +@ô +é%Ÿ) +Ø0£¶ +í=_Ÿ(Kå +ç\E + +uc +³ +„ +þ +¤Œ +~ +Ú 9 +* ¯6 +•Ÿ{ +ò +È +¿ì“&!„1"®™=Þ—ÔLd +ß8\Ä9k\zÁ§š8'еã +[àŠJ%žµ½ +k•‰&ÊÊx1ÏW>Š +@ÈM!‰,]p£ÄëÆӝó‘)‘Lx +7Iä&Žmz + +Gÿâ'¦ +3Ñ2« +Á +æ?f!ª +"Mì$ò +^LØ™úü¨¬GÈ#Æþ ‚ O +G º7Ã!C‰ +S!íW +4"¹(¶ j#¨3º"÷$½@u%à%øNû)''\_\æ)@ + )ò +T)1i +Ô)g æ +)· + +Œ*"}Ñ*«Ï!b+U #B,!)ü%w-5(.%A¼*í/`PA.50Å`¢!Ø4¿!û4"r"F4Bé"Æ4x +e#4Ç +$~52ü%Ã5¼O'S6e" +)371+{+h8 6€-õ95C<0ß:pQÀ4';Ôb!(¶@Üz(Ù@ë -)$A + +¤)¤AA + *_A‘È+\Aü·,¡B + + +.1C/#Ø0Cú-62GDê8;4ÕEþD÷7½G:S};HžcÝ0‹Op +t0¯O€ +&0úOŸ +1zOÕ25P&Á32P‘±4wQ +6QÄ%Ñ7çR//: +S:4<©T”Fð?’UÏUvBÛW3eÖ9a_â +­9„_ñ +`9Ï`×:O`HU; +`˜û<aê=LaŒ =>Üb6( +@¼c1jBòcñt Î +Ö¯ é%6ä +Ù09q +í<õY +)K{ +¡[Û + +D­ +@S_ +‹sÖ +©SÆøùà c +é í<˜ +– + y +b%h® +Q0l; +f=( +$¡K®l\t +× +Ò¶â +ò-b +(© + +w P +ã?` +l“ð + +`Ð +á%¿Ñ0Ã’å= +{"L Ć\emn‚}5ܝ¬[Ó(" ύ¾XèÁ +ßɍ&>þ|1B +‹‘=þsÌLƒ"¼0\äc.:rà +’WÈÔÀ +{½ƒj +½‘¶ +‹r&ê +§q1î4 +>ª" +ÁM/%f%]¼ +£Ë¼îë3n!°)q +W&ÜFje™û + +g +Û +Ú'Æ  +Ê2Ê"ž +ß?†%‡ N +(Ï!^l´!“Ø!¢Ì#!ÂC£!øÀ +^"G +f +["²W + #<© 0#åv"$±(Õ$F% 3Ú&Ó&µ@•)¼'ñO-)T_{Â*û`æ+ + 1+*‰ ²+` +!m+¯ +¬"j,œ#®,¤ï%>-M ¼'.*)T/5 +á0 +AÜ.Ê1ZPa22½`Á%´6 +ß%Ø6‘: &£6p + +'^6¿,([7+ +)Ÿ7´n+/8^"<-9)+›/E:6Ÿ1Ó;-C[4¼âJ–cý4hQj +“4ŒQy +F4×Q™ +½5WQÏ96R +á7R‰Ð8SS +#9ãS¼%ñ;ÄTˆ/O=ùUw:T@†VŒGCpWÈU•F·Y+eö==aÜ +Í=aaë +=¬b +ö>+bAt>çb?äbû +A)c + \B¹d.(+Dšdú1ŠFÏeé<I\fþIILEh9WÏOŒih0¶‡ˆÚ–;%¶²¥ì.` ;Õ] ¦ +Ä¡ +02 +Ùå +¥%DG +”0H +Ô +©=½äKŠ#I[ê :¡: IS + iÊ ŸGÀ îí½ +Y +Ý +ã0’ +Œýr +X%\§ +G0` +4\= + +—K¢#fü\á +²Ô +Á†P +áýÏ +zŠ +g ˆ +ÒÌ +[c\ + +0= +Ð%rÀ0“ +ÿÔ=O èKÕ$0u\58 +2*\ +Aݧ +aS' +—Ðâ +æ wßQf#Ûº´„ +‡”Q%æ +É@0éVU=¦"@L+%ˆô\Œ0Ý©Tì\Ÿ +ÓBOÚ‘ ö×ýå +†9¬0 + +Œû&e +Áë1j!Oÿ>%$8;Lª'€Ÿ] +ÚÑUþáI~È7û„† +¢ñ‘Å{ä +U$ +²6ð'!lß2#ùô>Ð&á +/MV*) +“]·C ++1g +:ã² +ZZ +1 +× +í +ß +~ +ê +Jm. +ÔÀ ¿ +} +Ž" I'í$Õ 92ñ'b!N?¬*K"‰N2-’#í^“x$@œ$óç$0j h$fç!#$¶ +" %!}#d%ªÐ$õ&T&Õ'(ü) +(4+—)#@¼.€*_OB1É+Ã_¢$‡-i‡$«-x9$ö-˜°%u-Î +-&1. + +Ó'..‰Ã(r/*/¼ ä+ã0ˆ*B.1x5G0¦2ŒB3Ž3ÈPˆ6Ö5,`è*x8y*œ8‰¸*ç8¨ /+f8ß +¬,"9.S-9™C.c:#•/ó:Ì"c1Õ;˜+Á4 +<‡6Æ6—=œC‚9>×R<Ç@§V+&@ˆVö/vB¾Wæ:zEKXúG7H3Z6U¼K{[šf +BdJ +ôB&dY +¦Bqdy +Bðd¯›C«dþBD©ej1Eíeó ƒG}f(RI^gh1±K“hX<´N ilIpQ j¨WöTQl +hVo +r·“ +iÞ +¡à] +×] +&  +’ +óZ +Gê +Ä + +ː%s 0w"Ž•=3%wÑK¸(¾4\Ï +%Ïó +4‚> +Tù¾ +Šuy +Ù +v +E +º +Î_ +Kx +, ++C%‹ `40"îH=K%ׄKÐ)è\1™ +ž½ +­µ +Ì,ˆ¨CR O@½> +G’ +ð +_ +õ½%¾!+¬0Â#¸Á=~&¡üL)é`\dñ +Y- +`M‚߃ÿ›Ò ¦˜=• +ÜÇè +lp +¶ M<&"ƒ+1%@=Ô'ù|LZ+@ß\»éÈØ +ØŠX÷Ø-~ +“} +% +è +Ôqg d +5"Fç&”${Ö1˜'ë>S)ñ&LÙ-9Š]: +’½„ +¶Ì6 +ì­ +"*<q +Ð 9ÜÀ!f# +à$ïÛ'?'$ +Ê2D)± +ß>ÿ,šM +/â ]å ý`! %!kE‰!ë{"¦Ê +¬#£ 7$è Àï&x!j +¼(X"5(*#%3 -$9?Û0%uNa3L&Ù^Á%2&ío%V&ü"%¡' +˜& 'R &Ü'¡ +¼'Ù( +¬) +(–ÿ*­)?Ì,Ž* +)+.Ã*ú401Q,@ë4:-JOp7.®_Ñ*?0Vµ*c0eh*®0 +ß+.0» +[+é1 +,æ1uò.+1ÿE/»2¨!1œ3t*q3Ñ4c5v6^5xB29G6³P¶<8a00;e40T;tç0 ;” ^1 ;Ê +Û1Û<2Ø<„q4 +=Ä5­=·"’7>ƒ+ð9Â?r6õ ¢7~H^ +7þH“ +–8¹Hã=9¶IN,:ûIØ +<‹J$M>kKM-«@ L<8°C.MQElFNŒSòI_OðdR>äVÄ +é?VÓ +›?SVó +?ÓW)@ŽWx7AŒWã&BÑXm +xDaY&FFAYâ/¥HvZÑ:©K[æGeMì]!UëQ5^ +fKGºg5 +#GÞgE +ÕH)gdLH©gšÊIdgêpJahU`K¦hÞ ²M6iˆ(€OjT1ßQLkC<ãSÙlXIŸVÂm“X%Z +n÷h + +)áî +Mð  +˜ +F” +Ó• ;Ð*!‹~"¥4 +K$†%ª&»ï0­)H=j,1?Kï/x£\P +‰” +­£¹ +øÃ0 +xù¬3I S 0´B!u>–#ç +c$æ³%Â'¢0Æ)¨·=‚,‘óL/ÙV\h +S +9 +w +ì +Â<cBrßý † û-u"@¶É#Ð` +–%°+%õ'å0ù*r/=µ-[kL:0¤Ï\›«ÏœB ¼¹ šò6!VA Ý"S¬Ì#—6%'ß +í'«&L)=š1O+ʯ> +.³êL‘1ûN\ñ!¤7!ÈFÁ"f8"“œµ#Në +\$KWK%àž'Š +l)U&Ë+5E1Ï- +Y>Š0¬ +•M3ô +ù]q$M +,»$q +;m$¼ +[ä%< +‘a%÷ +à +&ô +K÷(9 +ÕJ)É +~ ++©J'v-Þ :2{0k!O?63U"ŠM¼6#î^ +'·"†—'Ú"•I(%"µÀ(¥"ë=)`#: +ã*]#¥Ô+¢$/&-2$Ø +ó/%¤(R1H&“3W3Õ'¨@6¾(ãN˜:*G^ø+ì*[¦,*jY,[*ŠÏ,Ú*À L-–+ +ó.“+{ã/×,61h,® 3I-y)b5~.i4f8 +/}A":ô0ºO§>;2 +`0ú3Äì1 +3ÓŸ1i3ó1é4) +’2¤4y93¡4ä)4æ5m|6v6!J8V6â*¨:‹7Ò5­=8çBi@:"PíCJ;†aN6ë>Ôk7>ã +7Z? •7Ú?9 +8•?ˆ¸9’?ó¨:×@~ûGAó,'@|Bâ7,C +C÷CèEóE2RnI;F–bÎ=ÊK '=íK¬ Ù>8KÌ +P>¸L +Í?sLRt@pL½cA¶MF +¶CFMð$„E&N»-âG[O«8çIèPÀE£LÑQüT)PS`d‰EŸZ2 + EÃZB +ÒFZa +IFŽZ—ÆGIZçnHF[R]I‹[Û +¯K\ +&}Lû]P/ÜO0^@:àQ¾_UGœT§`‘V"Wïaõf‚Ntj¤ +ZN˜j³ +NãjÓƒOck P +kY§Q +kÄ—RalM êSñl÷(·UÑmÂ2Xn²=Z“oÆIÖ]|qX\`Ärgh¼$ñÙ.%èà%_W%ß>Ô&šŽ z'—ùj(Ü‚½*l, +Š,Lø%é.ç0í1ü=©3ø7L/7@›\%QŒF%tœø%À»o&?òì&úA “'ø¬‚)<5Õ*Ìß +£,­«&.âš11p¯=Á4XêLG7 N\§&y&?+&Š4¢' j'Ź Å(Â%µ*®+–W +Ö-w#&5/¬182:'=ô5#cLz8j +Æ\Ú'r„Ï'–“‚'á³ù(aéu) +9 + +*¤ ++^-_,î× +,.΢&‹1’13‘ +§>K6z +âLÑ9ÂF]1)k/O)Ž>)Ù^x*Y”õ+ã +›, +NŠ-V +ØÞ.æ + +«0Ç +M' +2ü<25‰ R>Ê8r!ŽMP;º"ñ]°, $ú,8 3­,ƒ S#- ‰ -¾ Ù +G.»!D6/ÿ!ÍŠ1"w +W3q#B'¶5¦$22º83%G?v; +&‚Mû>c'æ^\/}&}Ö/¡&‰/ì&¬ÿ0k&â|1('2 +#2%'3i('f4ù(Ð36Ú)œ(’9*‹3–;œ+ @R> +,ÛN×AÎ.?_83³.Sæ3×.b˜4".‚4¢.¸ Œ5]/ +26Z/s#7Ÿ/üu9/0§ B;1r)¡=D2a4¦?Ñ3vAaB»4²OçF6`G8Á7¼,8å7ËÞ907ëU9°8! +Ò:k8px;h8Üi<¬9e»><:!‰@ +:Ú*çBS;Ê5ìDà<ÞB¨GÉ>Q-K?~a>²BÌ«>ÖBÛ]?!Bû Ô? C1 +Q@\CøAZCìèBžDu:D.E# FEê,gHDFÚ7kJÑGîD'MºI*R­QJŽcE‘O• fEµO¤ +FOÄ +FOú +G;PJ´H8Pµ£I|Q? +õK +Qé$ÄLíR´."O"S£9&Q°T¸EãT™UôThWàWWdÉMf^* +_MŠ^9 +MÕ^Y +‰NT^O^Þ­P +_JœQR_Ó +ïRâ`~&½TÃaI0Vøb9; Y +cMGÜ\nd‰Va_µeífÂV +=6 +pL@~Ô\ð.ù‹Á/ +št/hºë/çðg0¤@ +1¡«ý2å4Q4uÞ + +6V +©&}8‹ +™1‚; +­>=>éLÂAI!N]#0P + +0t +Ê0À +:A1@ +p¾1û +¿ +e2ø +*T4= +´§5Í +] +t7­)&Ô9â 1ؓ?X"iMB¡#Í]y2Jµ—2mÄI2¸äÀ38 =3ó k +ä4ð ÖÓ65!_&7Å" +ó9¥"Ô'S;Ú#Ä2W>g$Ø?AQ&M˜D™'x]ø4ó$«C5$ºõ5b$Ùl5á%é6%_ +7š%Ê€8Þ&TÒ:n&ý +Ÿ„(¸3A)Í?¾Cû+NDGB,l^¤8\+8€+Ñ8Ë+3H9J+iÅ:+¸ +k;,#\;3 +{?83úk@|4ƒ½B5- ‹Cî5ø)êF#6è4îH°7ýAªK™98P/Ná:œ`A •!ÒHü?`+0K1@Q65M¾AeBñP§B¡QuSïDaÖG‘GSóGµGb¦HG‚ + +HG¸ +™I;H@J8Hr0K|HüƒM +I¥#QNíJq,¯Q#K`7´S°LuDpV™M°RöYàOcVNoT + ®N“T+ +aNÞTK +ØO]TUPTÑüQU<ëR[UÅ +>SëVo% +UÌW:.jXX*9oZŽY>F+]wZzT±`¾[ÞeVEb± +¨VibÀ +ZV´bà +ÑW3cNWïcfõXìcÑåZ0dZ7[Àe']¡eÐ0c_Öf¿;hbdgÔH$eMiVªh”jsg +_s# +â_>s2”_‰sR +`sˆ‰`Äs×/aÂtCctÌ!rd–uv)?fwvA2žh¬w1=¢k9xEJ^n"yXäqjzåiD7Ï +zÈ7ó +‰z8> +©ñ8¾ +ßn9y +. +:v +™;» +#W=K +Ì +$?+˜&ƒAa ˆ1ˆCî!>CF×"ÙLÉJ$<])8/ +-à8S +<’8ž +\ 9 + +’†9Ù +á +-:Ö +M +< +Öo=«€ +=?‹ L&œAÁ!<1 DN"P>[G7#ŒLáJ$ð]B8ú +¥9 + +µÅ9i +Ô<9è +¹:¤Z +`;¡ÅO<å P¢>u ù +p@V!Å&ÏBŒ"´1ÓE#É>ŽH%MKI&h]u:Q!&j:u!5 +:À!U“;@!‹;û!Ú +¶<ø"E¥><"Ïù?Í#x +ÆA®$D'%Cã%32*Fp&H>åIY'„MkL¡(ç]Ëð%ð%@5&yxAÆ'# +EC¦'ï'¤EÛ(Þ2©Hh)ó?dKQ+.MêN™,’^J>ó)Å”?)ÔG?b)ô¾?á**:@*y +áA›*äÑBß+n$Do, +ñFP,ã(PH +-Ò3UK.ç@Mú0#N•QC1‡^öB]0pB0.#BÌ0NšCK0„ D0Ó +½E1?­FH1ÈGØ2rÍI¹3=),Kî4,41N{5A@ìQe6}OqT¬7á_ÒF’7õ€F¶82G8#©G8Z +&H<8© +ÌI99½J}9L:G ÝMî;*RPXâ?¶`áK A^ÆKÄAmxLAïLŽAà +lMJBNGB}O‹CUQ +C°"#RýD|+U2Ek6†W¿F€CBZ§G»QÇ]ïIb'Q’LmEQ¶L|øRLœ +nR€LÒ +ëS> +endobj +182 0 obj +<> +endobj +183 0 obj +<> +endobj +184 0 obj +<> +stream +xœ¬| |TÕ¹ø9çÞÙ23™%ˬ™¹³f’I2“"¹‚@€DPÒdH&‹„L2I@T +®@\ Ö—VQú‰`@[¨U[­}âkkÕö|­ZÓږڪ$ùçÜIêë{ï÷s9ç|÷œïžåÛϹ— ŒÒ¢íˆCµ5+Cˆý^![ݲ1Ò#Ý¿Z‹þc˦~á¯9ïÜ¿EHñr[OûÆ?‘=(GHžßÞµ¥MÂ/»„ÐÍå +ÑHëëßȸ¡́ʒ¨0þÉø)BÉoÁ½·ccÿu‰ñöBÿñ®XKDºÿÁl˜TúÆÈu=Z¬ÿÀ‡þÐ +ÙEÅà +„tv„ì¯ôÄúú%üÕÐöžx´çÂì{a.Á'Ev7B²¥È ÉÎ݋lM¾ +é¤&–L^’m@ž‰k'Ïs)ðô÷ !ºíG^ô ÎG/ 3h zU¢Zt/º½ŽŽ¢d´ÿ +ñȃ Cȇˆ  +ȄeèAô6Z‡âè=t +P5ú +6B?U¨¥£ÒÉ!¯F;'OVšþÂ]x% +¼ˆäà Œ¼{ò +2¡ÀäÏ'߂»ï¢÷°wòZÐûȀ2Ñ6ômdD×¢W')E¼h=z߈?D.Ԍîà‹øÁÉ +h:Ž~ +«Z†¶ÈÞR +G]ðÔc؄ÏLž›ü=ú!Qzºí„£3$›/;€äGW¡å(­7 ·q +ÎçÄÉÌÉy“Bí“è/$H^æ0 ZŒšÐ]èQ Æ›èúVãbü]|®7ðe”»Õh]rõ] Þ“è:‰óq>1P˄²Ð*hۍÂø#è,®Æ +ø +þwPž¨˜LL›üýä$ÊFõ0ÃýèG0ÆE + +ssý¼ƒï—Œß+lE ³è +˜Çï€îCÿÀÙp½K¾E¶M®™<4ù +ÌE‰œh6º­E1´ mFß®¾€^DÆ_`¾Î¿$»^öÉä=@[?šs¯ì•Ð÷ +À¥a4 +כ°J`³ñr¼·ãÝø~<ŠßÆo9q‘^ò7ÄýŒû-_"“M–AOéÈãzÐÔ +øPû +Xï!ôz§a?Î +½ ÏJæp=F^'¿ãnãvó—d·OœŸøÃÄ“ƒHRv5Ða= +TøN‡9dákqþO˜ù +ò +—Ìé9WÌUru\·“»—û)÷¯|œ?Ì¿#[,‹È+"ÝoLVOÞ +´ÀHóÊD9¨ÍùiiÚóë+ŽnD7¡At7ÈË=è: +ë>^A¿BÿŽ> ì‚9wÂèAênÃwÃõ >‚„_¯àwñ§ô"n¸¤„Tùd!i'·Áu/9KÞ$pv® +ÛÆm‡kw‚{›G<ÏOÊ +àZ$»Cö¤ügŠ€b‘b½òµKcãÙã +㿛@։oLÜ?ñ£‰ßO®žÜó÷¡\”3ݳ|dð \Oƒ$ž@/£×ЯÙ\ÿ‚ –Ä›±¤!¸V¯Æ‹áZ†¯k\kðZ¸"x=î€kގoÆ·à[ñ]ø>ví +µ +ÄOáp=‹OÁõ+|¿?Â! Ąiö‘L"¥°ÒùäjRCVÀÕNbpõ8Ù +z’Œ“äM. +óq¹\„ëå +äþ +{û%÷Oø +>ėó«ùvþþuþ +þ-þ +™SV%ëí“½ ·É‹ä«ä×Ê÷ʏÊ?_RȵŠõŠ¿TL*}`­~ë>ŽfþBò×qŸ,•¿Žœ½0s=² +xPLNê¸.înîßdmøNÀïàA®“Û0ù·üƒ‹áÕä4vsNY׆îD“ø0y—\$¿çÓp +ùøoãgIŒ›OätÙ/ø4þØXòkTF¶â3ä%îî–É 2Ù>|N¶¼þÄ=‰— +pkˆhñ,pB?ç\ø—\j sÄ~’†kÉ'd÷¼ü,WŒ1X‰C×c‡Av¦~¨4à^’ 6­ +¬É/p2£ÀÞ_œxžZlÙ[²;@Î +årÐ +Fäg¨ +tã=¸êÑí¨܉Âd/ºqr;n»¿ +ì'A£øZÂj°–&˜Û6ðéÄ +¶° FýØÿWÁêWã?¢ÍXÍ:ƒ9éÄI¨c² +,ïóè B¶g;rÈ‚ì"qÞª:±bîUåsÊJgÏ*).*,ȇòrs‚ÙYL¿Ïëq»§#Ãn³Z̦ôÔ£A¯KÖjÔI*¥B.ã9‚QN•ga³0äo +âýžE‹ré½'‘ÍCT-¼gHhfh•˜"`¶} S”0ÅiL¬ÊQynŽPå†~¾À#Œâµ×Ô|×Oƒ04Æàe +ÞÃ`-À.< T™;C¸Y¨Z¸©c°ªytwL4ß3?š”›ƒŽ%©T4dòô +湘ÄTUvŒ ¥&5dõ,¨²xÐ +q¾ªHëPí5õU +l.WCnΞßâY?„<ó†tA†‚æ³a†äó‡l¡“®Ý! +Ë93xç¨ +­ojZ=­‘uõC\¤Ža¸ +†L×_0_¾ +΍óëwÌlµqƒUæNÞî†\S?³ÕEó†ècˆø6.„ïV¯`,r[Cý¾ +è:蚤ÕE=U´¦ùZaHå™ç鼶c + +B+¶¸†­Vñääyd­ëê=®¡ +›§!²À~, +®Ø2b˕-¹9Çô‰¬Ç’u @£ D§ÛÄÐ)T½bš®˜ÎȳÄaHh`&õ +XÓlšEg£Á–Ù€¿ +O +µ?:‡Tó›õeP¯§ÏÉ|z0ø7ü÷Œ}|eM$Q#÷éÿ†(H¥dZР} + + +‡²³©€(æGaŽsÙ}qnΦQ2äéÑ +PùP-Ð6ÒPâ»\”½wŒŠh=Ü +m¿¦^ºÐzÛ0CÁ†!ÒL[ÎLµ¤­¢-Û§Z¦oö€ +?ƒèþ"mHéŸþ§Ó§§Tu” +áôÒ +•Ú«Wzª¯Y[/T +6'h[]wŝÔ>{º-a©>Äû€R‹= z+ÖÖÓ +ø'ó-ôTu6/Uƒ9¥Ì¯çl¤A‚ˆc]ü®›î™ÞÔkh_¼OÎä¿uT¡f5XX8¤o^$å +I.×ÿð¡ÑÉOèS¬¸üXbMCeÁ+ïç\qÅô4ƒ +L˜÷“꺵ƒƒIW´-c58¸Ð#, +l +ŒŒNn_ïôžÁ“\=W?ØSÕ<ÅþÑÉSw؆ÞًèÀe ÚÍ;æÁ;¯9&â+×֟ÔÃkg]ý0Ád~ó¼†c^h«?)€}fµ„ÖÒJz#Ððo ÃDÉðm'aS¹µò¬‚Ý·ŒbÄê”SuµŒ©N?UG Ž—êDVGÔR̯«Ÿ)L±rY;T×DZ£G_ôOøõ¬æŠß:Z#Dº âl‚ô°[ +ñÍ«ºØÀ¹š[ +9—ˆPÆAO$`‚’‰2s(ŽßLÀü + +2s–#7Y”€è­i +%ò“O° +Ý®r$à$ÙjÕã Xâɟ'` +jÓu%`­ürmNFëtÿ6½Ömú¼Œ‘NÿýLÂP€9Tj°$`~Ž +i +e XŽ +† Xº¦q”(ÅðTV¡ù©?HÀIäpÚ½Õ¨Ôt8kP¡éBÖrk +- 8å™M0ÌSªkÌU +–QŽ˜W1XÎê£ +fœ2÷2XÉà›¬JðH‚% +I°Ä# –x$Áü + +‰G,ñH‚% +I°Ä# –x$Á$Xâ‘K<’`‰G,ñˆÂI3Ö«fkù6ƒ53ê“ü(ƒõt-æc +NØh>ÍàÔøi¬ NŸQoaϾÁ`Ñú̘ãœ{þ9g3xŒÁ¹ +þ‚ÂÊóWÎK3£^3c-:*?mªC[`¿ +Ø;‚Z ÐSê`§Láe°Oï†ÔŸÀ VŽÁå¨ïdÔtÁóy-`õ‘ÿϞBÓ3 †AÝÀ4N‹®»ãå£R¸Â°• V[ OtA¹ži‡9ô³§V@}â`g¢Õ×AëFV' åPnf81¨‹@ÿÿÂæOg× +m´.;tÚÛþ?V&@mæÔ £ö³¹Ð™pOqú½®‚U +¨–=OσèxË ¯±ÛØ +é +ésQ赏ͽ#Ñ[ÞWæTö߬T¢L;и‹­² +¬/í«ozî +Ðk.í«:a +qhéc´è‡½Ìåþ¥Þ/÷] ++YíËaîuÀ· +æ(\µtM +!_Êê« f%䔃WC/Ul7Hkëvk4QÊw²•ôEz§ê%*ö°Yö°µPÜ)Þ}•g’´Å€”g=ðü–4îLÈÏ£4„`¬u +àLÙÂδ.ós€=Kï/ÏGâ÷F†/̈́êI£g”Iv”Õµ³^¢Œ¢ÝðåwCb´hßÄðb0ªiTr¤1ûÿ e¦xµ™q8Ê$§313:ÇV¸£õ-P×ÅÖ×ƨ·ñkéK¬‹R,:£—͉>¿n¼Ö„ÌÇ¡\ÏôYšõúgº= +‡2Ùª®¤•¶¼¯‘Š¯Ž,ÕSZo‚œÚ’ŒÚ• vë­ÿ¿ +;éc7Ãïc=mù +/$>]©Í”:Ò¨}¬Ÿ¨mc+øŸð\HÈb7³ Ýpwy\j‘Z¥%ýŒ0[Ÿaër¦±ã3äVZ_ÿK©.¦ÍÓ +’Vr¹¿ÍŒÿ7gZ¸¶„\\ƌ®dûÅiÿ +Óë‘æ5Sº©Í Ò Ñ_Òªž„|LIé—e蟭è²|,fkÿ*ç( +iÿ½Pe}O­¦ +•-Œ«Ý_âAüKô¾Ü3]_ŒYÒք­ßx’ŝ²ÿîOõ'é$ÕÕM n\Ö±©þ¾ÊG‰ZÒ +ú™ +èÿZ=žâXäK´nû_Íö2•¿:BKÂìOÜ͜‘´ +*AeÓ=PÏGÏÏr™¯™ÍNdzžþ}6Ԇ¡†z"ù­BÕ Ì0´æCKQž +k{ªCT@ír«fVFèE¯¦1’·¢ZOã¸þ„6JÚK­•2I»§}Ñz¦16³/ûŠ)9•¬Õ»>fIb +Ð^[e¨õncº)\!¡qFŸËñ¥4·)ŠÄšÞ9mi[¯à};šÐ¼‰xñÊàŸËBf‚B—=ð” +’|ã?—)Fü*ÿfRX¢Qwb¦ÝÓuqfeÚ¿$=¢ë˜fv3nmJxÉ·I4Ú4#¶š¢ª$E›X¤¾iZ'ژ¥œ +Ä1´$s_ïåÿg:&­n +“ +I®cÓó—ä²sÚ>õ} +â’̵N[¤V&#Si€­]³–õÕÃ"„f'§¢ÂZ-Oùçœi‰Ÿ’æÓ¾%–ð}l¥] ©ë`|œ²„ñ„g£«ëcœ¸Bèl©Æ]é“Û§ùA×MéÒÅú—8L¡væ);™—bàÆó +Öz¥?i‡–XbWђàÍFxF¢õÀke#lAS¾û²=YϞݐ˜«D¡ÌWDÐõ‰µï +[Ae]Ú%ME,±+lh+“¯+¸8Õs„ízb3z“"ƒ +Ɠ-W`¶&âò~†!ñ5ïé B +#ô +‚¼ŸY:¯‹æ›XߒÖIö1>½ÿɛ~òÿvÄ͌S6ñÿb”©¶Ð—<þtßu[z¢m‘–¨ð”P×–źcýP%̏Å{bñHg¬[èéjÉDú#ÿ +Rˆv&¬Œu +К>aq7<—_ZÎ +¬ O¨ìêVt¶wô÷ +¢}Ñø¦hk]çÆhŸ°<ºYXÛé>$ÔÅ#­Ñ‘ø!ÖöOâÑöξþh<Ú*tv +ý€ºj¥PéüBÝ2¡¦­-Oˆt· +Ñ®¾èæ@˛ê©ìKƒÂdÚº"ñ²ÕÑxí½0/ +Ë:[â±¾X[Ãt†]»rYÝòšºÅ +ϯ¬[\³\¨Y(,]<¿jùÊ*¡òêUU˪–×i“´Iu +}Bÿy) +Sì‰Çz¢ñþ-tuÓ+²ÅÚ㑞Ž-lƝ@Ÿ¾¨°~‹°%6@Ÿl‰mbë +ènÆY?°î}´“ˆÐÕÙíôH{<ÝíîÏ౎Ȧ¨[ßéì†'û¯˜ +]ÕæH<*D;¡³¸Ðڏ¶ôwmÚⱍ—烱bíQ†²0/?× +”w®臮aš±îèÌeöMM*ڗ7MŠé‡Ž›"]‘õ]0í¾¾hÿ̧ó„UÝ]Ѿ>¶x¶ +XS‚Íý1x´¯'ÚÒÙÖÙòՕ +@ÅîþÎîvöl¤µµ“JK¤Kˆ3©Ë¡ÕqF[¯ÿ˓êêÜØIƒ0¼Í±ø†¾~Iàڀ¬2¶¤o`}Wg_ +ú’Ƚ1²E€ù«z¶PÂ]¦Ð•1z,n»¼¸H÷¡w Údži‰u·Dã݉ÄófÈ} +±®VúM ¸T¾º|ŠœŒv‚fI +£xÓk„iÁý‘–þË<¦ +‹$fÝöõݲ)O?Ð +³>:ÕŒé/£«VV +¹B`vѬ,aVþìÜpQ8¬R­ª†Êp~~Qä³ +g ³JŠK‹KµI +ýý=e¡Ðæ͛ó6N1¾%¶q¦ND +ñÈfJ +Pf˜ô´²?²±¦ïì‹uç«;[úaK#ñVJ€üÒÂ&lqfC˜€MK}[g¼¯_ˆôôD# £AÑiIíŒd€KcÝ­ÀŠîè澞(k£ÑæŽÎ–PMas¤Ohöu¶ƒZå Ââ~`#°w`}_ØØMµh}VÒ +JS¥®Ö>ac +&Ð7ÐÒâÝ6Ð%HG™ŒõAot"°´öN*´­Òêû„Í ý `­Ñ„ø@Ý$¦Úø%š€Eœ^Ÿ4a˜Q7tÚM¡xl ½„Pˆ^×lɁEF©™ÝĬ*hS¬kåDÛ@\2 ”r3Tþk8Ã͋ô­c´ e'•§¾©‰åZ© µ0Aè£OÖFã=Ñþ3 +µ]LŸs(á)™7Rm‰ôõoÖ¶tDâT¡·þΖ>ԍñ'ÒéIhr;]Gôº–hW]p8õ]`[b=]SzÒ +‹«€¹Ä6nY¯él#ú$9Y‹mècÚi\µO’Šx\5,1IB[c-Ò)r¤«/ÆÐÀôtE$ë +i[ÞßIך÷_(A¨£cWhc?ý&3´±¯©Ÿ²ä1NýO +mü>¸9ÚE%ñ¿„Þ +ŠÏ°Ñr‚mdAY7;¸€m +ÖBèp-Üȏ©ö©P«´‰á +âŽq?àNC:ɝâŽÌè+©ûwYßÑ+Ɗ^Ñëwðù|55ä¥ì#ÊM,”‚Ÿ<„å ++?Î6i´Å‰ÃjºU£¡-½[ +wWCØ;µ¡£ßZÀf®N +ä/¸ŠÍµšm +¤C{i3FîW0zÐyç!„N¡ºÉ3Ü»#UUâ(”Á +ʽ‰ò¨·Ay?ûÙÉݗ¸ßÄ +°çúå®oØáÔW: ]€†Ät/@÷éw!ÇÜ-\é”Pn”J ×Öa—‡ñhëˆÉRpHºH¿(·(·ñÐtã΍N.w#àÜ87΍@•0×ãõÑàë! 8 {НÖA~ÒYV+ä{ + wÜf cÌjwípÀ BÖ>R*T<ǵ©E®mĒQ°ûò*‰ +"”ɉRGq£¬5:¢ÒÐÚèˆ5C*kCe2ׂn€DP*ä^HE@⹖aoÈyŠ[Ž6*‘˜ìÜF¶qÛøm2>¼Os¨V‰@$\.*„,gS9žÕ¬êQmWqz•  +«DU­Jã¶q»9ÎÉ +¸ +®†kâd£“g†e +PˆWËË +÷¨¨‡ÔgÔgÕ²!ùùYùyù'r™ ËEy­¼YÞ#ß.ß#? Wí‘ïQfuz»šÓ«uX-ªkÕ2§¨¼[O_€C®‡Ôi$ +hÜõ÷MHMÀ& Å7¡ +AŽàNé,À硔Áðt€§ƒZ +Ôê AN[j!5CêI´Ê§[¦ž¡øŸÐH™Ðš +µô•óyÈ?¡¤%p§ +;-Üië,¹3ÔC.@ª +ıºó@j Ÿj +'ڛ!ÉYû' +gªM¤Ï’Kb$óL +ʲðž,,–WTˆnȌFc“§É×h:ÈÇ<1_,;È×xj|5šƒ| +§ÂW¨8ȇ„rب +ç\€Úï +çì‚âžáœ.(vûè¯ +.ÏvVp;òŠÛ‚|„ÎdibÄEÐs”WKW +çЧÐFñüaO>™t–ÏcªeÃ9‡=l‘Èú°#›´ +ùX™ŒulòZäf¥rØsô"ÆwÁù÷òçèÂÑß°nxŸó?Ÿ‡õ­†ÛÿÀ‹‡;ß8IÉ5ì|=gûN8ÿÕóœó%ï(^=ì<“3ª„†Ó9£w +".Á'œGsڝß÷°Öƒ +hVï/Ïu>ìYë|Ð÷ÃΛrž§Ó@aÅ«¡¹!g®siùaçBß(†f± +“œež¸³ªgâÅ#‡ùÞQ:•0ôqø„3Fô{ØTVÍ:EŠ‘ˆ9Š~ÅzÅjÅ5Š9ŠBE®BPd(ìŠT¥Q©W&+5Ê$¥R)WòJ¢DÊÔÑÉób~û”*gŸœÉyšó +Öšéã4‚•tg( +«&Õ+çá!c5ª®›74+X=ª˜\14;X=¤¬ýFý1Œïn€»!²s£ºzPZu›~`{a +ºí.-o¼í®†\=t¦U¯†>] ëHºfíÌ3όÒ7U˜+Œs +¥ +|M֜ȃ—æà̟9cèþê•õCOg4 +P`2£¡zèjúiîIÒKbU +N’ +Z4ԟÄדު´ +_¿ a +¹I ¡rZP´ä¦hȍGÚR†bê®ZpÌ햐^À‹)ˆÏ + +©]êË +C@_µ´4â@^֗—8(ȃԙnfg„u¬3±Îìé˜Ï(9>Šrl–Žùf±æכ=>i: +ÈÇÆñá6ƗqHA‡('øù‹Îû_ ã‘Èo[[èÒ͞ª(¤æ¡;6u˜‡¶¯„c­¿M|9ío^ßÒAËHt跞股VÏáX¤åkš[hsijàj©ª«?Ö"F +GÄH•'² aä‰mó«¯k×ôXó·}MgÛhgóéXOTMs5m~‚ŽUMǪ¦c=!>Áƪ^1W×ÖS¢y +ó×IåQ'>4Û\ +óÒõ=s™rÌq™¿e;Å#p[ê`ÐÆ3oH +‰6åVæVÒ&ÐNڔL?O4™¿5Çe; +%šôPmðÌCAd®ê\0ý¯¯¯¯Ÿ¦ äýfV×JëZY=´~°[>T^5$6/hÀ” +‰ßüzQºüõr+ßV¾»|ùÑrÙÀ@TO»_w“&w̽ͽ۽ß}Ô-§ +ëêOˆåûÝrs M¸~U +ؘPÂ?zÛ?ÐGèƒ$ + +ί¯t£ˆv1Dæ¹(’R!¤•dèǐÿÒBú+$ +Ýùw =i„Öp¹\n•¹s +±!HŽ™+ Ì + +2Ò&•+×JeÕr©,¯,0C9\Q˜T©ãèצ§ Ò;>‚ô9$WÀ°Î$©mèC}A +ÓGpÓO³¾`?€)¹ûû‚ADpà ñ•rpl¤û0 +@bµ}ô±Z^FlGHf§Ñ2R eÇ~ŽüÂT9=Œdü(ùá3 +JRPà8F¥\vÚ âpRá +ø›È +ÔZ>^¾\±|Ùx9ªX ²ü°Ëà2ø Ãv +]¸3—Dú ü DÝÄr£ìn”‚ÊDÏý†' +ävÍ.IÚ«2 ½8¼C’êP²»VŽåÛSë¾Ii +//×ÃccùaԈqš?ÓOŠõhVš\NÒRMBn| ºç\ðé +û–»¬K¶NÄ|KÛ¾‰Kðdwö‚'îéÍ£ƒO>sȃ9¬fs(½Y|¶r‘ŒƒÁ +0‰ð&ª$˜€´ŸáäÛÓêÿê$pcJqº)ݘ¦GŠâ’cqQf +ÉÛÝýÈÄë¿aÿ2—¥úFYkvuÛ=›5ñêîöUýoxéWCƒOÐ|›Ôr=0ƒè#ñ®´ºÛtß(9™|Ú:²ðÙ¯[¼ðwÖ_.TΒÍIž­+³ÎñÏ*YX¸B™š¡wëËS+Sç¥ÎϱåT]e»ªj¹myU“­©j‹¹ÏÞ7Ë¢æÛí·Íßµh¯ù~û}ó÷.zÚü„ýàüË_õ¿:K¸fñüR¾`iÑÂÞÌôf˜ô¼3 ö4%|RwVäÝè†HáYÑc,ª¹QÐ^í¯ÒŠœ¿ÊÜ[ò«Š +ai¶g—òKo[yíõŒ$åúñññ‹ãc¨ââÅñò +Ø`4•Œ¥¥‰r +d<ëm +b`ZqQIaAzZª\Q2«d +”+€–ò¸%nÌ°KfÑvÚ7³èEQý¤ã?òfw¾×™W,Ÿ•³`žÛ•;ïÖe +EÕ[ªs +ŽÅs³®"iÞ°ÍçHËÓÈæä,öYíîpV–­yê2rs +®%Ý|jՂõ>© ÷Ñž‚®ÓW–aH·%§ÏËtäd/ΖÎß +ÌÊHË +ï(,È +¯H×çÙ-³ŒšT­Å¦³¦¹B¶Üìm4´éž8 +[„Ÿ"Z)f6ӋéœÊÔl9káT)x^§4¢FQ£æËtiδíi\Ú(ΆMפ#:‹ù6ШÆeã@Ö± +ÆR,‘„¾7D +$ÍïqOD"`w{¯J¡PûŒ©ùeÕ%óÚwO +Îqï®MѪRUe +ù +ûšÚÑÙ}{òŽ¡E;åjNT‰eÅ*±¢¸I +÷«Žªˆê6ÄÜÞx0Hgö$Xãa+óò*+_`y^H¤_Ô/™ü€{VցôȋN +G”DÂÃ2Y-´Zë(։F•ùE?ýÍþþó~Þo ÕÉM(†¶¡ÝèØc‹ïv@ø ÀØr}cï§ËÆ*7‹¸{=^·—È æ0‘+|v[†Íaãä)~Oí7[L"wñ†õÈ)·®Ç©É¥kòba=¶)!3êÓÖ#Kd,N Y6KÙÙ7¥gEMé†TÂÄo–Þ”^X2g(¢2GÉN–ÜÙ¿¶ù‘Þù‹õ/Ü´ñŪÒޒ~G^Ø[šU¶ xQÙ÷®YQ¹ÿ¥‰£Oœ¸ï½ý}âƒc÷EâGpé÷ +]W­œx8ñ ˜]9P, += ¦Šæfóóy3Ì¢™lB·#’\™‚;a¿¦Âl. +•{€ÿ@:܉ҡῈ°ÑÁ2•RC8t +ÿ +ЋÆädh(ë¶éöèèxÅtŠxñ +qƒåËôc¨9+¯(7P!+E»„ÿ +&´5ÅWhHMO7¥¹Šç’bJºþOðWJùº Ò<;=Iá³úæñ?yô‹ +ñÙâó‘ŒüëÉoïÍ +N*m9°ÆðFîoV˜Õ¥&³ýª"³™ +f:Gzz–¢\±Xñ”B. +ßà×*¿aZkÞ ì7ôQ7ùAÃõ‘äWd¯˜~j~Ûô¶ù¼ðÿ™) +ve¼EfK³¤[Lf +ʤ6«3Š,W[v™v + +³ +“Õ¢±Èµœ +ÈäfjL)¼v¦¡R‰©šŠí*¬å +E^fÝmÁû-G-ÄrŠ+ÂÝ5‚‰Æ1ŠïµHþ5)M)±”m)|Ê(Vˆ)ôÿçX‘ +Û®Y8 Áò +þ +ü§‹bj‰‘md79M^'çȟˆ’Xœ§ðݗåùB¹$эË.6ŽéA¬ËÇÆ{Ë+Æ{Ééæyv· +ŸV½®"¨±·!x!aD1µ¢D/¡<³Õr—Ú’Ëwèe[_L~ +Co¼8Fzs®b„Š‹€Ur +'a_Á| +«,)w¸éÒy +Á¾îÖý~Ÿåõ‡þ{xÉŸÍÅë»Ö,´bÙÄ><ï}ê¦'zO¾üË=ííß;>ñÉl}> +¢V‚–¯~à¥'QÒäùaM©Šž –kJ+UUI +ÕÕnþuÎʚ%5½^t¾èïI +T„+UÛ<×ç=í=é=•÷JÞ9Ï9ßoò>rèÓ,Vfâ;G=%FΆqx”+:ÎÉôé8}ï?ž!CE°IÑk³ÏᔊTä?Eu-ð€ìa<NŽ +i°fïúÜí¹dOî\’ +õǛÛ`í£ä=1I,ŠΑ"4Šç>+¦œN!)–Bjp>˜fãÎXcïEš]€¸LOp,^1Ö8f, +I6¨$/äð'éx¹Ûåqy]>/—ù’ýþ$0.!>w=vèr©3×ã$Už<¼ +;µÔÚèËÑZöMðc:G½Á`J ³9À§tÆ,W°ƒGdÖ§˜Ù +¿ÇCõrVÑQvìÖÇÖÌ;µu{Ï=ØÕrY¬†ëL¾ì¶‹ÈCݡڊ²Ål"f7gÈ>ŸÍg[Ná¹ÈF›PŠ>EH §ˆ){R¤(R,Y—Ýâ% +.$ü"O0" šcq°,RH +µÜ&§†‚ÉlŽÝ§2fØ +v"7ø´~ŸÊR©·­G®d€¼IþõØnÖ#·24å© 21ÅiɜbʖP¿h(2zK +±<-uJD©Ááî¿õÉÇ6x÷|ûŽ×Úo|íŽÈïÁºlÍxõÂÂÅkvíÜê_#ëðik¾÷“]-燞¾óéu#8ã^4Q?¾`ÇÊæwç + +ß{øs(7DQ£Ü1ˆS<¨E´¹|?2´—¼¬{ÑM4Z[Jš^¥9aÖÈE¤H +喋N‡h†HF§rBøRbӗé\N×vçú©Íâ¥Á +H +§@ÅÁèŽC0Ò_`fþQûÄ3" +±°•Æ;¾ùå`‹;&²X(Oüüó¯†]ùðoøuìe‘ÝxL®å2OÈjø&žð?ä–Ò-—IOÅ&·‹sÊÀ|oG¤²è,:Q‘\.“¢Çø,Æa,â˜CXÖ© ¢ä8´NYÏ6JåL>mQg ªhì +Ž +T†nËR\iìòñ³¾x +&®oÅÅìÿ~"ِl²#'1#T€D#v:ˆ#Ô  +'ÙIý!÷ÈI)‰ûѤ$v§SÚÓ3³oÇc¥Ž(Q¨‚ÊäÏÏþ<¢"©ûãÇ8$ýô[w¼ø¢ +R~Ø&ڔÉ:VŸäP9k]ò4]ŠÞj°Úlvs†ÜEß:ùŠi1®/be0•ÃYRµà—ª­©ÚĪ‡ÓX!> O)ÒêÔÐy©n‰n¡~±£ÆÕ [£_•Zï¸V×®ïplÒoçw$êvèww9v:Ö=¬Ðð°ã¤î¤þ֓ŽŸé^Õÿ4ãUÇotoéÿ û@ÿã3Ý?ôŸe|æÈQéªmÄ Z DB‡]•œdS¥ÛM¶t%Qؔi†T[Úu^Ð;ìv·AŸjè1`ú§’GÉ+¢8R q83"$n5J½ŽKKOW*UJû(þ\Téàr0Y4Œ’ðH;FÉÇb² &×&’Ì%?)ld1‹äÛl#HEœñ +ò‹tƒV¾#9/(c¸£19Ï +ÜQCЌôcXæ«ùýÖËåðêEãåó´xcv)˜ÂC@Hwa¸KÑ!S5ážÿë:÷œõ«VY +çâ÷à·JWŽxMi ûýñËoÖd:C +ŸOg‡_÷Åޝ×È|>>ϕӄµÄ;þ[záFˆ_¶9PÍ&[ÅðZ´Ö± +ítì*|ÐúÝÌ#Ö#™Z?Êü}H3]Ÿ¹¥ð¡‚ +zŸ.|ËúVæ[$¾l”ü~D×^RF¥Âî.¢¥øŸi¦¢Bѕ™ÅQT zÙ2ŠxøvYßÆozß)|ϧà½Ø§-Ðsir›5ՑîM¤ +ó +ª¼KŠÖàzËÚÌû‰Aôe«ðZosYOÙö²eJkØZP‹8½Âêu,!^N8‡ÉQS¸Óû÷íB +P&–Õ–µ®YÖ,oV4‡7Éû¬}¶ +G¿·/óúÀ­òÛm·;vn/{5ôNèÞϽ–¥ÎiS¹Üz§-Ýå)ô"ŽÏAÅA§—sgÍÎ)äò܁âbUzVÀdJ'y*){ÀÓP±/+fÅSFæ²B²äñ–û÷Ý8~ƒ¯©ôžï,áTkmïñ®~a÷ÜzyÆ1oÝmѓ«|%ž8×õ-WŽÏì}vsÛ£: +¢âæe›¥³=v]Í=u¼Œîª–L¾+Ӂ­öb"ÎS9B8DB\Èy¿îAÇcºÇŒ'tÏÕJÌ +”Ò®K¿‹Lÿ.w¿õ÷ +§ÒpÉ<ÉXÄ5p²RoðÚ – +'6ŒO¡Q®ú„ð,`çð(9wÜ +Òcý(Wy|·v¿–hG¹JU‘#c\ ?rԀ† +1XE@U¹`Æ:³ÓLÌL<̋}­-Ìóãl'ÿi¼B–^ê!¾¾ø~ÅØÇÁäŒ] +Ó¿ÂØ+¤ÙäØRúÕþtŸÜ¦ÊEš4ȔY.N2isi`’à +0­·ֈS<Œè$-ÕÈvê&9ïèéÑK#hʹYüNçÜ÷ÝñÎÖMc{o}u‹³mâ“ç&Žž +<+~ðÝÙF[ªU-Û0Qøú‰]¿<7:ñ—=½‡RúüÔ¥Ÿáºç¥§Ø”òÙ`žëTˆKÄ +±¸Ý¾Ùþpø)ó‘ðsáóÅÊՖ +yb›r›j»|»b·r·JåuÚ2\nŸÓty”¢ +”EéJNvªlJU2­Q¸qÊm +»ÞF°¼aF!:ÌC¹zº +!¿Ã•„å +Ì°}`·g(UG”Jù‘ +º¯A +½¢FÁA_¬¯MyGr‚ÎÜ<Úe="€=gãl+k‹{ŠsÅHÏÔXÏÔXÏø¤wû¼ú¬—Uz­´Ò»¯èüI¼ƒ +ðµËÇi +l +»ØxaüÓ`cãX9Û¿ê?ÿÅs4 ¸fÐÀJ?ö1Òÿ-ˆeâL¡\”|³ +‹ž/²ó•Y +œ¤f—õŒr |g÷gÉ}¾ädãŠUoê³ßïëÏ­ + +|ñ‡p8(˜¬Þº0Ÿ¦ËL+,DedüO^ÿD Åî LT®Í4 ¡¹['ŽøLz± +ë½ÉðMüzCmšŽrÔ +¥!1g +„F±Cœåk-Qñª¤¡·7x*ørðmîÁù“¾à¿HRõÈzäۀÇÛeÛ廁ÇJE’*öÖØ|úE­Ò¦ÈpÚL.· +˜Jk²d6y2³ä§ÍïòsIJ +á +öùM¹ÈãG}€(§}™™~’nRfGPFYá,1«'‹ÏÚ#—;¸FOƈ +y(™q2™1-™q2ÙíÈ`œÌ`•Œ“ûò" 5¤æ˜1ò"‹?mì +¿ÀNôlœfžthKYLpo|ªöÒMT(ˀ‰yÄã1¤šè 0m†•œâ´ãÇþ¾ªFëóá̪×& 9áüñSá:¿Y›ä¡àþ¬õX«¢×ÓþP +›(®Yâ›XÝî²Í>_¾p=×%Áo65(¿í{l_në’ø +yĒi +½Yo!B‰XÒ\r²ÇÜc¹.{yeÈSÂ-R_Ìu)×çTqSJS*i5õ˜nÓ +֝ñɌf +ö‰>bU*6ârƒ +b—'Ýlק[&áT1•Ô¦bØ/& +·´ª +ûèäçÏPNpñÊ +ˆ.Ê »[¥ ++Eånå~åQ¥ì´òœrRÉ) EWŽN~$¦2[žNq•Vß9ð“ç½¾Q’?â:ÿ=û\hd†³±·|™Ä=`ÞXcoE¹t:1Ðè­¶$UcŸƒÕI6µe]+g¼ 'z½)Óô¦aˆ›Ñ{ŠÚSŠö©Ê_é7ϼÿ›]WŽP˜iòÚB iÁ°,“)Ñxçƒ?¼«±<ßâÌþFɼ:nÓ)ªMY`ýž•Ñn‡DĶX@ÝkH;ÙL + +§„“‚»GñÝbarkÉ*²ÎATNçr§Ï²®r'9mz—GpÒÿþ+Bøþ{»AOì +Â)ÑÜEFɋb(ÝÄ,•‰é‹‰Y*7‰™ª$V›ÄLUÒ>W¤ñ²©’èvñ";&#u¡‘’ +è†ãAR÷¥°,Í/§„2I +¥„¿ßÕÿÅû +«}iv€µu­ôš‚[Z +ùVÞ¬˜Øã›-ôs¶ 9`›²Å-—Ž¬t¦¥æ +U`"ÿ +P%Œ_?Йq2Rš’-ڀ.K—͇Æ«ðU¡s +w˜7†¶˜À +~f~ÇüþƒY«5C "/ +s%æ’ðÕf.=œiö‡9¹Y6™¸ ʂ»9¨ÌTj.¶‡+ +j +:Ðõh“y‹¥?<ˆv™o +?ˆ +? +ž(*xÍôŠùLÁoMo›ÏŒ™>2d9_ð)úÜô÷°o^lZZ‹L«Cך®³¼l~)ü¦ùÍð{æ÷ÂÉÒBpÚ¬.wžÓp¹‰Ó¦ty¤= +ËiËty¨QC8™-[Ìfº'¥†Í¦pÈ +1%ÌÝdµXLD¥T"g”áo D,¡<· ¸¸†\g\g]ç]r×>±`B»Ðêu‚Î@wù‘ßJ¼¤¯†—Ñ؁ ÿ¡ `¨tNQ.mTé¹Uéeb“ª„=*ßàÐ÷^½ðç3]½h +éS5XÊô¥f³¡Ô¬7–"¥¹Ô4:yö¸©ÔN-•ÃYjÀ J.L%ãJ/EÍÆÓvE3æŽ_´ùjÁðjozjrõJؤŒ/àí¡5Þt»¯64~&¼Æ“>þ7~àÒ¦­ÎlŸ¯Hˆs›Ö22}_ü†g·—§¿¸4nò½ÉÀ-E™øGbõ wcˆâkŠwlÌ 8“ä¦ÌN¹.e/9G&‰"Åí6ϒ\nà™Íåæ(_=©”¯ +£Ñ€ qÝ©F£4ô{¢.óNR©0±Y•FÇø¡1®4}X/ê9ýèäùg +À +ý”Á£À îËb;ÁŠb1 + +ô;ÔóY$+%•v‘ær +ÝøŒ»™Æº™ÃrSוDu[‘ïMi­dï(»{ãAf~Ÿ +ÒJ¼ +Û!±AQÊX¬Ð—Óà0>¿^ +¨Œc®@¥Æ´Ä؄ÖcèZãõƇñSø9|Üø3ü96þ‰`ê§D"½óéQdòЈÃXAèv7][÷ƒ T¢½”‚ÉÂƊ–R +²à[¢ÎXjL7–}$Ki +Ô +«K¡›³Rñã©¥D4”¢©C©o'@ªP#B5e{$ò|YÊXkÃ=ÜUTbð[T–¼—n¶ùk@°¨ ͹jNÆ +ÙÒK +.yJT¾ØÅ/¸ôƒiÁ9Z•“Bÿ†|®ƒÈGƒl蘘ÿ€ñâ©¤§ôüf¼E±ïTðó•ÚâÒr•¹œ~ºM§ç.̉œŒ[œAùk­(2Ä +’a(§Ÿ{éÀt±=±Q£û´eúÞ৸üεÛè»U«?ş¬1ä"6çâT@é2€ôIÚ\l!•i¹ÈÄ§å¢™Ä +Âþº<‹A\4ŸUbb؋U£AïVâ[&®ŸøÃÄ·üöôßOtïº{ãÈéÏvuCˆ›øåÄÏ&:ðݸ +ÏíØâ +‡&žŸxfd'ÎƕxÝáôœžžéß:G9øº“(–ú²âPހ¹ßÖo¿1ГwŸ]±Åü¬÷Tà7¶ßØßñÊ-™ú¼€¿ÔWš9'Î[›Ù™Ù“·=Oý2ÂV{–½ÚþkËol²Cüª÷mÓ;Þ·3ß +üÁ+·‹žŒ€2™šR7vÚ.Ú4—e9ف +ObEZv ==(J#²ê­a«hí±Ê¬‹ó( +æV£<,æ +å‘ýygòÎæqy9˜9HÌ\!f»uÉLÛñ=óÉûróFñæ +èÙñÊT@ŸÐ·ÆeôŒÅ/±øé‹Þ³ú«Ô(yP`ªÝ›e²›}–É_ˆ½vÈ2-Ù +Øgƒh+Á¼›nB‹ë Hq€ùñÌáÝa°Ð‰0‹QíÁ{ã0‚:¿Æ²ӒéÏ:Ò/Ÿ‘(ðãvÿ²¢ñçÀ?§ÚÀ?ã?Ÿø·=¿ùi~¼²xEFÇ‹n­+¬%7L +lw‚žíìçº(T=|ýg“¯NJzt{ýÕô/À-šˆÉ¶€V¤!?³ªp½â>Ìɓñ€Úð&|;ރîWþD÷ +Rñ:ÍÃÜj%÷?JΊ!ez@Ï!ì§iü҃¶# +­P*µ\Ð]îL ¥Ëïad)‹Sa»f-×k-ÑiZ¢]œùutžc5‚ +•WŒé/Jº$ªü‚ÏîWk’4Dnöy=>‘;Óܹ8CeåÑAæ7À­+Ց +«²i P)-Éé¹Øc„Œ½Eœz‘˜M¿\¸Ð(£g±~¯73ñ]ÕµT„§UMú„ÁÏÝÞ6öÀàÄË¿oÛSwý<ˆ!dÁ·î]"vçÝÝǟïÛ±¤ôº¡'4‚,:-«Œ`ۏpß3±qâçŸMìä?ºù±‰¡‰g‡wíú +.ÿëÛ·P +ô $ë + + "BÄa¯™Š­ ï76ÞæÉóR.·Øûd.1;Mym^N +U>¿ïjTc$æ½ß@úœ}Â&÷u¾A¼C؛{ö=ë>wқ&nÅwzoÍ|È{?Nžð +Í=ûVøO¹“¹Z#JÇVb +€–å—å• +Û¼¡¤l%±ÛqšÓ¦s¹‘/`C°#H†½€ÓfwyD’ãózݧ +Ü{„D‘u +ǘètzE­¢YÁíQ +P² +±âo‹º‚@F†è’“1FJ#{ÍP/½f¨ª)F®£.RAq +ח`ö™gK¸’"%Ól%£ƒ’i¶ÒžÆ4;U¦1ÍNÛW +9‰-èKût}c +¶êAöÑaHÒêPB«ÁÓؘ +Ôº1 + +ŽC +ŪÛAøé‹Oc©¬;Ó²/òÃfª÷¹ùÓ—ë â|dyîœBäñ† +‚BŒ¦$ +v qé|ùW{ՏÁ秖‚ +œ?‘Ê +&€Ÿ +ח†õ:p‘XòŒnƒ.f*ÿÏL‚‚¾=ÀÓo²Ž‰û'Š +­Co÷/-fƁïøoý|÷c‡±¹y0v骻ê +—ößRÖB®'OlºÒDT<5°uÔ?qÃíõr/>tó¶ý)t§³}ò]^vb6Y#ZŒ÷å` +Ö5‡t|eɂ5¸†¨ +e£x¡x¶dv‰•³ñMæ&K“µÉ&—ieÉ(ûL߯î×ö'oÒõ8zœ=¡žð.åíê +Ú +É·êvñ‡ +õFm¡¶H[œQ˜Q”QLesyÁ!8³²r +ç⹤‚[Ž°3캪èªâEÚEÙuêÕÚ5úÕY«ƒNì$¶Bg±­¤Î\g©³6¬+\W´®x]ÉÚYɜZ•¢¶eyÔBٜ¬pYÜOÙåÝ«Øz0|(t&ð£ì—ƒgÊ>)K]®œmC1b;Š_ÇoÉS]Q[üP¾Ý–sÚ +ŽS´¦ÈòP*rMrªF“ +Ôd'ó~+ä +<; @>ç ÐÓ^,:ÜE;éKìõ!Ãi9gÀ‚á¨áœ3Œ’ +Ï:8‚zúM + 8÷çáÓyʛ×&^],æ½7 +ÊòÂàðø¼çñBTŠ²—Ôd6{ÁXÆ/ÒOaâãñÒPPŠ=˜ßJ¼Ò¦o°’éžMŸ}0¨ë{ǦµÄV¤üê +U!ÊÒQ§–™" +·I¹šB¤Öä3õàâtÉYÙ>#¸9eHNe^:až:\Ùo„€TÕ¢nÓ¶ë[‚|cC#lʃ¨±]ˆFm֕òa]iaXÇÂÃ̎ÃÜò4z +æ ‰Ï¥Ïp + +"‰y¦ßëŸú¸ƒ +™p‡}ÆÆ#ë:vç~øÃ;ªÿôüœ"班– + +Ïg­?ÞµõÛ³Ê2' +ÿÎÒóßïÚ2Ûdu%ADÜqà›Û®™[X½µmã½× +zG“〃wœ"”>ù±¨¦V0Ù¿tè}Dhm”Ž›/6Rƒç«.¦ + +«uE@àà}yâø’r‰êbHSMï³Pg¼œžZ¾Bß'Ð]ŸtŠå—)gØ!­[RøGu~uŠ³½î4Dä¡ñÑðü±¦@Ñ +_/[:ñB·lÖ§Bq^“œÒµÏ¥TUOž— +ªæá[N¢0l;²CEaöFÚËJ±.Ý^—É—Ê·èxŸÇ—Yà)ȬòTe +ÌTde–f’Úp¿úÝC™§3ÿᗗ'K‡VN§Íârg³£«§ÍìòÀÖ +üñ´ªlØ£ýùJ5Þg8P +fѝš^¥RŠšR¥AŠ2¬$JzžeHM¥¾‡ù!9;µ¢›>搬l¦ +*ŠõaÜ> + +Ÿóa§À˜)0f +Œ™‚Ûhܖ‚c)8 +ù®”dږâ m)–ÐÅËû¿Æ©sú + +Û/æ°¯UGŽ†V_³åØ,%¨®ßH2Я©ˆ\çËôy“ +\¤7ø5Y¹XäÒûrQ@í£» +,?ì½ +n]D½Teñ—ÎÉ2ýàkfnÌR™þ%<÷>_XL»fìµß½ªèë¹¢:¯%céîŽÛþmx +zp6ßÙ;þÎkï>úÐÍ +#Æ­Ë}¾bo|üXÍkñ%ýÇß"¾mBȁmò]ÅVƒRÎ!}5qB +ggùS +£ÜÐí%É$vUØÆ«D­D¡P³Š +ýøYøÁ!ú„E%×*4Ê$•")),/U“Í)¥H6*OJU‘¾Í +Ò¥ø%ªâÐU_¯zR%÷ËƒÊ +u@H X³lفÌüy©µ(|µ|¢Z½ÈV'¯WÔ+’ê5õÖúp]~§¼UÑ¥î°vØ6nâ7É7)6%]§¾Asƒõ:ÛVûuÂ@è6þNå }ghgxWþ=ŠÕßIùŽùAë^Û½ûB÷†)ŸV=­~ÚzÈö”ýéŒ'C#Šå³I£ÖgÂ? ¦üL})ã3aIG(îÈߥâgÛº +1gw.UD• +*®ZµÔ¹(P +âlkBׄ¹ZE­r­šã( œœ==”mÏræ+JÕ*é+&1ç”ÙÂ*;¯6H”µ• +5V+K3„ž$UÐWO/Ñ_Â]”–ÚÄ +•Ý®T©’ìàõ +%’cJ±¦ÚR¡,[À¨^2 +~[fiþl[éèdψM$ŒNÆÄÔ°R!hÔj· +°mV»Ý¡JJbÇ 6;TØCJ¥›ž“ +Cùr +‚¶ØÃùp›ŸbÌ +`‹ +ˆ:)I©T¨æì“Ìž +‹ÅùÒëyöºÝOÿðJþöü=ù\M~S~s~»9ŸÿI¾2ÿåïU+Ô¶ãVõ)" +þ\T‹šZÍY +§y²lÎ(¹vÄõÿÚûÒð8ª+Ñ{«º»ª«·êê­z¯^ªõ*u·¤–eº„åM¶‘À›d#¬€CB–±$Âb‚c%,ƁĚ,²ÙY y36ÆA$!‹ƒgxIÞc`f< +$(qò +^üî¹Õ-ËLf^¾ï}ßû +J·î­[·ªk9û9÷|cöŒ_<#‹s稈˜›{eA*lÚÖö‹¹=ö]'I-/jðÍ°ÓÜ +²x͉ö^ž,œØ;BÍqúÁ>P Gtg2^[#+¥LVQY²4tM’ˆ„#؇(~œÀä?•nù€]bW:Ò—EXg—‰·«viĝ›¿33ÿãùSÉù¬îåKðr­;-ÿœQˆ +íòû]YFLvW +؀™|؛Zj\«¦ª‰Ûß<Á^ó֗ +×~ėRUµ +O|dŽcöLníH¹lo"]ÙÊî¹(ó«[Ë>¢Ü«4W<Ñf¬n°y +«8 +œ +$8}ÄÔӕQ¹Å”3†Š†”¿›I1~ÞÄ£ù£ÁN»gÄ·\ÜéÄ6¿9ՃoF7ŌRfIÚ +õ’讋}ZNëcû0öEÕÑÍÎ[âã¹[ +ŸßŸx?(~+ö­ø·¾U:‘8¡žH=Þ}´ñŒøýà÷•gê3}ÏKÏ+´œí +I%Q‘âJ2—)–JKŲTV–Ä:ÓåÜJD”¤>¥¯ÜwºÏðt¨pkéŽÜޒaYnÄ:cÍ Â{I£oM`YÚ$¹‹8Y|wìØECã†@Ÿ–u¦ŠŒŊ†  +"0xxÁTw +А¢`³‚‡0ÚDÄ5E¥„ +1¥$Ɲb\j \&‘ +š +9Kº!HØè ֍Ø4ú%9èOÅᬥ®`w!.Šq\pc\ ”S¢6j¥äV”R1æDºÂñzw7øM~¿ÉdäßÛÀ +ÂDÀWˆÖz% +ÃãøžÁ/ã³DÑ=ÆüIsô+ë•í +«t ø8?Æ|ï¨Öwo +±ÎAôÌè%‹,”²èb(Å${¥þ"ôY¼v¿0wæ0y21•ðIJá£%œ—.a‰¤ òÍu±í¹ +¥±>?Ëîe¢´”]݌µU<í†oÆäŠ*o±€ +zUd­è8+1+^B¶ÿ‰ªxy +xe:¶Rçhͨ¹Y1“CŠ1dóåªU3““ZµpÖN²ËzìüsZY­†Ý2–i¯LGÈ¢ázóT"Ú8‘F%¢›“¿S¥9xÏåNáÙ $`fæÅ\î¤øÜ©ör.ÔvXB¯0ÒúN,)ÑúTã›æ£+å¤]hWåNt·åîš),y{ÄÆTÃ`­5®5-W–Ç×öh½a^°s +Š¯Æk„Õ–Õµ5]ËzV/ÝlyåóíÂíÇïm^&ÚØÖ`Æø +ªö³ +ê "ÞY‘•=sݚ±Ô­ÔVÛS‰ìĀ5feZÝh5X{epþd-õAy›¼CfKòn™‘?BÐî¸Ü«õ2ä¶Ça"I¡FžÛ1v +æ4XŠ3\SQÅfµV«äÁ¿Eހic夝@*ü¢½ŽÔ¨:¥N«M=«2S*VE¤ž`–!yˆ­{Žá÷h‘`©ÞÎiöºÂ +qS ++rø,‡‡8Ì-»dÙ_馑‰ÉÉÜ:ˆó êXø‰þÛî`ê%jœ›;3*ÎN4f'!ÄÒY‡1¹\Iǝì̙mNä6’•µ%¡„ÑÕÕÝÙ̼͘À3¦X\‰3¦š¥® gØB’˵ +p<±ÄX¡n¾ªàZÕ" +ĶÇɪÇÔBÔ: 撦>Öց”3 †â‰IÜ­!Q¾C“[´“;-+iuÔ^ïRìÀeSˆ,„;)–º”@{ÀRÈ«ìÊ@-Z µ™Ôæ\ëo„ܧښ" +ŒF7(š<>÷B?D)yh¼D ytó$° + * +ÌÊO$;—nûp$ûã×7¯o¨)¦”RK‡ößrْ$ø +¢ÕÓ;~m{þ\~°S÷ÚÛ?èôì}ËÚûoޔÜ{m<žï)vT +›¦³ÑKswÌÿð¶%nÎÖÛ}oÿ§ñh¯??V_óIοyþ +{ÜøIäEIü:æ? +1‹€ËF·ÉÔ©*[A±D·˜Amž[a¼ +Æ[­²³ +äQ§[3“an +ªfKl„ᨭñbN7£Q<}17#>M–ˆ¥Mé.Ÿ +"§ ÇÁ1plÄhL©¢8Me .çG`›4~ýtY­)ÕI AühjþÞ)}¶jPÛ)¦ð×MGMr¿ŒŒ©e¶ÑN%u{£áNváAöÛ<·’Ã=¼;mësEÜý²ÏŠ +A/cxáJÚ£Æi#3fœ"â8kü•Õ‹œ´ZEېmÜ6m3L‘Õ!‹làŒ)“æŒí´³ì¬·fS¿»¦:1I +ÓqæF'uûâdÃé«Ó52~ +µp) +(8 È!ä—-ÖO¶¢†˜‚ý–` +MA¥9;¦iÅøèG ÀÓ¸©É‘|a† +-ÝѕV+N§÷‚‘Û„—ÜñùOüÃWïþöЛ +Š +j³cW¡òÁúÖ/}i{­–aÞ8þÛ¿?÷Ù©ž +öÑ/® +ˆ‰ñ¹ÌÜÿì¨<óä¡'‚n"£¬ 04@¸G +ÿþ0oÀ-þÁLÔ4c¢få&¯ê0sc±ñŽŠGžbaBñ¸ÜÌFÒøÑQà(áv–xB¾s£“³PNÁ܌‡¥ÑëÛ +U”€·ç³m62!×ÃzãzÓn88 +âÞc¼Ñ8 +¦bGˆBrZyý›ÑÜ +WâMòÆжĘ<ºQž +}\ú¤kÚ9-?ˆ¿Î +L<‚ŸÂ?à~à?ú¥rË&f@Ú,Ý +½[™JœMpNÿÝù—‘BJ” +F@€Ë.ÆbS1ÅĘŠÁ}M/ŠC9³Å® +¿äÀŽxU3ÉÕ]‡Jë–êä&-±ŸD­xкÏÊXK"XCãh +B3èed†=t}à¶3Àû8p +[5é¬ #“hÒÓMËâˎ3­¯!¢ytrbnbôÌ«\®1;;AI÷©‰bÂúð5áëÃì§ÃæuÜèîîÆÝඣÁvT>‚D,>gºêFQgË +¡•„2Î<,֛ub,\L­Š* +­9ò͉ɔÚƨ?»í‹¯b|dÏ߶ç—Dœ–Dâ’íK/ÿÊÞ«/ëªâ+ý +6½ô3lß·.UJynŒF®þÊ×ß\VÜIî¾ÿüƒ‘P¨(*0kš°•*ÑÈå¬I¦@ÅëF +)a/%X^‹BO +56*t4éýƒ¦[e8B =Îþ + +£†@Õ¨DUi—f¶3]n¤’—ϳTâÊU"7%Œ‰|1C“È-òu +DŽBŠ +eáÐÐxká±0ŽZÈi,^Jü Xä +ÝP+‡ƒ¬ØŠd–Ž¡7gÚh2•Š”ªÊéÄ-7sŠh9p1££§0+8‚ÇQéüÌ#+WVK€"—æŠÕ±Ò­†[7L•–fJœVš*1¨ämóä67òr÷rÜ*+¥.a¥°I¸Ïð¶%n¦t6Ç( +Rbh·.¸¼WT®R®> Ü¢ìGû•‡¸ãÜÓm–ïJ[û¤ˆ«ßN{ûB‘p” +f1ä=ô©Eó8Ÿ²–(²Ä¬ +’gÌ;å=èe£Þi/ãýUvÈÅL± +õc+k¦eÅe»›–Ûu³s“0E +þ Þn’Ü2!"¥H¼@&©œO«)>« œ¬2œªà6c^iEçÔÁn€ppKƒ‘ðguF,F\»@uvì3&jNpž4a˜ùÁ²©{_þÃ÷v +ÈÙ°³àˆyƒËüÙ¢©÷šÒðò­‡>°õ=+–¾ùýïã•ë¾õ%J(ß|ñ++CÎÄÄñÏúÇëƒï}æGÿ@ôZB/׳‡ +Ù]MˆÎð^Âï¬0yÙiՌ ö”5„!€A>6G +¥•ÐМ; +%¨:9ˆ¼gÀi|Žæ(u%ã8¢m¿@ =Ø`h·X(a šÆ|”‚5aÇ¥S3˜qØ“þ!¶OI/BÿE}Æ@@XäîÇ"nŒŽ8÷)ÃW +‡ +,üGn +01àìvG#ä>¡I=Ü-©ˆÖDºìöhäbž;u¸øèÉÑÑ\½Vr¥§¨‘ZÚ&úÇИûÖèWBDL +Õ½Z¨ +¥“ +– +Tù(°ˆ(±L•v¯o+Vƒ&¿yØu•w›o‹¼5ÀaÖlâ̼ÕèYmÚËÜcÚcý¸xGøkÌ·åG]Ï1?wüB<Çü/Ö%qcü8¹»½æ§¸g +g9Âé8Ûí +k<1<è4¯`Vš£˜ +櫙If¯k¯ÿ~××Í_Žñš ?`þyÙzNpó§9Œ¸Ó +35<;píâLÜ.ƒ•½ +¸T—T—¶yv{ö{^ò<žà?¼§ó§ 1€ˆê‚êgÚ*©ÏøÊ †7Âý„÷f‚u‡ïðîöîó²Þsn÷Ëü4ϔù}üK<+òOî„?Ŀ̛ø‡ì +Ú +pÅæ5©l‡Y|,²‹vÅΞµc;\‰™)> +ËIP|[lé8rÐc9T +gMIr&>‹)"b` ¦r5½ŒŸiŠ´Ÿlÿ‚Ê×v{!ßbA/Šüü©SzL^P»änå~Ïý)¶Ÿí·®òßÁÞa5~ހK +Ý1ȸºŸßoþ²øe硂Y4:µ­m[Ž ñö#þSq|$ +cy-šˆì<a"Τêù!¢ü–Û²’ÓÄs‚Hü¾â‘}Dá=Ƽq·åŽaQ³e²Xr8ÅO9 +8 ÀúÈØX•Ö==zÝhèu²Öš7«NÛ1€ø6û¸}Æ~Ún²ûó³&–kºÿu \7K@—j¶½¤zeôÌ$µ!õöÎMö6æˆf[jÆ­IjÚíM©ž”ê̈́Pڝ +á·E¬!i‘yœ~‰ZÒé9€Q‰h~žŠ?R/Y?÷b6s©ÿðááG'®î©F|•h4UÔB¯³kç +œŠç“ÉLÿÕ̖U½{¿sC¡;R‹}ÐåjÏ +—®‚Y«KçW°ÿƒÈäKÐj4Â~Nû˜ä +ú\êþNĭ̍m7®gP›©hºânÅÐèܺ£ë†ÔøÖ}†}ÆÛ|·Ëûj¿ä¶åûÖÜ9øYßgåûŽøŽÈ?¬þpÍÌÖÓ[_Þzvk0 x*bÍÝÝjü?ÐÙ"/Û"ÿ² +ß{7»\n3?¥bIûDø +¯Ãmm@­Y$Kc¿zP}ReÕcøˏ禈²E†j6+í +Œ=ccÍchM‰‘±š<=€ wʀFºò€:tBæ5× +ïæIà ÎæšéþexÙ1¶]³ú„’ù§üŒÿ 搉 ×:ÔKv &Î9¾<Ÿw¬û +Ÿ‹u +­cËZT,ã +å}åýe¶,-[%ʵz‘Ú€7À½Ù¶’ƏŽˆnÚø'j‹Ù ‡%DÚ F3˜†ìy}ê¾ + +̌gf2§3†Œ +FfZÖOÒøµ&ÁÈÜ l-oÕ¶ + Ïܸ +Y¬Õ­ö}÷®À+¨gE»âÅï¸÷YB쏝ÿæ¤1 +V +¼ô½Ç˜'4×ý +Üh/³C,3ÄbÃeXx”þp•Öä¬,ü<ˆÉÐx +nËÖÇñÍD¯ +Þ +Žê;'ZÅä +mÌæ&ψ¹ }VINŸ4;!ž¡S +Ej2 +¹W€E4ÄÙIÐzGIãÉ`Â%Ž<{)Æ>1yn&vCú’Jz&[¶Ú¦©öBj‚q·¬Ùܳ{¹‚–û– +¨ªkÅæ4W'¼ƒ‰Kt +ï$Ä@â ÊÚ4¡(­‰ؚÎ>,5#tZ‘7t + +èé¦D¢©Cé~ +º,ä¸Ðg7uÑ£° +ØÓLÆBÝ‹R³àچ-§Ü6öݜ5YGî¦î“ô¯ÌGcåÐøO—Žîxßß|êŽ5gÛVÍÕ±g`{uhíÕË+ó(•{¶?qäەêçÿ_–ýôÈ]'5£Éì +FÓªñ©£îTÝíT8k4ÛƯ˜¸æS›;:eY½Ô|M´=š¸ŠÙsã-_Þ|éä-û·\úÖG+Ãj9yÉîUU¯×@˜>²âô¿ˆ6×ÉìkòÆp·ˆ+ +N2BAN¶LÃpd°òNÈ`£žl •SÀ-£Ð‘ŠUk鎬VfcŒž#Vá +p,@/i¼AMV +Ž‘Æ뚃2ez¾&ZXŸ@X­DŠJJ†”4ªBÐDÚ±j(í +ç +`Å*•@$\÷õ× P6õA*´Š'ŸîOæôžSDA<¹H7 +®J€’5º&¿˜®’“Â)i²_²\²e¡ié¢]MۗÜÝ +c´;F»c´;Fîæ,¥6¤ñ»#°ƒ4Þz +ö +Ý]M®M™v³} +„.rºuŒ¦ ++y©[k« ÝcDnv¨ŽÔT÷t·áP÷L÷én6gÂCÝcÝãÐ¥uc +—³ç1Ö¡9ã +l$=²q ËFRÇX»VLÔÒžj¤Ö•t'¢wIÄ*§SürÒ<-àCvãÂ~áYÁ ‘R +(–,F +C +±ÂxÁ0U˜.0‡ +¦ +ÏN + +±®wÓÔ`<›£(Ô-¿è,Ìe«73†5™³;2ò&5˜ +ý!Ìñ. +ì¹i)£†a˜? +v +g§>“­9cKçÕ4FT™£ª!émÎnjŒxݎõ]6 +tÙ +²6‰GëØh¹ý}žúŠùž¥ ·ìˆ<%;–ŒŸœ»ú–å›®Ô +šÿ»ÍŠ +‚Èhñ2ÜïU¥êà|èªb4™t ݛإºöž™^²â¾XPœizfŽ£$aa:}ÓFÁÝ£–Œ +qŽ¹dÖL8¥åf˜`Cf 6Ýh?= +£Í6¹EñIã_Ž4Ñí庽ð(Å6Ì!¾Á؎Øn†ã;™°‰J²Tk‡˜â&‘_ DýÔ¨øâhÓB¢{bN” 43iÁ0Á¦P +ˆÑ5œçȚ5ÍF_ŸÞÐü]]¦˜º˜øQ„”XœsÁí½¡ +àH³9™°Q|°1ö6Špg:>ȀøHÏc: +%‹p@×1ɵ¿xªqJwV4QÁ?ÄcÉñätò@òlÒ¨$‡’Œ«$0̎Ž*­»{ôºPÖë„Jk­èT ‚¸â¶lD"h‘ö÷)‘X¿ÕouM“[©#·r.I˜6cs +xðáe5¨4G£Æ¾ßjµùmIYËÕeê7êì©NËxHÆcò¸<-ÏÊFùpâð×(:дˆ€„õÎêb*á¼0ç}!} +nºÅ't³ð¢ÜB®¸îì\H©Gà:Û¶dI[[øÛûæ—-+Í\$ÊرÛøIØÑÛÖ¶d>6§lª@ônÄïúl^ñ;’ãB–¨u¨õà¿nÁ¬¼2 +³n« sMÇ@痘€Dc+®¦ᗔj[[`ià¥î"U=J=Æ'yæ!ïrµ¸| + +¼Ì\ǂJ¤¿ç“ -¢Äi +<75À«!®© +ézµÉÁEé€dÕmè€dµú¼ÓµÃì<6í›ñõ±>ª€¬¨B­õԗT±ï°m{çk¾!ߘoÜ7í;@rÖl„ˆãlĔN´œä’8“€pÒfmžFw!֖T§­xȊǬãÖiëëY«ÑzØ»t’Øè½ðò‰Buúî/~ß­×ýauå|£Q +Ø£r ãÄNã'ßìÛÔ +¦ï–Õ¾°R§H92•‰f±™ýÇ&÷P>BõZŸ“¾ZçƵå¯-à + +×W¦n}xÇå + +•kïZѵ¢5jó +£Vô­ì£ãú( ôQ@é[ë†_[Û:nm‹·¯m€4þ¤ùaìZN³6GÏÑÃs]Ôo + +]tŠ{ø›iäoWNÜE +ÚÅÐýtŠu—“žÃIÏá'¡~¥Ü´)W?‡ÒFíÍDgÖ,0Tašûß"0 +6h¯¿Ô±|Ue再Œ)măwlܽ‘ݸɴ²]Vó®7oÔ½e%5FG ›¿–¬@÷›MPõ¤˜£õӔò.´^rzrv +gä6lÜÄÉí+❠+5J+9*Xäh_®«nõÑ­¾µä>~ù˜n¦ +îÑ +º»t6~G÷vu +¯k[D {×® +n"Žsa-’+§ +Ü¢÷|ªÑ +‚@ï!ۚ +ÃO¢ç_EËI)‘R>ÿê£Ù/Hÿ j¡*wzä7^vŠ€øH09ž +!‚Š’Èǘ·ŽÄ»²‘vÒÐ,ñµÙÈʁ¸3ñYåH"—”±¶#‰¾ldih—$6¦×õmˆlìç³]ë´z6Ã#N]¹i3¼5o,œÉ`äV®h/Ë>aÄç +ˆÎd¬¬àqå¤Ä5Íѕ-æ’Ýå.<Þu¨‹é‚>ïºÍ}ɵk£ë†Ö1Së¦×1h¸ŽY¡QnouÝØðÈ1fË#1"å +ÃÛï 3êü„ç@Ö9£W½—-w?„WÂ_ƒþ¯› +TE­è´ µä xÒê°©‰TÒ +a»#nWËAD +Êaj¨hf@öýa¨«³5c†HCœï +YèæIIq“ + +Ú.Þ[Ùt«ç=Ÿ\³z"æµ Kç{]Kb>ÁLoª½-ÃxzVÌ·¯­[Œ±ü`gm}Áß¾f~I£#@9OځÝ9æõíŽTÛöm7¯Y³±çÖù7)^"4ùĄs|¼¨ÕVYrók¨$•L:¯ }íZ8ß5ïÙÒL&ƒK6â«>—5¹”•è"ÿ›P² +³@Éj”’•©¢Ñ®Owä +ސ„"l%ÂÉ,OIOéOéï¥*Ksæ€õí¡LzXŒ´ú +÷¢0=8LO¦§g©Æ’¥ÊH§U¶UÿF3ªžÐ6ŽÈ¢“,!1·kàºjï°A2<‘”¸®Ãhæ¤#ÙÁòºç½T¢ +‹Hýïi-¹™EôC"êŠË²qUÉK- +Ô¦ÐNÛôÚõó;’<åž<¥<¥¼—º´¼´ËËC—×[«¢0 +¦ +aº3Lo”z½Zä" +ÄFd³µê_ªÀ±­§F4¾ø_® +ÕÆjãµéš±`ÀmO‘­C5Ó¡Úés¨†ÇHÇL +óÞlÄ¡+3Ùl$9ç³û@"œ$te¦=ÝÖWŽ´÷‡P¢£Bï8™H8 +vÁçMrÓ<>Äc?ÎïçŸå +<(3Ál%œl‹f‡²c/g*;=”eQVÌ2tb»™ |v¬ª+4¹¿\¡‘d?k2¨~ÖÂF“l +´ÐXO6JÃѨ>óŸj3 +lQç! ‚×|åSk> xí–öK痸´Š`è[wӍ; ¢{E;Ñdšx8ûÝ5›zoß¹9ê§zŒcß´kâcóáQo˜`ÚÊíxë€g +!ÚgØãÏ +(ÌX›˜"b  +0BÅ9ê벊`f +w`'44tè0ƒOå-¢ŠtΨ‡è*Ƈ•öø + +˜ +ÜâÜV‘Jp"ß +T€¦Á±ZuÇeE\„¡–i{¹4åÁßð +õ~ÿÐ|2üs³Iúw¯2/÷nö܁ï1ïuü<ÈEµŽš:œöGñӞ-ŠW󭫑h +»œdi +P4àÓ° +2ŒÆ +ӆC“áu+15ë~+c]ðµ@¬(»¹5‡2ë× +º|ËÃÖÈꇣ†ÕWl~¢Ëà +rð¥9`Ë†ÿØd@n¶ã5ñµà¢M +F.̟ïÄaIµ§5”TSÊép+(Œ +öšIKæHËe +dÉÊcñ)Èo$+Ýå¿ðG£«¬¨Ãˆ5ç +Ì +¦[„[ì·H7{ooñ£#£úÜ4sHtփ¤xÀøeэ_ †4ÓÙ5³êûÀF,þÈûo|v÷³·¼g×OÖ×Þéþ½ë#×­d~yÏÁ¿5õÀÝó‘?ÞÔ×øò­ÏÌÿӁg +â™þ8?À>N`-êL¼ kÙ%4†±Chƒ +L,`erù‘Âf]”»¨€½¨%¯Qº«,D6)l&'ì¦ÀãzÂQÍBď¢jï +1qiJ +¥Âè$–Hn³”à^ê4#>Mk颈ã¨ãü[ v“Ôí/KzÈÕQ¸uQéRt +`‚‹úµ¤ÂšBFeLö4Â~;¹ +\ +\{uʈ<ª§›.Õ +@õG„%­uqµ¸UÜë4ܙÇKò%kò[óïs¾/=¿Ó¹3;ÿ÷ÿG³­¼d¸2Rý@Õ -Á%žÍd%«üwÆ]D¸J'P:6˜Ž ~FÊeXCQìÄp% +×ä—í +íQaZ`Ƅ)á À +¿RÄeB¦bBhô°cl¬‚¤¨2)ܚñQ@A«õ-hµ¬ +ò5öê‰úJ5ÎƫՔ5UVk\‡‚K6²ª˜;Ün)*oKÔGm³YµâYHuMá0Ý`*ÞEv +£N0!4·)è08Z¹oðãWNÜ5þÐ@g¦ÃW_3¯ø»Ò.˜ˆÈ*®ší\¿ý’˯Ԇ˥$[Ÿ|aç»>pûs³_Øíqæ_»ªQUìµ´og¯ +)ËöÝóíHô +_víñ˜¸L–ÀöÓ??`@–Ã(‡ŸkÂr EIeÊC=yˆ* +iêÒvÐIh´K37•Cì`Ñ¡r +ä¡Eããºê¬‰\ØäˆH U6eG$ +g×ᆀLc±ò³Ïõ9×çÜ3n½ +Çy;Ñ ÓM +:(;"Q6Èb¸­„–9ÎdQ4j°+¡(žÆÌžÂ1‹yªïÿ*Õ.z†<̓žg=¿ñ° +ê]ñ,Ë·âQ`Fð\ntROHW¢ +ölcàQjåΒ“—/éK)(ã"+՛PpÚ +a){ºKæìvç Ä*wAoflF¤ *w±MÃ# +@édß/Wæ;\Ýa·¼õ®Õwü=v¯>–ê©Ý–ÞÞ?ðµë—\É +|óÚ᎐ªŠ–:}?0ø»¿†UE %çJøo ¿þÎSÇg*H·Â3ÈÊàG[ñ'm”Fš¢>gš +§i9Š›ªübÍ7ڒk£-‰4 +Ԉz¢T1R6J5^:‹¬ìõŸ @'£;û`zGzwšMg8ÙÊbu +4ÜY¢ßþ©,‡âÅ&ôœ.EŽÝaÞmfÌ䲉\)%”NªÁÂ5þ‰Ê(X^¡A}ØÑh[ö‚0IÎO}Ø£ +2dPÛAÔ7GÓáÐÍñ1§µámm8 +TŽê‹w&Òi¥/I÷#ÁÒæt+"6Èðñ†ºhÅÖ–E +Ñ·™°f¦b´ +·!g2*xJ™V¤ˆDCœQN+Fe,ûàBTµ®ãMž™˜l&H™œ +u6g* Ef¼I"ßÆéélÅÚµ´.߂qºk±Ygíõ;»VU“‰Í +ÉS(»l—^2Ÿ[÷ +F["M +Øà +üéO—åӝËÝÙ«æW¯Má-é¥úÔ5–†@€#ð²ýüæy/í†j^Ò +/ +¤3Sû3¦ögìø´úÓ1G‹ü8€‘vÀ~G;ǧ +1ƒ”3âFü#6ª%Œqç¿)‚¯‰àˆªðX`<À$ +jœ + +%2P‰Ô¤ +p7"÷zî”øœÎI £#æHó†6oD*™¶vN?_ZcÄï7~ØÈÕ6®?‚·G>a"ªdÁp +¿Ó-G¥#ÀÛ©“– J§+ +MŽyR¯OB,Ò(ñäÉцx’F²7£‹³æ¼?ÏHRQ³ÔóK]vX·¤¾ ~&i8!#dÇ*㕩ŠÉQ9†m!—?¶ýØ~2yRý?Ï¿bx%ñJòµ¼EjäGóUؕ߇÷1ûØ)ÏT`*8Ú[ØW´A–5[M!!ÿLü‡ >ÄzÝRÈögƒùûÍ÷ +_P>øtÒ"ål™ü@~°²­rsöæüöo&V^e_ Y³|{=ÁDp—h’ïÜaôDñhÎ69â" DX +(äÉÁNÿ^Ø—¤dÂf18Ò´2FðP±Ô֎<ÔÀGü~‚bÝÞ +qc·;è^0CîMî +ñ +ç›Ã螤‰†5ÿ~¼ŸÙÏî·|Þ6í™L§C÷Ç?—Ø_°Òit4ÚvX³”¥äÝù/$¿7ŽÂGæ4gFñ×Í +kB!%¨9¨oD¨IWžsÝ*F¤†]¤D Öiå¯'õP±„^Y!٘«žoÎä>,éçrHä'$òR=¯HpÌYÍá à +uV´‘ß±Á Îj’üŽŒ!EvÒòöiÿa} +$¢hr2Ÿ×·ð +-B ÎJ+=™^œ„‚™Ž¥nºrÅ&%ºíS?~↠+ˆy|¶X,ô嫗o~×ü? +_øp纊S”¬ìÁùg>ý¾Bw&[\yÍWwÝxå=Ÿ¼¼¾üªéžúæ‰û|» +ßÿ<ÿ[¦×ð +â¹VTVX“ + +ÓØ,‹•`¬ +6ºhÓE™«åvç£Ê< +=é€ +Ï;¼n„c!l"œlîô©ÒìÉ&{±5³á}òûô˜ +ºö,j“÷ñ*µ{Z +?ÈsÔ=1nÁG{®sãÕnLN# H~ÛÄFª +©1ÅH¹ Ñ¥›LôJ)ÿ#?QÛ«Ë-2¦ÐØÊÆÜéÑÑñ”xr´å'"¯5x +ÙÈôYëÛð6†i„ïwÞïÒó¤÷˜ÿU?·?Œ÷ð uжͺÍö{Ùh’=rZf½ +Ù`1¬ÜÁ˜õ”›W˖›¬5¸hﳞ—¨Œõnwð'Èr +¿®åÂ<‹¥ð¡0F +Ƥ{È +§\^ +r͸N»^v™\c¡oïm©sú´£Qúá"ø®j̝Ö)Β]g0aŸˆJgz–`ù'©Ÿ·âI8©LÕU¡W +â±:é÷^x¡’‰]âL'¦ú‹ÃmÝu}Á—5<5ÿ+æþvä’læêk*Û®aÞó^·*õnúñØógØ9ö3HeÊM¨ò¦© +‘oŠå%Óô4å!%ÒÔ0Ïh.ªXèÀ€D½R +ܤ–.Jç¨+VJ¶TO»¬š,Š]6 +óv +ю‚êÉ +¨ôb"òtþõ¦Vw@´ú"9j3§‡²¼`Q,²=©úÈYõSZš2± ûÀ¨WL PX€ŠXÚU$žO)ò“îHIàŃ!RËó + +{’”N-¶û“•H퍰š@l ¤‚‘iŒo +§A«PÒÀ¥ +UKW´GY]¥¼k4ÏØ`DM'ø4îã"|¿bQÃü1¼\s HU K‚û± +Áb‰Ñt;:±Çñ~ü,6`v ùIIrM»˜)²:äbõ,k:Ø K}w÷År|"«ùåEý +4‘$\ù‚¤©tƒ!‡3䄐è +ŠáP+•.ÍM×rÄé±æ-8$rW‹5¡“l¥kì5Ž˜7š¶Ïÿºpã­Ë×MäC]«pßH#÷Á5õ-ìgæžßO#Ì¿;uéÈ=Søþ¾Ž Vç¾05Ô¹–á.ëbTð؝%0ª0Oµ2‚˜Q@2Ño§8IQHaØy™ 'ðë¯7J„#”.ØÔÚeÁ +äÍæxŒ +gqSã¯ÛerRýÏ)™ÚCð[¡ +Îs*wá_ß*½xJ¤34³´^–·úY?MoY‹z—§æö» s\ˆ9))+~%Ðc® +=¤¦í +ð«ÍýÂry¹uà:þ‹üýæ/>Üÿú&ÿ€ù«þ¯¾üÿ¨ù¨pT~ÌÿxàDp&þ¼ü†ð†üf °ßŒãÔo?V¥u®]¯#Y½^¹R¯Ói½N$ôÚ餵¦ùCUGüV4‰'™qã­ÊGw8÷ÅÍ=|U¨ÊõàÓ¦™ØÏÜ]Â^yŸí’VɌKvG\(¨D$8# +îÔòæ€_‘ýþ²Yp›ÍB0HšyÒâ9“Ñ`à‰H撈؄L¿E>† {Ú&`QH +û +£Âs‚QØe‹š©t€?Îÿ”`ï.³ÿ†L6U™\¯Cªš›}Pî¨Aõ˜µ†Ì3D]:†Ÿ<*ÆñT\dÔG +®j +«_ÌE÷ +ýÆJ`N~¦QËç³POʳ +“¨ÅY ®{š“§rwü™ÜzrŽ‰–D@A?‡!$îQAñÚ„x½ú©ÍI +„:¼L¤B½WWˆ˜BJ3‹Ö#¶[3¢].}ª~BŸªi< ˆ6íÄCé¬çù|¼%^Źª;š?‘?îÍD +ìgԔ’(ϛ[wØnvXTÕàŒ¬xë׬±³$šyЍϟ1 +!ؒgO5±%‹8íL +Œ|vdNɼ!£FM€y£Q*éù5ZÉ5ZF½ážý4â$DU +º–©Y××rÊl@zòyœG7¨XµÜÁ‹~ö|¾‹ +M»4Mæ1ڀðúcúœFúTƒKtju¨Q󦉂éTÓJq[ñ:óxñ5õµÌÔ?d¬0à°«FÇ=ŒVcÅbv{gØïbÑ ¤Â©|ªžÚèû†ïò7R¼EíJv¥ÑZ¼Ž[ͯL®H¯Ë¬ËÞÅM‰SÎO¨weîÊN?/~«'Äãêñ̓ÅgÔg2?Wž9]Œ"£3y +>³Ê¥ÍS¶æ[&.s¯à6ÉWd÷Zö‰wÉ{ý{w©w¥¦Š¾=æ;}{R¬Í<‚oorN·©ªæVˆ>gDT±ˆ‚²ùröˆ#êDˆZç#|&M˜é.M“Õ¤Âs¼™Kf3îl6C AM—y³›çÍD:ñ{’‚ê5‘L–e¿[–ýÙTÂO”u‚y'ðë‰"øõG¢Øá„-ىlB¸ (^A +tb”'C’Ê'ðûŠxü æÈhäb“ÉŒEyËñnèT™AïÎ& Ù£KC~|ÀŸð?ë‰P½O%K½ƒ)‹ä¥7#pÕXD)ä!nՄҶÖRS“¿~ļ+]â'hÎqJPPOeÎÂ7ï'‡fpÔ :”ÅSð•1«dµì¡ìLöt–ËŽ¤¦Yð(û³sgˆÒ3ÑÄmÒ +d·|&@D)(­O6Á÷›àƒn¤jMôÖÛ³ºž9}(€$|‹ +ð‹{þâœ>ÑGO«@S¥Œ + )H® +Š »€N„!·öBå†êìa_] +ÊC· +ö\È¢SŽf’šØG'-BÒÜÆ V§#6—Èt“ÆQTˆ8uBS*éY|暸¯gòÙ#-ð>Û>û>çžÔžê +–|¿Hÿ¢bvS‚jIZ' +,¯tp¡ž¢cK§¡Ø06Ć³;ÕÈÔ«åžÕ–Aqй"²:µ6³¦ªõlòoR‡znàv[v‹»»½»}Ÿåö‹ûßO¤"v£Ct8 +ù¨uFóY!ë+õbÏFó–ΡžVfž$¹îÝ¸näÆ.SUY0 "ÜC¤׋Şz‹ •JÍìD@Ñfô5ÜÓWS7}^oºZ­ «µBĎ󧪵j¥¦Jû¼%'vֈX굆wù‡"8RRw$v'˜Ä¾NøÕb±^)ü.›MW†ÈÓÞUÃ5£‘Sý +—¬©îZMµzÓérÅê®T¬äÍËf«¯’Vý–îRJXk•«9B8%o¢T„×@¸Ó \¹h(àB! +V"b>ºÃ‹½Eõ¶?¢ø±èªU¬iþCþ—ýgýènì?Át¢ +âð{׊iB +A\9Á< +ꨇY÷HìÔ^=yÖ¹YH©›˜=×ú\Úh‹ÛÂ$H‘Ê›4‡Ul¤?“ûËR}WI~]<3 +Ïø +}ÐR}´4JzDº)Þú:iq¼ØkïÝc{w< ÕIþ$G*žôBb“ÉQ:|éÉÌ-§„ºxÌuXHûUÈoî%Õ +r6lZP¤ÉN +!2Íä³7ŒàÓä íV'´àÓg‘:›qÀÙÎ +uÔUÅ +2úp€ÈŽzäb°‘ +6Ú։”ÅIúœp +dD!á°¤WN]dÚê"yNR|šTEGÝIJ^ó@u  +^½’èùÀöqVsyꝼ§ž)»ëYRœ¼¾KNæ­g5')žzòË>øuRàð‡ÿ1óP®¥:¿Ý²h%C-CH€ß”_8—ž©Hw1¥/ú¬]È9A|0KX¼}kVÅS¸³=Ù¾qי +«êóC¿K»óÓý +ÂüóÉ`jËÌß\¾”¦Oîãï}ï5O˜%9>ùùc;ÛÙdÒm÷ùFOžÜê”ÓL2it‡o:ÿÖº "f~{ŽP¦Žß)‘Nsm,º9Óa¢1P;¯““6!©àQ†6hvÐfDZ–2‘›Í½N–FéÔh‹d5)EĜCa·“¹¥w ‰‡Ä-ð·»‚Pµ² ô¼8z’è +”6è&úC⚠+ÃO àù? ÿù³(@½ 6CÀ¾m†YöÜg³Œ«Zônï¼Íx‡‰1›ïçæœ;2'¥d •ëƝR-¸Rz¯ù½Âuþk×ߛ¿™ß)ìôßøPðæü^a¯ÿ>tŸùs{s'Ðé꿙D&Éåòmm¦’ºÄû|GS¼OñŠ?(· n2 ŸËQÁ>×Fi +˜ +Ÿ'µŸH|¢)âÓFvrµéR¢ +vT}¾€¤ +à>¿$œgé¸ðv5̃æmfÖ¼‹(¶v-œ{Á¡`‡²_a”}Ûò¸”o䙼¿Rý„AÈØèäº3£gæ΍ÂÌ˹f¨Øº¹39œ,d°åqîæ‡iÿSF}9ã +¹ÿL§²¸iQŽÐd»°žMϊ¿í)b/rr|<‡ÛԌlöÏßÝyðò%k»Ê±zFˆ¬LöÍ?æˆùE_ +Àp:œ^>߁ÿ”ÍHf‹ërÌÞxë¯î¸«?ßVñ:.ÙÏ<-&¬¢!´äÏ.»ÐwðCdù#þ#£’å;lÙ 9ã´qÚ´na9b:Âõ +¨™ÿC¸O¸ÏòQëˆm,vD–» +ÇŜۥw¹T÷ +žßy¿äûŠï+þ{‚w +N\¼DŽE3Ç'“W«_OŸÍÞÕö¯°äþ¾ØYúe»Òqgå‘ꏻ +ÝÃõ‡–ô-l<Ùygygygygygygygygygygygygù_ü1D³‡?7¤oB+ü_ÿØfm±Ú9‘Ëíñúº"H!뤚B™lBT*·wTªµÎ®nÔ³¤·y`ÿò+W­ +X³¡Á¡Ë¯X¿aã¦ÍÃ#[¶^ùÿíÿ/ô +]àùœÝyþÒö/Œ‚g®4ÛI¤¢©3( +_êFð¨*¡2jG +¨‚ª¨†:Qê&½=DWíEÿõ£åhZ‰V¡Õh­Akiï B—£+Ðz´mD›Ðf4ŒFд]I¯ +áidü‹ŸñæYtöüE +:ì S +‡Z +ATÿEym ¥H +â_C!}Õ,І¾RΒ’'e=)J³ +¿½0uôI(†Ûº¸€Dã&'eŠá_Q›áz#ý«Z + +£6(d_– +“±?8ÿ +ô“qq:fJöÙ Ù¶@á>‚¤vâú¯ +û ´Ú€Î¿Eêä:ûI½–Üó i/%ÅF®¹wQYjª#'鷒²œ +÷'8†Œ·‘ëÛNö»É6CŠ“œÛFjH +ü!ðíXó𡃏osôþž÷ë/ó«ÿþ.Ôǟ4óæ‡æîo'›æÖ»ü?1Õ: + +endstream +endobj +185 0 obj +<> +endobj +186 0 obj +<> +stream +xœ]Ñ;nÃ0 +à]§Ð +ü”’†–tÉТh{Y¢ +‘Åzûþ¤“ +Hè³I¦›ÓùõœÓ¦›º†/Úô’r¬t[ï5žé’²êz +SØ +’ +®¾¨æôæË÷O!Zv¿û+5Ÿ½•'ÝÞÖH·âUŸ/¤¦¶uÓ²8E9þ{ՙ½c^ +¥=J9Ú<‚^xd'&9 À}ÃÈ +¸w°N´ÌÙI€33: 0‚cç¦q`âð 4LŒ0ÊÈ F0FÈcš&Nj²¸Ê +-_eQ|ØdÏoåmðZŸ[Ôá^+åMv/»å¦L¿§¬ +»4BývŁ² +endstream +endobj +187 0 obj +<> +endobj +188 0 obj +<> +stream +xœí½y|TÕÙ8~νwö53“Y3™;k–If&3“•@nH‚„¶€$@H&$,@PëÂâVµ.u)Z늖Üx«¶µ­ßîµµýV}_ÜZ£¶Eë[ÉÌ÷9çNB@ßêûyßÏïóû£s9÷<çœçlÏ~î½Â! +ڋX´liS8Šèoð#¸]ÚÖÓÚ/– áÚ¶ñ©Úoß +? $ÛÙÑ¿¹¯}úV„ä+’¼²¹{¤CÄ/#TÔߙhmÉô +BÃo@eI'T¨wË`0­ʾΞ¡"þÐBgw_[«XÞò +mOëÎ~ùïÔËÚßÛړûxâ(wBQÒß78$âŸ&íý‰þû%/ ‚u+_Ü«ZŒ\²ØmȊPêMH\”:'ي¼ÉÎÔ¿³ó ÷íé$þüèQtV¡Ýèk¨EÑwЏÐVԏ–£#¨}„_E— °v <$ )dÆ­h. +ÒMȒú´\–zy1è›è*ôW4Œ~ƒÚÐ÷‘ݍcȇÊÐOÐÜÔfd”ü• ëÐí©ß#G¡ß¦þJ¢ +èÛè·¸7±{%óÐj´ +]nÀœËð(k؉žE§½â8R£F´­DkÐftŒÃ0§-CGð¯Ù˜i +º +ãÓ©'« + BTK˜`êÊFù(Žæ *t-úº +½ŠCx.[ĝDØS+:‰µØŒ=øùÔ½ÈW#Z+½݁ +G?F?Æ.¼’ ³%%ßEZÔ+܍®G¿FÁJ¼ïd&Ø'“U©-©ñԋлæ©E‹`ݻѝ°»GÐ týÐä·Ø‰—á;ñܐ$:uUòçÉ7RæÔ_Öº +u¢^´ +Þ| +}½†Î O1‡å8‰0¯±Zî[K +¥ö @aT +Ôډö¡ýp„ +/a +çâ +¿a´ŒŽéf®d3ï³Ø£ìpï¤jR¦^š¿‡dÈ +W­®î®Ý +¼{} +Gè‡èOè#t(¹_âãøy’ù5wNò[ÉG©ûRç +¨íG(W +(x ª‡µô¢»S/£W@gþþ +¸ +_‰÷áƒø&|;¾¿Ž?a®c~Êü‘½ƒ}Œ +eÈa.Êm‘\/yCº\֚¼#ywªvg„±ã 7ó€† ÅA‰{Žcè)ô<¬íïè3 ‹vëÃsð +¼_¯Â7ãûñï˜ +̦ég1ëd½l»Ÿsq‡¹Ÿs¯IvI®O’Í©"r£i˜ë^×Ô³ì‚ëz Ãô +pë µï4Œ>ƒÙà³ +gb7ÎÁup­®¯Áëq+îÄ»ñƒø0~ +Àè+ãanf¾Á<Èü‚y‡ÝÆÞÆÞγ¿d“\J¢’Dáj4Ã~Kþ*]%= ›/Û${Dþ“©ü©Ný1©Nf&s’MÉk’O§Ö¤¶§v¤ +H=’z2u$ušj* +²ëùâáÊA!М´­‡õoEÛ@&¢¯£[àzö0ŽŽ¡Aâ~Ž~þˆ^‡ëmô.pöÏtO£s°'+öâ"—R¼o +¸ï¢××ð]ø›ø +<ŠŸÇ§ñð/ñ«ø·ø +¸>Áǟ2ÆȄ™R¦–¹„Yʬ`ژÓÏìaîbîa +fžbN1/—üʼÅ$Ù,àD +»ma×EFØ«ØاØ_±¿f˾É~ +´á€GnÎËù¹ +n3w5÷†$èÔ.Ù"9×÷¤*ééé¸ôÇÒweRY®l¡l™ìa٘,šrÝ +Z:ë÷(Îc.ƒU²øæ¾ +¿ÂŒq“Œ7ã],b +¹ñFô6s€õãyìNì=¾Õ3,ÐPËÜÇ\‚|t¨ Å1Ã•’_r™ø„˜ëp'؛Ÿ‚ü4Î~t +ùS¿Eè–ÔVt +[@£©o‚.ìÅ +ø4èÐffó'î +« }“ý +ÈÍÛ ûq|‡ôÇh +i›‹!3*~þ`ž ¡µè›ì~à´ÙP>×-Žÿʎ¡Ç™;˜̱ÔË +BïƒÝ[Ë]‚ÞF’\øÏè»°¶1¿dàãœ?€—²X9Èǐ¹%ØaÌ1{™¿q¿E¿cʙµlþ+WĂ7>]šñŸ± +=ï`>Ånt;Þ +» +ÿ™y + +¡¿á3ÅÞÌtââ`3ÄóÙJ2oâM°ú@bÁr¦ôH +rõ6ó8ہïA¿”|ý×Ȟ@ +~—2çXž©ÅlYjù¥Ÿ²šä¯S5¨–I¥nåTSu¶¡ß¥^d +¹VnÑgÇ?û)cÁ·²=’5©¿&wK®fæ¡É{²¹h„© +ñSðEGP>þ±Ý]PS”²p_ÿì3f9r2áÑN|3h‡v²,Ç´? +¸ðMUàþÁ +«Ùȃ9^i¿l»‘i?ӉW ¼GýÁÝ +áºÐDËгàM”-yH¨^)T͛[9§¢¼¬´8 +‹E¡‚`~^nNÀïózܼ+ۙå°Û¬s¦ÉhÈÐë´µJ©Ë¤Že0*¨ó.Øȏ6Žrï + +¤ìm +ŠÖYGy¨Zp!Î(¿‘¢ñb +€Ùq¦ b +3˜XÏW¢Ê¾Îˏ¾Rëå'ðÚåk¾±ÖÛ̏NR¸‘Â_§°`·:ðuÖÎZ~oäëFlï]‡QÛ#Öéi +ü +iø§1w²­–o='9—”g)Ùìøü)à°O@ +U »b=Äâ«â®V¾18D´ÛEã5òK¦c72v6-˜AjFž†Yԏ“†9T€ßMÃdeÌiXŠ"̂4,C¿GŽ,“†è:E~VJ.UŒ¦aÐIÓ°uèv¦aô³= +kÑ:Ý©ð“ß +}EÆH§?™†$͘—†YT–áOà +2g„Ò°©3êÒ°Y3ZÒ° +uό#Gƌ§Ó°՘~š†•ÌáLCV¡r˳iXb–OÒ°†]›1œ†µ(d̓•`ŽP]kݑ†9¨_Ma ­( +“úk),%ô·þ2 +Í­ã–ÑúT&õ¯SXNêm±4 +õ6# +iþŠ°È_ù+Â"EX䯋üa‘¿",òW„EþŠ°È_ù+Â"EX䯋üa‘¿VšØ6¤a ‰­ŠÂ*¨7¥÷®‚úxzïj"á¶Ó0‡"¶ + +k¡^n{6 +s(×v +õtü·Ò0ÿ% +I½Ý˜†Iýß(lšEsÓ,šgRüê4 +øv7 +Í´¾/ +“ú¥¶‘qì÷¥aǾ›ÂŠÿr&øQØ9k^ç¬y]tœ¿§a2Ϋö‘q +Þ4 +ã8X +çÓúåi˜ÔQ¸Œãؓ†a +¥¹|ýå³è/Ÿµ/ù¬}©gá«gá«gñE=͗•¡öÙ¹µ¢6Èyô¤•`§ÜÑm/¤¡4j 40¹·B}Åࡦú‡ª¥õ­ÿÑÂ3+ãQ´t£áœA¨«‡\œ¯ÎBå(‚ +ÓP”ÖVCnÈW@ŸÍ°†!ÚkŒ7im‡{;ÌÑ +zh +–@¾ƒâôA]+Œÿ]º~²ºvh#upn桽ã°3 +j°¦.˜uˆ® +¬„‡2ÁJº +vÍÃɁôçáBæk„ûR˜»ƒî¬ôKÀ¨ƒtíéÑBŸ[Sŗì”Гð¬°ÚûR:ÒàÌÊ M y” +cœh¤”By³FÇ>?ò2ØGá£7öØÇJ¨]©xEà¥PKö·î‹i} +Ô4Ápó³®FZ»i’& +.º«¡ÏIòt½HÑ~ºæ~º3‚;ÍÇÏóO”¼>àá_?ô™Eï®´, +SªCPI[GxfÎ6(mŸÅÛaڗ”ϯGä}ÅWBtF¤Q‚Jy‚Öm¦£$(}{¡á}sz¶NhßNñú` +„ÆDŠÄ9‡þ e¦9·ƒÊt‚JQWzedíP"õmP×M÷×A©×ó +ôêKï‹P,1k” +é1¿h¾ö´ü@¾‰ê¶¸êMiÎô¦Gþ"åÐ]]H)"{¡/ŠÏÏ,ÖZo§29 +÷M‹Ô +¤£ +ý—s‡¨nöRüA:ÒÈçx!òéBÍ&Ôg +¤ã´AmÝÁWá9Ÿ–Å^jMz¡t~^bÚ)¥Emm¥vo`–Ý+˜Á +˜%·âþ†¾”RÝT·»f8$îäüx;(ÿ·Rnζv +i¹8Ù¸¢ + +¦'ãwÎìG\×lé&„HƒHQ«úÓò1-¥ËÐ?ÛÑyù¨§{ÿ<ç +ÉøÛ >AǞÞMÍÛ(W{/âÁÀEô>?2فº)åȶžh}§íÀWáþôx¢N]ݞæÆy +› +ïó|©%î`ˆÚ€¡/ÔãiŽµ^DëŽÿÖjÏSùó3´¥½Í¦tiöŠÄý ª˜xÁj¨-¤ž§ +Åy‹ÄýJ +à‘âô‰tW¡†4fZ‹ %ž†KQ +éU‚ŠÁ‘DF'Ü‚•U@´z‘+û¸XãÛ¨åû¯üj©v +ÑKw¥­-YSݧh7FÒÔ rJF%z)ÅJó`1å^ûŒØ&~ø¼e˜“œ·`Ÿ·õ +ԖÒQˆ7#­­E +Ó£O—§c›ÙQƒ(‹ézÛÓZÑKe™X´Ö´g-˜%G;èZÛ¨tvÑùwP +ËÓ} +R½Ñz1µQÔ^b%ˆ”‰ÚØ;ã‹6Q-è£+»ØWLË©h•ˆÞ +RKҗ¦µR†X瀞ü:@és>Ö×6M‘¾´¦wÍXÚö +x?HçN¤5¯' +;^üsYÈIS輞¶A¢oüçr"ƋŸçßl +‹4êM¯´w¦n€Z™Í”_¢ž&ÐNª™½”[ÛÓ^Aôm"¶ÏŠ­¦©*JÑvµoŸÑ‰j)gG}éxZ”¹/öò_MÇÄÝͧ’#ÊußÌúE¹ìš±OƒŸ£¸(sí3©ÊÈ´E¦{ç\FÇê§Â0µ“ÓQá2Øëyÿ\0#ñÓÒÜ3ã[úÒÞ`î´;-u”Ó–p íÙÈî)ç‡/вZ¢qúäÍ3ü û&té¦ã‹ +&Ðfê)»¨cà6Êó~Úz¡?Ù +-}éF[š7=ÐG¤õjÀk§3Œ iß}ޞl¢}·¦×*R¨‡úŠV´+ +£^`+ˆ¬‹'¦éˆ¥ïÚNåkø.NÜJO@}³F#ƒ~ʓ‘ +0ÛÓqùÅùúoz‚0ÅïÑÃp¢–€¬+L£ù +tlQëDû80s +ÍôüߝqåÄ´Müߘeº-|‘ÇŸ{åH¢£µ-Á?ƯìLð}½}CPÅ×ô +ô÷ +´uõõòýÝm!¾¶u¨õKÂd0¾©¯{˜Ô +òõ½Ð¯¨¼¿}‚œLt~‰ +#x3{„eÁC­mCçyL6֚^uÇK—<Ó¡ +ÔfSbz ˜§u¨‚ ¬jªæ +ùܲxi +_ZTV‰G" +Ū¨ŒÅãp/•ò¥%ÅåÅåeçÐPE8¼cǎPÏ4ãÛúzfëD‚¯ +hÝAh* +‹‚‘š†ZA6F`ù]ƒ}½ü¥]mC°ƒÅ­í„Eå±(¶jI¨€ÍH}G×ÀàßÚߟhM›‚NrbmDÓ4XÜ×Û¬èMììoe- 4ÚÑÙÕÖ ªÉïh +äÛƒ]›A­BÂ2÷mé5 +Ö¶u¶!„цºÚyP7ʟÖöÖþ´&o&ûHìlKtw“ +wƒëØÔÕݸ­o¸¿{ZO6÷õÃ€µôõŒÀªWwµ'€‘âœlêëÛ:HÔÓº¹uXÔAQ*à˜ˆaé%´½¯mXÜ"Aní +ì£h` +ú»[EëÞÚ¶|¨‹ì5ô_(A¸s¨§;Ü3D¾ +÷ +n"¬y + n(D¿bÇ +‰n"‰_Þ +”ÂiŧØ_ú¸¹ +ÄCEë—bo¥Ø»Ðä[ +ûËpfáöÑÐwøËú°÷³O³O°ãìIö藎_óßÚçùÇäâ‘÷ËðkñrÀ +ú +«è›µË¯¾fòá«R{„ +N¾ÊßL‡”_ºÎÎÕpW͕qѯÈɯ(#82Cé­_:ò2ԇ[yt×û¨×KÐ]èOú2ì:XÇ. +·"„N¡•©ÓìÓãuuQaò`ˆæc¹yѓ´Á +ˆî­6²O£CŽ@ú)$!¸» 1ìÓÌ88»ùä˜ÙA{MŒÍŸŸJÊD`<¿0úzµ’@BbØ ö$Ê{ç†¢U«Xúæ} +aH¬ +Áð'Ø«Æ*\ºj +;Žôì(ÂZ©Ò¤°˜qô:¤!¥ qÈÀ>:öï\ϱ‡ðV|7 +rºMŽµk·GÂìaö°Ì†§™Q„S§±eÌ֝H +OØ;`™{ñ ©x–½[Èü©Ó̑±¢˜0Yˆfã@šrÄÜíó,žæc^Û»ÿ Ë(¤7˜#ÇYuçÁD +¯̍>Ã~\¨BŽŽ»ÿºXöìs]; |0îÅLP$|èzŽ½ +HrÞµ¤. +Փ¶å—EÕ$_²<ê!ù%Q-bAL ™ \5økÖP¤±hŒôˏjéܨáip.Š¥Î +™þ¹1«¿ø²¨ÞˆG¥þü˜æŸH%Ÿ¿0¦®Ç¢ßô?î?åÙÏIü%Ð-‹Ú*ò*Ê*X«ß +Ëõ—ù¹gØ«È +ür$è]:Y¼k§‹Q¹"1ØÕ_Æ]tÛ{É +\€”é*Ý ;"c6HHÏ€¯x" +ÿAP>áòD=Þà +²¥=cy1šyQöŒeó0Ú;OecÑl ¬='/F±jeêvy¨˜úò ä‚.1 +zŽW-ˆf“<\5‘B1Z¡¤ãb +)Ö/Š“ +I3wÌ +™ vÆ<H4ê ÄÊ`þOe&W +îèÁç`*Ìî! +ÀÆB®R—4,­’²‡˜#ÌóÌOî{„}žý)ËõÖÍ,ëbÃl»”ÝÀJtÕÅÌ$0wÜAz +‹Âp¯‚ÔGKG@†0Z +w1ÐzZ TE¤˜¶l¸¨ +èfÇØ1f®Q¸`Á^ŠQ +˜Á)0ƒäÈb +`Ȑ +Õ*ærƋâHƒçÒ{)½;{\ss\sM\Ó×4Ç5+㚠+qMA\“×Të™b0'ÆAîø +½¿@ïËè½@°óšxÍs¼æ¼f„×lá5­¼f¯©å5Õ<—! +šKïzw’;ž:¦kÔ!Åóx +5" +{H›‰\LæX îš`Lc*ÈäcÙO»ªmŒeË1´J +†Ä¥s¹8RQ±ø3äŗBþݱ@¾k?)f‡É˜Õ™äƒ[Ò +?„²±òï Ã´ümTDóÒù}cÞnèv/ɪø +ä%“À1:Éö±@š»ÇŠ\Õx+ÌIª;‘¢Õˆ¼*ÝÍ;–ý-×3؍²RDÇ#®)èïsý#6!Çc®ÿôM0‡Ç\ï&0”Þ‚¶»Ç\gŠ $¨\ÿQtÆõïE\¿L0ø„ëgW\¯ø'8@|ªˆ"~7@y"*ÿ[Eë]w¾åºM +û "] +Ä<,]_ƒ- +{ϸúa˜vï€k½8T‹—®`ÕÛ´ÔëliŒV. ®KŠ6»»jŠ^qÍó®wU¸ þ„«ÜwÆUê¥s +¼´{~6lV’ç=ìÊ):ìZUú +þ>’ა‚BH¶G¶MÖ%ë5ÈY™¬DV(óÈÜ2“Ü ×˵rµ\)—Ë¥rNÎȑÜ4‘zC’o¿LR=ɤ +¹sÖ3ˆþ +ú© +ƒå +Z„FlÓÐ4´4Ø0!K­- +6Œ*–]¶æ(Æ75ã†ÑÓm¨a?úI“w+—¯ +•xçãQCjX9ß +È£Ìþ ŒV®™À)ÒãZùD|®½ÑAòækolnFæíUÖ*üŒòµ_pۘ¾Ïÿ¬Á +Vçè + +MkFw6F r67Œ^Òį[s’ÙÍ\^W{’¹‚dÍkNâÌ +/¨mžAºÐ@¨¯Ñö l‚Ò½‡¢­Ñ\ÐÐü$#h"EsáG ˆÁ;zØUW{Ôå¢8\?:Lqsý"ŽŸâ¼= +G¢GoSœ·%z: +¢ø|€Rä#(G=>@8êóÐæå盽bón±y7mî=ß +››‡æàÿÒ/1ÿË0꺚æã†ekŽÊÑüæšubnÖ÷Ï£rq|î^Ç)œÅþ©‚Í£JïüQ•w>ªª²õ•8Ü"UJ¡N‰ Ïq[¯tœâœ «¡Z“n*¬.¬&M ΤIK>/O7Y¯œã†I +M7é¡:&95\n­Íß™·¶YëºjáO:„ßðððààÐ0ùA‡@SÃèÜåk× + +êFmk›ƒuÖ®Ú¡²Ô0šªH'™¬nT€NƒƒAÚ/ +›€ÿ†Ä:ŠŠ‚ƒ3õ˜Œ;HF b éDêãÙYÔë +Ƭ`ìdê#öª£†AnƃC¤7Œ%Ž0(ŽJ4œ~Ô)!ß8ÊPÕ1*•M0 +‚I¸OY¤”qŸbd“K%ŸB䉍+¾ýàË'•S•Kôg+§*QÀúsp+Š¸3Ü~¸1Açxöô9A‚>ƒ£Ái0&·0ËØ~ÉMP¿uâ?ãXÇYdÑzc¼rA +€Õ· +ä–Mšü9q ɳœñÉó +År:|žœøòúšr.º8¾ „³s|N‹žs)5(§$Ê)ƒœ«*4='<¨R_ÉT>ƒ¯†÷q´{ŽÉzXó +ûʄ +Þ=–ópÉûØñª*Ýb¼˜l´éۗ“¶Tꧦ¦ÎNA`qöìTKåœa°”gÊËÓù4XÁ"M)w¶á@N 8^‹š3MRYIiÉ4(•™-fy=€’c¶ˆ0Å.)%í¤ +¥ä"(éqÌøÎê)ò¹BÅÒ҂Úù +wáükcñ†‘†Âììúyys™L_ÄáÏÎ +©%s +êýö,O$/ϱqޜ’†Ë + +ÙîE½œ©®v“fŠ>Pë. +ºüÎ +³CkžŸ“]__,¯Ù +Ì-uf†"ûbÑœÈ +³>”e+5¨M›CgÏt‡ + +ù»!?º‘»Œ{©P¾*kQ¾ªR!yžâU$y•kÁ¯"ù«RUž½º‡ÁŒM}èk„¦¥ñ,Ë>;uFvR_© (âÏp»3bîLwcNêð_Và¿%57â¿­ÀIêV$5à’RN¦° + +C&ÔÈdú°J‹÷h±6ã +B +sü)4OeËìù˜ÎÔøþ™InÙ6©¹(BXP +Ï \À–̆°OÊEXٜܼª®}ÓÏõtòˆ"à +œ7?Ú|" +ûÜ +ʱZ҉ +èG‚]fǗ2›™íÌû¬FÞToÁ +'×)&pÙ¸\†¥Õ*ˆÅdȎgª +£š +Êv<*¥×aÉsõ:ÝÛà|!˜´Âg‘Õ +‡Iä25ÂO³¹HìŒjܥú 6GPéqÔa +ÎRžbrñ p|úÊ`°2¨?ƒŸ´œ©ü˜¨aPrrŸ6Ü­1HDҊôOÏᏑ~ëO‹wÓ–´ +ci¦Él‘¹KE93Rò¼ +YŽŸ]|.+¶^95¥]aÏÏt{ÞÍd؀Û^ªÁË%Ÿ +j+ðçÈü~FeÈí`ýõ*“Ñ›«ö­GLê^„¸’­Èƒüøá*6™9+ë–{”^©O¦öⰷʻԻÁÛç½Ò{“÷nïÓÞwøOx•Ä-ñJ|wÌñÕ9ë<«<=ÎvO‡o»iØó¨çW™¿v¿êýÏðDL‘Ì"'—‡ + +ᬰ“Ëlñ€`¬ˆý^ƒÉçõÂz=¼Ò r*n÷ãyÜÙN§˝Š¬L‡3˛™éu{Ln·Çkðf²EVøü&¿×hTxëÌÊR*r֓áa<ÈëÎ4ù8C ’‰3ɉWUϜ`ç?å½Ò#Ø +qOºΓóŽ#RƒÒ5hÏ4XÐWÄu8Œ—bO°KŽ®÷zŠ]Ë^Fy¶%x6ü$<ûv°%mTZ€ ÀRCyxÂV9ðrkÀ:›§p—¿?S’iõ•2‰¾²RVYI­R +0œ°|fé`|bÀöX”ò½Ô-“ÎHBI)¬Ñ͹6ËuÆêFÕԟT–ê<§^¥Ô'¯8¶Æ+UÉ>Õ¢mýlþƒÉ +x•dëgw-µåf:³üþ,ckð‰§«J­|ˆñûٖ»¸%Éñ©÷È1<õ¦ä‰ +t³àóékT5úuÒͪ!åvՎìëôwèÉ_ >¦Öýp +]÷>ô˶ËK¬V_¾dk²¾·r}]ΦÝgžù·—þ|ÅUG +ºþÜ-Äßù(l2 +Ázý|­N²•âDŽ‡Û1s­ívÛC6v_Öu9wdÝYøˆã‘§¹ã†ãYO*7gmϺÁYפ«·±1ÁQÎy2Ëm +cæ<»ëtëôz$+Ðj7ȝ2§„</-}.ì +I2L«Ä)u\c±|dw:¸\à: +^Ÿ +‚îóùKCLH«Óe0–Sî+ËõûôÒÇd‚×P–aYÖcÁb;€ÆO9/‰;n +ÝZ°`¶gÅ~XÈÚ˙ÇqXû¸î1ôMý)ü[wÌ óaÁS™,qŸQ¾—”ñà‰2 +Ïâ+SžÂƒ¸bÚ~‰ìÙVCjèLVFôÝ; +°ˆy®•æ' +¡,X˃b(ÓxfêÌٷϾ½œs°ñì¹`ðL¸%x†ŒP5Y*S9©§–Pr^SZB“ïƒ=Äd´E©Æì|L¼ñåTm@F¨X°^b +^¯¨B1±ò¼õ$¶Ó[ê¦hÄe{™;ïÙ³Wÿú\ƒw®6Ú2jw¾ðçÿÞÏÞÕ,qä +þ²Š3ÕìÿYé—Ù=Ց'%ìÔ»MýIÓ¼‚`ܖ¬ªöØMڃ‡“ûüŒÚ•w5m‹‚þäɐ«Ø²Èí¦Ô’Ÿ€n• „ÅF~Ÿ¦ÜT^T_´ÖÐáR +iFò·¯Qßá:Ž+Ne¾¦üMn†ÃåtØ +6§=ž‘‘íq›<:Ûa·‡ý:ÆÅ0ÌËjY,vkI˜Õ¶û¢siÕ+ُžÆT†T wº<˜5è^^¢4±Ž* +Ñ9ý'Dç?*ߟz +peŸ<Ô“ Éz¡WB¸%ˆE*{yVša2)9 eÁLš²RŽ| +¨'}FA¿—(ž¼+ùòK÷}ïGÑæµm™öüõY*&®l\`Ë´x´å7ÉOö|ãÿ~mü¥[†Ãf›7 +tuUƒoӝÉ?¼“ü÷ç’ï\¸eaÐgtæä`OžãkÉÇæä<€Wâ¹¿¯Z +1Z +Hôñ,B²vÐß"&kÜÆ`L½Ò¤®º¯Íf + +y±óÇ皬ÕÎÍè˜ûUçߝʜ¬ï;™çuÎN6àÄ + +}Æ<[6ŽJ™š•k„ +eA,êp©qÎÇþlg²g†É—ã +pg‘ѐ³E +uò¾^z‰ø +BWJM‡ÐUT˜¬‚s²F»Éi +@gƒ2Ãið»|N? +³³Ù&'fœÙ +¥2Ûî0Ùí؄7ËaÊÊrx]Ù&—+Û`4fü~§3K^„X†AŒ3 +³v—=šë°g»ôÊ ücvÐm;QҚGâvâð¬Î8-gWÐò˜©ØNí€6#ÎÛ÷Øï·³ög™ëQ +è؈ +ð  r úŒ¸KPkâ®ô®ô€$2`$וQ»Åe±»¢ÊÊ>j5Àl觨%˜ï|6Û!ÓʍLF +±ö˜\a!®8C +&A-¬+V +—´ÇÕ /y,X9Á]]Å ™^¸­+æH'؊¹ l9Ñn‚}Ë'”£`>ȝ˜I ú6`4Ž’Sî9@Üs‰Ï⑞÷Û%0 +ì_öýlûT²óµû~™x*‰ù½íÏ?Ó°îÖ;/;²aÇ·o•l +~ëòגîsןÙú + +üÏ넶7O¼ñƒ›~¿¶ç~lbÿÏ!~ý)įŸ’eåâ¸`“2fæ÷~ÿ7Ü÷ø’=̟ +w+¥JœOD{Džrkž{Ž{duîåþ™ÃîšSîçü*³G_žáÑéç9s•Jgn®Ê`6: +ȒåD*½3#W¥Ê6[Lf³E)wº!$¹\ˆ1dȕN¯9/×bÖ{O±{‡-ãù¹¿RÿjaŒÇ +{ÍØLüižŽy ŠƒG¯šåN©/5‹>ÔL´ +|(ä{ŸjJêŽÊÍ ½ÁYþ|iã{¢Å`Lˆ!§~2£ÜP~‘#}'¡f¥L›3ƒh[ +vӓp)gFÎÓv<c$¬J3°À˜ñ³k’çî\Kw ¤C9õ–jKSäÜòÖïo«ëO\qem«dññ¯mþވ'yÓ5ù|¾Ô﯈å®{C’©'kµ&¶g©nM.“µÁ‘•OX7×HjJGô×ëïÖ?¦V/ÏÃŨ—U”Ö +ꋖ–®ÊjâWæ­Ê_ +Z½,֞¿1´%¾=÷Šøµy7E¿‘{OщüSÑgbŽb¢ +D=Œè±R•ù4¶"ÂlíûGǵª°r‚½UPȞÒê±lT V0 +CH‘Ùâ´x6!‹a˾÷)„Š +Ty̧`œÐ + +tÁNtÁž(+¦zâ!zâ!zâ6ió5Å +ª'å¸üszòÞýâ_'‰ +RÿZŽ¬U“oöL39õ–þ + +kP +áj‘HÈ ˜#Šc¡¼ŽHe98ž¡Õ4Ä?§`Ìêdrn<º +[:ûî©woN¾{ßê;ßYç-(°à»Ÿ{+ð}?øÆÏ’ÿH^~/ѽËn½síèúß¾Õõs•ºªq­þW{bJ£×Ú±ýþßã_a¼ó­o'sÿ&Y0­ŒÝñãOíƒP™Iý +´ñÛ T„ +»åfENeþB´8Qp-ڂ.G;\# +wHï.|<ÿ¤åùüçCKÉi–9ë@!Ëæqj£Æ©VqJ§Ên‚ˆ'àñ;E +—m4™ŒF +³ {vã¼pȞ‚“  ¨ÕäI†‡<È*0FsMF}ÑÆl¢P +äé«Ùbn´BN8ñ¢_qDQMŒñ¸Q0¨ªŒéh–ä‚TÑ(èlóŒô|h 9ÕKcµµœÔ0”A/i3ÌbLÏB›`–½Fl$šU-Æ(Õü/¤ÏÿÒ:Meä¼^Ÿ÷ŒiÝU[;íÿ©ܧ¯Üý" –7+Í=Ûìç +²RQûeF°l2LäFTv¶éw‹— +[œæMŠ©¿©ÙóŒ¼wÒÚ°@Oýñŗ\Ù¸U5µFˆ>ñÃÝ»ùæ6¬Ov,+Í·äp”Tg8Ã;Ø؊€ý +¸úwÎäà­k¤~æ÷ŠçoêÛ.'q°6õ&w)X€9x•píµW +™õšõÚõº-š>mŸ®O¿[³G»Gw¹~oáÞнšû´÷êô¹(_/\Y¸ÙÝ^x +ürí@è€üºüë +ïQß­½[{ìQô¤úˆöˆî ýC¡ÇÂ'ñsêg´ÏëÇC'ÂgCÙæÐrÕ2u“æ²Â•a©Ôd1-R/Ô.Ò_’ê +5!N–ëÛ (sÛ3½ºÝ™,ó4!„Ê¡2C‹Ç‘B4(Ÿà#‘ÔãÞý +~?¨øüã.÷nÆMB(c9ÉÆmŽ8ɇ'' +vW¹÷ºY·}nð ƒ*6übò94,?~½¶ +Ø –bt +— J\rtw:*oi<|?œ¤g§™r +"p4ž$â#MÔ2€é“‹1–6âñ&ý +$À,Æàé˜@CDÄç›À|m¿GväÆ«÷»Â?iË +ýêᲨkE +T›áÌÏ +tz¸û¯îüZ®éùÉHeç@Ž}ŽÛ +ÿ^9ðÄ]µeM?o/ZÞ|ӏTR +a³‹’ó*ý#wïZ¶`OòÍ.Ûüo[ÌAÝ2àÿÍp²Ž‚¥pã àe‰îiÀ×` +TKØý +¿ßÍè±ã§Y9R"7 P3ÊÝzAý„v¬\Ð;ôJðÎbx¬ÈRÂÁç^Á„÷³1J£An÷ä:ôª_hÔ +¬¤y0$æÞ<1ÏæãbøkµÇ÷Øُ@ø;Ád?åQØ-vróIvÑô)XdE0®û¸]€8’†Ï–rq<->e0γ +Q[UÚgOÅÃne°ªò + +*++§½tp—þ£l + ôeA8ÒNê§Ê/~ +vbú¼êõÒǁ³Uì%Æߋ +8i_ÀXè¹qkòlLX +RO©ìKòá|l[>|óš,¿dqò®¥óêýYç֎æŠü~[Fó×Ù*º€/¯¥Þ”^ +|‰â¦“È•úã¸Î8>¼ïàvï1õqÍÓf®I²Â5¨¹ÖËÉCòp¹aN§È +æ0XÊ8±ƒ‡Ó**Œ:5àR +";¿Ð”Ÿ_È{<^ƒÉd0˜àØ +f›!ÇT>Ãç•ò +±ÜÂ|“Þ³ß €Ù5PCm›GrA“Q +1†eVoÀ†gØ%H6;hn+Χ¼ËÓín‘ÁÀßó-ÓO >Çê?_uZ¦—WÊ+÷éå»_Ô¾Hñ^)qúø N˜>ÁF³%›Iû`PcSI8ï–1˜¨6¦Ñ9œÿXÕzËîäýmڀ5R¿H5õ¾j +Ïaߐü^‹A•­½D™œ«ZU²ôz|°»¨þ2%~K]¶Y×ýúÊp†Ñ±$CÛ|mò®äíñž.œt–‰ÏڀW%ŸßmÈÈ6Ê~¿Ü¾߀÷ +k‚À=Ãk¶®IŽýêÊFG¦Ec`Á6L€¬\ +²Á»O¢HÄKÆr +Ö1jV-SËujF§Õè`öÙ +ò47èt‡ð!æ{HzHvH~Ÿòêúæöî6£&J^È=ó>͌›Ž‡¤÷°‡Ùûì|½#Ä.Ä]¸‡aå: +Snw;œöÜHž3W†¥N™-Ãê´åxÎ +w† +q +{®>##[|E Ãyõ:“^¯C‘BÙ +¯ +¯sÑ¢ˆ³2Ç–›#—1v› +E'˜[Nè¿ð(Dï]ޛ¹NP¸‹r=z·»ˆ> +ˆÖ‡Å—8¨½ˆ§ ½m +[ŧ<•6ˆÒ¦%H¾/m4(0[ʂ³ìŸßE³2‡ +µÌ˜<°-ˆñ´Ñ /eX<¸ÍîÒr$¥ï +,ÌO0Ó +L(ñãòyŸ7ܜ<Öî·8K”S/©Weš=¾ +·äT/WâÕë5æ,'ósÜucŽÙ r Wèøü˓%É£WF\¼RýäéfvhHʯ®¨”ùý2‰,?+¯œë"©wÙc@ü_Œ'X¼Ü]Œ¯Á×äߎïrܖWè‰Ø‰ Š¼ +,jSÕwÌß)bJòñŒÚc+Vk=¹q-i+ Ê²Ô²ÁÂ΍`µEµ`+>iþ]à݋ŽC¯úLµÆœŽüf®(³ æ +L°· +F”ãóx,qœ+3`ÊÌ +„'R‡#ax‚ +Á ήWe–ä2õšƒêgq +âeÂúÙ§Of +€GÞ Z¯?Ž2õ™‘LöëôUÒÞ±¦âÌg™Ûá +xœ) ,¡xÜIp-œ¸soSñ!ç‡NÆ-É´d–(£/ˆC:Ú§G}ÒiYné4áÍ­é2 + i®K×ÃBœ¢#¤ùQKùôy¡¹ñ½³Á–mÁàYˆ>™œ~”f.8í¶‚Ö*D"Ã3p¶$o½Ëá"õ/ Nÿ"1Q-lÔµTé*–¯]ó<*Ný +Å!å¦ÞE9©wËà—~\ƊV‹>³Hŷߥ¥ÓïÁ +äA¯ÙR*óȤ +õsôM%ûo/˜Y¥\­ÉÌ©öÔÝ:/4g^Ý»tqý–ço옻<Ó÷’°°ãPmAÏÞÃóÙSk/Ó(ôj +Þy™µ³'˜W´¬ápmÑȖC¸uËJaÑ@VåªäؾڥüæÍU‹áD‘<”\À¾,¹ ÕàŽ“ˆ +ÈemaKxc\¬’ +–jËürÄê„ܼ¸—ÔÛm^ˆºáV'D‹ë3$+$­>^G¨­)Nûuµ›ãêj±W€q¼x« ÷ù4vû\_!Òßîð)tô=yU¥Ÿ +V’§»áW +BÐíÉÉq±LÍ|Îëã\LMÎ|GWŽ tûÏÕHF%£¹jss\ú’ +ç'˜ä˜¥H3Á°‚>bŒŒñÉZ—ÅU«Œþ^-¬©É©ÉÉó/Sè`1ú3Ӓ€ ï +ååû^µO¢Q[Ù<ýñôXr@/XC´Ïç©Ì®b„JS•ÇS¸¶ÊMnu‚qZ›i0*ó²ŒøõÃùWôӒQB͐·T¦¿¥¿“ ,}‡'cÚ +·öÖ/êY·®2ßó;ü™z™ÂÜ°È­ûÝïj›æ—Ì)YôàÂÅëB>WŽ]¡±UEkŠ + +Ùmó“ +É׿õúªjŸ-—{Ìf£V¡@ÉÖDþŸ™‡æ[ª›wÎonn,ôF|6}X®•)s‹·Íùø±<°RO€¤”à¥Ba¥ìÒ¼óØ.i—bkvwΈb$ûòÀå9ò&´5À4c˜&#$Œ™ü`A2šJêBks‹#%Ø[HN‰2µÚåàM +PI«0d*, +y‹8YaÒªr”æòŽP¡ÞtÐ8kÆÕ2??}cj¿ã±% +;VòËBêyìñBñ(A³¬bZëõÑÚñü8ÍCEñ‡/ÙJ +–B‹£T½îsà”x.ý'3ÏÙQø¨É}’Y/¥IÄc­ÂjÄÏÀ4èÁUm˜~ +Ý0{PB>„â=eÀvò +]­êò$%ˆË £ižÉ#JF3Ɔ´°Ò´æ—Z¦ƒZcúقè´à¨RJ‹²b¦9ùΉŸ´D„¬]– +„ûe.ÏÈj?ì +4ÛLNm³u¾C¸×{ƒ.ƒ?SrÓ¹bl86¿tþúdËb¹Ö )Xb,ÞSöìÄ_oš¬æü×ï4½Âí¼Âž+esÈoê]I/ø¦&¦N¸Æ+-+Ä͊ËÔ4«MëÊZ*Z欯\µ¢ÓØeÞR0¢ +1ï*ØYy€½¾àúÊ5÷±÷hï)¹¯æ|Xó@éceGʏT +™óÝÊÇk¬;^v¢âÄBÿ֒ÎÒ-µì +Ô\»b{ dí]ul¢|WÉpÅåµÛ>X.ÍÅþòœK«úVJܞ¦dÃÎV殈45"M + +×Wk”5ċ22ª‹d²¦ï#™ÉfsåELyyeE +kÎ<Ӝ9óÐBÔ´ÐUß`ª¯o¨ê.œ3§B™·¢£ysêõžƒn"e6“?R&¨mþƒloCS\¶·¦øfÙ!#³ÙÉßër`ÑV!ڐPSŒÀ3#!»˜üûú$ û‘½à¾@ +¥ŸÂ4¾7ýÑx?".ä&2 +x$¾~?1˕ňÄÀŽJž¹îÀ“aÇ5× +~ø² +·ý}cýg–Ý‘|í‰#×߆sŸø¶äe?Û°?Hžmg'±?*xɳ¡a¾Q}ŸúIõ3IyfZ ]¹0•4¡ +֎؟È=)&ïdþËvmgºTËFPÜ# k|EQ­™í–ˆ9SkŠdzë +øA›ë‰x‘‡9 N½Qð@˜ +A¬yµ.ñéVÀ§TA/ +Ûc¹;yÆ}’œ†ŠeD\óÄ,‡fB&_,\ÅKeX-“õË†Pý;!6xÌáõNÐ'UÑb; yéÓ/C +Îø‡vì°Åì;yrRqôҙ`ƒP|×»Ö°~rŠ„Ÿä +†zlCÔÁ¤¿zJŸ8­“å_ðYÛ>ò&ª’>£NóJ–ŽyIýýdÆs“÷QóXñ±¥ +¿T×s¸¹ùÊäÝD#õfK¼Q‘ÌS¶Tû¦,.Þï×ïÞ¼¢º¾¨û—E쁷÷vܸíÉrsV2¹Øbveøý\Ù +¶»ÉäȖåLU +Üþ£¶e«>}˜x‹© +¸‡þS¨fÀV¸!-Ç«ØõŠõÊy³Oè +·>dW\k¿Ýž +²¸orL¶Ë +QûO¹yԈϸìk°f<&¿TŠe¹\.Þmây7ïRæºy}D!(–)XÅ)F Ÿc,ïežp#d)ç +øÜ8/ó‚’’‹‡Š,g +ññ‡øçùŸñò)^ +AÅþãAÞ],~¤¶-mªÎLi!<ªªœ6¤"w ššMÊ¡4ƒèÉ ýÒ 4úÙ³–þøõ¼ÿ& +Ü8mÕ6ã毹yyÌ +ðX +-nŽ‘ÉU:{qSk~v¾”ÿæI^grg–±Ë˒v +ÜQ›ãŸ_Y˜í2Jår­°éÞùM–+™žîA­Wï6&Sï2ïõ#è)ÁÅØâqè«ä*NgUeê*r$¹*¯î›,ÆUx)ހ9<9Aú>ŠÈ$¾<™mâ™ß·ZTN_†Š9ˆ¾É#æe㗵?ãßà?âÙ=üÍ@¿Ó<Çß/¯Ün?hû¾•žâÅV!Éí‰ßo=me¬WÂµ¸ +Yƒú‰ +àêlKËèÙItŸ™ï-TšƒÄ;xé‡ëÓSJy1sú©|ˆI?’'ނyg®_ÒÙ8¯ÞYôµÅO^³p½ÛPhñÏõKÚ7ë³Æc7öñví挠¬û+×íª¸+KnúºÐù€G +µw]¹j^®§òW[Š[¯“°9aàÕ@Ãî*”¥'‘âúmàé]ùw$2ŸiÙUŽƒèÌúœè2-«ã<³‰ÉFZ +æ$2rfe;°=˙m•Ø8,›e³q +{ºŸÁR£ +Éd.ÏÌf›Ù•k3ë™z + +ǝ‹Ùn + +‘éjOaŒdh¨ +f¡¤<~Úü33cžÀs¥‹¼ +w)w,žõL~¢arMUf!+n`•hP '\=ùvd[ú›±é'çàÿæS4J O]xÐ¥R,©¬„£®l¾²1™wV\:}^%Ç02ŒeÉ}÷>‘¥WÙò¬Mîu+ÊÊ +ÊøGîTöÞº–»*ùQÕÔ؆¬ +ƒ×´Ùv]i 4XÒGºì +·y}¬ +—݆Lø¦£ÍDê߃§"®&2Çf¤‘º‹á,ú¾ï..a~ŒÊü˜}ý+-`ç°õš5ê5š.¦ƒÝÉlgïSߧyˆy€Õ¤OŸ +ɜ©æ–¸šU1äoYf4ˆU)Ok~¦a~¦Áo€‰!ÿ‡Â+-Ûª^"IJfdV$9î}yDaªÓjß7FLƒÖ +˜ lƒ@žü]"ëRCi\©R‚¡ò +ZŃëͦÛék–T©Õ*ÁÁÇ«TXu[æ6 +=ª0Õ¬œ +c*‰T¾=EO’¬ø„œ¼ÇMj1§Ã€«Ö²B†ižB‘~Þ֓^B¦–|ƨ%/S´dR-‘-ñeç±/ü°9ý‘‰x€ +,H6+8½ó ¬%7“x 1º3±›œAc¬»»=ä)¬÷Qæò©ÅØßYvúWO +3ǒo\fÌ*uØm¶©ˆ>^›üÈÉüL"Í!ÿªuü¿º°¯Æ·L_LÎ?¿Ø"¸N°'¸×¹×%wœ¿¤—þ]¶O¾I±DÙ¦jS‡59äÒÎÕ-¹ðÒß0}e<ñ€áÞéËT×3™ã™ãæ‹Éò£ó—uâ_׿®]ÿºþuýëúÿەþ,0ÍMâÿ́퐤èKì +¤ÑêÄþþ|p~ËEùŽ h,^\RZ†ÐœÊt{-¹Õ£’-C+šÐªKWӆ–/Ÿüÿ‹‡~Cï +¡ÏG»R)¸óäNþÚ7šM€ó? +Ò"ÝLébŠ\ü#ÿ£œqJ(M'ñE1ˆoŠQ *Ee´vª¼¨í +T©a¦´ +‘ÿ§­ î«Ð¥hõ¬ +ô +Á_'uõ+þä?B¥.¨eIËqÖt"þ«$ ¬GҁžcPêý‹x÷ÿ(ýGê>’$—¢ƒ$üK’$?@7}Q’>žzŽ$€wÞÏ o +ü0––D7Cùµéõ;¡nâŸ&àâʼn)OÞKÀy'×KÀ• +J¹Hb(Ÿu¦>`ÊÑÊ/JÐöÃ/”‹ùü½ùèè‘St•Ëm"CtM> +endobj +190 0 obj +<> +stream +xœ]‘Mnà  +÷œ‚ÿA+Yl’M­ª¶ 0D^[ÄYôö}3Nºèâæ³ç +Íát<•yÓÍG]âm:Ï%Uº-÷IŸé2Õv:Íq{Äx +«joaýþYI£€òÎïáJÍgçäK»÷Ä%Ñm +‘j(R“1~ÊÙ+*é߯Öí +çü(íPÊ2€Q0û֋ŒATӀt +{/öŒ£GFçE@ǘ¼˜³ŸÆ½Æà+#25Y,±²Èò"k½hQÌJ1¦Z™ly²Åd'7²<ÙuÀdƒôt‚½bӟ +ëx¯•Ê&/#γãs¡¿Ç[—•»4¤~³ô‡N +endstream +endobj +191 0 obj +<> +endobj +192 0 obj +<> +stream +xœÕ9 +T\Õµûœ{çà +0`~|æw˜a`ø` +B $Ä$|ˆ$`Bbh¢Æ䥉D‘Ö<Zc´ñ›g +H£“h5µ±µ­ú\µæ½e­5ŠÑÚÒfYŒµÉ̼}ïŒ1±öóV»Ö뻛sÎþœsÏ9{ï³Ï¾ˆƒ +À@ëÒvWˆå-¬–÷­ïÐÜ^ÒÖ·eŒË:ua72P.a׌®]ÿIÞ©ë‹jíðøšH_úøà@Oÿ‹O\3`]‚Ì’Ad¨r˜›琶®ÛéŸ^„ïÿãðH_O„6³Hï\ß³u”2’G”‰Â"6ô¬ˆ™¼û*±Ðl‹ô·f +òэ£7ª¾óÅÍ0×IVB¾d ˜±¤0û! |&ZfCá9ɵÀ‡Ö +ß²«pôw£%òô@¬,†à +ðÑë!ù·ÃÓpÞ/ôÙ\ø[p+Ø` +‚2Ö>KàC¹ +t` +r2RH‚µp¼Ð„切¸6b}ò?% +PB@+qöýp/<¯Â¯ÀˆoÌ +ÓDF> +?µÐŽkØÇámId$À7àx +¾ï“\r˜|Äü.|,ürø78ÊùP+ á›ðö{~JyæÛaSx[øÑðK‚«?‚»þ>¼ˆs' +YNúèÃÌxèOá +á#¨‡X\3® +¡wÓcðö< +H +ÂNÊÑ*Ú҄õ 3pàÄõ-ƒõp#ì +Ûp÷Àýð$|HªÈ y +üŽÆÑ +ôyI«¬EÖó|ðpCø<Î +\íÕp-lő߄;àN +ùÎu +á +I © •¤‘´‘ÛÉ×ÉCäÔIA/0ñŒŠÉf:™nf;ó.ó™\\º+ôZ¸5¼uIPç +´d-î³®QØ×Ãvôö½0‰0 +Ú;‚àG}>ðø%¼‡p>„ßJ$¸GÉBÈC¨ +²˜,#«ÉZ²‰ÜEž"ò +y‘|Dæi-¡et)m£ké( +£SÔO§éót–þWYÎÔ1›˜›˜#Ì +ÌKÌϘ7Y`³=ì»™ÝÏúÙ7Øsì<’€„GȕôH +5 +V„máŠpoø¶ð‡¨ã4܍ +츟V´j¬AÏE¸a +u·wt' +DÝ Ú{ +ð,zé +hßÂkð&îï—ð.| +Ÿ¡r„ý% +É!ù¨ß +¤¡ +í´ +l';È$¹õ&™F1šÌˆRtÊk.u_¬ŸÍÀ?©èÔý™ +½Rä®Þ¯î^©;Ëß9(>'Œ›/†E—é/w^IW\A_±¼Ø ÌÚhSGץârJ“+C•X/ +¹˜+Õxùs£È9‰7«D¤)¨Á +Äæ$ªhE´—ðÜÅP!ÁYÄ'£¸ñûP +l +R!ø(N < +Å)ē—¢8ƒüÓQœE|>ŠK!j;ÆGÖôô +pq +ƒ\óȆ‘1dqµ#GG6öŒ +làF‡ûr9oÏXÏßèä^Ƶ +o8›¸Æ +8.¿¬,/«‚\®zx˜kZ;8¶‰kØ4°qË@ÿ’ꆖ–zgûøúޑá掿NbÖ5ŽÙÉæ)=xK +`†ø–¼S¼Fð +Á¬2ҋÃLm3âQ±îAþØƒCÎ0ŽÏEÌ+ò{þÁ7¹.­ŒÃ{ry›/õل¼Fl#óåCB +æë¬@äVãˆalÛpÌZ\Ø8ª +ß· ËF؂u?Þø՘ݷ ԋ™ñ8fƽâlÍ8¿Ð{-Î;ŒëÛø7úþ#R¨N-µ#ب +FˆýnµX/ë*±v 5u͸Ìæ͝9$4Ù3©l¬ +å“9ß®5»í­÷T +;Ìï²~äë#{ØRÐéÐõµ¹'@Þ{jYbLbLéT€<ï)“M}O6uT6µV6Õ/›ºZ6U/›*‘Måʦœ²© +ٔU–(×ÊÕòxy¬\!—Ë¥rVNå O +„ßñ8 +£—(U +TøhVÄÕT¨iädR"§øÅæO`šhS{³) +·ùKM~Yë +ß4!“ÈõÓ½ +¾ +¬ÝÉÂM| + ï¾-9Úvv’&ÿÉ>hêåüçÛùQ`ð‘ð5įm‚¦Žè¶Tª´•š²zïWTÝÑÚùÅcp^þ4µŽ? +f²Yø "cGeæ;d· +¹S"wJàN‰\CªÿΦvŸÿñÔN€„S;ÉÑêcžmÂÝÞÍ× +`éöïÛ2hðïèå¸iϱè¥oëîíڞÿ1~Àë÷ð^nºzÛWˆ· âjÞ; +Ûê:|ÓÛ<ޙjOu +ßãí<-¤w:kòŠénù|ºãEzÿüÒ+¼2K˜±eò+fœÄ-Œ“ÂŒ“ÂŒ-žqƺ¡öÒÔꛖCM'^(b{”*hªîdKgN=Z)Ú­Âb¸1ù +äQPâý‹¹Z +A”SS-ˆÐaQ¼ÆEE†+,É'È£Q‘Ù¾œ›_z6 ꆼBÁ• +Ÿ¤;f´æg§xk¡_"\! +­Â“&•õ!OÂö1 Jú†šbdl£Ü±ÀàlQÏ»›ƒîõyw³:è†*wÐ-”ü<‹Æ¢ÉÀ +}.rÌɋ + \Ž=)ú7°~ɵˆI`ܓÉbÎ.É!4‘Ê2¬„±Mĵ°¿æ(#HÈÙvÊAB¸âà +yCz‚®§ÀàTŸ7ÎÏ®4¨çÀåࢪLƹ=’\ƒS~ƒúÔ%Wh‰aXÿ +V:FZC× +I®ýÓ̏.–EïEÉ;’%øݵÉS——&OO7æ¥%¦§gä¥q=é4/MÖÃÇç¥%¤ó¦¼4s:O '11rf¹Ln×ëM&0Ú3ì¦YêQÆj3Úª]R˜:œC­Õ +xÏâ"ݨ3A}åç‹&QWX˜d).,()ÖÙx¾Ø’ħK“.ç³]Á¬E¾’àü¯iq'/yÇê[¼Øg +~»Ð·„ +]øAÇ¢ŒŒEíÌËíb{±HhÛÄÝ +ê™×™‡ÀA¬žQtÂ:2¢a­™«’Ú2û3Y“G¢BS$%%bøKLJÒ +z£Q‹fÈÌtØíÔ`0ffÚ +}¦!‰°\ŒÒ!­1Q«5:ôz7Áa‚ÈhO¤zÌZ‰žÆí)œñ}«6@Ç=©ê˜TÜ)»­2HõºxÉn•JîU4Ƚʆ˜‘y”pÞìåŒYÎó–¬ã¤-ël™ož +ÎÏÎÍ¢]çªPeUs‚•gÕsmY™¶ +k¢ÑêËöä:CÇ£¡±%SËÝrw¤Þ£–Ÿ’ŸŠ?¡òó +ÐØ1îQÇÆKeq¶X™ê6^ª¼ƒ'87ß ++ÉJBô: +j¼´¿6eR>Ýf·ÙÂÆfC£Èø’Ғ>!ÙÚç±·T7uÊ3HsAë_J¶Ú:ÿ$¹i±¡vam›œgkó›[»ô‹/2ûƒ™¡oµ,_mŒ»iuUEùª" ~F?&ö +wÇJÿ՞«B¯‘ß‹ö +Ÿ¡üZƒ»<üDá½ +"ß¼øñ«Ð) +ŠJ]é +0&‡:!¾ôýÊøIódi +¦ŒSÃáJ(É\•Ê:tLK€f”SåRëQV3.]C¶«Úè­Cú¨%k0¢çàüœ:8;ÛñÏ湪9M™knVе¨mA§‚ÒE}£¿®L°ÙŠ‹D- Š"Ü5QzÙÅE¹"³´ä2Ž.¹°¥µeÝkW¥—6ìe]ë²³›ñOqšã´9 +}‘¥ãÚ_CŽ)5!–³f•/Ý4óìOדßd÷×­¬\–לn.¼]mêò¹\¬L‡þÇÈ6t +mv—Åråκòö‡íŒúú¿6{ÜYŒÃ^Ɣٗ2Íl£l±½1kœÝ&×í•ß¢»[~@§VÄÈ +º$i +qèäŒ:õ}ãn^Rµ*Á¥²þîWn^¶å†]«r_¨\Þµ¢f™³$ +n½{gè³S»>»>.ÔKÆm=¿kä¹ +.Æ&{îµ»Þ(NOPZóï8výò¦¯EO +ó.³õsÀcÍNË6;9— +µg¢½RÍé¦Ôx³RF0øg +àÝÙÙ UbT;&Û«WfHæSéì°f*£¿á©t +W©„ÜD‚©˜s†'Kí0•Ä”«*Lãêñäqó-Éw'«2Sµ)C©©±†–X +b•Ú†Ì”ÔL—ü|ª +² +Y“è:Btǽ6 +[ǀ£-s n$ +:r +4j1T`lÉ öH„‘2I‚+ˆáY[zhü±ÃcÞ¿ýÑwŽ™‹é3$ßV•ëön¬P°zM–±»Ô³©BJo'o +ºç¿B“¡C/ô=¼òПˆäàx‘mÝC¿­™™ +nÍ«ÝJs/`ßÂsROzÔ +±±´X +›oÍ·Æ2EÎÍñÁKL^£‘ÈŠ +b,*UŒr!ÆX‰kA€®Ä¨ðºëpþiëaÓëv¤ŸNu%ÝÂ^1 hž?;œ?{> +²¸q< +â ž‹2ñ¨X‹KÓ8µV*7Û42[I§Ǹbù‚ +’¦µd@©´( rjă#^ZőH,†b±¼¢’Š§G/zíR Á ¤cr±Ún£o>vzךéVßöüÒ}˛ +YS–}Ë=×ï;V—µ¤êºÌìä +]šY笶Õ´äU72û¬›Ân>½¾h]ßµ¿ÚyÛXז|küofÏ +U +îݼ±¨§žçkV=qËê +mgˆfçÒh"IÅÍ'<¹N‡ÃmNM4›SY©Ô­Ò$ªTÞkUz +kƒË&—¹¤¹§ä´Q§4¨ØÑÏh¦¤ß#zP(À‰ŒÔ)Ç d˜‰Â£âu˜æ\zÈG[(äÓØåÂæ(oÌːG--Û#÷ +Z@T¿¤ÜBiƳ‡§o>¶Ý‚EÐ$óbàŒâòÄ=Sƒá¨DÐ` +4! ÇS!P +j*¾X¼õiT¯¡/6¯ª×%¬±59“R­*½“Û¹¯sýޗ +l)šô­«Ã\Ñ_ŸX·j)³ÿâ^UÛ©ðë÷i,*Ýð7>j¾¥N!„-ͽ×w +&ÄY4µ{þô¥v +³H8 +ªdú%{ð{ú +OZcõP5-,XPš +lq†ÅdŒ•KӒd °Sf +¸é×<úÓ t¥§[”2—Í–¡4L%kUI*y:­ ö°êpU Ñ*²p¦xjÏàQ2cMí'–¬¨öPI0# +BU$V ùölÕ|£UôºÃ?⺤” + e$ÐGӄb! +Þ äÑT@+úfI©^ŒôŸç ,™ºï¡ŠÁñú;íº^O•¯·&˪ +á +—ÛíÕú‚=•¯?qÏ~ÍZ¾p⦮̔äÐØ¥· +&g|Ûòch}ÃÍŠ,iö´Õõ•v»$îׯž ›&-Ê)håø܎T‡j¨ +óÖªo‚áޓÁ + =ðPê‰KV1–¤˜|&ÃgÈO +Ðô™Ø|Ìeӟ†|©Ñ:pkäTÏ ž3 +ºoÊÏ+½l—’¿€¿]›[-zäϱvWuµK@¿ÔŠ¿ÐüSa×_€ÿ + ?!?¡>€Ùõ° ì׿I!›ÒûፈþÎùµ4Qð +m&,Ò/ÿ×ïϟÅÍ×,²wµÖ¯ì¸áo÷þø°°@¬YA?çœá0֜P +¿va½šáXvè‚v(„zX +pƒ(2ýûïyäW’çà\ø +FôoöXû/[ÞÓÿ¦H3€ÿg¶ê +Âì‚F±,Æð-ìëP÷•¥JY't~U‘Ü­ÑâbæaÅÿeA×89—åüƒî€iÿ“'V«ÜŸÈS#õíEÏVí̒ŸŸnXùr%’ÊÏýéE Þý +endstream +endobj +193 0 obj +<> +endobj +194 0 obj +<> +endobj +195 0 obj +<> +stream +xœí½y|”Åý8>3ÏÞ糛ìÍ>»›Ý +›ln†lH‚\  Iɵ!;Áà +ˆ ­X«ˆÚzÔÛ¶,À€Zù¨ïZÛJÕ"Vjµåó)ÒC²û{Ï<›ÔÖ~¾¿ÏëûýÇ}œ™÷̼gæ=ïkÞóìFiÑÄ¡†%Ëò‹ûlº²KÚ6´ô‰õËEŸlš¯ýð$4¼ƒBÑÑ·vClÞ£€6鱵ݣ +"~øe„r^´é/]ŒÐ•íÐ8£R$Ƴ鞆zF熡˓ëÁxÜÜÝÛÖ"Ö×ï¢ÌZ.ïÓ=R +ø' QèiÙÉ|'ý8BzZ5õõ‰øWÖ҆¾HßúK ”oEÈ•~¹¤‹XJ㾇 +%ރk%>Œ/Hœ“®GÞøºÄ .VÏSòãC×£ +ô!º=‹šÐk„Cu8ˆV" ¶""8„b +Y«Pò¢ +¨™Ðô¬E{P!úž‹®Á>´݃”àD'hB +*†§=€ w°—r5H‡J`­&t%ÚÃeóÐvØÛ!|ÞÃéÂnÊPڌNàËña■+“žNlBFØ_ Pº=ˆþ=þ +³ÍÅ˹ +ñªÄb„‘P +¬t=ºý8÷ +à^‹ +‡}ý +½ÞyÍÅõø7äjnLzCâ + 7uÂ.®G¡ƒè3,ÅJ¬Á©XÀŸ +vv>Œß#Nâ%+¹VnôæÄhâÛÈ +ºÒ„"0r +ºmEO¢#è÷èÏè¶ÃÈ|Y +ð·ñ-ør„»”[ÍÝ! KîÿEüpÎS€êáiB +hðz +žçÑ[˜Ãœ3ÍÆ +`¦5¸_‰wâÛññÃø~ ÅáOñ߉•ÜL¾Gž"ÿIŽ£œ“Ëáj¹{¹×%nÉ[’Ïå-Îø³ñOêD QœØ™¸'ñvâ“Bh|ªíZ¾àz´ݎ¾<߇~†~ +z÷.{N¢Ó ƒÏ± +´Éy°gâ\ØÝ¥x%ވwàÛðƒøEü +>‰ÏD4ÄO™AÕäZò19Ç©8/WÍ]Îíâ~ÉýC2*-‚ç é~éiÙI¹Oñú¹»'ŽÇQ¼+~GüîD)è¢ +4/l®Í[RnGýð + ´x´ 8~hÎ +CO¡—ÑëÀû#èmðP”^ú|’8ƒ&P +§+ài/ÉԀ¶4ãÈV|®À×âíøNxîÆ?À÷‰ßÀïâ÷ñg°'DòH5¹vÔ@.#Mð¬!märÙÏÏÉoÈÛä÷ä +Ï8—ÉÕqk¹¹ +\”ÛÇýŠûµÄ/©–Ì“¬—¼$ùì|žt¾t´Mz“ô~é¥ÏI_•ž”&d·É +Ë>”«ä3ä +òåòíòÇäOÉߑ'™ Oõ@}6:ÿ¹ +_&É';q‚ŒÃ¾J†¸×È÷ðÓ0tPЎ֐qîòý+wr¿ç~D®EHR˺gƒ{ +=^—¾!1I?D/;úüá÷¸òS²›Xñ +n–d«äuð:£@çÉ»DNöƟAkÐ +lCÿ-¹} +ü?"Ý<KŽã'ȋdhò1ô y +íF÷¡.êÚÑ~ôt+>È øèÝft}ŒNœ§V’?1‡TɬdDV:ˆ—&^"ى?ƒÕ¿‡·¢·¹€î_‚ã|ô0z¤þk\‚]’¸Ä~ž/ +Ý +ZûG46øª$,è3t+A«$'@æù¯Äk¥CÜuø,©qZ˜ç^B½1øà;ÁWQ?ªC{@À‹0‹þ3úöߐ½ +îB· Cœ ù¸‡È’à^–è»è·V½ +üS.™6 .؇ø þ Ì°ÍD3q+^ +j¡g +JOlÊ_N¬Nì–6Jèçx6¡gÁ{Y‹wH•ñS€¹ìðm4߄Æâíè0œ+VìÃE M§¤#ҝÒÇ¥û¤?•þLVˆ.«½¤ø{tN +·/þ„þ +º>¬'짨˜gX7iäžA5؎úÀfßžýëðL2ëQ?{øÙÃ@Ó;èð + FW.ž +kAzmè¯Ô–a +¨ï +3ù +ÁIY˽Žþ€2àt6ú ŒkÝÐ!' +IßÇåÆ'f’.îl†ÓPZµ +NöÙ¸¨ÐÃ>& /A¥ñ‹`¶'À—5H +W/WUޘU +šYVZR\TXÌË +ädgeú}^[p¥;Ó +v›Õb6¥¦ +¼^§Õ¨UJ +\&•p£Ü:ïÜf!êoŽJüÞyóòhÝÛ +-Óš£4ͽ'*434áBÌ0`v|3,b†§01/T Š¼\¡Î+DVëÆñª¥+þv­·Qˆžbp=ƒw2X +°Û +„:kg­ÅÍB]tîH玺æZ˜n¯ZU㭉¨òrÑ^•@5@Q‹·o/¶TbK]ù^‚Z *j÷ÖÖEmÞZJA”óÕµ´G–®¬«u¸Ýy¹Q\Óæm">ÀPP +[&*«‰ÊÙ2BÝ +ºI؛{xÇÍã h´ÓÈTƒ: +^<ÅYL)òÎ +ˆ +mP²Ò +{šI³ÈL´£m& Á§èh;H¤+ª¬iÞÁ—Óv:>*õñ^aÇg4À{êã +[Z’-2ÿ¢ Փ)UƒþI8Dsr¨ŠÈk@¦@c%«—æ厌“{½}¼°5o[Ëóýn7ðMãaÔ +•è–¥+ź€Z +1Î4FI3í9<ÙcZA{¶LöL +oö‚&ïCô‚bŠ*üSÿéysJ]gy›ÿEwDì_¸Ì»p骕Bݎæ$o.¿ &öϜêKBєš•œƒ$!âàX/(åê)dZY©‰J|ðŸŒ)uû¸\ZÉZ°07Ê7ÏóF•ÛýoOœ¦£Xq~X’ÌhyàÂú¬ +ꐧÙÁÁ?Y¸|Վ +ª +úæ‚Ú±c®W˜»£yGËxbK«Wà½;B¸’¹£¯®yR¢ã‰C79¢son„MtârÐV‚æìõâ—î +ã—­Zy‡k׍ËWÆ&5Ís÷f@ßʃÜY+™j¥5Öàâš +# +Öå8Fh +땰VoLjµ)&Û0j'bÏÚà“Ge/wÇëÐ¥<ú|{ÜÄ`tág%m‘í@ÿ*P/Ēn=ùpz!ù6C¢K8k$› ç~œåÆp¢Å“0øC¢H +êÆ¿I” +?LÂRd%Æ$,C¹dN–Cü39ùÉ?’°Ý ô$a•ôå£IXt“øÔ¡ïKÂZÙ>ғ„uhµþ7S{ÝÌ%aŒôüÞ$LÄ0# sh†Á™„%(ÕàOÂR¤1ÌJÂ2d6,KÂrÔ=5¥ö$a%ªI}> «È&YV£e_ƒŠ-JÂZn•¡+ ëPÐêJ°„r]g]Ÿ„%оÁRhWYw'a ʱŽ2˜JMf}> KßúCË©\¬%a +õ+ ]c3$a ʵþƒ•IùŠ°(_å+¢|EX”¯‹òaQ¾",ÊW„EùŠ°(_å+¢|EX”¯‹òaQ¾VQ^Ùf'aà•Mä¡ڍ¶õIX‚Šl"5t/¶ï'a ßvƒuTómG’°Øö0˜gó|? ÓyDüÊs[" Ïmï28•Òc÷%a Ç.e° ÚSí˒°•Ø‹lføے0Å_Ë`Ãߟ„)þí +vP +°”„Aì¢LL>JÂTÄvÅw¤$aŠÿgP +pÌN ‘o9”?Ž®$ +üqÌgp +›çÖ$ +ó8ú)¬˜ÆÅ4þ+¦íK1m_šiøšiøširÑLÊe9 +<7ýÔ¥€ +ƒ´ +u2¸ +üU¤¡$–·ó^¸õö±¼Ú»†-Ý0>P-koùÿ9SþeZ=Ýhx +gÚèýH\¯bì*@yI¨ˆµVÈn(/†1k†!6êb˜o½·Gྰ +z7°6¢þÜå)N/´µÀü?aôSêÚ¡¶ + õÐÖ +Üú?ߙ­ © +V +b´PJ¨Sœ¡ä¬+`×Ü$èxùÙzõ/µ;Ø) +t\f +d´w&g +~‰¦ò¯Ù©·/ÊãvÀ¼„Í28Eu1ÌW·´zhmƒÞ^è§\BÙÓfç=?kì!ojæzÀ\ +ô/ÙÍ +T2¢ðh¥ûš +ù"Ö^-Ë §R¼櫃§žµ.GZ¤b‰r¿‹ífèK<Ù.r²ÑÛÇvEq'å÷e¹‰× +²¡rëƒñ£ÓøܕԡaÆmˆ$Yï(àO­Ùµ‘i2 +fciý<=¢Ì70|‘j+݌³¦ÝÖ¶–Ía¼íQTæÉÕ:¡„áõ +ÔÚ¨öˆký +ÎLJm#ÓåӞ®$e”Æv¨Ñö6hëfûë`ÜÛð•üêMî‹r,2m–É9¿j½ö¤Þ@ÙÊlZ¤º5)™žäÌ_%¡L¶« +9Eõ.øZñå•ÅvÊëÈ©?iU»“Ü +d³ +ýÓµƒÌ&{þ ›iôK²åt¡ES²yÚ µƒíàߑ¹ÔÅ +æEz v~]ê•Ú§EKmaþn`š¿ËÂ +˜¦·âþ†¾–SÝÌ®»¦$$îäü|™ü×3iN÷r +I½8Ù +¸¢ÿf +§ówNíG¤kºvSïAµAä¿hU}Iý˜ÔÒ/êпÚÑyý˜ÏöþeÉQÓùû¡=ÂæžÜM+ۘT{¾ ƒ/ðûüÌtêfœ£4Œžèu'ýÀ¿#ýÉùD›¤¶:’”Æy›œïËr¹%î`ˆù€¡¯´ãI‰µ|× +ÿ#jÏsùË+´%O™Ödm:Eâ~¨•OÍ@O¿jhÍc§ÎLT‚Êठ/„Z +œF%ìL¢î +´0‰Y½ +ÐS’„Ëàì*c£f Rˆ +h¢³Si +eåeä¿è„}|Ñâۘçûgç +j™unœÒ +ñtîJz[JÓ2¶OÑoŒ&¹?Àô”ÎJ-ô†?””Á"&½ö) + 1M1Ä4ç=ÛÀ´Xä¼û²¯ï`¾|ÍBO3ÚÛò +hcröÉúdL3=Zõ`£·=i=L—©GkIž¬¹Óôh#£µig[#ó°Û× ³ñ´¢VOc¹¡¤5ŠÖK½Õ2Ñ{¦Î¢Vf½Œ²/ž“z*z¥nö +Y`29@gmcœ¡Þ»ƒÙ¦p†0þœ1EÚ&9қ´ô®)OÛ~ìÙڑ¤åmHƌFÿZ2“ +:Oú ñlü×z"Ɖ_–ßt‹<êIRÚ3Õ6À¼ÌZ&/ÑN#èrf™=LZ#ÉSA<ÛD +L‹­&¹*jÑ‹÷F¦l¢ƒyÊéÑAo2Žuî«OùÏÆÄÝÍaš#êuïý¢^vMù§Á/q\Ô¹ö)ÔÎtdÒ# +³½‹k6°¹úX„0ÌüädTØ{=>çNiü¤6o˜:[z“§Á ÛiwRë:™ +'=á@òd£»d’¾À~(µÔâ.<“×NɃî›ò¥›Í/J˜BkÙIÙż¸·1™÷±Þ +ϓµÐӛ¼Y´%e³ƈ¼¾ðÚÙ +£hòì>ïOZÙØõIZEm`gE +ڔŒQ/ðTלÒdÄÒ{mgú5|'gna7ŸÞi³‰‘A“Éè˜íɸ|ˆaˆr +þO‚|†¿fχ|ˆyJW>‹æ×°¹E«ýãÀÔM(85òwōL“>ñc•É¾ü/œøSs/í‹t´´E„DŽ坡¾·§wš„šÞ¾Þ–¡®Þ +¡¯»-(Ô¶ +µ| +R>LXÖÛ=L[ +ù=0®0*ȃ¬((Tww +w­í +.Ž +FF"íË»6D +őÂŽZz +–´´G6´ +¬z;þåbÂ@dm×àPd Ò.tõC€ºb™ÐÐ2$ø +åõ’ŽŽ ÐÒÓ.Dº#;-89Sùæôv·—_¤S + +„¬ú®¶ÞÁގ¡l† +¸ +µaY +E®_¾xÉòùsç×T/Ÿ¿d±°d®°h~MÝâeuBõE×ÕÕ×-^®UiUË;» +¡ISˆìèí‹ + +ÒýMí +×»v ¥¯s”ÑÜ + +Œ­£Âhï0 +ÙÖ;Âv:ÜÓ +`óÀÎ7 +ÒIZ„H ·¬ +ˆD6Dz†‚B# +ël‰½­C-]=0rèbèÖ6¶ +D„HL6 ´w +DچºG +ŽÞ +çéê +µz×FÊFÀ-í-}IK^K÷¹¼-ÒÝM7Ü +ÇFkWwxà¶Þá¾îI;YÛÛ +‡ÐÒ»a¨¾´«=‚ + +õ¤µ·wý #hCËږMàQE­ˆÀ¡D +K¯¨¡í½mÃâ)rK÷`/CgÐ×Ý"z÷–vðåC]t¯ÁbùCºó7 +Ñ_§æo\3DEú8@¡ íü7nŒtSMüú!´–Ÿ4|†ýµ¯˜³@t€Ñ-_‹ +6ÖôÑ×bv ¯•/ ¹lÝ¡¯Ããnäžá^àž +|�£®kG‹ _|åÔËF +툋ØÕ`òÕ$ +ö¿~—Aච+ +U>‚Ñ_‡ ›ùë°æ±P{„qú뱐ø +}˜]9ÄW“ÿN~í.%.I¥d–¤F2C2S–Ì–,”„¾v +åÿ¶>-¤»Å +=¦x}Yÿõ4cú=ç +Ú×kI/»Æ´ „¡å‰Ãn¬®®(<e ÈÊXVvÑAÚ³§=#áÈn¸4» ÇÌփbsæ$3E`,'¯èÝj•¡O! ’`”%ŽË +~ꘋ#=Æ´•;7ƧÂjÜĘ>¥(\ÍsG +Š‚a +†DP/÷Ú +‰úžX^!]ˆÛ3¦Òñ€ÿ)Ó§h +$Ý9fõ0$ŠÿéXŠ™NÿǘÞÀƽ+(1ÞZÔPÊ½ô¼Âýy‘‹û=”éP¾¥Ê¹—‘–Ñùà˜ž/ÚëýÐȍ¢lè~ˆÛ„Š |”»9Úoc:qßƲrŠªUÜ#ܕ +eëG%PvsëcE.á)îA 4Ì}<¦TSú>Žñ¦¢g¸¸õ(°N–Å¥†ëAùèNÆǔڢÕn +¶9lqÝËò0÷ËLë=ÆmAfè;Â]ƒLP>Î]3¹?Åý•¡¥³ÀzÄÅ´ÓêŠW+¹ 7Êý7pü¿ÙjgÆü3‹PµŸ»@"ÀÔ÷zŸ~µÎ}Ð' ¦O@4Ÿ€h>*>A2„¸SÐs +pò¹ã¨{í„t/À˜r4 +<ȀŒ¬¢ƒÜUܕÀ þ)à +†Ö«Ç”:Jٕ1c +C»rL£+ªz†{-D€øcckQïSÜwØVvŽY +tÀ¯bJ +°î +Q0p•Á3ÜîZƉk¢? +*Fzî:681¦1mé/‡j/ä·@: +éSH@[{XŽÖ@â½aL§/Ò?Å­bƒçÇtÅ®g¸y°õyŒ[ób&£ù¢1–>Å-%YÂ-Žµ»€À¥1L{Í,/*xŠ[Ì6¼8æòŠÍ±æƔ¢òԌ© +t¹Z†ˆ)t¬9´;.g,ÕRäe,g[*¦?;áÊ@FeÀÿ20†bÆñ¢1Þ*ÞÎ1²‹P3¤û E!I@E€^‚,B'X‹ž›{š8à +töBTéHÏB:IÊZ›!h/€š!ß ‰ÀŒùPç!Cj†´Ò}C: +IŽŽpy°ý-Bä[ E!½ËÑ_$ôr¹@G.ý½'  B.´™ì—ãÍh3ÞL6s›%›¥›ùÍE¸Ô—[^G³ Ͳ +kVö)·(¹eXÙ äx¥ $ã‰Ã1yy1a£¬¼ø­ú?Õÿ£ž3–í”픓#ÕpœïBúÓßÒ +Á<Ôx¨ñámܑÊw+?­äŽÔ¿[ÿi=wäø»Ç?=Î +É{7ïÓ<.\ï(/*[ƒ{ñf| +–¸p>®ÂK°d +×Ëmæná$..Ÿ«]4«ûÔ[Ô\:¬nPs¼ZP“êûÔQõaõQµ4*;,;*;!;-“6Țe}²-²²ûd2—<_^%Ë$§«kÈÛÀÔû B"h +ä;ijžÃeõ¬Þ +y«‡!o`ò +AòÂ\oÞÈwB¢x´î +¼€Ö!yÁ +ÿÚú ß ‰ß†Ó<á +ÂgeàÓøhƉ +Í8œAW—“cŒÊc@å1Få1yŒ­} +æ’¨}“á½ xo2¼7B_ÕÖ +yƒÂ70È +y +ț1o™¾ÚBî†×@~/¤w!q(ò*H½¬æ¢änÈÃä®±ÌÜ¢-ã䮘 +! +±H‹4VŒÙìEkªõä.˜ò.˜ò.˜„Ö\ªh-q˜ìŽÕRÜݱÙbQ^ünu +•””Ýh$‚–@~/ƒò!¯bÐ +†£ŸªG!?Á >Èï›·†A.È'Çrä.xv¤'› uSXMÙ +¹Ñ 0Ž“C±.£kœì‹eñPŒ‰EŒÕ)„Þkñ',ÿ Ëïeù÷X~)ËõaµWûw¯ö?½ÚG¼ÚjY€2 ù4Ë?bùº°.Cûa†öÅ +í3´dhŸÂï#t¸Ãvö +íï<Ú'=ÚÇ=ÚÛ<ÚÕ +íRv‘‡N•±‡–8iŽ¿Åò´°EО´ï Ú×í˂ö~AÛ(hË@Çÿ +‡¦ßÃò],/}²Dë*Ñ:K´‡x&|YL”O‚/CZNË©tsJVw¬ÞEZ¬¾ +G¬þb(ì±ú(Rbõ·¹ª•D÷BDâ":¼WAKM,çèV‹ +"–ó-(¤±œk +Çc9^(>u8¡øG¬# +Š³±Ž(>£ÅÓø/¨ƒÀ4ø¿b +?€éñŸPÿùÉPŽÇê«ûIqu¼Ub4ÇP˜RËâ𣱜,( +‰åd@ñ°Xü0–ã‚âþXGŠÄ:nƒâû±Ž“PÜËê¦óíFYlž;‘Ÿ•ƒ±zt÷Çêé +}±ú|(zcõ¥P¬Uþ +Š®XåI:t-ދA³qÊa”¶Ä:r {Mr#M(‹u¯F¥læ‹bõ”%sé$ÕZ\—ÜH-®¡ +žƒ÷²Y±œ@«Œåø¡˜-r®"Ö€bf, +xŒËbY?ÎÍH.Måó4Î2èDÞX΀äŠudC‘ +먃ÂAGQ)ÉU¨’eˆåP,>–#¸~ŠÕ¨ƒÍ¨B~|××Ìûyå8¾$æúGx\c®¿fAqÀõq}«ëÏõãÖºþ&üÄ×»€z¼À°ÚõNÎI×Û + +׫9€v¸^É ºž÷ºÆ³žrÕ§»öaюVמ6ÃOü0,æz4kœ`}_Ç"ם9×.ÿ8¥á»€¼®mÍu]ë¿Æ5 +ª0T¿Ý5˜ãtõe}˵.‹.dquå\ìꄍ¬ +1‘Žµ®–œÛ\Í¥Œâoåü̵¬”íaaÛÑüJÖ1¯ãb×\ :ªhP0 +ô²†KŸ¢¹[ž.OU¼B§Ð(T + +B¦ÐŽ*I +Oœè/pSeìgÈ2 Í% +æ Í û."XAÐMá’ +ËæDË +Ç剋£3 +£ò†ËVîÅø;xaôpZØ*DÏ.óŽcÕÒUQ©wŽ¢ +ËçX9Jn +ÇhùÊqœ #¶:èL +Dçný¶ƒ–s·~»±™Gª¬UÆJChníWdÍɼ®6pþc +.¨9£w,\¶2ú¸³1ZD„³qa4›þQÅAÒMÖÕÕ +$ëiѸò î$ÝuÓvÜYÛh³ª$ë +ÕÓÐÈjTIÑ }õ44¼šk÷VVŠHKð^ŠF³„!­‘j¦#q7á†TÃÝĐ~ .˜tÀ‚aZš´å°s¤Ý +ÍJÑöúý0S‡Ÿ¢ì-òÂ^ë^z¾;Kìþ±ØýcÚ=ŽñùþR¿Hmò³ü$ +pÿ?‘9ÿƒðØ쑞•ôaš½uHÍћF:­Ñ-­‚°·g$ùW2þæÖ¶NZ¶D¢#ÞHm´Ç[+읽ò+ºWÒîÙÞÚ½heÝò•{W†#µ±ÙáÙuޖÚƱÅ×Ìì¿`­íSkͼæ+&»†N6“®µ¸ÿ+ºûi÷bºV?]«Ÿ®µ8¼˜­µðâ9xaÃʽ +4§±fµXŽµ +¬¥Ùánœcæû*™éÌr[¯v +’ ü(R£íʫΫ¦]`Ò´KGÿà)Ùe½z–Ûq?šìâ¡Ùàƒ†¬u]µðß |†††á< + +ym;†u¬†bÀ˜¦A֚ìBÃç?€ˆ‹5+÷Ö××Y»j +ďѸ;Ð8ˆqÁ@Áš°kè›Y ¯–™‹]ÿ‡úÏê¹Ã,Â? +é‹ðCtÒ ˆðӹÕG+OTr‡ëÖŸÜãGŸ8Î +Î;šw"+KR@—jÄ@áùg808L›˜í–íªCÁÝò$  ­”+ðÛٸ̘8 +ŠÃlˆØ:x^Á¯¦!$M“Òß÷Ëќ}?/“sŠp +’JžçJ.y +#›B&}žpOãj¤Ä>| ²ø³‹ù3õ¨ +`þ +d +nƒÛàƒ +§IÐ9;|.,EŸ#Ar˜ºñ9ñÝø\Lÿê=lø;Ár¥?‡^7Îר$ +M„ոإÇúj돿 +kœi:3q +U:s +B¡ÂܔR:cFiI¦ßë‘˼ +iɌâ"³)UÖ1Ô%—Ëeg`Ö¥í]²éÇñݹE÷.3(rÃêÊ9í[‡n9N)(½d”TÂnía +\]]ŠmºØbþ$ÿʯ?˸KÝdtâ ¹÷ +a‡Pâ=R%¥70#ì„S¢Šp©`c¢æöÐIö\ÉÓu”æS‹ù³õ@uEUÅ6i0pÿ̈½˜TÅk¶àg¥ëÿ1"ÝAÿÒdAâ$·_ډÌ(€„mJ‡Ì%ó)³-r«Ã$˜|Öl¥\7*œp’ÅŒÒL(ÆdZ£eœS +}(œá/Aá@²âÍš]F +è>º³<£ÞãòÅÔÝ¢ÅÚpŠ©DkËýì¿è6ÏêO5Õ¬ +[<áŒÌÄC'ñÐIz=¸ŸjF# 2 þ=!-`(€l¡ø¬„!´Ü£š-ÉQ ¬*à`Íh¸çn—›Èô:^Gd^Ÿ—ÈÔ•F©Qh$2“9ÕLd6«Ýê°r2‚9,Áœ,' + ²tƒ§ù吥¥XZq–2·Îي½šÌVd5À1L³œäçԏûqª\G@72á)-)›A5Äb–ò´NÕFfà-fsqQٌ2nÈ3øÝKZ0;× +¨,>:4ò³‚šøë•ß63`óÙSõ3ƒE¶ +yøµh÷Ž¥íMµý»ø»ƒ»xÿO½ƒÛgÝT(X½{'>Ÿh½¨@˜9Lue˜RHՂ®{éðq)Rà‡xÖÈ{åC€K[äøïp?2ã‡àÚñWd‚3!a^¤ +¹]˜`¸}„y®A߫ߣçx0 +›U÷SˆäEd%ü.³Ã“` +MMõüDµÄ*cè³SçðgÜÅ3¤Â^‹MîÒâ"° +C‰Ÿò ÓGî6Ï­wMÌȸtÝX(Ï7â¿H;?⪺\Ÿ/kîòì·òÝBÆIf3°£{`GièÃpƍä'äG +—©¹#*µJ‘Ôa¼Ï¼ÏLÌihR©iã¸ù€1ßµË8öÄ°QAÕE­-QŒsûtR¬áÆñ™°Iy)‘¾c|CŸ†ŸMÃiöt=ÆÏbŒmÎCx%މ˜U6õóg›úëÏL4DUU§¨g§(Âfm•"lÑAfÓC¦ +1ý&Ô¬Nê+`0=$V:xVÆÒ +U +÷$øƒ1„!5BÆTùW¨“AMnw)2––0^1#—a7𰬘k8÷{Üûýk¿u× +ߌwv®}¼yA$þ#ìë®Îñd˜ñ~ +ÜÙuÓ]ÚÃã͏Ìߺý`|¿1PGùèN¼Ïí>Б°K®·è;£­¦­æ»Sn7?f|Ø|(E—V•FRx +ß +V"DÿйÕpAi†xÙM^‡HéçȎ° +­¡„ñÕh‚’üü@X'µkQ*\H÷ KU‡ðíHíÒE6ƒ3xÒðÊæ³I6u +½[ìyútœNÝCº-wÏÀó~ðgN5ñg& +¡|›ýT²VUÙOüÄIþ¤1”ßtÊÙ +K+ÉtnC–S–!·'SôÑÌâÀsûqþÀÊð誛[}óÞÛñí'W\6|Eügñø–„æÜNþù +Ö +&zÝ¡áŠe¿§}äÑ +.¼©4ôÈÕ¿Š¿ʪ +Vë÷¯ÚþG`Ì"ðŸÏ1KËŽ*S9Üa +1Õxâoa“1µ$‡Ë0½dâªRÕê’*ý¦gÈ«à½o§“‡ïÚï÷óH +—<Õ>^ëyG3ŽßCölë8ye¿Þî²;e“:•r'Ֆ%:Ï3à›˜‡?K&0¶üSü©“ B¢"1×tøT)þ4‡ÓAdFŸÎïSyZqºÁފ=@^µ¿;R\­È­ + +Mº±@NàškPXn6éˆ|FY’™ô¨3°Ì”j´0VòԛqÏí{³7×Y=çÎ×z^ +¼êWßÆ·Å_Q”ÝyÁy5ùYÒδà­Gv§+S÷ì +'6mNJ»OâíMôìïˆÇK|ëÄ©]µô-Râø +÷ +R?‹"D=6cJ‰l>’kæÕzn¾2÷Y6٬ǎ0N4IV$ý=øcF¨x$§Lƒñ%u--uj綴Ғ{ŽU!M +´ŠP+baŠ¤Q¦eà‚ðm +^m¬êàGøÞmü +ÞǵOòò;´cZ‚3¼y¼^·J§vª,n«Ó¢Vb%Q8•fƒÉiÆ*ä1zõ¼àEnÞMÜ^âÎ3ð©ï%^7ÉÒéSu:=Ñaj“» +¼^böº +:"Á¯Þ“‘֊ñI>Ìë9P\•J©Ð›±ù¾yq0ìT¶Ÿ‹ÿ>ÿQÿ ¿ÌÇûØß-;ýQ¿ü– +À ~¾éŒÍ^?qª 즂‡§ªÂN}ôD +܎ +ª‹%Ô¾'´M +( N€ÒJ¦Ô5 +BVğÂüa1oš^‘óò +ˆ·Àøš€ûn9h†ÅlG. +c³X¡Ç +—239Ž[ +w‡Ò‚ŽuñÙó¿U‡ÿ‚?š›ç©œès,Ì2’¶îÕ£øÚëçB^áó©Ûþè²]RŸÏ̧S”sþ‚߈çA„Wv©Nº9P*Ä+·ÞiÁƈc„ŒH‚õ59öëO5‚ƒ#“?E“Ú²æ̚“'È&‘óº +Êm0î¢@žÛk¶JåŸÇoñÉü¹>¯YÈÇ +šäÁ|ì¶fÐÌ +mÞ8_1iâð¹æjå˜ +Ta㦂òˆ?7Pò4æސû¹Œv5Bf¶°CŽ¢©“»ÔÍN"™”¶@ƒÜ`§š‹“5î–ÿXÜwÅ®ø‰‰%ߪq8j›ÈŽžëûÎÄ{ßÙ6ï¢ë¿‹Ëf4l›·ò.r$/|Ù­»ÛG}ޙ=\_OÈã[öPSëncxhÕªÁ +ôÛøž'_ÍÏÝrïj›/—®çŒ¿ðݑ]Ľ»oûðÆõ?ÁsǟëWfäS‰d#$ùØ_!^ +>e–Ø”D(.(î+ÞYü¨åÍÔ7-XþjQŽª†LW·sßM•nWÝÉÝ©ºÍô(÷¨J&¤Ö™ÂÅ +Å£œTÅ©T¤8œª©úžä +僒Ÿ(N•j0’/Õh^S8å‚à´z<¥ + +ïå:²¥¿&uÊ܂3ÛãÅ2¤‘k‘‰7“9j2s¹Å +òÍÅîp½\¢Tår +õµT&•©üÄÏù%~•_í×,á檖¨;T#ªTºMÙ;ƒû%ûU/J^T} ù@uVzV¥Ò1wêœ&Ç¿47wœd +×e:ýzVP!+ +¸ŒÈ—òšÌ)Oœ +¯B.÷Í-Y‚ýÏú°Ï + +â ÂZ½Î¥#ºJ§ +Ñ¿¯LOwÚòRM¹Y$ +gi´ÚŒT3D|(˗ALŠ¼àӘÀ>ËÁ6 ¡ +*ŸŠ3ÔËVœbÌ$ÊC  R­å +õøRRVŸ5}¡ +ÐË +؞(2&30>ï´ëNR`þ +ÄUœ¹j`‰ÆëMyl}¦¥&”71K•`ÉåÙºÁ +€ Þ˜±eÃÄ¥ÿqE¼¥³$Ó7)% +ǯØ~½C/Ú ù„þ;‰hG8Ï +.K«R NâñاÑãqNðþjÁiðxB°Â®w¸ +ÄQ©VÑJÖ¹Þª*\  +«úT‡U’5•MpÓN‡ÃYrû܇ݤÀ +v¯qoqG¡"›=ÚNߌ@Î +½h î‡Fa¾/ïÜDï¼à’gÈ'Ó7Lþ“Âz50ÂwÁ&EøÜõÃNàÿwÁNݸ?f4 +‹iC´oԄø´4=ŸætêµåNÛ·Åã!åN¹ÇkœæEÉ +4ÐͧY°Þé¬D8œ˜ÓáA½c§Å­•CÄbV蕘ÆgZ¼F‹µW5x±—7d¥!np`äèþ]åaLàÏô7 +ÐwOõT_Ä·P”4Ð2†Ä£›š>­¶I®zA£UŒ£(³¶ñW½°S¾Ñ +( +RJ‘ž×—¡¡Ï½EØâ¾íÔïvº÷¡}n­D¸s$™jOJŽ]Ə'.‹¥”Bñp8ÅH¿ÈâS1ÏïÄ÷¥Eùhš¢øîo +з§ûyEª£Š§ßu(Ö*¤Ð¥T¡ñÄédMŸZ¥Oüq +p |+¦³T‰¡{Mˆ©Ë‘ƒuÄdðÒë3%35Ë®J߇½ +f¦d Ÿ +ÐRAC‚v#P,L3ã.|Ù-Û­¸C³Kû0yXó’ô%å‹Î7ñ›Z-‘È2¥L·RbÑX´f§²Ã֑v¹t£fÄ6âÜ¥?`=à|ÓqZ¡¾D§+Eœ¹T®4ªm®ž•L + ¸ +ېƒ©s˜³ç +U +ê.#1B@ýJ? +Âú +Œõ§Ä®S“ï®h(°”†8÷9ý©~¥Oê·Ù­v"Ók>à“ÇM +€,2€ +kÓä8Eeö!»²@  +ñí”õÁE¹ŸÆ|û2cH:ž8VCÄj +i ‘ñć1CH3žø +)­iCJ¨íՆÐdàØ8B‚já +dàåÄ-dú +p#§ïµ¨ñKy8#,¸ß¾ëåømñï¾ü|7žy¨eɦ»×Ö­lm¿[ºFï‰ÿ2 +!~îo/`-âÛýôžø;ñ‡ + +* +cÛï¡MÝCïe%p=Öo‡XÿÈA$€õkBµþÕêÐ?Þe=k9+üÝ#ÉQ¤!¬Àò=XpÊ<^-õ„^GЈ‚ii²#‘˼»7›·˜ï +~G>ÄnñeWžix +iÐ4kˆæ*Ÿÿ‚“cñfâM¢µ×³ ½ªB<îÉs +D–îò¦Ú­› +ȼ©î|ì²Cæ1A<.XÒi N%’#†ß´Âœ¢é‚[`o/dœ!ùÂÂK² +u«§Bê%8#þàΖ?º +›®¿þ:Ò¿‘ÐçCé£÷\ÿ´ÇJîœ8@n½s×͔ƒ +ñïHÿ +, +b^üJ¸N¢î´u¦­õIàR­J™¯ŸŸ²M{“~;¿ÝxSÊ6“ªר:=k}»µ»ø]Æݦ‡­ +ú_Õ¿š¢5Sh¦IÚXz²ä“¥•Ú\~fn4ƒ«“R¥Ò¨¥¯2ªÌÕüã +úS45ùËÍ=#¾›T»¬/âUÊ¥ºŸª0¸¦ca«ÞP¢Î‚ŒþS‘«9¤ö:,¥NNß8ùrKäãxÆ>®PV* +Ǒ°Aíú%RÈ.5êl™YÝî +ñÞEMR‹¼ôÖ]Ÿj? +Aû*Ek,ÉÏBf–¦³Ô,Ÿœ†³Ÿ¢8¨aÒÎS4d¯8 +¡z êuì!p®M¢¡.¢†:Cãwƒ¡Ú|>¿`öúpºÆáCV +2¿ª +“ËÌOÓB¡QÛõÎH +îe|Å´›DS_4õÓ +¯å +!$=Xi +$$Zb“”½C6Ñ?Ó¦ˆÜÍñ4C4ð™~îàsßÍÊÛµñPüígãoà;q9á;âÏÅ{öµ^|Å%»î\qE}³fë +ŠÙþѼ Ëp¾-Þ +ÿEüoñMRéSߏ?øèðàCx!žû]úƒM?Ü¿ +6éEyøòpÕ +û€ýN§ðZ½ +í¥]äiIkóȍHŠd¼”—I +ò×:6:6znô¾îxÍ{4_±Ûü+ûß­ŸÛ>·Kóšqòë}Ìj@ +€pˆošCt©y^Oª×ëÙì½ „‰rÒ܎-ž“ž3 +Ž÷4xŽz¸£ +ì±ä¤y¼~_Ð1Ž¶x’eäSÀì +_ºÝ +L&W@xƒ¥a¥åð9$ç¸eœ#a³&ÃçCÉWÞyM=ùƒ³b{»ÝTAãBzªó4F¤ñ«Ñ;ûD‹#'*’—õþ¦}¹j¢Ç~“î*þ+‹Œ@I„ÌÜT»ÉgógùrSsòq¦ +²€9/g[ýùÈî8Gýƒø"9 + +Z +(4¡4kŠ©‹Ç2}éùÎ#ù¢Xž|ý‚9Còrî%x‰I/2röäÎîº+ñÜ°#{F|E|acè¦ +Kn½Ÿ¬‹_¡?©}òŠ;Z+]ñÒF³‹ó‘ud÷ÄOŠ·®¿û{ô +¸.qBâÏÂyᐵàÒìnN¦ÃJ½< +°ê-<}€Ï6ä{„@FµÙÛ³·ç„øé +é䥝 +Ü+#5ËW†NÍé‰/ÛX§îÒoRêoÈÞ¸]ÿ#õSêWÕ¯êµ`Ѝô²×›pŠxSg¯ÌØcJ•°¯ŒèõÝk(ž|[íÏ +’iï¯Ë¸çÔÙÎ÷¯ïØhr†óÿdÙÅñ¿¾ + +¸¤Àe/7ú|¹ŸßÚ·µ¸óúƒ\úÉþ9•ùÛ +öt-\ç+ +?²á¢µO‘2³´^ +¢·2S“ô +È(‹Ù •tJýp@ +¤Ð;,y£K:ŸL¿xÕozôµÜ˜W’§½KfÙÊ®nî¹»ÞïÌ»ÿ:-´È ­:óF´ùºn{øé"Ÿ»|h¢óÀÈ⶟ +#ٗ-†3Ò + +Ë&&>ýU,?üòcäÎáSYïÉé½·ÈÂc·(ÿ–Mæ[»lYÇ­/Û>²}”-Y±<ׂ|hZR´¦¨¡x=ÜqŠøbúΩ¯xKñÎâûŠ£ÅÊçð‘¢÷Ñ_P¢H:¨ +´ +emU^g»=bŠ¢ç‘Òjˆä‡Ð|anáÀJÄ;øª-+m69„46›ÕnW¨ý·ïþ ÁN§¯,F§AȂû&MÐ蝼˶P˜Sà, +K²%H=ž¸~̪VA{E¸+¤oG + +¼‘"/;+5;;KƒÔ¼š¨ÕyVKªÕjQª” +U–Õ°M&—geçRŽE£VIø,»þ[ÇVÙ +}vNvý§5p‡Q +.ˆˆZ¥+‹-;ªVágÀ ³I +ƒUÌ'à +%<}[M֎¹oÙ` +ǹ[iä°Ûê'ìÖ »mº¸.RûX^EMô͖14Çà¶ú`€ +sÒmâW" £ß!œ‡ ˜adÈ~Á +_ñµ‚Xù¬i¯¨PÐ +rn +ˆöÉ +A©-²0\m黗¦¦þ~4 +ípäyé +è•Ô + +àYq +8Oª•ÐKë))ì$Ì,•â/I• +â—fÆ£ñïøâsjg„É¢‹ò +±ê×3ƒEÕUäÖºt“5ﯿóò3—€rr>Í-ŸßÏ­;w‡dÙ#se>Étú¯˜è!dçÈ8-±Jî6YF&®&u«æ¤eçÃÅ´buâ/ÜqîyTˆ*Ȃ°IÆó!‰À‡ŠÂµ%7•Þ&¿»”«¤nµea遾Zþpޏ*žÌ{1ï˜ûͼc¥ä)Kåuò) +,óKWZ:·£»KÂð +¦XŽ·Tî–Ü•wO¡U6T¶™›+,w˜öà‡ÊŸÅ'*U +sCåÐ,nž‚˜Œ&2‹®ò‚%ôé,\T¬• äfr}ÜìŠâ'ŠŸ*æ$ų‹ë‹¯*þvñ½Å?.~¦øçÅ¿+>U¬î+ÆųRnED1¬Å,Å"Å&ÅvŽŠ‡/+~«PªEŸ‚K5*8«Öï +ÀŒÙ +ù³æ‘¢]¨)?ŸXÃف½Õe]cíµÞkÝc}Ö*×ú±õ +ø}kXǗX 8/µ>ו›Ÿ[•+É­Í®Ñû\>âûBùÊ*åfå³J‰AJ +NŽqüT˜Wn©$áÊæJRù¨ ›è¨ÂY +YU vP_Fʊ¤a¯¯¤WzZJ +¤aiƒ´Y*‘ÚfÏ\*^¸•9Èþ@ý©þ3ýÿh‚æL\ðÀaž¥§~•1ȇ~ð–gè+‰3'y1`ïz +âëÿŠ‚¯ÐUTÐoLD%ݧ±:­55Š_ÕÌ,OóªxN¢‡ÛÛ§ö‡üºtC:ÒÊtìñ–seéˆOÓ¦c•²™’YéÉïbE›üªƒŽ3=ï z;ð%¿Ùô•Š?¦`QÄÔ÷â¯M’¾¹Ì¾ºÍ4ÈD¬â"2ÿ‰֍ãRK8«:ǞæŸ?«jÅÀë=[ï¶èT©Z»#½h}mÃ*Õè¬L·-¯hÇ®®%ëŸøη֕e;V“+UX·¨xÞusûçäìŠß +vó>낚 +·ãÐEKg”½ê¡ç}&{{üîA$KœŽ©CA*£ü +¥%Ò¹„4‰\*•™e~™#ÊuiyŸ+3îÑ=«#ŒR2\ºqòvØàÉÌpy¼ +e†Këõ¦e¸Üãä­p›7+Õëõb +EpTË=n·N§U)\J¬ÌIM »««RÂu•¤„g—¦„k +Ê¡RPYfd<È<¥» Gx$ëS°r$ +ð)8 +ªšñp»‚Ñ ÉöI0\YJ72S±fc%LÈJ˜‰•¹AV†u)¦’ Ò§¹ÒHZNV&kÂNgâüÌÙG39Ú4VV^ÂÊüB±¢ªÒé.É´å-¾FüÞ> “ì-ŸÔÐEPÜþó¿§ +TˆodÙ×½pàƒª²fŽ~ˆÅ +›þfC]ÅÞô*S5U:úý +«¥˜µP³è ³é!ƒóNG°âN­:ÿ +¨‰úÞú‚+ùãP7öÕïä{_ˆ +“_‹m™¥øùú-u+¯ÊΚ +÷ٌƀ#kQ®>eVÜ?ËfȬ”.šxiMû¶ûâ·­/•gdÈÝö¾h–»¬.®n·y2Á¼ž;°®Dá-[ˆ×Þ5g†Uj¿:¤NÕðUê$Õô¦ÃU õÂZn‰¹JYՙ.6ëyV†3SÍ%|ß¡Þ j›ÖP¢w¢t”íròé|¶ +›Ì +ò<àJǟìóX^t9)àõf¸²;½ª"}8½¢JN+«Ò¯•r9ʖ¥;Uú&¤:„× ^óäNùQù 9'LJÂj”­·¸,Ēã¥aula©‡iS ‹²Ç +‚m§Í%‡=¸ +ï!ž·r¯`7Rñ +Hú̙¦S§ø“,,†ÃùT @ßFÉu|6Ü5çß'ÐXÎ4ùã˜äUƒ½—7Y@PÉ/îÙ÷KTT¯4Ý\=³¦:XºX®Ò:íÙ&Ë5ù3ãòÙ +Ê_À=ò«[×ÔUÕ,¨•È̞ª–á7g†x‡ËȐ†6iƒ9Í.¥2ò'þBîL º3¬»E}‹†°L­A¶q| lÒÔTÎt +Á2AMÿœŒS(#:5áƱ.씪hì,‘ ½Ô%%Ҝ³i4Œ[“Z•B9Ä;=%ù)‡SŽ¦p)6;åuìÀšzþ +»¶ƒ°CBUMœl¢·jgàAi%~}còNyKƸ0°1Œ?®÷óÕåéK4^aPmºzï +ÉDüñ¶‰g—æ;Û̇Ûf{îÀ÷6¾0Jÿ¥ìÿòو¾ +Ï3øQb û¹&úH&?µÓ©]f½%{Kþªâ +ú( +“Š†{5oië^Ñ_Ì[y«a×ãGӟԴ¯x>IýÄÔþÍóÍóÍóÍóÍóÍóÍóÍóÍóÍóÍóÍó¿ù$ÿF˜•©âÿ« Û!ÉÐ×~¸i°žGƔT“ÁE!§Ø˜áó£¬l„ri¥°¨¸¤tFÙLT>5HüdÒ×ÉÏ +té×/ûï#A¯²\Bùsz(‘€\ 9ýtt!¦ôô/¥GMÈÌÚlÉ>ç˜ÈG¿©GYHüÿŽæNõ¢"TŒJP)ÜLËÐLh)G_þÔ^P[ø+ ]JéÇ;‘ô_mö‚âÂêit:qAƒ¨/HÂi“‰þþÿ0Í!£"–BôïB + mƒTÉ=--šžÏ?Kҗ/½ \ÊÒ%([ò> +N&Ή²¿˜Ï) +¡è/¡%Ôý’A´Æ.¸€&`‡ñßI@ßêšÑÜ'qßF +i‚ýøÿ©†M—àìî9´F_ñ™Â& +î÷KçÒòà¯÷Ïÿ|ûÄÍ> +endobj +197 0 obj +<> +stream +xœ]‘1nÃ0 +EwB70í؎\’%C‹¢í™ã¼Úê#/áKV;ÍqÌr_ +9ˆ½ÈuŽ¦nì8‡õIêá擩Žo>}ÿ$±È´ñ»¿IõÙ +zSo5aåž|ìãUŒ#b7Ml$Žÿžêv«¸LÏhƒh +€£b(8±ÛíÑÎízVÁžU@lkv­†qv@ +ã<° +x((ìºNQ€ÝžUDpãz´*"êK«~`pîVÁ-«€­Îü®Œ_öøZ› +œ%®ºl]fYâ +åï?ҒJ• +Ì/Ò±|ö +endstream +endobj +198 0 obj +<> +endobj +199 0 obj +<> +endobj +200 0 obj +<>>> +stream +xœÍ]Ys$Çq~ǯh +¶41ªû°C"ƒT˜a.]© ü ‘K + +ƒ]ž–å_ïïË:ºº.€Ájc¶¨#«*ïÌj|7©½19=)þøòúâ7Ÿ¦é¯?\|w¡&‚ß[3]_ðwÇ +ã³Úk½h·>NjÃÅgÓ + +ט桦¾|™ÜÞz«@Æö—×Ó;Ï8BOÚîsšž}}Q𠧽3SÌvïÂôìúâ‹Ý\^©}p1å°û´­OAïþ m“’ÛMlšœSŒ;ÃvRÊ:³S¥m¬K­-ð0´Ãv!™ÜÆÎýcNֆ6ÖYïðŠNL!4 +RŠ~÷t@ù£aþ÷¥íML©ŽÅgËX«°—°ût€×±.Û¶+ðg‚N6ûv<>åݓÒ%&wï +]*:9+ƒ¥ŒWÿõìž¿p#8ü+­ÒÞ»é*z²˜ž}u~ÏþûÂƼwÈ»/¤WބݟÑT.DÒî¯h¥2šÏðdñƒÎÀ÷órnÍîÚeà;¹¡Ë€—nx9÷ +Ô`p⦠ñQ.Z£Æ•¬mAßËz“‚ÝýȶNT2™¡Ï¿]Zk÷J¥Õ8»Ié¶ÑéR—ó +Þø`vß±íÆÙÝOl{íwßHŸ ¤ðb€¿ +úÿïÐƼ{Gzý‹Ü+Zɔ=0‡ +»d.➞°Î1í¾*shãy‰er*;v¸l³\ò§¡ýcAÑçœO¢û|‹ +ÂU\ +Ԅ;“•Œ÷±­$ÈT +´åeöÞ_¨ÿyh‡õÇ>?]â–mÔ=pmVñ +IaÚEƒ[þq†~#Mk€¿0¼ú›<`H´û=`.xe5øŒM!ɧlz‹õéû aÉaú¯n˜ +û¸?ƒ‰ž_’–p2àßÔèg÷ñ\ ÙûtãüßÍ°ŸææÍømNG¨ÕOìù<ú‡ù +öãê7p ä + uºBï½MzńÒàF.„Zp¡½~úò§2d§7 +|uˆ +S¼šÕÞ*ì•Û©Íéë—ß“Áeÿ—BòރK +šÛ!o—þрV¾- +yãôn\âË¡}béÒtœæ›ë—/¦º°üêÅWӋŸx9 ºÇ††”Ne³QQ”/§ø÷á7Ӌ—cÇiœá8Œ:žêôýóŸi@ûðòoüÂÔðbúf˜àÅôîaÜÆ÷ãÅLzßiçª]â”ô>‰*y‹ª¤Ü3ˆF®D•³ëü}¦Å@°»›:g‘€ +8± ‰Éª +º˜¤föê0@ˆÔ³»ëK­÷ÆBՒܽ‹Ú$Ê:MÚ +8aŒ°8Ê9 +N*õɕ4ì„RælfïµÅI|‹É¿Åä$q®mŽoz«,æ#Öýªã?]:²è/„ +¬€éß/ó¸àŒÐ+( +;Znܱ§D¨Î; ^{*kqv1ڏÓ×ã°Ea×ãø;Ö¤©¤KO¥•­Ât mNȇò{+Qè´Açãüû%Q6Y +žèˆ +^<Áþ_ +F6úí†yA‡"8µåFuq +írP ŒyJu«ÙúÖ=ÚF-.e»¼P9«Ò8µ abÈ´ ðg:0‰*¥m⛾ôÿôm3½N /Z6®²hežu$Ç¢h<Õ÷/=1ö¿ûŒ=фB0}¡9»·¸³}ã¯÷ž]|r½ç}r“U0“}†¡.«'í +›\~Tž?j؛÷±B\íöqÙ%@\sð÷m +ȁ£·@p:ÒÇC2´ +Ç¢ÏW: +:{@.i^^Ø]¼ + +&ȽÏñ‚>ÿÑ·ˆ9î³ “Q–3‘xë÷à·éûçèm÷†³›þv‘¦1öƒâ£¼û´ú(Oß}r¡aÅì +Æ©¼ˆô‰+ä8.å +‰Z +ԇͰkÀžVŸæ}¡¦gG攙@´ÌÅú½È\khÕ|(m¨5ˆŽ§¥-ª]<ƒªÛUñHbF;\‚6;Ñýƒ —½}uýÍ«€kQü \Äí«hsPy÷¶˜)R«L„CgÀeڕ¦ +l¤î;¹'Ž +Cås}±ûmU> +}Ð4Äw#ƒ–bð°ë™Çâé³KïÁ +ÞÌLשOû¨÷ àL {bƒÛc{¸}ŒFB~½‚!#\—Q>tÈq†pžžì€ÃfX!­La^™Ïaeᆠ$aY=½ì^Ô3ñ沊âwO-ÌþÞï.At´ÉÎJY +¿ +¸BVÎjø + +¬àÒÒِT?']5œxÕá KzúvÙb¶@ú4–Âñ8.epŠ8~Ñ'ˆ"áÌøÑÇïƒYÎ#(2Åo!§é"îS +é}À}@Ý8íBÝ£H‡e‚eb«Ô2†óø + ª¬0U€¹@캜íúÀ^OtœGuÈa3î +l¥,Õç(±ßbµ-á“"™a¶ÁZX¼¾ ¾ê£ðSAl”ÔÏ.iÁÀ龁"Ïq·Êߤl) +ÎÚ{”<.Ñ~ï2h9¸™M`\Ë}9О*lݏõaMêb!ô>8×Ê8•ao6ƉŠ"{ì¢SƒíË´Î$àÖ¦´ښøÍ¢ÇÓ +ɑw°pðÀ +3Ýz8L¾wîhDš|fg +³” ¦@RaF*ˆm€œ€q–]B5õæiBµç¥B5sÐ + ¹A°#üyH‹>¹ +× +eÙ½uº`„=ƒ•¹ +ˆS½D&9§†°Èv%ŽÄÑL†–{íÉ” +ÊT +›ñ;g •‡/¢± +‡ç;äØ!m¢c5C›qg +à/ + +ºÊ}oÇ|$ªä-ƒ¿ +àȈ§ +ä>²@Ÿ@$vÝú¢ ‡Ìîc´‚‹°ßA+!jÙ9(ÔXÌ£¾úlp¡Ààg0Ü*b8òW3ÜFÁ!ö/\͌³,4Î¨?ÑǑøb®~ +ÈX Eø/™¤÷Ã4;̹â؄Bb‹œj¸É +3ÆBɜÈRçÉDX‹Èá´ +ŠkT¯‡1¸­³^™óœ•öꨙˆWÓ +û˜rX:‡z3 “%Ï1¥æÀ‘ +¤ÅÊú3á>ž++ùW6õ6¤¨„«×§0PBÊB9Ñ +³4ÅLi‰XèÀ˜ûøf¤”©8Ò~<.g8¶î3à° +p†ûw0ÝY%€%¦d˜6Ìä(‚%¦~T5Y¦r¢¤«–Ž‚¨},K§à?†Œz^"Y +Òºø<¤Y†tA +KòüK@ö9ßèF* +n`Ûe­h5GSÂý¦ÕDÃÒ×Ì1TÝنUÈq9‘ïšš£:ä°w†ü-C oTÎ`È°¨9³pþàC[ٛYHâÊ3ÞZ’;t‹—X3m +Oƒ‚ªû|H?-ºüq˜æŒîcâþÎ2å‡K +‚¥Ý@C9Hî·›”úÞz‰„ùì* +Ñü•À^ +!ôa=±žè8ìØõ¸3ˆC»y‹Ðôõ}15šš]p:ƒ¬àç*ÄqºÁÅ8i„ÆàCCˆÂ$:•iá ´i Y 䒓ßä]íÉÈ- +(øá^ëUfÍ)æIl»ï'—p#pǴ®ˆ§Æ^·Òã +G +n±°®Ù+F02Ôe±Îu&uƒ¼2ؒ^TH5А3ÔP‰O×ð3û‰G3Š#Þñ’0_Neø$Éz¶tH‡,㫯ÜÚį%ÆU<*q\ÌÄâ¢593Id܃ûŠXLóNËßU E@› > + ºš +˜bo*ÄƁŽDՀwïTUH‡L]Ïu©Þ$Èáñ®@4C뜷¨‚Þk—°ã +ãg3çƒnÐXáLªVZK°ˆêI*@¶ ‹y] Y®Ñ”úš!Ùêìåōëä<¹¸ì`9#·®T!IRãI2 +îrk‹ë°ì³À¸ì +TT2‰;¼ +PìÁZ +‚U¡÷áîIkYÑoЁ'Rýóì +$ +Þxë"\'Msíyá‹>–nÈqœÆRo +Ç¥l‰¹‘òNhìþ¶ÒÇí£^öÎ×Ëy*>‡â|³“¦ª.G0KKe +'.üFTQtœ + +‹‚ + +Z Þ(óº +c·™V¤NtœGuÈa3î +¶- nò*ôÐÝ»Ræ¥=<¹R•†U[K¯¼:ª5V¥òî)‹±&Bc~ãvcq$]V=Œ÷³&ç赃¶ì\Ìõ¶¤8SԚ‚þªÕmEÖ¥a*B,‰¥qßÊ•œ®ƒ3ÜÝ«F +ƒô¾.µûì~‚SۏŽq%ê¯OªþÒS¬U„ý¾×ãg +ËN¯˜íÕLbèKÆ@sÎý^<ü{ãB­__$McV¸ + +ab7â +ñ} +C€(Ì+ÑjÊV-ÄÊÀ¡‡Ô% n÷1 +„ÂÅ!ò¡OB¹1í?gÖ(“%™YsyÆ:(ÀpUy•Ç„_ +$@eaøE{è4L•jÁ'º™š‘/2\¦ÂMDÜ +BÄÆdP³•¹íñã8)Õa)]dœ‡íƒgÑÇ0V€eeÑÅÕ[a,F)Ã3ûë±EGóvÆ°÷‰j˜±™†M]¸â®xb: +溍Õ#ї #bOJ±4Xrh€ã +¨Ó +ç1 +rX;ƒƛuØf Üm±Íè¢Í»OiÄ%'É:Z=Ñ[±¡!ʝ§þ6tÃÈÂëV4 +\84”$VŠcÏé`õ£½Åú%óP›ŸÎÍßm“$ +h!MãQL$˜å§cÿI @éÝ!´4˜„‘^™VHµ³ 14K|±P¢˜>­Ïºô¦Jš2” -j­i.ã¿(LYsÏ1‘ƒÚœ×}Ô¼Êzžc5C›qgI“Õ榁%´ñ>Õ 4 +óÏ.™gMÁ•2Ö¹z&æAÙ^ÁŸ_’Ì`ƒhË·1‘¶’¤Ħfz&µ` +u'$wh²$åë°9.&Êr,uP +6£ú©Ü™q@ + :pBâãÂÌd7¨²0u˜(a +S×xS)оÉËKRd7ô|»ö¼Ãb Éå +¿8µL¼‡­:_ÎñË«Yփ‡‡­fa./çøU_-®^#XÚÏ´>YÇZh•5ºYéÌû›7å~aÛJ¥{ +¯BLZån#ôIʇôwwIùoWÊ_ñ +„ލ”¿á Ç§|ë2-†W }ː½{ yÀvXÎqŠôkæA‹±„ì&Âß$?’wtîù¯w_,Sµ +s|±û5ý +á¾üò’™ +xY«šìn}Ã5Räs‡ŽK©ršó +ô™ +ì¶<ðIP˜]Š.mOãîgâ  +t8q&¿ºtbdžópx¥ã‘Åïš2hê¸k¹ÀŠM·âõvu}áõq¢Âëkµw،z +¼^Ë÷näõ5‰‡¥pÆÑ-9.m‘D˜¦M7 +„5JF;)‚zl”`ÜÄ +sƒÝæ°Qa)GŸ:­Ù׃÷tþ¡h2QþŠünèꍧÎ5¨53]¹‘_%ò9\­­^Jñä­f¨;Õ֝ðØdpRßbºÕ[R“VÍ1u³¾ç§LóX~+UcÖÇîƒñý)d9µº2©ÍTC]ÙXo¶_ô©‰98Ü1ƒï¯äA¦*7þ§ÝJæ²ÚFéú@g÷㊴-ƒ/°¬:¶ØqT*VwSúÿÓe}ú“oÊeÖÀ2RÚÔìFaqTžq/I +ú`mP +׳ +ç1 +rX:G*TgHc8¡Ív»jøû¥™|œÅäÎÁêµKs–‘ñ¬v¹Ðd¹O0?֒¸±v`X% +ir©CŽ3ÄÃ'–¸qÕ!x |¡Â½±&tP}'¯ñíò6¹&±ûµ·¨µüÒ|È’uO!Û¹Cú‘öQ¯ùM^mæoÌ9[QÇ·œ3Ë(óxÎZIÎq8çιŽzÍçììj3¿|cΙæá–sÖF²ã9»Dëg<ç +™Ï¹zÍçìãj3¿úǝóÆô ’¥b´ƒ¯Ssë’%Ý%UÏIEÉ©i>§r%ÑÀ„ @ +mœ’õS”4V•\å'ò;t¼0‡)•»4@k=ËTIœ>HÅÓ¼¾Ô-G i2o$É ÙF͚èX«'kau›}®€ +ŸÞIbY«T“7éyE”ÙñÁï5O/³Jc)~( +%68×±$!R8ˆbÑ ÇñÊQŸ +û x€Ä<•\‚ÎfHŠþ’æ~{œØ1dä\ÉÅõ[];QWC’z¥[]4T’ó‰{ùøB +N¼Aæ/c +ãÀÉX1çýÇ7輍<ÝY÷By2W,U=CÁNRS”Kv=KÑY`©jÊӧذ +Ú3"(Ãðkއ¨Z+¢¢Y&Ò°y  +øÊYª×FÝÅ0ctäKåäÅhÍNÝYyюÖÕp,KéKŸ¹BŽ›µŽó¨9lƝãŲbɓM­>ã‹ÝG’qNÚȃ“øôí?{fša“³IUÉYb-ÓP +î¼É7•1>Hq×¥¼¡•Ö“ϝC¼â Vymè-kIL‡ +ÉLhªj×b,k +/6óËRÞKÞ«Z©5h+gÁϔOÍn üa¶ÃˆÒFÍpëqXQÁZ«à>›9ÞAP@"ô>«š8ç2­áuº/ÇËÛ +¦9TÕgî!¯õZÇyÔóZ;Ç[Vy7¾žðñGŒö¾¼ÚöQéZÀmœ·sdyo†ä•—ä–Â0õò•†m,ìæ÷ âÖºÄBÇÁ«õÕ¬œ½Ú™½Ú:èõ:µms³Sû륇¾Âœ{aåîb+0ïd³·×´yPþ&ÆA¬—âÓq¥øu8å ëƇcnáœë¨×|ά¦½dV¨s36”`¼™ +™7³ÙÞkÚL–wÔŒ7X֎‘]jËæ×Ç÷4ޘ|jŸ¹BŽ›µã­C›qçx ¬ +™«þ”ë +yÒïÐG)E1N +ìÊK¿hTÖ®$ž,¿H©Ë‹*–Èj÷`ý÷>Â|“Ê+(Í.ꟓ¯éó(ofø +-í +ö~këÕgýýÖç+gÞ‚òõýVwÙýʕŸ +'~¯ƒEòí^a²î.„á¦d6MÚ¨ÑXñоÊúÁXiU²ƒ{]A×儱R?¿=åññ +Ɗ1Á²´XójËóç6ªBŽ›yŽó¨9lƝ£~Ÿïiˆ$ÕÈ÷II–šñ£DÎ_‰¡2¿KÛô.•øùPй/oÊäëR.µ¤û“9áÝÌBÏ +R–uær +!Ž7w +GUïPËk"MzA +> +ú©w‰¶Ò/H·°¿!ã.$’/éޔµD +,_R•~ÔarÜLtœGuÈa3î,_QË3n¯T +‹ydb2^ + +ÆÝ¢CË+“¥»Àž•7~V¾±÷úµ‚2?Ÿa÷îg¢‚–›©ë£¼½þÊåìî["Âh|‡Ä6â.%i¥Ðµïæ +i*,¦xÌê¯zöA>g·äË9¬ÃäÈȖ0peÈ©˜a}L‡ +\5 +:2Z©š®i}øa=[“,ÑZV§€;,«ÓùŒä¶jd’„d(C0ȋ?iù@°–‡f•ºð~DÀ¥\¾¯¢ùú2Ñ + +òD +͇žRÀ0~=@ø­*šg€Ø;sº”ÅbÄ$D‡‘—¢‹>|è]æÉ +"ß +,k£ 7¥–žÙ»½Ñ‹Õ‡> +œ¹ÿÆ BXìèÅ4:•OQÉR¦Bä‰ÈŒÎЧn¢MÒ~ÌÅlœ‡XU"Eóøi£¼Xzè³À¶î@ +'YyÆéÊ +Dçú¹”>+ðæÕL +¸Å™Ž} +֜Ç,怜5îCÅ~[õx”¼š +÷1ôYà¼ØÿÏa±èªq¢ËkSKƒËøÅ>M·#µŒ}ê>†y*„>ÌbTjû̌4/Wú,p^¦±‹}À´z1“W}&-Ÿ¸Ñ.ׄtŒ†>òÎZæñq)k£‚éwV÷Á”Ïbñ¡Ëå² +¾I\Ìõë¨(ò3epè´l£¾:] +µ@ÕA|ÁΟ`®íµÑRÎÏ2±E™{äK½òõœV×Z!ÇÍDsû +9lƝ£D¬Tøó´ÓPáï +?2L{ÔÁfwAÌÑúõöò +´äÎ[ +V𰾗<ŸÍ½ësIPþlih*9c-î¾ ¬èä%ª‚Ò¯ï1Ƈ¨wy{¢Ä.œ¹¥”6Ë«è‘nٍQôºY‹;w +œþéÖ*Þݧùiœò`‚ê¤~¼Y­9·Wã$÷Z¨.ñÉf V6(þ +ŠŸYÂgýàóeQËx¼ÿ|‹ +Jvñ±¯<ɇðœþå4NПþ!(±e;ÈޘѼ÷]ßÁüæ·FÇM÷Šã +„XÃK{_± ÍìIzf·Ðéÿ6k:Á0ü§«Ñ¹9½Þƒ + %¯Ì™?4¥úâO—·0»fW®³?R†ßÜpzë4JV=¥µXøv³$“ª’çѯ"ȇN†mŸ~{ÂH½¡yÛlªáA×ôØ +†“<P:ýöÄž¢š|t”Ê3²§ÓÓfùÛ§U῁AC÷³Ù_‹{‹ÁkᇦàøŽ[\Ä:¬AŽ›‰Ž}Ôhڭǝ#þ5ìýšm»ùCbJ¿ˆWÍ»ó­!ïýìÆÝ©µàûófo£Iù•=ù jE“=cjµ +SÙ,þ§ë€mØÐ!Ç’»-þN +Õ!¯%'Ÿß +Õ3)²üͨœp,ØuSΤ>wûã´Ów‘£øNó]0¾P«rë]4ÈpuÔë½ +Ö|Äù.Þzs®ÂC)sãUÄn©(Oî’/ºÅëÖ·ýaØð)‹¯Ë_˜Kü£.ßâeù[ò9Æëòw$¬ÙMò•#:åQþòÿ¤Îþ<´ë4òǪäÏþ´?ð¦â‹ÿþ␁ +endstream +endobj +201 0 obj +<> +stream +xÚS(T0T0BCs#s3K= +K +ä\ +B=K°8Ò55Ñ32WÐ577Ò30Éê»å)¸ä+*r¸ +¢ +endstream +endobj +202 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +205 0 obj +<> +stream +5 scnrRGB XYZ ÒacspöÕÓ,desc´`wtptcprt( +A2B083ÊdescadhocXYZ öÕÓ,textnonemft2 +ÿÿÿÿÿÿ$²o/)îe¦ª´M§ +<멏{S]\ +$¼ ‘/¿ + +"<{^KOÁ[a`³„ÂËÏâAO¾ +geÓ +TK\¨Üu¼Ñ$Ô ñÁ/× +~Õ<”gK°u[z*,KN;þ™[t‘ñÔà˜ÑK +‡ÕÚ¦~¨†J% +»90 + +HN<Ç1‰KLz í[­‚«¢¦ºTñÚËpH,_î)Ë +ÞmT1ýþþ ÞÉ%] +¸0a  Í= +‰ + K£Ñ +m\zU!žeÓé„JhºÇ$ + m! u]e þ° õ +¨ +} +Ö +t%Ý + +c0à™ +x=œ‚³L"Ê\‚# +JÍG +Y’ +yö +¯sÍ +þ + Êj +ó\ +Ÿœ +)i&ˆµX1Bm>H+©LÎs +]. +¤© +°³[ +ûÓÒ +{ O +6X +õ +3ÄäxM8÷ +éÂ'd +²2i«Æ?$”Mª +Üf^ +Âz¸æ‰j1¨á°ß^m +. +j +™õ® +#G> +Ì +˜(tT‡3xá @3 +Ê!ØN¹!#<_Ð$ãþô$ò°?%'¿%H ¤z%— +Kw&;¼&ŒL'5 [,()º +a(ð4¾î*Az"Ø+@Oÿ& ,¤``Á/ò}å0000"§°0X +#k0§Ê +h1º +­1œ +=2E!Û! +3+9#S46>%à5Bú(É6QQ~,7´aß ¡<»8 Ä<Ëë!<ê +b!=! +Þ"J=p†#G=Ûu$Œ>eÈ& +?#–'ü?Ú,ô*1@Ê7ù,¾AßDµ/§CS;2ðD~c›(uKQ +2(™K` +ä(äK€ +[)dK¶Ø*L+ +Lpo,`Lú +Á-ñM£%/ÑNo.í2O^9ò4”PtF®7}Q¯U4:ÅSe”1K[ +l1o[Ò + +1º[ñ•2:\'2õ\w¹3ò\â¨57]kû6Ç^'É8§^á1':Ü_Ð<,=i`æHè@Rb!WnC›c +gÎm7‘G¶Üg-[ªìPW +?Xá“èŠ`ÉV$¿ þE/à +‹Z<s•K¼ù[eÍë +ñúÎ<E¼PÂwŸht + +X¸”«H=x) $× +^ø/Û +ë +<—ÔHK + +¬[}—cO»r’x†ÈõA›>ƒ +Šƒ +Þ¶«ó% + +(q0 +µ +<ÊŸÁKPç +%[°ïâ¥òX^ÎÝHK™—ò– +áÚŒ5j5 + +K%a +€ð0d +=!ö +@K¦> +¤\ç$ +œ×V¼NÕòÊ‘ A qŽ ­`Ò +6´ +b +à + +C +«%àx +›0ä +¯= ïëL%6P\† +Ð´ +‘‚ÿ +°ù +çv :6 + + +7¡ + +|*_ + +Ô +-ì¡&Œ"1¯¥>K˜àLÑàD]2 +úܬ + +ë^ +h +Õ +èAR +£ +ù + ûèå +;v. + Vú'h‹é2lþ?'9M­ +I^/±»SÀnžàå + +bÚ +f +× +Ñø +ZK« +Œ +Ï(wÁ¿3|N Ô@7 +6"N½!#t_ +=%a%)´¬%I+,% ¨ç%Ï +Nä&:>)&ѹ'm ^™(8)½ +Î)(4 [*y$ù>œË&‰?F#™(i@,ø*žA7ü-+BD¸0CRS>3]D¶cž(âKˆ +5)K— +ç)QK· +^)ÑKíÛ*ŒL=ƒ+‰L¨r,ÍM1 +Å.^MÛ%“0>N¦.ñ2tO–9õ5P«F²7êQçU7;2SKe˜1¸[ú +o1Ü\ +!2'\)˜2§\_3b\®½4_]¬5¤]£þ74^M'Í9_1+;I` S}ULØŹ]9 +ÞP³ +`f +M€Ý +͵Y +ˆ + +pïÊúC[£ +;o'op^2týs?/æ®M´ +. +^ +&Ã9 +5u„ +Uì +‹i¿ +Ú +¼ +F +ÏR +yqD(¦ 53ƒ +3!I@>" +NÄ"d#é_$"% F%ž»‘%¾2%ô ¯Ì&C +VÉ&¯F +'8˜ž'â e +~(­)Ä +³)4É!A*±A„$*+íP +'r-Q`j0Ÿˆ70®;‚0α +1 +. +½1TÕ +º1¿Å +ÿ2H 2ò!æ"p3½+D$¥4­6H'25ÂC*6ýQ‰-c8aaê!ò=hC"=wö"a=— +m"á=Í +é#œ> +‘$™>‡€%Þ?Ó'n?»#¡)N@‡,ÿ+ƒAw8.B‹DÀ0úCÇSE4BE*c¦)ÇKý +<)ëL + +ï*6L, +f*¶Lbâ+qL±Š,nM +y-²M¦ +Ì/CNP%š1$O.ø3YP +9ý5æQ F¹8ÏR\U?<SÀeŸ2\o +v2Á\~ +)3 +\ž 3Œ\Ô +4G]#Ä5D]Ž³6ˆ^ 8^Á'Ô9ù_12<.`}<6>»a’HóA¥bÎWxDíd1gÙ×sû‚ÉF¢@Åؽ€'d~’ +S +§RÅt +3‘$Ó +h€/Öõ•<“ÞÑK& 4[y7&/[5â¦UY%‹ÕáÚ|ÞF +k"Ï¿²xŒ +“D$ë +È3/ïUH<«?„K0† è[‘žb%®pÍŒð«S¯¨¾ +žìGò }ñ¿ +]½% + +’¬0"Á<Þ üKcQ +`[ÄY +¹}-kÈMâGƒ_Ò = +õ DÇH +Ôp + +µ <%uê ++0xx +@=4` +|Kº¨ +ß\Q È8u ×êÀ ÷a? +-Þû +} + ø +èt +< +qÇ +Ì + +•­ +æ%ôã +Ö0÷pê=³X'L9 ‹\š ú½ä + +Ì– +iì +é"Š +¤q +0 +¡Ü +ågsv +@WÜ&ŸŒË1¤à>_ +Lå +J]E +cÀ +‡&r +ÒFéR|f +Ë + + +7üPÀOàj + +À5'{õ%2€‚9?; +kuMÁ³ +Ù^!š +ìϽ +ü‚ +øˆ +QuC +¡ + +A + + + + +–_?,ö +(‹+ û3 +¸"@K ¡#KNÐ#é$¯_1§&UË&eÈ&„?–&» »Q' + +bN'uR’'þ¥ +#(¨ r +)t)Ñ 8*c4Ö"Æ+xA‘%¯,³P(÷.`w +˜1f” +¼1uG +1•¾ +‡1Ë +; +B2á?2 +Ñ „3$"3¸!ò#õ4„+P&*5s6U(·6ˆC+ 7ÃQ–.è9'aö#w>.P#›>= #æ>] +y$f>“ +ö%!>ã& +?NŒ'b?×ß(ó@‚#­*ÓAN- +-B=8/•CRDÌ2DSR5ÇEñc²+LLÄ +I+pLÓ +û+»Lò +r,;M(ï,öMx—-óMã†/7Nm +Ø0ÉO%¦2©Oâ/4ÞPÒ: 7kQçFÅ:TS"UK=œT†e«4"]5 +ƒ4F]D +54‘]d¬5]š*5Ì]êÐ6É^UÀ8 +^Þ 9_ˆ'à;~`T1>=³aD +§é +& +ù1 +«=Æ“JLKÛ®\¬ +5àö +Yï¨ +¤ +$Fœ +ß• +CÜ2 Š +±4 +R’ÿ&²Çï1¶T>q=?L÷ + +£]Wž:ÒÂI„ +iûŽŸxIï +FZŠãa +/ûX'Ž0H2’½\?M +¦ +˜MÓ!ï +ü^3Ô +áø +”C +? +à +u‡~ +Ä +.{/ +À¹qP c>0!/( +e" +3¢ò#3@]"Ü$nNã&$%Ò_Câ'y''ˆÚQ'¨QÑ'Þ ÎŒ(- +t‰(˜d +Í)"· +])Ë „ >*—)ã"t+†4è%,›A£'ê-×P)+2/:`‰ +Ó2‰§ +÷2˜YB2¸ÐÂ2î +M ~3=ó!{3©ä"¿426$O4Ü"&05§+b(e6—6g*ò7«C#-Û8çQ¨1$:Kb%²?Rb%Ö?a &!? +‹&¡?· +'\@¯(Y@rŸ)@üñ+-A¥#¿-Bq- +/CC`8"1ÑDuDÞ4ºE°Sd8GcÄ-‡Mç +[-«Mö + +-öN +„.vNL/1N›©0.O˜1sO +ê3P:%¹4äQ/7Qõ:9¦S +F×<TFU]?×U©e¾6]^Y +•6^h +G6Ì^‡¾7K^¾<8_ +ã9_xÒ:H` $;Ø`¬'ò=¹ax1Q?îbg$þ§-04 B<½ + +~KCe +á[¤uÓZ™â +äƒ d8 +‡§ + +ò +– +`|ê +ñ%·Ññ%à0” õ<Ö} +1K[Å +”[¼ @K c[@ ®z¶ +.°3 +éÚ +æk +É ++ô +»žêœ i%IÑ +Y0L^ +n= G +©KŽ +[ï +—Ëä +»Ú– +ú + + + 0Š +A  0 +> ê ‚ +ts + + +@ô +é%Ÿ) +Ø0£¶ +í=_Ÿ(Kå +ç\E + +uc +³ +„ +þ +¤Œ +~ +Ú 9 +* ¯6 +•Ÿ{ +ò +È +¿ì“&!„1"®™=Þ—ÔLd +ß8\Ä9k\zÁ§š8'еã +[àŠJ%žµ½ +k•‰&ÊÊx1ÏW>Š +@ÈM!‰,]p£ÄëÆӝó‘)‘Lx +7Iä&Žmz + +Gÿâ'¦ +3Ñ2« +Á +æ?f!ª +"Mì$ò +^LØ™úü¨¬GÈ#Æþ ‚ O +G º7Ã!C‰ +S!íW +4"¹(¶ j#¨3º"÷$½@u%à%øNû)''\_\æ)@ + )ò +T)1i +Ô)g æ +)· + +Œ*"}Ñ*«Ï!b+U #B,!)ü%w-5(.%A¼*í/`PA.50Å`¢!Ø4¿!û4"r"F4Bé"Æ4x +e#4Ç +$~52ü%Ã5¼O'S6e" +)371+{+h8 6€-õ95C<0ß:pQÀ4';Ôb!(¶@Üz(Ù@ë -)$A + +¤)¤AA + *_A‘È+\Aü·,¡B + + +.1C/#Ø0Cú-62GDê8;4ÕEþD÷7½G:S};HžcÝ0‹Op +t0¯O€ +&0úOŸ +1zOÕ25P&Á32P‘±4wQ +6QÄ%Ñ7çR//: +S:4<©T”Fð?’UÏUvBÛW3eÖ9a_â +­9„_ñ +`9Ï`×:O`HU; +`˜û<aê=LaŒ =>Üb6( +@¼c1jBòcñt Î +Ö¯ é%6ä +Ù09q +í<õY +)K{ +¡[Û + +D­ +@S_ +‹sÖ +©SÆøùà c +é í<˜ +– + y +b%h® +Q0l; +f=( +$¡K®l\t +× +Ò¶â +ò-b +(© + +w P +ã?` +l“ð + +`Ð +á%¿Ñ0Ã’å= +{"L Ć\emn‚}5ܝ¬[Ó(" ύ¾XèÁ +ßɍ&>þ|1B +‹‘=þsÌLƒ"¼0\äc.:rà +’WÈÔÀ +{½ƒj +½‘¶ +‹r&ê +§q1î4 +>ª" +ÁM/%f%]¼ +£Ë¼îë3n!°)q +W&ÜFje™û + +g +Û +Ú'Æ  +Ê2Ê"ž +ß?†%‡ N +(Ï!^l´!“Ø!¢Ì#!ÂC£!øÀ +^"G +f +["²W + #<© 0#åv"$±(Õ$F% 3Ú&Ó&µ@•)¼'ñO-)T_{Â*û`æ+ + 1+*‰ ²+` +!m+¯ +¬"j,œ#®,¤ï%>-M ¼'.*)T/5 +á0 +AÜ.Ê1ZPa22½`Á%´6 +ß%Ø6‘: &£6p + +'^6¿,([7+ +)Ÿ7´n+/8^"<-9)+›/E:6Ÿ1Ó;-C[4¼âJ–cý4hQj +“4ŒQy +F4×Q™ +½5WQÏ96R +á7R‰Ð8SS +#9ãS¼%ñ;ÄTˆ/O=ùUw:T@†VŒGCpWÈU•F·Y+eö==aÜ +Í=aaë +=¬b +ö>+bAt>çb?äbû +A)c + \B¹d.(+Dšdú1ŠFÏeé<I\fþIILEh9WÏOŒih0¶‡ˆÚ–;%¶²¥ì.` ;Õ] ¦ +Ä¡ +02 +Ùå +¥%DG +”0H +Ô +©=½äKŠ#I[ê :¡: IS + iÊ ŸGÀ îí½ +Y +Ý +ã0’ +Œýr +X%\§ +G0` +4\= + +—K¢#fü\á +²Ô +Á†P +áýÏ +zŠ +g ˆ +ÒÌ +[c\ + +0= +Ð%rÀ0“ +ÿÔ=O èKÕ$0u\58 +2*\ +Aݧ +aS' +—Ðâ +æ wßQf#Ûº´„ +‡”Q%æ +É@0éVU=¦"@L+%ˆô\Œ0Ý©Tì\Ÿ +ÓBOÚ‘ ö×ýå +†9¬0 + +Œû&e +Áë1j!Oÿ>%$8;Lª'€Ÿ] +ÚÑUþáI~È7û„† +¢ñ‘Å{ä +U$ +²6ð'!lß2#ùô>Ð&á +/MV*) +“]·C ++1g +:ã² +ZZ +1 +× +í +ß +~ +ê +Jm. +ÔÀ ¿ +} +Ž" I'í$Õ 92ñ'b!N?¬*K"‰N2-’#í^“x$@œ$óç$0j h$fç!#$¶ +" %!}#d%ªÐ$õ&T&Õ'(ü) +(4+—)#@¼.€*_OB1É+Ã_¢$‡-i‡$«-x9$ö-˜°%u-Î +-&1. + +Ó'..‰Ã(r/*/¼ ä+ã0ˆ*B.1x5G0¦2ŒB3Ž3ÈPˆ6Ö5,`è*x8y*œ8‰¸*ç8¨ /+f8ß +¬,"9.S-9™C.c:#•/ó:Ì"c1Õ;˜+Á4 +<‡6Æ6—=œC‚9>×R<Ç@§V+&@ˆVö/vB¾Wæ:zEKXúG7H3Z6U¼K{[šf +BdJ +ôB&dY +¦Bqdy +Bðd¯›C«dþBD©ej1Eíeó ƒG}f(RI^gh1±K“hX<´N ilIpQ j¨WöTQl +hVo +r·“ +iÞ +¡à] +×] +&  +’ +óZ +Gê +Ä + +ː%s 0w"Ž•=3%wÑK¸(¾4\Ï +%Ïó +4‚> +Tù¾ +Šuy +Ù +v +E +º +Î_ +Kx +, ++C%‹ `40"îH=K%ׄKÐ)è\1™ +ž½ +­µ +Ì,ˆ¨CR O@½> +G’ +ð +_ +õ½%¾!+¬0Â#¸Á=~&¡üL)é`\dñ +Y- +`M‚߃ÿ›Ò ¦˜=• +ÜÇè +lp +¶ M<&"ƒ+1%@=Ô'ù|LZ+@ß\»éÈØ +ØŠX÷Ø-~ +“} +% +è +Ôqg d +5"Fç&”${Ö1˜'ë>S)ñ&LÙ-9Š]: +’½„ +¶Ì6 +ì­ +"*<q +Ð 9ÜÀ!f# +à$ïÛ'?'$ +Ê2D)± +ß>ÿ,šM +/â ]å ý`! %!kE‰!ë{"¦Ê +¬#£ 7$è Àï&x!j +¼(X"5(*#%3 -$9?Û0%uNa3L&Ù^Á%2&ío%V&ü"%¡' +˜& 'R &Ü'¡ +¼'Ù( +¬) +(–ÿ*­)?Ì,Ž* +)+.Ã*ú401Q,@ë4:-JOp7.®_Ñ*?0Vµ*c0eh*®0 +ß+.0» +[+é1 +,æ1uò.+1ÿE/»2¨!1œ3t*q3Ñ4c5v6^5xB29G6³P¶<8a00;e40T;tç0 ;” ^1 ;Ê +Û1Û<2Ø<„q4 +=Ä5­=·"’7>ƒ+ð9Â?r6õ ¢7~H^ +7þH“ +–8¹Hã=9¶IN,:ûIØ +<‹J$M>kKM-«@ L<8°C.MQElFNŒSòI_OðdR>äVÄ +é?VÓ +›?SVó +?ÓW)@ŽWx7AŒWã&BÑXm +xDaY&FFAYâ/¥HvZÑ:©K[æGeMì]!UëQ5^ +fKGºg5 +#GÞgE +ÕH)gdLH©gšÊIdgêpJahU`K¦hÞ ²M6iˆ(€OjT1ßQLkC<ãSÙlXIŸVÂm“X%Z +n÷h + +)áî +Mð  +˜ +F” +Ó• ;Ð*!‹~"¥4 +K$†%ª&»ï0­)H=j,1?Kï/x£\P +‰” +­£¹ +øÃ0 +xù¬3I S 0´B!u>–#ç +c$æ³%Â'¢0Æ)¨·=‚,‘óL/ÙV\h +S +9 +w +ì +Â<cBrßý † û-u"@¶É#Ð` +–%°+%õ'å0ù*r/=µ-[kL:0¤Ï\›«ÏœB ¼¹ šò6!VA Ý"S¬Ì#—6%'ß +í'«&L)=š1O+ʯ> +.³êL‘1ûN\ñ!¤7!ÈFÁ"f8"“œµ#Në +\$KWK%àž'Š +l)U&Ë+5E1Ï- +Y>Š0¬ +•M3ô +ù]q$M +,»$q +;m$¼ +[ä%< +‘a%÷ +à +&ô +K÷(9 +ÕJ)É +~ ++©J'v-Þ :2{0k!O?63U"ŠM¼6#î^ +'·"†—'Ú"•I(%"µÀ(¥"ë=)`#: +ã*]#¥Ô+¢$/&-2$Ø +ó/%¤(R1H&“3W3Õ'¨@6¾(ãN˜:*G^ø+ì*[¦,*jY,[*ŠÏ,Ú*À L-–+ +ó.“+{ã/×,61h,® 3I-y)b5~.i4f8 +/}A":ô0ºO§>;2 +`0ú3Äì1 +3ÓŸ1i3ó1é4) +’2¤4y93¡4ä)4æ5m|6v6!J8V6â*¨:‹7Ò5­=8çBi@:"PíCJ;†aN6ë>Ôk7>ã +7Z? •7Ú?9 +8•?ˆ¸9’?ó¨:×@~ûGAó,'@|Bâ7,C +C÷CèEóE2RnI;F–bÎ=ÊK '=íK¬ Ù>8KÌ +P>¸L +Í?sLRt@pL½cA¶MF +¶CFMð$„E&N»-âG[O«8çIèPÀE£LÑQüT)PS`d‰EŸZ2 + EÃZB +ÒFZa +IFŽZ—ÆGIZçnHF[R]I‹[Û +¯K\ +&}Lû]P/ÜO0^@:àQ¾_UGœT§`‘V"Wïaõf‚Ntj¤ +ZN˜j³ +NãjÓƒOck P +kY§Q +kÄ—RalM êSñl÷(·UÑmÂ2Xn²=Z“oÆIÖ]|qX\`Ärgh¼$ñÙ.%èà%_W%ß>Ô&šŽ z'—ùj(Ü‚½*l, +Š,Lø%é.ç0í1ü=©3ø7L/7@›\%QŒF%tœø%À»o&?òì&úA “'ø¬‚)<5Õ*Ìß +£,­«&.âš11p¯=Á4XêLG7 N\§&y&?+&Š4¢' j'Ź Å(Â%µ*®+–W +Ö-w#&5/¬182:'=ô5#cLz8j +Æ\Ú'r„Ï'–“‚'á³ù(aéu) +9 + +*¤ ++^-_,î× +,.΢&‹1’13‘ +§>K6z +âLÑ9ÂF]1)k/O)Ž>)Ù^x*Y”õ+ã +›, +NŠ-V +ØÞ.æ + +«0Ç +M' +2ü<25‰ R>Ê8r!ŽMP;º"ñ]°, $ú,8 3­,ƒ S#- ‰ -¾ Ù +G.»!D6/ÿ!ÍŠ1"w +W3q#B'¶5¦$22º83%G?v; +&‚Mû>c'æ^\/}&}Ö/¡&‰/ì&¬ÿ0k&â|1('2 +#2%'3i('f4ù(Ð36Ú)œ(’9*‹3–;œ+ @R> +,ÛN×AÎ.?_83³.Sæ3×.b˜4".‚4¢.¸ Œ5]/ +26Z/s#7Ÿ/üu9/0§ B;1r)¡=D2a4¦?Ñ3vAaB»4²OçF6`G8Á7¼,8å7ËÞ907ëU9°8! +Ò:k8px;h8Üi<¬9e»><:!‰@ +:Ú*çBS;Ê5ìDà<ÞB¨GÉ>Q-K?~a>²BÌ«>ÖBÛ]?!Bû Ô? C1 +Q@\CøAZCìèBžDu:D.E# FEê,gHDFÚ7kJÑGîD'MºI*R­QJŽcE‘O• fEµO¤ +FOÄ +FOú +G;PJ´H8Pµ£I|Q? +õK +Qé$ÄLíR´."O"S£9&Q°T¸EãT™UôThWàWWdÉMf^* +_MŠ^9 +MÕ^Y +‰NT^O^Þ­P +_JœQR_Ó +ïRâ`~&½TÃaI0Vøb9; Y +cMGÜ\nd‰Va_µeífÂV +=6 +pL@~Ô\ð.ù‹Á/ +št/hºë/çðg0¤@ +1¡«ý2å4Q4uÞ + +6V +©&}8‹ +™1‚; +­>=>éLÂAI!N]#0P + +0t +Ê0À +:A1@ +p¾1û +¿ +e2ø +*T4= +´§5Í +] +t7­)&Ô9â 1ؓ?X"iMB¡#Í]y2Jµ—2mÄI2¸äÀ38 =3ó k +ä4ð ÖÓ65!_&7Å" +ó9¥"Ô'S;Ú#Ä2W>g$Ø?AQ&M˜D™'x]ø4ó$«C5$ºõ5b$Ùl5á%é6%_ +7š%Ê€8Þ&TÒ:n&ý +Ÿ„(¸3A)Í?¾Cû+NDGB,l^¤8\+8€+Ñ8Ë+3H9J+iÅ:+¸ +k;,#\;3 +{?83úk@|4ƒ½B5- ‹Cî5ø)êF#6è4îH°7ýAªK™98P/Ná:œ`A •!ÒHü?`+0K1@Q65M¾AeBñP§B¡QuSïDaÖG‘GSóGµGb¦HG‚ + +HG¸ +™I;H@J8Hr0K|HüƒM +I¥#QNíJq,¯Q#K`7´S°LuDpV™M°RöYàOcVNoT + ®N“T+ +aNÞTK +ØO]TUPTÑüQU<ëR[UÅ +>SëVo% +UÌW:.jXX*9oZŽY>F+]wZzT±`¾[ÞeVEb± +¨VibÀ +ZV´bà +ÑW3cNWïcfõXìcÑåZ0dZ7[Àe']¡eÐ0c_Öf¿;hbdgÔH$eMiVªh”jsg +_s# +â_>s2”_‰sR +`sˆ‰`Äs×/aÂtCctÌ!rd–uv)?fwvA2žh¬w1=¢k9xEJ^n"yXäqjzåiD7Ï +zÈ7ó +‰z8> +©ñ8¾ +ßn9y +. +:v +™;» +#W=K +Ì +$?+˜&ƒAa ˆ1ˆCî!>CF×"ÙLÉJ$<])8/ +-à8S +<’8ž +\ 9 + +’†9Ù +á +-:Ö +M +< +Öo=«€ +=?‹ L&œAÁ!<1 DN"P>[G7#ŒLáJ$ð]B8ú +¥9 + +µÅ9i +Ô<9è +¹:¤Z +`;¡ÅO<å P¢>u ù +p@V!Å&ÏBŒ"´1ÓE#É>ŽH%MKI&h]u:Q!&j:u!5 +:À!U“;@!‹;û!Ú +¶<ø"E¥><"Ïù?Í#x +ÆA®$D'%Cã%32*Fp&H>åIY'„MkL¡(ç]Ëð%ð%@5&yxAÆ'# +EC¦'ï'¤EÛ(Þ2©Hh)ó?dKQ+.MêN™,’^J>ó)Å”?)ÔG?b)ô¾?á**:@*y +áA›*äÑBß+n$Do, +ñFP,ã(PH +-Ò3UK.ç@Mú0#N•QC1‡^öB]0pB0.#BÌ0NšCK0„ D0Ó +½E1?­FH1ÈGØ2rÍI¹3=),Kî4,41N{5A@ìQe6}OqT¬7á_ÒF’7õ€F¶82G8#©G8Z +&H<8© +ÌI99½J}9L:G ÝMî;*RPXâ?¶`áK A^ÆKÄAmxLAïLŽAà +lMJBNGB}O‹CUQ +C°"#RýD|+U2Ek6†W¿F€CBZ§G»QÇ]ïIb'Q’LmEQ¶L|øRLœ +nR€LÒ +ëS> +endobj +208 0 obj +<> +endobj +209 0 obj +<> +endobj +210 0 obj +<> +stream +xœ¬| +|SÕýø9çÞ¼š¤¹I›&iÚä&iúJ›¤OH©ô–¶¼ +´B–YÛ甦M[•Qç©:˜s¾'8Eq°¡t³:ݦ›?ÙË©{À6Üt³¿ñۘ{(Íÿ{ÎMKQûý~Ÿÿ¯áœó½çù=ß÷9÷*Â!=C +jlX(Fìï™FÈ6tl +ÊÏíáÿèØ6"þ¥à›¡â©¾Ó=سõÛOf +ê'Rõôïè–ûW|ŒÐu«z»Âo|.ó +¬„Êò^¨0ýÉô!BÉoÁsVï֑ëë +‚ù£ý‘Ž°ü|p9 •¶5|ý  + +ÿýa>$„·v¡² B† +„2^ +Œ +ÈýOfÐöÁh×àù +÷.¾÷ OŠâ‹)V!'¤ +î^dG(þkHç!½7³2þ±b +òÌ\?Ç¥Àèo$B^tڏ²Ð\„^BSh%zU£Ft/Z†Þ@GQ2ځ¿xäAµèòb'"h)²`z½®AQô.:‡rQ=ú6Ár¡vt'_ʏǷ Eèú)®h5Ú¡xKsõèDZOÅÏƏ¾ÅcÔ3}ÝO )âçjˆ²ÑUh +Cëèmœ‚‹8)ž_jŸB&>ò +NxøÐ +ԆîF5ÞDçÑ_±—á¯âÃðû!þån=E7€\}¨÷:‚Ná"\D,ÄÔ² <´ +Úö¢ƒ°þqt×ã< +_ä*‚3UñÔ¸9þûx +å£fÀp?zÖ¸ˆƒÐVàÜÜïàGŗn† +v¢GÐôCÀãW@÷¿¢¿ã|øýš|žìŠoŒŠ¿ +¸¨‘-DW£M(‚¶¡íèkÀ՗ÐËè?ñGD=ßà_QÜ ¸¿h›–î +Ð{ +Ì}'piMÂïMØ¥‹°‹ +x +^‹{ð^|žÄo㷉’¸Èùã¾Ïý‚/W(â0SrÀº +´õ>Ô¾ö{½‚^Åfœ +aGoÂøÉ"R +¿ÇÉäWÜmÜ^þcÅí3çfþ8óQ| +©@ʖ +FÑׁ +Âi€C +¾ãßæûÈ3\2'p +®Œ«æš¸îî^î{Ü¿óQþ0ÿŽb +"¬8¬ +Ï +Ìü0^¿h‘ðÊA¨-ùéiÚø +Â/ŠnB7£qôE—{Ðtöýzýý} +@Ø8÷Áê[AênÃ_„߃ø~¿‚_Å¿ÆÒqÃ/—”“*RC–’ +rüî%gțä=.ƒëàvqcð{”;ɽÍ#žçãŠbø-WÜ©xJù}U®j¹j³úO_Ê¿ÔréW3h&}æs3÷ͼ8óûø†øÀߋ +‘0Ý +X>2x~_I<‰¾ƒ~€~Æpý3&XoÅ +†àZ^†WÀo5¾~ëá·o‚_oƽðÛ +Çðð-øV|7þ +û={;ˆŸÆ'á÷,> +¿Ÿâ³øwøøÏ„˜p Í^’C$;­!ËHY +¿ +ß ‰’mÀ¡§ÈqrŠ¼É¥p^® +sC܃ܿq/q?áþÁ¾€ð•ü¾‡¿ +ƒÿ!ÿÿ‘©¨Sô* +U¼¤´+K•ë•×)P +U¾§üX¥T5ª6«nRýDW{ÁZ}ö}Íÿ +(ßÀÊTþzrôÂÊ +*vãõ@1%iâú¹/r?Rtã +œˆßÁã\·%þ8·”ü‹à +äì朊 +®Ý +âø0ù5¹H~ϛqyçò_ÂϒWC”tŏy3‹l,ùª ;ñy +» +»%þMT¡xŸUr'jæK¡> ûӊëÞ‹É +8Ÿû ÿ(z—ó¿à +ø>°¯ã•|¹–„ða°¸—°Mã!4ˆ¿‚$ü +þ%žDâžÂ«ˆ¸#z¼œÐëœ +ÿ„KB-GœM̸‘\ ë¹ç•g¸2ŒÁJü݀9 +ٙý›A ÷’ +°iu`M~Œ‹‘ÝöþâÌóÔb+ÞRÜ röW€Ö¢ j%ßG ï¯ݎŠÑiÁ;P<€nŠáN°û«Á~4‰¯C¬kiÜv¿H#n° +m°êßÁþ¿V¿ +ÿڎEЬ)”ËӖ»ø:°Lí`ï„_'j +§GÐ=ÊŠ£lAˆg +)ÿº|ÎoaýtT ømBñ€µ–yF<2³ +Ið» +}´p^ +zÞÈ/Ë{_ü:Øaø¨Uà_E}ñûQ +ðnmü–ø¨-þXüԃÖŁýÝŸ@åh·¢ +lPøøR°±¯â—Áý +ß v{9zì‘[Ñà~-V<‡ÆùŸí¬Šßÿ)2=Ü@¡ÍàEÏ£­è?€n˹)T2³† +‹/åÁCEWǟŠ;qê÷ƒå} + +T)ÀöŒ!‡â È.’–¬o’ª_U¹¨"´pAyYiIqQ0à/,ðåçåæd{³]§§3|MsŒ +·Ð5Œ>X·6f¹á¼õò#LnªiÞ=¿Õ΍×YûDú8>¾[Œ +¸ºy~«‹æ--0GŒx—¶/ + +ïÖ¯a-r[Ks +ß +ŠttOòð + +qü¯øï™þàʚp¢FéþŠ(H¥dNР}Žù|±ü|* ªà(ธ=—l›$1Ï  BäC@ÛpKEˆïrQöÞ9)¡Íð»ºY~Ñfû’¾–i§-S³-æõ´el¶enx»äøDÏæ˜:{îŸAHK©ë­ˆá´ÑÜ%·×¯óÔ_½©Y¬oOж¾éŠ'¹}á\[Âr<Æ{R+< zk75Ó +ø§ð.õÔõµ/U +c)5͜´È±sl*ßkæf¦Í::ïU2ùïœT©A€Y +—Æ„öårޒärýMÆ/ÐQ¬¸<,±§X +ïÊçEW<_žnœ„ùlRß´i|<銶¥`¬ÆǗzÄ¥ãíãáÉøØf(xÆOqÍ\óø`]û,û'ã§ï´Ç–ÞÕ›èÅ Ú-9æÁw\}LÂw¬ÛÔ|J€#Ö +MÍ“šö%-Dz ­ù”ö™ÕZK+éƒHÀ¿VL5ëo?%!4ÆZyVÁž;&1buêÙ:Œ:&‰\'ÌÖ¨ãå:‰ÕÑ?j)jššçËS¬–BÀ Õ5S‡6 +裑™lÕ\ñw +­QŽ£?ƒÝq6AœÅ6@|óš!ÎÃú,ã6AÎ%b”€1DÐ3 ˜ d¢NÀ +Šâ70?¯Y‰5+‘›,OÀ*ôÖ\5Ê&&` +º]ãHÀIŠ +š'°E“ÿ™€u¨ÛП€õÊgÈu 8]cøÑÜ^w þŒ‘AøF&He,NÀ + +m ˜Ÿ×GtƊ¬DFãÚ¬Býs}Ô(ÅøtÖ šÔo&à$rØi$ÑK„X9§ÓA–‡¡¾õ¡¦Æûªeõáÿϙs˜‰ÃF nt®Ï0‹®ë¡ü‚p•¡bV[ +#ú¡\ +cz‡6j-Ì7 +) +v¦ +¢ú&hÝÊêD´Êí¬OêÂ0ÿ¿1ü)vÐFë¢pB¡½ûÿcg"ÔvN}°êà +b"Â3í3’˜u=ìZDl<½¢ë­†¼Öîf;¤Òq]0ë0ý71›ÿS8Uü7;•)Ó4îg»¬ëKçžÃ½f +ÂOdçª>ØGZ†-Fà,sy~yöËs7ÂNVCûÀ½ ø¶R +ð‡Â +PK÷´òU¬¾jÖAN9¸ +f©c§AZۄôpZ£‰R¾ídäSÒ;[/Sqa9ÈöBûÎòîÓ<“¥-4 <„ñ;æѸ/!?£ŒÒ‚±Ö +ÐtnÍv§u™Ÿ£l,}¾ŒÌï­¬¿Œ Փ~FÏ.&Ù]¬®‡ÍÒÅ(:£(¿[«õBû6Ö/xPM£’#¯9ò/(3Ë«íŒÃ]Lrú˜Q +;á‰Öw@]?Û_7£ÞÖϤW$±/J±®y³lOÌùYëu&d> +åf¦Ï2֛œHÌüY +Êa»º’RTÚüŸ!Ÿ^Y®§´Þ9µ%aXµ?Aía6Ûȹ¶Ÿéãë?ÌfÚñ)^È|ºR›)uäU‡Ù< +PÛÍvð?ṘÅfAàéòºÔ"u2JËúf¶.:ÏÖÌõŽÎ“[y#ÿ-¥ú™6÷ÍqHÞÉåù¶3þoaܜoáºrq¹gúʶo”QœÎß;·¯ùÒMm•™þ²V +&äcVJ?)CÿjG—åcÛû§9G)Lç‚ú.6÷ìn:XÙÁ¸:ð +D?AïË3ÓýE˜%íLØúmÐO¶¸³vàÂýÙùd¤ºº-ÁË:6;ߧù(SKÞÁ³#Ÿ©Ç³ + +‚ÖÝÿ+l/SùÓ+t$<ÌæÄÓ|ŒäýP ª˜›z>zVÈ|ÍBv;žððï +¡65ÔÑÈo=ªOô +Bk´”&àà±°Qå¨ +¢šèì”[#€YD ýùaŸÔøfùþ+?A¡Z¦ÛçäBöÌ} kKqZÇö)ۍ + êG™œÒY©†n`ýG¶þvfaE¶¯a¦1²·¢ZO㸑„6ÊÚK­•2Yæ|Ñf¦†Ù'}ŬœÊV‰êÝ0³$‘è¬ +Œ2Ôzw3ݯÐ(£ÏåøRÆm–"‘„¦÷ÍYÚÎ+x?ÌÖîJhÞÖD¼xeð¯e!'A¡Ë +xÖɾñ_ˉ +#~šó),Óh éÀ\]”Y™ +Æ/YO»ÐõL3·¶%¼‚ìÛdm›[ÍRU–¢m,Rß6§ÝÌRΏ"‰Z–¹Ïöòÿ3 +“w·„IŽ,ב9üe¹ì›³Oߢ¸,ss©“ÉȬEe{—×lds +²a”ÙÉÙ¨°‘E˳þ¹`Nâg¥yëœo‰$¼Á0ÛiBêzg-a4áÙèî†çG¯ÐŠ-Õ¸+}rÏ +?è¾)]úÙü2‡)ÔÃÈZ¯ô'=ÐIœ*:¼Ù +cdZo„~l + +hÖw_¶'›ÙØ- \e +me¾"ŒnHĨÃWØ +*ëò)i6b‰\aC;™|^ÁÅٙÃìÔ™7› + +2žì¸¢gg".a=d¾úÿ—ž Àúo +ِ0K@ñ +°h¾Í-kl£sçÿÜÈÿÛ·3NÌÚÄÿ‹UfÛŸðøss7íìêwt‰O‹M½]âêÈ@dªÄšHt0 +ôEÄÁþ¿X + ÿ7t2q]¤”Ö +‹+`\Q(,„¬Ø/V÷÷‹kûzzG†Åµ]Ã]Ñm]M}[»†Å5]Ûŵ‘­áCbS4ÜÙµ5 +Ý"Fºÿåbb´«§ox¤+ÚÕ)ö +ˆ#Ðuý:±1<"f‹M«Å†în¿ +è»ú‡»¶÷B7ÿìLŸXéíG+6tE‡éì%þ`PÌ]Ý׍ +GºGòXèÎz7®[Ý´¦¡iÅÒ5ÕM+ֈ +KÅU+jêÖ¬««—­­«[]·¦IŸ¤OjêíGfÉKa@q0슎젻›Û-Ò +öî`÷}F‡»ÄÍ;Ä +‘Q:²#²íst ³+Êæ}o +¦“„Åþ¾Ž®è +î‰vumíñ‹-0¬7¼­KŒl + ÷ +Àȑ+¡»Ú +Žv‰]}0YTìì‹vuŒôﻣ‘­—ñŠÀZ‘ž.Öe;ô¼<®(íÛ<:Sš‘®ùÊžEªkØ?GŠ¹Á‡ÅmáþÑðæ~@{x¸kdþh¿¸~ ¿kx˜mžíö”`óH†vuôu÷u|zç"Pq`¤o ‡ +wvöQi ÷‹Q&u´:Êh +ë|©þ¾­}tC°ë·=Ý2<" +\7ЂUF¶ƒônîïî¥ëÀ\2¹·†wˆ€?°jp%Üe +]¹£ÇŠî˛ +ì‡F»†Ù2 +‘Ž®è@bÑÞ¬ópod´¿¤~[.•OoŸöNvõfÉ +£ýæöhÁ#᎑Ë<¦ +'°îþìiÊs:@a6wÍNë„G*h‡õëªÅB1waé‚<e-`4ÚÞÛ×Ñ +ª)n‹]Ã}= V~Q\1löŽn +î6P-ÚÜ;éšÕ +JS¥þÎaqk +íèñî +íe‚F»˜Œ +ÃlØZOÚNy÷Ãâv~°Î®„ø@Ýd¦Úø š€EœÛŸŒ0`4“P(íé!»®¶ƒäÀ&»¨™ÝƬEH´-Ò¿r¢{4*›Ð +J¹y*ÿ +ƒå–„‡Ö:?вÊÓð,â@¹N*H£LF‡éÈÆ®è`×Èh˜™ÂÆ~¦Ï”ð”Ì[©¶D@ +†Gvk;zÃQ*„0ÛH_Ç°êÆøî +&4¹‡î£ëúŽ®þ~ºá~p›ûúûÀwDFûgõ¤'W¸D¶î¬7öuv#G‡e9Ù +‰lfm +÷„o‹:,KE´ +\5,YB;# +£òiçpÿp„uc0Ø–­{¸lùHÝ«ÿ¿P‚@ïÈÖþÀÖúMf`ëpÛe +Èc”ú?müÜÞÕO%ñ¿BŸ Åg½Ñ‚meAÙ»¸€c +ÖCèp +<¿ÏÙöكP§|ˆá +âŽqßä^€tŠ;Í +™7W˜ +!³Ï¿fsw]±V׳±ùx_Ä×óËø« ±(·±P~zq +?Æ!VCÿ(;¤Ñ9V$.«éQ†¶ôi<-ƒ°wö@G/¾·TË.f–%.ò—\Çp­g‡ùÒ^>ŒÑ‹ûµŒ +o?Bè4jŠOq¿>^WW,MBéó³r"7¯øm˜HÏ(þ&÷krCN¨8;‘fg-¿šX²$”/”ãù +Åg«“¸_¡?A"ܯ¸³(W +u<×_|¡Z˜û<2`Œœè÷KƒDÄ½s<+»xÿ +Ü ý5îUØ +öê„ÞX +~—{™“;ɝH´œ8žl,FÕÃÜÝ£)ÈÏ@:é$ +E¸§Ð.H{! + +Ä#äNHH +´†;Ì +<Ò  E í +Ä£&îëP¿ +æÜ!î:䆱wq÷"3”wr_fåP¦Cù5¨w@ù<Órâùa(iûC‰úá9 +ÊåýPo‡ò>ö ²“ûJây7Êƍ$ÊÜð„Ã)T; ]„„Ät/@÷éw!ÇÜ-\?[é”ÅPn•K ×Î —‡ñhçq‹­øt'~'Pn'Pn'â¡é¦Ù>7É} +¹› ÏMÐç&èsP%È +ÃzÃô8ä$tºÓúäSÎ°ú[!ßé}ⶠ+ó«=Üu¹N²žã!©¸ê9®H-qÝÇm™Å{/?i’¨ B™œ( +´okí:®ÑÑÚ®ãé™r ½¶T's +èFH¥Bž©R-$žë˜È +8OskÐV5’’»È.n¿KÁk±é®5ªˆ¤‰+D•Ð!ÏÙV‰´k5cNЈš FÒ4jn·—ãœ\€«â¸6N1ŸšPU”@!-SV”ìÓ +ÐÆ´SÚ3ZEL9¥<£<§¼ TˆÊ RR6*ەƒÊ1å>å¥fŸrŸŠ´kµcZNЊڠVÒ6jN>P}·™¾‡\€4i$ +hÜõ"w-¤6àFâZ¨G#x ø +” +x2@?ô3@­j +P‹ §-Ú! +&Z•s-³chÿ +´R´&C-}å|ò +‚´žôð¤‡'=ô:C> +ÈEH8VwH +ä³mÁD{;$%k¿Àú̶It,ùX +çLåáX +>‡÷åa©²ªºXrCf2™Ú1Qy3íÿ8Œž¿†ÜjÚÿ1ÔÈÆíÇ+XýWã +™(Ø +«>é9Sò4ç,šùã4‚Õt'–ÂՓúuKpÌTê›–Äøê'Uñµ± +¾ú˜ºñsÍÇ0þb +<ÅÈ +“55ƒ€ÒªÛìôÛSãÀmwÛiyÓmw·´àúØTªß,Æ>\ûHºzSLáYbEiÛª¬U¦ÅÆÐÒÚÏÈÚ¹ïòŸÕ7ÿϚ»¯~]sìë™-±b +Ä3[êcË觹§È‰Ô՞"ƒ´hi> +o Cuki=¾¡¶e®r“Aè†*iA» +GnÚ +¹ñqÖmëbꮫ=æv˝^Â+h'Ÿ—X§ +y®,Xæj¤t#”ÅæÊ"Ú +äAžÌ02 +Â6™A‡Ød´Ó1¯ºxi—c +¼Ðá˜wk>|¹Ùã•ÑiA^¶Ž·°u0¾Ü'WîRèCÔÐÇ÷ù×µäÑÿ¢³ƒ~ Ýî©ë‚Ô +»s[¯56¶Yuþ"ñåtvûæŽ^Z†»b¿ðtÕÆ:=µâ±pÇg4wÐæ°§öê¨kj>Ö!uÕN„¥p'\ÛrüÉ]5õW¬µgn­š]Ÿ1Ù.:Y +]ëÉúÏh®§ÍOÒµêéZõt­'¥'ÙZõk—àúÆæcj´¤¥æ¹ÈGF­¬n”Öµ®>¶”~°[«¬‹Iíµ-˜²c4ñWÓ, /T¾QI"•»*÷Vî¯Dpàtõá+å +áa8H#`ЉÕÓa£´¼ÜlpBŠ +-#Z}ŒàçÈ· LU‘&‚Ÿ$ßz†CI* +œÀȦV*^€v‚8œ‡4x +¾Y}‡•—*×+W_ªDU +CVt]F/d8ƒG‹ÜÔǒ}„D~ +(Ñ4³’ܤø"JA’ç>ãSFr»n‘$= 1¢p +x‡$Í¡dw£+ÇR›®¥‹´N_ª¬` +éªé¢ jŭ؜“MÊ´À¬TsªÅAÈM÷wí{xã£k\é+wÎD¼«º¿„Ç‚Ëq| ¿öƒ™û^yóèøS~ÀaÃ!$eåñùêå +7)àM4I€€|žá”cææ'>nM)K³¤™ÌR••—›ÊJsüÄÿ@×ÞGfÞøۍûW»lõ7):óë»ï™Ùþә×fð€·îxË+??I1˜9 +¡ä÷­“rZH‹åå4Nci·±qŒT€Ï`%žÄ¥'Ðß´‰RéR+¥Q`rŠŠ/Åev­#ŠKËýtæ/ÅÏãz i‘OÊ@’RËI©¢L#U•µið~ÍQ +Ñܦ»î:×PÔç£{+ +zöòN0 +HÕ~uõK,÷$úM÷Êø{ܳŠ^$ ,tz"¬!›P(Ì´ÐëÓ'±A2iÒQ¶”M¤ìöìÙç²ùl#­NnC´ +íEÀ"ؼ§±6š íô¡uèÃÕÓ ¦×ìVá,O–;‹( æ0Qª¼öL»ÃÎ)S² +^m¶Õf±¥‹7nFNeúfœš +Pš ,,nÆv5d&Á¼ْ cžŠfù,åçߜRjZ¼²¤S ì7'{`I+)._PnvÊ +%+ïÙÔþÈMßñãÍ/ݼõåºÐPùˆÃÌ +åUԖ-/%¾‡ÖVïeæè3'¿òî‹›yïØWÂÑ#8ôÞÃÃA×Uëf +N€âŠ9p¯ô•U²X3®*µJÙhfp¤¥å©*U+TO«”’ø9~“ús–MÖ-êãˆéíW“4 +Ñ +I~Uñªå{Ö·-o[ωÿàÿa1CÌÌÛv³-ÍfÉ´ª4­U›Yj[fÛcÙ+ª¬6B,é6M©çlD¡´Z€³ª^? hh4Rª®jLƒ5“\‰¤é{mx¿í¨ØNs%`yî>Ž‰Î1‰ï–ôHù›†”¶”HÊ®>e«¤ú_O¤#QÇD®]< Ñö +þÈ° +KRj‰]d/y¼AΒ?5±9Oã/^æõùJ™Û­«/¶N +ÀòÊéK­C•U—†Ž)éjñì^ +~A󆆠֡ßyªlF¦t¡ä.Ïì´Ýmƒö–äÊ݂bçËÉ/ƒ +E[ÁbQ“ëÜ« +¡²R`£Rå)—•R¥T•«¸¼|w¸íãs8ŒÅG:÷g{mo<|ð—Á•Oþc1ÞÜ¿qi:VÌ|äÅKðOßüäèЩïüd_OÏ×NÌ\X(Q·4`ð³¯: +’âç&t! +½±©Ô +ª5uIKµõnþ + +ÎË[˜'•¶—¾Qz®ôoI*TŠ«5»<7ø¿žu*ë´ÿUÿYÏYïÏýp¿ïÕ­PçM⻎çæ +h’œ?~&ˆƒ“\é N!¤á´I¼ÿD¦ä +”fÂ긠ÏË}÷¢T¤!¿•´À²ñ8y<¦ÃºI¼ê +Ç +ɾ +¤êO´©vÁÞ'É»R’TŠ”N•’R4‰?+¥¼BRl%TߛcãÎtëÐEš¯j雎VM·N›BY?ËýGv’Wº] +W–Ëë╠+orvv(^€/܌ +€\ڜÍ8IãW7c§>“j¢P™ð¥ù7Ãpl¨5Š†|¾”r¦À§4Æ,WœZÒҘf–1½ÌöxÊÆYUoű[߸äôαÁ{fþ¸§#ಥ¯·xó»ï÷¤;}÷­ö/¿¹ýá^~垯\×°éÞG‹NÞ»ùPmNfZQ¥Ô>ÚßP¿03·Ú‘tí­ +=»ž¤öMm=Ü¥ßëýLÊMÓCx_§— +œdÀù:lV1œF¡Ä¼N«G¼NÏ+uzЪ +ɤR§ªTj5Ç«”:5rê±þ9üxz-Þ/éX©Q+•j¯ÓñÏÁ „CjÜ-i5‡÷sG9ÂMâ¿IV\ÅÔË€Û + +ç +œA)©°Ê–.žÄ‚– +ãlô„›©ï)ßg;&XB*dÒ$38˜Ò}æfb~ +NåVô#ˆ0˜?¿È´<áÍ}xž‹I™ïn\ÔÉ@*T/¡%“ýŽ¿úRÊZBñù"xôIîàãA +’Ýå}ÑØSþ +ÃËn¢ÓÛŜFwÒª£x¥Nrk$§C²‚ï3hœàðÊíB +Áåt¹8×÷ì¶,êþ€žÔµƒà’—Ë€pžøG­Êsÿ +¿Çé ä¯ý¤ãçŽI2îÒ?ÿùé€À!ïçü5ì‚[ +n:¦TMr9' +|Oøoq«hÈåГ||LZTFm +‘FÈ 3è +øQ¥R¡ '@€€ƒX‚HCXÀ"8Ík4Ý@qº™w•L>>l` ªj +òA ‚DCI@П—_ðÑ«4qÃk/®eÿ½RÄ[Prë1Bí¯dÂNqd¢ +GÊtbGIý÷d¤‚”ÄýF²¨I†ƒ3¨3Ò2‘sa‚±Ú×@‘Ö×ϼ +PÛ.LOÿÇ8 ÿ ;w¿ü²©(h—ìêdƒA/$94ÎF—ÒlHҍév{†5Sé¢7åÞ2Z +6—²ÒçgåDž\-fËÕé¹Úª'̬îRJõ-L +2¬4,V8\-†ÂúÔfÇu† +¡×±Mãw'v +»M{ +w86<,+¦±0õé|·°óåJU%ü£zÑzù Úڂ]*¥95Íbv•A +µ—à4ùª‹–pO_úË5îE›gÖ¯·•,Æ¿ôà·B­ë.½u(wàwàï¼Ùã +¨¼^ƒ5øeþš +¸ãj +×Ëû]mXO².ý‚žÜñ¿S¬B8%/$;¥à&´É±ÝáØSò`úWsŽ¤Éy?ý9¿è¢rv”Á·æ¢ÏW¹zd"?_ë=îq +ïÛY1ÝAB%•Ðè4°(•ÚišŒ4þ`¡Evq–ÏÇâ‘ê@©'×êÀªt»ÍN”Êì,/ñ–dçZ³Kp@UT‚=Žì®•p9ö¼ +TøK7Ó]‚ +Å\Y ¸VL*}óú,>w‰£Ñ(ŠÍ +" +3Óh¤¢Tz\e%Å +ÊËè¡"V Þ›F#–r9L1ÊÑK6 +F¹‰»—†Çξ{i¬d½×’™³º„¬|¢ã¾Goºt£·-tϗ׼tº³qdèÄ·6¼´wq³<ãXrÍm]§Ö{Ë=Q®ÿó®¯5ëÙíݏTªª/¬Þ~(í£ˆýñëîiâôÔ·2þk +lu&ҍ#€$Àœ÷ +tØÞÁLû{™j͵Zy¤ŠFûH%¨T +Ìõ;©‘͵ͤÀç, +ÀÐþô#"ø׳vξ®±l°ì@W†¦ÆScñIp{³ttl«ÌJ§•Y–ž; +w³Ð¨]y‰fÀÁÖ鋭ç/}èkm®d§:áð/PÌ0GŠ +a +¬„éðWN”TÙM“ÑEù!) +ó]ÆTP"v"_PÂÉjvYÏ(gÂGpþHN©ÒëMN6­]?󦐻ðwýÁÅÕ¹£ý1ô‰–ô¬¦ o6ä˜KŠs»äÒ{ +ÿÈLnG†'w¦zSŽE +,Þ9sÄk¤nèfG®wæg[ÍÊÑå K_]*Å­RS¿ÔOl9é¹D° +6"–Kåíå׫­ƒ¶ëó÷Y÷Ùb֘M[ئݭå¬åþôÆòÁò»øoðçÊy +w»vªœ[®v8íÖ¿¸MN»Åå)eÚuœi>þ­^ª)z¨Àbµº•¹\r®[ƒ}N‡ŽòÄÁÈïPRò;ÜFc£iŸ‰L +&‚L‚i—)nâM<å“É4?ÿ +ífš$—´I•ÙؐíÌ&`æ/H&[ íÙ+Ê:Çe¤:| +øX`ÈØyž +ë”e¬ +&Ìl©èS jonN^N~§Ô™5¸Œ‹°èŒ*_R!Ò{ ÄäEH“£,ÄZor!’ +';Øõ +SPã95¬TM—" + d=5RcYæ2Ó(Ûl+˔FÛò5 +ÿ>ˆAӎoÍ\Ú=tß_ÆêïªvV¯%zۚÌÔás{f¶ÿàÁ +Ý_ùþÊ +‘ +))v¸éÀÕ£¯ãO/ÍL}%ۋïè®reg—z·Î„W|üÍ¿ +âÛ}­yfO p¾Ž×Óÿ§zQŠ¸˜nº$J5—”[fs +åj§¸ÜV§Ýärۜvìòhœv£Ëc2‚ÕV¡|³©)Ám< +jskÕcêsj.®ÆAu£º]͵©§ÔgԜš§ÝÔL»Ô“ñ¿?CÇ0#e2³áÄrÎÅ]®v7å:ã"á_÷€c”ÀÂ!àÝjÆ;м*Jgàͽæy.JVž]S-”–äúKÏ›²­ú$gA0HêŠÖeÛôI¢/èõz‹Ä¸þ +—ÍdeðÇ÷2˜Y»ø¯9#Pȃޗՙp[J[*é´ +ZnÓ +6Ly&+z%/IW˄Êd$J³fi6‚I0UJ%©NhI'l¹zMfÆdüŸlß\|†Òƒ’‹Ò$íÑՒz¯z¿ú¨Zñ‚ú¬:T# 2ýAJedJcôK÷žÏt.Ë;IŠŽ»Î}Fç[™©‚Ãòj!A£ééÖ¡ªJù”<Béö$]º.cÖ&Ùµ¶ElT%“Vz³4”r™rJùðwY +g©ûF@kÍ#×öÛ\bIŽ%Ë +`ôTä0"^ê{ð[w·VٜùŸ+_ÒÄ=:GSˆo•šñ«Ò{+NFjK²MŸkÈ3äóA•é*|U ÅÁ½Ö­ +ÖûñCï[ß±¾‡ÿhÕë­à•Á¥A®ÜZ +\få҂9Öì §´*‚ +çCyð´UXBÖ2[Y°ª¸¡¸݀¶YwØF‚ãhõ¶àƒèþàÓèÉàâXñ,¯Z§ŠayÛz¦xÚòëlçŠ?Dÿ´ü-è]ŽWX–6áˆÀu–ëmß±¾|Óúfð]ë»Ád9:öt—Ûï´çºÜÄiW»Vqɳ¢òÑ +¾öãoÎ ÎѺ‚úÿ´¡§nó +øúSÈìúrEYÀ?j +±dܔ;èÿJ†j‡õÙ¬Ó¹?·ÿ<ã,¥-Gðçf‡¼¡œE¹Aÿ¦œ¾œAÿ˜_û +„Ó3ò2ê3~fû¹]q(¿–õ¶å¬·álþÇ,e†äÉÌU'SsáÆN»ÊåcbvyP¦XŸ™[åiðGeÎÏ +Q«Ô&”.À [JLW¤¯ðS1Z\U†üXòÇüd¿ÊÆÏù +0 +j1 + 0 +j±ÛÌ$*™U&3·›üh¡o?î +w$Ž§¾„;MÈTëjzF͖ϨÙôŒÊü¬|"¥×â!Sȗð#Yy– +«77;χϬ +Èrlù%Øk‡è"Á͛oF+šÀå8@Å<‹x·C\„\¢a%!;à +E!@j¥w¦Ÿ¶"촙–¸™ÌI»|ÆTá'2²W—^z®dƒ7ÕLüŸ'´ïçß+ŠV—­Íì½ù­M%äƙÑ1g×»Ð9ÂõS¨~â†'Ï$/KJzl¬ùþzúýñ ¤èÎç¢RB¤‰,+%——m·›nË~ÅóJ!·"ë©BbuZüÝYœk¼ÙÞe¨GH$ëF|#v‹ÛÜ×{ÇñnñÂÃø°÷Ùìç +ãYf¥x+¾+ë֜‡²â'ȓYG +_(|+ø§Âx¡Þ„Òp:1åw‹*üÁ@R¾šdd`³Ónp¹‘7׎ ®H†ˆÂiÏpy$RàÍÊrœ +ÁWÖ"U~ÞAvŒ²Ptá(Ô¨jWqûTTD +ìG2J'ñ—$Cqnff1$'Ãé_mb׃Íòõ`]Cr +u‘p8ÄuB(ÇÄógʹòR5“(5£ƒšI”ڝffef•f&QæG˧° +͚¨„8 ­Ñ‹­C>öC@–¦@BšŽizZqj|— Â–.Lï¦WsôßJédwq>öÞ«(h¥òVXäð8½ +ž@ .r@æw” OVP,.Áhö + +Ä1Qù\Ìl——½¸Â`O'RC¹`¢O¦2cà +B((Àü`Ùê€+óù\.ÌDí_‰¢ŠÞúáâ„0‚,*zgî›)+õ!#{UJsÊÿxëõ½ÆÖöñÈÇW¥dh^zeÿ- +ä‚ñ̶+E³êéѝ“Ù37ÞÞ¬#÷âC_ص? +ÆKcñ_ó +8Ÿ-$%›é+؀ +DË!Ÿ‹ò¾Ü@4ƊI¼T:S¾°<³ómÖ6[[z›]©Ð+’QþT?¢ +я$o3 +:ƒÁà +õíÚÝúÝÉ·vûñ‡J“¾D_ª/Ë,É,Í,£×) +¼èyy +%‹ñbRÅmAGÐt]UzUÙrýòü&íýFaCÞ_¦;‰½ÄYf/o²6ٚÒ[Š¯)¹¦ôš²kÊ7-Hæ´Ú¼­=Ï£+å+¢¦hʞ¬T + + + +L徘ÿ +ßTÅ +ŠÔ5ê +v!ö£ø +Lð.œ¸‘ôeeØ3#N»Ãq:“Ö”Ú +JÍÓ%§êtÉ>]~2Ÿ­a +҃/At™[Äyré- +– +îRŒôr{$!`|ÁHαhl² +Ï^ +ì·‚³×th»õ=B‡omi +Ðއ†‹ðtZ«!Ä +¡’ ¹Þlôø‰Ç +çR8*9³µ9ò=žÇXâ ²˜çdgeϾª¤GSî°×ÔzäšÞ;|‹ßÿ֝õz~Q©óÛé¶L•×›Þ|¢ç—TäÌ<ñåUç¾Ñ¿c¡%ݕ‡Sßî×îºzqIýÎî­÷^ýÐY¢ÊÀ?¼çKí·n*î.p|{䮦{~\fs¨ä/Ÿ +c>ù?¥ŠMxٔ¹É±o![2·8ÔW•«Áõ€â~û!œvÁ™0“‚Ë­¡ÖÓ£²z“µk’LI)ìC’%¹Êd€éÑQÄ£I’+¥«5ÌÎi˜IÓ0;§q[Ҝ>µÉtrŽ6Çï8MrQZüIK­`³i0ûq±³U¾&ºØJ +ž +¬¶ŒN0¡5”}çùþè"ã +’´ef›~Ç\ì%8ÌbáUzH#jù¶lÎ'썄€-)üc†lmŠ³§éˆv—^¤¡Ïãm¹¥+UقbÕÌKMY +>º8æðºä”þkðbJÕC3בv°'*t³d•èÇAŽWdsDP)³6i,–tŽâ.•qò•:c’gA™À‰Ü 7ÆñcÜ>Ž +à0·[¡ŒaÜHÚ !65èœE´‰ +r¨z‘FðX×UK·¹úÛ);²/‹\F—iŸYŽ'g~ +Ý3שpÃ?è÷$õ3}„cxÞ*eIšÒ®Á€©R•‘ à³ gªÅt!ȏ)2²´ +€¬BT +*Æü˜bŸ‚ +P`Åî ° Àóy\„\¨‰½¸TéMöíÅ´u +ª‰×£­)€f¤zÀs9àù+Ŗ¿Ï4(;aÆñinw£«¸‰7‡b»I©’¨t™í*¿W­ÕÒ¸‚Öz‘®„FøZ“‰¬/I£]àùWÏP±*¡÷f*%¬oIHÅJU! +þD + +ñ— ŸW,ÕI˜T'efÒÜMºÉøO$í¤Óñ»¬ØÊj­¬‡Uð:T•< +€zNÓQ£ñzàeÈO|¯ã<0C25õKŸïeá'¯Óë»ÑfŒ—Óºrl¡±ªCš“IœÉgډv–ÜŽîÔÞY¦Ì4¥UUcU¼&c•b•²N¬s¯ªªödª“’U"r¯ÀõI+´+ÊêÔT¬¸j£¶G{›æÖ¤[µ†¦´[҈³ª­Š´«KPi¥?¯°ô9lG:¤‹OÔ„t¹ÚŽî=½¢LÐ5êˆY»ŽY±MÇë*­ô¸‘§ +5XÛ¬+°î²ë睦;VJ•¶=H?),ºMrK%#¯õOâÂv/*Ñët¥¥@øÊõ%ÏÑÿ!r€“CÈëôŽy÷yyÉ{ÁKƼØ+ÐNÞçH +ˆ¦dÎ2Oâ +Éa„ŠTRrH„(lLÅ *|A +UXU³¸f@vCѨo5½e.ÑkHz«œ8ª +p€GU/o¦‡ª¦£ô +‘1$kO@þh‚ÓÁɬ +†â²þ€çXV¶(ãHY°°|!QjÔIj¢t¹E7Q–iC"2f¦d SŠÁ©ÏÀnÏ"E(-T—Š¸¬TkÊ2p²² +eeb1u"̝ø|ùùôµŽâ!4ΣÍÓnmÏØffŒ›¾˜²Ï¸Ïú$ +HŽzŽãñwUßµ½¯>Ÿññ"¶*ÉJÓFӝÎ;Å1ϏÊ(âçãçÉ ÌF™ˆ*OPpávט‹ —àÙuí kß¼[« +.½«;ó,„ªßMójT™ô蟢 +´Ð‚Mj]?pêpƒn¯Žè +" µ£A´ÅÐ:‡4´‚ ¯§ß’NÓñþtœ>‰u’é‚#¥ ”?¦U(kÜ5§È—äpŒ¾[k]j=?¥˜ÏW5==ÄÔî¼IÖ!)i]fGæp&÷åLL¿»-Z¸p!^H¡ìš +Ž, ÜH°†ì ³'SB +A Ç‡)sê©cB(ñ†´¥azCJÊJQIâ㙜ìÄG•LA.¹•Þ·nyä=ŒŸÙýoE‹ +F­Ç³¸óª«Û³y͂R|͉ocåÙ·pòÞÕفló6§cåæǞø¨Æ¿v_?‘ÿ!`)$õ ÙÊ°{ú<¥• •Z0&lHÌLcwFiZ‘:#•'‘½YYo¨ý»ÄDR´ÒbÆiî7(“YxÊtš&¹ßHBŠ¤I&ëSR‘WPÀ1oQõKßtNx‡_‚o˜b þÁž íZŒB¢–ãèЌÁL,e¶g’L§¦Ñ¦(קñÔz†©´yƒrB[D1àÏc}Øæ”ë•Ê€Ÿ^;ø^÷eO5õ: +Ó(2­­¯WÑ÷ãU¿„õéÙ2>u|Ù²ÒU‘%>i{à&þ&Å8?8˜ +¨¤ÀX€ @Z¾Ù·^±^Ýä»O¥Z®Âb`AÒ²¤ +IðO娦|D‘è: +Ò® +VW)6ˆ×ŠÝIýâ +â~´_üºê”ê;ùÚluJŽ®ÚäH©5gæ¤Ug82k0L˘՜¸ ÀÉiHë҉Ô9˜ÌíiciGÓ8gÚ¾4’öǼF%½MËõ—ÒòÙeeÊÍ®Ä!zõô¥(ýX‰þÑÏF£°e£%$üuúcüW$Ìú§gûxuŽ7['"Y®Ê+â|E8ûž˜~y¸J8½f¡c°­`Ye#j#š¸LÉñ–$L©Eá)3Òã@B†ÉwkÆVÞwîïßÞÑ`­é>=6\iöBíÌ¿²²#Ð\÷¹Xÿçz–^õÑ+¯àe«ŸþêòtÁ3øÑ/[–aô +½Šßª + +5ô~ﵟD¯{¹Ž‹¡T”ÉíLHt®:-Ռtô3 +”ÌŠdf0“ÍA aú$ÑÿU3ŠÙJ +HFzӊÖî5ªè;`B¯Až¡£U̺B??“àµg©6ðEZ-3 +4úaoþ lmebýKßTàõ)jjeiÎ4ÓÏÏbˆ™uâd$äåw×YT„•¨Š©8¤j§@Å«îá¿ÆOð +]J[£š˜MÅ95Õé€}Rv +bOw +Er­JNv:d)‡¸kJû3¯®­/Ã1³˜á +˜Rq—l¦6k«­ +µ§¾É)lb¸ØŒPš”r²ÏVjV–ªÔE8™ˆå–²êuùþR»Ò¦iN¹6­Í²Éú¹tæ4J•F­S˜W(÷»”»uãÂm™“ÃÖ)?!oÞ.’¿p)¦vU»zv·Gó¢ê{† +*ðt*ý­„ÓP=Q‚ž¬,×,%Ë4 +Î&Ò¤ÙL¢dOÊ +ۃ)OhžHšTŸÐĒ¾K~OÎé.&¥ªÏ¨àÀqFE†hIiG/«b*¥j'ŸŠ‚ifŠjŠ)dj3ï2ï7Ÿ5óf³ýÇô +œøp < +/Rhñ–´Ü¢4¾ÆŽ)GT?P§åÚCÿ¯½o£º=gf³³¯Ù÷Ì>gµ;;ûޕvWÒÊÂ;ÂòK$ðK²VÀI€ÐZ2áa‚c5Œ›4Ró"ý°o{r“¯µ0d(A¡j +M +|ۄۤ!½uih¬ÆåÒ4 +H¾çwfWÈ´iû}÷ûî_ìèÌ9sæ̙33¿÷ïwŽœ~|ÐÔ?ëgýoz½3à‚œã˜27˽ʱ§qäI¸yî'œ‰ûŠÃg@Ǯؼæ.; žŒEÁ!;ØË쀑XÈ»tlŠnÔ1“ˆoÃ+ӽΠ"u™Èh4äó€T|""' +ô9 ” °L¢ŠêîFÓxÓØY +3=N;jv:DíTfr7k¢nÓ +u;I +pœtݬg@#΄ô£~®yÄëG¼~d¡GšÃR÷ R]’]u»LÍëtÎÏ:ñj|Üc +4cEtæ¦ÄSºÞÿ#|àÀ±½b¾?ÿüöOOá+Ç𗍂tK玘 +ßýð‡o¹×{üo0þáÏ°ù;_éKvk¿Eä¡„ØûŒŸ@9†kb·R üª Û)P(Dô\‡ sŽ +樥Úíï¦Ôᦨ¯›¬MÀž,„'ñ\R‰rfœ +8tÆm‚èÊåEa±q~YX֙aI‹Â’ð +ؖ¨O¸‰È琓^ƒÈ¥Z$cJ’ž¸ +¦ˆˆM€˜D¦Ãø+ÍJ±‘Ö“ã=§ +ŽB¾Å‚^ +¹ýùóz¨oHÛøqù„ïDŠígûmÛ¤ÙmÆ/p©p4ëœäNZ + +sÍ,‚‰Ð©ýÙý9&Ì9ÎF¹Oµá³QóËi±Dôdô +(u%•ÎÅ¥œÍ¸]&ÎÌ +Àð +OÎeeùÅœÍ-`A³§3Øít Ÿr:q€õÉÉÉ*Í{zô¼ÑÐód;Í58^s`ñýŽ)Ç¢ã‚Ãäòϲ&ÖÜ4hé@9¼L@—j%½${mââ!j¡èí]9ÔÛX!ZI©ép+ª×ŸR|)ş#՛ +ãwÙ`‰´Î€‘-‰Z +ˆïÍxàCT`"R»¯âÃ_ ++w¬¼’I_+93öÔômc=Õh 2‹¥ŠZø;´ò¥™¶|2™î¿™Ù»­÷ø×îê/tGkñßðxÚ?øòµÛ ~òšÕ-ì_™|ڎÆÙG´¹ý£¤Nt²¨ ìcîÎÞ½ƒAYSÑtÃÇeC£kdßÁ®»RSûf +³Æ¿-ÎÖ~gã›gùlà³â‰‘Ã9ãÙÀYñÛÕo.î»°ï'û.ï +e_E¨y;cûŒsò³ñ’6½óߒ, +× +Ñ­€nï&|HÏáµ5 'Ê¿µqR9­¼ °Ê~쩱ÜL +Õàǚ +ÚºOÆOÇ_ˆ³ñæ54'—ÄI[MœÀ0·e@#Uy@h€9ÍsÃG9Rp‘n¸šéÄ&¼im×lÒ_’ð¨4#1ÒóÌ_ A®aÔKNñ&³t=¾>Ÿw + +y£d_GÃlY‹ e|°<[>YfË"ðײ +P¢\«ٙx'<›`+)üùYÁK +?¦zôN݉Ii§Kã4 +Á@°:›Æ#é©ôbúBڐv@ËtËcJ +ÿ¨¹`¤ï’÷•÷iûN‘wnÜ—†­¶ê>Çìç¶à-TßÒ.û±Ó?å‰û ++oh.j•³`à§cô/0Ïkž +Üh/³£,3ÊbÄ +0¼J)R¥9é• +ۃ˜ + +gàÙÛöî{ßKô:þ‰ãbŽúZAa'z9-,ç]rÓz´ENߜ.Ò #B‘šLaå5` +a¢Wˆ”qH€ö¤1ág_Š¿gŸ8ôæ2„CòªBjâ5g­Íjéû÷ +îéٜ¬ +#SJG{¥½ÚΚúR#©¢’MíVv†qxC4ŒkÃ2º7dt±F£ +á0º!·SÆýâ–0Þ¥î ãÝ{"=!Ò<´ +µÈxp Ö©1›d°¼zÃøºÒõa´#s½Œ66 +å -ksswõtQy¢Á¤‡&€ÙMSÖ¦ñEÀhMpƒàòî¦Í¹eK¦¡%0ƔH4u(ªÂèFπZ¥ÇEuÑ«°nªnN–Á¦õG丶sïùSL¾˜s°&#ëÌÝÓ½ôÅþ­ùX¼ +žúÞ5oÿý·¾þà ÕU3ï¯æêØ7p ¿::tóæÊê/Kåžϟýj¥ú +¿Á×e>=þð’f4YAÞhÚ65ó´7U÷ºd³5ZìS7Lßò©= +¢¨\k¹%Ö +KÜÄ +»û¾Çö\{输{¯}û·*cJ9¹ñ趪ßo LÙ qú?D›ëdf›¼1Ò­â +¼‹§Œ“p,RòR€"ØR¨†':HÅpËT¤â՚ZÀqƒÍÆìŠÓ>âú(@œԒÂ/h¤\¡ +c¤pIsR¦Lû+`¢ +õñ„ÕºIRHJ“¤¢*a¼Îšf!×Ö:‘êŠä +fÖ¥肄ë^ºD€²©R¡UXúF‡°”ÓkÎqin8VuJÖèžÜQ­’N¡K—ÊSöËS–ËS¶Ì‹´J¤U"­Åî. +§ÕqZ +§Õqò4—)µ! +7ΠRxû8W(tw5¹6eÚÍòyºÈS5ò|Ó +ÎR·–­ñݓDnv*ÎÔL÷\·a¾{±ûB7›3áÑîÉî)¨Òº±Ì‰™¨kuj®¶B&ª´ñ™¨0ˆg¢©Ö¡5µØWÖú±¬v"ú”D¬r¹^“–9 +ÏóØÉOñ'ù—xDJ) x²+Œ& +SÃLa®ÀÌ0À.. + +É®/ +¥“ + xq +J ·Ü©ËãU§Ša®åž÷ÃFΤ„Ra£Æf.hŽ{¦Á‰4Ø +\îÓ +bW§ +áEÃtüM^M½žºˆª†¤¶›ÚÔñðÁõ]7ò8ø²¶ºÑ§uðl¬¿Ü~û€¯¾eµçš„WtƂ¾’»Ÿ\¹ù¾Í»oÔ¾²ú'{d1œLª)á:Üÿ¹›JՑÕðMÅX2éá»w³×èÚ#Ìê%;3Á+jcšVõs(IA„~Ú)¸ÛãԒ§Nû¸Gd-„ƒPZnp +êÎ-zw®|ïihm±‹-ŠO +ÿûlÝ~ÒB·—Ÿ¢Ø&ƒ9$0??JØpÛA‚Ó&l¢’,ÕÚ¡S›ÉC¤Á— Q??!¼2Ñ´èVôó%ÍÌÁ´Í5L°Ëâtýœ + +lúúô‚&uu™vi`ê:ebà¦Éñ6³ +ïZ®´X’ ;Å;`o§øO¦ãƒˆOñ‡Ô<££P2±t +“Œý•óóº¡¹‰ +Ò\O&§’sÉSÉËI£œ +M2ì’À0;:ª4ïîÑóBYÏ +͵¢¬ñ +´Ù3Q7A +Uꓣñ~›dó̑G©#Ôf3{Üüœ[êÔÅ´‰zš4g£Æ~Èf³Kö¤¨åê"µùwöTçD<*âIqJœO‰—E£x&qæ):Ð)݀„õ.ëb*á¼}ÝDúH`¯#*>D`}ý´¼5¸îl +¬Q¸Îd7lÈf{7|Tjï[Ý´©²˜£Ápځ½ÆO‰ÞlvÃj|EÞ]'€ +ìÝ +ß÷Ù¼,9“SB®!Pë$PëÿׂÙùdf½667u + +‹M@¢± +H)ü¥Ú¶XÚxIáÇOÁ56ãó„R´¹cM%Ò¿óhEë(±ê¡ç¥8¹ +!sSÒõ j“ƒAé€dÓ-è€d³üWÓµÃì<3X +\°ª€l©B®õÔ7TqàŒý@çhkÑÀd`*08Ešm™¨y  +g¢&5áUí}ž¨·Ÿ +ÉlâNÚmÍnt÷OmCuΆGmxÒ6e›³²]¶mgüë@A'‰Þw>>C¨NB¿ýÕß»õ¹?"U·®6Å #&Ó.ì2~ò­¾ÝÝúmYíÑ­:EÂÈ +©L4‹=ì_69x`œrðqª×\ôÓºv +•[¼¶ +>ÔhNøÆå +m•kïÚÒjµ¥Õj +†V[ú¶öÑv}Pú( ô +yánC­ë†Z¼}¨Õ)üJ“ íÝ +åèå9zy®‹ú +¡¢‹Çw¯ú²»ÂÐq, iCÏÓÐã.íÃEûpƒGïC.7mÊ/ê}ÈYjo&:³f +¦2Ó<ÿ6Q°Aû¥RÇæm@Tå­;wiЦ´ +ì:¸ëè.v×nÓÖvQÉ[ͽy£™FQ”@Ԙ˜ Tte~-Y€îß› 2꒐£ù7(å]3h½¤{Ò»Õl4ïܵÛ,¶ouQˆwÉÔ(-ç¨`‘£u¹®>zÔGú†ÈsüÃ3º™z¬ +D3¨îÒe4Zxƒžíê•C- +" +_Ò³CCãcMÄq­í2ršÈ# úÌç +Ð!ôÎÛwŽ½€¶\ù)ÚLR‰¤ò•Ÿ>%‘Dúo<¤ +«æ +ã?÷³3ÄÇA‚ÉÙñÜ8TäLT\`Þ>Û֕‰¶“‚fmÊD·´¹2ёUÎ&r™hyµŸMôe¢[HAۘإ÷íŒîêç2]ÃZ=“æYÙº{|%oã­f“ÁhÞº¥½,øñ@ (¸’ñ²Œ§äy˜žkš³+SÌ%»Ë]xªk¾‹é‚:ÿðž¾äÐPlxt˜™žfа0Ì +¼~Úë¯OŽ/0{ŸŒ)gxÆ&‚ˆ1› ë\Ô³ÞV(üôox&Í5nêhM +jÉAmI›Ó®$RI[<Œ +Î6‡²^"bPSC‘x¨ôïC]­0" +™ïБµjó:)é*nRÁ£Ü +[+»ï÷}ð“ƒÛ§ã~;ßyÍj¯gC<ÀBêîڇ†Æ׳eµ}¨n5Æó#µ +©}puC£#H9êÄÞ +sé€3•=°ÿÞÁÁ]=÷¯Þ½[ö¡) $\£øw¦ŠZm›5·:H%©dÒu©k×"ù®UßÞÎP2Ú° +ßôH>ÞäR6¢‹ü +¡df’Õ(%+SE£] +åœþ„" +%"É +GIRs +¥œŸª,ÍXêkò·È“¿Òà­>Íý(B/ŽÐŽ"´‹H†j,ªŒdy¨ƒ +šfZD.´‡+2(Ì$Ë@H,í¸®Ú;ì0-[ ©M×a4Kҙì0ó +¥%¥UX¢¹¸®ÖZr‹ëè‡DЗwÈÆM%?µxP›B;-Ó´ëý;“ +åž +¥ +¥œŸº´ü´ÊÏA•ß_«¢m¡z2B”z½Zä"ÄZd2µêU!b[Oh0\ +ð¿\­MÖ¦js5cÁ€5Zž!Gó5Ó|íB™¯áIR±Xc#œ?uêÊL&M´q™¨c ÉDº2Ó®fûÊÑöþ0JtTè' §ÓÁüIó +‡ç9ì䦸“ÜKœe&”©D’ÙXf43™™Êf2s™ù +‹2B†¡að‚ð™Éª®Ðäþë +[”X“A‘Ø@M¢1ØBc}úêÄ4xp©>ókµ˜¦º®ò +! ‚ÿÛ§ïýkûµ«÷½þ»Ä»ÂÜÄø„ +mi +®zˆ$¿¬ºñ +ԐæÄjjÚêì +€Üën±t᣺û¥£/Ý÷Á#ßÝQûе'?ö¾Þ¶•=ýرÓy{æ‹ÿ£þë=}ÇîÿÖêOý雟˜$JǕ] +`Ÿ%°¦¢:ÓքµÌÖÁg! +X™<’ÙŒ‡Ò`LÃÏd°µä5Jwi +vl:ç68LÁgõ¥/4+?ŠŠ£sÜdV)F” +#L “PX"¹-S‚KYrI'´‹‹Â7a-]1pu\yû)Ä +`’ºýy~C + +[¥‘ +Yç&Ô?j!*¬É¤UÚäP– +d0V + +¾tCÐ)#^ó¨^hºTsÕå7´Ö +íÂ>á¸ËðP +oÈ76 +æ÷åowݞ¿“;ì:œÿmî‹æ×¹µØËÆ*ãÕ;ªm.ql:ãö±Jz¨ÍC„+5ÔøˆEýŒ;—f +E¡ÃH3ŒI + +í1~Žg&ùþ4Ïò?“Ä„dyBfâBhô°c|²çÅÁ¦2“‰ U„@ ‡ ÕÖ´ZÖ+ôêSÆK5³Sª)[ª¬ÔÌ +2.ÙÉ®bé”q»µ(¿kÊ8µÍd•Šom)" +‡jK€©ø×ÙyŒ:Á„àÓ¦ Ãà`jëìÈïÜ8ýðÔW:Ó +úàª,u© +ŸˆŠ +®Z +¿±ãÀÆëoÔÆÊ¥$[?ôòá÷ÝñÛß_~ô¨ÏYX}ý¦JTQ°ßÚ~€½y¼,:Ž®~å`¢g캜û‹éëD7Ø~úW +ˆÀråð÷›° +LQR™òÑ >¢JG›º´tíҜåBåXt¨ +3¨CÑø¬®:k‚9brFÝ E4eÆÝV³C‡2õÊó" +X +hCY ¡¡,Àa( +0t£»¨È-‹êhÑ +3 +ÿž>U0”ƒåx#۝´ Énˍ9GƒãÑÑøÞìþÜAáæàÍñƒÙû +éàÑètühîÁàïæ~ßù¹àïG?ÿ|ö±Ü—ý_ +~5üG¹sþ¯‘ü(w)÷V.+îTîLÏz +ñ<â],˜wxpç ´ÚÔ C¢3cÁ +†ÇJ(Ñl69B!‹9ìJ(†ç03‰gðiÌbŽêû?Kµ +¾Qó‚ï%ßÏ}¬zW|›ò­xˆq_ÉM{$¢ +örcàÑݚS*&Ӟ@2’QÚCvŠ?!cÕ +a){ºK¢Ð»sb•{GoÎwoF¤ *w±MÃ# +@éd?$VV;<ݯ¸ïáíþOìýÓúdª§ö€z 1uêïÜp#{ú­Œu„E°Ö‰è{ÇÈßy ++² +N®”ð~ýµ¯Ÿ[¬ Ý +Ïì‰52¤ +$꛳ƒépjŒæü˜Á¬eñþ,Ž•£úâC U•ûRQµñÖ¬Ë+ +Ø ÂâzuÁ†mã,‹ÌD#Üoš ›Š±,Î"W2‹ÉxFž“$ +DC\”/ÈFy2󥵈X]Ç;tqúPsªÙ¡å —®ËÕÑ:3Þ!"ßÆéëlÅÚµ´®Àšqºk½YgèÎÃ]ÛªÉÄ +ŸÛW({ì×n\Ími“x£=Œ©<ö±§¿÷½Myµs³7sÓêö!•oI?Õ§n9uM8/®\d~@à¥ÝPm‹Z¡ðRÑ@:c0µ?cjÆÎPSmP¯Æ-òãFÚçífNuÆ +îœ6â;ŒØ¨”0ÆY³tOßÅQEâÉàT º­¨±41Ad ÉI6án"Dî;ÿýóÂ÷uNº + +q§Ê²þ¨»hd²íf½É=hÄ2~ÄÈ•¬¹?ŠD? +e¢ŠÛŠa„ohA€§³Òä +T‹Qݐ©j¥£É1—ô| b‘& KK +a‰F!ÓBCZƒ—òŒÛ]Ô¬õ|ÚZ½ã¶½©G +Ï$¼™Oó™ÉÊTe¦brV°¬ +#äò;öï8–’KÊÿJ¼œüaþ5Ãk‰×’¯ç­îF~"ÿ› +#ùY<Ë̲3¾™àLh&|¼0[´Ã¼'žµØLa>ÿ­¶o'¸0ë÷ºÃþˆ” åOXNðÊŸN|:iuçìéü@~¤²¿roæÞüCŽ/'NW~ʾ¶e¸ö(zž‰â.Ñå¦rgÐóÅ +Ô\Y1*=ŠcA,eòæà¤ô¼N¶¹ÝɄÝjpª43Fñ7Q±”mG^jð£’$BP¬×_‚Ë|׍±Ü»?ï=ëÕ¬S°ÊݔsÎÉ:p§&©A©ã0—?©âIuJQYY-«Œú,–Q–Ÿl!Ì.¢ÊÑ +D]‰ã‰ñz‰È•g®`R¤ +µ¾ kQøÅuӎˆTÊ=-i·zívkkÒ¸> +iâÐUóH±¹ÞdQ¶Ø«(7®ÏïLgb²à2™c®x›2\ÁB^Ȝ6†q‹°ƒîsZÞ2ÿBø +ë­´ab +¢SÆ4é$>ɜdOZ¿`ŸóÍçBsám$NlD<΁üޚµ”(%?ž4ùhÞ8K4k®´,Õ-i©Ž5¾Î҃œ‚Ô7Â׋¤*O“¥n¢î†C† +Lò +Õi&Փz¨XBÏl05ÙSϋ +½/·Þ—ÓMná&·p×ó²®¹¬9¤™³Î +vr;tpYsÛÉ}ì¤ +I¢‹¦w‡¬_ýÃz +;L­jr²€?hÅ•pUZ“Y“êúiUÌ\}û@¡;)n½åŽœˆòA¼õŸ¼¾¾ù¦¹žúžéÏœVÏ¿òOL¯áë(„WZQYÍMhX„ÆfYmÔcóy°ÑC‹ +ÊÈ<-´8Uà]PېÇÊå~¯±6N¶rá|iy©ÉÃ^!Ò~éjú$ô˜ +º÷­+“ïñSj÷¶ +ÈsÔ=1eÅVgûnóâí^Lo§P$÷¶†°‘*FjL1R.hôèæ# +)å¤ð+j{õx"áuÆ[ÙX¹01±(œ–&Z~"òYC琝 + ÏVߏ÷3L#rÂuBzÁ÷‚Aú©d>ÁǃxÄ6bßoÛoÿgÑh}¢*²~Ÿ(Y +;oèf}åæhÙ2Ã`“­ƒö¿ä{•ÊXï÷†¾‹¬ +ø’–— ó,–"ó&‚06ŒIï¨Ïx0òžyÏ¢ç‚ç' +“g2üÕã-Õ`EŸ22A– +îPcå"°Na™œºˆ ûDT:k/Ó@ +"| +¢~ފ/á¢2UW +J\)ˆÇê¤+Ù +¼ür% +ßèR3ýűìïuÝYd +__ýË-+<¾1“¾ù–Êþ[˜[ãþÛ¶¥ÞOÿõ•‹ì +û¤0å&TùUjCäšb¹UN7=MyHŽ65̋š‡*–AÚ0è¦Þw +ÜÜ-]”Þ¤®Xw²¥z:DÅd• +¢)’wXÍíø¨ž +J¯ä "Oá/5½°ºs¢Õ×ÉQ{Ìz(ËñVÙ*:’J€ôªwimÊļî£^19H=bA*byjWqs\J¦'›t¯@Ê +^IåSõÔ®ÀãÇÅÇSœUéJv©#h›·s[“[ÔáôpæaóŒ0ãú]åáôٙâ„Ï@cå9áœr.ýBñ[Ê·Ò?T~˜¾PŒ!£ÁlòŬZÒ¦L-°IØä5Þ`Þ-ސ9n +KÇ+§fŠc–‡ÇR¬Ý2Žïîq,.•R +Çf"z WTñ¨Œ2ù(ròŽ¨3&E£DQyèI.­òpDÓD%)sfÎbNfÒÞL&RSŠZæ,^Ž³z+ù’¼âåy%‘L–EÉ+ŠR&•ˆúaáÌ<ùÏáKHFQ|éÉvºàH@Bm ^ +QIdÄ@%FyÒ#“ø +¾ +)ˆÃ_Ҝi +6™L[川ï牔øÄÙEôþLb+}Z¨4*áS~^zIzUb¥O%K"!ôÏÈN +ä£7c +•ç°€RÈGϦñ¥ý)¬¥f`}2|é¬åˆZâžÅ!r»Æ•Ϥ/§|Š\š>e¦&¢Ñ +žÉ`°›Ë-3ŸYÌ\Ș3“ +5>° +>2)¸¼r‘ˆqÓâ›Áe  +§ƒ¤‚œ/ s€ÔZÖF%8 +L£5íP//ë’ã1£.&ҕ8([ +VMîׯ›º~o¸^®W_\ˆNg>Dc0`rÕS)X\D-kõÀ¬-´–y!»|&PW óÑ£'|õ5ó+D¯Ç}4êÏえ?µFÍú1©Nq‚Å L ώgaYú³ª¨ú{ñÙmQ/wáë^µŽã{2«ßËüÝê?+«?Št÷²ŸQ +Ñp,¿òOøŽõ +¬¢°!áõ­¼ßê”=QFQì·½ý3fûÊ3,³½b.Bˆý{BaºÙ7š\ЖâÅjÊP@¤«¡3g + +é& +§Q!êÒ M©Tf‘ît+)ÐücîÍ<žµÏ:f]ÇRǪ/[_üHýQÅâ,¦xŚ´ +âï²¾Öa÷{; +ņ±!4\Ý©Fº^-÷l·Ž#®-Ñí©¡ô`UëÙ-íVF{î2µ +ŽºŽú>k>)œt=.>—Š:ŒNÁéræcBÌËgøL Ôà +=»,{;G{ +M>™$ã>܍»áAî.áR1Uy*Â3D‹‘H½Xì©·Z©ÔhÐeŽ¢-ê{x¦?HÜ$ºZ­Öx«ÍVy‹Ù,¥ªµj¥¦¸gý%vÕ£õÛ"G¤Q¢—”ƒ‰£ &1›À I)ë•Â™ŒZ%oûH +׌F³"™Íɚâ­Õ›_UË›·R±‘//ZlŠªHÖîRJäY[Õ\s†q8F¾D©Ÿ!ŠÜ.&_4p¡FxašO +ôcQYÀŽ'e K@WmBM“楟H—%T<étW¥ç˜NTAfüÁ3µ¢JèÁ“¨‚+Ï1_GuÔà +??Oƒ +'`=ϕÜDnzùÍÖRÄÍŸ˜Ö%P:&*ª5—‰8æ8¢#°è®)‰—„‹ðŽ/Òí®O”&H@ +û/‘’™z +½Ç +B%Ȗ¸%3É8R;v“ ºá4Òs²œâëVI°Ô 7‘òOa}'ˆÝ–°«a×BBC„Zr¹æ 8FðҘE²ë„,+ü +É3i'ôvùig]‘u +fz:a:ÊOHÖ3ƒí䄝ր¾•’!¹H +®ƒ¡xhìÖ3Í´½.à")@”3ApÖ]$å5,#TÁ¯gnºØ5hs—5¯ÞÉùêé²·ž!ÉÅùá?ÎüõŒæ"ÉWï€Dî +€»“—?ᪿë¿Þ´~ïÖñðU'(j©v]t%™Í +}UhÝh®^µdt„ðéLhb,£›“¸ %ç +¦,Iw2˜ÊuãNw-´Õ}«åVþ6éÁ[B·æïåó‡¥{‚ݛ?Η>>oy$ø¹ÜsèBõïL "“ärùl–Ç +‘I<’7êAùB +xWԝâd),gy/iÏå’ÎKÞ +¹$´x.Or‰H\Âãv1Qé¬+2Zµ”¨GœÕ@ (´šåñ«üepÿLñ?çYþHÃ2bÙoa-Gˆ¨îÐ"¹—2vÊ'eFžÝŸÇ¥|#Ïä¥Jõ@ +]šâÐðʼné‹+oNÀ\²•fðËðÊŜNNÖV™áÖqîæ¿BøµŒú +挧4萬[)(Õï#,–À26­›q²yNQ¦kÃ_õ +ñWÏ»Ì\[g•´h‘V?Þyúú +C]åx=ÍG·&ûVŸqÆ%!P!0¬FÔÍ« +øW™´Ûbµ+ŠAŒ;oÿæƒ÷糿sãøIæÉX1al¡ +ÿîv} +6lÇ=ød»‚¯0ϾlØ¿n{Üè Û~}3ý!WãÞàÞ°üµå¯ù¿âÿÊz›Í›½Ïq“ã&ç>ç>á«î´û/×o +•l÷ë›ï°ï°ÿË¢+ˆC›"³1Uþlñ©Ä”ã©ÒJæ†ìíùïþ¥´½´½ý¾Ê7k©÷¶÷¶÷¶÷¶÷¶÷¶÷¶÷¶÷¶÷¶÷¶÷¶ÿ÷ +Á’F~^X! +Dà~ýOl3·ÝÊ)¸ùüZ‰ÂÿDI% +Ò(‹ò„Êí¨‚j]ú%‘FöýhËÖmÛ‡½þ† +;wíÞ3†öî»ñ?¿÷ÿ—Ÿ}Ÿî +ð~.¾r +ìeØÃ?ŒG＀ÖÏ +s Èω˜×E^B>äGum"(Jöró(‰ß MR–¤<*Ðú2j'û +I5ԉº®ºËF’´f¹Ÿ¤-h+چ¶£4ˆ†híEףдíB»Ñ +4Fj÷¢}èF:v„çñ¿ü¸«/£ËW®ªÐa™ê8ÜJ + úÒWÐN’Šk ¡ß$ù’ÿ +$òrš)OÒ’ä/1u4OÒ'! +@Êúdü&Œ»QI +‹²Hý6Hä~6‚²­dŽ¶ß¼ò$ݨ +¹.AòrÝÆ_—H?_n¦Áõ‰ý]´½™¶±ö“|ˆÔò5$Ùɘ{×¥kLuä"õ6’6Е_Á5¤½Œí9ï%Ç +$2v;ÉCÖÞ +ïþa½Íó§ŸÝïìýgNÒ?æümäEÈÏýà©ô[^ù„€89´´¾åÿJFB + +endstream +endobj +211 0 obj +<> +endobj +212 0 obj +<> +stream +xœ]‘Ánƒ0 +†ïV&ôˆ‰œ9m:F +“ŒgNü7éuY¥Ê Š_çG‘< +endstream +endobj +213 0 obj +<> +endobj +214 0 obj +<> +stream +xœí8mtSǕwfžôdùC²Á_2ÆOyþÀ–?°!6þˆ-ے cøH$ËÂv0رƒJiR¢£¶9Ð&-¡)%¶åɄT$)8iÒ¦g“Ýœî†í¶¤ + %9Ù¸ËéiÒÛû$áà4'énþtÏÙ¹š™û5sïܹïÍ<€DØ +ڗÛË* RÒ^Åf•g“{0J§~ +€4yFG„¢—¯ïBÆ9·a°gÓÕù/ߋøy¬ºžþ± +Qýd=Üëuw¿òãu^€L +Yً +] û€ö2Ò¹½›F¶FõÓœ²ÀãŽÒ³±’û7¹·R¦z + ^a›Ý›¼qã«"•þdp`x$ªŸq^‘ywè^D{‰ؽªõP®Z9Xç°G! +@¾«ÃNyJµÄð=ò¹ +Ž~&V£Å +ypÂRx .ÃiRí0)¿ +pÐû ù{á§0 ¿ +tÙ‚ü=xòá8՜A> Ëà=Ò jȨ!zà9KÀ†sÔÂbx†°]üÉ"”ÐÂz´þ(<§ááß1tùP +g O>”Ÿ‡f°£Ûàü^Õ¤zfÁ7á)8/ÂH)9DÞg”OʯÉÿ£ +¡ +*a-t!| +~€zOÁ?P‘ýP6ÈÛä§åWaz +Wý"¼‚¶®¬" +z˜ +?–7ËÇ0 è3zÐˆ«iƒøjž +ë$á~*Ðê 'ËéÀC`BÿVÂ&Ø»a®â1xŽÃ{¤ô’×Éi"ÝIϨÚù6¾-îLèMy±| +m$€½] +a+Žü|öáÈ ­—.CˆT’ZRO–²—|ƒüˆü™šèïèu–Ät¬˜9™‹mgo³4ªÐòðþðr»¼cI0æZÜÉf\g'¬ƒA†û`;fûnGðcôŽ!HÏ3?‡·à +„Kð +|@(Qᵤa>B-1“¥d%¹›ôa²ŸÂà(ëK%FRBÊ1¾wÅkpŸFÉv²“Œ“Ç0Îra’œÃU†q +«¨“ÞEGévº‡î§ÓSt’žÅ™w"ƒ-f6¶š­ew±¶}‡}— +`O° ›d¿à(WõsCÜœŸ{’;Îý’ûgîœj¾ªVåCT'U?S]R§¨³Ô +ÕvuWkÆ4ïjÂp~ 8 Ÿ*d7ѓü˜¼Ë8¶“¾F +4žž%÷sÿD +pê¨Æa3ü =Ì&¿¦Ud5ó5¿ûɲ¾Ïæ°'ÙRxMµ™ØY;é;·n¨~n•N0ªò±ùˆ +ƒ^§CGd'I;9DcÆ|ꠐ3ÀYZ͝"y´žáB‚PÏ«Y5«Ñè:ÄÞA7í +yÜìm|~.à³ÕAã;á9Ç/GïBì8ê|êÉ¡p2 +Q9©‹Ì¡‡È²Ð¡ß°Çå'H&} ” +j¤Í˜q+å£ô4ü'ìĝ‡Óôw°ßžÈ“ó'|öîÃ7Í*¸Añy²ã{dÐÜÐPG]mMõ¢ªÛ.¨(Ÿ_VZRl**œWŸ—+ÞfræfÏÉ2df¤§¥Îž•’¬×%%&Äkã4¼ZÅ1J Ø*¶¸)ß%qùâw–(´èF†û†KÕ2SG\5a¦¦57|JÓ +Õ4Ok½Pu%łU¤×-¢$kV8ßc‚4Á[#8—!‘0q„`Íèµq V©e´×guYp¾@¼¶YlöjKŠ! G4 +1)] + +ôzAhºµ&@A“ˆ^IÑb•2E‹â‚Äò¬în©} +ÃjÉ2%Åiöˆ]ˆM’ÎQæˆIÝ,ñ3BŸ² +xXOú + ê¡ËeJè»Ýë +s;É&´k‘ÒÿîbÆ'$NžÒìxðVióY3ú +ôù +¤ƒ+ +·JJëtâ +8–浸|-húŒ¢Í. 5ºËéÈ.4)(+QV]ŸW´* +×=‚'6‰½¾{\¸7Ÿ +cÆ ƒÁ|J>«àëtˆF©!Ktº-s³Á×1v"Ó,dΔ”ôÉÑÀ’t1$!ñVÄ;-‹`u³uLG–( +‰K0#$Á# '×´Hi¼‹ÀçY„jXœGIݸ#}R\³Ë§¯QøÊxI•§ßUÀ +§>˜ÉqÇ8ê<ýUPP%O¦s +å7qÉd’ŠŠ”á›qOÑÇú}{Iñh6Šƒz; +´clÝΚ2 +¿Ñ¨lðÃA3t!!í\áˆÒteM€¹Ì䔨K‘Lޔ¤®T$;oJ¦‡»DÌäg@¹›¥JšüéŸNŸ6ËÚ[#‘´Ï{£r›]´­Xã¬>W,¶¶ÎTT¾hZäYÍ–EcÍb)&åºie +p$H\ +þԑ¤îòÌʇ-’Þug´ujÆ¿rPP¾¬ŒŠtŸ +‹¹)՘fÒµ3èî%ø:ÌåS[çŸO{« +” iâÃõØ® +»Qª‰„ñÖ2áLâɪŠÐôPfĦTº˜ŽÏڛ㾠+Ã萊â +âã1\ø÷Q +\ +RaøûN`.9Ã)$‘Wc8CþÙÎ!~%†«a.Mé +ônp{¼Â¡³×+´l +A–Ð<0480ä +éØ, +ö{J‹{ÄýJeÊd‚} ‹Â–lÆqåÕÕóK°©(ûû +Ž¾žÞ‘a¡Ã;ì +õv/k\ÜÖÖb²mêèoíü|o]cO/ÞSÜxJyñ†xk'ž© +Þ +xà­2ª%àMmoă‘֍ü¾ˆ†€œ~ +_Š˜%Âwəʦ=ðœ +@ޖiaä-Á>j¯ +ªæã}=ŠUD¸8¢û +Ӄ>ŒDFuà|ÃX‡`Ûn<ññv߆йá͸+b­í+Ú=h·ýúÝ/# +ÆTH¡ù4HæÝݑvy¤mˆ´eJKË&Êrr‚´tâ ÒOdb—kŽ¿`È)/HÉ©+PètsmaÎù£™9° ++¨ÈÙ]W‘óÖ2¬£H+zG +s +6 +|càA® +ÒÒ0õS’5æ yçٕ³ãfÇUùƒäŒ¹š÷ÿŒ÷Ÿàý=¼¿›÷¯æý-¼¿’÷—ò~ïÏãý¹ülMŠF¯IÒ$h´F­á4TšÙAù¼Ù¤„È»ödÅz§“ؤIغéš] +-¾|Tb‘Rl`ëlʀ´Ñ†Œ†”úäêËg4®Xkú¤d˜n-¶ö± ‡lQ>¨ÈÈ >çۼµ#×áú®?ÂÍȖöÙìéh¶SªP9ÛIN4ž4oSÎv—hõbuIöfH;»!`>;ôó]]ž^¥w{¥“¢×"™E‹hÜöâmŠ¸Q´`›µÓØföZ&͍VÑmqž‚6Ò(ŸaæNAéú˃¤K™²H±Ø6þÇq›bq\±8®Xl3·E,ZûìMÄÖîh É‰J¤?A㵸U®,£³)M?XÙ·ZcƎ¬ç8 OC<ž¯ xWKĪˆJK&Œ"JR®q1QƎZcÖsäé˜Hìd± L[LŸ*ÃJ +kŸE©èÉ)y’îœHÉ©09#§†òêW)GÃM«5ÏUó +ä©8­ZåaŒâxÎC SS¸(ÃÔ¦¿RתkÓ_«kՇꠡ.T§ÔòùÆdcr +6˜ÛpC`“7Ì*¸7©ä6y‹3P3Ú0˜ ›ƒ +29až2ßEý%(k +•ÏO6¦9ÃõKÔìQ¼ùێßFÉøý?î2›M4W—«5%é + +•q5ºZØ~,k,硬ïféæe§ÌéËÎNȨàHnEB|Êâys²ç•i®e—AQaÑx†I¥u*4¥GÇ/BÃTÃTJuY¨N®“õÉúªÊéiÉz^-ޖŸŸ +´[ñ6µš¥¦¥#¤-¨¨L©:8väÐȓOlzí¾‘œÛéó¤<¿¡´Î2T«åғ‹2]UæáZ5ÝK|o +|ì_Ããჯ +p +^ðc¢:0¶0ÿž?‡?hšïoŸß¼•h§”È0‘hU! ˜’â iB +úôtC\Üv2uz¥7vìÁ§¯íJk¨Íêµ\‚†Ö)’œR!›UYU‰ŽãG¯æYNbâ,«)·H›x‡睷£¸¡j^NFVþ×Âÿ†¶lòEþ1ˆn1§®ƒul5¿6² +^­æuIÚx¦ +Ò¶ø>ⱆe£sAÚz2ɾWGtArüÙxÞ¾WMÔϓãZºü§”’Ìó¶XZ`>„ÖOéCëC×ê ,4 +±ÅWý¯ô¿R‚LŒ·1´ +Ò =U +¼XY©^ò1U +LJ*Û·uv +_¹¯½z+™t:±ËþMÍ¢¥á¾ùà +ÑûKÅÀ²¿8ó¹põ³ØÿÖ!vÇ$±?>Yä¿ +Võ§ÿñøËÒ9 ÷|±ÖÿáÂáJi9%>—EYÆVPZå¤Ç¶o9zðDh þ؍ý¯)š™äe¸,Ï`Än÷ÜëÐó¥j7äý½¥šÀù¿­äcûŸTþ`‹>OŸS”}¦;! +în]ÝUMv41~xç +µJ?±ì_.Èr¸^ó®& +Éø›yñß¿ÓÈ^ +endstream +endobj +215 0 obj +<> +endobj +216 0 obj +<> +endobj +217 0 obj +<> +stream +xœí{ xSǵð™¹W +^ÀfóèÚ²Äb[¶%ƒXƖƒÁ&± ËÒµ-%E‹y!¤YpÖ×6i–fk__HmH +dáoÚ´i_¾´ÍKBúçKH_BÒ +”¦IÊ߀õŸ™{%ːú½~ßûÿï˽Ì̙3gΜuf®±@:ìš×¶”Z?uÛ±ºÌÕë +(ýåKÈW_XŠÕÿà{ˆx@·½+ÐÝK6 +ù6€¾@óJ·w K¡_\ôûzd§û§Ó¿«p¬Fä¢ +D¤íÔ&b¿°§7¼]]ïWH¿Éëw9•~õq俱׹= +­éW"Rò9{åáÏF?Ç~v5(¬Ð;ŠÙx (rW¼`A¹S^Ô܎R­–YÂU +{ËG¬Œ];£ÙƱžØï„e8û.µ( +ƒÛI*ì„ëÀVø7ølƒ¬ƒý°N‘7aˆHÕóÁga&qB©ÄÞíûŽ\û==î +káˆÀà‚—@ +÷Bü,uÃ4Í1X7Â]±ÿ +:±~ÇboÇÆ`%üŽ‘%¤EØ­Y—øn%Yd©"WƒeØÏÁQš1é ¤A¬Vhƒn8 \SÍ°Ÿ¼.ÔáJmp +YHŽÆö„R™¡jÉ"Z; +s`TÀ%P7Àwá +x“XÈR¡\<Y¨“‘Éd&) /ľ|›`Jz+Ü +OÀ/á—Ä@Zi©Ð¡y|ì#˜ +~”p'ܯÃ_H +¹œl§£Â“c5±­±‘ØOpv%®S—¢Ü;á{¨Ý£ð4 + +ÿ +69Ff“fò=ò±ÖXÏ^;öë±ã±™±¿À”uô€vÁ +ô̓ðcø-¼§‰Hô$“ü˜–Ñß +“Å5Y1ˆÝÄ"J¡­µ +n‚›ñ=„3~J$2ØH˜¼A'Ó)ÔK¯¡{韄=ð_⇱ºØc±Ñæ¿ +ñ5ÃzôêNôÚ +è»}ð +„Qø9üNÁ§hÉ­ä2D’¿ÑéôIúºxFsLs*ö@ì +¤¢µMP +eøÚЂ+`ÊâƒûÐS/Ã+˜3‡¿“<²˜\Cn"ƒävr¹›¼K>§7ÒWé;ÂÝÂãBTø¹HD«¸Us‹æ¸vÎ9v÷Ø}±FÔnò®À¸Y†6”1CßG;Ã3ðÊö7øí2 +µ-$—õd;¹š\Kî “·èJº•úi@ ÂlÁ(Ìn +â^ñ×âo5;4·Œ™ÇÚc`q“‚Ñp Ê݆ïèÂUvà{ +Úa?<‹ÞúFíï1š?ƒ/p5Š~N%3H>™K +øn@¯·‘+‰“ôä‡d/ù-ù˜fÐlZ@ï ß¥?¤¿¡ +W ßîF„ׄ11¦IÕXñmÔ´£¾{5Ÿh7h÷è–ë:uêÿã삳??ûÎXÚ،±¹c-cß;k‹õÅúcÄ +=Û;Ê3UÀ؝ñ%á;,˜9°®Dù·ÁU“ƒp'ü+¾¢#p~‚÷kø +¼ïâ{>BÏþ‘ëôœA²‰‘”c¼T’M¤“t‘ÙÁßëÈ=ä^r?‰’ÈQò +òy“ +#Çñýœüœ¦Sé4ZJ+i=]A×ÒõÔEe »è=ô~úïôz˜þ½ü}“~@DŽYè ‡°RØ,\‰® +žþSx]8&¼'œFۈè£|Ñ(šÄj±[¼^<®™‡vrk¶j +Â÷ÇÚTíVí~íˆö—ڏtZÝ<ÝJ]³îßuúfÊ~ø6fi҃÷™O¯@)ò"=@¾C^¡ÃâI:™´“ +бc¼ NÐ=‚‰,¶“<ÌãÛ`І“étrVë1‹m‡­š×ÄäQz#éÁýæUŒŸF¤¹ƒ)v +2á_cÛà ÉŒ’c÷b.ì&ä(æP7½ŠþA<#d`„¾'¼ +qss¿‚Ü­ý%l¢EmKá!˜ ‹ÑŸïÀ‘¨6½ÂÍèé|ȁ¢Wƒ{8ùD†'èÝt={™ü ÷½â +"ž +š` „§P¶_Ð×è +rPԒGÈZ”a– ÇøøÒ@"D¤»é_Åcð]L7 +Åä±\ÀÓýt=´“?=ì#wÓÓ$î"»QûÈ醿’=+ÜA{ÈÏÉÏÈLZD– +e0Fß#(M!|¬É"zZ‰y¤Å¸:AŸºÈýðšæÇÂÛb“ð4ˆäyRIÏ­'MBUì$˜´§ +ô±×cuPOc±o‹©gÿŒÖ¹ +ފýD(â¥_ +üâUšE¾-ôjÚbŸŒíÔ\O—A—æ÷º¥0@ëp‡xÏ¢ý°€ü™æ¢Ý +ˆ©FKe‰w~ñ]³é)òl'w`v¢&­¸sì‡nòÒjðlªÁSàït/îšMB÷™§á'íWãÞ>ºðœé!ëâ)!òóà>Œ†¿ˆ +ÀÛC3<‡§é^„æh~d¯mµ×,[ºä’êÅU• ++lÖò²RKIqтùóæšM +Ƃ|É0gö¬¼Üœì¬™3¦O›š™1erzZjÊ$½N«J Øal萢推h6®\YÂúF'"œIˆŽ¨„¨†‰4Q©ƒ“I)íHÙu¥]¡´'(I†´–”K£}¥Þ(’ëÚ¾­ÞØ.EOr¸‰Ãwr8 +áü|œ 9²{ê¥(é +ц¾žAGG=²JM©3ÖÉ)%Å0”’Š`*BÑ,c`ˆd-# + YŽê! +út*šk¬wDsŒõL‚¨`r8ÝÑæumŽú¼üüö’â(©s;£`\ +RÄI Ž/ÕÖEu|Éô[¤¡â£ƒ·Žf@gGQšÛèvnj‹ +Îv¶Ff®[ÍÚñ~öx™O­k»)y4Otd{$Ö + +¼IŠ>¼®-y4ŸÕííÈçRSCÇ`.}+3bv) +ÂÄgª(JÉFÃtl•¢“ŒË=ƒ[;йƒQX??œ›k?;¹i°µÍ˜­É3¶;ëg +M‡Áõ#9v)gâHIñPF¦bÍ¡ÉST -=c +âä +j\Ÿ0'aWaD%—„’´Q‘*VÉU0èªB2|Ú ÎŠºÑ +žè¤ºŽÁŒj†gó£S†Qü +ÐíƓšˆqª­)ã3` +ŽD|áx +ŽE,`q¡«CG¢ŒËxaIqß(ýØȐ°AóAsNk¯.E›çç3¯Þ2j‡NìDw¯kSútæ +ƒ½´¨=J;ØÈÑøȌ +ldw|$1½Ãˆá{ØWÀŒ¨Þœø7%cæ4GOu”ÌüšaYol16®ÛØ&9;TÛ6¶Nè)ãU‰1ŠN«kò¨ +Ñ<b$nJ³N[ZT4á?-d÷¨N¡È1Djˆft¬Têö”üü‹œ4;Åfñf|š*f´ºhbÿ’ ý ⥠+(°h¦­S&Œ5à¶38Ø`”;£±ÝF)Ã8xïxÑÁ€£#îÑÑØá[ò¢ +·¶£=¤£•Âò!#¹yݐÜܲ±íPÞlonm¦„Öu,o*ı¶C€ciËzëA#ÁH¦z>”wÈ°›Š +Áû®Q +§ã¸F©‚Ëà8|Jøõ¿ÆòÇ +p¹~Û͙1ýçø-¥K¾_à=i„}xZ‚7v +Þ2ð.¾@¼>åE¼£á[Ä +ü¾Æž1õîÆxÏá=SH£z @ÞPaŠÉG*¬l:S +µPFTXÇ|ô`¨ +O‚'-PáÍe“¢*œ +Á)ZNƒ®)ÛU8]{€ö©ðdØ4å + +üìٕQ­Â¦d +Ra +ÚÌe*,@U¦I +E˜™iQa +¤e:TX +ٙ›UXÞ=LË<¢Â“ nú«*œB÷ΘªÂ©°8ë9N[Öç*œ.ľ¨ðd°dÏGIˆÈ¬>9»_ +EÄ_Îa +ÇÿH +þk™ý³_Sa´yö‡u +Sa†—Ãz†Ï±©0âs¦qx’ê_Vü«ÀŠXñ¯+þU`Å¿ +¬øWÿ*°â_Vü«ÀŠXñ¯+þU`Å¿ +¬ø—Á)Ì&9[Tm’SÃáTÄOWuOE| +ª{‹ðœÛTX„²œ^OF¼>ç9a^Î +Îàü?PaÆÿ§ +žÆð¹ÓT˜áÿÊáéI6Ÿždóœ¾V +‘>7ŸÃ39ޯ +¿–Ã9ŒOî*Œ|rwr8Ó¿¬ÂŒþqÏNZwvÒºÎço*Ìø¼ÉáBÆ'ϨÂÈ'OàðŽ_§Â +_ÎáÆ'o— +#Ÿ-‰>-É/iq¿´â +5€ßÌ]à¶<Ž¥÷)7áíև%¬RIP‡½ ¬v"ÞÃ)$Äxq¾¡zŽwþ79•&$“ G¼IЄ· +[e½rüZ +eP¢BVŽ­Å^l×ãœn”!Ìg­G~!,AèÃڍkx —ã$Xƒm?§ñ#ΉüŸâò3éÜ8ÆpAün–p¼ë¿¡™„Xeòàªa. +“DÂ>£ «\7 Ö~9°ù~°õš°^‹kwq +™„lžŒ\C\ö +•›å<™ª/ )³'ó™©\H}çJHÎlÊl,Á<äÍh‚8â–Ãü$î +ïqÎͨGÉîMH½õhEl–:ôƒ×"–é׀õjŽw ¦kæÍÈӁoǶB:¤ð¼àáZ +ϋä8^±h€Ë +àš1Ú¸Ï÷Ÿy~ôó_ç$ÙÛ£ÆR„[ +/•|té#‰5]ØëKòm„Ïeýqyß÷rzE–3Šd +å2Çus.2·¯g1ß·««õàx§ó£ +ÌÆ,Š”5Ã_c™¸çúyLË<Š<ªdLF7öÞ +8/ׯ‹[¯÷KíåWõb““¸ô«<¿l=·ÿAl;yn+Rwªžñ©œ¿ÌCs¹V-ÅbÏò%QqþÊ +žÙºÇdëNlk‡8·ðW®má¹éãô!Îià<_(~š˜ÙÌ:ʪ!ÎÇ +Ø.®ÁÅø\RcÑÇwöÆ×e»“›[ZÉV'ß÷‚Iû^q‚:˜·Š~á +ZÊËsۓð¢É8¿~îÿmܛɻ]—ã”~¤UöÁ·8ãߓÐG‘+9ºÙ¢A±¿’U5>âQzn +}Fãñ±Šë~¾ç˜ +ÿ«/sÞqm\¼uq¯úÎñAð +{sfú1ÈË-ÇdèC:e÷ïãý8?%'Y®ö©Þϱ8¿óý¨XKÑ Ì÷€ð—æqÜcÎslÝõI;nåóWp©§M§ÚK–HчEPu‚;k[ÂOž*¨ö¿HÖåØ+Á©‚ÿ»én€F•² +GËq¤B ++Á† +ÍZ +ñ +c +qgÞ +£dÕxÛ(E{±×‚zœ›ñ.¾ó}Õ9Á zžý‰¸PNiºÛ2™Z¸žÊ¾1 Z?Èã”qez§«>XͽçND»ÛØð + +ßقIw’ñ +ìü½¾‹ïå!Î +flÔyέ#Î=ޏßm’o +J +¬æòºÕ¬ðñXf;šS=Y‹“⨟ËêâÑéáë÷ó +Vâz +xÆ(§Ëzå¢d£’½l—`Q¦d£/quò,ðsÉÎ=+âqªìJ,ïB|'ñ«`\]Ü2l÷îâ¹)MˆÐ ·Ïø]S‘-n¿šéžÄNëžàû_[V3¯W½;N¼|},ÌU-4~Ç÷ ålüú8Qî‹çû/ÙŠ|ª¤¾.Èw™nî/%OeØÎ3Óǽէž +Ê٦ب/én·ªE}üÖޗȉ.¾S&ßüê}Z‰¹/?å/.Çí–óÈQâڟ_‰KOb +gq%æ܉ +ÉÍc$¾#E¸îʚ͜W€ß"|ŸŒß +›Q×ñó¹8ññhîMœ-~õ4qM½jÔõp?Æw z²1íBÜó‘ ùäe7ñLîNøƒéÍìâåü3¨›Ÿ” +¾‹+w`÷y€N˜@éVïåaN¡øÕòž¥œ¾¹—b +æ;“«”ßæ·pÞJÖ)ûc0ñ5dIÌüç®ØÏ=ßÿ«ÄÇJÏ9ñ¼[r—Ó%KK­=²Ôä÷ùȒêüÁ€?è +{ü>)àuY¤zgØy¢RÆLjñ{# +’Vùp^ùâÅe%XY-R­×+­÷t÷„CÒz9$ûdw«§WIkä~i½¿×é{Lj +:Ýr¯3¸Mòw}íbRPîö„ÂrPvK +ŸFÒ +-R³3,™¥Ö&imW—Erúܒì +Éý=Hf‰sª>gQiUØéõ¸ª/“ƒ!ÆÜjY\&Íkò¸‚þ¿+<Ÿ“#5'nn)QțZ׬m]Õ°ª®¶uÕÚ5ÒÚiõª:ǚ‡T»b½ÃÑäXӚž’žÒÚã IḑŒ‚‚þ€ + +0 +ú¡ñüÝAg g€ËíA+EB²Ô9 +ø#l¦ËßǵøÜróAí{CŒ‰SB‰d’;»ƒ²Ü+û© +§õ8ûdÉßvz|83W(¯§×ÃÂE8]¿?¸-V® +mÁ‘þ~ŒÁH§×êaë /ÅܽÎ åGW˜áÆ-4q!nU]ãÊ9}ÒU9ėqù}.9èS5ªrsâP?âucì÷y0|Y +œ¯>£COÊ +Ì/ÅcŒ.¡#Š + +„®ð¸™bNUê®/gËENLpaÚtÊqF¸Ž3\Í6´ÔJ%Ò¼ªŠÊùReyUIYEYÙ¤IYV^^Qu¥­Rª\´pñÂÅé)=áp º´´¿¿ßÒw¼Ëߛœ²Ttö3[`J£PÈ©%ìÄØ@ñƒžßW,]æq +QƒÕΠ› |±Íʃ-Èw +`‰¨ïòCaÉÈNuë`ä¬e»²5  +Vû}nt +O¬ÅÜFý= +W¦¦Ôï +In9äéÆ´²H¸ƒ ѽ‘ΐŒnô±,ê”Q9ž̦J^wHêõ£¡ˆË +áÝñJŠAƒ2±rc‚ jÝ +´nEûÔÑæ–Õ +à ++`º) Ì"³ñ +›à¾˜ÐO%ò!Sƒ‚þHw¡$o£Û1rPI™m¶}|·b¢¢‰úüÞ>扮HPÙ07˜å’RþK<†Ë-w†ÐÖ~ÆméañŠ +Ž–s³@rGx EBlf³ + +Èሓo +Í^žÏÅÌðÌ̽,[ü˜¡ðºÖÕã +² Dna+$aºqÿ8Ý΀šÉÝLy»Köz™Â^<::=^îÀ.$àçI·ßÊâï +@©/÷¸etd$¤ÄI§ß¿-Äêuv;wàŽR¢"(ãÁÄ6¿¡n¿+¢¨ÈˆÞŸ“áfð:•ÝÝéƽ<ìaºZ¾" J{½ÞÒÞ0ûÐÒÞЖ0s +Æc +C6x‘ûe/‹Ä +Oa½R5ñ9õÜìâÊG +ó‚ÔÛ8õ8ùP+¼/DۘDëçWßÈ +æ +G„}ˆpHº ÿºHÏñ“+Ÿ¼¢¯'ë:|Rø“´¼x™Ù.ÖÚüãäb4|O½R^P1W¬íb­X%Z/ғ#¤,aémäÜ +~âö£;ßEXÏÇ? =ð]ˆÚrìà°Ckì¨pdÄá°ÚG±-²ðvxÞ|ë!>k¶î®& +‡°ìÇò*k* +¡ûñÃـć†gæñY£Ã˗«À¢*YPb}·6E +?c¡Â¨pæ)³FæY¬§jSþ?ïÂ3@°z@öO +×W¦Ôf #! +c" +C3––ãX´(̼‹åÏXbXD˜*<6ü»=†ç +‡È6r2¹¾£'ö4Ã.q—†î¢»ºå‰ +%YÃ9]ÖÑØÑ9· +ÅÜMB +ñœð-’Å֏ +¥û‡ËmöQl,¼A³ðÖɼÂ:ÕT×Ɖ†­66gxm*#­\jz.[ìSû +ÓR[¶iáÖ +“¹Âª5-°¥áú£±1{¡©Ä–V]j³ÞkzÂtØô²IԘᨵʚS=¿ºªZÈ6e!ÃóLU&ñYáZö‚Iö +ÃÞ°Ý@S +e6Ôê/#®önö‚‰f*·èöëèí~--؇ô“ö•âÂoÛSö +¬Æ¢õL¥]Ãóm¼)`FÙ53§ÈfƒÆ`µëéÕk­Vs±­6%ö±°‹ýP1vÛ"lÿ€SªmÎ +©i°Îamiµu*ãd±ñ.%ço¶‰¬»êÒ +Ö¢!y“oËÆƞ6ÛV`.³Z +̶*\ÿ´=Ō‹O2çå[ŸÇ¥ˆ°‹½`FÅ,†Jƒ¶T[£ +¢ûé +ôU*>$ì^^D?RÝ!¡T¨Ö +[Í”Ú +ô$:w +Öay‹¥X×`ñóÞ~Œ!k±FŽ@qt?Ž2¨†E1ÙrÎË" + +Ãô$¾Q|‘‹=·’@±JL"ô• +;ÀÔL½½6•þ +5B¤“¥¼®äuž=·"ýŽŠôoU¤÷T¤·W¤·V¤¯¬H/®HŸW‘^›Aâv’NóXMÎðúE^7óºØž+¥Ÿ’ÒŸ—Ò¿+¥Hé[¥t§”¾EJ¯—ÒkÓÉ2R鰔×e¼žÍjröÀ”¦)0érš ]BÓΝ1l®0ŒÒéÃælôÃsŽjs¨æè Žj°ìÅ"ª­‘á ”³]€|Fr¶O +›FɓJ³—ñ¬Á~á–Í"?‚9Ąí¿Á^Þÿ”óöµ}`ØèÅißgMí$r?Ù"¸€/Ò7l¶à°w¸2ì}€c÷ +Þ/Ǟ=Õð_åï~W¾Çðó(%O~e~ÅðŠiTDÂgÊ9áSfÎdß +D"ýƒåW¾g~Ðð + +÷`!'º +¹×>Íp +ª1¾o ·1h¸RaµÙÈ%Øp‚÷ZP +lÖÚ8r™1žfXQÞmh0ï5ԕ¿bXf¼ÒPm@üӆŠ+ï*|-‹‘O_0•CIæ÷æ–ï5l¨|–¼:2ˆ¥ÈnÑíÒ]¥óèºt:»®J·HW¢+Ðåë¦ë§ê3ô“õiú½^¯Õ‹zªýôÑØq{ûݯéÚ +ÖhEV‹ +ΠÀÿ€‚ÿª +%z +—BtšÐH[–G+‹Gu±õѪ¢Æè¤æ+چ¹½4Fº ±SŠ~Þb +%)ë6F5Æå$:µ[—g#q”Þì¶)ÃO(ÃOàpÑ?鑗_ˆÂáiYN›Û†ô°¼½n“ÒÎÌ,ãqypéî¼Ãd–ð¤µGSŒË£©ÆåPS“]”±„”nÖ¦EµˆÓaaä—äg_“wX49#OCtº:TR[Rˆ0œÙÐdöëåêPö5—äã"©CˆÎÄE0Ž--—Û +Ñ +ØëÛ!Ûá©ÇjÂ'‰„Bá{p‚¹¥1ºtÝƶ!³ÙÍé¨o/rd{êÃ_£?4Fà¤6I§sDí8)*âóŠŠ" +€¼xîVpœŠB ]Òtv Ô œq«ò²üÌüLV¸™ÀI8zÆ®/ðÓà(ÞOÆ>¢ +{  +ž±Z É*È˨ѧŠS²SgL©ž«™—jœr¯ ”’²–l!"%¢=Åò”é4 +óu9£ä ½bÆKÙY©³ +3Sé ¼DìSSkš !/O®þ•t\:% »¤;¤‡¤£’(=¬¯6ߕ;˜óR6ÞRíÓ*fÛË°äT<œ}4›f_]~˜Ô7 2ŸmFS|zß͛Ï~º¹è}¼Dœ¬YòþI¥Þ\^F6o.‚ÍD0šÍÆíŒé3³fΜ1]k,˜‹}qšmæL›uÑŠ¹º°b‘ÍšÅú•ôÃ¥&MOÓ²U³Ë¯[ýä·V^™?µ$Ë´Ô¤ +ºV·g̱Ýæ—r'wgÍöŒ½rãŽú²ü%‹n¿ÓÞóHAš +Ôßs͆eó +–üçÖ +Î5ÂÜRtTÅÿGï߼߼߼߼߼߼ÿ¿Ê_¿ÞNWþ®‡äbÑÂÿÄsÙÿȪ_õˆPÀk‘ÙçT(‹×쓘´ˆ'w²+äE>ú‰ÝSp*6¡ø´‹É¬oÊ?¿³c«»öÕó=Ñ=Ýx˔%Ÿés§ýÐ0ú +k¾üÄü3š³·ê?חaæLŠûìÿ§n +à +endstream +endobj +218 0 obj +<> +endobj +219 0 obj +<> +stream +xœ]O1ƒ0 +Üó +ÿ ,ˆ +. +­ª¶Žƒ2àD! +ý}I€ +î$ûîä³ì‡ëÀ.|D/J` +›H‹_#Œ49U +Æa:¦Â8ë dÓáý ›ì>ßõLòY7eSíô†– ‘¢æ‰D«T×ZÛ bó' +Ñ +ÎæÒ(µqöŸJŽæçIÀ5FâTŠ–"¹€cúý|È)Ø ¾ôƒS +endstream +endobj +220 0 obj +<> +endobj +221 0 obj +<> +stream +xœÄ¼ +|TÅÙ0>3gï׳›ì=›={M²›ds !9! r +„‹J”Ü6$r'¬‚W­bmÔV´Þm˲A +^*Uk­ÚBk[iµŠ-µÚŠú¾EÚªÙ|ÏÌل ¾µï÷ÿ~¿ÿ.3óÌÌ33Ï<·yæì #„ôh;âPÓòUÑ"Ä>·¯ƒì¢ŽMmRý[½á:FG„Ö«ß= +o ¤Ru +lؔX¸ ƨ M~bCï–. _|¡7uÇÚ: +–.ChïBh,놆4™ù,B†§  +èÞ4rYj½C0ÿPoG›Tß±ˆ²nj»lÀðTZ=àŸ„F¡¯mS,ëÌ72Òªe xDÂߛM†bw¯8†PԎ).¿yäKYÊྠ+\M½ + hz7¹xê3ùFäO^:u’KƒÕRJ}‚èZ@ï¢ÛÑ3¨½L8ԀóÑ$Ãvä@W %˜G6$Ç”üh jB´ýëÑTˆþŠ «p-Gw!Z†¬¨݊öã +¦ÞCW¡WqzF?„E” +–â +So¡¨iêqX¡¹hºz4Ø?õ&Ì0Œv 'ÐoÑZ‹öÊ÷Ã,Mh%ê›z +­C¿Äkñ%ShêCW¢½è +ô4: +oÀGeò©VTŠÚÑVâ4œÍ]=õš#?¡~lêù©ãˆü{`Ö÷ID¶`ê$¢wexª4! +÷݋£7° +—ruȀJ`­ôut€Ë¢°·'ðåøg˜ºvSŽ:Ð6t_†¯ü„ü£©­È +û+Jw¡ûЏÑsèo0Û¼šÛ”¬™Z†0R¡j€•®E×£çž +ïó؈½xÌücü&~›ëãށ™D§ÑYôOœ{𕤆\-/š¼jê1‚ +Š0Ç"t1êEßÇ!,âK`ì]dŒ\I¶q‡¹7dÙ²§æL=‡( +¸W£G`_¿@¯¢×@^ +p#þ-¹’—_?u9ÐEÝ°‹kÑýèú˱ëp:p1.‡]Žâ·‰›øÉ®; ¿ijËÔ7t¥Å`ä¥èt +z + +CDC§±FFad +nÂßÀ·àçÉ1îbn +w»L”Ý.{Tö¬ì3¹Iþlò—É“Àu:Oj„o +êB[×ð}ý +sØ +3a¦yx1Ì´ +wá¯ãÝøÛø{ø|ÿÇïáñ¿ˆÜD¾Ež$?!ÇÈqÎÍ +¹zînî™Wö{٧ʶIwò™ä‡SÚ©ÈTñÔî©»¦^Ÿ:ͤ_ƒê@»6‚/¸íFßFßžB?G¿½{‹}O¡@Ÿbh“(òa?ι°»‹ñ<†wáÛð}øü6> +?#ˆèˆ¾aRF“uäjò>ùŒÓp~®–»ŒÛÃýŠûD¶E^ßGåÉ?RœRU¯|vçä›I”ìIޞ¼sªtQš—6W‚æƒÎ-)w¢Aø¡Q4<Ú + +¿ +4çJ 'ыèàý1ô:x(J/ý¾’8ƒ&Q§ +«à+Ñ^’©miÅ1­ô½ +_wâ½ð½ßüý%þ~¿ +ÿ„?†=!’GjÉ°£&r iïzÒA®"7’Cðýù-yü‘|Âñœ‰ópY\·»ÛÅŹCܯ¹ßÈB²ZÙBÙFÙOe¿„/”/’¯—wÈo”ß#ÿžüYùKòSò)ÅmŠ{Šw•e™²I¹Z¹Sù°òIåÊ)UèS#PŸƒÎ}n×Ȣd7ž"°ï‘îeò-üè, +$ßt¢õd‚{š|ç뻹?rß'W#$«gÝóÀ‹½‚žB¯È_•Yä'úüá·¸6ò#²Øq7Wvìð:[€Îˆ’ +Œ¿4Ö£ +±ý·ì"ô!ðÿ˜|ðty?J^ ‹A“O ûȓhڏb¸ +¨ëD¡OЭø'ààwÛÐqô>:yŽZYtr>©QØɨ¢$t¯˜ú)əúXýÛø:ô:÷ èþExŽ¢П@ê¿Á%Ø#KÊ\è—àù2ѝ µAã`ƒ/É`A£#\ Z+; 2Nþ,Y/á®ÁgI-ˆÓÆ<÷rêÁï_Eý¨ +M/Â,úoèçØ\|Uñ{tº=ÁYP»Ÿl'S܋2}ä–ªW€ÊÀ%0Ó&Ôû¦ÞIÞ3\Šæ 9¸ +¯EõгeNmÊ_$N­›Ú'o–GÐ/ðRlAπ÷²o—«“§óØáëh!¾';ÑQ8Wì8ˆ‹@›NËGå»åÈÉ$ÿ¹¢]V{'Hñè +œî^üýt}>XO.ØO-P±ΰ^ÒÌ=ê° +€Ì¿=x°$9 +³\n{ºΐ_ 0×¡¡`96°óX_ó,A‚Ô‡Ñà +¯ÁãÐ҉2Qøô 6à9dÖ£~övð³G¦7Ð;à9¦]¹x.®éu P[†ÊP>gòaT'e=÷ +ú3 +Àé:lô>× +ºa@nT!ÿ&(7¹ljéážÆV8 + + U«ádŸ‡ +#ìcYðrTš¼f{|Y“ü~±vµXS=¯jneŜòҒâ¢Â‚h~^n$œ“ +ü>¯àÉtg¸œ»ÍjIO3›x£A¯ÓjÔ*¥B.ãF¹ +þ­B<Ô— +ü +æѺ¿ +Úf5´ÆhZp>N\hehÂù˜"`v}S”0ÅLÌ +U¨*/Whð +ñŸ×û + ¼vÅ€¿Qïoâ§ÜÈàÝ +Öìõ¡ÁÞ]/Äq«Ð_0Ú½«¡µ +¦;¨ÕÔùëbš¼\tP£P +PÜæ8ˆm՘ÄÖPy • +ˆŠ;ýõ +q‡¿žRç‚ +mñ¦kê]^os^n +×uøÛãÈ??nŒ0Tǖ‰+êâJ¶ŒÐCwƒnæ +ÝuӏÚ[#ºNgÛº5q®­™®aŠÀºõqÛÖSösU˜Ü\·fÇì^·«ÁÞ#Ðê®];„øþkf÷ziÞÜ +sÀX\кk,}0qÉ*V#×5¯‰ãë`Iî„îJÚ_Ìß@[Z/âjÿ|÷®K[A4Î]q´r‹7átŠG¦N"gƒ°kõ¿7^ãò7·Õg +LG»Vnwˆ‚ãüž¼Üƒ¼IbìAƒ1èô³ØLƒ: +–¬œá,¦ùBÄ +(Yã‡=Í¡YlÚÕ1ÐàӌaT¼$ÒW×µîâ+i; +—y¿°ëcà?ýþù-m©EÿQêɌªAÿ4 +Dâá0Ue +Èh¬fõÒ¼ÜÑ r·€ ö¡&àm[seØïõRß8!¢v¨Ä·¯X#ÕÔîJ 1iŽ“VÚstºÇr!íÙ>Ý33¼Õš|Ñ +Š%® +Íü3òÖ´†îÊ8¶þ›î˜Ô¿d•Ɋµk„†]­)Þ.Y}^MêŸ3ӗ‚âiuk8IAÄű^PÊu3È´²F—ែ)uç„RZÉZ°° η.”òf×ûš˜úˆŽbŹa)2㕑óësÏ«ŸGžnËBdÉêµ»viÎë[ +h×®~aÁ®Ö]mSÛÛýïßu•¬] +­Ó˜zâFW|ÁMÍ°‰n\ ÚJÐüƒ~|ʃ"¾aÕÚ5Gx¸vÝ°zM‚`R×:¿ù`úÖ +àÈZÉL+­ ´'ÐôQ±.סí¬WÆX½c#Ö¦šnèc‚HmEeޜZ­úG^?ÐA­j´æÈ¿áÌ´ÔƘ.ǘöô¤(£4vB¶w@[/Û_ãÞ¦/åWj_”c±Y³Œ¥æü²õ:Sz?e;³i‰êö”dúR3™„²Ø®ÎçÕ»ü/ъ/®,µS^BNýI¬Ú›âö0›mä\;ŸÙdÃf3mù‚,$9oє;ÒªÃlžhíb;øOd.¤t±y‘>¨[—z¥NÆiÉRۘ¿šåïrg°‡fé­´¿‘¯äT/³ëž I;97ß“ÿF&ÍÙ^®+¥ç0ûWò›ÇéüÝ3û‘èš­ÝÔ{Pmø/YÕ@J?¦µôó:ôïvtN?±½Qr”ÃtþAh±¹§wÓÁÊ&Õ¾ÏÉ`èsü>73Ý +zç( +£€'yÝi?ðŸHz>É&©­Ž¦¤qÎƦçû¢ +%nI;a>`äKíxZbmŸãu×ÿŠÚs\þâ + +©S¦=U›M‘´ªA•33ÐÓ¯ZóØ©3• r8iÈ +¡–§Q ;“h„{!Z’Â,€ÞBè)IÁåpv•³Qe¨"šèìTZ#@Y%DQàýæÃ>>oñ +ÌóýOç +ê™uŽÍè +t:÷¤¼-¥iÛ§ä7¶¤¸?Äô”ÎJ-ô"†?’’ÁR&½Î + 1M1Ä4ç<ÛЬXäœû¢¯ïb¾|˜ÍBO3ÚÛö¹hczöéútL3;Zô`)£·3e}L—©GkK¬¹³ôhŒÑÚÁ´³‡­?Æ<¬Àö5Ì,F:­¨ÕÓXn$e’õR/AµL²Æ¾™³¨YA?£ìógÅ´žJ^©—=G˜L%ÐY;g¨÷îb¶)œ§¡CŒ?çbL‰¶iŽô§,½gÆÓvž'ûa¶v,ey›R1ãùÀ¿× +¬‡ÎÀÓ>H:ÿ½žHqâå7›ÃúR”öÍ´ +1/³ÉK²ÓºŒYf“ÖhêTÎ6‰G£³b«i®JZ4Êâ½Ñ›èbžrvtПŠ£%ûòSþ?³1iwó™æHzÝ?C¿¤—=3þiø + +—t®sÆ#u2 +™öH›ÙÞ¥5›Ø\,BØÌüätTØ{=w>çÎhü´6oš9[úS§Á0ÛioJ뺙 +§=áPêd£»f’ß|žýPj©Å&o˜‘Ý7åK/›_’0 +6°“²‡yq)î`2`½çŸ' §?u³èHÉfŒ‘x}1àu²¶ é³ûœ?igc7¦h•8´‰mhk*F +>ÏWP]—nJÓKÿy>´“é×æó¤8=s»ùôϚMŠ +˜L¶œ‡Ù™ŠËG†$×üÿåIeø›`ö(ä#ÌPº¢,š_Ï斬NòC37¡ü™‘ÿoW +c’˜ö‰ÿ/V™î‹~îğ™{õ–XW[GLxXXÝ +ûûúG I¨ëèjééïz;ò +ú¶‘¶¯@ŠÒɄUý½›iË°°¨ÆVTäAV”/Ôöö ++{6t + ++cñ¡ÑXçêžM±aaYlLXÙ¿©­ï!aõP[glSÛÐF¡¿ëß.& +Å6ô +Ä†bBOŸ0¨®šÚF„°ºQXÞՕ/´õu +±ÞáØX7 åOÏTù¹E +ùý½•ņ†éÔÅùBvcOÇPÿp×HC\†Ú´*"7®^¶|õ¢‹êjW/Z¾LX¾@Xº¨®aÙª¡ö‚• + + +ËVë5zÍêîžaadšÁ"†úbC#[èþföŒëß0Ô6н +ÑÜ +Ú< +Ú·[ú7ӑ +ý£l§›û:cCl +Øù¦a:I›ÐÛÓëô¶ +C±Ø¦XßH¾Ð +úÛFcBûH[OŒ +9ºµ±¶¡˜ëÉ†„Ξ¡XÇHï¡k¨Ó9ºúa­þ +1†2˜çÆuï‡zÚ7ÀÔ@f_lö†²†§‰Š +çÏ°bf0ÀmÂh[ïæ¶ö^ {x862{t¾pa_olx˜mžíö”ôH? + + +ˆuôtõt|qçp±o¤§oÛÖÙÙCõ¥­Wbz—K›‡oa½‘ÏÕÛ³©‡naxcýC‡G$•ë^°Æþ1пÍí½=ÃÝt +˜Kb÷¦¶-ТØBwŽCç/Äø±¨ëÜæÚú¶ƒ›cÃl™Žþ¾ŽØP_jC)ºòpwÿæÞNÐûÑ +P]ª_Ü>ÅIÆzÀ¶$‰Q¼™=Y°ÀH[ÇÈ9Ӎµ¥¨îúòiÉ3:ÀdÚcÓÁ:m#•áÂUµBž=§¤ +1öQ+jÁNbÓVAy +ªÔÛ9,lê†7wt€zwmî$†؎ +Ãl”Øچ +ª´Òî‡ +1Ð~P°ÎXÊ|Ž +`n’S +kü +OÀ'ÎìO"(êƒIû(4Ô¿yC7(¡»lÄš›ŒQG;ʼ%X4Úß;J%ѵyHr`”s³LþK$ËÍo^÷Óù—=TŸ†§ ÎuREêÜÌió0 +Ùˆlnc®°©—Ùs.eÑC(Ÿvþ‡Çb½T¿z­ES†Ï°¿òó2ˆ± ºí+±!ÐÆz€ÞûJÌ.ôՏò´€­;òUxÜ +ÜÓÜóÜ3üwÔóíh)ôKœúوÍ_9âv5˜~4Iƒý¯Þå{¸mDga•÷`ôWá_Äfþ*¬ +,Ô +eœþjì&$=BßÌ® +Ò£Éÿ +'¿r—2¬Z6WV'+“Í‘‰²y²%²Š¯\aõ¬OKènq!À_)]_6~5Í؄þÈù¡öÕZÒÏ®1m¡'Ðê©£2n¼¡¡Hœ€2’ÏÊDvNÑڑpf=-ãÈ>¸4{ '¬.փó秀²90 +Î+z«V#CèCHD†deK£Æ³ó‹>zê˜K"#Æ´•ûlœO‡Õ¸ÉqcZ‘XËsÿBMŠƒa + +DP?÷1Ú‰úD^!]ˆ;0®1ñ€ÿ!Ӈh;$í‡ +³º‰â8žf¥Óÿ%a4±qo% +J$`œ·5Õ¦so=?ã~ +üÈÃýÊL( +¥Ê¸‘žÑy߸‘/Úë}пÇmA9Ð}?·Aùw%r1´ß% +Ò:¿Kd‡‹j5܃Ü×Ê07ˆJ ìå6&Š<“Ü}@©È½?®ÖRúÞO𖢧¹÷¸( +°N–Íc|šëCQHt'ãj}ÑîZ +7ۜ¶x€FŒîf¹Èý*ÁzsۑúŽqW! +”pW',ž£Orÿ`hgé,°Þ½ U1-Æõ†¢£µjî^èsÿ + +ÿo¶Ú™ñМ"TânB0õOý‰þ´Î}Ð ¦@4€h>*>@ +„¸ÓÐsp¢Ü›h€{ +í†t7À2˜rK8x„ì¢#ÜÜׁü“À; +­WŽ« +”²¯'Ìi +íëã:CQÍÓÜkh9$ğ·Ù‹úŸänf[Ù=nwÑ¿N¨uÀºË%YÀÀ­TOsÛ¹«'®b +ˆÿª¹kØà©q©hH5Tû!¿ÒqHB’ÚjØÃj´ +èMãc‘ñIn-¼(a(ö<Í-„­/dÜZ˜°øÍŒ°âIn (ÉrnY¢Ó®HÀ`Ú»l|NeQÁ“Ü2¶áe _jN¤9° ¡–”§n\c¢ËÕ3ÄHBe`͑”Ýqáñt[‘”±’m©˜¾v•ƒŒÊÿå` +ŌãEã¼T¼“+bd¡VHû!Å!É@E€^‚,B'Y‹‘+ƒ=•¡)H +° +}‰@{!ªt +¤g „$g­­´À +­ï†D`Æ(ÔyÈEH­¶CÚé(¤ )Ñ1.Ö¡ï"@¾ +R +Ò[ +}#¡ŸË:réûœ€&UyÐ6²O¬ÄÛÐ6¼lã¶É¶É·ñÛL*±4˜[$^J³|šeCVÞª +PoWsjQݤæxµ &SGÊÊb(D³¢²ø÷mü¤‘3—ïVìV’cµ:pœoAúÓwiŽa +j<Ôxqw¬ú­ê«¹co5~ØÈ +{ó­7?|“;–÷VއyœØèª,*_ûñ6| +–yp×àåX¶žëç¶q·p2åj@d­Úív-W µMZŽ× +Z²[»_× +Õ +×Ê㊣ŠãŠ“Šò&E«b@±]±[±_¡ð(£Ê¥¨}T[G^¦î‡<‰ íïfÏzŽB~œÕw³z+ä¬.BÞÄ ?ä‚䇹~xÛ!ß +‰âѺòZ‡äþ;h€|7$B~'fø +b€ð!@PÀÇ'$ +8 Gk+É Få  ò£òŒ<ÁÖ>óÉÔ¾Æð^¼×Þk€G¡/kk +|€A"äM +òC^@!òZÂ_n¬µ‘;aÆõß +é-H +ŠB^©ŸÕ<ƒÜ ¹HîÏÊ-Ú>AîH„ÀBᓊL©È`ŸÃY´¾ÖHî€)ï€)ï€IhÍ©†Ö¦Ž’}‰zŠ»/1O**‹ßª-‡£’’² +€DÐrÈïfPò +`8ƙz +ò“ +€|ÿ̸õ +ò@>=–#wÀw@F²Z·ŠZ‚¬V8ÈÍ&•y‚<‘è1{&È¡D6ŸT$hQ›F8འ+Àò²ün–‹å³Ü(jýúùõ?ñëôëk5d1 +@óG,å—Š†€þ݀þ +€þ{ý½ý“øOÈ +^ÑéÓÿÙ§ÿƒOÿ¸OÿˆO›O¿Î§_áÓ/õÑ©²!öÐ7Íñ×Xž!Úýg‚þmAÿ² QÐß#è›}¥èø¿áÐÔã»X¾‡å¥—è=%zw‰þ ž _’0"õ“„àKžÓ$Â՞ NÍ +âM4¡ÈH4ÖBáJ4®„™h +‚"-Ñx›§VMŒø D$ +bÀU´Ô%ÂWA·V*T‰ð× 'ž œL„ýP|šèrCñI¢+Š³‰®(>¦ÅSø廓À4ø¿]ß +éñ_Q6ÿ +È£PN$kûqiu|Uã 4'H©ÀßO„8üP"œ +щpŠ¤â{‰°Š{]ùP|7ÑußIt‚âŽDv/oÊfóìE!V']Ð=˜h¤3 +$£Pô'K¡Ø˜¨þ9=‰êStè|ƒfã.f”¶%ºÂн>µ‘”ͺסR6ó‰Fʒt’Z=nHm¤ +×ÑÀÏÇÙ,b"\hՉpŠyçª](æ$²Ç¸<‘ý]à\Yj +*Ÿ§pÈ ùáGɓèʁ"3ÑÕ +‹Ž¢ÒR«šQ5#ʔS,>'²$®lºdÍAŒonÆKâG;Вv!~v•kV¬Ëýóqܼ-Y=ßÈqrÃF«×Là):â:ýƒ‰#ãÜë¾á¢å‚ë¾Ñ܌¬£5ösµ©bAý—d­©¼¡>rîcDΫ¹ã·/Yµ&þˆ»9^D)wó’xý£Š#¤—\ÚP„l¤Eóš#¸›ô6¬¤í¸»¾Ðæ24TM6j¤ ‘u¨š¢AûºYhø 4׬®––ムŒf9CZ+!ÕÍFânÄu +©Ž»‘!}WZ0 +tÀ‚"-MދÂlÁ°¼—¡Ù)ÚÁPfê +Q”ƒE!@8*bÝ+ÎugKÝ?º@»'0>×_’¨ÍF!¶BˆdNäÿÇOlþÿÅ <>o´o +ýc˜VC +RküÆÑn{|{» +ìMý•L¨µ½£›–m±ø¨?Vïó× +ç­ù’î5´{ž¿þ ZÓ°zÍÁ5b¬>1Oœ×ào«o +_v՜ÁóÖÚ9³Öœ«¾d²«èdsèZË¿¤{v/£k +ÒµéZËÄel­%+çã%MkªÐüæºuR9N´°–V—·y¾•¨f¦3×k¿Òõ„ +ᇐ6Ò +×ùçÇõhW^m^-퓦]úO©.û•s½®'ðC©. +šMþùhÄÞÐSÿ†á32²>Àãáa‰×v©c$ÒÀúa öL€if­©þ´ùÜ'‘pÑp¤nÍÁÆÆ{O½ +‚øqwGš‡Q$"-‰ XvÍ}+ +ôµ +kñoÿÜøq#w”EøÇ!dþQˆîC: ~&w´úxõÉjîhãñƓ€ûæñ7O¾É +Í;žw2+OQ@—jÆ@á¹ïæÈðfÚ +Ál·lßP +‰ +G薧yµm¥\ÔÎÆE`–ÈÌØÈ9`XêÜ̆H­ÃçüjBò +9}¿_‰æ"ø9 +r‚S‰iH.{ŽC¥ì9Œ +* +ü9Â= +k‘ñEÈ +áÏVMV-ãÏT5NV¡€ùÏ +,𚼦 d8C†>¸£Ÿ‰rô)dG©_™ì"ߔoDfÔ$fï0⣘†[ôX/¦YJôŽÜÿ‹nóld¨ñtKÝÑæY%>:‰N⣓ôûð Õèf@d@ãiz²ÛÀÀÙF + +ðY ChùŒjµ¥F¥dU·ElÇaÁëñ +ÑÀˆ"àú‰B«ÓèÔ:•N¦°XÓ­Dá°;í.;§ ˜Ã2Ì)‘œQdš|í(¤„,#Í֎³åy +îvì×eµ#» ˆ + +4 +§>W¡A<ˆÓ•â÷ +@CB¥%åeeÅEV›UÎӺߧT€nÛ¬Öâ"P$î± +ßð7/jÿî¼\o¤ºøøÈèÏ +꒯È4!ǜˆ#èL7ÎÉ/r„䁗㽻Vt¶ÔîûÞŽìûÞ=7<ùîœ{c¡`÷œü0y²ý‚aÎfª+;Àt€Tm蚧ÿ—"¾ÿ°o½²_I0æ´E‰ÿ÷:+¾®Kÿ@h±"Œ*$W)uÐèÁíIä +†&c¿ñ€‘ãØè°~œŠ¼€ìĆßbþãx––ªF~² +zsÅǧ?ÃGpKϔ{-¶xK‹‹ÊÊJM%!ʃ¬ ¹Óº Ñ3Y¸x±Ó\(/2ã¿Ë»?}ôŠ†Ü`0{ÁvòÌ×¢^!pŠÙ +ìè.ØQzW +Ü@~H¾ÏqYºosD£Õh1’»Ìû­‡¬ÄšA€&V•1[›£¶¸Ø&°/Í*ª.Z}‰j‚ + +2ȱŽ›ÀgD’ór"Ãüª1?“3œ™FŒŸÁ;ÜOà5x7bVÙ2^`°ñÌdË)TSsšž(bšJ´êkT¢Í™Ã™¾‚é0¡n]J_ƒé) ±Òų2‘aªa¸§L&s†Ôbª0W@•ÿ°¬µx½¥È\ZÂxÅÈjIW*°xX^Ì5}öGÜÿ«¿vÇ +Á²7vox¤uq,ù} +ì­ +ûVüÎßÝsã +ú£­.ºnç‘äcæHµ÷¥`ïÏ2ÍÈBÇDu:‡»¬£V¢™˜ú§h1§—„¹€å§®F%÷Ùí +¹:dyš¼ÞæÛôoßð + +B<’ÃeJsˆ×ûÞÐMà·Ç‘3Ç>A~ö˜Ñéq'µwm:5ötG¶dìgÀ~[˜G:{šÚ¦¹"zš?} +¶,mœ™j¾+¨I +„2\nQ˜ƒ†PPãkǙ&g;Œùµ¡vìJó´#¯ +24mv‘p䪫P +h +¢Ï +¬²¤+`~¤´Ä +À +K: +$ {¥<µ>îÙÇ^ßæÏu×ÎßûrßKÃWüzìu|[ògªÒ|o^þºȢlywFþ­ÇöeªÓÿðÌõ'·îĪ;OáïMöíw%“%Á÷áôžzö—”H +nzQˆ·ùx­¹¦‹åÇü;øëýè畷ëÇõüùü~¯Æ ukl^»Û¦Uc5Q¹ÕV“ÅmÅ +òY‡ýF^ð#/ï%^?ñæ™øt“‰÷¿—dŒéƒ‘Œ°A³Õ„½&Þ(³ú½&‘a›ßè +dƒ•`|Šy#®E£Q«ŒVl}_ü8_ô +GAh ´=´?t÷·Jíj†ÌjcN +\׌§/õ2Ï¥ÓhPšLÊtkqªÆÝòãe—ïIžœ\þµ:—«¾ +ìzïف›'ß¾yÇ +®ý&./kÚ±pÍ +äXžxÉ­û:·ýsú¸¾ +_pÕý-íûÌâÈÚµÃUxò®dcQYù;V­ßSEϋSoË/†h)€ÝGujû¸ZS’1!•ŠT©‡Rl@çT»Êҝ×[otÞâڙ¡ÚhÚhÞbÚbÞizPñþ~ÛOm/»4 ++ +ÕYk3¶[¯³]ïº6ãqٓ™šh¨Û3¦Տº®O{¨,7˜Ì7ZKÜOàtÔÖz6™ +òKݜáR‹¯š°É9Â!s°ï.bÇ +ÄAj£Æ£!šF‡ã +ô¸†¨ålKã)Ҁq½ +éô™Óˆ +KVm9X¤ñ¬ +½«R+ÕDá +魚 Rd@¦µ‚Hí”±$Ì0%nD-ƒL¶Ø䧧±‚š¢™J¥ÜB=g€yÎâ"æ6Ëågå~´wÛ¯ +kÖ=×öߌýãþß%<þ2n~ö–»×9„¨R¾1žxþ›£{Ž +NþfßÀÎÍcˆL<‹× +­D‹©Dr’}öWˆ—‰§­2‡šÅÅÅ»‹²½–þší +Û?lê-šË×ówrßL—ïÔìåöjn³<Ä=¤Qé +±¸©x +'×p +)Óu5ߒݥ¾OöCõér +FÊ:ÝË*·RÜvŸ/²¢°ðí\wD±ã—ån +WpçøüXtJ=²ðb±FÒ-VΦ´YÇÍùöÂì +œ¯ÓÙsˆ]¥P•Ë•¤²[””Ç”o)F9)‹ŠDž‰h¤&²<²>ÒÙ¹%rwD¹†·Xw[9«S,ÆÅȨ÷艾Ú+8Šæ=Ǝ@jÏU)a¶ +ÒÓ~p( +¡Rê0äOŸ®JùWˆ˜!G@Ðï#~2ULW9^žr¡‘Áø@´i¢2*6ùó‰_Š´h•“üh9µBu‚!RYDò]Wð¡®±«-­¤rŏþ\œ÷ioÞ܀Ӡ•k\¡ùy²þ»§uÎ +²ää‰{¿;Y9ò­âäÕEBüPrEÐbðÙ»¸¯¯³øÓ2‚ÉþÛ¶gšA¾ù ß@¾¹Ø+6*ejM.çÓ.ÖÊr +&DB\H҄´!Ýrnf¹¶K3ª¹^cؚ³;ÿ1Ùcšd/hޑ½£9+?«Ñ˜;u +n‹ÏZ‘›;A²ÅK³Ü!£ +«¨Õn¯Ê„¼¬p+3wÀçW)•!¢[®'Ëqè™ :ãù8a½Ñà1CµÛˆèßIWgfº +yé–ÜìÉÆÙ:½>npWІ ʈE•—ÿ&p ÏÃJ°ÍH¨ŠÊ§êLõ²U§Y3‰òpw©VIr +ú;ü; +)%«[>WFh0 +¶'‰ŒÉ +ŒÏ?+5ܱMÄT3¥t¼ZǗ”š³ +%¥OáU «>|±S“ž–FµGMÔì´T39[՘ºÀSá˜+*0$ÄOûRzI‘.*ˆzÔêQ‹„°Â¨ö³YœBÔùÕAdðòó±à1òŠ0Ô4Yú 2 +úùH•Ãü+8X2ÍĤx° +=—¤N6N–LûØi ƒ¯ÇkRÈ V¥7E +y‹Ø½|îuÁºä™»÷¾´zÝÏ¿Q¸¡ÌÚPè'·-™Ë«¯NþeϏ§ž+_€ÁÅÆVäþĜQØ÷ü+&qÏsÉßﲤcgS4 +Ê=´ÅÉw*çö<ºq×£¸?À«–äT¤ü1ù€þߐh—˜çË3j4‚›ø|NÁmöù\‚"­à6ùüf!Xå4º<.âªÖj¨ì +ü5'5¸@#j4G5²õCðÒN—Ë]rҋ¼G½¤À+z×{·{ãPQÌgž/·EșSd)(ŸÀ6"Á/Z +ޗ)—¨•f+?ù +Z0Šày +/ÁŸ] +0ìÔ +±À +Ø©&Ìf ðŸ }-Ä1]Ÿ‘aä3Ün£¾Ò­bû¶ù|¤Ò­ôùM‚Ûº4ƒ7òò6lt»«Nº]>d20vÛ¼*p?ˆØ¬*£ÓX]×ë±þŠ&?öó¦ì +äÂM.Œ\ýÀ¿+|Œ ü™Á–!ú¼­‘úŽ!éÉåÕ ª¢Óñ +³wÈ®x +A£]Š©)³vðUW<¿ƒ +S¾Ñ‡#h*.FÒJ‘‘7–£!aÀ»]Øî½í6îv{¡C^½Lyò,­/-ìTðS—$ÒJ¡x@L3ÓïøtÌó»ñþŒ8ÏP!j ¿ô‰ñc¼*ÝUÃÓßwÔf{ +RÒjÐÄÔG©š1½Æ81õ—qÀò÷ ƒ­F +Ù£QL%ˆÑ@,&?}À\ +³@çKq’|Ç_0ˆ^4×ëûlãÆ!éXãŽÌ¯–/ýìqrÁÖH%ÀÞ¿¼õÓ=²žÏîݼ2Äk{¹§e>¤o•€t?‚HO2ñ£bq7ߝ¶Wóšù5Ç ç‰Œ×Ü1«•ve¦Øu6§-#‹ÏJËJÏvj2·ƒ3³Ñ̒rqÆYa!-UÔåuRH±0ÍÌ{ðídŸbŸêvÝ +ýäÝOå?U¿à~ +¿¦×™R¥P+46l#6Mou«» +]—ÉÇt£ŽQ÷ +ãaûa÷k®Tڋ +†RÄYK•j³Öáé[ÃÔ\—è@. +T¤Qä0çŒ +5pQ0š=fboFϘAêÕDãyæÆÓR×ééç^ԉ­ N¬ +gòAw(=¤ÊC§ÝIF½9|r±EMIgb} +§i¬Aä”A‰TÁWz²%Ý0Ä4þ?¤R˜+äSgD­¹‚ØÍ:Hdbê݄©Ž÷¡Óš¾B +µƒú +4}‰hž¹N€jáxu%ñ +Y!ä>%{&Fß\ÊC¼`ÃõøÛ{^Lޖüæ‹ßÅwâ9O´-ßzá¾ + +kÚ;×%û’¿J&ŸO~öÏç± +çãۖþè®äÉû)±ãÐ¦í£O +ÜÍ[&½”Q‰„¥«­0§h9ï¶%Ð˖RÁ™Øˆr\ +ëf®WËq yßxM[¯½öҕ¼^¦Î]«ŽßuíS>;Ù;y˜ÜºwÏM”ƒMɛåÿ÷ü3±A¦ívtglÊÌZ£&m‘qQÚýÆüNói;,šz\§éömîÓïá÷˜÷Y +°?"ÜzÉøRšÞJmHØ>+¼ÈL•|ª´S›« Ä̍fpVk4:­\§à5fµ–_l¾ÞxCšnL7Æ_f +óoÔ챿€_ШW~¤ÁàšNˆv£©D› +ýï1ß×rHëwÙJMœ’>„ +æ–('pÙ!®PQ*ŸÀ1Ѥõü +©› +Ž¬ì^oߚéhBÔ#?}Әî< +#ûùHo.ɖÎBf–‘–³Ô,Ÿ +óEqQ䝧›éõ­ê, +5jNSÇ^εE2Ô¥ÔPËt!/ª# + Vgê\Adç! +™¡ê³x‚Àü +=:­Óh +â@d mðU³né]Îü +Ô2H/뼞7UX ÁJÓ !É[äìù³ +^ö²ØO,^æx–!šø¬÷jþ³ßÌÎÛ3öDòõÅg“¯â½¸WàۓÏ&ûµ¯¼ü¢={/¼¼±UwÝõªy¡Ãñ¼+p¾-ٛüeòŸÉ­rù“ßI¾™¼ï¡ÍÃ÷ã%xÁ7éKª!„ä¿›ô£<|™Xs¡sȹשüvÿçøÚ2:|J3’#/粂èטkÌwƒÿ×ËþãQÕ>믝ÿ²êøÔ)ªtä7‡˜Õ2€.b5Þ +—äRóü¾t¿ß·Í# +3¼®í¾S¾3>Ž÷5ùŽû¸ã>ì³ +3|þP0ß5ÿ(Úü)yùi`ö¯¼^ŸB5„7Xá' +óa~Ó6ÁѪ +ƒ(õ¸Çõ ‘@nY¸,²!ggÎÎðÃ%á'JÒ*fn‹D +Zk,󔑲‡ +Ýî̵‚Û#x°g´kAæZääÄù°%'bT +ŒZ£1C›a”Gsî4Þ¯}Lû¼QÉ1je~yi!ç/µ¨—ãéw7åøbâáþ:yÑ`vÎû/™kTyTDM‡< +ùŽÊ \q0uŠŸ:M]}Ë)éÊa²ÁUŸ=½r´œ9ݒz€Ca +TºÕkDÓrFÌ E.Õö·j·¯Ï¹.òmã÷µOj_Ò¾dԃA7Ӌÿ nÁiÒSöø”}-é2ös}”ã7[SÎ?”•OJKʊ§oÜ³Ú +÷Ÿ®í³¸Åè#¬Z™üÇ+âÐE +g¥9Ìýôց늻¯=rïÅ<6¿:ºÃåÌÔÃÍ¢ê‘c›.ÈóGó½«7ww_ÿÈÇÎ@zvA'þ´uEÁÚµ—lÿîú{OñºZa +•êb°n +X·€¾ùÀßڝ%>ê:çòæÁ'‚É +õÉ + øJåg C»àæ}>µà6úüž?8Ÿeº=Jg6oT¡L + +}*érWíàíX°7ÙwÛ9»À{àNÖäÙæÙí‘yžÀad'? +g>œ? +׌* +˜à™ÔUc²jú‰Êô#¸xЛNÝ·¿xg7¿I® +ËêCëc¶ºÊ¼ÉJéîѾ³úb[H¾4yë¶~¯ùÓ¿ž»~Ȭ•+nÇý”#S'å÷Gò1'Þc7:|Ä®Éò +ý—û¿a¸ÙÀÿsÿ”_Í^âxÌžÀd›u›íˆáÅìÙïfä~‹÷ ސ¿Ð»Ö§|Öû±Ÿ<`8l Å*%½ªù<ì±WXÈw#_ÀDo1~»Í†aNÝ¥5ÜB„m +¼Þ3å!ž+ + +悁‚ýòýiž(«sršÂ8|E4u;Iý–Çâ•AévrZr\‘i‡äóf«šP(hjƒª(ÊÊÖûyˆV¼ê,]}Q³*唇à€J£w:EêF—r>Y!éª'Ýôè#H¸ +0¯¤, Où—Ïu”_ÙÚwgcȝ·ÿ&£b©I_sæÕxë5½Nñ"ùÒ ·rd²ûð貎ž 9—,ƒ32˜Ÿ/¬šœüð׉¨øâÃdïæ +¦²0O½­¤÷ÞB¢ÇoQÿ3‡,²÷8 +¶OØ_t¼çx/GYaÇÊ\ +¢2´¼h}QSñF¸ãñÅôùã@ñöâÝÅû‹ãÅêgñ±¢?¡¿£©"ù°zØ1’}úÇ~ô %ŽžCj»#-®@‹„ +Ch«ïâk¶#¬v8”Ò8 +v§S¥Eôÿûû³ +»‘ôÃfv›„l¸o"НÑÍ{œ` + +áw¡(ˑ!íÄÔµãv­"ØËŞ +¾©xðFª¼œìôœœl +ÒòZ¢ÕæÙmév»M­Q«4ÙvÀ +R™¤°M§ÕÈøl§ƒþÿÎvÅ + úœpN6ýïŸup‡Ñ + +úÒ +V£Rª‹m6'ªÕà§Á sHÁÀj槎 +æM%<ýå‚l÷Þ²É>s¯£‘SÄéhœtÚ'ŽIû²†Xý;`yUU4UUѧœæŠ¡ +pŒîh̏ÐcN¾CúI +ô÷¤s3쀬pž÷ãҗüÄ$U>nÙÁ«ªTô‚\ +["’ƒ}<,¨õ%B6†«m3}×Ò28ˆ†éÛ&ôuì§/HÐ+)},ž§ódi”¬ž–ÆN¬Rå¡’tEEòâ¬d½‡»ô³Ûe« +\ I–;tùd!»G—Ãi‰5J¯Å6:y%iX;?#' +[ЊuSçÞäžC +¨Š,- +ž¯ |E‘XU_rcémÊ;K¹jêVۖ” +®ÀW*Èû~Õãy/äð¾–w¢ôä‰ÀŒ9]ѹ +IÑ +ԍ»˜)1Ú=öõö~ûÝöögìÊ·ìïÛ?¿o +|‰€óÒs=¹Ñܚ\Yn}N1è ’à_ŠªkÔÛÔϨe©y89&ð“"/Vo¯&buk5©~Ȃ-ôÅ11»)»fÊ +]TΗ“ò"¹è–ôË?’“¹(o’·ÊerǼ9‚Š^Ç +ä`¤ñôà™Áȏ[à€9ÓAôv¤¿ŒCP,•^Ä`QÜ¥VéM•”o.·±ŸÑ³L + «¸ˆ,zô†¦K'p©MÌ® +;3B‹æÖ\8ôJßuwÚ +št½Ó•Y´±¾i­fËÜ,¯#¯hמžå½ùk—–ç¸Ív‹'’]Ø°´xá5 +ç‡÷$¿-zù }qݒo㊠+V”•çû]Tï#S§d.ðÐ6” +WˆFó²ñ6‚íSÀc›Àˆ.èZN™Òj +CF#¯µ!ÄC/*æ +úvŒRZˆsæÎ+iÊ9žC +rĜ¦œœý9ñœ£9Ê +ƒ + +q„Mf‘ǼÈ7ñGùãpÛpd/dqû +ŸÁɍ;¼ôá„1+6}w£™Q¾e(a¨9jN +5gêÙԍŸ?ECÂgà«À1I2vezy0r93œD¡ Á Ì— +Ý:G&Ò<€ýŠPvê33‘W•™užŒÙïypOõ_!PÛ·« +”? z\¦ºZušl“mÓlól +Þ.ßP°8Íؔz—D-Ä5%҃8Sº-u +—Ð8½©õ‘Ö­¯\³t´âNŸR)Æ×*4Kç/*,˚‡îääÖÁã7ìû䚂²˜ìþi.œ¼/ÙºÍ?wQå÷O¾ÖTI¥¹ +¤ÙÒ̄»ÞVÑ¿Wÿþˆþq«Ìl.W¡L>“Ø„ïUx¸äqUäZN¥¥s :l[¼¡t%L +¤3b=ÞNìaL¥m(rÔñrLâ.:£’ +Ðb +Ô Ê~wÐJš¢Ç£d º?J¢ž‰T¢¢ +Öƒã¼ŒwäϹÊ>cæôáH9rVª–"IÝéOð<{Ó©EêŒX³}a}Z è +9”•“E† /-” +ÂzȂ&oÎ2F²Rt@Ža&Çè€~ mÀ7ŽGF†mæQÛ6ÿ@Îåy×ÛvåíÕï±Þ™û€õÑÜ'r +ۍ;M$Š[š™þE%ý‹¦ô/šÒ?Ì^‰k‘Äk³ÈK¥àjÚԙôý¥iÒki–t+»ús¿R¨òæ$7_п`¼{u÷cÝuÝsÕº‚ù;o +ڃђ<[öšeò¥Ÿ¾²)Ý+ȼßº¨zÿÕOïùpkI-vn´º3“×ߜî¹ëžƒ„ÒvIZÀµÀYfA.×(ÌKÒ[ÒûÓ»-1û–tePó yüÌôKòKî„þ„åïÜ?õšm°è4KÉE\×ïã¶ù®á®7üUÿ®E +VMY±J­ŽP5TœªE.X^`Àه\¡4¥|gŽë´j+{bÒµŠ_‰µAý06¢‰ŽŽk +%ˆýœa*EΨ¯Æ·Þ÷¡Oær¤ë|³{Àge¦Y*C%Lkt NÇ!JsxçÜ,) +{W‘½¸Ñr6¡Ê‰H/¶ž™¤Áó™–S˜ÿÙ ô¨Ï”éJú2̞LäL·fâL“+Û,¥ +õÑG:*äAìµJ¿ÆÛ¦hù)KRoZ,\Ëä”zmC[Uû +ß҉-Ç7^4ùÈÍ¿üÀ´øK¼sñÇOô®ª»ØzçUû¯zæ¯ØòÞ½÷\æ17ßéVÌGˆ›÷ð< +׉Q¬HóˆQ” +¯” +#ã +¯×éÌà’"¼Qð(âÏlÖåqÕ¸¸px +®¶à<Ã5¹€'†&Jߍ3F=Ñ·¢\¢Hl§l+p¸Jì™9>JßîœèïßÊÃy¿E('Åô°î¸{܀ +¿ÕëÍ9ºÔûs´£9E%‚À!¨+Ðm×íÖí×)è£×V +×}¤Sê +B´ Jò£/yŸÀXAÁ.c?9EO +<5‡5ƒÞáÏFÎü¤GÃT`u + +SáÂSsú4}˜F_¢¡ï-±—i¤œš8{ +‰šT9Ü« ÜK‹K³JR£´<åH›¥Ø‚ßJ.šü]Miú +7àW]>¶x^É< +LÇÛÜYd×09ö5;Šì*XJv¶7Dw]7'o~™Wa2Z4ƂÒcíԟ†!óË{‘e ×Ekæv“­ÆhBf”!»™ÏPØ +3u¡>}Àc¢€ß +ðd<ÉþºO,4•”• +P` +ˆ°.Ca6iԔ±Ð*ÅH"—£ÓIo0„í6¦go,V–²¿ôâmš•b4¯ $n÷Ø0;¤m—‹™M™Ä“Ùš¹?3ž)‹fÖdÞÀÑ̓™ +÷²£p´‚椞SÒ3‚¤ßkN3 +¢üÅ|Ž“eiŽ°×Ĥßá° +Õ®½D×®}%¿.©¬ÎLϟ/ïe +¢xIr£\ßÿiïڃÛ(Ò|÷H3’5’f<Y +ɚ‘4£‡5‘Æ6’Š +ó°—í@b› +ð¸8ÔÞrل#GŽ +%Ùì’åqT[u°µÌÃávSp<î¨Âµ°äØ»ƒÔ‘ªªà²ÀÂíqqîë +ÉI»KÕUÝ_ž®î¯{¦§5ÓýÍ׿ïë¯íÈ&Ù4ð¸ ýfÀ<$"xY‰ôÚå>,aE +5V|ÍñÀҴYÚwÀê" +M:Üɱ>TgRžô +ïô +! +R‰¯õ¡¶]t˜Ç{yìhdÛ5étXrYRŸ´Wš’ŽI¬D귗J„>](–i™æØøY=T_"¥ +çñ9Ý1qºV|ù³/ïzå[äåáíW Ä}äï3lkƒ +–$Íö©]^!„ªh@ +pàpg—bhò$sôÉTÁÐr±åT¿¡Uõ”`h!]·³8ehÙI柟Ñíù¸ËÐæCÞÎë + +m@×=©Bg҃ÝjµãJ·z¥Ïçö ®:?—•C¾!éé™ +ÕT + +:<45ä +ÁM`„|T±{ˊmJ•ç”×—­ì”öA2•/àR^*tlˆáü†¿ä·‡ÞâÙvÄ;Ü0ÂO +±ÝÌ7âÿoÎM¤ÑøV +¯ã8íè 1ÜÇMžú¯ ÙïP‰'RôÄ,m +8çÒ²À;e¡v]¬Ý””çO¯åÑé‰àŠ°ƒ#j +Êgs&5G6Ö|<‰”¬i +žsøՕ· +_rSrô‡£WÜPÈ.˜‰÷Ä$ٌ›#ý3-ق [±\Ò*Ã5u¾Ò˜]àzhûêE«×\2ºö¶37_[ò›]÷ïXœìë›ñm` +_Þ~>Þ¿Ó6ÂÚò߆>Î0¸DÓµŒ¸¹ä%Ra!w|&ã>Òñý§øž¨ö°¼hÇunþF>—g_Ú½âÒeX2[Žˆ’]³,[žÉÖØsÛðàÆå=ÎüèÚ²Ç0tC5¹}†¿ºÛsÖöá<|@I¼Ún~9Š³~,]ä +fy"Oƒ—Ûã¶3fIpcwTwô +J +ÒGÉDOo‰PÛș¥)}Zgnë—ë$ËÚúAÑ +ç{šÇ| +çR +Mú4À[^I°'³åîq"9Ás4"‚¦ˆR4Nöç g€ªÎ¾›Å{&­© •áäP8Äp\&ÖmQZ\Ä! +oWqSƒ¤¢fOÛ`dq"h¨¸Õ3ïëÍù-ì~Kz‹y¸mªƒ!ôíÌlÉo/ÞV¼ßÃþmñaö±â$û\ñÕbÍ*¶mŽbÛVSlÛÎTlӜç,u¶ë¼útCëêQ#µ^u2GzË+_¹jûÑGwîO‰Ñ‘“Çt‡u«9½"¿°'»À¸ô[vÔ¸ÇÏ~pjOg×u_.YIãtº¥8ˆo~àªLhѦ™÷^4¿ƒàªå 9]£ÞŠ³¶Ïð=¼ìÏ„0Oü¢bZɬá< »žÐÊ´WÓ‚H©•›J¢‰ðûL†W%!ŽTÔªÅEUlåp¸)A©5•ÂÓÈKZœÂSÝÐZ [Åu_‡`«Ur-]}Â&2± VNû„1ä{¯Gn¼þ™}žiÏ1²á?kó¨Uˆh€ØózÊa­Jt­n"–pÖìd©©4•Â[R¥Ä“úM~øBjsð)`¦Ï>ûè#ñ¸ƒàA˜&ñiñPsU•ÌÓ^ 9"ÖÁöÎàí5â˜' +Ï°šEêÕ±;ú»õËà +_ +m +'°ÇouÏxzM¯/Óæzèͬ_Ò·hÙb7הê»âÛG»{ĘJÛsÎ6µDÙ4Ý +pœyƨƒÙc¯ãÛÂbŸ[ +´Êb¼ÕÍÉMòKé—2o‹Š¿=­b:ß-væ÷ðwéw?å¢OòOê<ëgÞÖ°_îçlÞö3R‡†îc4ŒÉ\ƒm^ê;H×(—Ø!tŸdÁ‰’õ©Ù¬)÷Å´h”S¨²/Š£“ø[WîkúT’ØŒé‘ÔŒÄKŽJaKá¾Trü +©Ý‚JN)$å"|ÔhÅQ¡„­ÒHi}éÏK;K•¸’ä,HÛpƒ“KE[suSGÍo +Ȁœr +‘ãD€8ê±r>åMÀÌHEnðÚr²Ï[ +ë4¥¡^›,‰Ôÿ|+ +΍ɼ~’:B +ÉËànòäХХР+¡O̶d®=N[°l皡[!c÷A;ÐäT$>mä‡TUúÔÉSÿ>ᗠ+ +5%ކ´"­w±€¡$¨ËªP‘U¡+׫ß1³¾üN÷ð –íkì³ìxRTrj‘_NàÑà;žžp(¼*`‰tP”Þ° “.ÐHOžúíˆ% ÇŸ1åo™u.¯Eãð)kÝ|g¬ß»k¦Xú)è®Ù¥{gëhg}ó#!Õ{KkENàÌØðkmQùdSRLîhë­^uOaá]ß_1k”šš]ÏÏ<çU]FLi}ùö5ÃFó| +ݽ{~¾m`ps÷ù®},-Äò“9õ)sÀ})èn;¸—ßëghÂû‘2‰Ÿ†áq˲+| +ƒ¹OþH•‹ßÚ°1È3®I +´ã,ÿ´?Ãn7XeØ|¨)¼M–C6t~ˆð“ú˜š +M‡\!%J$‡c&ð÷ÅwèèVe(¢¾“ÇÇÈú<µ”U1Ýé8ˇõÙõ*4ˆ¹ +l›|ç +!#öWÔUO¯ÝÞè»é»/tŸœydÃÉçVYñ +MSzSðïõµ/n#²ºïÔqw»ë!”Âû žîïáÓÓàùóþ¥~wÿޖŸ¶L¶¸ÿÓó±—I_$I +4V +¹ßõàS +LŒºîhĪ¡¥tåXŸ²±÷ñ(•‚à—¯ +TŽv< # #x#P#P#ȝ#x#xýu + +Np¯s +âDŽáx÷D0·5ÜnÔðºQÃë„>‘w.CËF +¶j+Û§ +¬‡ +Æ2¶Œ!ka +Î +D®L@ÃÁjÖP{ÐiŒŠ€÷Al§‚ÓAWPчgMãt Øa +’ã³±3KdŠø¨îõDQ" +č +˜y¨q€HݦAW%2ÂNÖF:ÌgË®×r½3·,ºõ‚‘íùì¼#Ô3â¹n‚µO×ÈÞ1ºôŠ¿zß@@õɛÿ¬¢†¢#ø³š¦gÁLý.Œ~ +yÑ^žß£1ѱÂH©¸¸±íHÅ%e-£}‡9¼·ýUünÕ+zD¯Hð[sÄë!z„æõœ€ùÓÃ)¥r&-Ø0¨púŒN#½µ+¤ôÝÛùl'S,`+®j+ +ÔpEð¼šG‰G5Å(¤5£³Ò¥u>Ëa³× +³q³®¥4½l•´rQ +"7GS]9h=j1ë¬;¬Ÿ[.+þcáÑÊÏ+®u•;*_®‹„=ÂÁŠ+> TdA¨jH +è+ö­0¥¼WÀv +-¼Qp°ÈIr‰ÅaœÆ[ñnÌÞxAûBs­ÖnÑ~¨=¬¹ø×Àç×íø +ü÷Øõ6Ìj—49Ð*¶¤÷ X–PqkX +h–VqW¬‚ØËÍæ”β¡sJ³‡ó +ªNU™*<Ò3Bc©‰DI= +ò˜œ{ÆêÖ¾ø/°Š +ÌwÐ|Te&’Ÿ€ 0?ûèó“ +¨EÆ +›õ  †˜HÏø¸¹'¸²h’=PÀ‰TøãSLj¡i ‡Ê9‡ +*¥OøkºßÚ +â‹c ‰èþUh‚5óí“çú8) +ûCW8꾶 +oöKI‚$QI‚j +'µ#í°Æš«ÕwêþKkÌl†,L +ãˆî°Œ–Í%&³]ÍoR7j&Žhÿø àÃD!Þ{¡¦úÖÙr)›¥ j֟¯«Ëå82xj[l#]ŽëÝqÂ\ÿàêö˜uò‹ÞxbÕ‹ó†’ófö/ +¿vå#Ãm ++yY—²43ªðòÞÍ +™Þ™× +0# +દPKõîK!`VÁ0–܊óûºÓi,yDAôXÓyý¼pœM§™Á+‰Ìmœp}_ +7~rùÌÿTW¯_TYa/Êð|<€ü·Ûί +»Ñµð1ú+Œ›¹ÎÕX +“_Üw²Í +sÞ^±¡ Âíõ້ÿžß +¬^,,^÷‹ûÿãÜÚ /“— +W6µ4}BBäNšÊ=Ñ‹ý2ö˖#ñÛ5Eۛ¸“„ÔR}`.Ì +¹0æÂ\˜ +sa.Ì +¹0þEˆ!¹ÁQˆ +ú“‡«Fy?$"’Br2Êé +F:ƒr­y4Ú;Î+•;»ºQeöúâ%hph)"ž@#£«ÎG«/\sÑÅ]ºîOÿöÿËáFoÒÔMúçĶS§ M”üitºêüµœQB!èÑp팂¾î0Pšì> +endobj +223 0 obj +<> +stream +xœ]‘1nÃ0 +EwB7°ìX’ +ZÒ%C‹¢í +™ +> +endobj +225 0 obj +<> +endobj +226 0 obj +<>>> +stream +xœí[Ks$·‘¾óW”½—ê +³„÷c7ö`MŒRxeiØ +F:PlҚ +>Lr–þ½¿L<*«Ù]Cw{pÌa@t"‘2¿|u?¨É˜ + +ý“\ܜ|ö. +{<¹?Qƒ +ÁOÖ +7'ôÛõ‰ñYMZ/ڍæú䧓ï†[ +×`óÈ#Ôðxq +Nn²ÞjÃ=²}q3|¾¥zÐvÊiØ^9БÓä̳\¶7'ïÇ/7§j +.¦ +Æ?rÛúôøWn›”Ü8PÓäœb + +µ“R֙Q•¶±.µ6÷ÑþŒÚ9„dr;Óǜ¬ +m¬³Þ-ú«81 +ÐdH)úñLˆüÁÿOÜö&¦TÇb€³e¬UXK߉þ:Ö%cÛr¹Ëòèd³oÛãS +¿.$1Ù8¾$Uœœ•ÁTÆ«¶_ÑþÛ'‚Í?Õ*MÞ +§Ñ{¨Å°Ý€nû?'6æÉ9 + +zޏßl ¤Wބñ +MåB´!CÛ(•Ñ¼݃Ã:CbœÏÝܾ"rí2ä]¹„^œ:' +Ði +©ÈñõFO“$Úғ +<¶DO.áVÞZX·Ÿ2~ßçΫ6aÒAÙaûç“í¿¿ߐì!YohOÑFXÎÀ„¤=6ïGþÁê`5ö?h¥1h|ä~í´rØàµÑã®tgÈppãµÂïi8ÕÇS÷ž¶D;l3KQ›|àm‚wÄ59m‚Ái. +`r‡á¿6>XR½E{3E›c;Òï†w›h +6"vÑbÝzc¡Ú =ÅvÒ +X-,© +àç&eý%h¾+‘NÍ8¢Tt:39lPaè}Æ + 3ã؉íMU?1Oà + +¦Î”ïÇï7ˆƒÌPº7ϖSÇ{¨ŒòmÝÃ{(Iđºñ +´RCh´IéÀFH +é”Ϩ“LûËÓè ”õ4Z¬JtªÃëöÍ÷{›!"£1~ۗØvBRˆ»Ãa-ãíöä[8NètŒ´ªèƒ#CXÒÿ¸<¹zNóߣ°ÎN)¿MÔ@¨ØÔð,>O¦•VI°ê ÁÌ*M—g +æeAíÂcaˆŽƯ̈ÈÞ¬C§5¬GÀF[Á“{÷À³6+x2, +Ïࡦ<áô±ÓŒ +{” +T£ð‘¢×yc,bu»·y+4¯Ù¼ˆ@Žó€Ð +}"¸àI¶Í~δO©M +1øfXØ‹}"`sy§÷®Ó>yro + +OˆøN°;[Œk† +R2ÅƂRžÌža¨Vü$.‹(8Ã|n6ˆ­ƒõkm3Õ킽^p¸¿ØR&+×Æ3¯#’>”E;£²Z”ïBTMBR˜<EP¡ [‚–Oål)”y*¡³¢ ýC¯‘4”yjÿhÿ\Ú@ +M¹ÄüC + +u¸é¯DnÄpõ¼Í£eÿ´ß¯ê9ø”Iõõ"HœH'DfvÃH4‡Z ~'sYZgï‘nx[=š?ä +Çßí©6p(Á +»_ýJ¸1#à\ ·§Žô1zD‡ˆ~׌Þ!ž ³=#PG ´Þ’¼+4: ŒB»FÓñe +æ5øâè¤_¾9Ž/FçZ.L»C‚‹ýPƙkò  ¥m!dëçöc–‹&ÛÒZĎE÷ªD€c +ÿ?~5“óùS­ë™{¥¹¶6•íéH?p)8`íc™.%·ù±Ùóï{ð¼ƒ)”¨ë½=ÄVnȽ xísÁðˆuáNråð«DÔãt›ˆw +A@ +q +¢p®0sS\±ìüin’+ÖV¥êŠ +, +RÞÍ͟çæ º©Ìõ8JvÜ +"¶à|žïãÌYH1 vÏÑÆÁLXîu6sÒ0¦DöØÑG—Léeèóß$¤×]˱8ÓË ¥ÿv¸»v¥Çeï«VA~RÍKÑŽàƒ&¯×àÈDGaԏÖh: ­uDZ#ꐴFôLR‘K +À¤¯a’u{˜ÄY›5šÌè©n|D֎Ȫ`GÙÿA´ïn dpNãósæËsîaÂ¥è¾:Š!þîâ(G·;F*îÅPÙáî‡'©–K»ú™ÝÓ^yCÖÇ°™j\B­sñ;ObC65lªÅN†$püŒ2Æj9ðVPï +k®)ÍÔÄ`Š'1’OÉFí}M<+͝hÿ\è-¼s‡­»¥´WEZ䬂`'†UÁ¹¼ûQLy)ú'Áp +~%T|J æJ@C®ŸÝ +réVgrq¹Çy +ÏYNÍ$¯²«»\Àö²Dõ‰ë=¼qVYªÿ^‰ÃNŒ8#XöZø^pš + +‰mµDÈNÕ ñû±ø5axo +«”í3k|¿ÙXk' +Ásð4Ñ`ÏÖÀSªzÎHåIP¿Ï5šžkD +<׈:x®½<áòZ@÷®kG+Å%ªÄ÷ŠÊ6ºáZWã(u7:ü‘Rnd:r]‘Ò|CµÇe­_G@rۋÃ8ç¥Nۉ²ý^¯X„\^3VéXÃP +µsÕh{`n3~ÔÂÁ?ÊXMVÁã]]r.ÆrºÚŠ´ÝÞ9¿{¹ +[ƒªAÜßË4 ”vBœŠ¸ö\ð®âbR‘«·bìǍ‰9ïUÇïr_ó(’!Ywە¤‡ëtÌ7{c€z<_­ŠÉþó҆>¶r`©„mj,Zÿ®SpYðF´%«g±&Î;]KŒBµ¸Ì´¢³Ì†kÊì"Åõ†ê{äÉçbˋs^&Ïu.ÄËÀ£s!Ä­Œw‚›˜©î«'ATòö¨U´KNŸJÜù‡+¹³j5*G¼£r0ÐÖ°[ÕᥰŠf–Ï‘zµNœxhMû9z®®jÀ¸.*Z¨n¿ÿ4ÿ~ˆÓvã¡`XTùè£,í¦¦:y6­ƒ +ý¸aœò<•ãîr¶\¹|(T£Kºže’{!՝+S9Ù¤¸ +£á`¹e5:„Khò¥õÄëi”´ÍhÝ~7*ðƒ(ø;¸‹(å§Ê09# +\°Wíbž+!“ ~8Ü]¥^̝3³Ý +²hS +ùºXxr>[_ÅbaËyq +Ø +ILÀñ)×n«fèy+à†g58‚¸âŽÑoPn +UЭDF +B ôT@Qgp1×¢ßõ‡+Á¨D +uÏÅÜl¯>*Ò‚S¹Œi£„?™Ž}qøÓ¯ÐèÌiŸ¹¤ISDªœÍ×oGò2 +ÇÌ +Zø¼Zè +}5s܁ÓAȲˆ,ÖHZ`±FÓâŠ5šV¬Ñ¼&ª0®Fýpàº[E +¨êL† 8xCi5œVIj +uÐá7« +nçTáìLs™£‡¿`½ŠQC_‘à/«{Ù×Bp*T¹Y‰P‘NÑ`ÿ‘ +©¼§Gk4]‘Öˆº&­uUZ#z +.Yq¨÷AÏߞ”"v}{}»$?þö¤)Ÿ‚"Ó\T þή&%S#¶zD¼ËÉ;ÐࢴMnEÞÚ晼óä1KL +mîÖ_o`rŠ`RîWr†É§5ÁK$ÚQɨY+ûO› +ï’1²?,&Úo¨û}ó‡¹IV +sR\aVûa+b¥ŽN§)_‰%íIåJ¬¶Û{7ŠÅ‘ÖÁËꙢòãۛHöz Î#eù¹Þ{ 8çvç}Ä~H>eV«b ¥j&p[²ÞHÉñrS_ý”ЍÞ-"©–2ìĺäå¼È*–lgáŽEzrcevQ¯õù¡Ü”‰ +÷Ë¥]Ìâá烐ø‹X’L²>>?b2oËÌ®ÄQU&¹þ*+?/xó,÷¥±‘«¹«y*mD/¦m4Óm'e¶Ed¤kò³«%FcûéyìJ]Ç˗© +ÑïÌòýÝ*MÇè5¢ŽÑkD +£×ˆ^ƒÑN÷oþ¶å›ŒØ¿§j®‡´HPüñX¾ãÈüzƒ^Ûlt£/ßcqÀԊn\Ð,7S×òÎqyZð·S6k +°‚ˆõ +ôÍkvO§I— +ïï^þ‚±"Æ] ëéEÍõ +aÏӁ@χ8îDÈ¿îç,€kü 8}ž§±¾áKï®Åã2Ü> +‹ˆýÓñxa''¿-ìœÙ›FŽ”΋ÞdJW$Ç|8"æ­h—±.S½áZHý 7¶Õ Q‘ Y`$Gn%gÚµ+YAóTê„kEq!zuxÆU)ê¾EŸ#E©Z‹âoY~•žƒkxVˆ¢ªÿ)3»5Gɯo9¦<&ù*âBèg0BhïUëñíD{ǽ}÷ìc©z}ø#°ýï»~½ÁÌ¿ú‹ËDm$í‘á¿í»»öÉe +KÊå'—S×Y®Œ¤ýGýéRñÊý“»ÿUWL¼ƒ™ß×ô¯3hšú]Ãbš%ª+úÜgÔ#óü=¡-Vþ‘÷Dì’SõÓ«Œà +&ÁÇ"5*/ù4_¾Ê(SHf¢h©X²Ç©9üUN rÓLHòÞҚW[ߤcD’Ó·ø÷O»z@ +endstream +endobj +227 0 obj +<> +stream +xÚS(T0T0BCs#s3K= +K +ä\ +B=K°8Ò55Ñ32WÐ577Ò30Éê»å+¸ä+*r¸¦ +£ +endstream +endobj +228 0 obj +<>/ProcSet[/PDF/Text/ImageC/ImageB/ImageI]>> +endobj +204 0 obj +4453 +endobj +178 0 obj +6949 +endobj +152 0 obj +7200 +endobj +126 0 obj +8963 +endobj +3 0 obj +<> +endobj +11 0 obj +<> +endobj +231 0 obj +<> +endobj +15 0 obj +<> +endobj +21 0 obj +<> +endobj +232 0 obj +<> +endobj +24 0 obj +<> +endobj +28 0 obj +<> +endobj +233 0 obj +<> +endobj +31 0 obj +<> +endobj +34 0 obj +<> +endobj +38 0 obj +<> +endobj +234 0 obj +<> +endobj +230 0 obj +<> +endobj +41 0 obj +<> +endobj +47 0 obj +<> +endobj +236 0 obj +<> +endobj +50 0 obj +<> +endobj +56 0 obj +<> +endobj +59 0 obj +<> +endobj +237 0 obj +<> +endobj +63 0 obj +<> +endobj +67 0 obj +<> +endobj +238 0 obj +<> +endobj +70 0 obj +<> +endobj +73 0 obj +<> +endobj +76 0 obj +<> +endobj +239 0 obj +<> +endobj +235 0 obj +<> +endobj +79 0 obj +<> +endobj +82 0 obj +<> +endobj +241 0 obj +<> +endobj +85 0 obj +<> +endobj +88 0 obj +<> +endobj +242 0 obj +<> +endobj +91 0 obj +<> +endobj +94 0 obj +<> +endobj +243 0 obj +<> +endobj +98 0 obj +<> +endobj +101 0 obj +<> +endobj +104 0 obj +<> +endobj +244 0 obj +<> +endobj +240 0 obj +<> +endobj +107 0 obj +<> +endobj +110 0 obj +<> +endobj +246 0 obj +<> +endobj +113 0 obj +<> +endobj +116 0 obj +<> +endobj +119 0 obj +<> +endobj +247 0 obj +<> +endobj +122 0 obj +<> +endobj +125 0 obj +<> +endobj +248 0 obj +<> +endobj +151 0 obj +<> +endobj +177 0 obj +<> +endobj +203 0 obj +<> +endobj +249 0 obj +<> +endobj +245 0 obj +<> +endobj +229 0 obj +<> +endobj +2 0 obj +<> +endobj +1 0 obj +<> +endobj +250 0 obj +[312.5 375 312.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 +0 0 0 0 0 0 0 849.5 0 812.5 862.3 738.4 707.2 884.3 879.6 419 0 0 675.9 1067.1 879.6 +844.9 768.5 844.9 839.1 625 782.4 864.6 0 0 849.5 0 0 0 0 0 0 0 0 546.9 625 500 625 +513.3 343.8 562.5 625 312.5 0 593.8 312.5 937.5 625 562.5 625 593.8 459.5 443.8 437.5 +625 593.8 812.5 593.8 593.8] +endobj +251 0 obj +<> +stream +xڕX XW¶®¶¡«Üp-“Tƒ+î¸ÄÝEqEQŒ¢¸4² +¢ìkwŸn}ß[ +FÑA¢ãk&Q£ÏȟDž"—7߻՘d’ÉÌ{«nŸ{ÎÎùÏKƘ™12™Ìb¹ýr‡¥ +ÆÚ;.p™4Yº3m +I{×,¤#Þ\|‡ߕ‰ïu¹8Ðì=†‘yõ£Wæ§>Òõq_é:†^†÷gÌd2.,ìì¦L°³›lìãå +jm»m´õ¤™3§³žlg7Óz¾¿g°Ï6·kG·PoO·PúÁÏÚ9p›gh„µí +ïÐРY'†‡‡Opó™ìõÁèqÖá>¡ÞÖk¿ûÍ +öÈî¹±§Ø«º×‹Þ +½;-"-¾ë³ªÏ¹¾ãûªû9÷;Õ¿[ÿìþçlÐ2Ðj nàK~ÿrÐûƒôƒþ68Ѳ¿e¦¨¶À+d]ÎÇá²h'Çm%¼60yÆÌE‰I +$sñ¹qéyÏàËþçÖn +ÚááUåÕ,Ô@qAZg +ŸÊr±UŽWp!ÿ”´Nd©=0Ù.ÇÝ7ù† +µ + +;üÜÝ +~ǎj +±¤–ýì\*»(.•‹ñ +kù}¹z®8*;ZØ +)1IQ½þ1Õ29R@ÃEäÇå %–“^ÀÑ/ÇÄçYöÂ(ì%óñ&ÿ +0‰Ä’8 ‰cƉÁXŒÕaäsÞlá}!$/¼,¸jo!` +\‡Ë™gòŸßÌ(‡Cp12z– +̂•@b#£üýÃÃâB@ÚŒbª±©TFw1—ãó–¯Ñ€¯09‘Ã.àv«JG 5ýx +×YN”*¶Qÿ47¿†Æ^Íä=V²€=ð2ZµeçÐ +p \Ô£/ï¦P‡%:EÆ%$Î +HàÈDEý¡o¿(ÈAù××Zà‡=¬oKb>fù¸uÆȊں²“4ú•ù¥ +?ٚVÜÓ¦í•0w½»Šø“p˸xÐ@·Gœ!ísü +ØÿÈ +ØX'û»¡#ÚÈ1ðhÃ\·€ +a”a°4Õõ°1« r +5înn_|„}pæWß¾àtðßÉÄêoª?½_qwì/%1›é4kñ½ûkŽ”P*âoÊhl¸éÀ=%ø§löußé³S㩉цkS4IjH„nO:” +&DQa—QHÿŠ2¹¸'ñíÆ1â|E•6-Xˆ AÄD’öÎU–*Êí°"ßç®5ïxyÝÎêíþ;"6Mýj:öÄ í±/ZÌxDÞSnו¯©H#1|Œ=Ôɚ‘G/ + Çø +>M½xàãòƖcW êԕÁž){!ˆóª=´ßPÔtaÛ§CI?2w.É_¤ãÐòû/Ñ­ÇÜ&= +pXÛ¦q(#øåüqJf”îB‡}ZÏ´=‡Ù£laö0 ì˜2Ú=$hœ±‡\4ˆÏø,8â¥H2z_Œ>8M“£ÉæÜ;˜7*tٙ׋r²Ò¿†Bàp©‚pÄ&z¯Ÿ“áâ'ÁFnI +d +UŸ—‘‘W¹Ð8>Í.Ýé +X|Lc½‹îÊÅÞ¢ÿ—ýçŽÂ—ÜˉMDF¬Î#ÀGÕ«n{ó +» +`=GØÎh‰¶î"'ÊÞov9À‘%/ùðœÀ +êæÝ7úŠ‡§¶,À=BµfGº¿Ï£0Ç°Û.V³gÛÛ:·~%À­'OUwyP‰=ÎðäÐ[ê·Áx„_d±üÀ+3¬°&½¬ +quA¾;wìÙºè¬ËKºvÂטs0ì%ÂèÙä=¢|ö!öá/‡npD±Ž· +{ß?ƒG(S^†Š5i±ÙþzGØÁ- +°.Xt<¡¥mg*mqKÇL>±X³/‚A“œAto,÷‚&P +¬N‘˜#B¥Ø¯¿5Õ· ‚Ö5» +wù΋ìSp°·ÛA²PŸEÓÎU€¾RiÑñ’2d»Q†Ãq€ø.¾+¯ïXÀ«^w¶Û¨Ä™,®E[Ê%;0ŒŒÃ>ÄIIœþ{0/¶ãö\÷9º¾Æ½d# +H÷Èõޛ¼7/Ù1‰ÒnGE²Ñˆ +§$»–8“Æ´+(g†‘ÑÛç’”/í°±Mñ,Û}ž²º)>Œs+8a!Ú)p<–žkT`œyçOԝ§6ªs +×zj¸†þ¾5< +îÑ1—ï|ܵFQ£G +m} +§%þ¶Âš³ì³Ì­ +ºöX°u¬°kp˜§@Ղ|қîañ3Gsàjûw%`2% Ž8ÜÃiT„h¬ÁwåRXÙk¸ +mF°Û‚ãýâÜ(÷Øæ;Þò8ò)`/xYtýDë¿ÇØÿœPåUøª ¡õ°ï'!©ÀåBv¡Òâg9ö„‹]Ñޕ< +éÌ¿6*¨g^^Ö@={MŠÉ],~mdwWÊ!åÞ7PW÷j( +6xï’¼KyxÚÛ"&‘ﺚ^šQàæ6 +¼¤àÍ:ۉ™Š­Ó¿€ÆÆP'ÁkÆZtLÿµ|¨oœ)lj{Éd²8kZ(VFÅFÍdX·(~óJ<ÏZü|æí7G5‹¯$n;ˆx’( +‰/‹§0[ºöªviµ;S"4áÚàBUŠ +ý—pàÀW¦ž +eƒè,I +HÓꠜÏêX¬ê|³/6=®¬Š ={_ +ìèf©“6UTë_ÁáïLcÈFlm$>lÄC|g‚º+Žf1©YŽÆŽi|\ŽVN+uçÿÛ+&t~—£ÓæU%¤W(Å{,”ëtûӊõ¥ºbZFE¨f.΁PŠJ[MI½R]“¢ÓÂ.®sEöaL}Gß:SI.££¿£¿ãћ8’“Ên£ˆñBkbƒAôÇmÐK ä*¿ +VÔz~âz+ùop‹Nª +ך®ß¬jƒ{pAU³åèê\G¶±368û¬U͕6‹VZA=¶v6KZ£Ïóøg÷ð%2ã +’™ÊÎq] Tü¾€pˆØÎãD˜¹x)L'•D‰­´Y’uhÓP×n÷Iq¼‹¼QŠoðøþÅf +Aµ÷ïb² š³÷ó’9ß÷ò ö¹˜‘ÊhJvڄ$÷µ ”ˆ}ÁýG’kx2ä +àRhƒÇY_4~VwöJÝM8·C›ç4.J«À‰ŽË‘î×<+¶ç²Õ{“ö¤&é“9\¨æµà±g3½ +k(¨©)=¬<e; +7QdîÆŒxԀuÆþ&lêÑf@¤¸_ÊÆ;u†›ð1÷bèâ(tšÿŠÍ+ŠÍOo[î(;à4öT +‡C1å;úP—Ð÷Ÿ3Þ÷µåÀý˜û$¿(!5Z¹´‰Úèä +~aT +$^MxÊ +ˆLjM¼M:ímJyÒ +ë¨%œž:Ói­v*™MÙÛ<ÆØÁ +—]|‚·žÈ1C\Áۖ«oB>×bhkÚáѦ2285 +´%À•Aj +ØȈA­Sm´ +.Ûpl +­òaó&™–Ômʏ:³þ@ҫлr5åayÑ5à©Âæ3a +åÁ +©-†TÚa ¥#*®Ä!tºì¬œœ¬¼ªªó›ïG_ êÃî³×¯•ð7Ç'DVE±¬ MöÍ~)‘ + +±ÿ=JNâ¨hÉBYæC +ܽÎoÈX•â®þ% +þô +¸+ñÌXñ›»,}˜9=‹t“»ã§£(v±Ž8ô$µ%vðÞ_sÿ´¿ú±dØÈÕ¤±OÁ!çqÆ¿pç$–X¾&Ýp3:> £¶—<(BÜ!Zó8òóÒô†T«ý©iPÜ~iÇÙè7‚©6NÃÁ2’¸XR~÷0ÿZ"Ôñàîc +Aôy;‹Áä2ÙLÊâcÔjoµU°&Y\Ä,÷à@í™ô +.KÇ}¼%.!©æ3$=ñ‚ꉗ¦çc)y“ +è^S +²Ã(GwI”«ð +ÿtÁEbãLz$Ow;Q}°¦¬^€’Äâ=9†¬J*Z¹k +ž3•ÛXJÕS¶¹ +ráŸ+ÿ +§K›¸í úAhQ”eB9%ã(å + +Ւ +‘ãÇOðÝèn '‡o‘©ý~ͪy’A +bÀZd¯^a=Ì¡GÇ2žÌO0W±3ÀCÙùC#[TRTRXÚ²îlìqZÂë8ßÿ„ªm'Ø´ÛݗÛçÊ9u¦¸‘>í +dÀR%l5!Ûý\7ÅùÂbØ~*ªœÊCuR8¸NVO‹¥¡áÝùÜXˆö‚V› +“¸;hÉDZÌ6€ãN´ép0ÎhÓ$+éC­F«VGGB0çvxOUY}^ó}¦D +QÌ’wÿ>Gá¤Zä2„IÚ)BŠ/$]ÔÙÂî*ÙZã@7:r +±&ÞOC+åYh.9fàÖ³ènnd +á˜Réy§ó ï¶Ò%ڋ®ï +8à3%4Ã_Êëkϵ¥WPŽkŠ0l¥¡e'Õ¡s +~`ÕÒ=ãŸÊEÜÉW¤C•&ÞÙÜìÖ蜷ZRNÓFþÄú¥ +ŽÅ±'^DB’’ƯNŠÞ¹li˜+]2B‹ïœS֘étÇÊêJ +)7ÂÈ"½tèYÿ%ûŸb¡ù«ÇÈÉÑ_ +ÁÓS +éùRñê³Bƒzmº&2.~„qÛEì/¯+hjðj\hG䞄FÌWÝ&?;¨Ø +ý +8Ps*i-N•tdó!œüôÎ!Œ>,«½!¯ÓïËq.ãOípل»£(±À“®¤ºJ](LJhà±ÿ¹Ù9YŸƒ•‘Ý© ‡í;MdÈæVª”’”¢Ñed¤¥¨bÿ5j¿úó·1 +a +s +òʋ±7±³ÌH ZGËÅ +C” b+õŸAuK¾é} »Â!V•š’›Ï™"Û[ºÂòÿ%tmrƒnrã$~žkB¼ +î­]òŽ‡ò§ +gèð ›ïõÝûpqÁr +ë +Ã\)üÝdî¯VßBóøe÷Î\:Z¾kîŸÀÿ¿X)'M2ÎB\Jk†5â¼Rُ4¯½åè%‘8•KÃÑÙM¡µuµµUs;î‘ZÖæ~èÍÛMçn +­nëÙ¥þ~«àjÅÛ)Çý½ákqå¯3Î +·eåÜSªÎ +øŒ%¿¡ǎºðF¨„Û`¼Çéf)pþoóÎL¢¢ä2‘§B)A´à3 +Ò2/gd½4pÒÀ‰ªË“éPmr +éN²- ‡ÍÏJ +j¬†tÑ%vöÏÚ­O®«BÈÔg•R±ÑÚe›*¾Þ|FQjÆyÉv€&¼Ü£M'U6ë4D›l§Ä +%y–„ÅzóO¤£¼¹h`]ÓƦ&ì‹N‹OMʁdШµêydµ%a°DZªY +A¾®àoZ‹ã;ûeD¤%–ƒUM@fék,¦Ú°0k—ôѪ +RÓ3Š¹_X†OxäÐ*'/+ók‰|iè>*”Ü+)“B×$'j4SG[ÚboóÆ·údZqƒE;²†6ý¨˜¨ÄÄ`¥b/èõP[Ó$’Ý +¶/C :Ðed¾@sK”“wÌÝTŠJýU8p°Õ´f‘”²É ^1ÊÊ¥öKûðéùi™—%´|4)¿eB×,¡¥V'iÕ4û,É@<(e"„zàdÊÄe +;G$ÇD$ÇX +mñuX)±ézÝÁ\¨ç +!eþ~!a>›šÜ.÷áãÛTBZÄäŠNY¸µ4;WA6g°Æ +(ëy8«W/”Uôê-ô0›^Ú«»®— +Øsàÿ‡! + +endstream +endobj +252 0 obj +[726.9 0 0 0 0 638.4 0 0 0 0 0 0 0 0 750 0 0 0 550 0 0 0 0 0 0 0 0 0 0 0 0 0 500 +0 0 500 450 300 0 0 0 0 0 250 800 550 500 0 0 412.5 400 325 525 0 0 0 475] +endobj +253 0 obj +<> +stream +xÚ­Vyp×_YB,ÄUR7 +b’ì +š„Ø&!„ +Âps8Ä8 +–‘„m¤ÈB>eY÷ñé°uؖmY¶ŒÁ +6`.s +W 2 9 $”ôJ'3mÓÎ[õyÚ>áB§3N;dFó4«}ïÓïø¾ß.( +'Zš»|yÞúײ²sWfd&Y Àþ¿þ6a +ǽHq/ñ¸—S8†ÏM0÷W þžšò2Eñ¦üœ¬ÔߞM®ŸK®SÈòŒ2ðx´¾ÒÓçÌNOÏÌRk*µ* +R'Y8Kšñî»ï¼.ÍLOWº¤´H«*”í–fËtÊ¢R™Ž\”H7ª +UEºJéÌJN3ÿÍ7ËËËgËJËf«µŠE³^—–«tJ醢²"­¾H.}O½[']++-’ŽaŸ=ö•¥.ÕìÑi¥Ùjy‘v7A;a õ +•Cm¤d”<¥„¯åWÀS©W©tê-j)µœÜ]AeSkɞudW.õ>µ‰Ê§ÒR( +% Â¼ +¼‘ÿ–`žàóq«„ó +Æ/ +‰^AŸŸ ÈrNQbô"Y/—ã¡5H .ÉUë6ÛëÜ7TѦ0x™® +ïޞÞîÔ©FhY<6¶Ìkh‚vˆ›C­·X‚j„ømOµW“ížl0C9çg +ööìïKÚÐÑF+Ô²ù`¸º·'h‰»Ãí3€œ6«‘Æ»G—‹Ñt?Žï%Ò ³äs€‡®¢;â{Âëá5 +Õ6³\.;¸èºÔ3àõù"—Q$l'c·Óa¨X\­ôá'(:ðôÁd4^øç®Ò,h•NË.pŽUhðù¢]h¹|Þ øèF +T1£«„UIAh½ +Np9 +øÅÑA‰Yi³¬ºò1ŁAラSCDš°ªY›P^1üàõGhQ¬'tòЌo9Åm~"Âm£ésÑ8Ìà­x;6ãj<í> å#ªAFftêè:qæúo‘ˆ +kq4ï.ÿéïî +»ôw7WâIøÌâ!¼’q§ô½‰Œ + +ÊÿÉ®ñTb¡Ø3Æ#dã$À-uÛr$;?_•@ã 8Ó8• +=Þ +‡å +º¨ý³ò&ǐ1è:fˆÊa¾pZú¢eGÿÈ@ØÛÓÐå JH!;CTw;ª?Àr‰Ûé²ñÌAÒ~ðxÂMÃW%=;†‹ï~†èyô +w +‡7·Z¼Ë;*ŠC["ð}ÿÎ÷÷P*`A µPåØí²Ü´)¤ ++-✦÷&iCêc>§æÒľFð—˜Ò\Yl•ãvWœR5i`2æáñø +<#óԚ›ì +un\;lŠÃQˆõ6÷¶ +jº”Á +ŽdW¸mºòyJ5Ð{ì +í,´øãþzcTlû(gîz 7¹n7±p¶Ml +ìþxxä8ÐW™V–ôaþRíƒv"1Gìiðú ¸ÕSí~Õ,1¸Ín¨¤IËD΂ÙĀÝeq;Öar§OÛ[@´*ÄÍõû|Ítn»ØªÉyû?#¾Ö0ÛÉ: +ãDÜ&S +ich!Rx +Ùûù¨ +Ո¡u€Ò†w +Y÷ +f§ãe3Îeý=÷í"KÐÆ:ÉZ̛²«ó€^i¾ÓljÀ¾ðQº!& +Ds~G +Œ«UR<ŠY: +bѯ8S/zëóÎOó +úâ>ÚËÍ߶ +M{û+aèxÃá¶_‡N4ž + bí +– +•Õ¦:º"bj‹Ç£Êã;˜×@‹_°ªô˜'YódòØ+Âe£|cŽË\½vrÌ¸EÐzj£ÿ~Òí†p•NW¹K> bîÂ)”v½M‹ÏKHöó +\䣑ÿÁ'‡Ëävà´QÄe&n×Лú•'™~ˆÅ#û¢#ŸSÂÉp€\605Nsm~UŽêß­%†Æz7!<×y‰ÏÙQ—¸!~ýâ÷@Ÿ„ÍU,doÇ©Uùf­Ã +zúÃ¥CúÐ,ÿcÃI]³J“±èK ÎBWã`¬ûVÿ¸LŸ×YÄdÃf +"×vsKüCXù%ŠÍÎá’Ã[A™ô;ksH§Zê]!2M +OC¼åJû•~ »a·‘ + +Ç +‡a) +–8 +àm +£$ûZ˜7|ý²ao}gCG}gxà"šð ‰8¯š +rrªr%n“]œÉÌ +ÖF™8„£þ62§Æør©I¾È“äÛy=ÿÓñݢصíi9>Aû8YRn ¦|ΆúÄ?®¾¼‹pž‚gbêÓ÷¿@"”†^A3 +¸S,S +¾ÉÂÉ.”rðÒÀ‘ý@toÙÀBA +Wœ»cYžV ¤rº©}}+B”˜õ5Õ££b_Ó0zö +ÔÃ>è4Ô8*j@Kë[--ўæÃ#+jf+íÙùùJA‹æ鸵?JÍi¦Øµ/Ñ[7ÎÅx_ÞF«Ïð¹4N V8\¥dk]À‹·EûO +YS•Ó +ØÙ®™ÚªÛíÇM{í#FÈ¥5esp +£€Í‘ºS§½0D2·£2Xk‘;r×^R~†¤'ÿ÷—µ~بiPa˜îî¼y—‚^} ˜ +Ým"ïK½h)Qx"¼Ɂïþ• +„ƒ(Ããõ„À;9dm©`´`Þ㨑ã +É\aåãy¿+ÌÂCör0‚còÖ +ÙÅ΢™õú¥Ü.{±D>kéCààãqÿôõKíçøœ‹›$öGÀ +~ºÅªeÔ`Ñ: +Yø˜„ÈfrÙËe;•[Þf +&%® +z¿Œ×7CŒ +,;’Ÿ®Â¯ÚÌco +Ÿ?Üßýð2ÐMö2òæ`úH¿¾8³6ätƕ²3Ì18ël”Ðú +:"NM’säÖÙÿÛªMú}Zb))ܸñ§| +öw¶¶š¶ó”yÅÛz%h@Ýl +8íõ$ýn©‹”[ +]ëóŽîa~„ïÿÒõé;¸¬0*ó¶uqAx|ïÄëÏÄB©©ÌDÁ;±Ô èOÏÿ.܁ + +endstream +endobj +254 0 obj +[693.3 0 0 706.6 628.2 602.1 0 0 327.6 0 0 0 0 693.3 719.8 628.2 0 0 510.9 667.6 +0 0 0 693.3 0 0 0 0 0 0 0 0 458.6 0 0 510.9 406.4 275.8 0 510.9 249.6 0 0 249.6 0 +0 458.6 0 0 354.1 359.4 354.1 510.9] +endobj +255 0 obj +<> +stream +xÚuUyPwîf » +JÓ+fc÷d£Q£ +]]Á#˜`”Ãx`D" 8Ì0£ ·03oa¹ +îQ + rˆÆ +.e6®I6n+ns›J™×ã­Ý +À˜Ú­üó«ê®þ½÷½ïûÞ×4åêJÑ4=cý¶·- + +[âç|±<‰ß]ëÈu“þHIÓÒ +IPH³\çP½ðaù¤î>è8ya +è!«›#5R +ä;7b`< +[Àîp·ÓèyYzìšbرŠ×°ï +†hqü$ë +¾ÏâräqnÂÍd&.%~"ñü÷<>ÎXÒ%Jƒl—¥¤G@WæSôÚNZD Oì +ËLMK‹\ +œ‡ƒ“Ç»bÇÓm4ÎÃm6 +ô3–òz&ÌÏZAÖGDf¢¶Í~]žè/Ú°JÏøç%z ^ha&ËÏaÐl¡Õd6gcÒPã6^¬a&ž˜* +a=¤än£vÅÛ¬1n“$¾¯® +vvq+$&n +=ÓçjØ«•Sz“@²’Ì%¾$†ÄàSÄ +Wà*|}1J cäKž0ä!d0sðñ¯nßAÏÅäurÌ$.ÄEœ| AÖÜé*|çCnÇk<.cÿú³o¾ñ¹If‰äÒ=ANÞd::F Ý9Úº +™ +#6óØ>é¯ÛòíîÕþ¾1ÏÑC² +°;¼šéþü`@!mp¬àm&óAA&¢¨(/%Ä3~tsˋÀÍ +œ'B²5¦KÕýÊñüëûŽæfU]L;ú„sÁ[W.”0ÿ­TšjMæàòM¦ +‘D³z³©T°‚¥¤ºÃ\ +–º“ƒ!Ÿ½> +Ò}yG„á̞ +›êrtåŽÊ‚b#„WGVë¬ÚVuGn'tr +~ÿ†pÆþRC +.–+Y+‡â#25>²Ü\;çÇdzüø5f?Ѹ٘* +¬nGo°A;”™ê + +:nü»Ûã/¨5̀yÐ|îÜ i@&GÍúŸ¥S,4B¥íP™¹]¾‡^P³·Š:ÝyÏVUo +DK:—7±¦á蟘g;ÝiI;AëtC§¡,@va~A.ñ$ážd&Ë,†âÙP~øÈ13çtõvHÒlƒ4çQ°“1’ +÷$A¤46tƒ)f;­yš[ÏB‹S¿äâ¼z¨ +ªk‰—ákžD¬e9`ÃlÈÏ۟`äœ +qŽÝ‹§ ·$£ó¢ókñ@mýՏk鞷qçÈ?m + +ÇJ +Æà¸êÔ«Çb+{6,4äÕ£ÆÒª¦²¶–ÌÃûÅ"(4L + +np4ÆOŒa7×䇧¼˜ ßñÜÊ/ÒG„Qêh¼h‰i‹ë®a¤úcñ‚>ŒÝ˜šŸµ†{ +-Íü²Ð˜ˆm»ºû8Z5òfç@ëè¡N‹ŒÊš_+-­Eu7}ì2Ö)°o"*/•Ü!’,¶¨dçå@Ùo +|egÝòù^¼½c%V.ˆÅenvvS^é€(Ýe·Œ¿ÏCŠ>U—‘˜’X(ïùÞ'k0 +·"Wiû¡[Ó´»jŸL“^îùt¾ +ÓkpM-Ýz +FÒØÍ:¨à~Šüažð{ŠÒ8ߨ¯Ó¥gêué¶Ì¦Æ:[“@¦‘Ͳ†ʜþ¦éÐÒ|z2b7KåMc؉z÷î‰b^Ž +üïâm±÷þ‡lg›´lBÁöË +)“x|ÔûGBÚ{>y”Â2H +Óß4Tƒ9ÿ^ØΝ +Û0›KÊJËkšK+êSk.÷ÃÈùˆ0”ÚšU™Ò‘`U•ET®­†·9{õèmá(oÙc.,‘£j*^ñ™kÁŽõô÷#(ȹ±Èéf¥(1TÏç&,ù³‘;ð9éb3¸"w©ëÍkÂE}8».õÕÞ¸ú/ +ÉEŸsÏ«xVº¿åX¿è Õç†ü„%3œÔõ@+˜ã8ÁÂókWWeµh®Â +8vµ¬3{3èþëòã]Öã@­T‰ê²êZ†Ä–³öFÜk+¦O©š>CxÀU¯ž> +Ï?ú_ÕçZ¤ +endstream +endobj +256 0 obj +<> +stream +xÚ]’Énƒ0†ï< +©ª +’H‰¥´HM—\z#fH‘Š± +rÈÛ×ãIrèë÷çÙ?¯ŠJõó?Í(k˜X׫ÖÀi< ìÇ^y"`m/§ë͝rh´çç›F¿70ÿûµ|yûzÌ7[ÁŸö»RD¬ +Ž,v +,¸Þ«¢¾œ&*Ս,Ž=Æü­ +xšÌ +ÍÒv<À²ӂéՑÍöyíH}ÖúPã^’¸p‚J’c +'ÝH0:‚sž°¸,TûïM„ärèäOc¬©°¦AÀ£ÄêµP‹ÈjÎSÄ>#ç¢@MÜÙKâkÔ+â+ÔkÒÈÃÂé}9Ù稉//3â!ê’ò®\ñ×*線oý¡Æ&3͈۫ Ì(mfÁ +ÛZ°Ú‹#ËÔ«)8 +Ã!á6ï˔gcì˜ÝÊÝqÖ½‚û_¡G^îûî@ £ +endstream +endobj +257 0 obj +[833.3 0 0 0 0 0 0 0 0 722.2 583.3 555.6 555.6 833.3 0 0 0 0 0 0 0 500 0 0 0 0 0 +0 0 0 0 0 0 500 0 0 0 777.8 277.8 388.9 388.9 0 777.8 277.8 333.3 277.8 500 500 500 +500 500 500 500 500 500 500 500 277.8 277.8 0 777.8 0 0 0 750 708.3 722.2 763.9 680.6 +652.8 784.7 750 361.1 513.9 777.8 625 916.7 750 777.8 680.6 777.8 736.1 555.6 722.2 +750 750 1027.8 750 750 611.1 277.8 500 277.8 0 0 0 500 555.6 444.4 555.6 444.4 305.6 +500 555.6 277.8 305.6 527.8 277.8 833.3 555.6 500 555.6 527.8 391.7 394.4 388.9 555.6 +527.8 722.2 527.8 527.8 444.4 500 0 0 0 500] +endobj +258 0 obj +<> +stream +xÚ­zTT×Öÿ +GæÞXˆ2Þ,w°Ä +cW5ö +V¤7¥—‘&0”aʞz/ÃÈP +¢BTì&õÙk4¶—ML̹䐼ï\°¼ÿzyù¿õ¾Ïåºkq9÷ì½{ïßÞû +DT÷î”H$ê½iт +ËV™·|õ„ñ‹) +Øð›²=ъDñœˆ—uãíÅü»ÝQ”hO_áÙímò¤žôžï‘ǘa6”D$’ô´‰OΜïåî¶2ÀËÇmüøIãƏŸ8/(8*t«o¸ýHQö + +¦µŸ8~¼ƒýœ¯Ð­ +nöËÝÂ}½ÜÂÉþök‚<¶z +Gُœá + +üáDDDŒs +êóñ¨±ö[Ã}íW{ +y +n÷ò´_n¿Â-À˾SÿqÏyAÁòp¯PûåAž^¡Dã +"ªG÷w¨!Ôpñ˜>3©9ÝúǓ×*‘Zԃ + E=)AÑC½Eõ zQ½)kêmª՗²¡¤T?Š¥Þ¡Þ¥l);ª?5€Hqd¯¡Ô0ê=j85‚I¢FSc¨±ÔûÔ8êj<5šHM¢&SS¨©Ô4j:å@}H}DÍ ¶RSs©yÔ|êjµZD-¦–PK©eÔrjµ’ú”ZE­¦ÖPk)Gj +µžÚ@m¤6Q›© *‰ÚЍQÝÉ¢§¢únkºý]|[üs÷x«5V&«ß%%fÉ4Esôfú +Ã1ÙoM{ËÐcn‹= +z~Ñ˵WN¯½§õÞoí`Ýòöà·súˆû”õÞ7©ï=µÍ-i°ôç~ +úÕ±ÁïŒ~çñ»ÞýÊöcÛíjûOì¯ëo0m€ã€_*> +$ô +·Pæ ÛgßË>h°Õàÿ6$~È·CC†þ8Ìù½~ïmz¯uø¨á×FhG>R3²W[·_‚+í”QÔÚ¾]̯h_Á&çiÒ¢!4)ÉqøáïÚ¦$‚´LR:ríK$ +é) +èS²˜{þ1‹L +õV +uëvoø’ÿÃ$:öüRÚXu鹸ÝMeC%)!ªðÄ°”uÒ*`>’ä +³|¶ÿlë +¦spA2<uÇ3ñll‡%x3š´Îß·¸zsÞ²x¨3S +’v¦”§˜™PI +žj +&KL(•ÁyÿoÃÏl?t +.3h2êöõÃï_ÌÃã9˜ +<+Ða‡›ßXÀl7ÀNM’Xó7ÀÂ[YPšIôâ,ò>ûøž˜_ËcmÁ=#¹ÿYë~ÎP +¯ŠŠƒP&¼0¢¢ªÀXVç»{ +÷)¸x¥¨ëפ33ë1%Òþ×ñUÚY‹8ºFwXo6ÐÔ÷f¡)`¿ +]EÞo~ß kÕW6¶B#ùývzŽ&§N†«Ñ +YÑOn5É +€ÊH +0Z:ZA Ô +V$ªã âLÓÖ|[§þ{}¿ÎdC¬XöhÉYéAt›˜Ñ’ç.Ã;ÿ½.¼˜Æ6‰1Zò줷5Z +ÄCL·’<½Ûø· +êŒáîeÄ0ÛÊãJvî,Üurmóœq¸ç,âþc_«ˆTFE§‚>g¥Ox)Qï¯>äÿ }”Vқ*ÐêTz¿|wP3‹Ö +ýO¦‘ +Åۈ¯´\â² *U1 Q™;Š”Œ䯀{TóR¯.ì)øŸÿCð<՛TI°Ye'½Cýçàq“`µGԎðZ7ãF`ÞÇo(ÿ£¸ñùÿX½ø¥ÑÏî5œäÊ 6¥"ÈS“ ύ)Na¬y5Ì":‡~ósùc¬ÿîO +/e¥ÛQÛà65¨—ÜtIxHÿ@ïówÙSaû]}£‚CBŠ‚ë8#äg§§ëô: +‰H=Īdà—ƒ+pú¸þ.Óá +šØàê`aî4Vמ‚¡89,„qýˆ59ì]^T·¾Þ{éêåÉAÀLrD7w× +ic¬Ñ®×øÞ턖Gîÿ5´Ö¼-6”þ¶Æ(zzBŒîàd + .Â}‘Zè}@s÷ ¹èmÔ7/ô``2T%—~Š¥p·x,†i03÷>Š­Ná·ï.É&=Ր!{³7Š!›7# +ר÷Zdµ½=åË`”*•RjДDý0ò8žØ +ð,o<÷Á6q]Ê*SUé\6<øú$’ +BÝr‘î|+ž^Šö7¢£ˆ·jóï£hUKòKÀhŒ„Xõj$ùP‘± +®Á5tl$DD”@¾ +‘Ÿ$±i4BI>GŎ€–@ßêÔEǞ kòxg!ä¦ggêõ¶:6VKƒV¸8)•„åTXæ^¿Žh²ÑÊ¢ +T,FUh%{¯¢ÉÞðBt÷ +­=ÌV +•† +– +UU••UðÕ/:Æ¿+旴;±iyþLNb–‚‹U‚:ÿý¹¶)qHŒ"+1‡Ë‡ÔlC¶|rS»­IÔpeÞó®è" +7Rnø^Úò½C¡¬„¹!îãü¤Ì„`vꄦY{?¼qŽÀ•Ò}ßUŸK»FJ#öÁYOøÔ +õ½â<‚“pÎf +)A=/g™¡ÎF•ŒÌ^³`̆ +Š¥;Æ®pA6a»zË>âÚàKbÔÚޏ-}8·|é$ðƟ6’­ÚʙŽÚG +?óó—ÔîAcã=¨% +ãGOPçÔ˄m®¢_~ùÑbsðäò0ÔL —^e_Ú8cír¼o³U(ÈoÃé/<-©Ds­H{ì’°#9i1È;µ—W^@ +¶õøñ +³M3ê>õ'ôÑ£YÏ¥˜B{Ñ/쭊ç <·& +3|ÖÊYÛL‘U£©ê ìà,ÎæÕÓtT>AñšU!.›·ªCµIÚ0M2$i“µÀH;Š +(âöInÕ/ + +.t‘¹Âì"ߓµ)ìaꂍa~±.ã/F"dýðáO +·–]ZÚ +/êoáÝÀ­W ÀȁLûhs¸íþ’&C47†¦7EþÞ3Ë~3==†K$±’Oulµõ§‘™¸Z‚Ôü[V†£n? e&ôîm›ƒO7[Pä}鯼#Ú¢žÏ0Åm×_­§Êšäj`ÐÛç楫ӒeZ‚jŠ:"qSÄ"ð€-N¥I +yÇ$@RŒ + £ )ŸË½!5=§°þÈMhó–̨Bo½'ld¤¿/¬ +s +óôÙsaõáè“­A›LM‘¹¬,Ú¼-Ö7y˔s£Qw™ôWÄüô=’Ê:uæ‡ì¼ý°‘8êò|´ä´Ù¢›lÒQŸºC¤45+M[™ + +àì_¶ÃT¸+«á”ËgÓq?<³8D&ý +3ÿ1÷wò¥tâ÷XÌI;‚÷†ˆÍ +ê‰/³Ë à”² ªn@1s­úÙ’ò-`Y^ì +`l†Ñ>+·¤„w +O)ÿåUÑ1ówÄ|0ÿ‚͘±”Á* ¶Mžª„´‘Û°»•Yb(Ì:—›‘~ +ò” +EÌ +,’o›€lÃ2x@çÜÒû³¹C4 +5 +Í<’º3ÿî¾/ºb}u +«†ïCåûÂJŸ iüvË.Õn(b>ÿ²ùÂÅ3ëçq°ÚsóJ_Æ´ƒý[ý6R‘ +M<>~ćsÆq¥wnvʉ¯5G3Ò竧¬‘ÌàŸý‚¬¾»ý+uŠý^͑¥1ÙK™n,z{fedk¬°›3{½Ã”y_ÜæàDõ™oZ»ô©{tg'?LpÒGÈó +1ºÀúÑ8nè–U\48êƒw3û2«Š,aò˜€DÏEGÜ¿A,²F‘ñ2aúë‰ÜZØåêìî +î³Ü÷ÛQ¨;'ýõshjÞy‚Á}>fc` +øŸŽª‡ƒ ðUki}ÅÁ=yµÄ!5[‹œsýR—ÁfúÖѓ¸N~EA/)–·þWŽÅ׺ÿ+ïv2>š-|is÷E¤IúãŸ,} +Ù!fI›¤ÿëtº +}f†P›]#×(:Öþ¾¸} +ºÁ¼*K +ßK^–¡ÿ +^Ǿ,X;d +—ìxU ¬ÛIþo´ð‹¢êö9b~Hû26%O“1 V¦ÄbŽïl£6xìpԲݩ۫¯³´iª +æmc¨¹\]¶N߂޵E 9Œß'=¯Tvk ˜4{u†ó°go‹¶™¬¢WBl†¢†Á&>›Œ øš–“AkQଠ5Xlì6:ñdî3ÂÍ¡|7ié}F+‡úHžÔN]·tÓ4,–=LdŸ”œ;—˜{ÜÂïp +ÝüË$Wõ +YG-ý +×Ç\˜??P‚ì +Üÿ» +î9\Æâ\f9¾Îâ¾'MF +•£Oé§ÍãÍ_ï0Œ à-·´¿o±9öœ÷«% +áñ1ô +‹=ÐT<­@Ó~@2ÄdCF +§Pj’ðP{,fÞ° +’¶¡õ»?çî7âáúXPçS†RJ ‹ CÁ©@Eˆrã +[ïº +Ç#}ŒWâ)xv%òSÁÒ.²ˆw——>׶ÏbýËèW&½2¨›Í@ +‰>E«É9ϒá~¿Û³ñ{ºz&ùÎÉÍßûiÖ˜ X +¹ÒgSDðêUà ™´Ï @Ÿ² šÝ"4ð>ÚdFc̳ +¼Æ¾rIҌrH +ÅãÂçâÙd&°{ ™ñý$ÇoªÌŒŠC%Sþ£¹ (YÒå +VBz·Šµ +XƘ%AHnÕqê•O¬Ûí‰ÐV +jéºÖŒ†šÅüõölGËkǕ¾²’”îkÐÐôêH¼l£ÇB^­ +iïÒßg¿=-aÛn +J)º—óšBÌÑÖíf¹%шB-ü{îœzß·VºƒpšÍ“7zöςÌšK7¤¦}ɑî[»Và1|H÷]M?0(¼eKii+‰AKð¦ZtˆøvcÍ)îWx8ÁˆGü¥kýª +Œ$­ÀSñDì†ÝÐd< ­–Iw\„å»O2]¹ö +í¶t‚Ñv_Ì·ó?±uúœ«\™E⫞^^³Á—¨ó2p +nCqô_¬x"¼K°gÏåξ'ŒþX(Ö¨µá‚¿Za~~\Pǐs+„Í/ϝÂÊé놗ÂԊ\ˆ°ÕuØÓp½s«z†Z؊ϖ›N îüv‹¨ uG£îŠÑQ4’ý`ãšuœ‚Ï ¦-wWy]1H¾5ÖeÎ +•÷e?ÁÅó9—u™„Öv3ü§tS>œ&®qÑxiÜ&^Gÿq¾$–ŠßhÊ㧱hš“™yøÐM +QûA°ÏjØ*ŒRÚôpH„˜„„¤d|·Ù¢ +ÿ +çѤ +ë†ãÒôĬ8ˆ· +ð„Ânµ»Õîéd7Ú¶§ì#N¶"Nö0ò\—“¿ +å°¡Å{±¸/žŒCWNñ»èݐÿ +Wc‘ø¨Çƒ»çÌ?W‰/–Xÿ6ò¥éö•|ÙM1R¶bMj Mžù:Ôt08 +Ó +Ð×Ô +ÐFÐàµBÆ×éh¤ü½[Z\Zb6Øå€!35iÛ{Ûê:.H^_oø¾‚ú7Æóe¯€Ã3%!Úä( +Ôqʶ3˜»¼QÉ;TŠÑŽö‰lb®VITúØ¿JRFmv§Z§ +H¦£ä/T+¢ÓRtÚT%?¶ã‰mV¼N›L>d”Èøt´>'áà«Ý¤Ù¶m“^ˆ~NÁ²ŽY´0s—·O+‘Twy.n÷BXäŠÇæ^‚â÷ñdìN²p + + %h +š„œ9ü +þ– +ƒû‹òQ.þõí{hè|œ +‹ñ iȺHrO9:-ðñ}Ôú\Œ"Ð9͔ ^ˆºù쇑ßâA2ü⟊Î_DŽ±hg7ߗ I0x“` +O‚¯{~ΌÞ6ñUf›cÏÐXÑôüY¨Eú +].d +¸ûE@Ñ +ÊCö7=A§àLfÆãÁƒgʏù +ü˜ +þ®î2΋ÔiôA6»5ÒOEƎ +I-U¥5 +²#`rËYÅ4E²¨ÇáoP?@c˜Aȍ!<µ„³@mzU#ýCQ06ÿƒÇÀüT‚ìeCŽB–dæHP:º¸‚„î;Câ<\n"X +6¡6R¹¹»H‹¬f=ÿ¾œ4_áÂ1`. +;!×dÈÖW˜¨» +¿· ìC£­Óf'‘鉉ƒä(v¢£!9‡L4:}Fè +†šÃ–­g|î“Nþ­? n2éEx¶øÖ4## +L[x‡R4§^TgF™÷Q¦YÜ>®Ýí@’H,'“@>šRPƒÆ@1”C¶¦T +g°[!vç! +u?AKËóΡ΃ +ù» +,'NÊ/NÍÑW@ (ؖ§tÕD‚Ö»]dÖnÈ,†ÅCF4Ö ÷0£Õ +ß÷/™µ7#“Ï9DÃÇEHb0B42è"]û +ìöÑnÖlõݬ÷yÝ‚ÔÒöÁQIûfq»ˆ¿Åæ×WT}- +™ùk<´!«ô!Ââ6mi!Á$µR£ÄK;¶Ûâ5¼^™OŠ‰Þ®ê8˜ +ÍÕ +Àk³k×æ_ãò½ÐŽŽßl3"ÓÔyPú´´|Æú·Ü.yÅ¿ +‰LäߛÝD^€Æ_¸´KÞWZã6ˆ¥:‰ÈÝán‹'óqÚTM:¤Ùí:åò\õîÂúãP +¹>¦Ol±¬cžÂ+Èš†?]{RSr½‘SG»­!ѐȌÔ<äÀ§Ù¢;Ò»^Úu½e^óoYûj1?œ‡EƒÐSõîêûB5ôÔ:iB=6ƒGW54É J M²KðL[Ì"G!%RíHŠípõUÏ/ÿå:oòE }J’K‚Ð2l±ÅÓqJlDÀ–á`Gz]³¾¦þhgRÒ[tÑ$ʲ +©9hò¶Eq’^ePÚâåÑ®ÂÈPk¸{š»F€Hz=lOÛny£=ºsWÌÿÊßaë??™Z +/ýìÿÒ¿M +‘2P(ãTJì€KmñbôYr6qoš]©9u'„sÁÓm‹Î,/¦¿†LEaòÆßÙâõÊ$áôÇêìr¤­y»ù?,¢sf~9©ÒûÚ²BòAS¨$õ½c­DљOÈj×M4äâI‡]NV€’ì¢Ó ”ãÝ$EÈHZæ$,‹|/'T0]"L}†ÆßÆ6ŠPF1ÊĶqôocŸ4âAìè<¶æ^ +FmFÂúrÔë’ðþÌü¶<ºÂ‡‹€Ø¥R«n7 +ä§Ê :ão§¿È}y.š’š¢˜> +÷XYæ¼·¶¸¢\8·þï>ü'U{U'µ'²xÇ“?Ǝö@ƒ$DU +)ڂüLå& =Í)g¡¥±¤•IFÓÙôØy[7¹× +äàhómä.p¹Â¤(凚w³Í‹s¨ð¶tšÍ÷fÑySXùÓç3“7É: +›i.3¿¢•‘ +(oÞx‰x³çÏ? IG=ÅÒ¤ÏW§˜(ƀ +YäNžÐå6 +;šYû¡.¤Ì«ÜÝ°ÜÁ[³2Ðy»¿×6GpŸ²°úØR0@1ÑäS +Õ<ª7Û쾍Ö?ŠNßB,šv«ù0—§µµ>îjeÄ1!Å•åÆ¢]_Ïjø÷ý€4}8é/¸ßӑ¤Ïì_zeg'€šKJ£ + +·$ޛLŒüºI{ÑY§ÅòfÞ®Ób"ªð +qú +eÓhDŽ• +þ$)ã€Lz€ÿùŸíÇþt`k¹£pË3df±ô‡‘H°ú +ìßm®fPiwìFChÑ›å®‚qåa{BšÔÇ¡ êõ§ªö—ZöÔ +ZhÞaqΉ +D½4: Í5ÙTÞF‰g;ÏU»£46 +ºcÞ +Ìól<ÀS†· +GæÂEçSÇ'¤ +f>†ûʈÍýhd½‰K²“ô)‚ÍJM’ï° ÁcWx}Àgpêkt¢ë2nòL“u?ûèžÍã籈¡¿ýì³}~ÙYï]³î“©ës˜þ.©þäò]F‹œØ}'Z}âÎN;m*Û".£¹—kÛ\NHU P4› +ÏvÊ BW]`ÎÌÝYÙÌ=Nº0­ßŽÐ¤øð 2ãÉB*ì,265©K€y|îÜUÔÇԇî¬Û]—V,0´ +UŠâ™è¼øÂ쒌Eñ՞$ +]”nîn5nÒɍ[°àc¸˜¼ÌÛãvDm_FÚNž—%be´Ÿ+x0óž®EÖ¨Çχ®qP{hCåºÊU°BÁ’u~©Û-@¼; +Ÿc‡/8tX-{ê÷˜“’»¨;Lqœ¿q”¬ë–³3œD¨Û9äuNŒº]a_U«;¤¯(oÓì~s[·Œþù±3§s +Ws8–þ³uë‰xí.­¡á.Xüëb‹¶WÁ4pYíÅ çÿ +˜Â±qk3êýÂæò‹OÎJ£Oø,¶V|™¥$¡kz%£ZwD_V[Û%c±*­A&ý1•ßÃV‡–ù˃C‚M!–Jsi5!µØÍTø-Ö¹¯Ç£¶_–œ%}©·°óXaç«Y)ØÓΉS–r)¤6†ä¤ó¡‚)2EE„¬?tüòg +’Äl÷'{|YW8†4‹^œ¿x +X +‰¬ª]ÚÆ׀=§Ï +½:¸y +DÙEF«"ɚJÝI}iU•¶JXã +rð:Œ¥h¡­VŸ’NÈ$õ©ìÌӇšõ¥B]TÇAÏr}¬PK´Ù +ˆƒˆØx2×ÆÖ¶|ø¿ Ù."ŽŸ£Oڗ°ÿ́Eÿþ +öå¥r³ÜdÓä¿ô™yŸ°¸”þßÄÂÿEÌÄޛ“ã +sÁÉ5h9#½ù +i)«¤ºŒîº¦£»tÿÿ +â®Ð+%®¾VbÿK%Ô +3?Þ$"4¸ë¶˜÷CÛXÔoÄ +Ü÷ +E„ò؟ǐzÐûǐ”Ã!؉u—Òà–Ð}ð9ÔA +)ÛWÑÒZÚû`¯¼ÜµÜVø€£ÜEîì¸Q¸hÃë,¤eàíšCÍ/«ÝRíz±g_FÁ + +¥‹Lz³Ã÷•I»umúòŠC]ãv—é3è,:-¦Ùñʛ8ú)î.“>™ n.rR +XFW +:Pu˜‹ŸOÂV¸÷'ÓæÈ<ÀËÜD +žÈ —½Ôf´™t2]•è&ßçs/ü÷ÒùãrÚk¼•ôI\¥û鏦 +2¿ƒû>Ž¢øyhÚkªb +ȟŃið‹ +’‡ÅÅú;3wÅ}R)zž¿}éFóäuð¯¼þâ싻ҫè#ô +‹ºÑXö:â¥ûßÄÀŸ1þ8úióý+Â=èµjmD<„0A¥;LÅæÜêjÿ*WNzu.ø,Šu%Ær +?µÄ¦Æ +úŠ2‡&½<Ñ:Ö¤ºó˜ +¾ +3¹iàs<òuž65áÕ\gÛ5×¥NWR¢'bŠKö¹íזè閯þ&ƒÃ»âs·U{fºe’ Z“³(N0µåMw9Ô +Ò&èýu‰YD½®éóÇ®á3 +ÔÞ¸xµ*!Q¥öªt‡ +Fk¯Ekdà[T!g¤÷«C*•‹%Zےò<ˆ‚,hºQôó9Ôß,Fs„?jÁCѲP‰Ö!À~”Š‘ƒ«hüöãøº +•ÎpÇC×Òs¼¼ÁÃ"îUÇaÕü*¿"ù×Ù 4ö¦ß؏G¼é7Г7/œ;MÕÚÆ¡o^þæ¨'Êðhz&ŒGc9iä1ØWY%\@•‘®?™õøX1?Ýe³ví=+p_¸&P +¶E-p_½6'œÌ^‰•Jñ +δÅÝQµ2¯sÔ+o€b2 +h×hƒ=tÂòӐªÌó'¥Ù¦ÇêSò R³R³ +ºK\±pÝñtŸ->hÉ«Äɉ8y ³>Rø¾NkŠ‚@P‚&%n<β +‰ªU¹Zaò¨h#‘¨Ý  +ì’V +šì¸4eN@Fäœb;S„ž;õÕêNÝTëtcèAÈUçú!ü«mZ¬!IÐMŸž–ÿ#ª³ý ק*„Wvy`èÔ÷e¥åò:1jDñì®={”•[êš +Z­C4d ^§v.ÕdÆA +Ä$Ä¥(—Ï´ùc¢0-¥ÛAAA–±sµv±&f»S×_œœ¶uåSÌÚ¾{n^õ©f»0ã•ë-ºòªfM™µrCr +é¬LU5ŸÿíÊÛLE^ +Á$1qG°0ÜíÒ +ӛ*´»ºN@£ôáUÄàf*¾ÃˉKïˆùIâòӇt +ðÊ£QNz¹ Þ¢-Œ&,› Õ¤ÄÇZ[,F&U¶&• V^%\—¶Ñ¯<ú™0¼û¢Ñ +"۔¸ØmÊ8ùÚ KA(ߑŖÔL2å‘ +áò¸çfŸƒÜih:^v\èRÁÌ÷3‰šÍè +2èõçßc³rç0yIÅá‹dЛB½ôŸJêIÚ1H"ÁÕ +½ +Ëý»Ø +¢ +ºM漕dÎKÄ=¶»`Fh¤ +ñ‘fx•˜W¡LÖÔ¡’wŽwgŸ‰ž?{üLŒ\ø°eåAryPI^¹ËX^Æ!Çw*妠€ˆ°0cÈ®J“©’³–›øyE(0'Ý$Áî¹´¥Ç¹ž¦¬^½Î{õæztŸfìõºÛï²2y +endstream +endobj +259 0 obj +[525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 0 0 +525 525 0 0 525 525 525 525 525 525 525 525 525 525 0 525 525 525 525 525 525 525 +525 525 525 525 525 525 525 525 0 0 0 0 525 0 525 525 525 525 525 525 525 525 525 +525 0 525 525 525 525 525 525 525 525 525 525 525 525 525 525] +endobj +260 0 obj +<> +stream +xڍx XW³v@O«ˆÊØ +1_7ŸÆ%j +j4jŒ·“(Š1Š¢";È00lÃ:SÎì0âã¾/¸ŒKâ¸ÄÍ¢ÍãòŤ:9ÜûügXo¼ÿ½<< +=}¦NU·Þz«eŒµ5#“ÉìV®òp÷X0~ž»‡Ç$gË'S·´óÏÅ6ÒpFzU&ý£$XIìÿÁ0²äÁôÊü6Ðr½;Èrý'½ˆík™Œ‹Œgç)'Ï +Ý +­ô÷õS9ÝðºÓ¤3ޞà4ÙÙy†“K°Òƒwˆ“»·ÊÏ'Ø[Eo‚œ– +nð÷QE;å§Rmžùæ›jµz¢wpøÄP¥ïì×'8©ýU~NK}Â}”‘>††¨œ–xû8u:=±óϼÐàÍ*¥“{èFeõV>Öþ]™KßÅvkï¾A¦/ӏéÏØ2;f 3ˆÌØ3 +fÃ3C™aŒãȼ +gFdF0#™×˜QÌhf +3–ynjgÞ`&2o2ÎÌ$f23 +y‹™ÊLcÞf¦33˜™Ì;Ì +f.3™Ï,`2ï30®Œ³ˆqg–0213K™eŒ³œYÁx2+™O˜UÌ}Ӈ.(•¹Èt²‹²G}ôy¿OnŸ»VZݵ^d}Ñf­Ínv +»—ýU>A ++Ìùr_õ +Ó·ªß ~ +ý‡÷_ßÿs[™må€AÂ\² + +8tà™Aâ ͠ۃì­ìƒìMö?+b? +™9d'oÃû +}èÑaÆmvÎ!Ôáã뎯p¯ï?|Óðë¯NzõÌ?ýã†Ý +ãŸáº˜­$×å<”¤fE’A߯AG@kx¼ +E|å§Ò‚Ü,(áòÒ +a!d +q ùþ'5rbîeÕÀÕfòÄn[Ÿ™­ðžåû¯¹çwtÅõ9­áÀ)ÓÔ)"ĤfoÅéDVB¦‚ŒÙDD2Ü9.)% +⸔ +uM®CÌìî#¥yäÁ +xáªÁþ²ä@Ô_(þ +`oòßd¸â]›yÀŠÊKD(KÈ×ê•eïï+Fæ¬CanQ.TpYаA ƒæeÔ꿀Ç|ØÉ„è]3ÂsÁA“¯ +TàÔñÑq"D¤¥¢ì#Â|”ŸjÇ-²[ÀA×´a:WqL†€ +;` +¿A÷ +¶–³»eÄw¯àlµúŠ +Åj +G° +ÍÐÜì "#ÙBhö󿁌$#ä ô_¿f(qÉ&€_3]\(Øщed°Ñ +WãèE6gòqî«c¶$mN5WSÖôô$ö1mü|íUp Oƒr‡¹úÜ +Ϋ¯ÈZ%g+iu¢Çƒ«ìó +í˨õÁVxó<ß\è£ + +ÚÔÖ´«fûvÁnºñO•AvFš`%yý9Ï-Õäqåqej!RãÒâÉwÿ¹Ð!5VÂE—Ä„JÈ-É)âìMRžIvԌŸS +à +—ŒÂa¤± +C^!ndÉS2 +û õc|ÝâGòøwÝ°ŽÅÑæG_]¿ò:Cƺ‘~ïRM’é)Íg:EÑEé&_ +5ÁB¤%¤'øLóLŒÒÆê"µÊ)ËÓK„ +ؓ³×>ÓY +AÁ5P"b[RÛÃ!Vtf-·šdÇo`ƒÙêË3|rJZ:h¸ (ð>»#7¿I¬•W@¥¿D + +$™={ì—ûv_h=x¾åÐvô +bGú͚1mS}b™±ª¬^€Âô¢äܒƒ‡¶Ÿîö×k¦ˆ°`ÕÇ® +–<`Æ9ô2Ùïoû° +7›7˜%+¼Ã·~VNr_Íý’ȉí‚OÔh +ÆŠÓ¶mÍܾý*äwù¨¯—Áq~›#ÔZ_íÒ-q!œâßAÕÔ߃ì£c|¼dÙbgqÌ.;”›®:Ê TEÄN~ø1Äa?Ü ( +ÂÕÕg]9?2&©¯AÖp•­V»p+Ÿ +ZŠ§€üÔífƝíIÞ=ÉsGæfÏÝ»øŒÝ‘šç/„²á®‹WsävŽG%>µ!Oå4öÖïQ0áT“ýñ¶fԙ`£äÈûÁÚÔõ +.ÅTùsk¤’ +HMI +<TMB9deçm«kÚS~8Å_·Ìu{gþ‡o‹¡°(/ôTvv^.³AUœ¼qú÷ +Ð?º‡V‚â'³%ýKî[Îã +“ý‰oPÓæi¦4â‹ñŸ?ß¾ +;¡41;þ¤A4^®®­1”5 +ñ=9Žâó2€x Šg$ ­ç>Bٯߣ-²SÚHA!y‚gŒ×zÈ +Þ +6 +Q›´9º +m Ëú£Ï8j;R—«-ƒ\îü¹£ÿqëÄ.S]—Σ>¥“l¿ù4-‹Ò!ž¸Åþd3>œšËÊ +„llÁ7p®é¬¡<#Š9Kzò +›V +)ÀùCD”è-‚ˆÍPQßg† ×PŒ™=ÌXE/Š‡X‚íü\÷­Ç[sóô§žKÝ×ο â¿­;pNs·§Ý$ý‰íÛ³f +°ôà'߄QD͉\ôÌáÆ=˜‚ƒÑþþ݇Üp;ëbäf‘&~ºk«ÙtæÂO÷O/^²ÐuÙtѲíŒóØBÓkölÃø›دa-ŸD½;v<$ƒ¯>²4+;;ʸêhC˜R + +X>‡P2H7XEó‹iÄÊ<XžNÎޝŒ4¿Ãñ²{8òZ?sŗ_ݹÚzMÜõªRum@áJH­N +鐞 +ɜÇò¥Ó +¡k•IÖç2rÖúïü†žWn_‘í’<¬$w|Ìî  +¹ 4"yÄj6QŽÜaaågd_ÜBŸXØó/6!€>ibÑ®Õ(­5tRìRy~NQ +T@QJAR.ù}h+ÙªO.6*AE[ ý<wWB/‰©ñ)娪H(ò!S_œo©ËßLh¾%«“¬Ð,Ýâ“wiôA4P2 Ýè ¤iÓҒ ž +® +2á)[^M +H +¾bÕo68­i㫦¥[ +åâS¶¬E(Jߖ–qÀ‘yR¯g/³ +q°p!Fš,üô“ã̟Zjä- +K +ÌþPé +°>Ðuœø‹ËCù‹•ûÃyîú’ÛÄJ ‘¬& +‚-”)ÖµkXųÍl¬’îZKӂ:mεÝÁü饙œ+)ä‰#Q`hœëµjãGo‰]ýa·/Ÿ³’¢ºI=ғÒSµ[@¯ +¨_cXIýå‰uGÇX„ô/EîǶ{;Â!QL¦ÉІ¤¾>3|=pÎSÇqøúßÛÄspjMñÌ̘ŒØFàšÁhèh!“ì¶ËÍVç$ä»|-+Û5ìó;\Ïâ°»è„Sñ­©8Ž8ŠDÞ~ˆ—4¿ÈѦ•8Žôý˜ +$V‹aµ&û‡f +f>`^mVüõÐÄ÷“ÄÎVÒÖÕJ"ÕÂBb+Ú1‡É×ClóN¨¬ +t=Ž]/Ў¸µ+ØÎÊ6„ëòíiÛü +ö¾lœ%Û« +G`ù•=5ã«tk+|ëy|•}©ÍW13_bsp§;Ú5½’0±‡á=YK•O1á~“l—k)i-G¾º +¶7†AœHú³qJêmEâ^6X¯Z½¸™ï!ƒcðoÿ}Sl† +ª2ÂdÄä$ÔvŠòŽÃŽ„ôÄ8¿Æ +%Þô˜m_#É+YüqÄþâiØÛh¨â"@ÝÑsœÊî˜ÑÏ¢L)Hkz +ííH +ñ"~èõâÓçí¬¦]£ìÕÜú÷¬RRˆú‘He¥ž²](Â(šñ£–aØZ^Û;±«çˆiצ×ý®^ëKF-òãj.¤qŒ§†ÙҚö|ïvûDvڌô(!> +Ú¬ì¬l(}ÞÙ±úqÛ­“? ÝnÉ̘F=[H +¶²ÅuÝNë ¶¥]³©çN²íƧŒ,êHŠÏ4¹%Ó#ÍØh’]iŚV+Ü'Ùð ¾É!i!œŽM:4 +µ9IÕJз¬3UFhÛ5òÀÈ.Ë·;³ ¢¦—¬¹H<²âóTE>Ù©9) +© +PÅyyř9?`Ná Nß +ƾôËy“‘&FIãXFѽE“ +Æu +û #©sK¥k|Ž¸ÌÍÀ½ß +–3~~÷{¯C”Bõ,.nßZäWª«ÇÆÂÌ]¢”SÓ£BþÙ)¡:¶‹¨ZÍXGOËÏ"d÷FÖwâ +¹™ì#{›Ñ +WÖá^¬§"v +( GŽÁ +8çárÁÁ¢³Û +oà +hN.ñ(\ +s` ¸ÃüÄå‰ËÂ"'C‡[lBŠÊ$Zz€3Qk¡_ä®ß{ðÀå +‘‹DÕ«þÛ5½8ù +h³’Æúwö—} +W¬X·p<Ä2AüÑÛýwˆÈ—”A +9êÏ+SŠ¢w¦í//oο•s¾„ƒÜ߃Š  +ô9ñ'ÆdlÉK(€RZ¬Cðc>êú¤“ÉÇà2œ„VøzÛá¢S•†ûÐõ1nù+á}XÄG­‰ˆûôŽCr‰N¯.‘ÕDC”éú­™é}üIÙÓÊv5{› +fE,:S_cïïÿèÓU^;‹óXôä¿h©0Á +îÇ÷nSuGüßj:€U +½ÉV@#4 +VFBxÓ!3¸"°,¸>v'pª¿ØÕdé&I´›è‚¹í¦˜P8xB€ +—\•Ð 2j +ºÆû㗰ô’Ï%Å<‚u|}Úwjx‹ó\÷Ñ,!Vem¨ó®Û²WW®+ӕga|‘8ÈcAÙHÇ¢œâü¦ÝÁ¦Ø‹À!wín›}÷&­ß½9÷ÝrNñdf¹w¡O3 +r8èú]8§x¥{¨*ÞÚ]#µft4£C7]9¼¤ + +gRRĹòçON c»ÆSÞÁ.ÿ­ +XÈë†-½à¿‘ß +§ägÖÉÕÓs +Ûñ?ü¹QNqú²UX2ðˏß¹»£´Ó$+—â:mfìúΨί¡YœMÎƯˆz/u£ŽMoÞR–Ü2NrthþÛÊÏhÂÚ˶ù”B8ÖQY–ßÂQûHÛØ"“¬@ÒYI¡t‹‚n¢œÕ +NìZòcʒTO](Ý$íâj\¥ËI®RQM›jHŠØšºš¬Nw§|ÙºŠÔ“ž’“C¯v3ËâCPp=ä‹zöZ»!Û¯ +Á1 +°Í™{ã³vsz6Ëë$‰Öks•µKŸWCvs÷É풼¬p?~ã +ªl*{Š|d'­UA•8ŸŒž£m +U] +9²'­U,ڒªWÊl"zÂú­ÓL8¨Äû¸âYa£Šxñ‘eUï>'}DSd쉬kûJ¨GDͱ™8=ÉèX]ÙãB7lŒ,Ž%gmÈ"¥üåíuotÎly?$m’öñÛJ ¶q;# J w^‚Í9¹Ý +G§€$GÿJ¨,3¨¥Ýï‘YóH½ÜnB÷» ÿë4“‡ '™ +›ìO™×µ¡»Y)õiâ+ƒëvWß +“7$e§dr$¿ºü{òÚºQ07Ø[-”@}¾¾òôzCF±¾È2«ÿÇñ ù¢âY°• +üÆs +/¸=‘-p>÷Ðv.—ðoË)ËDnŒöñ²Lrîëw~.‘[pTgqȈhB›Q™cVÄáLɁG·ÎZÛ£°´ç°jˆ¤ÒÈP#(ŽìñޗÜDiEöð_¨À“ý§¨ˆû¼¢ýƒ8ò‰õuùÙ3'.|ufî[ã¸-x×ïîaî +_›d×ÍÞF32¾>҄XHÒ¦ªÓâ£V»7mޕŸ×£ +‡?‡dQïW¡©®ÚXÖp}$x‘9’W§۟G¡=Š;-ëJèåÿ?ëòÿ¯£¼/hv +×»IB#zI9ìßâ!“Yő€†õ¥ë(¥ÉÆO +2èÞ¸ßi­°·®¾Ã@ëùòe^ÓgÏÿðjÛ/W.]¹xd™GG¯žÃ!&Ù)3VS +ÍÂe¼±Z]ô+JúCպݓÑHÙïнK"¡·¦FE¬\ž +J›ñœ£±?rús|ñõ³§®p”ù¯uôäó& +L‹`±ùá ++̑X +íz J»CìÍ/¡Qؒ¿±ÙPUZî +ˆ}göš·„cä +aYªê 9?º— +¬î)²Ñ´7GŸC—Ó§Îášsö +g¢ÌèaþüÌÇ×$¢çó˽8½ÿñ“{W¯Xºv­§8ɏÏÔîR +îþõk´{4&7ÄÔ +«³Šô9›«R·WVUØPµ}¹˜«tküc +ü*Ö÷Æü9´A¬+ +(‰â„IŒMŽ€`ð+Væ'¸xѝÈM}¶„åCžÿA€–è£+ëâs½+'·€MxHÉ°[Bqb±Î•QœµÃþä?fξý"”ç75jJóá:pmhS×ÎY7¦c>ꀂEÕxГyòOVî›%|^þQQ +.y ª5k{M‘SØbKº”4Ýkqûø«]ÇN‡~(õÆÎ×YV½ÑkÛyn· +Û£Ïã +fÚ¦ÏK¯ð +ې½†œ'z‰¨Ã=3‚U<‘´Öõ•¡¡¡¡•õõ••õ‚ +‰2ÑÖDMnÃaãÏ$ëçÆ'³ÏÏ +‡¶¿ÁB +ø„ùmö ¢Õ + qúLš»\®^U©Šˆ yïW؃£>Cۋ‚âôï—ì÷¬ñå‹ût¤g( +2ø^÷·{¡shW&Øç_¿ ½@¼ÉTÞÅýƃŸ.]ºzí¢›óD÷9.¢ +QšðM +Ê=ºùúÕîeüßȖŒ¶~ Cwñ³âaƒ¶ØçÅ2¨ÿŸ¢e»7ýªãÕIõÜCrâ;_Œ°¹a}íRÊ Ö£:ôçqØG¼ +[ŒU + \Õ«¿Ó–UìBD~éª3\ܮܻÅü퍳] +çƒo˜qá +ÅTÒþõóÙ_p€ /S×Wi(­3$ì.®„EÑ +‹9Å×;;kšôéÑ·Èù™½êâ^£°Ûyö×L˜` +2)žà1ÌãUYêLevHÖû +ð9WÛ´ý_ÂwP +œ¦ÉˆÙÞ¥ +ÍÝRx‹F›ºÖ¸¢hÔï¨føŠð泘û* +¤|+¸M›œ +Õ°¬@y3½|KAX—.×)Ëó¡T_ØrÄ÷„¶žžÎä¦ï‹Š'ðፁ٠+¹lú·AfIÁdZˆJK˜Þ«Î¦ßfŸ‹Žoõÿ]²• +Ù÷úW·öµ•ƒÑ/@#èܗ&©€› +ÇkºzåùnØGá_M¼>ÐåÀõn•´¨ÿÞ*ý)â'ÍLœ;š¬ú;’|v¼9üº ˆÚ{¶µÔsv[Žã +“¬ZÚl%Í¥14ö +¡oÏáÔ³DFnÞ°©aÅsÙÈ¢œ<(ô7€ ++  + +vPãFt1£•IV*%ZIk,ö-b< +¢E"g£Ã;äj +x„ý„ +³Ñ±[jã&쉾°µÀªé(H¤jz¶¨©šöÄc6G:_hªèŒØýu#4ŠçH[–*3n78î†ÌürSÍ]}qf%UÑٞ-¤oVJaL9ÕÐ-YšUÙÅ*²:Éß +w£’G*Fmv÷z)Ò·[Ç։.£ß{bSÛ­öHßNín!Ý,ö#cÉ 2ÕfCϧطûEø#l#mB»e4}ö| +lWϐí»ó¿¤} +ñß”di*’©1µ÷@Ñû +¶³8‚ü™•ZÐ9‚V9#^âᫍӁ>;Š¸šèråæ˜è0á:dYæ×i^>¾WÀ’è\¹©Ÿ¹¿ÉÖÖl;@èg + +jÛWª +òÿj§¬¦ +endstream +endobj +261 0 obj +<> +stream +xÚ]PÁn„ ¼óï¸Mӈ¤i/Ƥ‘˜xØv·®‡="<-I‚xðï+höÐdÞðf2LV5¼1:@vñV¶`ÐFyœíâ%B£6$g ´ +ǔn9 G²ê,ܧ˜²ûµ»òËsunï9}énuþ +‡}å¶:vÌ +o×9àԘÁBQ€ì{sœƒ_áô¡lO‘ûò +½6#œºªML»8÷‹š””e²Ë÷LÒ*œè +‘”–PÔuIШo¯»¢äðÇ&c9+7Ì6L)˜Gžr +q0cÉïPFçØÁ£¹x¿eKE¥_ǀÚà£Kg]T¥óÓt’ +endstream +endobj +262 0 obj +[777.8 0 777.8 0 0 0 0 0 0 0 0 0 0 1000 0 500] +endobj +263 0 obj +<> +stream +xÚ%ßKQÇïÝ +ËÖu­pÑ¥œ|H%YÇ5CŒP +“UëA4awÁÝÕqjØ%p\Ew½NþÞÉTÖ"zb +ƒ^ü?¥‡Þê!xí‡]6[byÇUfÛ +q&Áäa +d°øóèyŸi¬†À€¬c +РŸ +1ƒeً²™ æŽáWÑ:7:‡OÃ' +Ý +7Þ:éôçÇÉ)ï›}_ºÿî»Q¸Ì{¸Î¢÷ʦ׳ꭲ=v•½çõ:U +ǵÿRÓj +endstream +endobj +264 0 obj +[277.8 0 277.8 500 500 500 500 500 500 500 500 0 0 500 0 0 0 0 0 0 0 750 0 722.2 +763.9 680.6 652.8 784.7 750 361.1 0 0 625 916.7 750 777.8 680.6 0 736.1 555.6 722.2 +750 0 0 750 0 0 0 0 0 0 0 0 500 555.6 444.4 555.6 444.4 305.6 500 555.6 277.8 0 0 +277.8 833.3 555.6 500 0 527.8 391.7 394.4 388.9 555.6 527.8 0 527.8 527.8] +endobj +265 0 obj +<> +stream +xÚµYyxSÕ¶?!4 +  +"5) +2(PEF¡ S +e¬¥¥sKç6‡4ó9YIš6ç´é”N”R*3ˆ€ êÅATPTTÜ'î¾÷½¶ðÐw¯÷Þï»ï¦_òeŸ5ýÖoý֏<˜âñx#WlÙ¸yçΖ¯÷^7ÛÝùÉÂõØô;r(]¸§(îi +÷Ì NÂçÆ–ܱźz†¢xáO8_ù£È+ug´óu"y‘ÌC +æñèäLpwi¦»ûœå±qi aá2·©AÓÜfϟ?ïE·9îîóݖE‡$Dĸ­ +‡DÈț(7ïØ ˆYšÛÔEá2Y܂Y³RRRfD'ΌM[2íE·”Y¸ÛæÄ„ä`·•±12· +Ñ!ný®Ïìÿ·<6:.I’à¶>68$!†øéú"5“žO-£– +Ö +ÞÌßAÐQüx—T +E FQ£©'¨1ԓÔXJH£ÆS¨g©IÔdêyj +5•šFM§fP3©Y”;5›z‰šK½L½Bͧ<¨åÔ +êuj%µŠZM­¡ÖRë© +ÔFʋÚLyS[¨­Ô6j;µ“ò¡^Dñ¨Áļ?UÁsåÅðî +2ðüÎÁ+_v‰Œ°C&y“ŽºvhÏ°©Ã¾® +~Ç5eÄڑ#GŒš1š +½ÿ‰×ž¨óژÎ'ŒýPè!,W7Þs|“h‘è„8KüÍí„ߟ:óônŽ‰šñÖ´ôïÌGžBÅ +Ÿ¾ +Ë0 £5fm^)ô3U +ïì‘EƤÇ·Kª ¼ ßB“Ã@þÆG»Î +[J“#⢣e²æ&{}›d$Ç`SÍïl¼J®‡Ïtø +-%`]¤(PH4 Ö+Òz5ÿí!RgKŒÉ +TE’b0š +hr8ÉêYy—?Ao}Äçê¸ +›qèIì&ÁOÃF<"%(àžkéu¥xš!¹_¾y + +=‰†¢ +POãæÞ +Â=žh°>ìB•-Ÿí»ýnIÐ +ʱ‹<1¿$»¼.§=°s{í=Õ¼»è +>7Ùñ¤ÐXÐçm‰ä’ž³! +X +>‡UÔÃQ8]?··J¤b³g +%ÐF¹´›nBW×Mhwd°˜J +t´`qŽÅ*3Må}.¡_ýÉÎCã + Ý·ù\ò&XuŠgVºN§Ókõ +ìf‚€Æ+h +Üÿ¨{ïÉCg/À×4âÏ9>?½YÔ®-jn®ÛېVK²¨¾õÂ;{Ïýi«÷*؞x,vÅ{°¯H¡ÐfCÍ +8Úøâ£IµhØOçl<äþ +û#õ ÛÂjh„º˜Ê¤üXˆ¤§úàÓ$á°¸8îÝ +uk;tе™uái¾ŠÕ¯|±í{$ArùUm¿0· +Ü{ä>œ¤Ï¯==?±ìe¯ÔâÄÖ®ªVہ Ȗ +>}9· +èžöDo)$*Vm +ÙÎú3©$P +«Ñ3:ÐЊ|¨’ôåM°sÕ¼SÜ>'s¸=,@‘4’ +Ðës²z]{}EÊ +&2iT)ÐÉäKXµ:9Cãtª³ +ûLoCW÷qØï:ÉXh(2’7ÈóHrËo‹éf»Ë’*\ß;Ô³ý‰Aƒî¡uV4þZQ5ïÓû(ù¥pç„{å +l5ÐÈõ«Û¥j+e P•º +)¾ê` +€<¿j¹Ùù™ +X›µ±Ê>,kLš"I>Œù–öîc +'>dz] +)*<$Ô3~—OèVØ +Ûr.›Ù½èýåí5Õrkä&ð̜snÕ7h,"M¹·ñêTéðK +ìkŠFîYëõoöÙx×?G&â¦úRXô^Ùí·?ll?zè=°Â]yc`AtL¢,:±*Ój> +>ð®õƓñz¼{¡EbéY8Zó։wÏW| +gèßø»JV‚ï6Y } +_ùÔ#üÜr±¼½ëoŸýIéÚ@)Ȳñ¨øšœÐ¥‹ ß¥Žo®×r“¤ø×Qî%>7} Tl̚³kõ +ÿu¤qòRí&¦h[Cuk“¬0=;P³ÉãbêIé—pýÔ;__C£òÐt8L£‰.OÁ£ñ“xvßЍiô¤ä +>ZˆÆÏ,nŒë9/ +Ör4Æv¤¸¶ëÜÇ@¿ÕüÆZ)dèf'yɼü×­ ^9”M;íܚj^‹c%Ÿ+r¬2UúÜ +ȝN•ÏôÞ%„ǯ +èiºÆ°ßØUý +Ûè:)¯ÙE¹)·[ +0–ÔWï«;RÞH#4àiÆ F¼Ç$z“¥WÒí¦¡óÀA}7éûÒ÷:C° +ØBM=¹<áiü¹ +NŒt„&Ù +3HóS?ð +VÇZ¡ +`D¢†eVÏhYvëz‘JE`NZZoPçûÚ\½‘pA ÀÛqöDbìŠ^–~ío +¹}µø0Ð +jƒVÂ8ñ§TGg,[±qãŽÍéہž]O¡5R(´ðk4úð +¯Nßuù4¦0_ +*½ +” +òHI,k")Ë»ƒgç9^¾ËGÓ +¯ µQ¥Ðåz±•)g! Ô¬R¯z©×*Ò%2òhm*) q”y£•ÈÅ —¦ QØ]Š×¯š› +–£@/øþ»-x–Òuxõ≁[–o{ +èé‚ØT¨q¢Ëh*#¶‘rµ£Ö6^«ãU¾Ãb܆—ùlųI +Æ=þõ7Q•è¦àýfù6ÒNL&“NÛ=¨Ò%AõBlò\ _t!­¹ÅœwÄè ’4`ž²!M/'ß-@I.½gda¼[¬N–,«œÓÛ$ÒF²ò@' @Á}BêæF|;dG¾Mç£ô¹ðºàB³|»Ҙt&í‘ùL÷”øY@Ït#ËCó´=cóŸè´žú¿Öþµõ¾iò9ì;ðtºN"„)X$l’8lIv”eç& É +ù óÚÍæ +ЏÀ]l > +b!Î +ÉÉFR&»à£ +u’X&UèâTþŒB¶iiør gàg +y€–Þ@ÃÏ}ù͛×Vèw&á¡RÙCN>äÀä ª +à–б|‡(ªËç ;)Q0ލwâ¼ + ñh´Pz +®´u ++Jj *"'ÁÔç·³+ÏÙQ›¤²“ïðç +Í-¹E—¶:y9œY +!ÁË!ÌuÒ@sÕÞ+tæ¨{!8M„“â*ÍvcñUÿ+‡œ€ýcb? +Î}AÇ£vM¬Ëv“!Ï`éA"tLà+û‰ÿ•CDýWó4róøè +÷+ ËX| +è:§‡aÌb^ +á<¬|Pô˜‡µ"í +b!ЉNc +ÎÒïûü1!!,W[üóNc—~c­Ü-¾Ã¥¯U¢0µDŽú=Þ*·¹VÉUÉw@·ô{2 +ƒ_û—rõ°*#ŸÚopïï^|ô‹cŠP[«7đ¢/ü½ÇÌëeG¨ü&?äÖvÃc«õŸÞûñãEè0ýäå}Øû÷‹p‹k=&¼H:ÈIÁïöžõa¯/ixèžc–PU¦7ÈH + + +ÆÐ 8º"ƽ·[¤KPùÿs÷or¥"³Ú¬0iÑÉÞë¢ü,[Å`0›*¿åNŠrë-³]®÷a÷$n0F¹NÒD¹Ô^Â\Z҈+z—Ï*“ê +¯Úx¿ýÄÅßã;ê¸iB´ +@#°;Â[ȟ +/EÃHWÍE~hòAi’^Iïdá”·!Ö¶|4ã"¢>¸£ý +Ð×~ڈ=¤° ÷šå9}aàJà×ÎztÞÎã +Í׊þ&D +h{ +úbÙü”ÿ"øô}“ëxHý7WÎÆ-–B¡N~uu¸“'ž&Œ*K²NXÑqâö;ø‰ÏÉÑ·Â{ÖïÁ]úö´‹øi ¾à´ö—®tÉ»o߇NWH½ÿàa`"@.0Kå̵6g&„UAýò¥È‹7m÷K̺|•Dz5#ÏÞ +´?³ÿ3)Ôj¡º .¡=Õ^h¡§–1P|Yn¡°:W\`l" +?ù +0‹xãґÜq2ÜÝyHzå_äs_>œïDŸ³Ê +¿Í¢ä–]Äq<ÂíY<\ +Iƀ{h½æjò•dÑ»ñ¹k ^´ÚýÅçç +E ”äVB±Sù2Nå«eÒ#°_¿¶dˆ¶ÔZœÚÒ`)—K¸¹?àc#TC;Ò§H!ŽMdâÉ +«rÎ1$،“\l‚hVá>4Ê òô5¬™!:KÕ_³R3&{"Ð!¤f6cØ@üá ܇ýŒ˜Ô-DðJ†s¶ ×Xäœ$“ãÉ`{íßáÃ]>ê¢ÖW!ó4Fÿ¹‹6á{¢Dü,æ/|è YUH$%]Xjª|Ÿ›&ú7æËú^“F&uÇþð*¢%h + Vƒ„ô#©s”ò¹Pnœ-FoTTw +úœa„éØ=A¾ä:IŒAoaÅÝjS‘fr­F© þ-½ˆ6«‹É(5Š¡´±â€DÆ,‡à¸u†`ⓒø¤¢ËïB±º"= +m" +‚Á»§ÒÄlÔaè6¶v +‚.§PM2DC“˜€¾°¤œh°P‚zœ''8ы!'!ÕO?ðÔvÓ'ÐÙp^¿ïÑb”.Ø™ù™ÍN +ŸcEi5h¾•÷ö%Ä~ÀçrÐd¡.^ +À(Uѩٙ¤áÔÖ*) +1–äµÔ’¼XéÏV +÷üªµÞé +Iö¦ÚºF Ô§•$ìí'‹š~»Ùw§ê­:¢nYéñ| + +¾fÒK¾Ï8,¹‡.ZJé•5’&8U]ü±©Ä`ÉÛKøØ,ÔFk£BBÃÓÃÞ +ٸ߉4 +e_çX¹VÚÍã’.óÑ~ÒixŒ‚ +L½^/fX]鐷KµqR"£ÕLÚÔÞ¯Eµ¤WrM£9¿óhupg8¡I$" +¶+š„†ÎûèE©lߝ’B«½„¦J0–W6µ +n<t÷ù¸g‰pÕº¬õòŽÛô«)WÌd•4r‰+^96Ôúm‡÷þUw‡Ï-&¨ØÎjAA;“bk¬êº°¼y +~†lãã± +¾Xú#šp +(°¨Z Ñú¬F¾gÕæ=›€öYßNöê§>Bã‘–Âi¶)ü±¾™Ïû'¡†áH‘¢<␇S1c +†ŸÇÿ|ýŽô*œ|;?_á)BÂB#” +±É˜k#«µ—ÜÜ %€Ì7UÒk +L*èӓ£B}cv +¼¦QR¨2#—#;Ÿ¨ÝôÕZM¿b͈?ºyXyï\AùøÜR”!¬sîìU&+”C +†-êXŽŸÂ.äo< +üł_ѨóHP‘Ëæ+Iü¬N«xcÖ¢ +¢%v­nrZkÎk' +An° +½t·¬è›0- +Ð¥^­‹#2ë4¡(;2[yÜð¯øˆå& ‘ oÚ”ݶ +677tˆkê­v(€2ÆÂĪrdFg$7×Ù*Ú»«ƒ%Kà¯ô™*m¤zÑKd’|.؊/«wËa +ˆÉÛ.ÃAcSÞWúç`‰s.Fqº1Ý@ØÍ)«J +ƒkÑæÓ×k‘ße^éñ†6Ôz¢õ,Ÿ+à<„Z6+2é +KfUIua}¡¦5X»Ó#¢ +õ›Éö3gÉ +)„”Å•§«T!A°"ÊdeòU©o€½öÚäzMíBƒˆÃ4‰· ƐnƒFBÔÍõõ-ñZÐ?ܼrC +J[zmO×A(!E/ÃŨ Ê3ds5\×imk«h"ô`¶§”ºU²àÔð°Ô( #1Îôê9, +ڒֶچª" kôWwÁcÃ\ïÉÎiFÒ,îï1¯÷ùœr6† ÊéÏ|êWJ^mRöè +¢ÓèÞ_rno +H¢Ó.ZïLs›á„±Þv’méR;e`#ã:¿ÓTß“ßcé1· +>r¨¹¡³¼è}Õ)¾RÈds”›"°/yLlø‹Ç䒩o$éF# +ðÐÊßø¨ÓÁÖ¦×FÇF&†ÅÔ¤×ۛšì<o¦éõ¬^ +Œ.XúdÉ#ŸýpÍ|n1œ4Öííì»°»ø¥@ÝÀöG‰úì9x-¼VTÂGÿIþ9 +­$[ÝQ¶ãÿÆáø¤¯F±º§-mA¯›«+Ní¿ó5ùî +uN¤ÐÑ6u‰­®º¹%®6Xâ >Û·$d>¾RÅ»qyŸàsÓ¹ +¯Œó³J¢#)Ê̖+‰š=þ„Çiü\èì7¤Q.«No5k){”g封ŽHX1Qâ^4B_f9Ý€aÒdxÂÃ+]u®._b&R¢¦:Ï\Zb6×Gt*ö)ñ|çƒãRèÌ°¥UÄ4Ǜ·úxÁQÚ7ГU—Á]Ùl6iHeÞ$)Cž©‚8/"ˆgG¯VóÐHnµs–='È~NЌֹ$2fl{aÃ$‰® +üp=‘§,d‹§_U5KÝ^ÙVIÖû’kt‚@îAÆN¼*S +t€b_“Š +¹†ü!î桱dD7ì`áße +µ&‚INÆcDš(ÕöÝþ‘‘Q +2,<ôDù™ +U†ÜÓèÑ?8«HÂãtIš +7¤Òì»& +ïÍOó + +zQÖ<4æ/dAwN +7ÁλÁ)ù\º),¶Ú¼çÔÆ26F/‹ßeÌ"Š?ÚÅÔɆK![§Veáç°Y´†¯‘-"bºùTJ£ßÄÊ"ƒ‰Î-á +Xt–0ñø~n¦A]Úw¿[àü-¦®OHðŠ¹·øˆ +:¡V3cšR¼D?Ð#ÆCcÇ!¶˜P@³Ú@ƝʋË-–ÛߊÎLËW¦N + +ez”ž0F³á”±¶~¿¾ÁÙR¾ +©õb&/®GÖ¹õkÑ4èđcæF¸ËÆécÃ|r×IÚè|} + +՜‘Çèv«U^÷DʾË ¨¨¬É8p¯_Ãfô§zÊXk˜ØÉVÇÜpænSÍ#É_“1ò—ߦ‹$ùSek•x"֑üÕ艃\qs7TI +þh¥÷feÑA†xgþÞ³Ö%¾2* +¤HcoŸ•–(‹ŒØrH5e•µç7@]ŸbÉHŠM +lySrNÿ˜G´z’•[^bŠò¬ +X<Ä>ìòpk««dØàyÕ®Cэ±ÿvù© +endstream +endobj +266 0 obj +[319.4 383.3 0 0 575 575 575 575 575 575 575 575 0 575 0 0 0 0 0 0 0 869.4 0 830.6 +881.9 755.6 723.6 904.2 900 436.1 0 0 691.7 1091.7 900 863.9 786.1 0 862.5 638.9 +800 884.7 0 0 869.4 0 0 0 0 0 0 0 0 559 638.9 511.1 638.9 527.1 0 0 638.9 319.4 0 +0 319.4 0 638.9 575 638.9 0 473.6 453.6 447.2 0 606.9 830.6] +endobj +267 0 obj +<> +stream +xڝXiXg¶®¶¡ª4€J§F0ڍ› h4‰‰+HÜâ +Š­‚@ +‘Ýî>ÝÍ"›+«J@iÙ¡Äݸ&™¸$š'ˌ“1FGÇDOµ¹w¾Í2sÿÌýSõP|u–÷¼ç=§ZÆXY12™Ì. ÀÇïy}y¯šâeyòÚrb +e¥7çXK¯0Ò(™4z¤”K/[fÙÚá–ë ¡ôÊÜf¹ºÓ‹mÏXÉd|Jxy½:ÉËkªOÜæô„¨ˆÈ$'×P7§)3f¼îá4ÕËk†Ó¼˜ð„¨ÐX§E!I‘á1!IôMNËãB£Â“ҝ\gF&%m~sòäÔÔÔI!1‰“â"f»y8¥F%E:- +O +OH sò‹‹MrZ +î4õ¤›O\Ìæä¤ð§Eqaá ±4N;™7ƒ™Çø° +­–ÉW1!V‘²ML전A)2†±eì˜áŒ=£`^fæOÌƁɌeÆ3gÆ +qeÜwƓ™ÄLf¼˜)Ì«Ì4f:ó3ƒñf|˜·_Əy—™Ï,bÞc–0K™åÌ +f%Ȭb& +bdŒãÏ1'e¬,cиA‰rGùa+ÁªÆÚÞºÔú>ëÏÖp +¸^î)?¿08hð +!ã†\~)ç¥k6 +l~²Í³í³[o÷ÍÐw‡6ýeؤa»‡=ž2ü¦½Æþ# +‡âœ¤±Ãë$ :¯jû¯pV„I!áÆ*!—È椤çh4Ïg—gïÜýómTý9êÜÒµ›"ƒC†ŸP6AÕ^£‘·Cïû²JüPŽ×Ð[¸O>tçì¤ëY&é{“¬_Æ4|Y. +ÀëÂ} +æ’|’¯#9n®z²ó1π[ +*I +X^“y#ç$ügà:|´ódŝ«eupÚÓö¯ßû>Œ° +¼ò·MZ¸-xêD)_쪒áv|IŽOÍr¡Êâ•Y  +œ¼ÙËÆC +ð©ê*vœÑŸßÏ÷í"*5×e|½½O Ëf¼Hœ,±Çs8¦E”Ãñ臔¦»0AP³šÔœÛò²òçÂVà‰ ++¶žìì>Œì_®ˆpGnÜgd +±õ\4eɱŒº¦¶šãJ8²'£°¡®¥Üüí +ÿ¹*ð +÷÷}›¬%!™Ûi`©|º4¯¡Î&ôDëÖë8º¥Õþz[T¡GÓ»§‚0ø3þ,|Z}ã +Üæo͹D=½4kÁ[Á›[ºë›Ž*áÕå;ô͇ºv6ÿqÁFdêȈqù´Z].[§Í¦•Sôe¥—Á>e‹2p[¥† ãTñX¸æƒÃ¥õõÐÎwG7®‰Ü¼jÊý÷P@ÿ¿WRßp&ö6™Ð8€1ÊDɗ‚|‡Ë¥¥è%ÜÝ¥ìAmQœ2tºíäŸ}ï:¨±Èˆ•šk1~mßB3؝#,}ƒ‹€—­ûÓ¾ˆ£p¼é; +fG¾q +7âXÅSŠøZ¹™w‰«24êh + +¸CåÚ#À£óßѺ¾D[¾]¥ +díX– + +s `|iŽQ§×¿ +²¶ªH7—™5ÊJ0–ìlí9]Öü +xõ-•â™7¸e",, +9g24ÔÑäOïNÌÌYüÚ¯á0¥â)N{ð +Ú©ú£ÄǦc8쀥2J\ŒÃp”¢â=a?ÈVw–ì®O›.Â>8¢©MŠ(Hß +1|Tm\kk݁–K!—ǐQdÆtR¤T<ƒ™¥oµû‰sn&^¥É¨~üG¢“ó +b«Rô%SR‡Ìá&— +@Øܚ»gk܀}<?-ž¹s]œaž³ÒRµTŒÃeWį-uè–î +eå`€fž³I@\Š¶¦êJµe¼š$%Ö"[v³²²ÐP^üì¥ng±+æO$V>ä ®Ž¾g¡xXô±²‡ƒcÆc%bé'Õç›ÛùþÜ«qx¯ ŸXråD›ã= +M+4Ï É +xç,ɈÚ¼ÎÒ!ÂSUa<º +ºù#I‡ÂÂãÃýO,C9þ §üKiîŸVl2ÖõM2’(ÿ1‡R ›A,i¹ÊùÁ>ø¾|ª:µ +Ùa)Dñ +ã'¼®´3›)ûœEi~•¬Ý|P.Ś§ Y¶Ãˆƒ +¹yéDß÷‡ü +Mî +àSÔl‹þ˜¡±õ, +¥Äã´Ó Rzc™^ +m +°š½@œ­=è)ã=JÏ¿½ çR´€,i´&i¬ùZ–(=eWÐSÒôÊÍ%æ)Â~(MWæ€V››÷î‡EÇßÙçOÅÀ@<‰ !!´oÝÐ@!²Æ¡ÈUåé·¨2!t[òh¾¶‹a¼^xQ}nûçð +œ5"sùã>þ¶ü$ ÷æÔ +1M¯­þ€Þp@e÷̚ŠÚ +Q†.8J.rt1+„¾;„QK> +®Fwêf#n&î( UŸ·šEMß +AºƒÎÜÇðMZ¯oóªþ0 ˆl{@ôº5þ¯n]LÅÒ¼ƒBÙ,bÙ)‹é±8]”›#ð ¹d¢Œ›Jќ<°ù +ûcYð<•ˆGÔ켜`wå +,C§Ãï=ĖÙM˜oý‹LLß74&³=-‚š®±æ¹éÉ"Ž¦Ö +Ì3 +¾¾8Ha]½T +úu÷¬=ÎýXú««\êj5Ö “ÅUíìÝd0ue÷lT–Qa¢4D´·ÔÄ +Çõ*2ÌcN ›/ė¿ +*w«pí—"©™aK'ÁJ›ñj +ïÌ)DHƒØ°¤øŒèüh˜Ó‚.ŸÉ¼ßZU}x´·íø­£?ÂÓÿ,Fs,º÷‡>e +™L\H(YƒÈd,W)2ÃcÃñK¼Ý3ŠA«ˆâŸáX¹9V‘ +׸Ap°„["cHù ++èsîÏûkLÅótv>€ +J +¶âg¤õ?ŸÓùñί<+Ç‹'Vd7P‹k׺Á‹E–ZdÕ\;}³§ç´[Þd9;³ÿooâZ¨ý4ÈõÛB¦Jíñ”J¯ˆìz +‘AÐzçßG']åìžÝ|þºë)é‹u¢ƒ@ò¤YõY +Ž$Árú +É:]œ&Q£¥½Ê'XêZ;Nö‡‘@Uz‹>ÝK¥jxIÔsXß÷ 4µ¢  + +«`çîÂRl’ˆƒ¾ß-k2Þ +ööÀԟ<I<— +Y•0€ý@B§¤ +§äxÚ<]ȪÐééð'éÿ}0UœTÐ÷MÙv½n8 +„ÒZ•ô95zý!cÑ‡€¯·”t„ +ö]Ï탽º}ڍ^É|ŸÅø§¬v3ÛÞ¯#óÐSnnÿ +¸‰LÀ±$¤q%ï“Pt"ã0·Ð 3C”}V䢰¼m¸¹ñRî5¸ +WŒíúsûÅOêÏÃø4®íݖ +³Á|wL +ñ[ç훼ÒÒÚ)÷v¶cïóšÒµ‚2ÏèËҍ‚¿Žƒqë_ɛª¾é/*ÉþŸèžÖ+‘Ø‹¯°ès|ކÙd¢ÊÎü8˔ b£ E{‹&aº;¡ç÷Ç[ф¿؈C8œn˜µx9¼Af¨pbŠ€ü'>‚ùGdÐ_Èeß°_½š¨×ŽŽÏ +‰œâ8fwA4F5EÒ~õ†w!èjTWò¥ +tr?­ünOÍ6ÈVÑ5#[—Y ŽMŽ÷ çZA‡¶<÷S]Ѷ«+ƒ÷Pì©nÿO§ý•îu÷ñÓû³»7$giª@w˜ÐÒåGà¢cç¡K•_£¨Z2ª0´ÕÀ×AQ­ + +ôz.]d²²×­wXÚ3¿tE +}&ŽUÁüÃk«“{ƒŽä¡,‘WÜý[Ú^MMÊîŒúxX˯‰÷§œÄ£*Ýtû (øDÈOR‘ù\äìS–‚Á°³¤§Çáã »ù4 +œq ­©7åo~嵟ÆÝN©ûŇ²óhåri7&™_~™Î¦|:ÁKѺì+ +ü­¾/ˆ§š=mD9œ?O/§-zJ_Üäp +”½UFØ~Áä)x ©NÉÍÉÒSá¿á®-G™) +¢‹œGœUJÓþ¡òàˆ#Õ1†â²¿Rr + +˜Ô– +@¾dmIe:ÐÒeÆ/\“¶Šv‹ +Ð¥ç,еOP5Ã^M¥æyj¢$ïOÍ⧈!½Ö)q¸ ØZäåA«Júù÷i’@NÑ»º5°x#µê<öUúÙãðwt¥)^„cuõ<^¶"F.3}à +ºõ;@Û«*8§´6tˆepÚ¢kbi†uùm¸ð0¾i’5Qç¹÷äÒŒjÊà  +óo¬>þ¾)`Ÿµ1mÚx2œŒ|èŽÓqj瓽ûÒ @µ(3·¦¬Y=Ÿ +£CǪÃV†V}Gõámm +€ƒÁ@Fè#-™Âód'Y(mªoUÐ +'ö +Ù´£º: ckMdu¬€5ü4 +QP¥²'"Ž1I²3¡m¿vÜW¸¿`¿^¿kW[ûÉâà?9»˜Ø“1¾óUÛh­;U zØÏϲêŒìʶȹû?û;Ðë2^56%¥óŠû½¿-\Õ§ÿ÷Ü©ÅP ++qÜ +K¿3OЎ¸ +¿К#oþÖP›õ݆ž–+ý7 +}8Å­«õh÷P©Ó¥o +X~CSjCCSuÛ©• +JE·/„®NZH‰¿:ß$½ÒdßÒr +·Ó +8Eáý’ùå ò—îÂ~åçÐ[´BŸ¡/x1¿ +˜ƒ;@ +aiñ•‘Å¡ÀÇú1B¡U›«¶´E¶äßÚÆ+î˜ò?τ%üÜɐ¬ +ñ7¶wì*€m/†Ÿl`ø•ÐoÓêÝt£Úm4ôDŸ„*àq ³ +:S›#Ѳ‡5DϪ¤/§ú¿"Ω’=¦õ"ÊÓ BrNß&_»Ù}î†ò”z睷®Ô*±~g\®æt.A®®>‚¢úxGµ4L” +NÈ%£d#ï*,¹¼È%hcu ë +)–¡³¿A“«¢£^»#‡jšÑ(ð€õi‘ݨB7ÄuËL¼Â¡OŸMEB%UǽPf,«¦-~mÀ~½¹Ú2Um„¢Êç-ö“´1ºÄÍjC²Å~i¯.KM¾N3–”:[ŸÙh] 6&$Ä°•ž9ÏU¯¦ ë`‡åÔL²Âa,–[mÐnÐmØ´ÞÕ=û†”l)Ì®Çz(,+Ùû+ +žŠ?<ãí²Ê¥%¥¸®º¬œ%kK8q²/µ•ØØ {ÈÆV9Äêõ*›Áz;Iñò¿(“¡ï +endstream +endobj +268 0 obj +<> +stream +xÚ]’Ïnƒ0 +Æï›'[íºé +/û0 +˜AÝØêR4.Ò<´þ†Ô̸—eÎ. šäÔÁ]·L«nड़g,­ªÌÕýû.)×^~µÆJs+åQ +d–KâyO +#WŽ«µå€S\ ‡ÄdÌs§¡Ü9$}šhç4á +9'.Kb[pŽc¬gíü¹Ý,oˆÑg½%ÞZ±cu +ÒԈ‚ý“Èq‚÷JHo7lÎÒ +ð·'KÿbÅt£tN¨|˔Jbl1Ãß,ȇ1ö‘ÜĸçǗü +•ž4f¹ïÏj¬ý +endstream +endobj +269 0 obj +[639.7 0 517.7 444.4 405.9 437.5 0 469.4 0 0 0 602.5 0 0 0 0 0 0 0 595.8 0 651.4 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 277.8 277.8 0 500 0 0 0 750 0 0 +827.9 738.2 643.1 0 0 0 0 0 0 0 0 0 0 0 759.3 0 0 0 0 0 828.5 580.6 0 0 0 0 0 0 0 +0 0 0 520.5 0 0 0 576.2 0 0 0 298.4 0 0 0 0 0 0 468.8 361.1 0 0 0 571.5 490.3 465] +endobj +270 0 obj +<> +stream +xڍWytSeÚ¿!%^¡u&šºÜ[P6 +Ràˆ"vPYD¨¬BiÓ}MCš¤möå&Oö½mÚ4mè’î”JAP–bÁR +Åå +#â Ìçþ}Λz™™ïM;úyæ̜3ÿ¼9¹É}ßßó{žç÷ü^‘@p8œ¤íë¶m~vãcé›6mX’²ºµýÔ5®™{˜ˆ=‰͙›ËÝ—@]>áï‰S +"NÅÝñuõÌø*¸ +¯Ä<¼Ü³ø +"‘ÃáM¿Kðà¬G楛û3‹Êò2s3‹‹3³ +EâLaYE~QiɹPœ)ÎÃKY^>~”–¶,5-mizi™L”Ÿ›'N™Ÿµ eÉʕ+¦,MK[™²¶X(ÊÏÊ,IÙ«8SŒ¿¥¼Tš•/ËRæ¯Î‹ËV-^\YY™šY\‘Z*Ê}jÁ”Ê|q^Ê6a +P$f§<[Z"NٜY,L™Œ4uò#½´¸ìX(JÙTš-•àxîžNÌàÞCÜKPD +±Šó$±–øݔmÄNN6‘G +é‚cä0 +ÇÌŽ +p¬ +1“˜AÜEÌ&æs‰yÄ2b%±ŠXGl 6ۉ +Ä.b7±‡x¿I$ +œ8MS¦L¹È}œûU‚iêÞ©ò©g§þçºã!2¼~çè´áé¦Ä‰_ÏȘñqÒ晼™oÞ¥Š1Iã¿Q +c‹Âœ£ï£oscåHÅGKRO®ebìÃì¬Ô‘5ßSoÁ{ÍW/2ºŠ†€< +=[ïÒÛô´†ÑÉvç‚ È"ø¨ +†&°zý·Ð´&D‚ +´šÝ*J +Àd² +ÖìÝJ®š¿ì©§TY@n) +¥áäaDt¾~â檮 + ¿ö¾'iȁ­r2)VË6Å.¼ÇA‹p"ÿºq,> Ñc>6}5 +› +r]å¡gŠYÊI•Cç¦àûú›ÿè +¶G­kÀ +èüf-øØå÷‡ÁNzÕ`¢Ð£{yaÖ¼¬¹æ¨ùjöW²N> +${÷:va‘Ú^:)¶U +_Òɼømë·¿ç¢`lŸ½»øQö^`g¦ßBw^CKEÁͬSùC¹C[?€cd8ÔÒCu@HÑTR†u@FêZêiWÙrÝ/ûj  +È'sl¡aGûKÑͤÿ?²¯c¤“„ì©Û^¥à­>´=Ћ)X  +£Â(z8Ê9ñ½Ž$üúÖ*AN³Ëy-Ÿž;È(/X*ðÃ< +{/{ÿa› +¯׆χ8'΢Ïi.ú0v•ß k††? +ÑH–5‹VA”« +~“'¹ÖMº + +ö1Èm2wõì +v)û°ÀκYü^E‡Ê +íê&ÝÑØK–I³s¨r(óKtN³Å¤Á`Ô©_ž¾xbt˜†~i“Ö-o”:·†žh­rT4eöÃ04ZŒ’PúwgÈf¿ÎÕ軹Á eԆý  +¨\8Œ|LԕNt%Ì +CÝcÜ؞Ó!zK³©l+[ÔÎro¢Yh!@bŠ +aâGCŸ +¼Ûz²ï +®ê“΍ÛhØ­ÝY1ŸÔòUû$Ë +éyÏ w²@Òþ% +ƒÎó‡¿Æg}Ã5¡±Å!ªBÿÃw4yûÁA•^9®­R³&}äöU£Ä¬›ÈjŸ2H5¿Áj³{oô£Ôβ!c.Ñ¡–6Ï+}¥Ç š›ë;ƒ½ +˜U¯Ü4f#S#^¶õ eÌá.!ÿ wO"¶:o¿½ÎьOu’ +5žjÊåfmþ^v‹@¹K•É¨Í†=i«€ÜUÑu††vW›« +Ãþ‚ÍlBτb‹›PuˆsòRŒºÄm_ʫ͇›Õ +eü\Æ(‘­°Ë +ì<6ØaáåÕ(I§-Òj‹”{ÕB`HµËì  +`µØlV«³ÅVۏÐã4=è~ø8ã +–ö’ì·×ñ·ØÒ{à[@‰×Q +Z ß{Õ8¼–;íq¬0*ɤq:nm\ˆâàP˜c½~‹“Œ§ñ-v«óëÕY +q|&£Œ]õׂ5 +aŒá=|¥Øý® „ȡ¾] +sØ9µ¬”,VG}ëŸÚ»t¡Æ,RäíaïrÃþ·^‹Õ«&ƒQU®Âa™A㧬€³Û¬ÎÈdX}pnýåèñ¦c¾O$ünóseµr‘¨ü +§Þ£õ©"å°6¾¼2/wÙҍ +dê€9×ä¢í§ùí-%%%%-íí--íþ•Ýфžþ‘ƒ6„¹h¿ +?&:’]P)*- +•wQ~ؽ +›Õb±i±˜khX›·¥ @¥Â%Ő:‡ÑáûäCt'•cX[ÓO/ +8çb÷qcÇ÷ò +°ãlú4 +¥ +ÃèÙoÿ¶I`P€̤ʣña•´¹œA̺¢h_4¶3þ +ºƒŸµ>»f?£4k¤¤ÞapS­Q[[WOgâlg}‹Ž[+Ü¿Ó箽Š~+@vžUR‹‹DM¿ÌTÖ¨¡RåÇÜ}Õv4òV¿é‡O +z€‹iß<>U` +]Ž•Ð¨Ó«IVz{íB×:ÙkS“Æ߁è8'Ê?ð-ûˆ¯Î6iW)WTéFý‘‡²ñ¿sQ)šµ +%°Òìç<éäÏ!: +f¿¹Þäd@F3Ã(É?˜ùž +«íU ÿÂûúZ+ÀM^Éþ×rvJIÎê5ìL,ûSy5˜W½Ema,àX + +˜ + fg$Šºº9ã;Q +ßê°¹p{ZÀ«¤4`қôϳósÖ³kðsÿÅï Ã‚oxŸ‚DDc•RêŠM3ƒ³g°ë=þÃ^7Œ'щý¥dL¼ÈE¼¤÷ôXìÇ Í⡤Ž’•4T€ÉXz³ +¤Á¦óP¸gÖÆZ+°µ@äm+¯2N?橯 +d4N¸É c· +þ™ÆX=¯,W=ó> +æ‰(:ÞÍAçÐGü¯x¸«Jþ2ބÔ:NÜMsÃYT,Àrai5yÔñ†4«$OŠeˁLã"×ÏÈ<4³¹à)Ä`dÊLŠ‰Òý7Èÿr?Øèö÷mí]׺g{ü8p뭀97áCÞËZbcìxHXÁi¯ÃÁÁ¡0ït½åÄÚ?éþ’› +û‰ËÛhóX:ã#î]Ä +ù4äW=›]^žQ¸'4‡„ +þwa4ý2|G^_2ÊÞG±ý¼JÍ$JڊGSÐÔ`ò˜A1Yhìý·»F+ÓLvÝvÙÖÖön[âlw¼ +4 Í) +œV‡Å9†h:ïfÃKy4Tk‹ôb]©&*I–@‰ø´ç»Z¿ +ÌñÚЙt¢µäb<‰tá#4D¯Û;­µÖF¨ +×G˼8ÒßO6NL[Ì_ö0n–dpí^‹×Aүēåà&S´I”8[¯Ä ½ GÀ©ö +BÓØN›ËV*T»3öVíd’“B`u€êè²EûŽôN¶³Wm1ÑK‘Ú ¾®Þø +O¥?}ý +«µ«,f0%ƒV*Ï6ªÌ3ÈI¥ìTœˆÈ,.œ6¿´ôz‹É&Èþr=J¼sùÑôζö–þ–[ÀâhŒ7š‚*.`Šr„¹­*qQ:—ÙcŽš jT +­ϵÿø­Ø¿¶¶££«û +G²/¾Gv(v-U^”äNì!UyÍW»IBƒ\\n4°ÕlHÀNA§ôµ¸f,É-'Á[묊SUºŽ)¤Jñ +UvG„f²X› +p?g±dŠífæ 3)Õþ:ïïµM„;‘wlÁ¤ ·J¬¸^ý€{ÄÑԃf +›ÛƒƒN˜p”3Èx— +Œ¯áO„_ + +5r“Ö¬7€‚ĝ[÷šU§¦˜Ê-¬ZÖWÒú +$³w²wá9=wÑÙ +Ñ!8eyםÙSðÚæ)Z¬.{ÜXË7ÈÀT-ß¿ý`U)ö +5gq‘êÄý{<úæPߐ—jWêiÀšg6`´W~A‹®ÔrÑÀπÅðŒ¶ +V™AökÀìœÛWŒ™,ڈûU_~.6ÊB–S±Y+6àz%÷ö䝸Շæºÿ¾ZTWgþn;–·™†ˆ§Å®uM‡ó䥬Á§©`OQÎ><_W +Çùƒœãoq‘ï_à•’8Åu¯Y4Ú8Þ{n3ŒÊ¤ƒªämÇòNP] {úýçÿ™MéV|™)†ÎZ̦ÅáhÄôä©Â§o ùWN„9(y-æÆ +ˆM㗚+Á!¶p¸%xdèÀÑ5¬ gÎ~ +ž|¿º]ÿ†ú +l'ËÅ+ØDªžñé~C¤ÚÈæ*¿¤¼Xòʶá¬ëhù4cˆ‚^iDé/k+qì÷亳\0D¶·\¸AEà”®.ûWœ¢ä(JqFq¼cðoñBމQ,£—ñzÑlGÛÇ_™Ölv™`Q\‡¥J7 +¥7xélŸQŽÓ¸£_xæûá8çZ0b923Ձ‡3*ò”¨]?WQRì +U8ð9Êü<洁Þþ‚‹>CgùÎÃÍ_\Ɩªš¥†JTU>ik¸³aà­µùԋ—¡‹ÆvxK€|xËÅ͍'¤Õêéþq,‚Í[cæEŠäësؔªMy™ûñN +’@Änµ +rW‹Ê +÷ª°n;UÇúh8 +¼Ø}£þ¨Ý÷ï|譁Ž_|¨H]®“f͒mÃW£¥o¿I +î`[›âeåò|aÉ>¨Wlò#õx˜Õú½ +/6`d´Ì®TíÞu,ç"õüp³ +MÅø +ª·Ýaä»ßÆõvæ|{¤7 +–‹§{{ÿüeøµø½GÝ c2hŠ÷Hª*°›PÖU¥ÍòPOïK•lzíÁ¾Åêl<~ÞâƗ¼F]³v Ú‡!÷ÀŠtiՒ‚çÖçm +9•°ó÷5÷t´vB3x5‘’ ¤¡ª +_ãϣߴb‹ª¥'lNüüFiT‚Ì)qåªí,U aȤCáXºÏ@Åa +›é»ƒš–°"”x§+qš%qztÚ{Ó#ÎÄDtý·ÿ¾ïð” +endstream +endobj +271 0 obj +[562.2 587.8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 306.7 408.9 408.9 +0 766.7 306.7 357.8 306.7 0 511.1 511.1 511.1 511.1 511.1 511.1 511.1 511.1 511.1 +511.1 306.7 0 0 0 0 0 0 743.3 703.9 715.6 755 678.3 652.8 773.6 743.3 385.6 525 768.9 +0 896.7 743.3 766.7 678.3 0 729.4 562.2 715.6 743.3 743.3 998.9 0 0 0 0 0 0 0 0 0 +511.1 460 460 511.1 460 306.7 460 511.1 306.7 0 460 255.6 817.8 562.2 511.1 511.1 +460 421.7 408.9 332.2 536.7 460 664.4 463.9 485.6 0 511.1] +endobj +272 0 obj +<> +stream +xÚµz x“UÚvB ¼`§ +%˜Šó¾PEDE¬Š-û"vßÓ}oÓfiöc~ÏápU“¼ŸœÉ'狇¼Ÿ3ÈǼLæŒår©ìX´è© +‹-Y“’š— +—9}nä¼é‹—/_6ú’E‹–O_ +ž<}Cxf\tRx&ùOâôÍ)‘ñљyÓç>—™™ºâÉ'srr†'e,LI}~Þüé9ñ™qÓ7EgD§gGGM%%9súáIÑÓGm_8úkMJRjVftúô +)QÑéÉÄΉ>Ü9cžà-š¸zâÞ¦qá”ÈWLLNâ$s(ÎÎDŽçw +_΃œIœÉ +?ÎŽ€3•ó0GÈñç<媮 àÌäÌâ<ƙ͙Ù˙Çyœóg>g!çIÎ"ÎbÎSœ§9Ïp–r–qžå¼ÄYÃy™Èy +³–ó*g +g=çuÎÎœ N0g#gg3g +g+gg;gg'g' +³f +q,çîÍ1³ÆŒy÷,¯€×Å»4vÕؾqùüþ—ã]Ô"êúÑvâʉçHà;Ÿ¤ßíðãû×Ï>ôÜC½“Ê&‹ü¦ùLñ™ò¥`pªþáw þËüÏ=²ä‘¯§ +LCVýþ­ßG¿Ïlž¾uÆC3âf¼;ó•™ggÎb˚½zÎØ9‡æÜfµ¾ìq +qÅÍú{ÐÌÍnnúMôù‰£7y¨™%@»ùkp·^£C¡ÿ¶=1èN¨©/÷Tu• +‚‘r(@IKA¯WenÎ}= +¨4h,cÀ +Ö¦kè]¡Áb4“ï9•Oc¿êsח¥§‘/ø7Á~m}zhDž’ØsÜMU]WñDH§1«£RñŒ¼Âõü|äJíPÁœâ¿‚‡ä»d»¤»ü•i’m± ƒ +Tµ˜ËêÀE¹ó +âôôœ¸Ýûr;èOašÝ„ +£|ٛ?roÁu—×=vÌ ÞïÐS£ÅP +&¯bº€Ÿíu#·(N¨çƒC_U™î™R¯„Ü9"üõ[ñÿ½%{Kâ¯H”l5d¤•÷ÛҟÛNÿ úÑÌFp +]¢¬ÿw4) +>”œ.ÿ¨¼§êð‘²^°A?Ôç¦)%YKeUÉ+hT–š +”†_ +狎³LM6:2ãÛɨË¨ócÑ?د² è—×m•HõzÐPZ“ÒZ +B  5êÞ°Èô¸dQ­¼†®„*»ÃAœM5ßovqÑüC%-bàAËþÖR¨.‘ƒ˜Qð%o²L*”Åh7{7κdu£7ÚK<]ނ|Ühæxhþ{‚C_éñT¡ +·?;H@¡ñ«Ž­Âs—ãõ9–°þë½È§«ª¨C¢R«U´7¹ +:‹´XR*9fÆR¹¹éìUŒ|{ö§>K~ìéesƒCRÃ3·.“’>%w€™.£Ñä´5UíiVhÊ©ÏoÈóduÙn½äô1ã-b¸0"êÕW!¢lââX[”=dP¤ÓéG|p}Móœr£7÷ +ϕ–ÛîK—Ý'¼ù𕠿²å6¨dšøՃº +äÍÝ +”ÿVz석-º÷ú4¥PNUÈ*2wè‚òÖ +º +&£Éß ª5W^èøºcð3¸FÝZp~`vÀÒ¸êäÎ΁ŽCÕ2tÔ­AGpÕ[%P@ŋR’sTÕU×?»ó—ÎykÄr +Œ—{ +o«AOµÔ´°×\Ü}ìK(AjÃàMˆúmr#ú÷;ê¹ÌC½ìÛ“Ó@—øãÐV+ku.Ç1Ÿ|TnUµŒ4zµ.$'D¡åH®P™4F +YU§ÒÊ^Àï +õZ½t”ܪ³ÐV0š¬ÖÃ'Þ¶7“’qÅme`Kr@vdèŠà¬ˆ +7\ú¿˜ôFRëT{us­KR–¹],z©oÝÇh +zMCó¯‡^{šy +"òc’GmfÜ_Üè®ç"Ÿ³Èt¹©‡ìA°ôTóõ”‹ü™2pCe†]jρDx+?š•¶;Plê3U¦¨J‹ÏKŽÝ6zŠþn~°ÿüßь2û¨F@Oà©øaìGHvnH= +KL=ûº=û),\/x®ÙÐՂ¦5 +*q÷]øP‡+Þ +[†åø÷̍ ”o½äÅÅ\´ +“ß~ÿõ³”âwòôGA­Ø•Ÿ(J̬Èij÷´zhß!1xÐ.ûª‹{|èw<´„½¦‰ÓÉôú|’ZC‘“®o65xZ[|̤¥3àT€Â 2ÄÁvs‰½ò2š,D¹|'^1.'C&“*(ÝÙmêêØÓî`)ªR"Ï˜í µé†øB½[o¡l¥JF%bž ß‡£ù¾C›‰Iç+x&³·þ”ø‰ß笀 +Ø÷X¡õDþMÇÚÄ¥Ï?†ù +ò‘¨H€|ßûÞ§.ŸÁ\Ÿá‹½\dƒjO#ä3 ¦Oîúý—"^¥X +”øžDñI} +ùš^ +Xc§ðt|]€â'‚ÉʀÅä0X.¡v!z‘ÿ¹å™´ÇWÎÄcß¡Ð,ÏÐ=~›7txh•ÀPl°Î7êmrZGTd‘ìõÕ°‹+v +#°ga)~ö»YˆFÛ% +ð¦9£" +H«ØWáI¯= +Ô²§ÞA +œªG‹o 1þüç÷úvÏO3¦­4Â[N0Š+‰@Ҁgˆëá½ú½xEð/®à£h3ŠGYhæŠ`ƒÏþ +2Ôõ©ö«`ûþ×Cðà +'ã ¥svmz9|%P³~ +Ùv Ï jkç­ïä +½€¤ƒÑd'¥ë”‚v¤t‹27b:n=iDöýñãQ“ð6ÿ‚UœÊ€R_ HNE +“:À+MÆ⪷Qªð®)‘‚†–hUÙ¹/çf­jÿ$ÒÛÚ¼Öú£I|Ä©Oz™TD›¡W닼+ BMXl¬ªEBSƒ +²ŽåçË!Ob× (ŠЃRS€nÞ›Áw‘þg-'®N'®î÷ âêóö¢»ˆødäü—ÀVÊ@1‹½î”eyP¡‡}ìnÞ¾Š¢–Z£cP¥N¨²iÌELb¼V栐@ŽÌ 匍_ +•úR}Ö¦‡BÒÄuŠ”¬%:YRJXÔi4Pó—Ÿ#ƒuè©ïÿœµ'‘Fø«J噯gRø3\hî´g¸cdx2Z¼¢}¤cò v÷Ԑ‡7$fY­Õf; +T +ªœJ£’‰ŽÐFEFDù¨$ÿ’îo`7òO ÕèSþ¿ê©‘öq?â]=¦½Ý={‰Òõ¶7%äl›}î²ó¨^ˆùë°kô)ÿÿÛS°zƒÄ +F«ú]6˜Ç>Ì"â›Å~‘øæÓ&2\á ”ŽæE{óˆ•:‰^‹ +î*Š¯•]y2«Îê͋žž¾î»z\9ÀêôîgÙϝå>ûW¶Ðýóm'ÖÚdµõUî„j»Ê¤`bµñ!»C}Š¤wK¤„_ $atnoJxS‚D +Çs_ܸ" ®^Ñc$ +É +T—»½¾!§4[ +ϯ=y†¹¾êþŒÄÑ>êè©¡. +«eŸ ×тÚê +øÛ +T’!Ô¬¤³Óµ™qÑñ£Q‘Ùõf¦L_¢&™˜—_ –àoð€ð:ºüÿ+–[«¹ªÍ"†pnµx•«Ö_­—xñ÷LïÙkêlim& +g+.' +WÄĤV©‡òý~ʨç¾Ž÷ý¤Ÿ&*¡Ã|Oá!²<üùð)áfvPçöž†øcÿŸå°)Ã%ÂÂÍÑÒ +¥éóŠ,Z+ÓÒnò´vxF9¶Di2›Œº( pòg›„þÉᯌDD—ƒ)˜­';aˆKþŒg +Ÿ¾?=;÷šººz:!=½Õ75Rz™ì‚Š3 +”©ÄP9Ú@´"Q|¢O€z4\væˆÎ–CZY‘N©Sà1ï q[©ªÐ²‰Ÿ“~ðÓz +Þö¦Óʱp¸QX¸%FòÖ¯÷SÀ–‘høŽ¹À +ÒLI7öž"d5 +-kࢹŸ²Ñ·xCÍl°=ûØ_ðd +Ž#‰Œ*ÀOܙŽ +E»Q +áI=»r¨?^0ðT,ö߶h=æ- ~îÒaW:Mˆxê'ú‹Šä·´Š³ÿžú˜épæs +æE‡ÆEíÌ +"Ýs2QOIYnbÑQ7:âá²yˆÛþ)ê-ë›ÑJ~Z‰¢§Îü0 Ò,ܺ5)yg&±`6 +PÀž +·á +uý +‹x+½ÝDéíý»Ï¢ +!âð{ˆ×0P¨-*Ü,Û­)„\jõIÑé›-ßÚÈÐ%ñ2¥Z+Íߜ$J*IÛØÊ@ƒ©ÎÔ`ª5ïƒx'®wGiWljðZÔÄEo^@¡xCïÓ^j¯ú +lFِC ysÉ¿ñ +lwoLµhݪrÍÁBá‘›¶2ÏYè̂XjѪ9K^|qÏ×4ԚMN0¼S‹³ˆL-d*Òi +¶ãh!áz-!3•Y㝠+F›ÃYÒÐê(íÜz¦àÑ¥“Ï;o1ЬìIkM÷HMó›r͉vµ1¾<¿z¨ßÿÓ­;MkWӐ¦Wj²ô +ŸʹP𰸓;$ëä±Iã÷Ìf°¡¨¯k +70dϕëdÞ#Jâ}˜ÌW&SU +ZKX•Ì£w† +ü ++U^0^+$uèýºÌ«Ç‹I@L&£Ñ`p4ìG3šj€Ì°üZ"‰ +ÓéTDY´ +‹âŠäDº‰GÏtJÀÌ +>j:|äØámárÊ¡€)à‹!Ѩ +“ºÊHz”´ž‡‰¾¹úóí!)A›(Jø¥ö°³BÌX´¨í[Ú?cÀmn5»ÿÎÎþŠbxªP!"#¦œÂ>7×Þ¡‘èLmDcFL¬šALŒ +šÃÊb/ºÏw8;M6ƒ š2êì2:#U›ž”L'ˆ3 ³M_¡¯Szªe9%î +Îî`kƵ +58ÊQ–Ȉ֋‰ÔFÇÇ%ŒúFmC&Ú"cú‰áa¡1× ®¥ÁI²øûü»6D}?—÷½Œ=/h?UWq Øa(¶ƒƒ2€CJg¦i3Dq¢xÏÊTêÛURu‘J†-„n³X™Þ{âQì•–ê³ÊF¢cWULL”6FG`öÖ)PÓ +Å*cAcÚ@z¬t*9. +~‘,Q¨¯Ñן7øßsã¾g½nô™÷2š†ÿ[hÈ6jʽ=×l+GM,ÝÃjC.¨*ÁŸ`o +ÚdnvšK瞌8Ð +'ýÞGÿ8.pîêÌî€_J~È§â2â›yô¼IÊx½šòëÏíUˆH]óðD<Ï^:x•ñ{ì«é>H +CVÁn¼Q!Ú°b +øïV +oaàM¨ê­?9p¨¨}õÛÃÐéÕ:±4ŒXºÀbz¹hü»(õ<½3´øÞ¨WûÐZëµú¹ +¡Ô{ú™KÉ +ŒJ9 +Z-iXs‡¡^+€hjYïÚ+h,š€ +Gs¾ +:DGC|v¼ˆÒû +Òj®2°ÏÞьøÖ:0–»š»»Ú»€êwl1žŠH~Mš +¸F­B]×ûÝ\4æ +¿Åcײ¿ìTY¥£ÄNqmc»ë`Xçkø!,ÀxöÜãë>AS>ú{¹YáTШB¾zÁM>P[Óû8ÚøMÁ=guôÕÖ¯+¸¤»®D‰Ç +ûm®oÄa'µ1ü¾XŒFâ7 +»ÜRG× ‰o¬ÜÔ¿F͵úª‡Ø‘ +¹ ÕkîÅ¥ºÑJÿ"Rwñ‰-pÞt úz+œ+5³÷µVSoG×Ç,ˆÇóÔòQÆ6¦´·5|>”Ó©Îd C–¬ÌMzV(I’ŸÂh +É +*ª.âȝ6ôx1í÷'5›)¨Ï±f§æ¤¤»e®¦êfz´’/}P: +îþ3Çoýû඀µÉh?ŒB +ê3Ù°Ñ{ò®- +9—Skö§wÒûÀÝæ¬vw• +½s½WՒ +¹kCJÕÕº¨µ6Ìæ26” +ÀÆ×íµe55ž#Ç÷ +"Ô*3èÕê8PüpgÜ× +Boƒ°ðøÈMëÄâ¸|=I!A/÷Ήßîפa­P¯Qç@5rAÛ®ÆÒúʎ²3÷¬Vƒ +´jeº0?07<å§íÈwhp$ê\{½qm#i›ÖF³­ô Kjšõ +’Á|v0ªLöÞ<– +u*½šÈD™­ÀE—@¥ÕZݍžþâsÿF–ÞÜèÚMÂÎФPÅÅíÕ!»âßR +Œo ƒXÈÉ'åFJ‚½·wÏ`vW]ª>誒e +ˆµ¹ñ‹øèÏíUÚÿD`ÃOÝ? +†Ê沺þ«×þSŶ +Þ +’äþÇL·Ý5hÉ% +kA +ÁÁŸ¾Ç˜³Noø=„È´ƒæÐ؂]‚¨ÏeB: +ˆ×z¬óäÒ½6 +3–5K”¼eGÈ®‘«R¼Íƒæ¬Íç}Š§ÖRh£ô”÷lDiV[™ÆfSSk»wL +½ý,ÜkCqÅ +4[hͯðŽ +\ôš‹æy¥³ +Âb“㥃!%é¿Î{ˆ•)ÔñL­ýÔõ·VGl”ß²1d´ %3Â?NøžÇ±ÏüPM +£÷Ð66Nœ"mNëxó>>ïÎ†¦Æ(¼X( +Ók^ÓS2Œ +ä­ +¦¶¶=­÷{j5š +J‡Š#¡/—Õ ‹×Ë ²ó»:Q1° >&cM¸ +ãdZ‘÷þœt‹*OÙÞ#ë ô+»Sœ%;Uðod +éxÍ# ͗¹ß½^8äž|í–ò +4ùÝÝWü¾G€v +öÉû尕¥®œEgÁF³øða3ôôª%¥Ù™)ù!o +Æþ=Þ +|h¸½ª*ÂNù}›b‰µAUWsáݝrg”H£H%mTfɯ«l(éˆØ»Oˆxb;í÷=<¶°‰à€nÉFÞqYã"Bú^)‘·ø•Î»Gº+ùhî¨0öáêtgk +¢ðSÂ¥ÿ|¯åƏ^OÙÙyä¿ß«F)€^‘—÷f䋛H«†úŠ{o¥ø²mw‹æɓh1уvš÷Å3i—NEy¤Å)^ÂýBu +èŠ$¹)ÉI¤Ý‡íkcàdÛ§õl5æ2Âw‡Žž@ÿÝ@ûÍ¿»ùâ“háI$"»?„ž(SôÙPHÉŸÝï•Òp¬á=χÖjó¯ßl'~Ò âmñ +­)ýÚJh +ŽÒ–Ãå1Ý©Çáôö´ü¡åÂ^´ŽR?ë-DŠò#²¶‹"Þj§¸§—»¡Î¹¯='´¸ +ÝDèÄ4”©:2Ræ.»Òn”¹¹Go¢C7yl2û¸ R1wßêòÖÜá%ÉôHØ%ÏÍ:±Ë–Ԝ­øáL¯/L)€Á\Ñøñ‘½Ý@5WgF_¤»Šbdzì-ñúì•Ad6πü²›½ +Ê©†l‹$==;!ª7s€>m]•-®Me +@}u=âúáí +µ8õ™QdÊÈI-9Â@³ÏÖîì-?ek+;Òøö~0A=TxoŠópxùÑnv–Kæžü·[É'Ëßñû +5¢ñòÕ¡;z³°Ë̐¦`°<æ’F¨ jÄÎ> +stream +xÚ]PÁjÃ0 +½û+tì(ÃI +=™@—’’C»±´ƒ + +[É +‹m琿_í† +v@OïIzâUsl¬ À?È©ôÆjÂÉͤ: +ŒeyÚ¨°V)«QzÆ«³ô9"ð¯ËéðVo«sû½½]ë|ûãºx„b­›c»LÇÆö„`üó>p +´Àæ ]‡/{'dì›[Õ&¤½ÿÅm€Œ•e—?NRNãä¥B’v@&²¬Q×%C«ÿõVE׫ILì"³ÈvEâ®hTE{Owj&ºïM?HŽârcñù&ï|T¥øXÿm +endstream +endobj +274 0 obj +[365.7] +endobj +275 0 obj +<> +stream +xÚcd`aa`ddä +óswtrÓvö +Ž4 ضÿóa5ü¹Œõ‡ +ÃYÆrL?䙈³È=ôbùÏÃ$ËÀÀðUD~â‘ï@¤:`´b`eddã­ªï+(ÊÌM500Ö300rÎ/¨,ÊLÏ(QÐHÖT0´´4×Q020°TpÌM-ÊLNÌSðM,ÉHÍM,rr‚ó“3SK*4l2JJ +¬ôõËËËõs‹õò‹Òí4uÊ3K2‚R‹S‹ÊRSÜòóJüsSÀ>ГÎù¹¥%©E +¾ù)©Ey@§1‰v&FF‡ +|?7-øQ<ŸñÄ÷YÌßÏýȝ4«wZ÷DŽUùK³ä’»ë3Úk+üqèlíhînç¨ÚÜÜ#7¥»Jÿd¾âÅ?헰ýVœÎ.ÇÅ> +stream +xڝW T“׶þc ÿ¯`¬Æ¿bo›Ÿ«HÁéR­ +¸*Uœg†€a@‚ +2D@H²$È +†0@@DTžÞ꫾‹å=§×^kí²V­^[ϏÇ×õN¨z]oÙûÞzk%g­¬sÎ>{ïïÛßÞP66”@ °_ºb +϶µÓ¼Ölô°þž³ +缨 +J·åÿ@ñ +øFðR!?Áæ#Š¸%+õËëúŸïY×)dy/b +e#0ª„l7·Ù3ÝÜfy)÷$Ƅ‡†© +]‚] +?ñð˜;Ýq–››‡ãâHyLx°,ÊqL&”©È +ã&ep¸\•èè² L¥Ú3ïOŠŸ)‹Œ©Œ õtî® +sÜ(•Çì•ïr\¦ŒR9®•EÊ +­.Ï´.^ÊÈ=q*yŒãå.yLñÔn&µDàM­ 6ŽØJí ü¨JÆDØQÔj2åD¹PS©ÙÔ§Ô +ʝZ@yRéÔʋúœZJ-£¼©åäÞJj5µ†ZK­£ÖS¨Ô&j3µ +ò¡¶R“FPʆ©| h +èF +oÛÛtØ|eóÜ6W$EŠžÑ›é.F7ÒndÐÈ'£\Gݵ“ÛýÅ~•ý™Ñ +O'‹ä5bt +%¸‹(!ò=Ë6Ě##cc¢"kbkj¥â¡° 5££–qhò7hàÇ¥%<ŠçÛlÈ떢÷EÚ®ó\¾l‡?!­š}lúë%dîN» +¤/EµèºA +½¬¢C´jO©J!’üÌ;‰Ð~øî>÷>ý + +‹ì‹o²;µyÍ +ªAhÄ +w]ë¹îÏNœx()Î24Ã"èÊgÕ ù§ü¯l„eãyg`°vÇs°?Bóð,´Íû;ú,€ü. S—ž§cûÅNÀ|†Wô¡#¨ ­ìûš{ +?/ªÁŸRõYÅÀ”An%‡RérÈO“f‚Fs uÇYPª +w~×ûžphÑÐ|ö­#¾‹ +þ§h.þùr?ÀµÖúžò=­aÀB~‡Ñ'æ^‘Zè•5øìšaöNŠ&ú~NZ·šÆb< +R=ðú +tô7¥ïpQ̋À2$°ã=!J⟰­†¢[R³E¤ñ†À@o"FÍô-CZ¨5Ù¡Ú´ùÒ +¨-ç*tt\ +6{'K +=_[ÔJrª‰3k,¨×Œz ¬“¾E +?­yúÈ"IB‰è9‹ +h¨5äW +Ì74A%0w°ëœ€ÕøC ’Ùu7.À +æ1 +},Å×ށpwÎi8uŠ|É£*ÚS[x”C9´¤ً®A“ü`vc$Ãç° +NÉ»C.B!0ߔ~[c„¢aìÒuY«± +ˆµ)£<½*ýêÎŒ/Ò¯`a +#æ¯J¸Õ +ú/£Û— +„ŒŸ±óMїá$såìåo¤ˆ +3ÓJœsôYEÀ”@ +Áw +m‚CVðtºÌ´ÔĂâÝ[“L[OÏ øœë6 +ƒ +Ý;r³:g!;åí„|í‘p½®9Ö3ÞÛ¹I=sMÈCW +ÆT`R #žÃ[èxÈ(’æ^ŸWT|xê‘3_¬»¹¿$¾ýÓsú÷žŒm +<ç_¸²”P* ,<>*8jA +÷PÅJ)ö¿hQ<Ž³­• Sš +ÐÚÃÙúýЌ†Cò$é. +¨5 8’¥•ät= J›9¾Š ¥Ï7 +,0ÔÁa ×MQ%؃©‰_´ÅUýÑ"¨xa¥#šÅî|šî &N´ôC +!£¿føo΄5„7t/Th +“òSMËA:Í~ÿñå<—O&4@Î;oõƒ ŠåHöò¥CnJî"8‡ +Æ +´7: ϗ9Æ$Cf L,‚\cn òáo9”v֙/è +­ÐD€"B©ß`µsIW + *ÈÒfk3¢I8§ã +s‡ÙwQ)Îa;\^8?îÀ“~M¦ßÚ +MvÝÉî‹d<)ðñ¯Î.Ö]þÂAã_²±5DÑb#ÿ¡h|Ú +߂BÍ +?´˜ÇuÜØqͼV/Ù¡F®±¹²†Ð`̗Joq畛i5l + + +SeRäEC?4û· + +ÙQº +˜¹Ke«•Iµu¦ÚŽ€\ +WW{*¿˜Þ~ùln7-©¥¶he-ð +‹Û +ÁŒÇÃ=W¤ä¯áع’z&ýßØ©‹"v4Ÿ–—ýE3ŒV^«Í)•¼£ +´{>€Ìw$GÐ +t%¬Ð–5wõ” +ƒ8[+« +4¬'űó€Otp\DÂüA^{4¥ôPÁ¤of-§•g íЈÑ4Öå ¶ç¼agXì +F²]¡±‹ÚVA_ÍÏÜν¼_O‹ùêzÔú}C½ ù +¸/ä)þ#vov| +D1ѦøÚÚÊrËKÍÆã§9ⱘ}æŠF!® Î/RƒFªÐ +HR-Ûí +Ì*3ȹÝê¾ÈÃYíјWÁYø÷‡ƒ#/˜$Gø‰Èž +DÐ$ïUøû%C ×D·Gwh/@tûjOT5µYú  +N쭓í#ÜL`rþÂfýû’Ú +ãèŠY<ö'gdÇ} +‡+Il«h4­ÐÖB{§çõpü³·ó~$È°äi4ÜAš«BÞ %²U¹Pù÷Mðxl?c2~Oøùc$FâžçÕyYÆtn?h2uÙáSfi“aÕ©šw÷è.B;£¯aóÑÌ{eõp.Êôx<áîRæ¶d0 +íÀýwb-ØÙÒß÷tvH +HydïÏޗF +<º"Ñ\w¸¢ö˜üÈæ + +ë‰šÒ +7ñÐ~jX!UÐ}†b}ï‰Ý%RóñôUG T8¨­¾t«eÖ ΣäëÍç +h,òfÍû,É]À<¸võ&=ÊæԒ­ÝPYšŒ,HdÔy Õ%e•)–`iø«ÃB÷Tí*‘3ÝË{¾¡eÉZ­2 +ü ¼,´.Ñw_pìd>¼Gc~î». +¶„“!5›Z6Àtˆ' +Ì0Dê^e¹¥ùÅÌÓlv<ªâ ÎÐ\^Sjª+­æ +LU©`ê'\öd›Ðݼžþ3\wŸ++øòÅšµajÍ +¢UC+Ù·)Zö:'݆ +ý©Sź>’z +º8´’þåßÏ\ºP¼}ï{ç9_ˆ +A›iø”-ªzyñ6Ò~¶‡)61:‘u +"°µ#{D»‰¨Å’ûh5¿–ÅNV.çØÎáÊז; +•ú“eíÐcµ¼2;÷8'y’ÃÖ +*&*ª:ÆòJkŽ³¢FÝ.x> DËP$ËGÓï +ë¤Á¬oo3ë:߄õ„¾|ö!žPw( +R&îפ)†ß®Ñoh‚ë±Ý«= +'¡-þÖuüjÑÕ0B"£õ[¬ºZª+ʄ}°/5=ƒrHÐn%¦­þgùíê.×õ¼qD<ôp˜Ô)æqVtB­IZ‹ŠXDÝ8}ñÜá]K/ñ¯ú_¾ +зP¿ûèޚà"?ð‚í2¥OÚ +àÖ¹0¶oÝëÇHnë +‰ð”7žcÓï?ü±Þx +2(é +vûÿG—™¸,EIè"¹þþ?{P ®ç§ËMë +!Ÿ€ÂY4aò3<Kœ +‰âŒ}æ‚Æ ɓ'hŒÇc_vÈ̪ãÑíº>肣Ðonkì=]ÚJšO[„)¼Z¦÷„À†˜¥Ÿ_<©\$ö± éfþ}KRý¸çƒ¨êQøè;¶ù_Ιځ¹qñLa‘÷ìy +iµ±-©&ÒÒ+o›ÚèæÝ_þ£KŒsý â¶À¶8y#9réUŒ¹—aÿ,Êã¯\pnUƒVa}Îî¼¹1?Œèô(,˜†'`ÉS4’k‡ÞҎs +þü÷íñçch?Üoí +ÙÉ{be>À,^}Ù"fàëë7ºÜ7“7_cû|àù]‚ì2"åm +èc$’êh­Ž(l,³§2©º²º´±)²Ñ_ºd2՚aI[˜ôß!¸bÞUmæݪͽ(µWˆ +òó~û'ZHMÓjÓÓd)ªÆp¨Ãî%¾ +D”DWÇ5+Žeö¦÷î/×T%d˜@ÎÌv†éˆþ[ÚYMÎ˜6> +stream +xÚ]‘ÍnÂ0 +Çï} +™¦©6¤ªRIaê$ƴ”Äí*­i”–o?ÇA +vHü³ó·e;¡¨ÊJ÷3„_v”5ÎÐöZYœÆ«•ìz +Ä ¨^Îwo94&Å¡1ŸÍ€–»ãûîãY +Õæå|ÚÇkPØzÅéf’»_•õmšq¨t;B–á7œf{ƒE¡Æ +>¹ØÑ*´½î`q5Gê«1¿8 ž! +òœËž%9*œL#Ñ6ºÃ ‹¢ +²ý>P«o4 +§\ZùÓX’nI-·qN¼óœÇ+Ï[Çf9öšrE¼äÜ(Äi̜º:éʳӬߘÉ +ÏNÿš0“!.<Üð½3׺ÛñcÅòj- +ÏÁkuè5>þʌÆeñùè +‡j +endstream +endobj +279 0 obj +[658.7 0 0 455.9 0 0 0 0 0 0 599.5 0 0 0 588.2 0 0 0 0 611.7 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 285.5 0 0 0 0 0 770.7 0 0 0 756.3 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 592.2 0 0 0 306.7 0 0 0 0 +0 463.7 0 0 0 0 0 0 0 478] +endobj +280 0 obj +<> +stream +xÚ]•yp÷Çw-£ü㔥bR¯“.ŽqH'œC `ãC& + +[¶’e˲e +[×ê~:V²n[–dËÌasJ +”³žŽa:!!J&¥CÛÌd~r×3íÚ%ÿôŸ7³»¿}ïó®ï$rs ’$g¬-«X_¶qÁšòò +K'^¬¨g½ÿ¾1fž’Ù·ÈlaNv/ûË\êۍ¹ÿÉË) ò73'웯NXòœ%æq}ö1•$ùÓg¾þFË×#Q4È$5R +F¢(÷ÕHä +2yiéû%¥¥‹Ö¨ÚÔò:™F<¿ºHüÞÒ¥‹‹Å‹JK—ŠW+¥jyµ¤^\.ÑȤJ‰†{Pˆ+UÕr©¦M< +L£iX¶p¡V«-‘(›JT꺕EÅb­\#o•6IÕ-Òñ:U½F¼Y¢”Š'“*™´kTʆfT-.WÕHÕõ +yÞt"Ÿ³ ŠXN¬&Ê¡ ԄŽûd' +¤“t‘@Ì +‰¹Ä¢œ¨$v3r’È%Rä<’Éy3çTÎ?x‘\÷” +S.ò·¾2=ëÈ›kÌdçeȑ¿à+wyY6pÑ{×>`Å°ûöÛw×ÿÂ<íOFw +“èò±K‰° +"#¸ì³±¾±½ +ÐxšA<ÁpwjàDÿÅ#×»n‚¹!¤§ +ÛA“Lóá¦Å¨l¥@ݲìãwUÖßÁHϋӣýg.]¸·!]¬èÜn]ÀìAùÙ]†ÌXñ räÏÏÿù€‡Sُ,_ÍòØ<` +ˆå}Uñ +Fßáb\HÁ÷{/+NÊF6>„ó¨;:p–„¤!Õ£·Å¥zzÒ"Hë½»C;ÃmÐh^ûÚ"Øqtýà6k\*ñìýèÃ}lñ¢ªm‡þJÁè ¼ +S'9ŒçúÔXI’ÌæೂklÑI67¨O6vÂ@½ü€›ñB§Çî3DmQk7+ÏÞjnnÔ2ëA/S§+ì:b‹¨âµ?²G„ì 6c2ÑhŸÝ’0ŨnˆÄ}>.Ðc +³·Hüâ<ܟ"À|~û¦Æ9°,P¬ +Iƒ†$—K:Ñ+‚€Ëk*îÂè + +œëþá©üè0 +õ7C«ˆ}ÁoìÞÝÐP· +hd +ƒ—êÇúüÁMà¼\åW± +Ö± +–vK‡© +;¢ +LSC +J}á`V’«2Ù¢>ܞ$¿ø2;÷/[9¶PàöyàC!Úc¥ŒmmÛÂê„ìj ++b +€ +ï,ÁšVXЊŽmt=ؑÝc‰Pap{ý½gñr!^Àb\X_oùž‡[0þ‘`ï·#ð +0ï.Ä¥1tèû¶Ñx—sº€}}ˀòñIv;‡ + oÌððÆ.쇥«×Z­àââX6ø›¯ðÔ[ÍçªäÚF•*ÙxœŠCœ +QþXñgƒÙ²$÷7ž*ع|¯£ÚaqÙh0#«Ï¢z.x{җÓy +þ($"·CdvK=\Ÿcá +/ó +„8Æ÷j¼r¯ÚWãß +ÔÞ¡ÛbÒC›±Ó z Ï“äjÛçî‚cà>W—«×ÕhÂ]ÔQ¸ŽÃec9BgÚÅè¸9´Zh=bÛÇ× ð +üx˜}<%ÌÁqÞÄǎ“ø6~&øÿ^Ü°_´£Å~ÐiuÙ¸¸.0D©¸¾ø%\+ôŸp>Ôieh®).«­U»B¡_¨˜¿uoe"þXÀs +žÇÇ3)—‰@aS‚ь%8éǓHá͘ Z©ñ¿Õmú¤D>H@—3ípÛÁ +pÚÚØÙ㇠+æ:§y —Ç¢l†Ÿà¼^¯ÇíöG#OðVþ‡—˨)gÅû6±Ë±ïò;À v·Éíps‹ã“àîé¤áÚ³$þa4ô%Ÿ +›/x™WÐʘ©xŸÖ:M.£ +tH†® +`1S`Ÿ„š3~_hŸðë@£ú·R±P æa‚CLª÷©ÐôÆ#ç„LïU<“3t>щ`ón6ߨ0(ì\Þhûåùç§ðœ0ã˜&Êh³ëÕH¤Ü[Úà¨2¡þÎtòâéŸàèé†Ô'T|ªªÞɍåucfìµ³äùÛ< +þ?l +,¡›´Ëð;~húgìWǍB›–;ÚtQyŽ:©¡p:1¹ +^4‰a˜ÀhÕ­×5Æ8Œ”'àëâ*VÍ©ÅÕg‘ +‰ú—Ÿ-ì·êTЂZcºÌÀ¡ÞáSu‡wR«@RÙÑj¸²') +:Ð4ëd­uú­\@sÀà–ÒÃ0ɞ‡©á『Àv´Ð +k£¥ÑTe7T³K„–¦ÉªNªÃQ +GFÀ:3Œíïó0þÈïþö˜“ ÍØ9&µñ + +½GbÑA*s勑¡êMGc +\üù.0ƒÓa£õچ*9hAÖô7õ·†­Ü½PíðÐaQ¼~··ç÷ס“óÜgIÓ§õÝ +¬rצí;ªÊææښ=›Áˆ,Œ½“ +‚ÇÇøOÝö +9)Œµ§{ÕišÓ¸oàYA‹×"2Óâ´7¬^kl„VÐ2ʐÖßh˜œvÊoNgׄÃa¬JóYIøjZîâdÞÔ@Þ4wÞôÁi¦güyyøÛYÿ†ÿ + +endstream +endobj +281 0 obj +[603.4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 419.8 419.8 0 0 0 367.3 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 734.6 0 696.3 0 794.1 0 395.7 0 0 0 0 0 +787 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 524.7 472.2 472.2 524.7 472.2 314.8 472.2 524.7 +314.8 0 0 262.3 839.5 577.2 524.7 524.7 472.2 432.9 419.8 341.1 550.9 0 682.1 473.8] +endobj +282 0 obj +<> +stream +xÚÅWiP[W––,"?;gS,wl=â}‰'ž8N⤼·1^Àq¼€e‹E,!„@  +-í  @@Ùƒq¼/ïvì™Nœ8‰'݉3Ýc×T&WÌ¥fæ +è¤Ó՝îTwUÿàV¡ºï½ï|ß9ç;‡É +b0™ÌomÚ³qKäòȨ˜Ík?¬`Ӝ ÂQåcþçþ9LÿÜ)~ +Ë?+ˆ÷Ŗ ÿ +ž2—Á`®}2p2f’“ñõóyr<½ê)F“I‰ +ô/ +ED¼™™%¥ +ä†.IXºr͚Õ/„¾±&ô-a’(%ŸÅÏ$ ù¹äŸôÐ]™ )I¹ÒÐ%¯ +rs³^ +—H$a|aNX¦èðK_•¤ä +Bw&å$‰ò’C7dfä†nã +“BDZ‡Ÿ‘™Â,qn’(4*31I”AP>>ƒ±„¹‚ÉXÏØÈØ̈fð©ôi&ƒ‘Á˜Æ˜Îa,`,b,a,cD0Þ&·Ö‘{ÈÍMäîFcyb;cc'c#†ËØÍØÃx—AO!á1Ì=Ì.æo¦¤°bƒ¸Aê Ï +“°ÙláTzª‰ZA]š¦š>gºéqsð–à†‰!A!ê™ÔLÅaOüï“ý~]ˆÿ!æ{]ßñúŸõ¡°Ü^¦èž?ø2kô¹Ñ•œ2“ÑFªR2^[ +Ci¾:ËìÖäP¶áÌÇ6˜‘ Ùxvþ"îFvA HåpїؑcÓK¢õÚÂèÙ*¡ü +è@ +E®Î +“¬T¬R*Î*HŽï÷ò +À Zބ掠›\$a¯Ã=`(•Báì}íÏòŽ§×î®éª:&ªRZ^!´Úü‚ÍÒwRÊW»¼4”›ê-u¢8^4×\UÞd«wŸü +*¡ÛÐ\(QåC +%q×ðÀé2Û¨2v<^ÿXˆ56zþgg + +Ÿf¡v¬ä€IoÒÚdõ{îZ×[üËÑ$·ÛŒF°P&½]ÁS +_†·¾ŠÃ +x%`&l+òìlŒ +ˆrU eô½÷ËÓ,ÿl +t×2nç^ª¶jÊÕfÈ×% +â'Ï+-šà¦£ +h0€†póÜXW•ªVnJ¬©®LQE÷ +5õöõ÷Ï#ª×5 +lÌ`4; ]-âÖѕ-L´ì7~ñç¬Ñ! +/GLü ÎÃ+ö¤aJž.xeoj +LÀA +wûQ¬ÛHð˟÷ˆ£­RZ5°^¯Vî|ûUñ ÞMï¾JCÝÃÎËï<Ù‚´×£zwb|©>‰PF³ÖVë« + +:س?ƒŸÅóð—N¯}Èû +þýD÷Ôԏ: Èå@ÈUeƟ +YC +®h'–pÿi:¡4/ZM˜¡n!C +’æõ¯pÊÞé¼ÙR~<Ô`RßÆ +xÙ +¼]Úüùd´†½Š렁t ×eÊêå +C«þÓäjÀ#.À/Á:]#NìþÈ/ýއѭ{,Ôé_ÀùŒívLÔý:»ö¿í]¦êŠÁŠc +$À%;¬Ð¥“8\}³»kð€'‘·RøjE¶ h +ÄxêÝyý£øW —n˜­Î*Šýiw +@˼è™ +ÚäõÏ!t•RQ–æ7dûö¥8óðÒÐ+û†é^èªomÉ[Í-Þ[*IKÉLK/@:d[äfS™× ïQžBG¾TX”Äï—}ÂCl¸sË}ÊGûˆTQoKu›H5ô +b¹{Z¯õtuÉþ²–¸¨A§Wý8¹¾ +v^ùÛ*j¢g-»ÍÕ7¸€¼–G8ðÚZ+‚±¢Ïq´ê”½ÃÑW×ÝÚZ]ÝÖv¨îòÔ4v +ÄÓ +âŠSõ2ZÄvgö}Ó +Û*'G§ÉS +Î|•WÉ˚ih¬fÇmHÛ»?ð&ÞíC/Lвç&ë·øiŽ*M­MJIF³R£ÊA7ùL-mí¾ày–Éùb?ØÊipô£U–:ORkAP“>¹èw±#‘ônHJNK/:_•ùs‚¼œÇ±·zê=G|-¶j ÎšÞ”ÓðN:¦$ñ¢Ø¸}|ÒD + +rOa£®tEc™½Ì4Þ6¿`Ü÷À6YLd®6êyJóS‹|™Gm“E +n1^28ö +}Ž +X­ OÇOh¥E1ýVUL¢ÖC‰“>ÒajkïlûÓ¨'¦* +²p”‚­o¥÷ª†[ihASÏ4œô)ZуByТh’x²›r-qåBÛa +¥j\·îóZ¡³¸B@šðƒ’ñõ7’lldõE5Är¿˜°\²ùÒ¯±IM8Ýìq§Ë‚±¶ Gp_žpU2ÓÿÑêç;pñÑY´°Â! +5Iåe®çÇ +K +Œ=ß·<ÿÐdÙ¬¼R>Âò×ùŸšpT +USTQÈKUº^¹÷rÕY‡¶FµG{ŠôËÓ +7Ú¿.o0; î¯÷yQ‰PÏT +‚xjé-É1^?tÕ¶÷UÇwÊÚ~ÎÜ2úÆ$دÚF¾¼‚ÒO’ÝEr +¥êLD%ÉÏ*ÈÉ/ 7Ý4 +VŸìù®¢É\ñ7ãŒÃ3 @ +ޗ +çõB[]ÓÑ昋*üz¯× +ó}Ø +æÁ9ê\V•,/+OÄ +±Ô®$¦-†ý˜ŠY +)EiÑہڪ©§á=[‹­¹Ep-õÝd´gUR•:ƒ/œˆçÌ=4Lrÿ¿Ð +Žûz{[;x FeӈTÅÈÿ!õ6ì#CUê¡"‘ä8¿&¨1xVn +z|orÖß9ùþPmÕ©œÏ•Çð +nÁa2éVYN ½vG=¸Ç¬ +‘$5Ÿ÷>´u»š]‰]Ùǀúö +ší È@ÖW­> +stream +xڕW PTWÖ~Æ~ODÜòF̘÷pGƒŠ:&¨(£Žûƒˆ‚ 6b݀-‹È& Ý}š¦E@ö½iÀQDPÄ +EDã’hPŒëàKòk¼\Rõ_0fjêŸIÍ_Ýuª^Õ}ç;ß9ç~ç<š²´¤hš¶^¶võ*åŸÎ_±Æ©çyú6¬ÿå\מ>âŸ)q8-~b!òq¨å'E;ê±ôb©{{ìbœ +LYÒ4« +Ortœ6ÉÑqê|ePDÈöm~*;û-ãí¦Ì˜ñ¹ƒÝTGÇvse!Û·ø(ìVø¨üd>*ò`çªÜ²]¦Š°³wöS©‚fNž +6É'pÇ$eȶ9ã +춫üìÖÈvÈBBe[í**»•>2»ž'õ˜ùÊÀ *YˆÝ +åVYˆ‚Ä8ÈQòåDÏ£QK¨ô*j +µ +’Q~t +D +X„‘àQƒ©!ÔGÔPjõ15ŠMÙS¨IÔdj +5ú +5šGýZH<,¥VR_P«)Wj-õ%åNñMYR±ÔEz}ÞbƒÅ3I°ä¹¥·ewŸE}îI×K›™Xv›ÙwxßÝ}X¹Y•÷sí×b½Øº²ÿúþy6óEµh +5uY™è£¨¸S"F¡o8x{E~yÓßg­<<'F)·ÍÓØÃ:X¢Û8ëøÜ[ág  +e7½ªùFß WX¬ÂW¸í°0'ômìyx§á:ÜÈ8WøӝôR¨‚ë» + +¬ +¿Â"XSb\CG.Œ’K°Á, +4×Ð(¦C‚®v +âÊ4º ~ó· +Àʙ28 +ÊØîtÆW +ãÀûÉ¥Gõ ¡á1 +µ +möc +Ôj„ +7÷Ðë·/Íô™·Hõ\‚ª‘7—“]gÎɺt¾å +üƒEýÆÝƃ°µ³ãT# Y +•Ù‡O¯‡¾üæÕғÀ~ßèü¹£æ¹`+ÜƲ‰ +„°¢ -G‹úHÕañëcÂã] X¼Pړ¶Š›H‚ÿÏ#}ë'´ùíC¹Ž¦Õ#ñ ¿ùº „oßöPi±ù ªØ?H¹k‹ÃO+ +ûþékî/iSÔaj¹wÙ»SΏ²›¹ÚÅ·4ÒXYPTÎCÖN]ݹÛú<`íñ£X ð‰Š + +PiV& +kãµÍF¥A.߈8ÌôÝÓZ#]ÿ¥<“ +=àà~êÍC­M§Ž¶A +Wûyi’¶C,X¼«$¯<ãðE¯“S°€G`[ +€KÐàÅ/øF8Ùp¬öHU +[˜Œ‡bîÅDԇÿŽ5”œbñNj8OPî¬QՐ+q +Z ®ìh顃'à*”/Ñï-ôÐ͆0ÖÙÛa*oӕfÔjBUfˆ +¼4v¹pò"ævr¬¯ÐÇøjbçð;境ñ/ÿþ\€ïætàAYˆ.nû +®±ãîây솯r(©JN=Î#AúªaΪE_ÌÁRÓ¸“óÔ¤V ¨mb^œŸížbñ_uñº„,`s!5Ÿ Þ +5£H³(ô¯*érG +\mŠáofÜÕJXã=¶Z–W3Ïõ1¾Â2Â`³›b½Òb€ +ƒ_B +¨-»ðTx +Èr^)ž¡‹Ó%~@1Ì¿²ð>¾¤n +a±Ïîe±9a'´U¸ +Šk[ò”Uòt`@F6ÁD{~%uóT‚âÄWÜa}z_b–ÎRk`Á +Ì"q•0 +ú8YOadê8g~‡\zWŸ +7n$Ã]¢?;guúaÁæïß\M¨Ïܓ Ô.{.¾@«W’HœåEÒ÷ōg‚aÃX^Î4èO€Ñxˆ +f,4ÑÄètÈЍ÷E§ÄfÁ°L0 +0 +@û»$¶:mŸîKÚBÚAÐ[[“¡ƒ¼º“™£É¨Ä<¦&9ã6_dƳ¥A Q'DàÝݗmmº} X%.©’ ¤.G.6K« +#Q͒›¤y° +4FµN +álwöD—ʈ +º_¥Å$«ÓaX.¤ç bc„ÆI½Ô!8x#x‘l1?†`¡Û +±éò%}~°µøq¨ˆc<ºÂ¡¥R4õëxûrD' +-tK~OÎï/}H(^¼˜ +ÿIQ²8Tð¾ÝßH‘ +`Úk` +ìBZ¬(Ԕ`F&tÂ<¸«õÍëŠ!Ñ¢}ÏÝ)øá<î:¶¨b1“ÃáhŸŒºŒ}šî bö ²<KfmIzð1¹•*è–6ô²M‚¢Äéܲ썧 •½z¡í1æB1þÌ KŽÕ%d›ÓÛòîï[>¾§Ò±~®¶ëÏ-Ë^KJÚoڔ1¸ +óÉ?´Í +¨GaÙj³_zlévð`ºÅÅ€¥g‘ %¾¢€„øp¯c"!.“ߺäÔô”})i¦º6×[сEƒ +¼z'Àã5cJX¢!¤¡ÞÕÒèIÏEîrâ~å¥a8¬O¥4 +Í..E!*a¿&?IGfgw.ãQ£x™\Z£G +;FL +ɳŒYՂ˜Ë@1 +(LIK.'o’׋C²ðl¶²g¸Æ™PH™ù©ÑD×ßCŠö›•Ñ â^:49:Íõ_Xa4å”ñP²;w§¡¦ô,¤Ûܼu†À¬V/V/PL“íZ +rvúÁ×ù›Ðp´¨Ö 3ÊêM˜òá\ÀZfóîÈP_8žÁ»œâ&ÌÞ²nSu#_]º† + +ddÄU¢ÃOò+éêNä÷L"ZŠ#8åž$Ä°Aùa&ca^Å¥E±0Kp?<ä=ŒFT#«¢AM4i¯V +—ªt +슩È +¾uö¦g :â7ÿ[ŒÈÉDWt¢Ôkq + +çŠöAq§ÇÏd,œ0Ä +¢Æ·CšÞ§¨Ó£‰k4‰Û&LWG™ëYx<ð8\† +VgäҐÝÒ@}!Ð©ÄcR°&$«§QßvØ.w¡fîììH~xºFø³ZôLŠÇÇö‘3×ö'xݙŒW +,#2pL_eåup¬G–Å@ƒ€–0oïžlmÍö^Îãˆÿ|Î5Xª +Y# ¬nJÐ:±›+W•ÉÁ*¿òPcua¹‘ÇðJNÎ\NKôpîwGô͐yª{Ü-M2 +DŠ±ù¥o/‘^Šž¿¤«ˆùÎï<¦ùÉ๋ÎJ(:½ß_ö‚"#5Ú={Ô %+{bJd†"Ëè¡]€ËÖ×(ôêÚÀ⤫1'ö܎‚EìÖ`ÏÉüXP܉>“”©5Ä|PÁïUpètyùCF¦Áаù„Æؓ¸ú›_ Ш¸ûÅ'»¦'A@êÆB¨e+ŠêžóÈ +3’•ºøTuêo"m#N‰«û›‘ù²±hGÃ+%h¥8’CãÍx> +stream +xÚ]P±nƒ0Ýý7¦ª*ÀQ£)‚  *MUȐÑصl˘¿/6(C‡;éîÞ{z**% +DßVó +tR ‹£ž,Gh±—Š$„än›Bç3$Ê/Ì|±!úl®çcñš_êûÇÛ­)“ìVD3ºÍUQϣáR†4%ÑÏ"8:;Ãî(t‹/~wµ­T=ìny +6õdÌTb’eA.Y-q-p4Œ£eªG’ÆqiYf•øw£+£íø/³ +ò´ éû鐑tïY4ÞÓÀÛ^ÁG}&哵‹‡ðÎ‘ +Ÿ/3ÚxV¨? +¬o + +endstream +endobj +286 0 obj +[531.3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 288.2] +endobj +287 0 obj +<> +stream +xÚcd`aa`ddäõñ÷ptÑvö +Ž´ Øæþó—aYøs>ëY†rŒ?ä™~(0ÿg‘{èÅòŸ‡I–‘EH2üç‘?@¤:Hx²##·€xKçŒü‚Ô¼¤ÒœœÔ’‚¢ÌÜTc=#çü‚Ê¢ÌôŒdMCKKs +#KÇÜÔ¢ÌäÄ<ßĒŒÔÜÄ 'G!8?93µ¤RAÃ&£¤¤ÀJ_¿¼¼\/1·X/¿(ÝNSG¡<³$C!(µ8µ¨,5EÁ-?¯DÁ/17Uì=0霟[PZ’Z¤à›Ÿ’Z”t%ƒjgì``fddqïüÑÁ÷cù¶ß¯íd<¶óû•Ì?²¿÷‰~g×þ›í7›¾þoößìÏõ¿³}g{þü;»Üï¤ß¦¢F.—ž>½téɓK.††..Fò|ß·lYð£p>ãªïíÌßçþȝ0£R÷TŽ5¹ +ó咻2Úk +ÿq–h¯ïîèîênšØ9µcnsowow_÷ÄîIs8øŠÿ´_Àö[n:» +ó4Õÿ<œ“x¸zx¸wríäÞ9—‡ˆy¿?*P Â +endstream +endobj +288 0 obj +[611.1] +endobj +289 0 obj +<> +stream +xÚcd`aa`ddä Ž +q +‹Ðvö +2ñÍÊ÷É°¬üÙÄúCšá‡ +ãY¦rÌ?ÄYdž +‚ÈGü òžˆTŒ¦B +,ŒŒ +%íÆzFÎù•E™é% +ɚ +†––æ: +F– +Ž¹©E™É‰y +¾‰%©¹‰%@NŽBp~rfjI¥‚†MFII•¾~yy¹^bn±^~Qº¦ŽByfI†BPjqjQYjŠ‚[~^‰‚_bnªÈÍz Â9?· ´$µHÁ7?%µ(è$FC ã„˜Y¼tðýøÞ½éÇüMÛç3~_úùûïŸü¢+Û»så<½U»Ó»9RؗvŸí>¾œãO/{VwŠ\B +Û¡þ›Ý‡ßì>Ä£²)]¥{Æy¾²?œg}ϟ:yÛïÄi웸îq¯žÄÃso¯ +‹ù| +Î&"z°rŽ +endstream +endobj +290 0 obj +[795.8] +endobj +291 0 obj +<> +stream +xÚcd`aa`ddäõt + +s×vöõõ´ Øÿîûõêgëi†2Œ?d™~È1ÿg‘{èÅòŸ‡I–á ˆ|Í"Ÿ +€Hu ÁØ+ÄÀÂÈÈQZÕi``¬g``äœ_PY”™žQ¢ ‘¬©`hii®£`d``©à˜›Z”™œ˜§à›X’‘š›Xää(ç'g¦–T*hØd””Xé뗗—ë%æëå¥Ûiê(”g–d(¥§•¥¦(¸åç•(ø%æ¦*€®&ós +JKR‹|óSR‹ò€Žbt:O‰‰‘‘e֏¾Ÿë»×|ZóÃi>ãwßïÜ¢±NIé +]õ]ÝU + +½ +Óå¦Lì»x~Ñ +¥ ³ºçͨëi“/ë)›Ü½°{ÖäóVœÿÎ$ñ}ۂ߶¬µ•515uÝ]=u³å¦voìÒÃqŠíi÷œŽÉÝ +ý³»çͬ뮖éîšÒ±ÄæÇ?‰Ž +]“ªº+»[[9~×ÿqýžüýîÖßwYùÊüpž:mÚ÷‚l¿¦²Ëq±˜ÏçáœÄÃÕÃýšë&÷ò~ +žïE¾¢e +endstream +endobj +292 0 obj +[272 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 812.6 568.1 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 461.2] +endobj +293 0 obj +<> +stream +xÚ-oLuÇïÚÒýd琬Äíî^,qS„_,àÔ-$ơ쏺è¦NŠPZK¡€µWhéÝsWJ×»ki +ÓñGç’cÆ4“e&še‰É|1_-{e4¿ƒ{¡GðÍ÷ùóâû|ŸI˜LI’eOŸ½ôÖK +MM§ÕîlNôh‰me+R¢>O¨IõA¥ŒêµÙhú×b8D„öìŽþõ̎>Þ·£/èb¼¿Ÿ0‘$›í•j›­¶Áåxº: +^æHûQæX]Ýñ*¦Öf«cN9YOW»½—i²{ +¬ÓîՇ +æ=W{ë +0GN8¼^w}MÏ競;ûª]žÎ׏V1¾.¯ƒy—íc=ló¦«×˜±;Yf7{õnip9Ýý^ÖÃ4¹:XO/AÆW‰É>=äÓD +QO¼O”’0ï-†:Ã]5^†ç´ +|ò ‰òFüÁXņµ­{ðóþþi÷×Ô$(ãé´$‰ ’`8FÃgÑÆóáðÀ£X2–¼òû¼‡*Ûºó[%óäµ­ŒªK}±âe욜[ψ•Š˜U"¥ƒàダΛÏ@‹$áÀÏ¥a’Þ€qNîÃ{µE«æԆ:;ZÙSc•!a €ââ¨BMÁ´4è;óÜà¥2“GÅ(í“.+p²™ÌüŸO¬ÅÙ;Åâߚ`ùqˆôºy + +N†$ +¼”„ +æ +Ìðz—R`Fæ BŸùdð¦fÅw­¸ +”åÙki¹ruíÖòIY”²HbŒ†!~Ð'ænpH=€FCàRÂ}•ÏŽ€_à­Â(Ï +C¨L½·‹ä«­f£úHýµbvöÛµ›ÊD¥"¦EÝO¿ËS!¸Ì‡µ™{¡Gré~aðGd!A/ð0Q +ù¼ZDûª•àŸ¢S TYX–2r;X©ÿ±jFsüRp×Bç:MéHڋ÷i›V1žC +◴‹qnÄÍÅÞPPÏË) sPft*¥:•ŸÛÅ«ŒB° R + +©+KÉü7ø°u¢RZÖ?³sù‡¸æ—õüþۏbë¸úvóoåÛ؏?®ÈÆ¿ŒN“ckƒðêqÕkˆ€“ ߏ·bùE(¢Â°âëï +6ŸûùӇ¸j +›Ö)˜†ëÝKž¹¾ä•ÿãžhMÃÊçî?¦V`yPîD-<+ +ÌDÓSו•võ5í€ãp]¾ +o<œ¡²‚Ú + +vÌZ«¼‡*5 +Ï[žJYJEËÞb齽Ŕł7ŸûX +¿Û +endstream +endobj +294 0 obj +[875 875 0 0 0 0 0 0 0 0 0 0 0 0 0 0 875 875 875 875] +endobj +295 0 obj +<> +stream +xÚ}PKLQGK;֊¬`RÛAH +Hʀ‰X0FӀ.¬?0qâК´2 +-¥@(RÚΛ‚E ò1”$²0F&• +‰M\?1aç‚1&oÊ«Ñ>•‹wÞ¹'7çž{¡V€¼› +×ë +·ÎÚ +u÷*iE©î4þösŸf +åJE„tHÅ9R‰J*PŸ"`?ªàùà +ÒGd$L2¨Ê:ô +Å5õŽWo>ú +ãó0­<ïߢœ»­}—+r3¿'ïpEfº÷d¦›¦ÏYiºÊÎúC[ +UÚRFUÚlÕåTMÛ¨+^†s·8}”ÃÉ·3^'/ +ªmq3|ˆ*½¨L¬©¨ƒV§·ÓÊrm—ÊÊ© ›o§î0 +`\T=ëã©N/Cm_ÀºýÙY¯¿‹g8ÊÁºÎ'/›CƒË*Ä@ +$€  m5á$V@ƒ'à³ÏËü5fN¤šŸs½D*•¤“kÃ| +N™“™Ûߥ¯è—Ô76“0IN +Á°) +0‘ˆÅq>¶Xp.ijðjk–ˆ{Øq„tiŁLCr¿¹äQÌ¿3× +PB MÏÆUÄaêǵ¨¹÷qìA,™1 +ÉÞû0bVÆ< +¡lϗìºøÇFö¥à¼é­& +SPœÜö.Ú +}Z1` +r˜EàÍ%ËÌ!îGµ¸y:4:<šH +¢0ə18aV–ŠŽã5©ùŒôZÈ +“SQØeÚ３ú¹A˜ŒÂ$5]QØg†% +ìÀÉ»Ù)|ob¿T“‘‡pÚ4£'GGP>²l &Tˆf Õg1²”F.ˆ"JúìzZZÝ=º¥Ç° ˆ~S£Æ/ +æì{m‡(,ÊÛ.Šâ‚y¯{'Ïÿ»ƒs#Íi—uË_Œéõò;dÒ©C¬þZ;þ‰Yl +endstream +endobj +4 0 obj +<> +endobj +296 0 obj +<> +endobj +5 0 obj +<> +endobj +297 0 obj +<> +endobj +6 0 obj +<> +endobj +298 0 obj +<> +endobj +7 0 obj +<> +endobj +299 0 obj +<> +endobj +8 0 obj +<> +endobj +300 0 obj +<> +endobj +12 0 obj +<> +endobj +301 0 obj +<> +endobj +16 0 obj +<> +endobj +302 0 obj +<> +endobj +17 0 obj +<> +endobj +303 0 obj +<> +endobj +18 0 obj +<> +endobj +304 0 obj +<> +endobj +25 0 obj +<> +endobj +305 0 obj +<> +endobj +35 0 obj +<> +endobj +306 0 obj +<> +endobj +42 0 obj +<> +endobj +307 0 obj +<> +endobj +43 0 obj +<> +endobj +308 0 obj +<> +endobj +44 0 obj +<> +endobj +309 0 obj +<> +endobj +51 0 obj +<> +endobj +310 0 obj +<> +endobj +52 0 obj +<> +endobj +311 0 obj +<> +endobj +53 0 obj +<> +endobj +312 0 obj +<> +endobj +60 0 obj +<> +endobj +313 0 obj +<> +endobj +64 0 obj +<> +endobj +314 0 obj +<> +endobj +95 0 obj +<> +endobj +315 0 obj +<> +endobj +xref +0 316 +0000000000 65535 f +0000450625 00000 n +0000450491 00000 n +0000445661 00000 n +0000522847 00000 n +0000523164 00000 n +0000523481 00000 n +0000523789 00000 n +0000524115 00000 n +0000000015 00000 n +0000000522 00000 n +0000445739 00000 n +0000524424 00000 n +0000000637 00000 n +0000001496 00000 n +0000445894 00000 n +0000524753 00000 n +0000525070 00000 n +0000525388 00000 n +0000001594 00000 n +0000002890 00000 n +0000445974 00000 n +0000003010 00000 n +0000003168 00000 n +0000446130 00000 n +0000525724 00000 n +0000003247 00000 n +0000004963 00000 n +0000446210 00000 n +0000005071 00000 n +0000005435 00000 n +0000446366 00000 n +0000005524 00000 n +0000008531 00000 n +0000446446 00000 n +0000526042 00000 n +0000008650 00000 n +0000011854 00000 n +0000446526 00000 n +0000011994 00000 n +0000014284 00000 n +0000446783 00000 n +0000526369 00000 n +0000526677 00000 n +0000527011 00000 n +0000014425 00000 n +0000017135 00000 n +0000446863 00000 n +0000017299 00000 n +0000020421 00000 n +0000447019 00000 n +0000527327 00000 n +0000527635 00000 n +0000527963 00000 n +0000020552 00000 n +0000023307 00000 n +0000447099 00000 n +0000023502 00000 n +0000026393 00000 n +0000447179 00000 n +0000528270 00000 n +0000026566 00000 n +0000029156 00000 n +0000447342 00000 n +0000528585 00000 n +0000029327 00000 n +0000031391 00000 n +0000447422 00000 n +0000031542 00000 n +0000033879 00000 n +0000447578 00000 n +0000034052 00000 n +0000035806 00000 n +0000447658 00000 n +0000035948 00000 n +0000037725 00000 n +0000447738 00000 n +0000037876 00000 n +0000039626 00000 n +0000447996 00000 n +0000039776 00000 n +0000042408 00000 n +0000448076 00000 n +0000042581 00000 n +0000045186 00000 n +0000448232 00000 n +0000045327 00000 n +0000047108 00000 n +0000448312 00000 n +0000047259 00000 n +0000048117 00000 n +0000448468 00000 n +0000048215 00000 n +0000049424 00000 n +0000448548 00000 n +0000528903 00000 n +0000049531 00000 n +0000050976 00000 n +0000448704 00000 n +0000051138 00000 n +0000052352 00000 n +0000448785 00000 n +0000052517 00000 n +0000054037 00000 n +0000448868 00000 n +0000054178 00000 n +0000055722 00000 n +0000449130 00000 n +0000055885 00000 n +0000057070 00000 n +0000449213 00000 n +0000057235 00000 n +0000058520 00000 n +0000449374 00000 n +0000058672 00000 n +0000060415 00000 n +0000449457 00000 n +0000060590 00000 n +0000062935 00000 n +0000449540 00000 n +0000063056 00000 n +0000063546 00000 n +0000449709 00000 n +0000063648 00000 n +0000063802 00000 n +0000449792 00000 n +0000445639 00000 n +0000063883 00000 n +0000077512 00000 n +0000077549 00000 n +0000077583 00000 n +0000077626 00000 n +0000077659 00000 n +0000100233 00000 n +0000100456 00000 n +0000100796 00000 n +0000101218 00000 n +0000107827 00000 n +0000108024 00000 n +0000108210 00000 n +0000120210 00000 n +0000120438 00000 n +0000120737 00000 n +0000121110 00000 n +0000156662 00000 n +0000156870 00000 n +0000157195 00000 n +0000157723 00000 n +0000157793 00000 n +0000166987 00000 n +0000167122 00000 n +0000449953 00000 n +0000445617 00000 n +0000167208 00000 n +0000180837 00000 n +0000180874 00000 n +0000180908 00000 n +0000180951 00000 n +0000180984 00000 n +0000209603 00000 n +0000209823 00000 n +0000210170 00000 n +0000210592 00000 n +0000226208 00000 n +0000226436 00000 n +0000226763 00000 n +0000227152 00000 n +0000231776 00000 n +0000231973 00000 n +0000232132 00000 n +0000250174 00000 n +0000250402 00000 n +0000250727 00000 n +0000251119 00000 n +0000251189 00000 n +0000258620 00000 n +0000258755 00000 n +0000450036 00000 n +0000445595 00000 n +0000258841 00000 n +0000272470 00000 n +0000272507 00000 n +0000272541 00000 n +0000272584 00000 n +0000272617 00000 n +0000306119 00000 n +0000306339 00000 n +0000306662 00000 n +0000307114 00000 n +0000325190 00000 n +0000325418 00000 n +0000325754 00000 n +0000326159 00000 n +0000332242 00000 n +0000332439 00000 n +0000332618 00000 n +0000350832 00000 n +0000351060 00000 n +0000351379 00000 n +0000351771 00000 n +0000351841 00000 n +0000359021 00000 n +0000359156 00000 n +0000450119 00000 n +0000445573 00000 n +0000359242 00000 n +0000372871 00000 n +0000372908 00000 n +0000372942 00000 n +0000372985 00000 n +0000373018 00000 n +0000402047 00000 n +0000402267 00000 n +0000402625 00000 n +0000403061 00000 n +0000406845 00000 n +0000407041 00000 n +0000407187 00000 n +0000415563 00000 n +0000415791 00000 n +0000416021 00000 n +0000416191 00000 n +0000439611 00000 n +0000439834 00000 n +0000440170 00000 n +0000440598 00000 n +0000440668 00000 n +0000445352 00000 n +0000445487 00000 n +0000450383 00000 n +0000446689 00000 n +0000445819 00000 n +0000446054 00000 n +0000446290 00000 n +0000446606 00000 n +0000447901 00000 n +0000446943 00000 n +0000447259 00000 n +0000447502 00000 n +0000447818 00000 n +0000449036 00000 n +0000448156 00000 n +0000448392 00000 n +0000448628 00000 n +0000448951 00000 n +0000450288 00000 n +0000449296 00000 n +0000449623 00000 n +0000449875 00000 n +0000450202 00000 n +0000450672 00000 n +0000451056 00000 n +0000456647 00000 n +0000456820 00000 n +0000459177 00000 n +0000459394 00000 n +0000461965 00000 n +0000462373 00000 n +0000462941 00000 n +0000471560 00000 n +0000471885 00000 n +0000478060 00000 n +0000478379 00000 n +0000478443 00000 n +0000479125 00000 n +0000479464 00000 n +0000485477 00000 n +0000485801 00000 n +0000490458 00000 n +0000490885 00000 n +0000491230 00000 n +0000495326 00000 n +0000495815 00000 n +0000503737 00000 n +0000504040 00000 n +0000504065 00000 n +0000504495 00000 n +0000504773 00000 n +0000508297 00000 n +0000508661 00000 n +0000508950 00000 n +0000511024 00000 n +0000511377 00000 n +0000515077 00000 n +0000515356 00000 n +0000518859 00000 n +0000519172 00000 n +0000519269 00000 n +0000519794 00000 n +0000519819 00000 n +0000520247 00000 n +0000520272 00000 n +0000520792 00000 n +0000520939 00000 n +0000521990 00000 n +0000522061 00000 n +0000522978 00000 n +0000523295 00000 n +0000523611 00000 n +0000523936 00000 n +0000524246 00000 n +0000524572 00000 n +0000524885 00000 n +0000525202 00000 n +0000525538 00000 n +0000525856 00000 n +0000526190 00000 n +0000526499 00000 n +0000526826 00000 n +0000527142 00000 n +0000527457 00000 n +0000527783 00000 n +0000528092 00000 n +0000528400 00000 n +0000528717 00000 n +0000529034 00000 n +trailer +<<051d9570f3f76ebf301c136c6ab7a951>]/Size +316>> +startxref +529208 +%%EOF Index: /trunk/FACT++/sofa/doc/sofa_vml.lis =================================================================== --- /trunk/FACT++/sofa/doc/sofa_vml.lis (revision 18346) +++ /trunk/FACT++/sofa/doc/sofa_vml.lis (revision 18346) @@ -0,0 +1,307 @@ +sofa_vml.lis 2013 October 8 + + -------------------------- + SOFA Vector/Matrix Library + -------------------------- + +PREFACE + +The routines described here comprise the SOFA vector/matrix library. +Their general appearance and coding style conforms to conventions +agreed by the SOFA Board, and their functions, names and algorithms have +been ratified by the Board. Procedures for soliciting and agreeing +additions to the library are still evolving. + + +PROGRAMMING LANGUAGES + +The SOFA routines are available in two programming languages at present: +Fortran 77 and ANSI C. + +There is a one-to-one relationship between the two language versions. +The naming convention is such that a SOFA routine referred to +generically as "EXAMPL" exists as a Fortran subprogram iau_EXAMPL and a +C function iauExampl. The calls for the two versions are very similar, +with the same arguments in the same order. In a few cases, the C +equivalent of a Fortran SUBROUTINE subprogram uses a return value rather +than an argument. + + +GENERAL PRINCIPLES + +The library consists mostly of routines which operate on ordinary +Cartesian vectors (x,y,z) and 3x3 rotation matrices. However, there is +also support for vectors which represent velocity as well as position +and vectors which represent rotation instead of position. The vectors +which represent both position and velocity may be considered still to +have dimensions (3), but to comprise elements each of which is two +numbers, representing the value itself and the time derivative. Thus: + +* "Position" or "p" vectors (or just plain 3-vectors) have dimension + (3) in Fortran and [3] in C. + +* "Position/velocity" or "pv" vectors have dimensions (3,2) in Fortran + and [2][3] in C. + +* "Rotation" or "r" matrices have dimensions (3,3) in Fortran and [3][3] + in C. When used for rotation, they are "orthogonal"; the inverse of + such a matrix is equal to the transpose. Most of the routines in + this library do not assume that r-matrices are necessarily orthogonal + and in fact work on any 3x3 matrix. + +* "Rotation" or "r" vectors have dimensions (3) in Fortran and [3] in C. + Such vectors are a combination of the Euler axis and angle and are + convertible to and from r-matrices. The direction is the axis of + rotation and the magnitude is the angle of rotation, in radians. + Because the amount of rotation can be scaled up and down simply by + multiplying the vector by a scalar, r-vectors are useful for + representing spins about an axis which is fixed. + +* The above rules mean that in terms of memory address, the three + velocity components of a pv-vector follow the three position + components. Application code is permitted to exploit this and all + other knowledge of the internal layouts: that x, y and z appear in + that order and are in a right-handed Cartesian coordinate system etc. + For example, the cp function (copy a p-vector) can be used to copy + the velocity component of a pv-vector (indeed, this is how the + CPV routine is coded). + +* The routines provided do not completely fill the range of operations + that link all the various vector and matrix options, but are confined + to functions that are required by other parts of the SOFA software or + which are likely to prove useful. + +In addition to the vector/matrix routines, the library contains some +routines related to spherical angles, including conversions to and +from sexagesimal format. + +Using the library requires knowledge of vector/matrix methods, spherical +trigonometry, and methods of attitude representation. These topics are +covered in many textbooks, including "Spacecraft Attitude Determination +and Control", James R. Wertz (ed.), Astrophysics and Space Science +Library, Vol. 73, D. Reidel Publishing Company, 1986. + + +OPERATIONS INVOLVING P-VECTORS AND R-MATRICES + + Initialize + + ZP zero p-vector + ZR initialize r-matrix to null + IR initialize r-matrix to identity + + Copy/extend/extract + + CP copy p-vector + CR copy r-matrix + + Build rotations + + RX rotate r-matrix about x + RY rotate r-matrix about y + RZ rotate r-matrix about z + + Spherical/Cartesian conversions + + S2C spherical to unit vector + C2S unit vector to spherical + S2P spherical to p-vector + P2S p-vector to spherical + + Operations on vectors + + PPP p-vector plus p-vector + PMP p-vector minus p-vector + PPSP p-vector plus scaled p-vector + PDP inner (=scalar=dot) product of two p-vectors + PXP outer (=vector=cross) product of two p-vectors + PM modulus of p-vector + PN normalize p-vector returning modulus + SXP multiply p-vector by scalar + + Operations on matrices + + RXR r-matrix multiply + TR transpose r-matrix + + Matrix-vector products + + RXP product of r-matrix and p-vector + TRXP product of transpose of r-matrix and p-vector + + Separation and position-angle + + SEPP angular separation from p-vectors + SEPS angular separation from spherical coordinates + PAP position-angle from p-vectors + PAS position-angle from spherical coordinates + + Rotation vectors + + RV2M r-vector to r-matrix + RM2V r-matrix to r-vector + + +OPERATIONS INVOLVING PV-VECTORS + + Initialize + + ZPV zero pv-vector + + Copy/extend/extract + + CPV copy pv-vector + P2PV append zero velocity to p-vector + PV2P discard velocity component of pv-vector + + Spherical/Cartesian conversions + + S2PV spherical to pv-vector + PV2S pv-vector to spherical + + Operations on vectors + + PVPPV pv-vector plus pv-vector + PVMPV pv-vector minus pv-vector + PVDPV inner (=scalar=dot) product of two pv-vectors + PVXPV outer (=vector=cross) product of two pv-vectors + PVM modulus of pv-vector + SXPV multiply pv-vector by scalar + S2XPV multiply pv-vector by two scalars + PVU update pv-vector + PVUP update pv-vector discarding velocity + + Matrix-vector products + + RXPV product of r-matrix and pv-vector + TRXPV product of transpose of r-matrix and pv-vector + + +OPERATIONS ON ANGLES + + ANP normalize radians to range 0 to 2pi + ANPM normalize radians to range -pi to +pi + A2TF decompose radians into hours, minutes, seconds + A2AF decompose radians into degrees, arcminutes, arcseconds + AF2A degrees, arcminutes, arcseconds to radians + D2TF decompose days into hours, minutes, seconds + TF2A hours, minutes, seconds to radians + TF2D hours, minutes, seconds to days + + +CALLS: FORTRAN VERSION + + CALL iau_A2AF ( NDP, ANGLE, SIGN, IDMSF ) + CALL iau_A2TF ( NDP, ANGLE, SIGN, IHMSF ) + CALL iau_AF2A ( S, IDEG, IAMIN, ASEC, RAD, J ) + D = iau_ANP ( A ) + D = iau_ANPM ( A ) + CALL iau_C2S ( P, THETA, PHI ) + CALL iau_CP ( P, C ) + CALL iau_CPV ( PV, C ) + CALL iau_CR ( R, C ) + CALL iau_D2TF ( NDP, DAYS, SIGN, IHMSF ) + CALL iau_IR ( R ) + CALL iau_P2PV ( P, PV ) + CALL iau_P2S ( P, THETA, PHI, R ) + CALL iau_PAP ( A, B, THETA ) + CALL iau_PAS ( AL, AP, BL, BP, THETA ) + CALL iau_PDP ( A, B, ADB ) + CALL iau_PM ( P, R ) + CALL iau_PMP ( A, B, AMB ) + CALL iau_PN ( P, R, U ) + CALL iau_PPP ( A, B, APB ) + CALL iau_PPSP ( A, S, B, APSB ) + CALL iau_PV2P ( PV, P ) + CALL iau_PV2S ( PV, THETA, PHI, R, TD, PD, RD ) + CALL iau_PVDPV ( A, B, ADB ) + CALL iau_PVM ( PV, R, S ) + CALL iau_PVMPV ( A, B, AMB ) + CALL iau_PVPPV ( A, B, APB ) + CALL iau_PVU ( DT, PV, UPV ) + CALL iau_PVUP ( DT, PV, P ) + CALL iau_PVXPV ( A, B, AXB ) + CALL iau_PXP ( A, B, AXB ) + CALL iau_RM2V ( R, P ) + CALL iau_RV2M ( P, R ) + CALL iau_RX ( PHI, R ) + CALL iau_RXP ( R, P, RP ) + CALL iau_RXPV ( R, PV, RPV ) + CALL iau_RXR ( A, B, ATB ) + CALL iau_RY ( THETA, R ) + CALL iau_RZ ( PSI, R ) + CALL iau_S2C ( THETA, PHI, C ) + CALL iau_S2P ( THETA, PHI, R, P ) + CALL iau_S2PV ( THETA, PHI, R, TD, PD, RD, PV ) + CALL iau_S2XPV ( S1, S2, PV ) + CALL iau_SEPP ( A, B, S ) + CALL iau_SEPS ( AL, AP, BL, BP, S ) + CALL iau_SXP ( S, P, SP ) + CALL iau_SXPV ( S, PV, SPV ) + CALL iau_TF2A ( S, IHOUR, IMIN, SEC, RAD, J ) + CALL iau_TF2D ( S, IHOUR, IMIN, SEC, DAYS, J ) + CALL iau_TR ( R, RT ) + CALL iau_TRXP ( R, P, TRP ) + CALL iau_TRXPV ( R, PV, TRPV ) + CALL iau_ZP ( P ) + CALL iau_ZPV ( PV ) + CALL iau_ZR ( R ) + + +CALLS: C VERSION + + iauA2af ( ndp, angle, &sign, idmsf ); + iauA2tf ( ndp, angle, &sign, ihmsf ); + i = iauAf2a ( s, ideg, iamin, asec, &rad ); + d = iauAnp ( a ); + d = iauAnpm ( a ); + iauC2s ( p, &theta, &phi ); + iauCp ( p, c ); + iauCpv ( pv, c ); + iauCr ( r, c ); + iauD2tf ( ndp, days, &sign, ihmsf ); + iauIr ( r ); + iauP2pv ( p, pv ); + iauP2s ( p, &theta, &phi, &r ); + d = iauPap ( a, b ); + d = iauPas ( al, ap, bl, bp ); + d = iauPdp ( a, b ); + d = iauPm ( p ); + iauPmp ( a, b, amb ); + iauPn ( p, &r, u ); + iauPpp ( a, b, apb ); + iauPpsp ( a, s, b, apsb ); + iauPv2p ( pv, p ); + iauPv2s ( pv, &theta, &phi, &r, &td, &pd, &rd ); + iauPvdpv ( a, b, adb ); + iauPvm ( pv, &r, &s ); + iauPvmpv ( a, b, amb ); + iauPvppv ( a, b, apb ); + iauPvu ( dt, pv, upv ); + iauPvup ( dt, pv, p ); + iauPvxpv ( a, b, axb ); + iauPxp ( a, b, axb ); + iauRm2v ( r, p ); + iauRv2m ( p, r ); + iauRx ( phi, r ); + iauRxp ( r, p, rp ); + iauRxpv ( r, pv, rpv ); + iauRxr ( a, b, atb ); + iauRy ( theta, r ); + iauRz ( psi, r ); + iauS2c ( theta, phi, c ); + iauS2p ( theta, phi, r, p ); + iauS2pv ( theta, phi, r, td, pd, rd, pV ); + iauS2xpv ( s1, s2, pv ); + d = iauSepp ( a, b ); + d = iauSeps ( al, ap, bl, bp ); + iauSxp ( s, p, sp ); + iauSxpv ( s, pv, spv ); + i = iauTf2a ( s, ihour, imin, sec, &rad ); + i = iauTf2d ( s, ihour, imin, sec, &days ); + iauTr ( r, rt ); + iauTrxp ( r, p, trp ); + iauTrxpv ( r, pv, trpv ); + iauZp ( p ); + iauZpv ( pv ); + iauZr ( r ); Index: /trunk/FACT++/sofa/doc/title.lis =================================================================== --- /trunk/FACT++/sofa/doc/title.lis (revision 18346) +++ /trunk/FACT++/sofa/doc/title.lis (revision 18346) @@ -0,0 +1,58 @@ + + + + + + + + + + + + + + + + + + + T H E + + + SSSSS OOOOOO FFFFFFFFFFFFF AAAAAAA + SSSSSSSSSS OOOOOOOOOOOO FFFFFFFFFFFF AAAAAAAA + SSSSSSSSSSS OOOOOOOOOOOOOO FFFFFFFFFFFF AAAA AAAA + SSSS S OOOOOO OOOOO FFFF AAAA AAAA + SSSSS OOOOO OOOO FFFFF AAAA AAAA + SSSSSSSSSS OOOO OOOOO FFFFFFFFFFFF AAAA AAAA + SSSSSSSSS OOOOO OOOO FFFFFFFFFFFF AAAAAAAAAAAAA + SSSSS OOOO OOOO FFFF AAAAAAAAAAAAAA + S SSSS OOOOO OOOOO FFFF AAAAAAAAAAAAAAA + SSSSSSSSSSS OOOOOOOOOOOOO FFFF AAAA AAAAA + SSSSSSSSS OOOOOOOOOO FFFF AAAA AAAAA + SSSS OOOOO FFFF AAAA AAAAA + + + S O F T W A R E + + L I B R A R I E S + + + + + + + International Astronomical Union + + Division A: Fundamental Astronomy + + + Standards Of Fundamental Astronomy Board + + + + + + Release 11 + + 2015 February 09 Index: /trunk/FACT++/sofa/src/a2af.c =================================================================== --- /trunk/FACT++/sofa/src/a2af.c (revision 18346) +++ /trunk/FACT++/sofa/src/a2af.c (revision 18346) @@ -0,0 +1,169 @@ +#include "sofa.h" + +void iauA2af(int ndp, double angle, char *sign, int idmsf[4]) +/* +** - - - - - - - - +** i a u A 2 a f +** - - - - - - - - +** +** Decompose radians into degrees, arcminutes, arcseconds, fraction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** ndp int resolution (Note 1) +** angle double angle in radians +** +** Returned: +** sign char '+' or '-' +** idmsf int[4] degrees, arcminutes, arcseconds, fraction +** +** Called: +** iauD2tf decompose days to hms +** +** Notes: +** +** 1) The argument ndp is interpreted as follows: +** +** ndp resolution +** : ...0000 00 00 +** -7 1000 00 00 +** -6 100 00 00 +** -5 10 00 00 +** -4 1 00 00 +** -3 0 10 00 +** -2 0 01 00 +** -1 0 00 10 +** 0 0 00 01 +** 1 0 00 00.1 +** 2 0 00 00.01 +** 3 0 00 00.001 +** : 0 00 00.000... +** +** 2) The largest positive useful value for ndp is determined by the +** size of angle, the format of doubles on the target platform, and +** the risk of overflowing idmsf[3]. On a typical platform, for +** angle up to 2pi, the available floating-point precision might +** correspond to ndp=12. However, the practical limit is typically +** ndp=9, set by the capacity of a 32-bit int, or ndp=4 if int is +** only 16 bits. +** +** 3) The absolute value of angle may exceed 2pi. In cases where it +** does not, it is up to the caller to test for and handle the +** case where angle is very nearly 2pi and rounds up to 360 degrees, +** by testing for idmsf[0]=360 and setting idmsf[0-3] to zero. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Hours to degrees * radians to turns */ + const double F = 15.0 / D2PI; + +/* Scale then use days to h,m,s function. */ + iauD2tf(ndp, angle*F, sign, idmsf); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/a2tf.c =================================================================== --- /trunk/FACT++/sofa/src/a2tf.c (revision 18346) +++ /trunk/FACT++/sofa/src/a2tf.c (revision 18346) @@ -0,0 +1,166 @@ +#include "sofa.h" + +void iauA2tf(int ndp, double angle, char *sign, int ihmsf[4]) +/* +** - - - - - - - - +** i a u A 2 t f +** - - - - - - - - +** +** Decompose radians into hours, minutes, seconds, fraction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** ndp int resolution (Note 1) +** angle double angle in radians +** +** Returned: +** sign char '+' or '-' +** ihmsf int[4] hours, minutes, seconds, fraction +** +** Called: +** iauD2tf decompose days to hms +** +** Notes: +** +** 1) The argument ndp is interpreted as follows: +** +** ndp resolution +** : ...0000 00 00 +** -7 1000 00 00 +** -6 100 00 00 +** -5 10 00 00 +** -4 1 00 00 +** -3 0 10 00 +** -2 0 01 00 +** -1 0 00 10 +** 0 0 00 01 +** 1 0 00 00.1 +** 2 0 00 00.01 +** 3 0 00 00.001 +** : 0 00 00.000... +** +** 2) The largest positive useful value for ndp is determined by the +** size of angle, the format of doubles on the target platform, and +** the risk of overflowing ihmsf[3]. On a typical platform, for +** angle up to 2pi, the available floating-point precision might +** correspond to ndp=12. However, the practical limit is typically +** ndp=9, set by the capacity of a 32-bit int, or ndp=4 if int is +** only 16 bits. +** +** 3) The absolute value of angle may exceed 2pi. In cases where it +** does not, it is up to the caller to test for and handle the +** case where angle is very nearly 2pi and rounds up to 24 hours, +** by testing for ihmsf[0]=24 and setting ihmsf[0-3] to zero. +** +** This revision: 2013 July 31 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Scale then use days to h,m,s function. */ + iauD2tf(ndp, angle/D2PI, sign, ihmsf); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/ab.c =================================================================== --- /trunk/FACT++/sofa/src/ab.c (revision 18346) +++ /trunk/FACT++/sofa/src/ab.c (revision 18346) @@ -0,0 +1,178 @@ +#include "sofa.h" + +void iauAb(double pnat[3], double v[3], double s, double bm1, + double ppr[3]) +/* +** - - - - - - +** i a u A b +** - - - - - - +** +** Apply aberration to transform natural direction into proper +** direction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** pnat double[3] natural direction to the source (unit vector) +** v double[3] observer barycentric velocity in units of c +** s double distance between the Sun and the observer (au) +** bm1 double sqrt(1-|v|^2): reciprocal of Lorenz factor +** +** Returned: +** ppr double[3] proper direction to source (unit vector) +** +** Notes: +** +** 1) The algorithm is based on Expr. (7.40) in the Explanatory +** Supplement (Urban & Seidelmann 2013), but with the following +** changes: +** +** o Rigorous rather than approximate normalization is applied. +** +** o The gravitational potential term from Expr. (7) in +** Klioner (2003) is added, taking into account only the Sun's +** contribution. This has a maximum effect of about +** 0.4 microarcsecond. +** +** 2) In almost all cases, the maximum accuracy will be limited by the +** supplied velocity. For example, if the SOFA iauEpv00 function is +** used, errors of up to 5 microarcseconds could occur. +** +** References: +** +** Urban, S. & Seidelmann, P. K. (eds), Explanatory Supplement to +** the Astronomical Almanac, 3rd ed., University Science Books +** (2013). +** +** Klioner, Sergei A., "A practical relativistic model for micro- +** arcsecond astrometry in space", Astr. J. 125, 1580-1597 (2003). +** +** Called: +** iauPdp scalar product of two p-vectors +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int i; + double pdv, w1, w2, r2, w, p[3], r; + + pdv = iauPdp(pnat, v); + w1 = 1.0 + pdv/(1.0 + bm1); + w2 = SRS/s; + r2 = 0.0; + for (i = 0; i < 3; i++) { + w = pnat[i]*bm1 + w1*v[i] + w2*(v[i] - pdv*pnat[i]); + p[i] = w; + r2 = r2 + w*w; + } + r = sqrt(r2); + for (i = 0; i < 3; i++) { + ppr[i] = p[i]/r; + } + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/af2a.c =================================================================== --- /trunk/FACT++/sofa/src/af2a.c (revision 18346) +++ /trunk/FACT++/sofa/src/af2a.c (revision 18346) @@ -0,0 +1,157 @@ +#include "sofa.h" +#include + +int iauAf2a(char s, int ideg, int iamin, double asec, double *rad) +/* +** - - - - - - - - +** i a u A f 2 a +** - - - - - - - - +** +** Convert degrees, arcminutes, arcseconds to radians. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** s char sign: '-' = negative, otherwise positive +** ideg int degrees +** iamin int arcminutes +** asec double arcseconds +** +** Returned: +** rad double angle in radians +** +** Returned (function value): +** int status: 0 = OK +** 1 = ideg outside range 0-359 +** 2 = iamin outside range 0-59 +** 3 = asec outside range 0-59.999... +** +** Notes: +** +** 1) The result is computed even if any of the range checks fail. +** +** 2) Negative ideg, iamin and/or asec produce a warning status, but +** the absolute value is used in the conversion. +** +** 3) If there are multiple errors, the status value reflects only the +** first, the smallest taking precedence. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + +/* Compute the interval. */ + *rad = ( s == '-' ? -1.0 : 1.0 ) * + ( 60.0 * ( 60.0 * ( (double) abs(ideg) ) + + ( (double) abs(iamin) ) ) + + fabs(asec) ) * DAS2R; + +/* Validate arguments and return status. */ + if ( ideg < 0 || ideg > 359 ) return 1; + if ( iamin < 0 || iamin > 59 ) return 2; + if ( asec < 0.0 || asec >= 60.0 ) return 3; + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/anp.c =================================================================== --- /trunk/FACT++/sofa/src/anp.c (revision 18346) +++ /trunk/FACT++/sofa/src/anp.c (revision 18346) @@ -0,0 +1,131 @@ +#include "sofa.h" + +double iauAnp(double a) +/* +** - - - - - - - +** i a u A n p +** - - - - - - - +** +** Normalize angle into the range 0 <= a < 2pi. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double angle (radians) +** +** Returned (function value): +** double angle in range 0-2pi +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double w; + + w = fmod(a, D2PI); + if (w < 0) w += D2PI; + + return w; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/anpm.c =================================================================== --- /trunk/FACT++/sofa/src/anpm.c (revision 18346) +++ /trunk/FACT++/sofa/src/anpm.c (revision 18346) @@ -0,0 +1,131 @@ +#include "sofa.h" + +double iauAnpm(double a) +/* +** - - - - - - - - +** i a u A n p m +** - - - - - - - - +** +** Normalize angle into the range -pi <= a < +pi. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double angle (radians) +** +** Returned (function value): +** double angle in range +/-pi +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double w; + + w = fmod(a, D2PI); + if (fabs(w) >= DPI) w -= dsign(D2PI, a); + + return w; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/apcg.c =================================================================== --- /trunk/FACT++/sofa/src/apcg.c (revision 18346) +++ /trunk/FACT++/sofa/src/apcg.c (revision 18346) @@ -0,0 +1,222 @@ +#include "sofa.h" + +void iauApcg(double date1, double date2, + double ebpv[2][3], double ehp[3], + iauASTROM *astrom) +/* +** - - - - - - - - +** i a u A p c g +** - - - - - - - - +** +** For a geocentric observer, prepare star-independent astrometry +** parameters for transformations between ICRS and GCRS coordinates. +** The Earth ephemeris is supplied by the caller. +** +** The parameters produced by this function are required in the +** parallax, light deflection and aberration parts of the astrometric +** transformation chain. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** ebpv double[2][3] Earth barycentric pos/vel (au, au/day) +** ehp double[3] Earth heliocentric position (au) +** +** Returned: +** 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 unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double unchanged +** refa double unchanged +** refb double unchanged +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 2) All the vectors are with respect to BCRS axes. +** +** 3) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 4) The context structure astrom produced by this function is used by +** iauAtciq* and iauAticq*. +** +** Called: +** iauApcs astrometry parameters, ICRS-GCRS, space observer +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Geocentric observer */ + double pv[2][3] = { { 0.0, 0.0, 0.0 }, + { 0.0, 0.0, 0.0 } }; + +/* Compute the star-independent astrometry parameters. */ + iauApcs(date1, date2, pv, ebpv, ehp, astrom); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/apcg13.c =================================================================== --- /trunk/FACT++/sofa/src/apcg13.c (revision 18346) +++ /trunk/FACT++/sofa/src/apcg13.c (revision 18346) @@ -0,0 +1,225 @@ +#include "sofa.h" + +void iauApcg13(double date1, double date2, iauASTROM *astrom) +/* +** - - - - - - - - - - +** i a u A p c g 1 3 +** - - - - - - - - - - +** +** For a geocentric observer, prepare star-independent astrometry +** parameters for transformations between ICRS and GCRS coordinates. +** The caller supplies the date, and SOFA models are used to predict +** the Earth ephemeris. +** +** The parameters produced by this function are required in the +** parallax, light deflection and aberration parts of the astrometric +** transformation chain. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** +** Returned: +** 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 unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double unchanged +** refa double unchanged +** refb double unchanged +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 2) All the vectors are with respect to BCRS axes. +** +** 3) In cases where the caller wishes to supply his own Earth +** ephemeris, the function iauApcg can be used instead of the present +** function. +** +** 4) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 5) The context structure astrom produced by this function is used by +** iauAtciq* and iauAticq*. +** +** Called: +** iauEpv00 Earth position and velocity +** iauApcg astrometry parameters, ICRS-GCRS, geocenter +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double ehpv[2][3], ebpv[2][3]; + +/* Earth barycentric & heliocentric position/velocity (au, au/d). */ + (void) iauEpv00(date1, date2, ehpv, ebpv); + +/* Compute the star-independent astrometry parameters. */ + iauApcg(date1, date2, ebpv, ehpv[0], astrom); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/apci.c =================================================================== --- /trunk/FACT++/sofa/src/apci.c (revision 18346) +++ /trunk/FACT++/sofa/src/apci.c (revision 18346) @@ -0,0 +1,232 @@ +#include "sofa.h" + +void iauApci(double date1, double date2, + double ebpv[2][3], double ehp[3], + double x, double y, double s, + iauASTROM *astrom) +/* +** - - - - - - - - +** i a u A p c i +** - - - - - - - - +** +** For a terrestrial observer, prepare star-independent astrometry +** parameters for transformations between ICRS and geocentric CIRS +** coordinates. The Earth ephemeris and CIP/CIO are supplied by the +** caller. +** +** The parameters produced by this function are required in the +** parallax, light deflection, aberration, and bias-precession-nutation +** parts of the astrometric transformation chain. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** ebpv double[2][3] Earth barycentric position/velocity (au, au/day) +** ehp double[3] Earth heliocentric position (au) +** x,y double CIP X,Y (components of unit vector) +** s double the CIO locator s (radians) +** +** Returned: +** 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 unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double unchanged +** refa double unchanged +** refb double unchanged +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 2) All the vectors are with respect to BCRS axes. +** +** 3) In cases where the caller does not wish to provide the Earth +** ephemeris and CIP/CIO, the function iauApci13 can be used instead +** of the present function. This computes the required quantities +** using other SOFA functions. +** +** 4) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 5) The context structure astrom produced by this function is used by +** iauAtciq* and iauAticq*. +** +** Called: +** iauApcg astrometry parameters, ICRS-GCRS, geocenter +** iauC2ixys celestial-to-intermediate matrix, given X,Y and s +** +** This revision: 2013 September 25 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + +/* Star-independent astrometry parameters for geocenter. */ + iauApcg(date1, date2, ebpv, ehp, astrom); + +/* CIO based BPN matrix. */ + iauC2ixys(x, y, s, astrom->bpn); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/apci13.c =================================================================== --- /trunk/FACT++/sofa/src/apci13.c (revision 18346) +++ /trunk/FACT++/sofa/src/apci13.c (revision 18346) @@ -0,0 +1,243 @@ +#include "sofa.h" + +void iauApci13(double date1, double date2, + iauASTROM *astrom, double *eo) +/* +** - - - - - - - - - - +** i a u A p c i 1 3 +** - - - - - - - - - - +** +** For a terrestrial observer, prepare star-independent astrometry +** parameters for transformations between ICRS and geocentric CIRS +** coordinates. The caller supplies the date, and SOFA models are used +** to predict the Earth ephemeris and CIP/CIO. +** +** The parameters produced by this function are required in the +** parallax, light deflection, aberration, and bias-precession-nutation +** parts of the astrometric transformation chain. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** +** Returned: +** 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 unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double unchanged +** refa double unchanged +** refb double unchanged +** eo double* equation of the origins (ERA-GST) +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 2) All the vectors are with respect to BCRS axes. +** +** 3) In cases where the caller wishes to supply his own Earth +** ephemeris and CIP/CIO, the function iauApci can be used instead +** of the present function. +** +** 4) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 5) The context structure astrom produced by this function is used by +** iauAtciq* and iauAticq*. +** +** Called: +** iauEpv00 Earth position and velocity +** iauPnm06a classical NPB matrix, IAU 2006/2000A +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS06 the CIO locator s, given X,Y, IAU 2006 +** iauApci astrometry parameters, ICRS-CIRS +** iauEors equation of the origins, given NPB matrix and s +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double ehpv[2][3], ebpv[2][3], r[3][3], x, y, s; + +/* Earth barycentric & heliocentric position/velocity (au, au/d). */ + (void) iauEpv00(date1, date2, ehpv, ebpv); + +/* Form the equinox based BPN matrix, IAU 2006/2000A. */ + iauPnm06a(date1, date2, r); + +/* Extract CIP X,Y. */ + iauBpn2xy(r, &x, &y); + +/* Obtain CIO locator s. */ + s = iauS06(date1, date2, x, y); + +/* Compute the star-independent astrometry parameters. */ + iauApci(date1, date2, ebpv, ehpv[0], x, y, s, astrom); + +/* Equation of the origins. */ + *eo = iauEors(r, s); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/apco.c =================================================================== --- /trunk/FACT++/sofa/src/apco.c (revision 18346) +++ /trunk/FACT++/sofa/src/apco.c (revision 18346) @@ -0,0 +1,305 @@ +#include "sofa.h" + +void iauApco(double date1, double date2, + double ebpv[2][3], double ehp[3], + double x, double y, double s, double theta, + double elong, double phi, double hm, + double xp, double yp, double sp, + double refa, double refb, + iauASTROM *astrom) +/* +** - - - - - - - - +** i a u A p c o +** - - - - - - - - +** +** For a terrestrial observer, prepare star-independent astrometry +** parameters for transformations between ICRS and observed +** coordinates. The caller supplies the Earth ephemeris, the Earth +** rotation information and the refraction constants as well as the +** site coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** ebpv double[2][3] Earth barycentric PV (au, au/day, Note 2) +** ehp double[3] Earth heliocentric P (au, Note 2) +** x,y double CIP X,Y (components of unit vector) +** s double the CIO locator s (radians) +** theta double Earth rotation angle (radians) +** elong double longitude (radians, east +ve, Note 3) +** phi double latitude (geodetic, radians, Note 3) +** hm double height above ellipsoid (m, geodetic, Note 3) +** xp,yp double polar motion coordinates (radians, Note 4) +** sp double the TIO locator s' (radians, Note 4) +** refa double refraction constant A (radians, Note 5) +** refb double refraction constant B (radians, Note 5) +** +** Returned: +** 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) +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 2) The vectors eb, eh, and all the astrom vectors, are with respect +** to BCRS axes. +** +** 3) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN +** CONVENTION: the longitude required by the present function is +** right-handed, i.e. east-positive, in accordance with geographical +** convention. +** +** 4) xp and yp are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions), measured along the +** meridians 0 and 90 deg west respectively. sp is the TIO locator +** s', in radians, which positions the Terrestrial Intermediate +** Origin on the equator. For many applications, xp, yp and +** (especially) sp can be set to zero. +** +** Internally, the polar motion is stored in a form rotated onto the +** local meridian. +** +** 5) The refraction constants refa and refb are for use in a +** dZ = A*tan(Z)+B*tan^3(Z) model, where Z is the observed +** (i.e. refracted) zenith distance and dZ is the amount of +** refraction. +** +** 6) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** 7) In cases where the caller does not wish to provide the Earth +** Ephemeris, the Earth rotation information and refraction +** constants, the function iauApco13 can be used instead of the +** present function. This starts from UTC and weather readings etc. +** and computes suitable values using other SOFA functions. +** +** 8) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 9) The context structure astrom produced by this function is used by +** iauAtioq, iauAtoiq, iauAtciq* and iauAticq*. +** +** Called: +** iauAper astrometry parameters: update ERA +** iauC2ixys celestial-to-intermediate matrix, given X,Y and s +** iauPvtob position/velocity of terrestrial station +** iauTrxpv product of transpose of r-matrix and pv-vector +** iauApcs astrometry parameters, ICRS-GCRS, space observer +** iauCr copy r-matrix +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double sl, cl, r[3][3], pvc[2][3], pv[2][3]; + +/* Longitude with adjustment for TIO locator s'. */ + astrom->along = elong + sp; + +/* Polar motion, rotated onto the local meridian. */ + sl = sin(astrom->along); + cl = cos(astrom->along); + astrom->xpl = xp*cl - yp*sl; + astrom->ypl = xp*sl + yp*cl; + +/* Functions of latitude. */ + astrom->sphi = sin(phi); + astrom->cphi = cos(phi); + +/* Refraction constants. */ + astrom->refa = refa; + astrom->refb = refb; + +/* Local Earth rotation angle. */ + iauAper(theta, astrom); + +/* Disable the (redundant) diurnal aberration step. */ + astrom->diurab = 0.0; + +/* CIO based BPN matrix. */ + iauC2ixys(x, y, s, r); + +/* Observer's geocentric position and velocity (m, m/s, CIRS). */ + iauPvtob(elong, phi, hm, xp, yp, sp, theta, pvc); + +/* Rotate into GCRS. */ + iauTrxpv(r, pvc, pv); + +/* ICRS <-> GCRS parameters. */ + iauApcs(date1, date2, pv, ebpv, ehp, astrom); + +/* Store the CIO based BPN matrix. */ + iauCr(r, astrom->bpn ); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/apco13.c =================================================================== --- /trunk/FACT++/sofa/src/apco13.c (revision 18346) +++ /trunk/FACT++/sofa/src/apco13.c (revision 18346) @@ -0,0 +1,328 @@ +#include "sofa.h" + +int iauApco13(double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + iauASTROM *astrom, double *eo) +/* +** - - - - - - - - - - +** i a u A p c o 1 3 +** - - - - - - - - - - +** +** For a terrestrial observer, prepare star-independent astrometry +** parameters for transformations between ICRS and observed +** coordinates. The caller supplies UTC, site coordinates, ambient air +** conditions and observing wavelength, and SOFA models are used to +** obtain the Earth ephemeris, CIP/CIO and refraction constants. +** +** The parameters produced by this function are required in the +** parallax, light deflection, aberration, and bias-precession-nutation +** parts of the ICRS/CIRS transformations. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** utc1 double UTC as a 2-part... +** utc2 double ...quasi Julian Date (Notes 1,2) +** dut1 double UT1-UTC (seconds, Note 3) +** elong double longitude (radians, east +ve, Note 4) +** phi double latitude (geodetic, radians, Note 4) +** hm double height above ellipsoid (m, geodetic, Notes 4,6) +** xp,yp double polar motion coordinates (radians, Note 5) +** phpa double pressure at the observer (hPa = mB, Note 6) +** tc double ambient temperature at the observer (deg C) +** rh double relative humidity at the observer (range 0-1) +** wl double wavelength (micrometers, Note 7) +** +** Returned: +** 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) +** eo double* equation of the origins (ERA-GST) +** +** Returned (function value): +** int status: +1 = dubious year (Note 2) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** However, JD cannot unambiguously represent UTC during a leap +** second unless special measures are taken. The convention in the +** present function is that the JD day represents UTC days whether +** the length is 86399, 86400 or 86401 SI seconds. +** +** Applications should use the function iauDtf2d to convert from +** calendar date and time of day into 2-part quasi Julian Date, as +** it implements the leap-second-ambiguity convention just +** described. +** +** 2) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the +** future to be trusted. See iauDat for further details. +** +** 3) UT1-UTC is tabulated in IERS bulletins. It increases by exactly +** one second at the end of each positive UTC leap second, +** introduced in order to keep UT1-UTC within +/- 0.9s. n.b. This +** practice is under review, and in the future UT1-UTC may grow +** essentially without limit. +** +** 4) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN: the +** longitude required by the present function is east-positive +** (i.e. right-handed), in accordance with geographical convention. +** +** 5) The polar motion xp,yp can be obtained from IERS bulletins. The +** values are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions 2003), measured along the +** meridians 0 and 90 deg west respectively. For many +** applications, xp and yp can be set to zero. +** +** Internally, the polar motion is stored in a form rotated onto +** the local meridian. +** +** 6) If hm, the height above the ellipsoid of the observing station +** in meters, is not known but phpa, the pressure in hPa (=mB), is +** available, an adequate estimate of hm can be obtained from the +** expression +** +** hm = -29.3 * tsl * log ( phpa / 1013.25 ); +** +** where tsl is the approximate sea-level air temperature in K +** (See Astrophysical Quantities, C.W.Allen, 3rd edition, section +** 52). Similarly, if the pressure phpa is not known, it can be +** estimated from the height of the observing station, hm, as +** follows: +** +** phpa = 1013.25 * exp ( -hm / ( 29.3 * tsl ) ); +** +** Note, however, that the refraction is nearly proportional to +** the pressure and that an accurate phpa value is important for +** precise work. +** +** 7) The argument wl specifies the observing wavelength in +** micrometers. The transition from optical to radio is assumed to +** occur at 100 micrometers (about 3000 GHz). +** +** 8) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** 9) In cases where the caller wishes to supply his own Earth +** ephemeris, Earth rotation information and refraction constants, +** the function iauApco can be used instead of the present function. +** +** 10) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 11) The context structure astrom produced by this function is used +** by iauAtioq, iauAtoiq, iauAtciq* and iauAticq*. +** +** Called: +** iauUtctai UTC to TAI +** iauTaitt TAI to TT +** iauUtcut1 UTC to UT1 +** iauEpv00 Earth position and velocity +** iauPnm06a classical NPB matrix, IAU 2006/2000A +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS06 the CIO locator s, given X,Y, IAU 2006 +** iauEra00 Earth rotation angle, IAU 2000 +** iauSp00 the TIO locator s', IERS 2000 +** iauRefco refraction constants for given ambient conditions +** iauApco astrometry parameters, ICRS-observed +** iauEors equation of the origins, given NPB matrix and s +** +** This revision: 2013 December 5 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int j; + double tai1, tai2, tt1, tt2, ut11, ut12, ehpv[2][3], ebpv[2][3], + r[3][3], x, y, s, theta, sp, refa, refb; + +/* UTC to other time scales. */ + j = iauUtctai(utc1, utc2, &tai1, &tai2); + if ( j < 0 ) return -1; + j = iauTaitt(tai1, tai2, &tt1, &tt2); + j = iauUtcut1(utc1, utc2, dut1, &ut11, &ut12); + if ( j < 0 ) return -1; + +/* Earth barycentric & heliocentric position/velocity (au, au/d). */ + (void) iauEpv00(tt1, tt2, ehpv, ebpv); + +/* Form the equinox based BPN matrix, IAU 2006/2000A. */ + iauPnm06a(tt1, tt2, r); + +/* Extract CIP X,Y. */ + iauBpn2xy(r, &x, &y); + +/* Obtain CIO locator s. */ + s = iauS06(tt1, tt2, x, y); + +/* Earth rotation angle. */ + theta = iauEra00(ut11, ut12); + +/* TIO locator s'. */ + sp = iauSp00(tt1, tt2); + +/* Refraction constants A and B. */ + iauRefco(phpa, tc, rh, wl, &refa, &refb); + +/* Compute the star-independent astrometry parameters. */ + iauApco(tt1, tt2, ebpv, ehpv[0], x, y, s, theta, + elong, phi, hm, xp, yp, sp, refa, refb, astrom); + +/* Equation of the origins. */ + *eo = iauEors(r, s); + +/* Return any warning status. */ + return j; + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/apcs.c =================================================================== --- /trunk/FACT++/sofa/src/apcs.c (revision 18346) +++ /trunk/FACT++/sofa/src/apcs.c (revision 18346) @@ -0,0 +1,274 @@ +#include "sofa.h" + +void iauApcs(double date1, double date2, double pv[2][3], + double ebpv[2][3], double ehp[3], + iauASTROM *astrom) +/* +** - - - - - - - - +** i a u A p c s +** - - - - - - - - +** +** For an observer whose geocentric position and velocity are known, +** prepare star-independent astrometry parameters for transformations +** between ICRS and GCRS. The Earth ephemeris is supplied by the +** caller. +** +** The parameters produced by this function are required in the space +** motion, parallax, light deflection and aberration parts of the +** astrometric transformation chain. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** pv double[2][3] observer's geocentric pos/vel (m, m/s) +** ebpv double[2][3] Earth barycentric PV (au, au/day) +** ehp double[3] Earth heliocentric P (au) +** +** Returned: +** 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 unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double unchanged +** refa double unchanged +** refb double unchanged +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 2) All the vectors are with respect to BCRS axes. +** +** 3) Providing separate arguments for (i) the observer's geocentric +** position and velocity and (ii) the Earth ephemeris is done for +** convenience in the geocentric, terrestrial and Earth orbit cases. +** For deep space applications it maybe more convenient to specify +** zero geocentric position and velocity and to supply the +** observer's position and velocity information directly instead of +** with respect to the Earth. However, note the different units: +** m and m/s for the geocentric vectors, au and au/day for the +** heliocentric and barycentric vectors. +** +** 4) In cases where the caller does not wish to provide the Earth +** ephemeris, the function iauApcs13 can be used instead of the +** present function. This computes the Earth ephemeris using the +** SOFA function iauEpv00. +** +** 5) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 6) The context structure astrom produced by this function is used by +** iauAtciq* and iauAticq*. +** +** Called: +** iauCp copy p-vector +** iauPm modulus of p-vector +** iauPn decompose p-vector into modulus and direction +** iauIr initialize r-matrix to identity +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* au/d to m/s */ + const double AUDMS = DAU/DAYSEC; + +/* Light time for 1 AU (day) */ + const double CR = AULT/DAYSEC; + + int i; + double dp, dv, pb[3], vb[3], ph[3], v2, w; + +/* Time since reference epoch, years (for proper motion calculation). */ + astrom->pmt = ( (date1 - DJ00) + date2 ) / DJY; + +/* Adjust Earth ephemeris to observer. */ + for (i = 0; i < 3; i++) { + dp = pv[0][i] / DAU; + dv = pv[1][i] / AUDMS; + pb[i] = ebpv[0][i] + dp; + vb[i] = ebpv[1][i] + dv; + ph[i] = ehp[i] + dp; + } + +/* Barycentric position of observer (au). */ + iauCp(pb, astrom->eb); + +/* Heliocentric direction and distance (unit vector and au). */ + iauPn(ph, &astrom->em, astrom->eh); + +/* Barycentric vel. in units of c, and reciprocal of Lorenz factor. */ + v2 = 0.0; + for (i = 0; i < 3; i++) { + w = vb[i] * CR; + astrom->v[i] = w; + v2 += w*w; + } + astrom->bm1 = sqrt(1.0 - v2); + +/* Reset the NPB matrix. */ + iauIr(astrom->bpn); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/apcs13.c =================================================================== --- /trunk/FACT++/sofa/src/apcs13.c (revision 18346) +++ /trunk/FACT++/sofa/src/apcs13.c (revision 18346) @@ -0,0 +1,232 @@ +#include "sofa.h" + +void iauApcs13(double date1, double date2, double pv[2][3], + iauASTROM *astrom) +/* +** - - - - - - - - - - +** i a u A p c s 1 3 +** - - - - - - - - - - +** +** For an observer whose geocentric position and velocity are known, +** prepare star-independent astrometry parameters for transformations +** between ICRS and GCRS. The Earth ephemeris is from SOFA models. +** +** The parameters produced by this function are required in the space +** motion, parallax, light deflection and aberration parts of the +** astrometric transformation chain. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** pv double[2][3] observer's geocentric pos/vel (Note 3) +** +** Returned: +** 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 unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double unchanged +** refa double unchanged +** refb double unchanged +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 2) All the vectors are with respect to BCRS axes. +** +** 3) The observer's position and velocity pv are geocentric but with +** respect to BCRS axes, and in units of m and m/s. No assumptions +** are made about proximity to the Earth, and the function can be +** used for deep space applications as well as Earth orbit and +** terrestrial. +** +** 4) In cases where the caller wishes to supply his own Earth +** ephemeris, the function iauApcs can be used instead of the present +** function. +** +** 5) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 6) The context structure astrom produced by this function is used by +** iauAtciq* and iauAticq*. +** +** Called: +** iauEpv00 Earth position and velocity +** iauApcs astrometry parameters, ICRS-GCRS, space observer +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double ehpv[2][3], ebpv[2][3]; + +/* Earth barycentric & heliocentric position/velocity (au, au/d). */ + (void) iauEpv00(date1, date2, ehpv, ebpv); + +/* Compute the star-independent astrometry parameters. */ + iauApcs(date1, date2, pv, ebpv, ehpv[0], astrom); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/aper.c =================================================================== --- /trunk/FACT++/sofa/src/aper.c (revision 18346) +++ /trunk/FACT++/sofa/src/aper.c (revision 18346) @@ -0,0 +1,204 @@ +#include "sofa.h" + +void iauAper(double theta, iauASTROM *astrom) +/* +** - - - - - - - - +** i a u A p e r +** - - - - - - - - +** +** In the star-independent astrometry parameters, update only the +** Earth rotation angle, supplied by the caller explicitly. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** theta double Earth rotation angle (radians, Note 2) +** astrom iauASTROM* star-independent astrometry parameters: +** pmt double not used +** eb double[3] not used +** eh double[3] not used +** em double not used +** v double[3] not used +** bm1 double not used +** bpn double[3][3] not used +** along double longitude + s' (radians) +** xpl double not used +** ypl double not used +** sphi double not used +** cphi double not used +** diurab double not used +** eral double not used +** refa double not used +** refb double not used +** +** Returned: +** astrom iauASTROM* star-independent astrometry parameters: +** pmt double unchanged +** eb double[3] unchanged +** eh double[3] unchanged +** em double unchanged +** v double[3] unchanged +** bm1 double unchanged +** bpn double[3][3] unchanged +** along double unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double "local" Earth rotation angle (radians) +** refa double unchanged +** refb double unchanged +** +** Notes: +** +** 1) This function exists to enable sidereal-tracking applications to +** avoid wasteful recomputation of the bulk of the astrometry +** parameters: only the Earth rotation is updated. +** +** 2) For targets expressed as equinox based positions, such as +** classical geocentric apparent (RA,Dec), the supplied theta can be +** Greenwich apparent sidereal time rather than Earth rotation +** angle. +** +** 3) The function iauAper13 can be used instead of the present +** function, and starts from UT1 rather than ERA itself. +** +** 4) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** This revision: 2013 September 25 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + astrom->eral = theta + astrom->along; + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/aper13.c =================================================================== --- /trunk/FACT++/sofa/src/aper13.c (revision 18346) +++ /trunk/FACT++/sofa/src/aper13.c (revision 18346) @@ -0,0 +1,223 @@ +#include "sofa.h" + +void iauAper13(double ut11, double ut12, iauASTROM *astrom) +/* +** - - - - - - - - - - +** i a u A p e r 1 3 +** - - - - - - - - - - +** +** In the star-independent astrometry parameters, update only the +** Earth rotation angle. The caller provides UT1, (n.b. not UTC). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** ut11 double UT1 as a 2-part... +** ut12 double ...Julian Date (Note 1) +** astrom iauASTROM* star-independent astrometry parameters: +** pmt double not used +** eb double[3] not used +** eh double[3] not used +** em double not used +** v double[3] not used +** bm1 double not used +** bpn double[3][3] not used +** along double longitude + s' (radians) +** xpl double not used +** ypl double not used +** sphi double not used +** cphi double not used +** diurab double not used +** eral double not used +** refa double not used +** refb double not used +** +** Returned: +** astrom iauASTROM* star-independent astrometry parameters: +** pmt double unchanged +** eb double[3] unchanged +** eh double[3] unchanged +** em double unchanged +** v double[3] unchanged +** bm1 double unchanged +** bpn double[3][3] unchanged +** along double unchanged +** xpl double unchanged +** ypl double unchanged +** sphi double unchanged +** cphi double unchanged +** diurab double unchanged +** eral double "local" Earth rotation angle (radians) +** refa double unchanged +** refb double unchanged +** +** Notes: +** +** 1) The UT1 date (n.b. not UTC) ut11+ut12 is a Julian Date, +** apportioned in any convenient way between the arguments ut11 and +** ut12. For example, JD(UT1)=2450123.7 could be expressed in any +** of these ways, among others: +** +** ut11 ut12 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. The date & time method is +** best matched to the algorithm used: maximum precision is +** delivered when the ut11 argument is for 0hrs UT1 on the day in +** question and the ut12 argument lies in the range 0 to 1, or vice +** versa. +** +** 2) If the caller wishes to provide the Earth rotation angle itself, +** the function iauAper can be used instead. One use of this +** technique is to substitute Greenwich apparent sidereal time and +** thereby to support equinox based transformations directly. +** +** 3) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** Called: +** iauAper astrometry parameters: update ERA +** iauEra00 Earth rotation angle, IAU 2000 +** +** This revision: 2013 September 25 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + iauAper(iauEra00(ut11,ut12), astrom); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/apio.c =================================================================== --- /trunk/FACT++/sofa/src/apio.c (revision 18346) +++ /trunk/FACT++/sofa/src/apio.c (revision 18346) @@ -0,0 +1,254 @@ +#include "sofa.h" + +void iauApio(double sp, double theta, + double elong, double phi, double hm, double xp, double yp, + double refa, double refb, + iauASTROM *astrom) +/* +** - - - - - - - - +** i a u A p i o +** - - - - - - - - +** +** For a terrestrial observer, prepare star-independent astrometry +** parameters for transformations between CIRS and observed +** coordinates. The caller supplies the Earth orientation information +** and the refraction constants as well as the site coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** sp double the TIO locator s' (radians, Note 1) +** theta double Earth rotation angle (radians) +** elong double longitude (radians, east +ve, Note 2) +** phi double geodetic latitude (radians, Note 2) +** hm double height above ellipsoid (m, geodetic Note 2) +** xp,yp double polar motion coordinates (radians, Note 3) +** refa double refraction constant A (radians, Note 4) +** refb double refraction constant B (radians, Note 4) +** +** Returned: +** astrom iauASTROM* star-independent astrometry parameters: +** pmt double unchanged +** eb double[3] unchanged +** eh double[3] unchanged +** em double unchanged +** v double[3] unchanged +** bm1 double unchanged +** bpn double[3][3] unchanged +** 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) +** +** Notes: +** +** 1) sp, the TIO locator s', is a tiny quantity needed only by the +** most precise applications. It can either be set to zero or +** predicted using the SOFA function iauSp00. +** +** 2) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN: the +** longitude required by the present function is east-positive +** (i.e. right-handed), in accordance with geographical convention. +** +** 3) The polar motion xp,yp can be obtained from IERS bulletins. The +** values are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions 2003), measured along the +** meridians 0 and 90 deg west respectively. For many applications, +** xp and yp can be set to zero. +** +** Internally, the polar motion is stored in a form rotated onto the +** local meridian. +** +** 4) The refraction constants refa and refb are for use in a +** dZ = A*tan(Z)+B*tan^3(Z) model, where Z is the observed +** (i.e. refracted) zenith distance and dZ is the amount of +** refraction. +** +** 5) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** 6) In cases where the caller does not wish to provide the Earth +** rotation information and refraction constants, the function +** iauApio13 can be used instead of the present function. This +** starts from UTC and weather readings etc. and computes suitable +** values using other SOFA functions. +** +** 7) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 8) The context structure astrom produced by this function is used by +** iauAtioq and iauAtoiq. +** +** Called: +** iauPvtob position/velocity of terrestrial station +** iauAper astrometry parameters: update ERA +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double sl, cl, pv[2][3]; + +/* Longitude with adjustment for TIO locator s'. */ + astrom->along = elong + sp; + +/* Polar motion, rotated onto the local meridian. */ + sl = sin(astrom->along); + cl = cos(astrom->along); + astrom->xpl = xp*cl - yp*sl; + astrom->ypl = xp*sl + yp*cl; + +/* Functions of latitude. */ + astrom->sphi = sin(phi); + astrom->cphi = cos(phi); + +/* Observer's geocentric position and velocity (m, m/s, CIRS). */ + iauPvtob(elong, phi, hm, xp, yp, sp, theta, pv); + +/* Magnitude of diurnal aberration vector. */ + astrom->diurab = sqrt(pv[1][0]*pv[1][0]+pv[1][1]*pv[1][1]) / CMPS; + +/* Refraction constants. */ + astrom->refa = refa; + astrom->refb = refb; + +/* Local Earth rotation angle. */ + iauAper(theta, astrom); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/apio13.c =================================================================== --- /trunk/FACT++/sofa/src/apio13.c (revision 18346) +++ /trunk/FACT++/sofa/src/apio13.c (revision 18346) @@ -0,0 +1,300 @@ +#include "sofa.h" + +int iauApio13(double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + iauASTROM *astrom) +/* +** - - - - - - - - - - +** i a u A p i o 1 3 +** - - - - - - - - - - +** +** For a terrestrial observer, prepare star-independent astrometry +** parameters for transformations between CIRS and observed +** coordinates. The caller supplies UTC, site coordinates, ambient air +** conditions and observing wavelength. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** utc1 double UTC as a 2-part... +** utc2 double ...quasi Julian Date (Notes 1,2) +** dut1 double UT1-UTC (seconds) +** elong double longitude (radians, east +ve, Note 3) +** phi double geodetic latitude (radians, Note 3) +** hm double height above ellipsoid (m, geodetic Notes 4,6) +** xp,yp double polar motion coordinates (radians, Note 5) +** phpa double pressure at the observer (hPa = mB, Note 6) +** tc double ambient temperature at the observer (deg C) +** rh double relative humidity at the observer (range 0-1) +** wl double wavelength (micrometers, Note 7) +** +** Returned: +** astrom iauASTROM* star-independent astrometry parameters: +** pmt double unchanged +** eb double[3] unchanged +** eh double[3] unchanged +** em double unchanged +** v double[3] unchanged +** bm1 double unchanged +** bpn double[3][3] unchanged +** 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 (function value): +** int status: +1 = dubious year (Note 2) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** However, JD cannot unambiguously represent UTC during a leap +** second unless special measures are taken. The convention in the +** present function is that the JD day represents UTC days whether +** the length is 86399, 86400 or 86401 SI seconds. +** +** Applications should use the function iauDtf2d to convert from +** calendar date and time of day into 2-part quasi Julian Date, as +** it implements the leap-second-ambiguity convention just +** described. +** +** 2) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the future +** to be trusted. See iauDat for further details. +** +** 3) UT1-UTC is tabulated in IERS bulletins. It increases by exactly +** one second at the end of each positive UTC leap second, +** introduced in order to keep UT1-UTC within +/- 0.9s. n.b. This +** practice is under review, and in the future UT1-UTC may grow +** essentially without limit. +** +** 4) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN: the +** longitude required by the present function is east-positive +** (i.e. right-handed), in accordance with geographical convention. +** +** 5) The polar motion xp,yp can be obtained from IERS bulletins. The +** values are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions 2003), measured along the +** meridians 0 and 90 deg west respectively. For many applications, +** xp and yp can be set to zero. +** +** Internally, the polar motion is stored in a form rotated onto +** the local meridian. +** +** 6) If hm, the height above the ellipsoid of the observing station +** in meters, is not known but phpa, the pressure in hPa (=mB), is +** available, an adequate estimate of hm can be obtained from the +** expression +** +** hm = -29.3 * tsl * log ( phpa / 1013.25 ); +** +** where tsl is the approximate sea-level air temperature in K +** (See Astrophysical Quantities, C.W.Allen, 3rd edition, section +** 52). Similarly, if the pressure phpa is not known, it can be +** estimated from the height of the observing station, hm, as +** follows: +** +** phpa = 1013.25 * exp ( -hm / ( 29.3 * tsl ) ); +** +** Note, however, that the refraction is nearly proportional to the +** pressure and that an accurate phpa value is important for +** precise work. +** +** 7) The argument wl specifies the observing wavelength in +** micrometers. The transition from optical to radio is assumed to +** occur at 100 micrometers (about 3000 GHz). +** +** 8) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** 9) In cases where the caller wishes to supply his own Earth +** rotation information and refraction constants, the function +** iauApc can be used instead of the present function. +** +** 10) This is one of several functions that inserts into the astrom +** structure star-independent parameters needed for the chain of +** astrometric transformations ICRS <-> GCRS <-> CIRS <-> observed. +** +** The various functions support different classes of observer and +** portions of the transformation chain: +** +** functions observer transformation +** +** iauApcg iauApcg13 geocentric ICRS <-> GCRS +** iauApci iauApci13 terrestrial ICRS <-> CIRS +** iauApco iauApco13 terrestrial ICRS <-> observed +** iauApcs iauApcs13 space ICRS <-> GCRS +** iauAper iauAper13 terrestrial update Earth rotation +** iauApio iauApio13 terrestrial CIRS <-> observed +** +** Those with names ending in "13" use contemporary SOFA models to +** compute the various ephemerides. The others accept ephemerides +** supplied by the caller. +** +** The transformation from ICRS to GCRS covers space motion, +** parallax, light deflection, and aberration. From GCRS to CIRS +** comprises frame bias and precession-nutation. From CIRS to +** observed takes account of Earth rotation, polar motion, diurnal +** aberration and parallax (unless subsumed into the ICRS <-> GCRS +** transformation), and atmospheric refraction. +** +** 11) The context structure astrom produced by this function is used +** by iauAtioq and iauAtoiq. +** +** Called: +** iauUtctai UTC to TAI +** iauTaitt TAI to TT +** iauUtcut1 UTC to UT1 +** iauSp00 the TIO locator s', IERS 2000 +** iauEra00 Earth rotation angle, IAU 2000 +** iauRefco refraction constants for given ambient conditions +** iauApio astrometry parameters, CIRS-observed +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int j; + double tai1, tai2, tt1, tt2, ut11, ut12, sp, theta, refa, refb; + +/* UTC to other time scales. */ + j = iauUtctai(utc1, utc2, &tai1, &tai2); + if ( j < 0 ) return -1; + j = iauTaitt(tai1, tai2, &tt1, &tt2); + j = iauUtcut1(utc1, utc2, dut1, &ut11, &ut12); + if ( j < 0 ) return -1; + +/* TIO locator s'. */ + sp = iauSp00(tt1, tt2); + +/* Earth rotation angle. */ + theta = iauEra00(ut11, ut12); + +/* Refraction constants A and B. */ + iauRefco(phpa, tc, rh, wl, &refa, &refb); + +/* CIRS <-> observed astrometry parameters. */ + iauApio(sp, theta, elong, phi, hm, xp, yp, refa, refb, astrom); + +/* Return any warning status. */ + return j; + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/atci13.c =================================================================== --- /trunk/FACT++/sofa/src/atci13.c (revision 18346) +++ /trunk/FACT++/sofa/src/atci13.c (revision 18346) @@ -0,0 +1,200 @@ +#include "sofa.h" + +void iauAtci13(double rc, double dc, + double pr, double pd, double px, double rv, + double date1, double date2, + double *ri, double *di, double *eo) +/* +** - - - - - - - - - - +** i a u A t c i 1 3 +** - - - - - - - - - - +** +** Transform ICRS star data, epoch J2000.0, to CIRS. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rc double ICRS right ascension at J2000.0 (radians, Note 1) +** dc double ICRS declination at J2000.0 (radians, Note 1) +** pr double RA proper motion (radians/year; Note 2) +** pd double Dec proper motion (radians/year) +** px double parallax (arcsec) +** rv double radial velocity (km/s, +ve if receding) +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 3) +** +** Returned: +** ri,di double* CIRS geocentric RA,Dec (radians) +** eo double* equation of the origins (ERA-GST, Note 5) +** +** Notes: +** +** 1) Star data for an epoch other than J2000.0 (for example from the +** Hipparcos catalog, which has an epoch of J1991.25) will require a +** preliminary call to iauPmsafe before use. +** +** 2) The proper motion in RA is dRA/dt rather than cos(Dec)*dRA/dt. +** +** 3) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.8g could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.8g 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 4) The available accuracy is better than 1 milliarcsecond, limited +** mainly by the precession-nutation model that is used, namely +** IAU 2000A/2006. Very close to solar system bodies, additional +** errors of up to several milliarcseconds can occur because of +** unmodeled light deflection; however, the Sun's contribution is +** taken into account, to first order. The accuracy limitations of +** the SOFA function iauEpv00 (used to compute Earth position and +** velocity) can contribute aberration errors of up to +** 5 microarcseconds. Light deflection at the Sun's limb is +** uncertain at the 0.4 mas level. +** +** 5) Should the transformation to (equinox based) apparent place be +** required rather than (CIO based) intermediate place, subtract the +** equation of the origins from the returned right ascension: +** RA = RI - EO. (The iauAnp function can then be applied, as +** required, to keep the result in the conventional 0-2pi range.) +** +** Called: +** iauApci13 astrometry parameters, ICRS-CIRS, 2013 +** iauAtciq quick ICRS to CIRS +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Star-independent astrometry parameters */ + iauASTROM astrom; + +/* The transformation parameters. */ + iauApci13(date1, date2, &astrom, eo); + +/* ICRS (epoch J2000.0) to CIRS. */ + iauAtciq(rc, dc, pr, pd, px, rv, &astrom, ri, di); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/atciq.c =================================================================== --- /trunk/FACT++/sofa/src/atciq.c (revision 18346) +++ /trunk/FACT++/sofa/src/atciq.c (revision 18346) @@ -0,0 +1,195 @@ +#include "sofa.h" + +void iauAtciq(double rc, double dc, + double pr, double pd, double px, double rv, + iauASTROM *astrom, double *ri, double *di) +/* +** - - - - - - - - - +** i a u A t c i q +** - - - - - - - - - +** +** Quick ICRS, epoch J2000.0, to CIRS transformation, given precomputed +** star-independent astrometry parameters. +** +** Use of this function is appropriate when efficiency is important and +** where many star positions are to be transformed for one date. The +** star-independent parameters can be obtained by calling one of the +** functions iauApci[13], iauApcg[13], iauApco[13] or iauApcs[13]. +** +** If the parallax and proper motions are zero the iauAtciqz function +** can be used instead. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rc,dc double ICRS RA,Dec at J2000.0 (radians) +** pr double RA proper motion (radians/year; Note 3) +** pd double Dec proper motion (radians/year) +** px double parallax (arcsec) +** rv double radial velocity (km/s, +ve if receding) +** 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: +** ri,di double CIRS RA,Dec (radians) +** +** Notes: +** +** 1) All the vectors are with respect to BCRS axes. +** +** 2) Star data for an epoch other than J2000.0 (for example from the +** Hipparcos catalog, which has an epoch of J1991.25) will require a +** preliminary call to iauPmsafe before use. +** +** 3) The proper motion in RA is dRA/dt rather than cos(Dec)*dRA/dt. +** +** Called: +** iauPmpx proper motion and parallax +** iauLdsun light deflection by the Sun +** iauAb stellar aberration +** iauRxp product of r-matrix and pv-vector +** iauC2s p-vector to spherical +** iauAnp normalize angle into range 0 to 2pi +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double pco[3], pnat[3], ppr[3], pi[3], w; + +/* Proper motion and parallax, giving BCRS coordinate direction. */ + iauPmpx(rc, dc, pr, pd, px, rv, astrom->pmt, astrom->eb, pco); + +/* Light deflection by the Sun, giving BCRS natural direction. */ + iauLdsun(pco, astrom->eh, astrom->em, pnat); + +/* Aberration, giving GCRS proper direction. */ + iauAb(pnat, astrom->v, astrom->em, astrom->bm1, ppr); + +/* Bias-precession-nutation, giving CIRS proper direction. */ + iauRxp(astrom->bpn, ppr, pi); + +/* CIRS RA,Dec. */ + iauC2s(pi, &w, di); + *ri = iauAnp(w); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/atciqn.c =================================================================== --- /trunk/FACT++/sofa/src/atciqn.c (revision 18346) +++ /trunk/FACT++/sofa/src/atciqn.c (revision 18346) @@ -0,0 +1,231 @@ +#include "sofa.h" + +void iauAtciqn(double rc, double dc, double pr, double pd, + double px, double rv, iauASTROM *astrom, + int n, iauLDBODY b[], double *ri, double *di) +/* +** - - - - - - - - - - +** i a u A t c i q n +** - - - - - - - - - - +** +** Quick ICRS, epoch J2000.0, to CIRS transformation, given precomputed +** star-independent astrometry parameters plus a list of light- +** deflecting bodies. +** +** Use of this function is appropriate when efficiency is important and +** where many star positions are to be transformed for one date. The +** star-independent parameters can be obtained by calling one of the +** functions iauApci[13], iauApcg[13], iauApco[13] or iauApcs[13]. +** +** If the only light-deflecting body to be taken into account is the +** Sun, the iauAtciq function can be used instead. If in addition the +** parallax and proper motions are zero, the iauAtciqz function can be +** used. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rc,dc double ICRS RA,Dec at J2000.0 (radians) +** pr double RA proper motion (radians/year; Note 3) +** pd double Dec proper motion (radians/year) +** px double parallax (arcsec) +** rv double radial velocity (km/s, +ve if receding) +** 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) +** n int number of bodies (Note 3) +** b iauLDBODY[n] data for each of the n bodies (Notes 3,4): +** bm double mass of the body (solar masses, Note 5) +** dl double deflection limiter (Note 6) +** pv [2][3] barycentric PV of the body (au, au/day) +** +** Returned: +** ri,di double CIRS RA,Dec (radians) +** +** Notes: +** +** 1) Star data for an epoch other than J2000.0 (for example from the +** Hipparcos catalog, which has an epoch of J1991.25) will require a +** preliminary call to iauPmsafe before use. +** +** 2) The proper motion in RA is dRA/dt rather than cos(Dec)*dRA/dt. +** +** 3) The struct b contains n entries, one for each body to be +** considered. If n = 0, no gravitational light deflection will be +** applied, not even for the Sun. +** +** 4) The struct b should include an entry for the Sun as well as for +** any planet or other body to be taken into account. The entries +** should be in the order in which the light passes the body. +** +** 5) In the entry in the b struct for body i, the mass parameter +** b[i].bm can, as required, be adjusted in order to allow for such +** effects as quadrupole field. +** +** 6) The deflection limiter parameter b[i].dl is phi^2/2, where phi is +** the angular separation (in radians) between star and body at +** which limiting is applied. As phi shrinks below the chosen +** threshold, the deflection is artificially reduced, reaching zero +** for phi = 0. Example values suitable for a terrestrial +** observer, together with masses, are as follows: +** +** body i b[i].bm b[i].dl +** +** Sun 1.0 6e-6 +** Jupiter 0.00095435 3e-9 +** Saturn 0.00028574 3e-10 +** +** 7) For efficiency, validation of the contents of the b array is +** omitted. The supplied masses must be greater than zero, the +** position and velocity vectors must be right, and the deflection +** limiter greater than zero. +** +** Called: +** iauPmpx proper motion and parallax +** iauLdn light deflection by n bodies +** iauAb stellar aberration +** iauRxp product of r-matrix and pv-vector +** iauC2s p-vector to spherical +** iauAnp normalize angle into range 0 to 2pi +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double pco[3], pnat[3], ppr[3], pi[3], w; + +/* Proper motion and parallax, giving BCRS coordinate direction. */ + iauPmpx(rc, dc, pr, pd, px, rv, astrom->pmt, astrom->eb, pco); + +/* Light deflection, giving BCRS natural direction. */ + iauLdn(n, b, astrom->eb, pco, pnat); + +/* Aberration, giving GCRS proper direction. */ + iauAb(pnat, astrom->v, astrom->em, astrom->bm1, ppr); + +/* Bias-precession-nutation, giving CIRS proper direction. */ + iauRxp(astrom->bpn, ppr, pi); + +/* CIRS RA,Dec. */ + iauC2s(pi, &w, di); + *ri = iauAnp(w); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/atciqz.c =================================================================== --- /trunk/FACT++/sofa/src/atciqz.c (revision 18346) +++ /trunk/FACT++/sofa/src/atciqz.c (revision 18346) @@ -0,0 +1,194 @@ +#include "sofa.h" + +void iauAtciqz(double rc, double dc, iauASTROM *astrom, + double *ri, double *di) +/* +** - - - - - - - - - - +** i a u A t c i q z +** - - - - - - - - - - +** +** Quick ICRS to CIRS transformation, given precomputed star- +** independent astrometry parameters, and assuming zero parallax and +** proper motion. +** +** Use of this function is appropriate when efficiency is important and +** where many star positions are to be transformed for one date. The +** star-independent parameters can be obtained by calling one of the +** functions iauApci[13], iauApcg[13], iauApco[13] or iauApcs[13]. +** +** The corresponding function for the case of non-zero parallax and +** proper motion is iauAtciq. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rc,dc double ICRS astrometric 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: +** ri,di double CIRS RA,Dec (radians) +** +** Note: +** +** All the vectors are with respect to BCRS axes. +** +** References: +** +** Urban, S. & Seidelmann, P. K. (eds), Explanatory Supplement to +** the Astronomical Almanac, 3rd ed., University Science Books +** (2013). +** +** Klioner, Sergei A., "A practical relativistic model for micro- +** arcsecond astrometry in space", Astr. J. 125, 1580-1597 (2003). +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauLdsun light deflection due to Sun +** iauAb stellar aberration +** iauRxp product of r-matrix and p-vector +** iauC2s p-vector to spherical +** iauAnp normalize angle into range +/- pi +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double pco[3], pnat[3], ppr[3], pi[3], w; + +/* BCRS coordinate direction (unit vector). */ + iauS2c(rc, dc, pco); + +/* Light deflection by the Sun, giving BCRS natural direction. */ + iauLdsun(pco, astrom->eh, astrom->em, pnat); + +/* Aberration, giving GCRS proper direction. */ + iauAb(pnat, astrom->v, astrom->em, astrom->bm1, ppr); + +/* Bias-precession-nutation, giving CIRS proper direction. */ + iauRxp(astrom->bpn, ppr, pi); + +/* CIRS RA,Dec. */ + iauC2s(pi, &w, di); + *ri = iauAnp(w); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/atco13.c =================================================================== --- /trunk/FACT++/sofa/src/atco13.c (revision 18346) +++ /trunk/FACT++/sofa/src/atco13.c (revision 18346) @@ -0,0 +1,284 @@ +#include "sofa.h" + +int iauAtco13(double rc, double dc, + double pr, double pd, double px, double rv, + double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + double *aob, double *zob, double *hob, + double *dob, double *rob, double *eo) +/* +** - - - - - - - - - - +** i a u A t c o 1 3 +** - - - - - - - - - - +** +** ICRS RA,Dec to observed place. The caller supplies UTC, site +** coordinates, ambient air conditions and observing wavelength. +** +** SOFA models are used for the Earth ephemeris, bias-precession- +** nutation, Earth orientation and refraction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rc,dc double ICRS right ascension at J2000.0 (radians, Note 1) +** pr double RA proper motion (radians/year; Note 2) +** pd double Dec proper motion (radians/year) +** px double parallax (arcsec) +** rv double radial velocity (km/s, +ve if receding) +** utc1 double UTC as a 2-part... +** utc2 double ...quasi Julian Date (Notes 3-4) +** dut1 double UT1-UTC (seconds, Note 5) +** elong double longitude (radians, east +ve, Note 6) +** phi double latitude (geodetic, radians, Note 6) +** hm double height above ellipsoid (m, geodetic, Notes 6,8) +** xp,yp double polar motion coordinates (radians, Note 7) +** phpa double pressure at the observer (hPa = mB, Note 8) +** tc double ambient temperature at the observer (deg C) +** rh double relative humidity at the observer (range 0-1) +** wl double wavelength (micrometers, Note 9) +** +** Returned: +** aob double* observed azimuth (radians: N=0,E=90) +** zob double* observed zenith distance (radians) +** hob double* observed hour angle (radians) +** dob double* observed declination (radians) +** rob double* observed right ascension (CIO-based, radians) +** eo double* equation of the origins (ERA-GST) +** +** Returned (function value): +** int status: +1 = dubious year (Note 4) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) Star data for an epoch other than J2000.0 (for example from the +** Hipparcos catalog, which has an epoch of J1991.25) will require +** a preliminary call to iauPmsafe before use. +** +** 2) The proper motion in RA is dRA/dt rather than cos(Dec)*dRA/dt. +** +** 3) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** However, JD cannot unambiguously represent UTC during a leap +** second unless special measures are taken. The convention in the +** present function is that the JD day represents UTC days whether +** the length is 86399, 86400 or 86401 SI seconds. +** +** Applications should use the function iauDtf2d to convert from +** calendar date and time of day into 2-part quasi Julian Date, as +** it implements the leap-second-ambiguity convention just +** described. +** +** 4) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the +** future to be trusted. See iauDat for further details. +** +** 5) UT1-UTC is tabulated in IERS bulletins. It increases by exactly +** one second at the end of each positive UTC leap second, +** introduced in order to keep UT1-UTC within +/- 0.9s. n.b. This +** practice is under review, and in the future UT1-UTC may grow +** essentially without limit. +** +** 6) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN: the +** longitude required by the present function is east-positive +** (i.e. right-handed), in accordance with geographical convention. +** +** 7) The polar motion xp,yp can be obtained from IERS bulletins. The +** values are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions 2003), measured along the +** meridians 0 and 90 deg west respectively. For many +** applications, xp and yp can be set to zero. +** +** 8) If hm, the height above the ellipsoid of the observing station +** in meters, is not known but phpa, the pressure in hPa (=mB), +** is available, an adequate estimate of hm can be obtained from +** the expression +** +** hm = -29.3 * tsl * log ( phpa / 1013.25 ); +** +** where tsl is the approximate sea-level air temperature in K +** (See Astrophysical Quantities, C.W.Allen, 3rd edition, section +** 52). Similarly, if the pressure phpa is not known, it can be +** estimated from the height of the observing station, hm, as +** follows: +** +** phpa = 1013.25 * exp ( -hm / ( 29.3 * tsl ) ); +** +** Note, however, that the refraction is nearly proportional to +** the pressure and that an accurate phpa value is important for +** precise work. +** +** 9) The argument wl specifies the observing wavelength in +** micrometers. The transition from optical to radio is assumed to +** occur at 100 micrometers (about 3000 GHz). +** +** 10) The accuracy of the result is limited by the corrections for +** refraction, which use a simple A*tan(z) + B*tan^3(z) model. +** Providing the meteorological parameters are known accurately and +** there are no gross local effects, the predicted observed +** coordinates should be within 0.05 arcsec (optical) or 1 arcsec +** (radio) for a zenith distance of less than 70 degrees, better +** than 30 arcsec (optical or radio) at 85 degrees and better +** than 20 arcmin (optical) or 30 arcmin (radio) at the horizon. +** +** Without refraction, the complementary functions iauAtco13 and +** iauAtoc13 are self-consistent to better than 1 microarcsecond +** all over the celestial sphere. With refraction included, +** consistency falls off at high zenith distances, but is still +** better than 0.05 arcsec at 85 degrees. +** +** 11) "Observed" Az,ZD means the position that would be seen by a +** perfect geodetically aligned theodolite. (Zenith distance is +** used rather than altitude in order to reflect the fact that no +** allowance is made for depression of the horizon.) This is +** related to the observed HA,Dec via the standard rotation, using +** the geodetic latitude (corrected for polar motion), while the +** observed HA and RA are related simply through the Earth rotation +** angle and the site longitude. "Observed" RA,Dec or HA,Dec thus +** means the position that would be seen by a perfect equatorial +** with its polar axis aligned to the Earth's axis of rotation. +** +** 12) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** Called: +** iauApco13 astrometry parameters, ICRS-observed, 2013 +** iauAtciq quick ICRS to CIRS +** iauAtioq quick ICRS to observed +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int j; + iauASTROM astrom; + double ri, di; + +/* Star-independent astrometry parameters. */ + j = iauApco13(utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, &astrom, eo); + +/* Abort if bad UTC. */ + if ( j < 0 ) return j; + +/* Transform ICRS to CIRS. */ + iauAtciq(rc, dc, pr, pd, px, rv, &astrom, &ri, &di); + +/* Transform CIRS to observed. */ + iauAtioq(ri, di, &astrom, aob, zob, hob, dob, rob); + +/* Return OK/warning status. */ + return j; + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/atic13.c =================================================================== --- /trunk/FACT++/sofa/src/atic13.c (revision 18346) +++ /trunk/FACT++/sofa/src/atic13.c (revision 18346) @@ -0,0 +1,193 @@ +#include "sofa.h" + +void iauAtic13(double ri, double di, double date1, double date2, + double *rc, double *dc, double *eo) +/* +** - - - - - - - - - - +** i a u A t i c 1 3 +** - - - - - - - - - - +** +** Transform star RA,Dec from geocentric CIRS to ICRS astrometric. +** +** 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 geocentric RA,Dec (radians) +** date1 double TDB as a 2-part... +** date2 double ...Julian Date (Note 1) +** +** Returned: +** rc,dc double ICRS astrometric RA,Dec (radians) +** eo double equation of the origins (ERA-GST, Note 4) +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. For most +** applications of this function the choice will not be at all +** critical. +** +** TT can be used instead of TDB without any significant impact on +** accuracy. +** +** 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. +** +** 3) The available accuracy is better than 1 milliarcsecond, limited +** mainly by the precession-nutation model that is used, namely +** IAU 2000A/2006. Very close to solar system bodies, additional +** errors of up to several milliarcseconds can occur because of +** unmodeled light deflection; however, the Sun's contribution is +** taken into account, to first order. The accuracy limitations of +** the SOFA function iauEpv00 (used to compute Earth position and +** velocity) can contribute aberration errors of up to +** 5 microarcseconds. Light deflection at the Sun's limb is +** uncertain at the 0.4 mas level. +** +** 4) Should the transformation to (equinox based) J2000.0 mean place +** be required rather than (CIO based) ICRS coordinates, subtract the +** equation of the origins from the returned right ascension: +** RA = RI - EO. (The iauAnp function can then be applied, as +** required, to keep the result in the conventional 0-2pi range.) +** +** Called: +** iauApci13 astrometry parameters, ICRS-CIRS, 2013 +** iauAticq quick CIRS to ICRS astrometric +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Star-independent astrometry parameters */ + iauASTROM astrom; + +/* Star-independent astrometry parameters. */ + iauApci13(date1, date2, &astrom, eo); + +/* CIRS to ICRS astrometric. */ + iauAticq(ri, di, &astrom, rc, dc); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/aticq.c =================================================================== --- /trunk/FACT++/sofa/src/aticq.c (revision 18346) +++ /trunk/FACT++/sofa/src/aticq.c (revision 18346) @@ -0,0 +1,240 @@ +#include "sofa.h" + +void iauAticq(double ri, double di, iauASTROM *astrom, + double *rc, double *dc) +/* +** - - - - - - - - - +** i a u A t i c q +** - - - - - - - - - +** +** 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 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int j, i; + double pi[3], ppr[3], pnat[3], pco[3], w, d[3], before[3], r2, r, + after[3]; + +/* CIRS RA,Dec to Cartesian. */ + iauS2c(ri, di, pi); + +/* Bias-precession-nutation, giving GCRS proper direction. */ + iauTrxp(astrom->bpn, pi, ppr); + +/* Aberration, giving GCRS natural direction. */ + iauZp(d); + for (j = 0; j < 2; j++) { + r2 = 0.0; + for (i = 0; i < 3; i++) { + w = ppr[i] - d[i]; + before[i] = w; + r2 += w*w; + } + r = sqrt(r2); + for (i = 0; i < 3; i++) { + before[i] /= r; + } + iauAb(before, astrom->v, astrom->em, astrom->bm1, after); + r2 = 0.0; + for (i = 0; i < 3; i++) { + d[i] = after[i] - before[i]; + w = ppr[i] - d[i]; + pnat[i] = w; + r2 += w*w; + } + r = sqrt(r2); + for (i = 0; i < 3; i++) { + pnat[i] /= r; + } + } + +/* Light deflection by the Sun, giving BCRS coordinate direction. */ + iauZp(d); + for (j = 0; j < 5; j++) { + r2 = 0.0; + for (i = 0; i < 3; i++) { + w = pnat[i] - d[i]; + before[i] = w; + r2 += w*w; + } + r = sqrt(r2); + for (i = 0; i < 3; i++) { + before[i] /= r; + } + iauLdsun(before, astrom->eh, astrom->em, after); + r2 = 0.0; + for (i = 0; i < 3; i++) { + d[i] = after[i] - before[i]; + w = pnat[i] - d[i]; + pco[i] = w; + r2 += w*w; + } + r = sqrt(r2); + for (i = 0; i < 3; i++) { + pco[i] /= r; + } + } + +/* ICRS astrometric RA,Dec. */ + iauC2s(pco, &w, dc); + *rc = iauAnp(w); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/aticqn.c =================================================================== --- /trunk/FACT++/sofa/src/aticqn.c (revision 18346) +++ /trunk/FACT++/sofa/src/aticqn.c (revision 18346) @@ -0,0 +1,278 @@ +#include "sofa.h" + +void iauAticqn(double ri, double di, iauASTROM *astrom, + int n, iauLDBODY b[], double *rc, double *dc) +/* +** - - - - - - - - - +** i a u A t i c q n +** - - - - - - - - - +** +** Quick CIRS to ICRS astrometric place transformation, given the star- +** independent astrometry parameters plus a list of light-deflecting +** bodies. +** +** 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]. +* +* If the only light-deflecting body to be taken into account is the +* Sun, the iauAticq function can be used instead. +** +** 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) +** n int number of bodies (Note 3) +** b iauLDBODY[n] data for each of the n bodies (Notes 3,4): +** bm double mass of the body (solar masses, Note 5) +** dl double deflection limiter (Note 6) +** pv [2][3] barycentric PV of the body (au, au/day) +** +** Returned: +** rc,dc double ICRS astrometric RA,Dec (radians) +** +** Notes: +** +** 1) Iterative techniques are used for the aberration and light +** deflection corrections so that the functions iauAticqn and +** iauAtciqn are accurate inverses; even at the edge of the Sun's +** disk the discrepancy is only about 1 nanoarcsecond. +** +** 2) If the only light-deflecting body to be taken into account is the +** Sun, the iauAticq function can be used instead. +** +** 3) The struct b contains n entries, one for each body to be +** considered. If n = 0, no gravitational light deflection will be +** applied, not even for the Sun. +** +** 4) The struct b should include an entry for the Sun as well as for +** any planet or other body to be taken into account. The entries +** should be in the order in which the light passes the body. +** +** 5) In the entry in the b struct for body i, the mass parameter +** b[i].bm can, as required, be adjusted in order to allow for such +** effects as quadrupole field. +** +** 6) The deflection limiter parameter b[i].dl is phi^2/2, where phi is +** the angular separation (in radians) between star and body at +** which limiting is applied. As phi shrinks below the chosen +** threshold, the deflection is artificially reduced, reaching zero +** for phi = 0. Example values suitable for a terrestrial +** observer, together with masses, are as follows: +** +** body i b[i].bm b[i].dl +** +** Sun 1.0 6e-6 +** Jupiter 0.00095435 3e-9 +** Saturn 0.00028574 3e-10 +** +** 7) For efficiency, validation of the contents of the b array is +** omitted. The supplied masses must be greater than zero, the +** position and velocity vectors must be right, and the deflection +** limiter greater than zero. +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauTrxp product of transpose of r-matrix and p-vector +** iauZp zero p-vector +** iauAb stellar aberration +** iauLdn light deflection by n bodies +** iauC2s p-vector to spherical +** iauAnp normalize angle into range +/- pi +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int j, i; + double pi[3], ppr[3], pnat[3], pco[3], w, d[3], before[3], r2, r, + after[3]; + +/* CIRS RA,Dec to Cartesian. */ + iauS2c(ri, di, pi); + +/* Bias-precession-nutation, giving GCRS proper direction. */ + iauTrxp(astrom->bpn, pi, ppr); + +/* Aberration, giving GCRS natural direction. */ + iauZp(d); + for (j = 0; j < 2; j++) { + r2 = 0.0; + for (i = 0; i < 3; i++) { + w = ppr[i] - d[i]; + before[i] = w; + r2 += w*w; + } + r = sqrt(r2); + for (i = 0; i < 3; i++) { + before[i] /= r; + } + iauAb(before, astrom->v, astrom->em, astrom->bm1, after); + r2 = 0.0; + for (i = 0; i < 3; i++) { + d[i] = after[i] - before[i]; + w = ppr[i] - d[i]; + pnat[i] = w; + r2 += w*w; + } + r = sqrt(r2); + for (i = 0; i < 3; i++) { + pnat[i] /= r; + } + } + +/* Light deflection, giving BCRS coordinate direction. */ + iauZp(d); + for (j = 0; j < 5; j++) { + r2 = 0.0; + for (i = 0; i < 3; i++) { + w = pnat[i] - d[i]; + before[i] = w; + r2 += w*w; + } + r = sqrt(r2); + for (i = 0; i < 3; i++) { + before[i] /= r; + } + iauLdn(n, b, astrom->eb, before, after); + r2 = 0.0; + for (i = 0; i < 3; i++) { + d[i] = after[i] - before[i]; + w = pnat[i] - d[i]; + pco[i] = w; + r2 += w*w; + } + r = sqrt(r2); + for (i = 0; i < 3; i++) { + pco[i] /= r; + } + } + +/* ICRS astrometric RA,Dec. */ + iauC2s(pco, &w, dc); + *rc = iauAnp(w); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/atio13.c =================================================================== --- /trunk/FACT++/sofa/src/atio13.c (revision 18346) +++ /trunk/FACT++/sofa/src/atio13.c (revision 18346) @@ -0,0 +1,263 @@ +#include "sofa.h" + +int iauAtio13(double ri, double di, + double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + double *aob, double *zob, double *hob, + double *dob, double *rob) +/* +** - - - - - - - - - - +** i a u A t i o 1 3 +** - - - - - - - - - - +** +** CIRS RA,Dec to observed place. The caller supplies UTC, site +** coordinates, ambient air conditions and observing wavelength. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** ri double CIRS right ascension (CIO-based, radians) +** di double CIRS declination (radians) +** utc1 double UTC as a 2-part... +** utc2 double ...quasi Julian Date (Notes 1,2) +** dut1 double UT1-UTC (seconds, Note 3) +** elong double longitude (radians, east +ve, Note 4) +** phi double geodetic latitude (radians, Note 4) +** hm double height above ellipsoid (m, geodetic Notes 4,6) +** xp,yp double polar motion coordinates (radians, Note 5) +** phpa double pressure at the observer (hPa = mB, Note 6) +** tc double ambient temperature at the observer (deg C) +** rh double relative humidity at the observer (range 0-1) +** wl double wavelength (micrometers, Note 7) +** +** Returned: +** aob double* observed azimuth (radians: N=0,E=90) +** zob double* observed zenith distance (radians) +** hob double* observed hour angle (radians) +** dob double* observed declination (radians) +** rob double* observed right ascension (CIO-based, radians) +** +** Returned (function value): +** int status: +1 = dubious year (Note 2) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** However, JD cannot unambiguously represent UTC during a leap +** second unless special measures are taken. The convention in the +** present function is that the JD day represents UTC days whether +** the length is 86399, 86400 or 86401 SI seconds. +** +** Applications should use the function iauDtf2d to convert from +** calendar date and time of day into 2-part quasi Julian Date, as +** it implements the leap-second-ambiguity convention just +** described. +** +** 2) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the +** future to be trusted. See iauDat for further details. +** +** 3) UT1-UTC is tabulated in IERS bulletins. It increases by exactly +** one second at the end of each positive UTC leap second, +** introduced in order to keep UT1-UTC within +/- 0.9s. n.b. This +** practice is under review, and in the future UT1-UTC may grow +** essentially without limit. +** +** 4) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN: the +** longitude required by the present function is east-positive +** (i.e. right-handed), in accordance with geographical convention. +** +** 5) The polar motion xp,yp can be obtained from IERS bulletins. The +** values are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions 2003), measured along the +** meridians 0 and 90 deg west respectively. For many +** applications, xp and yp can be set to zero. +** +** 6) If hm, the height above the ellipsoid of the observing station +** in meters, is not known but phpa, the pressure in hPa (=mB), is +** available, an adequate estimate of hm can be obtained from the +** expression +** +** hm = -29.3 * tsl * log ( phpa / 1013.25 ); +** +** where tsl is the approximate sea-level air temperature in K +** (See Astrophysical Quantities, C.W.Allen, 3rd edition, section +** 52). Similarly, if the pressure phpa is not known, it can be +** estimated from the height of the observing station, hm, as +** follows: +** +** phpa = 1013.25 * exp ( -hm / ( 29.3 * tsl ) ); +** +** Note, however, that the refraction is nearly proportional to +** the pressure and that an accurate phpa value is important for +** precise work. +** +** 7) The argument wl specifies the observing wavelength in +** micrometers. The transition from optical to radio is assumed to +** occur at 100 micrometers (about 3000 GHz). +** +** 8) "Observed" Az,ZD means the position that would be seen by a +** perfect geodetically aligned theodolite. (Zenith distance is +** used rather than altitude in order to reflect the fact that no +** allowance is made for depression of the horizon.) This is +** related to the observed HA,Dec via the standard rotation, using +** the geodetic latitude (corrected for polar motion), while the +** observed HA and RA are related simply through the Earth rotation +** angle and the site longitude. "Observed" RA,Dec or HA,Dec thus +** means the position that would be seen by a perfect equatorial +** with its polar axis aligned to the Earth's axis of rotation. +** +** 9) The accuracy of the result is limited by the corrections for +** refraction, which use a simple A*tan(z) + B*tan^3(z) model. +** Providing the meteorological parameters are known accurately and +** there are no gross local effects, the predicted astrometric +** coordinates should be within 0.05 arcsec (optical) or 1 arcsec +** (radio) for a zenith distance of less than 70 degrees, better +** than 30 arcsec (optical or radio) at 85 degrees and better +** than 20 arcmin (optical) or 30 arcmin (radio) at the horizon. +** +** 10) The complementary functions iauAtio13 and iauAtoi13 are self- +** consistent to better than 1 microarcsecond all over the +** celestial sphere. +** +** 11) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** Called: +** iauApio13 astrometry parameters, CIRS-observed, 2013 +** iauAtioq quick ICRS to observed +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int j; + iauASTROM astrom; + +/* Star-independent astrometry parameters for CIRS->observed. */ + j = iauApio13(utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, &astrom); + +/* Abort if bad UTC. */ + if ( j < 0 ) return j; + +/* Transform CIRS to observed. */ + iauAtioq(ri, di, &astrom, aob, zob, hob, dob, rob); + +/* Return OK/warning status. */ + return j; + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/atioq.c =================================================================== --- /trunk/FACT++/sofa/src/atioq.c (revision 18346) +++ /trunk/FACT++/sofa/src/atioq.c (revision 18346) @@ -0,0 +1,286 @@ +#include "sofa.h" + +void iauAtioq(double ri, double di, iauASTROM *astrom, + double *aob, double *zob, + double *hob, double *dob, double *rob) +/* +** - - - - - - - - - +** i a u A t i o q +** - - - - - - - - - +** +** Quick CIRS to observed place transformation. +** +** 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 iauApio[13] or iauApco[13]. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** ri double CIRS right ascension +** di double CIRS declination +** 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: +** aob double* observed azimuth (radians: N=0,E=90) +** zob double* observed zenith distance (radians) +** hob double* observed hour angle (radians) +** dob double* observed declination (radians) +** rob double* observed right ascension (CIO-based, radians) +** +** Notes: +** +** 1) This function returns zenith distance rather than altitude in +** order to reflect the fact that no allowance is made for +** depression of the horizon. +** +** 2) The accuracy of the result is limited by the corrections for +** refraction, which use a simple A*tan(z) + B*tan^3(z) model. +** Providing the meteorological parameters are known accurately and +** there are no gross local effects, the predicted observed +** coordinates should be within 0.05 arcsec (optical) or 1 arcsec +** (radio) for a zenith distance of less than 70 degrees, better +** than 30 arcsec (optical or radio) at 85 degrees and better +** than 20 arcmin (optical) or 30 arcmin (radio) at the horizon. +** +** Without refraction, the complementary functions iauAtioq and +** iauAtoiq are self-consistent to better than 1 microarcsecond all +** over the celestial sphere. With refraction included, consistency +** falls off at high zenith distances, but is still better than +** 0.05 arcsec at 85 degrees. +** +** 3) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** 4) The CIRS RA,Dec is obtained from a star catalog mean place by +** allowing for space motion, parallax, the Sun's gravitational lens +** effect, annual aberration and precession-nutation. For star +** positions in the ICRS, these effects can be applied by means of +** the iauAtci13 (etc.) functions. Starting from classical "mean +** place" systems, additional transformations will be needed first. +** +** 5) "Observed" Az,El means the position that would be seen by a +** perfect geodetically aligned theodolite. This is obtained from +** the CIRS RA,Dec by allowing for Earth orientation and diurnal +** aberration, rotating from equator to horizon coordinates, and +** then adjusting for refraction. The HA,Dec is obtained by +** rotating back into equatorial coordinates, and is the position +** that would be seen by a perfect equatorial with its polar axis +** aligned to the Earth's axis of rotation. Finally, the RA is +** obtained by subtracting the HA from the local ERA. +** +** 6) The star-independent CIRS-to-observed-place parameters in ASTROM +** may be computed with iauApio[13] or iauApco[13]. If nothing has +** changed significantly except the time, iauAper[13] may be used to +** perform the requisite adjustment to the astrom structure. +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauC2s p-vector to spherical +** iauAnp normalize angle into range 0 to 2pi +** +** This revision: 2013 December 5 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Minimum cos(alt) and sin(alt) for refraction purposes */ + const double CELMIN = 1e-6; + const double SELMIN = 0.05; + + double v[3], x, y, z, xhd, yhd, zhd, f, xhdt, yhdt, zhdt, + xaet, yaet, zaet, azobs, r, tz, w, del, cosdel, + xaeo, yaeo, zaeo, zdobs, hmobs, dcobs, raobs; + +/*--------------------------------------------------------------------*/ + +/* CIRS RA,Dec to Cartesian -HA,Dec. */ + iauS2c(ri-astrom->eral, di, v); + x = v[0]; + y = v[1]; + z = v[2]; + +/* Polar motion. */ + xhd = x + astrom->xpl*z; + yhd = y - astrom->ypl*z; + zhd = z - astrom->xpl*x + astrom->ypl*y; + +/* Diurnal aberration. */ + f = ( 1.0 - astrom->diurab*yhd ); + xhdt = f * xhd; + yhdt = f * ( yhd + astrom->diurab ); + zhdt = f * zhd; + +/* Cartesian -HA,Dec to Cartesian Az,El (S=0,E=90). */ + xaet = astrom->sphi*xhdt - astrom->cphi*zhdt; + yaet = yhdt; + zaet = astrom->cphi*xhdt + astrom->sphi*zhdt; + +/* Azimuth (N=0,E=90). */ + azobs = ( xaet != 0.0 || yaet != 0.0 ) ? atan2(yaet,-xaet) : 0.0; + +/* ---------- */ +/* Refraction */ +/* ---------- */ + +/* Cosine and sine of altitude, with precautions. */ + r = sqrt(xaet*xaet + yaet*yaet); + r = r > CELMIN ? r : CELMIN; + z = zaet > SELMIN ? zaet : SELMIN; + +/* A*tan(z)+B*tan^3(z) model, with Newton-Raphson correction. */ + tz = r/z; + w = astrom->refb*tz*tz; + del = ( astrom->refa + w ) * tz / + ( 1.0 + ( astrom->refa + 3.0*w ) / ( z*z ) ); + +/* Apply the change, giving observed vector. */ + cosdel = 1.0 - del*del/2.0; + f = cosdel - del*z/r; + xaeo = xaet*f; + yaeo = yaet*f; + zaeo = cosdel*zaet + del*r; + +/* Observed ZD. */ + zdobs = atan2(sqrt(xaeo*xaeo+yaeo*yaeo), zaeo); + +/* Az/El vector to HA,Dec vector (both right-handed). */ + v[0] = astrom->sphi*xaeo + astrom->cphi*zaeo; + v[1] = yaeo; + v[2] = - astrom->cphi*xaeo + astrom->sphi*zaeo; + +/* To spherical -HA,Dec. */ + iauC2s ( v, &hmobs, &dcobs ); + +/* Right ascension (with respect to CIO). */ + raobs = astrom->eral + hmobs; + +/* Return the results. */ + *aob = iauAnp(azobs); + *zob = zdobs; + *hob = -hmobs; + *dob = dcobs; + *rob = iauAnp(raobs); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/atoc13.c =================================================================== --- /trunk/FACT++/sofa/src/atoc13.c (revision 18346) +++ /trunk/FACT++/sofa/src/atoc13.c (revision 18346) @@ -0,0 +1,274 @@ +#include "sofa.h" + +int iauAtoc13(const char *type, double ob1, double ob2, + double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + double *rc, double *dc) +/* +** - - - - - - - - - - +** i a u A t o c 1 3 +** - - - - - - - - - - +** +** Observed place at a groundbased site to to ICRS astrometric RA,Dec. +** The caller supplies UTC, site coordinates, ambient air conditions +** and observing wavelength. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** type char[] type of coordinates - "R", "H" or "A" (Notes 1,2) +** ob1 double observed Az, HA or RA (radians; Az is N=0,E=90) +** ob2 double observed ZD or Dec (radians) +** utc1 double UTC as a 2-part... +** utc2 double ...quasi Julian Date (Notes 3,4) +** dut1 double UT1-UTC (seconds, Note 5) +** elong double longitude (radians, east +ve, Note 6) +** phi double geodetic latitude (radians, Note 6) +** hm double height above ellipsoid (m, geodetic Notes 6,8) +** xp,yp double polar motion coordinates (radians, Note 7) +** phpa double pressure at the observer (hPa = mB, Note 8) +** tc double ambient temperature at the observer (deg C) +** rh double relative humidity at the observer (range 0-1) +** wl double wavelength (micrometers, Note 9) +** +** Returned: +** rc,dc double ICRS astrometric RA,Dec (radians) +** +** Returned (function value): +** int status: +1 = dubious year (Note 4) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) "Observed" Az,ZD means the position that would be seen by a +** perfect geodetically aligned theodolite. (Zenith distance is +** used rather than altitude in order to reflect the fact that no +** allowance is made for depression of the horizon.) This is +** related to the observed HA,Dec via the standard rotation, using +** the geodetic latitude (corrected for polar motion), while the +** observed HA and RA are related simply through the Earth rotation +** angle and the site longitude. "Observed" RA,Dec or HA,Dec thus +** means the position that would be seen by a perfect equatorial +** with its polar axis aligned to the Earth's axis of rotation. +** +** 2) Only the first character of the type argument is significant. +** "R" or "r" indicates that ob1 and ob2 are the observed right +** ascension and declination; "H" or "h" indicates that they are +** hour angle (west +ve) and declination; anything else ("A" or +** "a" is recommended) indicates that ob1 and ob2 are azimuth +** (north zero, east 90 deg) and zenith distance. +** +** 3) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** However, JD cannot unambiguously represent UTC during a leap +** second unless special measures are taken. The convention in the +** present function is that the JD day represents UTC days whether +** the length is 86399, 86400 or 86401 SI seconds. +** +** Applications should use the function iauDtf2d to convert from +** calendar date and time of day into 2-part quasi Julian Date, as +** it implements the leap-second-ambiguity convention just +** described. +** +** 4) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the +** future to be trusted. See iauDat for further details. +** +** 5) UT1-UTC is tabulated in IERS bulletins. It increases by exactly +** one second at the end of each positive UTC leap second, +** introduced in order to keep UT1-UTC within +/- 0.9s. n.b. This +** practice is under review, and in the future UT1-UTC may grow +** essentially without limit. +** +** 6) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN: the +** longitude required by the present function is east-positive +** (i.e. right-handed), in accordance with geographical convention. +** +** 7) The polar motion xp,yp can be obtained from IERS bulletins. The +** values are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions 2003), measured along the +** meridians 0 and 90 deg west respectively. For many +** applications, xp and yp can be set to zero. +** +** 8) If hm, the height above the ellipsoid of the observing station +** in meters, is not known but phpa, the pressure in hPa (=mB), is +** available, an adequate estimate of hm can be obtained from the +** expression +** +** hm = -29.3 * tsl * log ( phpa / 1013.25 ); +** +** where tsl is the approximate sea-level air temperature in K +** (See Astrophysical Quantities, C.W.Allen, 3rd edition, section +** 52). Similarly, if the pressure phpa is not known, it can be +** estimated from the height of the observing station, hm, as +** follows: +** +** phpa = 1013.25 * exp ( -hm / ( 29.3 * tsl ) ); +** +** Note, however, that the refraction is nearly proportional to +** the pressure and that an accurate phpa value is important for +** precise work. +** +** 9) The argument wl specifies the observing wavelength in +** micrometers. The transition from optical to radio is assumed to +** occur at 100 micrometers (about 3000 GHz). +** +** 10) The accuracy of the result is limited by the corrections for +** refraction, which use a simple A*tan(z) + B*tan^3(z) model. +** Providing the meteorological parameters are known accurately and +** there are no gross local effects, the predicted astrometric +** coordinates should be within 0.05 arcsec (optical) or 1 arcsec +** (radio) for a zenith distance of less than 70 degrees, better +** than 30 arcsec (optical or radio) at 85 degrees and better +** than 20 arcmin (optical) or 30 arcmin (radio) at the horizon. +** +** Without refraction, the complementary functions iauAtco13 and +** iauAtoc13 are self-consistent to better than 1 microarcsecond +** all over the celestial sphere. With refraction included, +** consistency falls off at high zenith distances, but is still +** better than 0.05 arcsec at 85 degrees. +** +** 11) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** Called: +** iauApco13 astrometry parameters, ICRS-observed +** iauAtoiq quick observed to CIRS +** iauAticq quick CIRS to ICRS +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int j; + iauASTROM astrom; + double eo, ri, di; + +/* Star-independent astrometry parameters. */ + j = iauApco13(utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, &astrom, &eo); + +/* Abort if bad UTC. */ + if ( j < 0 ) return j; + +/* Transform observed to CIRS. */ + iauAtoiq(type, ob1, ob2, &astrom, &ri, &di); + +/* Transform CIRS to ICRS. */ + iauAticq(ri, di, &astrom, rc, dc); + +/* Return OK/warning status. */ + return j; + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/atoi13.c =================================================================== --- /trunk/FACT++/sofa/src/atoi13.c (revision 18346) +++ /trunk/FACT++/sofa/src/atoi13.c (revision 18346) @@ -0,0 +1,269 @@ +#include "sofa.h" + +int iauAtoi13(const char *type, double ob1, double ob2, + double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + double *ri, double *di) +/* +** - - - - - - - - - - +** i a u A t o i 1 3 +** - - - - - - - - - - +** +** Observed place to CIRS. The caller supplies UTC, site coordinates, +** ambient air conditions and observing wavelength. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** type char[] type of coordinates - "R", "H" or "A" (Notes 1,2) +** ob1 double observed Az, HA or RA (radians; Az is N=0,E=90) +** ob2 double observed ZD or Dec (radians) +** utc1 double UTC as a 2-part... +** utc2 double ...quasi Julian Date (Notes 3,4) +** dut1 double UT1-UTC (seconds, Note 5) +** elong double longitude (radians, east +ve, Note 6) +** phi double geodetic latitude (radians, Note 6) +** hm double height above the ellipsoid (meters, Notes 6,8) +** xp,yp double polar motion coordinates (radians, Note 7) +** phpa double pressure at the observer (hPa = mB, Note 8) +** tc double ambient temperature at the observer (deg C) +** rh double relative humidity at the observer (range 0-1) +** wl double wavelength (micrometers, Note 9) +** +** Returned: +** ri double* CIRS right ascension (CIO-based, radians) +** di double* CIRS declination (radians) +** +** Returned (function value): +** int status: +1 = dubious year (Note 2) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) "Observed" Az,ZD means the position that would be seen by a +** perfect geodetically aligned theodolite. (Zenith distance is +** used rather than altitude in order to reflect the fact that no +** allowance is made for depression of the horizon.) This is +** related to the observed HA,Dec via the standard rotation, using +** the geodetic latitude (corrected for polar motion), while the +** observed HA and RA are related simply through the Earth rotation +** angle and the site longitude. "Observed" RA,Dec or HA,Dec thus +** means the position that would be seen by a perfect equatorial +** with its polar axis aligned to the Earth's axis of rotation. +** +** 2) Only the first character of the type argument is significant. +** "R" or "r" indicates that ob1 and ob2 are the observed right +** ascension and declination; "H" or "h" indicates that they are +** hour angle (west +ve) and declination; anything else ("A" or +** "a" is recommended) indicates that ob1 and ob2 are azimuth +** (north zero, east 90 deg) and zenith distance. +** +** 3) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** However, JD cannot unambiguously represent UTC during a leap +** second unless special measures are taken. The convention in the +** present function is that the JD day represents UTC days whether +** the length is 86399, 86400 or 86401 SI seconds. +** +** Applications should use the function iauDtf2d to convert from +** calendar date and time of day into 2-part quasi Julian Date, as +** it implements the leap-second-ambiguity convention just +** described. +** +** 4) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the +** future to be trusted. See iauDat for further details. +** +** 5) UT1-UTC is tabulated in IERS bulletins. It increases by exactly +** one second at the end of each positive UTC leap second, +** introduced in order to keep UT1-UTC within +/- 0.9s. n.b. This +** practice is under review, and in the future UT1-UTC may grow +** essentially without limit. +** +** 6) The geographical coordinates are with respect to the WGS84 +** reference ellipsoid. TAKE CARE WITH THE LONGITUDE SIGN: the +** longitude required by the present function is east-positive +** (i.e. right-handed), in accordance with geographical convention. +** +** 7) The polar motion xp,yp can be obtained from IERS bulletins. The +** values are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions 2003), measured along the +** meridians 0 and 90 deg west respectively. For many +** applications, xp and yp can be set to zero. +** +** 8) If hm, the height above the ellipsoid of the observing station +** in meters, is not known but phpa, the pressure in hPa (=mB), is +** available, an adequate estimate of hm can be obtained from the +** expression +** +** hm = -29.3 * tsl * log ( phpa / 1013.25 ); +** +** where tsl is the approximate sea-level air temperature in K +** (See Astrophysical Quantities, C.W.Allen, 3rd edition, section +** 52). Similarly, if the pressure phpa is not known, it can be +** estimated from the height of the observing station, hm, as +** follows: +** +** phpa = 1013.25 * exp ( -hm / ( 29.3 * tsl ) ); +** +** Note, however, that the refraction is nearly proportional to +** the pressure and that an accurate phpa value is important for +** precise work. +** +** 9) The argument wl specifies the observing wavelength in +** micrometers. The transition from optical to radio is assumed to +** occur at 100 micrometers (about 3000 GHz). +** +** 10) The accuracy of the result is limited by the corrections for +** refraction, which use a simple A*tan(z) + B*tan^3(z) model. +** Providing the meteorological parameters are known accurately and +** there are no gross local effects, the predicted astrometric +** coordinates should be within 0.05 arcsec (optical) or 1 arcsec +** (radio) for a zenith distance of less than 70 degrees, better +** than 30 arcsec (optical or radio) at 85 degrees and better +** than 20 arcmin (optical) or 30 arcmin (radio) at the horizon. +** +** Without refraction, the complementary functions iauAtio13 and +** iauAtoi13 are self-consistent to better than 1 microarcsecond +** all over the celestial sphere. With refraction included, +** consistency falls off at high zenith distances, but is still +** better than 0.05 arcsec at 85 degrees. +** +** 12) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** Called: +** iauApio13 astrometry parameters, CIRS-observed, 2013 +** iauAtoiq quick observed to CIRS +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int j; + iauASTROM astrom; + +/* Star-independent astrometry parameters for CIRS->observed. */ + j = iauApio13(utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, &astrom); + +/* Abort if bad UTC. */ + if ( j < 0 ) return j; + +/* Transform observed to CIRS. */ + iauAtoiq(type, ob1, ob2, &astrom, ri, di); + +/* Return OK/warning status. */ + return j; + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/atoiq.c =================================================================== --- /trunk/FACT++/sofa/src/atoiq.c (revision 18346) +++ /trunk/FACT++/sofa/src/atoiq.c (revision 18346) @@ -0,0 +1,298 @@ +#include "sofa.h" + +void iauAtoiq(const char *type, + double ob1, double ob2, iauASTROM *astrom, + double *ri, double *di) +/* +** - - - - - - - - - +** i a u A t o i q +** - - - - - - - - - +** +** Quick observed place to CIRS, 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 iauApio[13] or iauApco[13]. +** +** Status: support function. +** +** Given: +** type char[] type of coordinates: "R", "H" or "A" (Note 1) +** ob1 double observed Az, HA or RA (radians; Az is N=0,E=90) +** ob2 double observed ZD or 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: +** ri double* CIRS right ascension (CIO-based, radians) +** di double* CIRS declination (radians) +** +** Notes: +** +** 1) "Observed" Az,El means the position that would be seen by a +** perfect geodetically aligned theodolite. This is related to +** the observed HA,Dec via the standard rotation, using the geodetic +** latitude (corrected for polar motion), while the observed HA and +** RA are related simply through the Earth rotation angle and the +** site longitude. "Observed" RA,Dec or HA,Dec thus means the +** position that would be seen by a perfect equatorial with its +** polar axis aligned to the Earth's axis of rotation. By removing +** from the observed place the effects of atmospheric refraction and +** diurnal aberration, the CIRS RA,Dec is obtained. +** +** 2) Only the first character of the type argument is significant. +** "R" or "r" indicates that ob1 and ob2 are the observed right +** ascension and declination; "H" or "h" indicates that they are +** hour angle (west +ve) and declination; anything else ("A" or +** "a" is recommended) indicates that ob1 and ob2 are azimuth (north +** zero, east 90 deg) and zenith distance. (Zenith distance is used +** rather than altitude in order to reflect the fact that no +** allowance is made for depression of the horizon.) +** +** 3) The accuracy of the result is limited by the corrections for +** refraction, which use a simple A*tan(z) + B*tan^3(z) model. +** Providing the meteorological parameters are known accurately and +** there are no gross local effects, the predicted observed +** coordinates should be within 0.05 arcsec (optical) or 1 arcsec +** (radio) for a zenith distance of less than 70 degrees, better +** than 30 arcsec (optical or radio) at 85 degrees and better than +** 20 arcmin (optical) or 30 arcmin (radio) at the horizon. +** +** Without refraction, the complementary functions iauAtioq and +** iauAtoiq are self-consistent to better than 1 microarcsecond all +** over the celestial sphere. With refraction included, consistency +** falls off at high zenith distances, but is still better than +** 0.05 arcsec at 85 degrees. +** +** 4) It is advisable to take great care with units, as even unlikely +** values of the input parameters are accepted and processed in +** accordance with the models used. +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauC2s p-vector to spherical +** iauAnp normalize angle into range 0 to 2pi +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int c; + double c1, c2, sphi, cphi, ce, xaeo, yaeo, zaeo, v[3], + xmhdo, ymhdo, zmhdo, az, sz, zdo, refa, refb, tz, dref, + zdt, xaet, yaet, zaet, xmhda, ymhda, zmhda, + f, xhd, yhd, zhd, xpl, ypl, w, hma; + +/* Coordinate type. */ + c = (int) type[0]; + +/* Coordinates. */ + c1 = ob1; + c2 = ob2; + +/* Sin, cos of latitude. */ + sphi = astrom->sphi; + cphi = astrom->cphi; + +/* Standardize coordinate type. */ + if ( c == 'r' || c == 'R' ) { + c = 'R'; + } else if ( c == 'h' || c == 'H' ) { + c = 'H'; + } else { + c = 'A'; + } + +/* If Az,ZD, convert to Cartesian (S=0,E=90). */ + if ( c == 'A' ) { + ce = sin(c2); + xaeo = - cos(c1) * ce; + yaeo = sin(c1) * ce; + zaeo = cos(c2); + + } else { + + /* If RA,Dec, convert to HA,Dec. */ + if ( c == 'R' ) c1 = astrom->eral - c1; + + /* To Cartesian -HA,Dec. */ + iauS2c ( -c1, c2, v ); + xmhdo = v[0]; + ymhdo = v[1]; + zmhdo = v[2]; + + /* To Cartesian Az,El (S=0,E=90). */ + xaeo = sphi*xmhdo - cphi*zmhdo; + yaeo = ymhdo; + zaeo = cphi*xmhdo + sphi*zmhdo; + } + +/* Azimuth (S=0,E=90). */ + az = ( xaeo != 0.0 || yaeo != 0.0 ) ? atan2(yaeo,xaeo) : 0.0; + +/* Sine of observed ZD, and observed ZD. */ + sz = sqrt ( xaeo*xaeo + yaeo*yaeo ); + zdo = atan2 ( sz, zaeo ); + +/* +** Refraction +** ---------- +*/ + +/* Fast algorithm using two constant model. */ + refa = astrom->refa; + refb = astrom->refb; + tz = sz / zaeo; + dref = ( refa + refb*tz*tz ) * tz; + zdt = zdo + dref; + +/* To Cartesian Az,ZD. */ + ce = sin(zdt); + xaet = cos(az) * ce; + yaet = sin(az) * ce; + zaet = cos(zdt); + +/* Cartesian Az,ZD to Cartesian -HA,Dec. */ + xmhda = sphi*xaet + cphi*zaet; + ymhda = yaet; + zmhda = - cphi*xaet + sphi*zaet; + +/* Diurnal aberration. */ + f = ( 1.0 + astrom->diurab*ymhda ); + xhd = f * xmhda; + yhd = f * ( ymhda - astrom->diurab ); + zhd = f * zmhda; + +/* Polar motion. */ + xpl = astrom->xpl; + ypl = astrom->ypl; + w = xpl*xhd - ypl*yhd + zhd; + v[0] = xhd - xpl*w; + v[1] = yhd + ypl*w; + v[2] = w - ( xpl*xpl + ypl*ypl ) * zhd; + +/* To spherical -HA,Dec. */ + iauC2s(v, &hma, di); + +/* Right ascension. */ + *ri = iauAnp(astrom->eral + hma); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/bi00.c =================================================================== --- /trunk/FACT++/sofa/src/bi00.c (revision 18346) +++ /trunk/FACT++/sofa/src/bi00.c (revision 18346) @@ -0,0 +1,165 @@ +#include "sofa.h" + +void iauBi00(double *dpsibi, double *depsbi, double *dra) +/* +** - - - - - - - - +** i a u B i 0 0 +** - - - - - - - - +** +** Frame bias components of IAU 2000 precession-nutation models (part +** of MHB2000 with additions). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Returned: +** dpsibi,depsbi double longitude and obliquity corrections +** dra double the ICRS RA of the J2000.0 mean equinox +** +** Notes: +** +** 1) The frame bias corrections in longitude and obliquity (radians) +** are required in order to correct for the offset between the GCRS +** pole and the mean J2000.0 pole. They define, with respect to the +** GCRS frame, a J2000.0 mean pole that is consistent with the rest +** of the IAU 2000A precession-nutation model. +** +** 2) In addition to the displacement of the pole, the complete +** description of the frame bias requires also an offset in right +** ascension. This is not part of the IAU 2000A model, and is from +** Chapront et al. (2002). It is returned in radians. +** +** 3) This is a supplemented implementation of one aspect of the IAU +** 2000A nutation model, formally adopted by the IAU General +** Assembly in 2000, namely MHB2000 (Mathews et al. 2002). +** +** References: +** +** Chapront, J., Chapront-Touze, M. & Francou, G., Astron. +** Astrophys., 387, 700, 2002. +** +** Mathews, P.M., Herring, T.A., Buffet, B.A., "Modeling of nutation +** and precession New nutation series for nonrigid Earth and +** insights into the Earth's interior", J.Geophys.Res., 107, B4, +** 2002. The MHB2000 code itself was obtained on 9th September 2002 +** from ftp://maia.usno.navy.mil/conv2000/chapter5/IAU2000A. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* The frame bias corrections in longitude and obliquity */ + const double DPBIAS = -0.041775 * DAS2R, + DEBIAS = -0.0068192 * DAS2R; + +/* The ICRS RA of the J2000.0 equinox (Chapront et al., 2002) */ + const double DRA0 = -0.0146 * DAS2R; + +/* Return the results (which are fixed). */ + *dpsibi = DPBIAS; + *depsbi = DEBIAS; + *dra = DRA0; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/bp00.c =================================================================== --- /trunk/FACT++/sofa/src/bp00.c (revision 18346) +++ /trunk/FACT++/sofa/src/bp00.c (revision 18346) @@ -0,0 +1,221 @@ +#include "sofa.h" + +void iauBp00(double date1, double date2, + double rb[3][3], double rp[3][3], double rbp[3][3]) +/* +** - - - - - - - - +** i a u B p 0 0 +** - - - - - - - - +** +** Frame bias and precession, IAU 2000. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rb double[3][3] frame bias matrix (Note 2) +** rp double[3][3] precession matrix (Note 3) +** rbp double[3][3] bias-precession matrix (Note 4) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix rb transforms vectors from GCRS to mean J2000.0 by +** applying frame bias. +** +** 3) The matrix rp transforms vectors from J2000.0 mean equator and +** equinox to mean equator and equinox of date by applying +** precession. +** +** 4) The matrix rbp transforms vectors from GCRS to mean equator and +** equinox of date by applying frame bias then precession. It is +** the product rp x rb. +** +** 5) It is permissible to re-use the same array in the returned +** arguments. The arrays are filled in the order given. +** +** Called: +** iauBi00 frame bias components, IAU 2000 +** iauPr00 IAU 2000 precession adjustments +** iauIr initialize r-matrix to identity +** iauRx rotate around X-axis +** iauRy rotate around Y-axis +** iauRz rotate around Z-axis +** iauCr copy r-matrix +** iauRxr product of two r-matrices +** +** Reference: +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** This revision: 2013 August 21 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* J2000.0 obliquity (Lieske et al. 1977) */ + const double EPS0 = 84381.448 * DAS2R; + + double t, dpsibi, depsbi, dra0, psia77, oma77, chia, + dpsipr, depspr, psia, oma, rbw[3][3]; + +/* Interval between fundamental epoch J2000.0 and current date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* Frame bias. */ + iauBi00(&dpsibi, &depsbi, &dra0); + +/* Precession angles (Lieske et al. 1977) */ + psia77 = (5038.7784 + (-1.07259 + (-0.001147) * t) * t) * t * DAS2R; + oma77 = EPS0 + ((0.05127 + (-0.007726) * t) * t) * t * DAS2R; + chia = ( 10.5526 + (-2.38064 + (-0.001125) * t) * t) * t * DAS2R; + +/* Apply IAU 2000 precession corrections. */ + iauPr00(date1, date2, &dpsipr, &depspr); + psia = psia77 + dpsipr; + oma = oma77 + depspr; + +/* Frame bias matrix: GCRS to J2000.0. */ + iauIr(rbw); + iauRz(dra0, rbw); + iauRy(dpsibi*sin(EPS0), rbw); + iauRx(-depsbi, rbw); + iauCr(rbw, rb); + +/* Precession matrix: J2000.0 to mean of date. */ + iauIr(rp); + iauRx(EPS0, rp); + iauRz(-psia, rp); + iauRx(-oma, rp); + iauRz(chia, rp); + +/* Bias-precession matrix: GCRS to mean of date. */ + iauRxr(rp, rbw, rbp); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/bp06.c =================================================================== --- /trunk/FACT++/sofa/src/bp06.c (revision 18346) +++ /trunk/FACT++/sofa/src/bp06.c (revision 18346) @@ -0,0 +1,192 @@ +#include "sofa.h" + +void iauBp06(double date1, double date2, + double rb[3][3], double rp[3][3], double rbp[3][3]) +/* +** - - - - - - - - +** i a u B p 0 6 +** - - - - - - - - +** +** Frame bias and precession, IAU 2006. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rb double[3][3] frame bias matrix (Note 2) +** rp double[3][3] precession matrix (Note 3) +** rbp double[3][3] bias-precession matrix (Note 4) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix rb transforms vectors from GCRS to mean J2000.0 by +** applying frame bias. +** +** 3) The matrix rp transforms vectors from mean J2000.0 to mean of +** date by applying precession. +** +** 4) The matrix rbp transforms vectors from GCRS to mean of date by +** applying frame bias then precession. It is the product rp x rb. +** +** 5) It is permissible to re-use the same array in the returned +** arguments. The arrays are filled in the order given. +** +** Called: +** iauPfw06 bias-precession F-W angles, IAU 2006 +** iauFw2m F-W angles to r-matrix +** iauPmat06 PB matrix, IAU 2006 +** iauTr transpose r-matrix +** iauRxr product of two r-matrices +** iauCr copy r-matrix +** +** References: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +** This revision: 2013 August 21 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double gamb, phib, psib, epsa, rbpw[3][3], rbt[3][3]; + +/* B matrix. */ + iauPfw06(DJM0, DJM00, &gamb, &phib, &psib, &epsa); + iauFw2m(gamb, phib, psib, epsa, rb); + +/* PxB matrix (temporary). */ + iauPmat06(date1, date2, rbpw); + +/* P matrix. */ + iauTr(rb, rbt); + iauRxr(rbpw, rbt, rp); + +/* PxB matrix. */ + iauCr(rbpw, rbp); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/bpn2xy.c =================================================================== --- /trunk/FACT++/sofa/src/bpn2xy.c (revision 18346) +++ /trunk/FACT++/sofa/src/bpn2xy.c (revision 18346) @@ -0,0 +1,150 @@ +#include "sofa.h" + +void iauBpn2xy(double rbpn[3][3], double *x, double *y) +/* +** - - - - - - - - - - +** i a u B p n 2 x y +** - - - - - - - - - - +** +** Extract from the bias-precession-nutation matrix the X,Y coordinates +** of the Celestial Intermediate Pole. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rbpn double[3][3] celestial-to-true matrix (Note 1) +** +** Returned: +** x,y double Celestial Intermediate Pole (Note 2) +** +** Notes: +** +** 1) The matrix rbpn transforms vectors from GCRS to true equator (and +** CIO or equinox) of date, and therefore the Celestial Intermediate +** Pole unit vector is the bottom row of the matrix. +** +** 2) The arguments x,y are components of the Celestial Intermediate +** Pole unit vector in the Geocentric Celestial Reference System. +** +** Reference: +** +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 +** (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Extract the X,Y coordinates. */ + *x = rbpn[2][0]; + *y = rbpn[2][1]; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/c2i00a.c =================================================================== --- /trunk/FACT++/sofa/src/c2i00a.c (revision 18346) +++ /trunk/FACT++/sofa/src/c2i00a.c (revision 18346) @@ -0,0 +1,188 @@ +#include "sofa.h" + +void iauC2i00a(double date1, double date2, double rc2i[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 i 0 0 a +** - - - - - - - - - - +** +** Form the celestial-to-intermediate matrix for a given date using the +** IAU 2000A precession-nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rc2i double[3][3] celestial-to-intermediate matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix rc2i is the first stage in the transformation from +** celestial to terrestrial coordinates: +** +** [TRS] = RPOM * R_3(ERA) * rc2i * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), ERA is the Earth +** Rotation Angle and RPOM is the polar motion matrix. +** +** 3) A faster, but slightly less accurate result (about 1 mas), can be +** obtained by using instead the iauC2i00b function. +** +** Called: +** iauPnm00a classical NPB matrix, IAU 2000A +** iauC2ibpn celestial-to-intermediate matrix, given NPB matrix +** +** References: +** +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 +** (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rbpn[3][3]; + +/* Obtain the celestial-to-true matrix (IAU 2000A). */ + iauPnm00a(date1, date2, rbpn); + +/* Form the celestial-to-intermediate matrix. */ + iauC2ibpn(date1, date2, rbpn, rc2i); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/c2i00b.c =================================================================== --- /trunk/FACT++/sofa/src/c2i00b.c (revision 18346) +++ /trunk/FACT++/sofa/src/c2i00b.c (revision 18346) @@ -0,0 +1,188 @@ +#include "sofa.h" + +void iauC2i00b(double date1, double date2, double rc2i[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 i 0 0 b +** - - - - - - - - - - +** +** Form the celestial-to-intermediate matrix for a given date using the +** IAU 2000B precession-nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rc2i double[3][3] celestial-to-intermediate matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix rc2i is the first stage in the transformation from +** celestial to terrestrial coordinates: +** +** [TRS] = RPOM * R_3(ERA) * rc2i * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), ERA is the Earth +** Rotation Angle and RPOM is the polar motion matrix. +** +** 3) The present function is faster, but slightly less accurate (about +** 1 mas), than the iauC2i00a function. +** +** Called: +** iauPnm00b classical NPB matrix, IAU 2000B +** iauC2ibpn celestial-to-intermediate matrix, given NPB matrix +** +** References: +** +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 +** (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rbpn[3][3]; + +/* Obtain the celestial-to-true matrix (IAU 2000B). */ + iauPnm00b(date1, date2, rbpn); + +/* Form the celestial-to-intermediate matrix. */ + iauC2ibpn(date1, date2, rbpn, rc2i); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/c2i06a.c =================================================================== --- /trunk/FACT++/sofa/src/c2i06a.c (revision 18346) +++ /trunk/FACT++/sofa/src/c2i06a.c (revision 18346) @@ -0,0 +1,185 @@ +#include "sofa.h" + +void iauC2i06a(double date1, double date2, double rc2i[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 i 0 6 a +** - - - - - - - - - - +** +** Form the celestial-to-intermediate matrix for a given date using the +** IAU 2006 precession and IAU 2000A nutation models. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rc2i double[3][3] celestial-to-intermediate matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix rc2i is the first stage in the transformation from +** celestial to terrestrial coordinates: +** +** [TRS] = RPOM * R_3(ERA) * rc2i * [CRS] +** +** = RC2T * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), ERA is the Earth +** Rotation Angle and RPOM is the polar motion matrix. +** +** Called: +** iauPnm06a classical NPB matrix, IAU 2006/2000A +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS06 the CIO locator s, given X,Y, IAU 2006 +** iauC2ixys celestial-to-intermediate matrix, given X,Y and s +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), 2004, IERS Conventions (2003), +** IERS Technical Note No. 32, BKG +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rbpn[3][3], x, y, s; + +/* Obtain the celestial-to-true matrix (IAU 2006/2000A). */ + iauPnm06a(date1, date2, rbpn); + +/* Extract the X,Y coordinates. */ + iauBpn2xy(rbpn, &x, &y); + +/* Obtain the CIO locator. */ + s = iauS06(date1, date2, x, y); + +/* Form the celestial-to-intermediate matrix. */ + iauC2ixys(x, y, s, rc2i); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/c2ibpn.c =================================================================== --- /trunk/FACT++/sofa/src/c2ibpn.c (revision 18346) +++ /trunk/FACT++/sofa/src/c2ibpn.c (revision 18346) @@ -0,0 +1,191 @@ +#include "sofa.h" + +void iauC2ibpn(double date1, double date2, double rbpn[3][3], + double rc2i[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 i b p n +** - - - - - - - - - - +** +** Form the celestial-to-intermediate matrix for a given date given +** the bias-precession-nutation matrix. IAU 2000. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** rbpn double[3][3] celestial-to-true matrix (Note 2) +** +** Returned: +** rc2i double[3][3] celestial-to-intermediate matrix (Note 3) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix rbpn transforms vectors from GCRS to true equator (and +** CIO or equinox) of date. Only the CIP (bottom row) is used. +** +** 3) The matrix rc2i is the first stage in the transformation from +** celestial to terrestrial coordinates: +** +** [TRS] = RPOM * R_3(ERA) * rc2i * [CRS] +** +** = RC2T * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), ERA is the Earth +** Rotation Angle and RPOM is the polar motion matrix. +** +** 4) Although its name does not include "00", This function is in fact +** specific to the IAU 2000 models. +** +** Called: +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauC2ixy celestial-to-intermediate matrix, given X,Y +** +** References: +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double x, y; + +/* Extract the X,Y coordinates. */ + iauBpn2xy(rbpn, &x, &y); + +/* Form the celestial-to-intermediate matrix (n.b. IAU 2000 specific). */ + iauC2ixy(date1, date2, x, y, rc2i); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/c2ixy.c =================================================================== --- /trunk/FACT++/sofa/src/c2ixy.c (revision 18346) +++ /trunk/FACT++/sofa/src/c2ixy.c (revision 18346) @@ -0,0 +1,181 @@ +#include "sofa.h" + +void iauC2ixy(double date1, double date2, double x, double y, + double rc2i[3][3]) +/* +** - - - - - - - - - +** i a u C 2 i x y +** - - - - - - - - - +** +** Form the celestial to intermediate-frame-of-date matrix for a given +** date when the CIP X,Y coordinates are known. IAU 2000. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** x,y double Celestial Intermediate Pole (Note 2) +** +** Returned: +** rc2i double[3][3] celestial-to-intermediate matrix (Note 3) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The Celestial Intermediate Pole coordinates are the x,y components +** of the unit vector in the Geocentric Celestial Reference System. +** +** 3) The matrix rc2i is the first stage in the transformation from +** celestial to terrestrial coordinates: +** +** [TRS] = RPOM * R_3(ERA) * rc2i * [CRS] +** +** = RC2T * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), ERA is the Earth +** Rotation Angle and RPOM is the polar motion matrix. +** +** 4) Although its name does not include "00", This function is in fact +** specific to the IAU 2000 models. +** +** Called: +** iauC2ixys celestial-to-intermediate matrix, given X,Y and s +** iauS00 the CIO locator s, given X,Y, IAU 2000A +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ + +{ +/* Compute s and then the matrix. */ + iauC2ixys(x, y, iauS00(date1, date2, x, y), rc2i); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/c2ixys.c =================================================================== --- /trunk/FACT++/sofa/src/c2ixys.c (revision 18346) +++ /trunk/FACT++/sofa/src/c2ixys.c (revision 18346) @@ -0,0 +1,173 @@ +#include "sofa.h" + +void iauC2ixys(double x, double y, double s, double rc2i[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 i x y s +** - - - - - - - - - - +** +** Form the celestial to intermediate-frame-of-date matrix given the CIP +** X,Y and the CIO locator s. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** x,y double Celestial Intermediate Pole (Note 1) +** s double the CIO locator s (Note 2) +** +** Returned: +** rc2i double[3][3] celestial-to-intermediate matrix (Note 3) +** +** Notes: +** +** 1) The Celestial Intermediate Pole coordinates are the x,y +** components of the unit vector in the Geocentric Celestial +** Reference System. +** +** 2) The CIO locator s (in radians) positions the Celestial +** Intermediate Origin on the equator of the CIP. +** +** 3) The matrix rc2i is the first stage in the transformation from +** celestial to terrestrial coordinates: +** +** [TRS] = RPOM * R_3(ERA) * rc2i * [CRS] +** +** = RC2T * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), ERA is the Earth +** Rotation Angle and RPOM is the polar motion matrix. +** +** Called: +** iauIr initialize r-matrix to identity +** iauRz rotate around Z-axis +** iauRy rotate around Y-axis +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2014 November 7 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double r2, e, d; + + +/* Obtain the spherical angles E and d. */ + r2 = x*x + y*y; + e = (r2 > 0.0) ? atan2(y, x) : 0.0; + d = atan(sqrt(r2 / (1.0 - r2))); + +/* Form the matrix. */ + iauIr(rc2i); + iauRz(e, rc2i); + iauRy(d, rc2i); + iauRz(-(e+s), rc2i); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/c2s.c =================================================================== --- /trunk/FACT++/sofa/src/c2s.c (revision 18346) +++ /trunk/FACT++/sofa/src/c2s.c (revision 18346) @@ -0,0 +1,145 @@ +#include "sofa.h" + +void iauC2s(double p[3], double *theta, double *phi) +/* +** - - - - - - - +** i a u C 2 s +** - - - - - - - +** +** P-vector to spherical coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** p double[3] p-vector +** +** Returned: +** theta double longitude angle (radians) +** phi double latitude angle (radians) +** +** Notes: +** +** 1) The vector p can have any magnitude; only its direction is used. +** +** 2) If p is null, zero theta and phi are returned. +** +** 3) At either pole, zero theta is returned. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double x, y, z, d2; + + x = p[0]; + y = p[1]; + z = p[2]; + d2 = x*x + y*y; + + *theta = (d2 == 0.0) ? 0.0 : atan2(y, x); + *phi = (z == 0.0) ? 0.0 : atan2(z, sqrt(d2)); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/c2t00a.c =================================================================== --- /trunk/FACT++/sofa/src/c2t00a.c (revision 18346) +++ /trunk/FACT++/sofa/src/c2t00a.c (revision 18346) @@ -0,0 +1,203 @@ +#include "sofa.h" + +void iauC2t00a(double tta, double ttb, double uta, double utb, + double xp, double yp, double rc2t[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 t 0 0 a +** - - - - - - - - - - +** +** Form the celestial to terrestrial matrix given the date, the UT1 and +** the polar motion, using the IAU 2000A nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** tta,ttb double TT as a 2-part Julian Date (Note 1) +** uta,utb double UT1 as a 2-part Julian Date (Note 1) +** xp,yp double coordinates of the pole (radians, Note 2) +** +** Returned: +** rc2t double[3][3] celestial-to-terrestrial matrix (Note 3) +** +** Notes: +** +** 1) The TT and UT1 dates tta+ttb and uta+utb are Julian Dates, +** apportioned in any convenient way between the arguments uta and +** utb. For example, JD(UT1)=2450123.7 could be expressed in any of +** these ways, among others: +** +** uta utb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. In the case of uta,utb, the +** date & time method is best matched to the Earth rotation angle +** algorithm used: maximum precision is delivered when the uta +** argument is for 0hrs UT1 on the day in question and the utb +** argument lies in the range 0 to 1, or vice versa. +** +** 2) The arguments xp and yp are the coordinates (in radians) of the +** Celestial Intermediate Pole with respect to the International +** Terrestrial Reference System (see IERS Conventions 2003), +** measured along the meridians to 0 and 90 deg west respectively. +** +** 3) The matrix rc2t transforms from celestial to terrestrial +** coordinates: +** +** [TRS] = RPOM * R_3(ERA) * RC2I * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), RC2I is the +** celestial-to-intermediate matrix, ERA is the Earth rotation +** angle and RPOM is the polar motion matrix. +** +** 4) A faster, but slightly less accurate result (about 1 mas), can +** be obtained by using instead the iauC2t00b function. +** +** Called: +** iauC2i00a celestial-to-intermediate matrix, IAU 2000A +** iauEra00 Earth rotation angle, IAU 2000 +** iauSp00 the TIO locator s', IERS 2000 +** iauPom00 polar motion matrix +** iauC2tcio form CIO-based celestial-to-terrestrial matrix +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rc2i[3][3], era, sp, rpom[3][3]; + +/* Form the celestial-to-intermediate matrix for this TT (IAU 2000A). */ + iauC2i00a(tta, ttb, rc2i ); + +/* Predict the Earth rotation angle for this UT1. */ + era = iauEra00(uta, utb); + +/* Estimate s'. */ + sp = iauSp00(tta, ttb); + +/* Form the polar motion matrix. */ + iauPom00(xp, yp, sp, rpom); + +/* Combine to form the celestial-to-terrestrial matrix. */ + iauC2tcio(rc2i, era, rpom, rc2t); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/c2t00b.c =================================================================== --- /trunk/FACT++/sofa/src/c2t00b.c (revision 18346) +++ /trunk/FACT++/sofa/src/c2t00b.c (revision 18346) @@ -0,0 +1,199 @@ +#include "sofa.h" + +void iauC2t00b(double tta, double ttb, double uta, double utb, + double xp, double yp, double rc2t[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 t 0 0 b +** - - - - - - - - - - +** +** Form the celestial to terrestrial matrix given the date, the UT1 and +** the polar motion, using the IAU 2000B nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** tta,ttb double TT as a 2-part Julian Date (Note 1) +** uta,utb double UT1 as a 2-part Julian Date (Note 1) +** xp,yp double coordinates of the pole (radians, Note 2) +** +** Returned: +** rc2t double[3][3] celestial-to-terrestrial matrix (Note 3) +** +** Notes: +** +** 1) The TT and UT1 dates tta+ttb and uta+utb are Julian Dates, +** apportioned in any convenient way between the arguments uta and +** utb. For example, JD(UT1)=2450123.7 could be expressed in any of +** these ways, among others: +** +** uta utb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. In the case of uta,utb, the +** date & time method is best matched to the Earth rotation angle +** algorithm used: maximum precision is delivered when the uta +** argument is for 0hrs UT1 on the day in question and the utb +** argument lies in the range 0 to 1, or vice versa. +** +** 2) The arguments xp and yp are the coordinates (in radians) of the +** Celestial Intermediate Pole with respect to the International +** Terrestrial Reference System (see IERS Conventions 2003), +** measured along the meridians to 0 and 90 deg west respectively. +** +** 3) The matrix rc2t transforms from celestial to terrestrial +** coordinates: +** +** [TRS] = RPOM * R_3(ERA) * RC2I * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), RC2I is the +** celestial-to-intermediate matrix, ERA is the Earth rotation +** angle and RPOM is the polar motion matrix. +** +** 4) The present function is faster, but slightly less accurate (about +** 1 mas), than the iauC2t00a function. +** +** Called: +** iauC2i00b celestial-to-intermediate matrix, IAU 2000B +** iauEra00 Earth rotation angle, IAU 2000 +** iauPom00 polar motion matrix +** iauC2tcio form CIO-based celestial-to-terrestrial matrix +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rc2i[3][3], era, rpom[3][3]; + +/* Form the celestial-to-intermediate matrix for this TT (IAU 2000B). */ + iauC2i00b(tta, ttb, rc2i); + +/* Predict the Earth rotation angle for this UT1. */ + era = iauEra00(uta, utb); + +/* Form the polar motion matrix (neglecting s'). */ + iauPom00(xp, yp, 0.0, rpom); + +/* Combine to form the celestial-to-terrestrial matrix. */ + iauC2tcio(rc2i, era, rpom, rc2t); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/c2t06a.c =================================================================== --- /trunk/FACT++/sofa/src/c2t06a.c (revision 18346) +++ /trunk/FACT++/sofa/src/c2t06a.c (revision 18346) @@ -0,0 +1,201 @@ +#include "sofa.h" + +void iauC2t06a(double tta, double ttb, double uta, double utb, + double xp, double yp, double rc2t[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 t 0 6 a +** - - - - - - - - - - +** +** Form the celestial to terrestrial matrix given the date, the UT1 and +** the polar motion, using the IAU 2006 precession and IAU 2000A +** nutation models. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** tta,ttb double TT as a 2-part Julian Date (Note 1) +** uta,utb double UT1 as a 2-part Julian Date (Note 1) +** xp,yp double coordinates of the pole (radians, Note 2) +** +** Returned: +** rc2t double[3][3] celestial-to-terrestrial matrix (Note 3) +** +** Notes: +** +** 1) The TT and UT1 dates tta+ttb and uta+utb are Julian Dates, +** apportioned in any convenient way between the arguments uta and +** utb. For example, JD(UT1)=2450123.7 could be expressed in any of +** these ways, among others: +** +** uta utb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. In the case of uta,utb, the +** date & time method is best matched to the Earth rotation angle +** algorithm used: maximum precision is delivered when the uta +** argument is for 0hrs UT1 on the day in question and the utb +** argument lies in the range 0 to 1, or vice versa. +** +** 2) The arguments xp and yp are the coordinates (in radians) of the +** Celestial Intermediate Pole with respect to the International +** Terrestrial Reference System (see IERS Conventions 2003), +** measured along the meridians to 0 and 90 deg west respectively. +** +** 3) The matrix rc2t transforms from celestial to terrestrial +** coordinates: +** +** [TRS] = RPOM * R_3(ERA) * RC2I * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), RC2I is the +** celestial-to-intermediate matrix, ERA is the Earth rotation +** angle and RPOM is the polar motion matrix. +** +** Called: +** iauC2i06a celestial-to-intermediate matrix, IAU 2006/2000A +** iauEra00 Earth rotation angle, IAU 2000 +** iauSp00 the TIO locator s', IERS 2000 +** iauPom00 polar motion matrix +** iauC2tcio form CIO-based celestial-to-terrestrial matrix +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), 2004, IERS Conventions (2003), +** IERS Technical Note No. 32, BKG +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rc2i[3][3], era, sp, rpom[3][3]; + +/* Form the celestial-to-intermediate matrix for this TT. */ + iauC2i06a(tta, ttb, rc2i); + +/* Predict the Earth rotation angle for this UT1. */ + era = iauEra00(uta, utb); + +/* Estimate s'. */ + sp = iauSp00(tta, ttb); + +/* Form the polar motion matrix. */ + iauPom00(xp, yp, sp, rpom); + +/* Combine to form the celestial-to-terrestrial matrix. */ + iauC2tcio(rc2i, era, rpom, rc2t); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/c2tcio.c =================================================================== --- /trunk/FACT++/sofa/src/c2tcio.c (revision 18346) +++ /trunk/FACT++/sofa/src/c2tcio.c (revision 18346) @@ -0,0 +1,171 @@ +#include "sofa.h" + +void iauC2tcio(double rc2i[3][3], double era, double rpom[3][3], + double rc2t[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 t c i o +** - - - - - - - - - - +** +** Assemble the celestial to terrestrial matrix from CIO-based +** components (the celestial-to-intermediate matrix, the Earth Rotation +** Angle and the polar motion matrix). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rc2i double[3][3] celestial-to-intermediate matrix +** era double Earth rotation angle (radians) +** rpom double[3][3] polar-motion matrix +** +** Returned: +** rc2t double[3][3] celestial-to-terrestrial matrix +** +** Notes: +** +** 1) This function constructs the rotation matrix that transforms +** vectors in the celestial system into vectors in the terrestrial +** system. It does so starting from precomputed components, namely +** the matrix which rotates from celestial coordinates to the +** intermediate frame, the Earth rotation angle and the polar motion +** matrix. One use of the present function is when generating a +** series of celestial-to-terrestrial matrices where only the Earth +** Rotation Angle changes, avoiding the considerable overhead of +** recomputing the precession-nutation more often than necessary to +** achieve given accuracy objectives. +** +** 2) The relationship between the arguments is as follows: +** +** [TRS] = RPOM * R_3(ERA) * rc2i * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003). +** +** Called: +** iauCr copy r-matrix +** iauRz rotate around Z-axis +** iauRxr product of two r-matrices +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), 2004, IERS Conventions (2003), +** IERS Technical Note No. 32, BKG +** +** This revision: 2013 August 24 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double r[3][3]; + +/* Construct the matrix. */ + iauCr(rc2i, r); + iauRz(era, r); + iauRxr(rpom, r, rc2t); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/c2teqx.c =================================================================== --- /trunk/FACT++/sofa/src/c2teqx.c (revision 18346) +++ /trunk/FACT++/sofa/src/c2teqx.c (revision 18346) @@ -0,0 +1,171 @@ +#include "sofa.h" + +void iauC2teqx(double rbpn[3][3], double gst, double rpom[3][3], + double rc2t[3][3]) +/* +** - - - - - - - - - - +** i a u C 2 t e q x +** - - - - - - - - - - +** +** Assemble the celestial to terrestrial matrix from equinox-based +** components (the celestial-to-true matrix, the Greenwich Apparent +** Sidereal Time and the polar motion matrix). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rbpn double[3][3] celestial-to-true matrix +** gst double Greenwich (apparent) Sidereal Time (radians) +** rpom double[3][3] polar-motion matrix +** +** Returned: +** rc2t double[3][3] celestial-to-terrestrial matrix (Note 2) +** +** Notes: +** +** 1) This function constructs the rotation matrix that transforms +** vectors in the celestial system into vectors in the terrestrial +** system. It does so starting from precomputed components, namely +** the matrix which rotates from celestial coordinates to the +** true equator and equinox of date, the Greenwich Apparent Sidereal +** Time and the polar motion matrix. One use of the present function +** is when generating a series of celestial-to-terrestrial matrices +** where only the Sidereal Time changes, avoiding the considerable +** overhead of recomputing the precession-nutation more often than +** necessary to achieve given accuracy objectives. +** +** 2) The relationship between the arguments is as follows: +** +** [TRS] = rpom * R_3(gst) * rbpn * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003). +** +** Called: +** iauCr copy r-matrix +** iauRz rotate around Z-axis +** iauRxr product of two r-matrices +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 August 24 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double r[3][3]; + +/* Construct the matrix. */ + iauCr(rbpn, r); + iauRz(gst, r); + iauRxr(rpom, r, rc2t); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/c2tpe.c =================================================================== --- /trunk/FACT++/sofa/src/c2tpe.c (revision 18346) +++ /trunk/FACT++/sofa/src/c2tpe.c (revision 18346) @@ -0,0 +1,216 @@ +#include "sofa.h" + +void iauC2tpe(double tta, double ttb, double uta, double utb, + double dpsi, double deps, double xp, double yp, + double rc2t[3][3]) +/* +** - - - - - - - - - +** i a u C 2 t p e +** - - - - - - - - - +** +** Form the celestial to terrestrial matrix given the date, the UT1, +** the nutation and the polar motion. IAU 2000. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** tta,ttb double TT as a 2-part Julian Date (Note 1) +** uta,utb double UT1 as a 2-part Julian Date (Note 1) +** dpsi,deps double nutation (Note 2) +** xp,yp double coordinates of the pole (radians, Note 3) +** +** Returned: +** rc2t double[3][3] celestial-to-terrestrial matrix (Note 4) +** +** Notes: +** +** 1) The TT and UT1 dates tta+ttb and uta+utb are Julian Dates, +** apportioned in any convenient way between the arguments uta and +** utb. For example, JD(UT1)=2450123.7 could be expressed in any of +** these ways, among others: +** +** uta utb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. In the case of uta,utb, the +** date & time method is best matched to the Earth rotation angle +** algorithm used: maximum precision is delivered when the uta +** argument is for 0hrs UT1 on the day in question and the utb +** argument lies in the range 0 to 1, or vice versa. +** +** 2) The caller is responsible for providing the nutation components; +** they are in longitude and obliquity, in radians and are with +** respect to the equinox and ecliptic of date. For high-accuracy +** applications, free core nutation should be included as well as +** any other relevant corrections to the position of the CIP. +** +** 3) The arguments xp and yp are the coordinates (in radians) of the +** Celestial Intermediate Pole with respect to the International +** Terrestrial Reference System (see IERS Conventions 2003), +** measured along the meridians to 0 and 90 deg west respectively. +** +** 4) The matrix rc2t transforms from celestial to terrestrial +** coordinates: +** +** [TRS] = RPOM * R_3(GST) * RBPN * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), RBPN is the +** bias-precession-nutation matrix, GST is the Greenwich (apparent) +** Sidereal Time and RPOM is the polar motion matrix. +** +** 5) Although its name does not include "00", This function is in fact +** specific to the IAU 2000 models. +** +** Called: +** iauPn00 bias/precession/nutation results, IAU 2000 +** iauGmst00 Greenwich mean sidereal time, IAU 2000 +** iauSp00 the TIO locator s', IERS 2000 +** iauEe00 equation of the equinoxes, IAU 2000 +** iauPom00 polar motion matrix +** iauC2teqx form equinox-based celestial-to-terrestrial matrix +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double epsa, rb[3][3], rp[3][3], rbp[3][3], rn[3][3], + rbpn[3][3], gmst, ee, sp, rpom[3][3]; + +/* Form the celestial-to-true matrix for this TT. */ + iauPn00(tta, ttb, dpsi, deps, &epsa, rb, rp, rbp, rn, rbpn); + +/* Predict the Greenwich Mean Sidereal Time for this UT1 and TT. */ + gmst = iauGmst00(uta, utb, tta, ttb); + +/* Predict the equation of the equinoxes given TT and nutation. */ + ee = iauEe00(tta, ttb, epsa, dpsi); + +/* Estimate s'. */ + sp = iauSp00(tta, ttb); + +/* Form the polar motion matrix. */ + iauPom00(xp, yp, sp, rpom); + +/* Combine to form the celestial-to-terrestrial matrix. */ + iauC2teqx(rbpn, gmst + ee, rpom, rc2t); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/c2txy.c =================================================================== --- /trunk/FACT++/sofa/src/c2txy.c (revision 18346) +++ /trunk/FACT++/sofa/src/c2txy.c (revision 18346) @@ -0,0 +1,208 @@ +#include "sofa.h" + +void iauC2txy(double tta, double ttb, double uta, double utb, + double x, double y, double xp, double yp, + double rc2t[3][3]) +/* +** - - - - - - - - - +** i a u C 2 t x y +** - - - - - - - - - +** +** Form the celestial to terrestrial matrix given the date, the UT1, +** the CIP coordinates and the polar motion. IAU 2000. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** tta,ttb double TT as a 2-part Julian Date (Note 1) +** uta,utb double UT1 as a 2-part Julian Date (Note 1) +** x,y double Celestial Intermediate Pole (Note 2) +** xp,yp double coordinates of the pole (radians, Note 3) +** +** Returned: +** rc2t double[3][3] celestial-to-terrestrial matrix (Note 4) +** +** Notes: +** +** 1) The TT and UT1 dates tta+ttb and uta+utb are Julian Dates, +** apportioned in any convenient way between the arguments uta and +** utb. For example, JD(UT1)=2450123.7 could be expressed in any o +** these ways, among others: +** +** uta utb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. In the case of uta,utb, the +** date & time method is best matched to the Earth rotation angle +** algorithm used: maximum precision is delivered when the uta +** argument is for 0hrs UT1 on the day in question and the utb +** argument lies in the range 0 to 1, or vice versa. +** +** 2) The Celestial Intermediate Pole coordinates are the x,y +** components of the unit vector in the Geocentric Celestial +** Reference System. +** +** 3) The arguments xp and yp are the coordinates (in radians) of the +** Celestial Intermediate Pole with respect to the International +** Terrestrial Reference System (see IERS Conventions 2003), +** measured along the meridians to 0 and 90 deg west respectively. +** +** 4) The matrix rc2t transforms from celestial to terrestrial +** coordinates: +** +** [TRS] = RPOM * R_3(ERA) * RC2I * [CRS] +** +** = rc2t * [CRS] +** +** where [CRS] is a vector in the Geocentric Celestial Reference +** System and [TRS] is a vector in the International Terrestrial +** Reference System (see IERS Conventions 2003), ERA is the Earth +** Rotation Angle and RPOM is the polar motion matrix. +** +** 5) Although its name does not include "00", This function is in fact +** specific to the IAU 2000 models. +** +** Called: +** iauC2ixy celestial-to-intermediate matrix, given X,Y +** iauEra00 Earth rotation angle, IAU 2000 +** iauSp00 the TIO locator s', IERS 2000 +** iauPom00 polar motion matrix +** iauC2tcio form CIO-based celestial-to-terrestrial matrix +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rc2i[3][3], era, sp, rpom[3][3]; + +/* Form the celestial-to-intermediate matrix for this TT. */ + iauC2ixy(tta, ttb, x, y, rc2i); + +/* Predict the Earth rotation angle for this UT1. */ + era = iauEra00(uta, utb); + +/* Estimate s'. */ + sp = iauSp00(tta, ttb); + +/* Form the polar motion matrix. */ + iauPom00(xp, yp, sp, rpom); + +/* Combine to form the celestial-to-terrestrial matrix. */ + iauC2tcio(rc2i, era, rpom, rc2t); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/cal2jd.c =================================================================== --- /trunk/FACT++/sofa/src/cal2jd.c (revision 18346) +++ /trunk/FACT++/sofa/src/cal2jd.c (revision 18346) @@ -0,0 +1,188 @@ +#include "sofa.h" + +int iauCal2jd(int iy, int im, int id, double *djm0, double *djm) +/* +** - - - - - - - - - - +** i a u C a l 2 j d +** - - - - - - - - - - +** +** Gregorian Calendar to Julian Date. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** iy,im,id int year, month, day in Gregorian calendar (Note 1) +** +** Returned: +** djm0 double MJD zero-point: always 2400000.5 +** djm double Modified Julian Date for 0 hrs +** +** Returned (function value): +** int status: +** 0 = OK +** -1 = bad year (Note 3: JD not computed) +** -2 = bad month (JD not computed) +** -3 = bad day (JD computed) +** +** Notes: +** +** 1) The algorithm used is valid from -4800 March 1, but this +** implementation rejects dates before -4799 January 1. +** +** 2) The Julian Date is returned in two pieces, in the usual SOFA +** manner, which is designed to preserve time resolution. The +** Julian Date is available as a single number by adding djm0 and +** djm. +** +** 3) In early eras the conversion is from the "Proleptic Gregorian +** Calendar"; no account is taken of the date(s) of adoption of +** the Gregorian Calendar, nor is the AD/BC numbering convention +** observed. +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 12.92 (p604). +** +** This revision: 2013 August 7 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int j, ly, my; + long iypmy; + +/* Earliest year allowed (4800BC) */ + const int IYMIN = -4799; + +/* Month lengths in days */ + static const int mtab[] + = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}; + +/* Preset status. */ + j = 0; + +/* Validate year and month. */ + if (iy < IYMIN) return -1; + if (im < 1 || im > 12) return -2; + +/* If February in a leap year, 1, otherwise 0. */ + ly = ((im == 2) && !(iy%4) && (iy%100 || !(iy%400))); + +/* Validate day, taking into account leap years. */ + if ( (id < 1) || (id > (mtab[im-1] + ly))) j = -3; + +/* Return result. */ + my = (im - 14) / 12; + iypmy = (long) (iy + my); + *djm0 = DJM0; + *djm = (double)((1461L * (iypmy + 4800L)) / 4L + + (367L * (long) (im - 2 - 12 * my)) / 12L + - (3L * ((iypmy + 4900L) / 100L)) / 4L + + (long) id - 2432076L); + +/* Return status. */ + return j; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/cp.c =================================================================== --- /trunk/FACT++/sofa/src/cp.c (revision 18346) +++ /trunk/FACT++/sofa/src/cp.c (revision 18346) @@ -0,0 +1,130 @@ +#include "sofa.h" + +void iauCp(double p[3], double c[3]) +/* +** - - - - - - +** i a u C p +** - - - - - - +** +** Copy a p-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** p double[3] p-vector to be copied +** +** Returned: +** c double[3] copy +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + c[0] = p[0]; + c[1] = p[1]; + c[2] = p[2]; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/cpv.c =================================================================== --- /trunk/FACT++/sofa/src/cpv.c (revision 18346) +++ /trunk/FACT++/sofa/src/cpv.c (revision 18346) @@ -0,0 +1,132 @@ +#include "sofa.h" + +void iauCpv(double pv[2][3], double c[2][3]) +/* +** - - - - - - - +** i a u C p v +** - - - - - - - +** +** Copy a position/velocity vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** pv double[2][3] position/velocity vector to be copied +** +** Returned: +** c double[2][3] copy +** +** Called: +** iauCp copy p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + iauCp(pv[0], c[0]); + iauCp(pv[1], c[1]); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/cr.c =================================================================== --- /trunk/FACT++/sofa/src/cr.c (revision 18346) +++ /trunk/FACT++/sofa/src/cr.c (revision 18346) @@ -0,0 +1,133 @@ +#include "sofa.h" + +void iauCr(double r[3][3], double c[3][3]) +/* +** - - - - - - +** i a u C r +** - - - - - - +** +** Copy an r-matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** r double[3][3] r-matrix to be copied +** +** Returned: +** char[] double[3][3] copy +** +** Called: +** iauCp copy p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + iauCp(r[0], c[0]); + iauCp(r[1], c[1]); + iauCp(r[2], c[2]); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/d2dtf.c =================================================================== --- /trunk/FACT++/sofa/src/d2dtf.c (revision 18346) +++ /trunk/FACT++/sofa/src/d2dtf.c (revision 18346) @@ -0,0 +1,285 @@ +#include "sofa.h" +#include + +int iauD2dtf(const char *scale, int ndp, double d1, double d2, + int *iy, int *im, int *id, int ihmsf[4]) +/* +** - - - - - - - - - +** i a u D 2 d t f +** - - - - - - - - - +** +** Format for output a 2-part Julian Date (or in the case of UTC a +** quasi-JD form that includes special provision for leap seconds). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** scale char[] time scale ID (Note 1) +** ndp int resolution (Note 2) +** d1,d2 double time as a 2-part Julian Date (Notes 3,4) +** +** Returned: +** iy,im,id int year, month, day in Gregorian calendar (Note 5) +** ihmsf int[4] hours, minutes, seconds, fraction (Note 1) +** +** Returned (function value): +** int status: +1 = dubious year (Note 5) +** 0 = OK +** -1 = unacceptable date (Note 6) +** +** Notes: +** +** 1) scale identifies the time scale. Only the value "UTC" (in upper +** case) is significant, and enables handling of leap seconds (see +** Note 4). +** +** 2) ndp is the number of decimal places in the seconds field, and can +** have negative as well as positive values, such as: +** +** ndp resolution +** -4 1 00 00 +** -3 0 10 00 +** -2 0 01 00 +** -1 0 00 10 +** 0 0 00 01 +** 1 0 00 00.1 +** 2 0 00 00.01 +** 3 0 00 00.001 +** +** The limits are platform dependent, but a safe range is -5 to +9. +** +** 3) d1+d2 is Julian Date, apportioned in any convenient way between +** the two arguments, for example where d1 is the Julian Day Number +** and d2 is the fraction of a day. In the case of UTC, where the +** use of JD is problematical, special conventions apply: see the +** next note. +** +** 4) JD cannot unambiguously represent UTC during a leap second unless +** special measures are taken. The SOFA internal convention is that +** the quasi-JD day represents UTC days whether the length is 86399, +** 86400 or 86401 SI seconds. In the 1960-1972 era there were +** smaller jumps (in either direction) each time the linear UTC(TAI) +** expression was changed, and these "mini-leaps" are also included +** in the SOFA convention. +** +** 5) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the future +** to be trusted. See iauDat for further details. +** +** 6) For calendar conventions and limitations, see iauCal2jd. +** +** Called: +** iauJd2cal JD to Gregorian calendar +** iauD2tf decompose days to hms +** iauDat delta(AT) = TAI-UTC +** +** This revision: 2014 February 15 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int leap; + char s; + int iy1, im1, id1, js, iy2, im2, id2, ihmsf1[4], i; + double a1, b1, fd, dat0, dat12, w, dat24, dleap; + +/* The two-part JD. */ + a1 = d1; + b1 = d2; + +/* Provisional calendar date. */ + js = iauJd2cal(a1, b1, &iy1, &im1, &id1, &fd); + if ( js ) return -1; + +/* Is this a leap second day? */ + leap = 0; + if ( ! strcmp(scale,"UTC") ) { + + /* TAI-UTC at 0h today. */ + js = iauDat(iy1, im1, id1, 0.0, &dat0); + if ( js < 0 ) return -1; + + /* TAI-UTC at 12h today (to detect drift). */ + js = iauDat(iy1, im1, id1, 0.5, &dat12); + if ( js < 0 ) return -1; + + /* TAI-UTC at 0h tomorrow (to detect jumps). */ + js = iauJd2cal(a1+1.5, b1-fd, &iy2, &im2, &id2, &w); + if ( js ) return -1; + js = iauDat(iy2, im2, id2, 0.0, &dat24); + if ( js < 0 ) return -1; + + /* Any sudden change in TAI-UTC (seconds). */ + dleap = dat24 - (2.0*dat12 - dat0); + + /* If leap second day, scale the fraction of a day into SI. */ + leap = (dleap != 0.0); + if (leap) fd += fd * dleap/DAYSEC; + } + +/* Provisional time of day. */ + iauD2tf ( ndp, fd, &s, ihmsf1 ); + +/* Has the (rounded) time gone past 24h? */ + if ( ihmsf1[0] > 23 ) { + + /* Yes. We probably need tomorrow's calendar date. */ + js = iauJd2cal(a1+1.5, b1-fd, &iy2, &im2, &id2, &w); + if ( js ) return -1; + + /* Is today a leap second day? */ + if ( ! leap ) { + + /* No. Use 0h tomorrow. */ + iy1 = iy2; + im1 = im2; + id1 = id2; + ihmsf1[0] = 0; + ihmsf1[1] = 0; + ihmsf1[2] = 0; + + } else { + + /* Yes. Are we past the leap second itself? */ + if ( ihmsf1[2] > 0 ) { + + /* Yes. Use tomorrow but allow for the leap second. */ + iy1 = iy2; + im1 = im2; + id1 = id2; + ihmsf1[0] = 0; + ihmsf1[1] = 0; + ihmsf1[2] = 0; + + } else { + + /* No. Use 23 59 60... today. */ + ihmsf1[0] = 23; + ihmsf1[1] = 59; + ihmsf1[2] = 60; + } + + /* If rounding to 10s or coarser always go up to new day. */ + if ( ndp < 0 && ihmsf1[2] == 60 ) { + iy1 = iy2; + im1 = im2; + id1 = id2; + ihmsf1[0] = 0; + ihmsf1[1] = 0; + ihmsf1[2] = 0; + } + } + } + +/* Results. */ + *iy = iy1; + *im = im1; + *id = id1; + for ( i = 0; i < 4; i++ ) { + ihmsf[i] = ihmsf1[i]; + } + +/* Status. */ + return js; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/d2tf.c =================================================================== --- /trunk/FACT++/sofa/src/d2tf.c (revision 18346) +++ /trunk/FACT++/sofa/src/d2tf.c (revision 18346) @@ -0,0 +1,209 @@ +#include "sofa.h" + +void iauD2tf(int ndp, double days, char *sign, int ihmsf[4]) +/* +** - - - - - - - - +** i a u D 2 t f +** - - - - - - - - +** +** Decompose days to hours, minutes, seconds, fraction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** ndp int resolution (Note 1) +** days double interval in days +** +** Returned: +** sign char '+' or '-' +** ihmsf int[4] hours, minutes, seconds, fraction +** +** Notes: +** +** 1) The argument ndp is interpreted as follows: +** +** ndp resolution +** : ...0000 00 00 +** -7 1000 00 00 +** -6 100 00 00 +** -5 10 00 00 +** -4 1 00 00 +** -3 0 10 00 +** -2 0 01 00 +** -1 0 00 10 +** 0 0 00 01 +** 1 0 00 00.1 +** 2 0 00 00.01 +** 3 0 00 00.001 +** : 0 00 00.000... +** +** 2) The largest positive useful value for ndp is determined by the +** size of days, the format of double on the target platform, and +** the risk of overflowing ihmsf[3]. On a typical platform, for +** days up to 1.0, the available floating-point precision might +** correspond to ndp=12. However, the practical limit is typically +** ndp=9, set by the capacity of a 32-bit int, or ndp=4 if int is +** only 16 bits. +** +** 3) The absolute value of days may exceed 1.0. In cases where it +** does not, it is up to the caller to test for and handle the +** case where days is very nearly 1.0 and rounds up to 24 hours, +** by testing for ihmsf[0]=24 and setting ihmsf[0-3] to zero. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int nrs, n; + double rs, rm, rh, a, w, ah, am, as, af; + +/* Handle sign. */ + *sign = (char) ( ( days >= 0.0 ) ? '+' : '-' ); + +/* Interval in seconds. */ + a = DAYSEC * fabs(days); + +/* Pre-round if resolution coarser than 1s (then pretend ndp=1). */ + if (ndp < 0) { + nrs = 1; + for (n = 1; n <= -ndp; n++) { + nrs *= (n == 2 || n == 4) ? 6 : 10; + } + rs = (double) nrs; + w = a / rs; + a = rs * dnint(w); + } + +/* Express the unit of each field in resolution units. */ + nrs = 1; + for (n = 1; n <= ndp; n++) { + nrs *= 10; + } + rs = (double) nrs; + rm = rs * 60.0; + rh = rm * 60.0; + +/* Round the interval and express in resolution units. */ + a = dnint(rs * a); + +/* Break into fields. */ + ah = a / rh; + ah = dint(ah); + a -= ah * rh; + am = a / rm; + am = dint(am); + a -= am * rm; + as = a / rs; + as = dint(as); + af = a - as * rs; + +/* Return results. */ + ihmsf[0] = (int) ah; + ihmsf[1] = (int) am; + ihmsf[2] = (int) as; + ihmsf[3] = (int) af; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/dat.c =================================================================== --- /trunk/FACT++/sofa/src/dat.c (revision 18346) +++ /trunk/FACT++/sofa/src/dat.c (revision 18346) @@ -0,0 +1,346 @@ +#include "sofa.h" + +int iauDat(int iy, int im, int id, double fd, double *deltat ) +/* +** - - - - - - - +** i a u D a t +** - - - - - - - +** +** For a given UTC date, calculate delta(AT) = TAI-UTC. +** +** :------------------------------------------: +** : : +** : IMPORTANT : +** : : +** : A new version of this function must be : +** : produced whenever a new leap second is : +** : announced. There are four items to : +** : change on each such occasion: : +** : : +** : 1) A new line must be added to the set : +** : of statements that initialize the : +** : array "changes". : +** : : +** : 2) The constant IYV must be set to the : +** : current year. : +** : : +** : 3) The "Latest leap second" comment : +** : below must be set to the new leap : +** : second date. : +** : : +** : 4) The "This revision" comment, later, : +** : must be set to the current date. : +** : : +** : Change (2) must also be carried out : +** : whenever the function is re-issued, : +** : even if no leap seconds have been : +** : added. : +** : : +** : Latest leap second: 2015 June 30 : +** : : +** :__________________________________________: +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** iy int UTC: year (Notes 1 and 2) +** im int month (Note 2) +** id int day (Notes 2 and 3) +** fd double fraction of day (Note 4) +** +** Returned: +** deltat double TAI minus UTC, seconds +** +** Returned (function value): +** int status (Note 5): +** 1 = dubious year (Note 1) +** 0 = OK +** -1 = bad year +** -2 = bad month +** -3 = bad day (Note 3) +** -4 = bad fraction (Note 4) +** -5 = internal error (Note 5) +** +** Notes: +** +** 1) UTC began at 1960 January 1.0 (JD 2436934.5) and it is improper +** to call the function with an earlier date. If this is attempted, +** zero is returned together with a warning status. +** +** Because leap seconds cannot, in principle, be predicted in +** advance, a reliable check for dates beyond the valid range is +** impossible. To guard against gross errors, a year five or more +** after the release year of the present function (see the constant +** IYV) is considered dubious. In this case a warning status is +** returned but the result is computed in the normal way. +** +** For both too-early and too-late years, the warning status is +1. +** This is distinct from the error status -1, which signifies a year +** so early that JD could not be computed. +** +** 2) If the specified date is for a day which ends with a leap second, +** the UTC-TAI value returned is for the period leading up to the +** leap second. If the date is for a day which begins as a leap +** second ends, the UTC-TAI returned is for the period following the +** leap second. +** +** 3) The day number must be in the normal calendar range, for example +** 1 through 30 for April. The "almanac" convention of allowing +** such dates as January 0 and December 32 is not supported in this +** function, in order to avoid confusion near leap seconds. +** +** 4) The fraction of day is used only for dates before the +** introduction of leap seconds, the first of which occurred at the +** end of 1971. It is tested for validity (0 to 1 is the valid +** range) even if not used; if invalid, zero is used and status -4 +** is returned. For many applications, setting fd to zero is +** acceptable; the resulting error is always less than 3 ms (and +** occurs only pre-1972). +** +** 5) The status value returned in the case where there are multiple +** errors refers to the first error detected. For example, if the +** month and day are 13 and 32 respectively, status -2 (bad month) +** will be returned. The "internal error" status refers to a +** case that is impossible but causes some compilers to issue a +** warning. +** +** 6) In cases where a valid result is not available, zero is returned. +** +** References: +** +** 1) For dates from 1961 January 1 onwards, the expressions from the +** file ftp://maia.usno.navy.mil/ser7/tai-utc.dat are used. +** +** 2) The 5ms timestep at 1961 January 1 is taken from 2.58.1 (p87) of +** the 1992 Explanatory Supplement. +** +** Called: +** iauCal2jd Gregorian calendar to JD +** +** This revision: 2015 February 27 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Release year for this version of iauDat */ + enum { IYV = 2015}; + +/* Reference dates (MJD) and drift rates (s/day), pre leap seconds */ + static const double drift[][2] = { + { 37300.0, 0.0012960 }, + { 37300.0, 0.0012960 }, + { 37300.0, 0.0012960 }, + { 37665.0, 0.0011232 }, + { 37665.0, 0.0011232 }, + { 38761.0, 0.0012960 }, + { 38761.0, 0.0012960 }, + { 38761.0, 0.0012960 }, + { 38761.0, 0.0012960 }, + { 38761.0, 0.0012960 }, + { 38761.0, 0.0012960 }, + { 38761.0, 0.0012960 }, + { 39126.0, 0.0025920 }, + { 39126.0, 0.0025920 } + }; + +/* Number of Delta(AT) expressions before leap seconds were introduced */ + enum { NERA1 = (int) (sizeof drift / sizeof (double) / 2) }; + +/* Dates and Delta(AT)s */ + static const struct { + int iyear, month; + double delat; + } changes[] = { + { 1960, 1, 1.4178180 }, + { 1961, 1, 1.4228180 }, + { 1961, 8, 1.3728180 }, + { 1962, 1, 1.8458580 }, + { 1963, 11, 1.9458580 }, + { 1964, 1, 3.2401300 }, + { 1964, 4, 3.3401300 }, + { 1964, 9, 3.4401300 }, + { 1965, 1, 3.5401300 }, + { 1965, 3, 3.6401300 }, + { 1965, 7, 3.7401300 }, + { 1965, 9, 3.8401300 }, + { 1966, 1, 4.3131700 }, + { 1968, 2, 4.2131700 }, + { 1972, 1, 10.0 }, + { 1972, 7, 11.0 }, + { 1973, 1, 12.0 }, + { 1974, 1, 13.0 }, + { 1975, 1, 14.0 }, + { 1976, 1, 15.0 }, + { 1977, 1, 16.0 }, + { 1978, 1, 17.0 }, + { 1979, 1, 18.0 }, + { 1980, 1, 19.0 }, + { 1981, 7, 20.0 }, + { 1982, 7, 21.0 }, + { 1983, 7, 22.0 }, + { 1985, 7, 23.0 }, + { 1988, 1, 24.0 }, + { 1990, 1, 25.0 }, + { 1991, 1, 26.0 }, + { 1992, 7, 27.0 }, + { 1993, 7, 28.0 }, + { 1994, 7, 29.0 }, + { 1996, 1, 30.0 }, + { 1997, 7, 31.0 }, + { 1999, 1, 32.0 }, + { 2006, 1, 33.0 }, + { 2009, 1, 34.0 }, + { 2012, 7, 35.0 }, + { 2015, 7, 36.0 } + }; + +/* Number of Delta(AT) changes */ + enum { NDAT = (int) (sizeof changes / sizeof changes[0]) }; + +/* Miscellaneous local variables */ + int j, i, m; + double da, djm0, djm; + + +/* Initialize the result to zero. */ + *deltat = da = 0.0; + +/* If invalid fraction of a day, set error status and give up. */ + if (fd < 0.0 || fd > 1.0) return -4; + +/* Convert the date into an MJD. */ + j = iauCal2jd(iy, im, id, &djm0, &djm); + +/* If invalid year, month, or day, give up. */ + if (j < 0) return j; + +/* If pre-UTC year, set warning status and give up. */ + if (iy < changes[0].iyear) return 1; + +/* If suspiciously late year, set warning status but proceed. */ + if (iy > IYV + 5) j = 1; + +/* Combine year and month to form a date-ordered integer... */ + m = 12*iy + im; + +/* ...and use it to find the preceding table entry. */ + for (i = NDAT-1; i >=0; i--) { + if (m >= (12 * changes[i].iyear + changes[i].month)) break; + } + +/* Prevent underflow warnings. */ + if (i < 0) return -5; + +/* Get the Delta(AT). */ + da = changes[i].delat; + +/* If pre-1972, adjust for drift. */ + if (i < NERA1) da += (djm + fd - drift[i][0]) * drift[i][1]; + +/* Return the Delta(AT) value. */ + *deltat = da; + +/* Return the status. */ + return j; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/dtdb.c =================================================================== --- /trunk/FACT++/sofa/src/dtdb.c (revision 18346) +++ /trunk/FACT++/sofa/src/dtdb.c (revision 18346) @@ -0,0 +1,1262 @@ +#include "sofa.h" + +double iauDtdb(double date1, double date2, + double ut, double elong, double u, double v) +/* +** - - - - - - - - +** i a u D t d b +** - - - - - - - - +** +** An approximation to TDB-TT, the difference between barycentric +** dynamical time and terrestrial time, for an observer on the Earth. +** +** The different time scales - proper, coordinate and realized - are +** related to each other: +** +** TAI <- physically realized +** : +** offset <- observed (nominally +32.184s) +** : +** TT <- terrestrial time +** : +** rate adjustment (L_G) <- definition of TT +** : +** TCG <- time scale for GCRS +** : +** "periodic" terms <- iauDtdb is an implementation +** : +** rate adjustment (L_C) <- function of solar-system ephemeris +** : +** TCB <- time scale for BCRS +** : +** rate adjustment (-L_B) <- definition of TDB +** : +** TDB <- TCB scaled to track TT +** : +** "periodic" terms <- -iauDtdb is an approximation +** : +** TT <- terrestrial time +** +** Adopted values for the various constants can be found in the IERS +** Conventions (McCarthy & Petit 2003). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support routine. +** +** Given: +** date1,date2 double date, TDB (Notes 1-3) +** ut double universal time (UT1, fraction of one day) +** elong double longitude (east positive, radians) +** u double distance from Earth spin axis (km) +** v double distance north of equatorial plane (km) +** +** Returned (function value): +** double TDB-TT (seconds) +** +** Notes: +** +** 1) The date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** Although the date is, formally, barycentric dynamical time (TDB), +** the terrestrial dynamical time (TT) can be used with no practical +** effect on the accuracy of the prediction. +** +** 2) TT can be regarded as a coordinate time that is realized as an +** offset of 32.184s from International Atomic Time, TAI. TT is a +** specific linear transformation of geocentric coordinate time TCG, +** which is the time scale for the Geocentric Celestial Reference +** System, GCRS. +** +** 3) TDB is a coordinate time, and is a specific linear transformation +** of barycentric coordinate time TCB, which is the time scale for +** the Barycentric Celestial Reference System, BCRS. +** +** 4) The difference TCG-TCB depends on the masses and positions of the +** bodies of the solar system and the velocity of the Earth. It is +** dominated by a rate difference, the residual being of a periodic +** character. The latter, which is modeled by the present function, +** comprises a main (annual) sinusoidal term of amplitude +** approximately 0.00166 seconds, plus planetary terms up to about +** 20 microseconds, and lunar and diurnal terms up to 2 microseconds. +** These effects come from the changing transverse Doppler effect +** and gravitational red-shift as the observer (on the Earth's +** surface) experiences variations in speed (with respect to the +** BCRS) and gravitational potential. +** +** 5) TDB can be regarded as the same as TCB but with a rate adjustment +** to keep it close to TT, which is convenient for many applications. +** The history of successive attempts to define TDB is set out in +** Resolution 3 adopted by the IAU General Assembly in 2006, which +** defines a fixed TDB(TCB) transformation that is consistent with +** contemporary solar-system ephemerides. Future ephemerides will +** imply slightly changed transformations between TCG and TCB, which +** could introduce a linear drift between TDB and TT; however, any +** such drift is unlikely to exceed 1 nanosecond per century. +** +** 6) The geocentric TDB-TT model used in the present function is that of +** Fairhead & Bretagnon (1990), in its full form. It was originally +** supplied by Fairhead (private communications with P.T.Wallace, +** 1990) as a Fortran subroutine. The present C function contains an +** adaptation of the Fairhead code. The numerical results are +** essentially unaffected by the changes, the differences with +** respect to the Fairhead & Bretagnon original being at the 1e-20 s +** level. +** +** The topocentric part of the model is from Moyer (1981) and +** Murray (1983), with fundamental arguments adapted from +** Simon et al. 1994. It is an approximation to the expression +** ( v / c ) . ( r / c ), where v is the barycentric velocity of +** the Earth, r is the geocentric position of the observer and +** c is the speed of light. +** +** By supplying zeroes for u and v, the topocentric part of the +** model can be nullified, and the function will return the Fairhead +** & Bretagnon result alone. +** +** 7) During the interval 1950-2050, the absolute accuracy is better +** than +/- 3 nanoseconds relative to time ephemerides obtained by +** direct numerical integrations based on the JPL DE405 solar system +** ephemeris. +** +** 8) It must be stressed that the present function is merely a model, +** and that numerical integration of solar-system ephemerides is the +** definitive method for predicting the relationship between TCG and +** TCB and hence between TT and TDB. +** +** References: +** +** Fairhead, L., & Bretagnon, P., Astron.Astrophys., 229, 240-247 +** (1990). +** +** IAU 2006 Resolution 3. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Moyer, T.D., Cel.Mech., 23, 33 (1981). +** +** Murray, C.A., Vectorial Astrometry, Adam Hilger (1983). +** +** Seidelmann, P.K. et al., Explanatory Supplement to the +** Astronomical Almanac, Chapter 2, University Science Books (1992). +** +** Simon, J.L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G. & Laskar, J., Astron.Astrophys., 282, 663-683 (1994). +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t, tsol, w, elsun, emsun, d, elj, els, wt, w0, w1, w2, w3, w4, + wf, wj; + int j; + +/* +** ===================== +** Fairhead et al. model +** ===================== +** +** 787 sets of three coefficients. +** +** Each set is +** amplitude (microseconds) +** frequency (radians per Julian millennium since J2000.0) +** phase (radians) +** +** Sets 1-474 are the T**0 terms +** " 475-679 " " T**1 +** " 680-764 " " T**2 +** " 765-784 " " T**3 +** " 785-787 " " T**4 +*/ + + static const double fairhd[787][3] = { + /* 1, 10 */ + { 1656.674564e-6, 6283.075849991, 6.240054195 }, + { 22.417471e-6, 5753.384884897, 4.296977442 }, + { 13.839792e-6, 12566.151699983, 6.196904410 }, + { 4.770086e-6, 529.690965095, 0.444401603 }, + { 4.676740e-6, 6069.776754553, 4.021195093 }, + { 2.256707e-6, 213.299095438, 5.543113262 }, + { 1.694205e-6, -3.523118349, 5.025132748 }, + { 1.554905e-6, 77713.771467920, 5.198467090 }, + { 1.276839e-6, 7860.419392439, 5.988822341 }, + { 1.193379e-6, 5223.693919802, 3.649823730 }, + /* 11, 20 */ + { 1.115322e-6, 3930.209696220, 1.422745069 }, + { 0.794185e-6, 11506.769769794, 2.322313077 }, + { 0.447061e-6, 26.298319800, 3.615796498 }, + { 0.435206e-6, -398.149003408, 4.349338347 }, + { 0.600309e-6, 1577.343542448, 2.678271909 }, + { 0.496817e-6, 6208.294251424, 5.696701824 }, + { 0.486306e-6, 5884.926846583, 0.520007179 }, + { 0.432392e-6, 74.781598567, 2.435898309 }, + { 0.468597e-6, 6244.942814354, 5.866398759 }, + { 0.375510e-6, 5507.553238667, 4.103476804 }, + /* 21, 30 */ + { 0.243085e-6, -775.522611324, 3.651837925 }, + { 0.173435e-6, 18849.227549974, 6.153743485 }, + { 0.230685e-6, 5856.477659115, 4.773852582 }, + { 0.203747e-6, 12036.460734888, 4.333987818 }, + { 0.143935e-6, -796.298006816, 5.957517795 }, + { 0.159080e-6, 10977.078804699, 1.890075226 }, + { 0.119979e-6, 38.133035638, 4.551585768 }, + { 0.118971e-6, 5486.777843175, 1.914547226 }, + { 0.116120e-6, 1059.381930189, 0.873504123 }, + { 0.137927e-6, 11790.629088659, 1.135934669 }, + /* 31, 40 */ + { 0.098358e-6, 2544.314419883, 0.092793886 }, + { 0.101868e-6, -5573.142801634, 5.984503847 }, + { 0.080164e-6, 206.185548437, 2.095377709 }, + { 0.079645e-6, 4694.002954708, 2.949233637 }, + { 0.062617e-6, 20.775395492, 2.654394814 }, + { 0.075019e-6, 2942.463423292, 4.980931759 }, + { 0.064397e-6, 5746.271337896, 1.280308748 }, + { 0.063814e-6, 5760.498431898, 4.167901731 }, + { 0.048042e-6, 2146.165416475, 1.495846011 }, + { 0.048373e-6, 155.420399434, 2.251573730 }, + /* 41, 50 */ + { 0.058844e-6, 426.598190876, 4.839650148 }, + { 0.046551e-6, -0.980321068, 0.921573539 }, + { 0.054139e-6, 17260.154654690, 3.411091093 }, + { 0.042411e-6, 6275.962302991, 2.869567043 }, + { 0.040184e-6, -7.113547001, 3.565975565 }, + { 0.036564e-6, 5088.628839767, 3.324679049 }, + { 0.040759e-6, 12352.852604545, 3.981496998 }, + { 0.036507e-6, 801.820931124, 6.248866009 }, + { 0.036955e-6, 3154.687084896, 5.071801441 }, + { 0.042732e-6, 632.783739313, 5.720622217 }, + /* 51, 60 */ + { 0.042560e-6, 161000.685737473, 1.270837679 }, + { 0.040480e-6, 15720.838784878, 2.546610123 }, + { 0.028244e-6, -6286.598968340, 5.069663519 }, + { 0.033477e-6, 6062.663207553, 4.144987272 }, + { 0.034867e-6, 522.577418094, 5.210064075 }, + { 0.032438e-6, 6076.890301554, 0.749317412 }, + { 0.030215e-6, 7084.896781115, 3.389610345 }, + { 0.029247e-6, -71430.695617928, 4.183178762 }, + { 0.033529e-6, 9437.762934887, 2.404714239 }, + { 0.032423e-6, 8827.390269875, 5.541473556 }, + /* 61, 70 */ + { 0.027567e-6, 6279.552731642, 5.040846034 }, + { 0.029862e-6, 12139.553509107, 1.770181024 }, + { 0.022509e-6, 10447.387839604, 1.460726241 }, + { 0.020937e-6, 8429.241266467, 0.652303414 }, + { 0.020322e-6, 419.484643875, 3.735430632 }, + { 0.024816e-6, -1194.447010225, 1.087136918 }, + { 0.025196e-6, 1748.016413067, 2.901883301 }, + { 0.021691e-6, 14143.495242431, 5.952658009 }, + { 0.017673e-6, 6812.766815086, 3.186129845 }, + { 0.022567e-6, 6133.512652857, 3.307984806 }, + /* 71, 80 */ + { 0.016155e-6, 10213.285546211, 1.331103168 }, + { 0.014751e-6, 1349.867409659, 4.308933301 }, + { 0.015949e-6, -220.412642439, 4.005298270 }, + { 0.015974e-6, -2352.866153772, 6.145309371 }, + { 0.014223e-6, 17789.845619785, 2.104551349 }, + { 0.017806e-6, 73.297125859, 3.475975097 }, + { 0.013671e-6, -536.804512095, 5.971672571 }, + { 0.011942e-6, 8031.092263058, 2.053414715 }, + { 0.014318e-6, 16730.463689596, 3.016058075 }, + { 0.012462e-6, 103.092774219, 1.737438797 }, + /* 81, 90 */ + { 0.010962e-6, 3.590428652, 2.196567739 }, + { 0.015078e-6, 19651.048481098, 3.969480770 }, + { 0.010396e-6, 951.718406251, 5.717799605 }, + { 0.011707e-6, -4705.732307544, 2.654125618 }, + { 0.010453e-6, 5863.591206116, 1.913704550 }, + { 0.012420e-6, 4690.479836359, 4.734090399 }, + { 0.011847e-6, 5643.178563677, 5.489005403 }, + { 0.008610e-6, 3340.612426700, 3.661698944 }, + { 0.011622e-6, 5120.601145584, 4.863931876 }, + { 0.010825e-6, 553.569402842, 0.842715011 }, + /* 91, 100 */ + { 0.008666e-6, -135.065080035, 3.293406547 }, + { 0.009963e-6, 149.563197135, 4.870690598 }, + { 0.009858e-6, 6309.374169791, 1.061816410 }, + { 0.007959e-6, 316.391869657, 2.465042647 }, + { 0.010099e-6, 283.859318865, 1.942176992 }, + { 0.007147e-6, -242.728603974, 3.661486981 }, + { 0.007505e-6, 5230.807466803, 4.920937029 }, + { 0.008323e-6, 11769.853693166, 1.229392026 }, + { 0.007490e-6, -6256.777530192, 3.658444681 }, + { 0.009370e-6, 149854.400134205, 0.673880395 }, + /* 101, 110 */ + { 0.007117e-6, 38.027672636, 5.294249518 }, + { 0.007857e-6, 12168.002696575, 0.525733528 }, + { 0.007019e-6, 6206.809778716, 0.837688810 }, + { 0.006056e-6, 955.599741609, 4.194535082 }, + { 0.008107e-6, 13367.972631107, 3.793235253 }, + { 0.006731e-6, 5650.292110678, 5.639906583 }, + { 0.007332e-6, 36.648562930, 0.114858677 }, + { 0.006366e-6, 4164.311989613, 2.262081818 }, + { 0.006858e-6, 5216.580372801, 0.642063318 }, + { 0.006919e-6, 6681.224853400, 6.018501522 }, + /* 111, 120 */ + { 0.006826e-6, 7632.943259650, 3.458654112 }, + { 0.005308e-6, -1592.596013633, 2.500382359 }, + { 0.005096e-6, 11371.704689758, 2.547107806 }, + { 0.004841e-6, 5333.900241022, 0.437078094 }, + { 0.005582e-6, 5966.683980335, 2.246174308 }, + { 0.006304e-6, 11926.254413669, 2.512929171 }, + { 0.006603e-6, 23581.258177318, 5.393136889 }, + { 0.005123e-6, -1.484472708, 2.999641028 }, + { 0.004648e-6, 1589.072895284, 1.275847090 }, + { 0.005119e-6, 6438.496249426, 1.486539246 }, + /* 121, 130 */ + { 0.004521e-6, 4292.330832950, 6.140635794 }, + { 0.005680e-6, 23013.539539587, 4.557814849 }, + { 0.005488e-6, -3.455808046, 0.090675389 }, + { 0.004193e-6, 7234.794256242, 4.869091389 }, + { 0.003742e-6, 7238.675591600, 4.691976180 }, + { 0.004148e-6, -110.206321219, 3.016173439 }, + { 0.004553e-6, 11499.656222793, 5.554998314 }, + { 0.004892e-6, 5436.993015240, 1.475415597 }, + { 0.004044e-6, 4732.030627343, 1.398784824 }, + { 0.004164e-6, 12491.370101415, 5.650931916 }, + /* 131, 140 */ + { 0.004349e-6, 11513.883316794, 2.181745369 }, + { 0.003919e-6, 12528.018664345, 5.823319737 }, + { 0.003129e-6, 6836.645252834, 0.003844094 }, + { 0.004080e-6, -7058.598461315, 3.690360123 }, + { 0.003270e-6, 76.266071276, 1.517189902 }, + { 0.002954e-6, 6283.143160294, 4.447203799 }, + { 0.002872e-6, 28.449187468, 1.158692983 }, + { 0.002881e-6, 735.876513532, 0.349250250 }, + { 0.003279e-6, 5849.364112115, 4.893384368 }, + { 0.003625e-6, 6209.778724132, 1.473760578 }, + /* 141, 150 */ + { 0.003074e-6, 949.175608970, 5.185878737 }, + { 0.002775e-6, 9917.696874510, 1.030026325 }, + { 0.002646e-6, 10973.555686350, 3.918259169 }, + { 0.002575e-6, 25132.303399966, 6.109659023 }, + { 0.003500e-6, 263.083923373, 1.892100742 }, + { 0.002740e-6, 18319.536584880, 4.320519510 }, + { 0.002464e-6, 202.253395174, 4.698203059 }, + { 0.002409e-6, 2.542797281, 5.325009315 }, + { 0.003354e-6, -90955.551694697, 1.942656623 }, + { 0.002296e-6, 6496.374945429, 5.061810696 }, + /* 151, 160 */ + { 0.003002e-6, 6172.869528772, 2.797822767 }, + { 0.003202e-6, 27511.467873537, 0.531673101 }, + { 0.002954e-6, -6283.008539689, 4.533471191 }, + { 0.002353e-6, 639.897286314, 3.734548088 }, + { 0.002401e-6, 16200.772724501, 2.605547070 }, + { 0.003053e-6, 233141.314403759, 3.029030662 }, + { 0.003024e-6, 83286.914269554, 2.355556099 }, + { 0.002863e-6, 17298.182327326, 5.240963796 }, + { 0.002103e-6, -7079.373856808, 5.756641637 }, + { 0.002303e-6, 83996.847317911, 2.013686814 }, + /* 161, 170 */ + { 0.002303e-6, 18073.704938650, 1.089100410 }, + { 0.002381e-6, 63.735898303, 0.759188178 }, + { 0.002493e-6, 6386.168624210, 0.645026535 }, + { 0.002366e-6, 3.932153263, 6.215885448 }, + { 0.002169e-6, 11015.106477335, 4.845297676 }, + { 0.002397e-6, 6243.458341645, 3.809290043 }, + { 0.002183e-6, 1162.474704408, 6.179611691 }, + { 0.002353e-6, 6246.427287062, 4.781719760 }, + { 0.002199e-6, -245.831646229, 5.956152284 }, + { 0.001729e-6, 3894.181829542, 1.264976635 }, + /* 171, 180 */ + { 0.001896e-6, -3128.388765096, 4.914231596 }, + { 0.002085e-6, 35.164090221, 1.405158503 }, + { 0.002024e-6, 14712.317116458, 2.752035928 }, + { 0.001737e-6, 6290.189396992, 5.280820144 }, + { 0.002229e-6, 491.557929457, 1.571007057 }, + { 0.001602e-6, 14314.168113050, 4.203664806 }, + { 0.002186e-6, 454.909366527, 1.402101526 }, + { 0.001897e-6, 22483.848574493, 4.167932508 }, + { 0.001825e-6, -3738.761430108, 0.545828785 }, + { 0.001894e-6, 1052.268383188, 5.817167450 }, + /* 181, 190 */ + { 0.001421e-6, 20.355319399, 2.419886601 }, + { 0.001408e-6, 10984.192351700, 2.732084787 }, + { 0.001847e-6, 10873.986030480, 2.903477885 }, + { 0.001391e-6, -8635.942003763, 0.593891500 }, + { 0.001388e-6, -7.046236698, 1.166145902 }, + { 0.001810e-6, -88860.057071188, 0.487355242 }, + { 0.001288e-6, -1990.745017041, 3.913022880 }, + { 0.001297e-6, 23543.230504682, 3.063805171 }, + { 0.001335e-6, -266.607041722, 3.995764039 }, + { 0.001376e-6, 10969.965257698, 5.152914309 }, + /* 191, 200 */ + { 0.001745e-6, 244287.600007027, 3.626395673 }, + { 0.001649e-6, 31441.677569757, 1.952049260 }, + { 0.001416e-6, 9225.539273283, 4.996408389 }, + { 0.001238e-6, 4804.209275927, 5.503379738 }, + { 0.001472e-6, 4590.910180489, 4.164913291 }, + { 0.001169e-6, 6040.347246017, 5.841719038 }, + { 0.001039e-6, 5540.085789459, 2.769753519 }, + { 0.001004e-6, -170.672870619, 0.755008103 }, + { 0.001284e-6, 10575.406682942, 5.306538209 }, + { 0.001278e-6, 71.812653151, 4.713486491 }, + /* 201, 210 */ + { 0.001321e-6, 18209.330263660, 2.624866359 }, + { 0.001297e-6, 21228.392023546, 0.382603541 }, + { 0.000954e-6, 6282.095528923, 0.882213514 }, + { 0.001145e-6, 6058.731054289, 1.169483931 }, + { 0.000979e-6, 5547.199336460, 5.448375984 }, + { 0.000987e-6, -6262.300454499, 2.656486959 }, + { 0.001070e-6, -154717.609887482, 1.827624012 }, + { 0.000991e-6, 4701.116501708, 4.387001801 }, + { 0.001155e-6, -14.227094002, 3.042700750 }, + { 0.001176e-6, 277.034993741, 3.335519004 }, + /* 211, 220 */ + { 0.000890e-6, 13916.019109642, 5.601498297 }, + { 0.000884e-6, -1551.045222648, 1.088831705 }, + { 0.000876e-6, 5017.508371365, 3.969902609 }, + { 0.000806e-6, 15110.466119866, 5.142876744 }, + { 0.000773e-6, -4136.910433516, 0.022067765 }, + { 0.001077e-6, 175.166059800, 1.844913056 }, + { 0.000954e-6, -6284.056171060, 0.968480906 }, + { 0.000737e-6, 5326.786694021, 4.923831588 }, + { 0.000845e-6, -433.711737877, 4.749245231 }, + { 0.000819e-6, 8662.240323563, 5.991247817 }, + /* 221, 230 */ + { 0.000852e-6, 199.072001436, 2.189604979 }, + { 0.000723e-6, 17256.631536341, 6.068719637 }, + { 0.000940e-6, 6037.244203762, 6.197428148 }, + { 0.000885e-6, 11712.955318231, 3.280414875 }, + { 0.000706e-6, 12559.038152982, 2.824848947 }, + { 0.000732e-6, 2379.164473572, 2.501813417 }, + { 0.000764e-6, -6127.655450557, 2.236346329 }, + { 0.000908e-6, 131.541961686, 2.521257490 }, + { 0.000907e-6, 35371.887265976, 3.370195967 }, + { 0.000673e-6, 1066.495477190, 3.876512374 }, + /* 231, 240 */ + { 0.000814e-6, 17654.780539750, 4.627122566 }, + { 0.000630e-6, 36.027866677, 0.156368499 }, + { 0.000798e-6, 515.463871093, 5.151962502 }, + { 0.000798e-6, 148.078724426, 5.909225055 }, + { 0.000806e-6, 309.278322656, 6.054064447 }, + { 0.000607e-6, -39.617508346, 2.839021623 }, + { 0.000601e-6, 412.371096874, 3.984225404 }, + { 0.000646e-6, 11403.676995575, 3.852959484 }, + { 0.000704e-6, 13521.751441591, 2.300991267 }, + { 0.000603e-6, -65147.619767937, 4.140083146 }, + /* 241, 250 */ + { 0.000609e-6, 10177.257679534, 0.437122327 }, + { 0.000631e-6, 5767.611978898, 4.026532329 }, + { 0.000576e-6, 11087.285125918, 4.760293101 }, + { 0.000674e-6, 14945.316173554, 6.270510511 }, + { 0.000726e-6, 5429.879468239, 6.039606892 }, + { 0.000710e-6, 28766.924424484, 5.672617711 }, + { 0.000647e-6, 11856.218651625, 3.397132627 }, + { 0.000678e-6, -5481.254918868, 6.249666675 }, + { 0.000618e-6, 22003.914634870, 2.466427018 }, + { 0.000738e-6, 6134.997125565, 2.242668890 }, + /* 251, 260 */ + { 0.000660e-6, 625.670192312, 5.864091907 }, + { 0.000694e-6, 3496.032826134, 2.668309141 }, + { 0.000531e-6, 6489.261398429, 1.681888780 }, + { 0.000611e-6, -143571.324284214, 2.424978312 }, + { 0.000575e-6, 12043.574281889, 4.216492400 }, + { 0.000553e-6, 12416.588502848, 4.772158039 }, + { 0.000689e-6, 4686.889407707, 6.224271088 }, + { 0.000495e-6, 7342.457780181, 3.817285811 }, + { 0.000567e-6, 3634.621024518, 1.649264690 }, + { 0.000515e-6, 18635.928454536, 3.945345892 }, + /* 261, 270 */ + { 0.000486e-6, -323.505416657, 4.061673868 }, + { 0.000662e-6, 25158.601719765, 1.794058369 }, + { 0.000509e-6, 846.082834751, 3.053874588 }, + { 0.000472e-6, -12569.674818332, 5.112133338 }, + { 0.000461e-6, 6179.983075773, 0.513669325 }, + { 0.000641e-6, 83467.156352816, 3.210727723 }, + { 0.000520e-6, 10344.295065386, 2.445597761 }, + { 0.000493e-6, 18422.629359098, 1.676939306 }, + { 0.000478e-6, 1265.567478626, 5.487314569 }, + { 0.000472e-6, -18.159247265, 1.999707589 }, + /* 271, 280 */ + { 0.000559e-6, 11190.377900137, 5.783236356 }, + { 0.000494e-6, 9623.688276691, 3.022645053 }, + { 0.000463e-6, 5739.157790895, 1.411223013 }, + { 0.000432e-6, 16858.482532933, 1.179256434 }, + { 0.000574e-6, 72140.628666286, 1.758191830 }, + { 0.000484e-6, 17267.268201691, 3.290589143 }, + { 0.000550e-6, 4907.302050146, 0.864024298 }, + { 0.000399e-6, 14.977853527, 2.094441910 }, + { 0.000491e-6, 224.344795702, 0.878372791 }, + { 0.000432e-6, 20426.571092422, 6.003829241 }, + /* 281, 290 */ + { 0.000481e-6, 5749.452731634, 4.309591964 }, + { 0.000480e-6, 5757.317038160, 1.142348571 }, + { 0.000485e-6, 6702.560493867, 0.210580917 }, + { 0.000426e-6, 6055.549660552, 4.274476529 }, + { 0.000480e-6, 5959.570433334, 5.031351030 }, + { 0.000466e-6, 12562.628581634, 4.959581597 }, + { 0.000520e-6, 39302.096962196, 4.788002889 }, + { 0.000458e-6, 12132.439962106, 1.880103788 }, + { 0.000470e-6, 12029.347187887, 1.405611197 }, + { 0.000416e-6, -7477.522860216, 1.082356330 }, + /* 291, 300 */ + { 0.000449e-6, 11609.862544012, 4.179989585 }, + { 0.000465e-6, 17253.041107690, 0.353496295 }, + { 0.000362e-6, -4535.059436924, 1.583849576 }, + { 0.000383e-6, 21954.157609398, 3.747376371 }, + { 0.000389e-6, 17.252277143, 1.395753179 }, + { 0.000331e-6, 18052.929543158, 0.566790582 }, + { 0.000430e-6, 13517.870106233, 0.685827538 }, + { 0.000368e-6, -5756.908003246, 0.731374317 }, + { 0.000330e-6, 10557.594160824, 3.710043680 }, + { 0.000332e-6, 20199.094959633, 1.652901407 }, + /* 301, 310 */ + { 0.000384e-6, 11933.367960670, 5.827781531 }, + { 0.000387e-6, 10454.501386605, 2.541182564 }, + { 0.000325e-6, 15671.081759407, 2.178850542 }, + { 0.000318e-6, 138.517496871, 2.253253037 }, + { 0.000305e-6, 9388.005909415, 0.578340206 }, + { 0.000352e-6, 5749.861766548, 3.000297967 }, + { 0.000311e-6, 6915.859589305, 1.693574249 }, + { 0.000297e-6, 24072.921469776, 1.997249392 }, + { 0.000363e-6, -640.877607382, 5.071820966 }, + { 0.000323e-6, 12592.450019783, 1.072262823 }, + /* 311, 320 */ + { 0.000341e-6, 12146.667056108, 4.700657997 }, + { 0.000290e-6, 9779.108676125, 1.812320441 }, + { 0.000342e-6, 6132.028180148, 4.322238614 }, + { 0.000329e-6, 6268.848755990, 3.033827743 }, + { 0.000374e-6, 17996.031168222, 3.388716544 }, + { 0.000285e-6, -533.214083444, 4.687313233 }, + { 0.000338e-6, 6065.844601290, 0.877776108 }, + { 0.000276e-6, 24.298513841, 0.770299429 }, + { 0.000336e-6, -2388.894020449, 5.353796034 }, + { 0.000290e-6, 3097.883822726, 4.075291557 }, + /* 321, 330 */ + { 0.000318e-6, 709.933048357, 5.941207518 }, + { 0.000271e-6, 13095.842665077, 3.208912203 }, + { 0.000331e-6, 6073.708907816, 4.007881169 }, + { 0.000292e-6, 742.990060533, 2.714333592 }, + { 0.000362e-6, 29088.811415985, 3.215977013 }, + { 0.000280e-6, 12359.966151546, 0.710872502 }, + { 0.000267e-6, 10440.274292604, 4.730108488 }, + { 0.000262e-6, 838.969287750, 1.327720272 }, + { 0.000250e-6, 16496.361396202, 0.898769761 }, + { 0.000325e-6, 20597.243963041, 0.180044365 }, + /* 331, 340 */ + { 0.000268e-6, 6148.010769956, 5.152666276 }, + { 0.000284e-6, 5636.065016677, 5.655385808 }, + { 0.000301e-6, 6080.822454817, 2.135396205 }, + { 0.000294e-6, -377.373607916, 3.708784168 }, + { 0.000236e-6, 2118.763860378, 1.733578756 }, + { 0.000234e-6, 5867.523359379, 5.575209112 }, + { 0.000268e-6, -226858.238553767, 0.069432392 }, + { 0.000265e-6, 167283.761587465, 4.369302826 }, + { 0.000280e-6, 28237.233459389, 5.304829118 }, + { 0.000292e-6, 12345.739057544, 4.096094132 }, + /* 341, 350 */ + { 0.000223e-6, 19800.945956225, 3.069327406 }, + { 0.000301e-6, 43232.306658416, 6.205311188 }, + { 0.000264e-6, 18875.525869774, 1.417263408 }, + { 0.000304e-6, -1823.175188677, 3.409035232 }, + { 0.000301e-6, 109.945688789, 0.510922054 }, + { 0.000260e-6, 813.550283960, 2.389438934 }, + { 0.000299e-6, 316428.228673312, 5.384595078 }, + { 0.000211e-6, 5756.566278634, 3.789392838 }, + { 0.000209e-6, 5750.203491159, 1.661943545 }, + { 0.000240e-6, 12489.885628707, 5.684549045 }, + /* 351, 360 */ + { 0.000216e-6, 6303.851245484, 3.862942261 }, + { 0.000203e-6, 1581.959348283, 5.549853589 }, + { 0.000200e-6, 5642.198242609, 1.016115785 }, + { 0.000197e-6, -70.849445304, 4.690702525 }, + { 0.000227e-6, 6287.008003254, 2.911891613 }, + { 0.000197e-6, 533.623118358, 1.048982898 }, + { 0.000205e-6, -6279.485421340, 1.829362730 }, + { 0.000209e-6, -10988.808157535, 2.636140084 }, + { 0.000208e-6, -227.526189440, 4.127883842 }, + { 0.000191e-6, 415.552490612, 4.401165650 }, + /* 361, 370 */ + { 0.000190e-6, 29296.615389579, 4.175658539 }, + { 0.000264e-6, 66567.485864652, 4.601102551 }, + { 0.000256e-6, -3646.350377354, 0.506364778 }, + { 0.000188e-6, 13119.721102825, 2.032195842 }, + { 0.000185e-6, -209.366942175, 4.694756586 }, + { 0.000198e-6, 25934.124331089, 3.832703118 }, + { 0.000195e-6, 4061.219215394, 3.308463427 }, + { 0.000234e-6, 5113.487598583, 1.716090661 }, + { 0.000188e-6, 1478.866574064, 5.686865780 }, + { 0.000222e-6, 11823.161639450, 1.942386641 }, + /* 371, 380 */ + { 0.000181e-6, 10770.893256262, 1.999482059 }, + { 0.000171e-6, 6546.159773364, 1.182807992 }, + { 0.000206e-6, 70.328180442, 5.934076062 }, + { 0.000169e-6, 20995.392966449, 2.169080622 }, + { 0.000191e-6, 10660.686935042, 5.405515999 }, + { 0.000228e-6, 33019.021112205, 4.656985514 }, + { 0.000184e-6, -4933.208440333, 3.327476868 }, + { 0.000220e-6, -135.625325010, 1.765430262 }, + { 0.000166e-6, 23141.558382925, 3.454132746 }, + { 0.000191e-6, 6144.558353121, 5.020393445 }, + /* 381, 390 */ + { 0.000180e-6, 6084.003848555, 0.602182191 }, + { 0.000163e-6, 17782.732072784, 4.960593133 }, + { 0.000225e-6, 16460.333529525, 2.596451817 }, + { 0.000222e-6, 5905.702242076, 3.731990323 }, + { 0.000204e-6, 227.476132789, 5.636192701 }, + { 0.000159e-6, 16737.577236597, 3.600691544 }, + { 0.000200e-6, 6805.653268085, 0.868220961 }, + { 0.000187e-6, 11919.140866668, 2.629456641 }, + { 0.000161e-6, 127.471796607, 2.862574720 }, + { 0.000205e-6, 6286.666278643, 1.742882331 }, + /* 391, 400 */ + { 0.000189e-6, 153.778810485, 4.812372643 }, + { 0.000168e-6, 16723.350142595, 0.027860588 }, + { 0.000149e-6, 11720.068865232, 0.659721876 }, + { 0.000189e-6, 5237.921013804, 5.245313000 }, + { 0.000143e-6, 6709.674040867, 4.317625647 }, + { 0.000146e-6, 4487.817406270, 4.815297007 }, + { 0.000144e-6, -664.756045130, 5.381366880 }, + { 0.000175e-6, 5127.714692584, 4.728443327 }, + { 0.000162e-6, 6254.626662524, 1.435132069 }, + { 0.000187e-6, 47162.516354635, 1.354371923 }, + /* 401, 410 */ + { 0.000146e-6, 11080.171578918, 3.369695406 }, + { 0.000180e-6, -348.924420448, 2.490902145 }, + { 0.000148e-6, 151.047669843, 3.799109588 }, + { 0.000157e-6, 6197.248551160, 1.284375887 }, + { 0.000167e-6, 146.594251718, 0.759969109 }, + { 0.000133e-6, -5331.357443741, 5.409701889 }, + { 0.000154e-6, 95.979227218, 3.366890614 }, + { 0.000148e-6, -6418.140930027, 3.384104996 }, + { 0.000128e-6, -6525.804453965, 3.803419985 }, + { 0.000130e-6, 11293.470674356, 0.939039445 }, + /* 411, 420 */ + { 0.000152e-6, -5729.506447149, 0.734117523 }, + { 0.000138e-6, 210.117701700, 2.564216078 }, + { 0.000123e-6, 6066.595360816, 4.517099537 }, + { 0.000140e-6, 18451.078546566, 0.642049130 }, + { 0.000126e-6, 11300.584221356, 3.485280663 }, + { 0.000119e-6, 10027.903195729, 3.217431161 }, + { 0.000151e-6, 4274.518310832, 4.404359108 }, + { 0.000117e-6, 6072.958148291, 0.366324650 }, + { 0.000165e-6, -7668.637425143, 4.298212528 }, + { 0.000117e-6, -6245.048177356, 5.379518958 }, + /* 421, 430 */ + { 0.000130e-6, -5888.449964932, 4.527681115 }, + { 0.000121e-6, -543.918059096, 6.109429504 }, + { 0.000162e-6, 9683.594581116, 5.720092446 }, + { 0.000141e-6, 6219.339951688, 0.679068671 }, + { 0.000118e-6, 22743.409379516, 4.881123092 }, + { 0.000129e-6, 1692.165669502, 0.351407289 }, + { 0.000126e-6, 5657.405657679, 5.146592349 }, + { 0.000114e-6, 728.762966531, 0.520791814 }, + { 0.000120e-6, 52.596639600, 0.948516300 }, + { 0.000115e-6, 65.220371012, 3.504914846 }, + /* 431, 440 */ + { 0.000126e-6, 5881.403728234, 5.577502482 }, + { 0.000158e-6, 163096.180360983, 2.957128968 }, + { 0.000134e-6, 12341.806904281, 2.598576764 }, + { 0.000151e-6, 16627.370915377, 3.985702050 }, + { 0.000109e-6, 1368.660252845, 0.014730471 }, + { 0.000131e-6, 6211.263196841, 0.085077024 }, + { 0.000146e-6, 5792.741760812, 0.708426604 }, + { 0.000146e-6, -77.750543984, 3.121576600 }, + { 0.000107e-6, 5341.013788022, 0.288231904 }, + { 0.000138e-6, 6281.591377283, 2.797450317 }, + /* 441, 450 */ + { 0.000113e-6, -6277.552925684, 2.788904128 }, + { 0.000115e-6, -525.758811831, 5.895222200 }, + { 0.000138e-6, 6016.468808270, 6.096188999 }, + { 0.000139e-6, 23539.707386333, 2.028195445 }, + { 0.000146e-6, -4176.041342449, 4.660008502 }, + { 0.000107e-6, 16062.184526117, 4.066520001 }, + { 0.000142e-6, 83783.548222473, 2.936315115 }, + { 0.000128e-6, 9380.959672717, 3.223844306 }, + { 0.000135e-6, 6205.325306007, 1.638054048 }, + { 0.000101e-6, 2699.734819318, 5.481603249 }, + /* 451, 460 */ + { 0.000104e-6, -568.821874027, 2.205734493 }, + { 0.000103e-6, 6321.103522627, 2.440421099 }, + { 0.000119e-6, 6321.208885629, 2.547496264 }, + { 0.000138e-6, 1975.492545856, 2.314608466 }, + { 0.000121e-6, 137.033024162, 4.539108237 }, + { 0.000123e-6, 19402.796952817, 4.538074405 }, + { 0.000119e-6, 22805.735565994, 2.869040566 }, + { 0.000133e-6, 64471.991241142, 6.056405489 }, + { 0.000129e-6, -85.827298831, 2.540635083 }, + { 0.000131e-6, 13613.804277336, 4.005732868 }, + /* 461, 470 */ + { 0.000104e-6, 9814.604100291, 1.959967212 }, + { 0.000112e-6, 16097.679950283, 3.589026260 }, + { 0.000123e-6, 2107.034507542, 1.728627253 }, + { 0.000121e-6, 36949.230808424, 6.072332087 }, + { 0.000108e-6, -12539.853380183, 3.716133846 }, + { 0.000113e-6, -7875.671863624, 2.725771122 }, + { 0.000109e-6, 4171.425536614, 4.033338079 }, + { 0.000101e-6, 6247.911759770, 3.441347021 }, + { 0.000113e-6, 7330.728427345, 0.656372122 }, + { 0.000113e-6, 51092.726050855, 2.791483066 }, + /* 471, 480 */ + { 0.000106e-6, 5621.842923210, 1.815323326 }, + { 0.000101e-6, 111.430161497, 5.711033677 }, + { 0.000103e-6, 909.818733055, 2.812745443 }, + { 0.000101e-6, 1790.642637886, 1.965746028 }, + + /* T */ + { 102.156724e-6, 6283.075849991, 4.249032005 }, + { 1.706807e-6, 12566.151699983, 4.205904248 }, + { 0.269668e-6, 213.299095438, 3.400290479 }, + { 0.265919e-6, 529.690965095, 5.836047367 }, + { 0.210568e-6, -3.523118349, 6.262738348 }, + { 0.077996e-6, 5223.693919802, 4.670344204 }, + /* 481, 490 */ + { 0.054764e-6, 1577.343542448, 4.534800170 }, + { 0.059146e-6, 26.298319800, 1.083044735 }, + { 0.034420e-6, -398.149003408, 5.980077351 }, + { 0.032088e-6, 18849.227549974, 4.162913471 }, + { 0.033595e-6, 5507.553238667, 5.980162321 }, + { 0.029198e-6, 5856.477659115, 0.623811863 }, + { 0.027764e-6, 155.420399434, 3.745318113 }, + { 0.025190e-6, 5746.271337896, 2.980330535 }, + { 0.022997e-6, -796.298006816, 1.174411803 }, + { 0.024976e-6, 5760.498431898, 2.467913690 }, + /* 491, 500 */ + { 0.021774e-6, 206.185548437, 3.854787540 }, + { 0.017925e-6, -775.522611324, 1.092065955 }, + { 0.013794e-6, 426.598190876, 2.699831988 }, + { 0.013276e-6, 6062.663207553, 5.845801920 }, + { 0.011774e-6, 12036.460734888, 2.292832062 }, + { 0.012869e-6, 6076.890301554, 5.333425680 }, + { 0.012152e-6, 1059.381930189, 6.222874454 }, + { 0.011081e-6, -7.113547001, 5.154724984 }, + { 0.010143e-6, 4694.002954708, 4.044013795 }, + { 0.009357e-6, 5486.777843175, 3.416081409 }, + /* 501, 510 */ + { 0.010084e-6, 522.577418094, 0.749320262 }, + { 0.008587e-6, 10977.078804699, 2.777152598 }, + { 0.008628e-6, 6275.962302991, 4.562060226 }, + { 0.008158e-6, -220.412642439, 5.806891533 }, + { 0.007746e-6, 2544.314419883, 1.603197066 }, + { 0.007670e-6, 2146.165416475, 3.000200440 }, + { 0.007098e-6, 74.781598567, 0.443725817 }, + { 0.006180e-6, -536.804512095, 1.302642751 }, + { 0.005818e-6, 5088.628839767, 4.827723531 }, + { 0.004945e-6, -6286.598968340, 0.268305170 }, + /* 511, 520 */ + { 0.004774e-6, 1349.867409659, 5.808636673 }, + { 0.004687e-6, -242.728603974, 5.154890570 }, + { 0.006089e-6, 1748.016413067, 4.403765209 }, + { 0.005975e-6, -1194.447010225, 2.583472591 }, + { 0.004229e-6, 951.718406251, 0.931172179 }, + { 0.005264e-6, 553.569402842, 2.336107252 }, + { 0.003049e-6, 5643.178563677, 1.362634430 }, + { 0.002974e-6, 6812.766815086, 1.583012668 }, + { 0.003403e-6, -2352.866153772, 2.552189886 }, + { 0.003030e-6, 419.484643875, 5.286473844 }, + /* 521, 530 */ + { 0.003210e-6, -7.046236698, 1.863796539 }, + { 0.003058e-6, 9437.762934887, 4.226420633 }, + { 0.002589e-6, 12352.852604545, 1.991935820 }, + { 0.002927e-6, 5216.580372801, 2.319951253 }, + { 0.002425e-6, 5230.807466803, 3.084752833 }, + { 0.002656e-6, 3154.687084896, 2.487447866 }, + { 0.002445e-6, 10447.387839604, 2.347139160 }, + { 0.002990e-6, 4690.479836359, 6.235872050 }, + { 0.002890e-6, 5863.591206116, 0.095197563 }, + { 0.002498e-6, 6438.496249426, 2.994779800 }, + /* 531, 540 */ + { 0.001889e-6, 8031.092263058, 3.569003717 }, + { 0.002567e-6, 801.820931124, 3.425611498 }, + { 0.001803e-6, -71430.695617928, 2.192295512 }, + { 0.001782e-6, 3.932153263, 5.180433689 }, + { 0.001694e-6, -4705.732307544, 4.641779174 }, + { 0.001704e-6, -1592.596013633, 3.997097652 }, + { 0.001735e-6, 5849.364112115, 0.417558428 }, + { 0.001643e-6, 8429.241266467, 2.180619584 }, + { 0.001680e-6, 38.133035638, 4.164529426 }, + { 0.002045e-6, 7084.896781115, 0.526323854 }, + /* 541, 550 */ + { 0.001458e-6, 4292.330832950, 1.356098141 }, + { 0.001437e-6, 20.355319399, 3.895439360 }, + { 0.001738e-6, 6279.552731642, 0.087484036 }, + { 0.001367e-6, 14143.495242431, 3.987576591 }, + { 0.001344e-6, 7234.794256242, 0.090454338 }, + { 0.001438e-6, 11499.656222793, 0.974387904 }, + { 0.001257e-6, 6836.645252834, 1.509069366 }, + { 0.001358e-6, 11513.883316794, 0.495572260 }, + { 0.001628e-6, 7632.943259650, 4.968445721 }, + { 0.001169e-6, 103.092774219, 2.838496795 }, + /* 551, 560 */ + { 0.001162e-6, 4164.311989613, 3.408387778 }, + { 0.001092e-6, 6069.776754553, 3.617942651 }, + { 0.001008e-6, 17789.845619785, 0.286350174 }, + { 0.001008e-6, 639.897286314, 1.610762073 }, + { 0.000918e-6, 10213.285546211, 5.532798067 }, + { 0.001011e-6, -6256.777530192, 0.661826484 }, + { 0.000753e-6, 16730.463689596, 3.905030235 }, + { 0.000737e-6, 11926.254413669, 4.641956361 }, + { 0.000694e-6, 3340.612426700, 2.111120332 }, + { 0.000701e-6, 3894.181829542, 2.760823491 }, + /* 561, 570 */ + { 0.000689e-6, -135.065080035, 4.768800780 }, + { 0.000700e-6, 13367.972631107, 5.760439898 }, + { 0.000664e-6, 6040.347246017, 1.051215840 }, + { 0.000654e-6, 5650.292110678, 4.911332503 }, + { 0.000788e-6, 6681.224853400, 4.699648011 }, + { 0.000628e-6, 5333.900241022, 5.024608847 }, + { 0.000755e-6, -110.206321219, 4.370971253 }, + { 0.000628e-6, 6290.189396992, 3.660478857 }, + { 0.000635e-6, 25132.303399966, 4.121051532 }, + { 0.000534e-6, 5966.683980335, 1.173284524 }, + /* 571, 580 */ + { 0.000543e-6, -433.711737877, 0.345585464 }, + { 0.000517e-6, -1990.745017041, 5.414571768 }, + { 0.000504e-6, 5767.611978898, 2.328281115 }, + { 0.000485e-6, 5753.384884897, 1.685874771 }, + { 0.000463e-6, 7860.419392439, 5.297703006 }, + { 0.000604e-6, 515.463871093, 0.591998446 }, + { 0.000443e-6, 12168.002696575, 4.830881244 }, + { 0.000570e-6, 199.072001436, 3.899190272 }, + { 0.000465e-6, 10969.965257698, 0.476681802 }, + { 0.000424e-6, -7079.373856808, 1.112242763 }, + /* 581, 590 */ + { 0.000427e-6, 735.876513532, 1.994214480 }, + { 0.000478e-6, -6127.655450557, 3.778025483 }, + { 0.000414e-6, 10973.555686350, 5.441088327 }, + { 0.000512e-6, 1589.072895284, 0.107123853 }, + { 0.000378e-6, 10984.192351700, 0.915087231 }, + { 0.000402e-6, 11371.704689758, 4.107281715 }, + { 0.000453e-6, 9917.696874510, 1.917490952 }, + { 0.000395e-6, 149.563197135, 2.763124165 }, + { 0.000371e-6, 5739.157790895, 3.112111866 }, + { 0.000350e-6, 11790.629088659, 0.440639857 }, + /* 591, 600 */ + { 0.000356e-6, 6133.512652857, 5.444568842 }, + { 0.000344e-6, 412.371096874, 5.676832684 }, + { 0.000383e-6, 955.599741609, 5.559734846 }, + { 0.000333e-6, 6496.374945429, 0.261537984 }, + { 0.000340e-6, 6055.549660552, 5.975534987 }, + { 0.000334e-6, 1066.495477190, 2.335063907 }, + { 0.000399e-6, 11506.769769794, 5.321230910 }, + { 0.000314e-6, 18319.536584880, 2.313312404 }, + { 0.000424e-6, 1052.268383188, 1.211961766 }, + { 0.000307e-6, 63.735898303, 3.169551388 }, + /* 601, 610 */ + { 0.000329e-6, 29.821438149, 6.106912080 }, + { 0.000357e-6, 6309.374169791, 4.223760346 }, + { 0.000312e-6, -3738.761430108, 2.180556645 }, + { 0.000301e-6, 309.278322656, 1.499984572 }, + { 0.000268e-6, 12043.574281889, 2.447520648 }, + { 0.000257e-6, 12491.370101415, 3.662331761 }, + { 0.000290e-6, 625.670192312, 1.272834584 }, + { 0.000256e-6, 5429.879468239, 1.913426912 }, + { 0.000339e-6, 3496.032826134, 4.165930011 }, + { 0.000283e-6, 3930.209696220, 4.325565754 }, + /* 611, 620 */ + { 0.000241e-6, 12528.018664345, 3.832324536 }, + { 0.000304e-6, 4686.889407707, 1.612348468 }, + { 0.000259e-6, 16200.772724501, 3.470173146 }, + { 0.000238e-6, 12139.553509107, 1.147977842 }, + { 0.000236e-6, 6172.869528772, 3.776271728 }, + { 0.000296e-6, -7058.598461315, 0.460368852 }, + { 0.000306e-6, 10575.406682942, 0.554749016 }, + { 0.000251e-6, 17298.182327326, 0.834332510 }, + { 0.000290e-6, 4732.030627343, 4.759564091 }, + { 0.000261e-6, 5884.926846583, 0.298259862 }, + /* 621, 630 */ + { 0.000249e-6, 5547.199336460, 3.749366406 }, + { 0.000213e-6, 11712.955318231, 5.415666119 }, + { 0.000223e-6, 4701.116501708, 2.703203558 }, + { 0.000268e-6, -640.877607382, 0.283670793 }, + { 0.000209e-6, 5636.065016677, 1.238477199 }, + { 0.000193e-6, 10177.257679534, 1.943251340 }, + { 0.000182e-6, 6283.143160294, 2.456157599 }, + { 0.000184e-6, -227.526189440, 5.888038582 }, + { 0.000182e-6, -6283.008539689, 0.241332086 }, + { 0.000228e-6, -6284.056171060, 2.657323816 }, + /* 631, 640 */ + { 0.000166e-6, 7238.675591600, 5.930629110 }, + { 0.000167e-6, 3097.883822726, 5.570955333 }, + { 0.000159e-6, -323.505416657, 5.786670700 }, + { 0.000154e-6, -4136.910433516, 1.517805532 }, + { 0.000176e-6, 12029.347187887, 3.139266834 }, + { 0.000167e-6, 12132.439962106, 3.556352289 }, + { 0.000153e-6, 202.253395174, 1.463313961 }, + { 0.000157e-6, 17267.268201691, 1.586837396 }, + { 0.000142e-6, 83996.847317911, 0.022670115 }, + { 0.000152e-6, 17260.154654690, 0.708528947 }, + /* 641, 650 */ + { 0.000144e-6, 6084.003848555, 5.187075177 }, + { 0.000135e-6, 5756.566278634, 1.993229262 }, + { 0.000134e-6, 5750.203491159, 3.457197134 }, + { 0.000144e-6, 5326.786694021, 6.066193291 }, + { 0.000160e-6, 11015.106477335, 1.710431974 }, + { 0.000133e-6, 3634.621024518, 2.836451652 }, + { 0.000134e-6, 18073.704938650, 5.453106665 }, + { 0.000134e-6, 1162.474704408, 5.326898811 }, + { 0.000128e-6, 5642.198242609, 2.511652591 }, + { 0.000160e-6, 632.783739313, 5.628785365 }, + /* 651, 660 */ + { 0.000132e-6, 13916.019109642, 0.819294053 }, + { 0.000122e-6, 14314.168113050, 5.677408071 }, + { 0.000125e-6, 12359.966151546, 5.251984735 }, + { 0.000121e-6, 5749.452731634, 2.210924603 }, + { 0.000136e-6, -245.831646229, 1.646502367 }, + { 0.000120e-6, 5757.317038160, 3.240883049 }, + { 0.000134e-6, 12146.667056108, 3.059480037 }, + { 0.000137e-6, 6206.809778716, 1.867105418 }, + { 0.000141e-6, 17253.041107690, 2.069217456 }, + { 0.000129e-6, -7477.522860216, 2.781469314 }, + /* 661, 670 */ + { 0.000116e-6, 5540.085789459, 4.281176991 }, + { 0.000116e-6, 9779.108676125, 3.320925381 }, + { 0.000129e-6, 5237.921013804, 3.497704076 }, + { 0.000113e-6, 5959.570433334, 0.983210840 }, + { 0.000122e-6, 6282.095528923, 2.674938860 }, + { 0.000140e-6, -11.045700264, 4.957936982 }, + { 0.000108e-6, 23543.230504682, 1.390113589 }, + { 0.000106e-6, -12569.674818332, 0.429631317 }, + { 0.000110e-6, -266.607041722, 5.501340197 }, + { 0.000115e-6, 12559.038152982, 4.691456618 }, + /* 671, 680 */ + { 0.000134e-6, -2388.894020449, 0.577313584 }, + { 0.000109e-6, 10440.274292604, 6.218148717 }, + { 0.000102e-6, -543.918059096, 1.477842615 }, + { 0.000108e-6, 21228.392023546, 2.237753948 }, + { 0.000101e-6, -4535.059436924, 3.100492232 }, + { 0.000103e-6, 76.266071276, 5.594294322 }, + { 0.000104e-6, 949.175608970, 5.674287810 }, + { 0.000101e-6, 13517.870106233, 2.196632348 }, + { 0.000100e-6, 11933.367960670, 4.056084160 }, + + /* T^2 */ + { 4.322990e-6, 6283.075849991, 2.642893748 }, + /* 681, 690 */ + { 0.406495e-6, 0.000000000, 4.712388980 }, + { 0.122605e-6, 12566.151699983, 2.438140634 }, + { 0.019476e-6, 213.299095438, 1.642186981 }, + { 0.016916e-6, 529.690965095, 4.510959344 }, + { 0.013374e-6, -3.523118349, 1.502210314 }, + { 0.008042e-6, 26.298319800, 0.478549024 }, + { 0.007824e-6, 155.420399434, 5.254710405 }, + { 0.004894e-6, 5746.271337896, 4.683210850 }, + { 0.004875e-6, 5760.498431898, 0.759507698 }, + { 0.004416e-6, 5223.693919802, 6.028853166 }, + /* 691, 700 */ + { 0.004088e-6, -7.113547001, 0.060926389 }, + { 0.004433e-6, 77713.771467920, 3.627734103 }, + { 0.003277e-6, 18849.227549974, 2.327912542 }, + { 0.002703e-6, 6062.663207553, 1.271941729 }, + { 0.003435e-6, -775.522611324, 0.747446224 }, + { 0.002618e-6, 6076.890301554, 3.633715689 }, + { 0.003146e-6, 206.185548437, 5.647874613 }, + { 0.002544e-6, 1577.343542448, 6.232904270 }, + { 0.002218e-6, -220.412642439, 1.309509946 }, + { 0.002197e-6, 5856.477659115, 2.407212349 }, + /* 701, 710 */ + { 0.002897e-6, 5753.384884897, 5.863842246 }, + { 0.001766e-6, 426.598190876, 0.754113147 }, + { 0.001738e-6, -796.298006816, 2.714942671 }, + { 0.001695e-6, 522.577418094, 2.629369842 }, + { 0.001584e-6, 5507.553238667, 1.341138229 }, + { 0.001503e-6, -242.728603974, 0.377699736 }, + { 0.001552e-6, -536.804512095, 2.904684667 }, + { 0.001370e-6, -398.149003408, 1.265599125 }, + { 0.001889e-6, -5573.142801634, 4.413514859 }, + { 0.001722e-6, 6069.776754553, 2.445966339 }, + /* 711, 720 */ + { 0.001124e-6, 1059.381930189, 5.041799657 }, + { 0.001258e-6, 553.569402842, 3.849557278 }, + { 0.000831e-6, 951.718406251, 2.471094709 }, + { 0.000767e-6, 4694.002954708, 5.363125422 }, + { 0.000756e-6, 1349.867409659, 1.046195744 }, + { 0.000775e-6, -11.045700264, 0.245548001 }, + { 0.000597e-6, 2146.165416475, 4.543268798 }, + { 0.000568e-6, 5216.580372801, 4.178853144 }, + { 0.000711e-6, 1748.016413067, 5.934271972 }, + { 0.000499e-6, 12036.460734888, 0.624434410 }, + /* 721, 730 */ + { 0.000671e-6, -1194.447010225, 4.136047594 }, + { 0.000488e-6, 5849.364112115, 2.209679987 }, + { 0.000621e-6, 6438.496249426, 4.518860804 }, + { 0.000495e-6, -6286.598968340, 1.868201275 }, + { 0.000456e-6, 5230.807466803, 1.271231591 }, + { 0.000451e-6, 5088.628839767, 0.084060889 }, + { 0.000435e-6, 5643.178563677, 3.324456609 }, + { 0.000387e-6, 10977.078804699, 4.052488477 }, + { 0.000547e-6, 161000.685737473, 2.841633844 }, + { 0.000522e-6, 3154.687084896, 2.171979966 }, + /* 731, 740 */ + { 0.000375e-6, 5486.777843175, 4.983027306 }, + { 0.000421e-6, 5863.591206116, 4.546432249 }, + { 0.000439e-6, 7084.896781115, 0.522967921 }, + { 0.000309e-6, 2544.314419883, 3.172606705 }, + { 0.000347e-6, 4690.479836359, 1.479586566 }, + { 0.000317e-6, 801.820931124, 3.553088096 }, + { 0.000262e-6, 419.484643875, 0.606635550 }, + { 0.000248e-6, 6836.645252834, 3.014082064 }, + { 0.000245e-6, -1592.596013633, 5.519526220 }, + { 0.000225e-6, 4292.330832950, 2.877956536 }, + /* 741, 750 */ + { 0.000214e-6, 7234.794256242, 1.605227587 }, + { 0.000205e-6, 5767.611978898, 0.625804796 }, + { 0.000180e-6, 10447.387839604, 3.499954526 }, + { 0.000229e-6, 199.072001436, 5.632304604 }, + { 0.000214e-6, 639.897286314, 5.960227667 }, + { 0.000175e-6, -433.711737877, 2.162417992 }, + { 0.000209e-6, 515.463871093, 2.322150893 }, + { 0.000173e-6, 6040.347246017, 2.556183691 }, + { 0.000184e-6, 6309.374169791, 4.732296790 }, + { 0.000227e-6, 149854.400134205, 5.385812217 }, + /* 751, 760 */ + { 0.000154e-6, 8031.092263058, 5.120720920 }, + { 0.000151e-6, 5739.157790895, 4.815000443 }, + { 0.000197e-6, 7632.943259650, 0.222827271 }, + { 0.000197e-6, 74.781598567, 3.910456770 }, + { 0.000138e-6, 6055.549660552, 1.397484253 }, + { 0.000149e-6, -6127.655450557, 5.333727496 }, + { 0.000137e-6, 3894.181829542, 4.281749907 }, + { 0.000135e-6, 9437.762934887, 5.979971885 }, + { 0.000139e-6, -2352.866153772, 4.715630782 }, + { 0.000142e-6, 6812.766815086, 0.513330157 }, + /* 761, 770 */ + { 0.000120e-6, -4705.732307544, 0.194160689 }, + { 0.000131e-6, -71430.695617928, 0.000379226 }, + { 0.000124e-6, 6279.552731642, 2.122264908 }, + { 0.000108e-6, -6256.777530192, 0.883445696 }, + + /* T^3 */ + { 0.143388e-6, 6283.075849991, 1.131453581 }, + { 0.006671e-6, 12566.151699983, 0.775148887 }, + { 0.001480e-6, 155.420399434, 0.480016880 }, + { 0.000934e-6, 213.299095438, 6.144453084 }, + { 0.000795e-6, 529.690965095, 2.941595619 }, + { 0.000673e-6, 5746.271337896, 0.120415406 }, + /* 771, 780 */ + { 0.000672e-6, 5760.498431898, 5.317009738 }, + { 0.000389e-6, -220.412642439, 3.090323467 }, + { 0.000373e-6, 6062.663207553, 3.003551964 }, + { 0.000360e-6, 6076.890301554, 1.918913041 }, + { 0.000316e-6, -21.340641002, 5.545798121 }, + { 0.000315e-6, -242.728603974, 1.884932563 }, + { 0.000278e-6, 206.185548437, 1.266254859 }, + { 0.000238e-6, -536.804512095, 4.532664830 }, + { 0.000185e-6, 522.577418094, 4.578313856 }, + { 0.000245e-6, 18849.227549974, 0.587467082 }, + /* 781, 787 */ + { 0.000180e-6, 426.598190876, 5.151178553 }, + { 0.000200e-6, 553.569402842, 5.355983739 }, + { 0.000141e-6, 5223.693919802, 1.336556009 }, + { 0.000104e-6, 5856.477659115, 4.239842759 }, + + /* T^4 */ + { 0.003826e-6, 6283.075849991, 5.705257275 }, + { 0.000303e-6, 12566.151699983, 5.407132842 }, + { 0.000209e-6, 155.420399434, 1.989815753 } + }; + +/* Time since J2000.0 in Julian millennia. */ + t = ((date1 - DJ00) + date2) / DJM; + +/* ================= */ +/* Topocentric terms */ +/* ================= */ + +/* Convert UT to local solar time in radians. */ + tsol = fmod(ut, 1.0) * D2PI + elong; + +/* FUNDAMENTAL ARGUMENTS: Simon et al. 1994. */ + +/* Combine time argument (millennia) with deg/arcsec factor. */ + w = t / 3600.0; + +/* Sun Mean Longitude. */ + elsun = fmod(280.46645683 + 1296027711.03429 * w, 360.0) * DD2R; + +/* Sun Mean Anomaly. */ + emsun = fmod(357.52910918 + 1295965810.481 * w, 360.0) * DD2R; + +/* Mean Elongation of Moon from Sun. */ + d = fmod(297.85019547 + 16029616012.090 * w, 360.0) * DD2R; + +/* Mean Longitude of Jupiter. */ + elj = fmod(34.35151874 + 109306899.89453 * w, 360.0) * DD2R; + +/* Mean Longitude of Saturn. */ + els = fmod(50.07744430 + 44046398.47038 * w, 360.0) * DD2R; + +/* TOPOCENTRIC TERMS: Moyer 1981 and Murray 1983. */ + wt = + 0.00029e-10 * u * sin(tsol + elsun - els) + + 0.00100e-10 * u * sin(tsol - 2.0 * emsun) + + 0.00133e-10 * u * sin(tsol - d) + + 0.00133e-10 * u * sin(tsol + elsun - elj) + - 0.00229e-10 * u * sin(tsol + 2.0 * elsun + emsun) + - 0.02200e-10 * v * cos(elsun + emsun) + + 0.05312e-10 * u * sin(tsol - emsun) + - 0.13677e-10 * u * sin(tsol + 2.0 * elsun) + - 1.31840e-10 * v * cos(elsun) + + 3.17679e-10 * u * sin(tsol); + +/* ===================== */ +/* Fairhead et al. model */ +/* ===================== */ + +/* T**0 */ + w0 = 0; + for (j = 473; j >= 0; j--) { + w0 += fairhd[j][0] * sin(fairhd[j][1] * t + fairhd[j][2]); + } + +/* T**1 */ + w1 = 0; + for (j = 678; j >= 474; j--) { + w1 += fairhd[j][0] * sin(fairhd[j][1] * t + fairhd[j][2]); + } + +/* T**2 */ + w2 = 0; + for (j = 763; j >= 679; j--) { + w2 += fairhd[j][0] * sin(fairhd[j][1] * t + fairhd[j][2]); + } + +/* T**3 */ + w3 = 0; + for (j = 783; j >= 764; j--) { + w3 += fairhd[j][0] * sin(fairhd[j][1] * t + fairhd[j][2]); + } + +/* T**4 */ + w4 = 0; + for (j = 786; j >= 784; j--) { + w4 += fairhd[j][0] * sin(fairhd[j][1] * t + fairhd[j][2]); + } + +/* Multiply by powers of T and combine. */ + wf = t * (t * (t * (t * w4 + w3) + w2) + w1) + w0; + +/* Adjustments to use JPL planetary masses instead of IAU. */ + wj = 0.00065e-6 * sin(6069.776754 * t + 4.021194) + + 0.00033e-6 * sin( 213.299095 * t + 5.543132) + + (-0.00196e-6 * sin(6208.294251 * t + 5.696701)) + + (-0.00173e-6 * sin( 74.781599 * t + 2.435900)) + + 0.03638e-6 * t * t; + +/* ============ */ +/* Final result */ +/* ============ */ + +/* TDB-TT in seconds. */ + w = wt + wf + wj; + + return w; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/dtf2d.c =================================================================== --- /trunk/FACT++/sofa/src/dtf2d.c (revision 18346) +++ /trunk/FACT++/sofa/src/dtf2d.c (revision 18346) @@ -0,0 +1,252 @@ +#include "sofa.h" +#include + +int iauDtf2d(const char *scale, int iy, int im, int id, + int ihr, int imn, double sec, double *d1, double *d2) +/* +** - - - - - - - - - +** i a u D t f 2 d +** - - - - - - - - - +** +** Encode date and time fields into 2-part Julian Date (or in the case +** of UTC a quasi-JD form that includes special provision for leap +** seconds). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** scale char[] time scale ID (Note 1) +** iy,im,id int year, month, day in Gregorian calendar (Note 2) +** ihr,imn int hour, minute +** sec double seconds +** +** Returned: +** d1,d2 double 2-part Julian Date (Notes 3,4) +** +** Returned (function value): +** int status: +3 = both of next two +** +2 = time is after end of day (Note 5) +** +1 = dubious year (Note 6) +** 0 = OK +** -1 = bad year +** -2 = bad month +** -3 = bad day +** -4 = bad hour +** -5 = bad minute +** -6 = bad second (<0) +** +** Notes: +** +** 1) scale identifies the time scale. Only the value "UTC" (in upper +** case) is significant, and enables handling of leap seconds (see +** Note 4). +** +** 2) For calendar conventions and limitations, see iauCal2jd. +** +** 3) The sum of the results, d1+d2, is Julian Date, where normally d1 +** is the Julian Day Number and d2 is the fraction of a day. In the +** case of UTC, where the use of JD is problematical, special +** conventions apply: see the next note. +** +** 4) JD cannot unambiguously represent UTC during a leap second unless +** special measures are taken. The SOFA internal convention is that +** the quasi-JD day represents UTC days whether the length is 86399, +** 86400 or 86401 SI seconds. In the 1960-1972 era there were +** smaller jumps (in either direction) each time the linear UTC(TAI) +** expression was changed, and these "mini-leaps" are also included +** in the SOFA convention. +** +** 5) The warning status "time is after end of day" usually means that +** the sec argument is greater than 60.0. However, in a day ending +** in a leap second the limit changes to 61.0 (or 59.0 in the case +** of a negative leap second). +** +** 6) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the future +** to be trusted. See iauDat for further details. +** +** 7) Only in the case of continuous and regular time scales (TAI, TT, +** TCG, TCB and TDB) is the result d1+d2 a Julian Date, strictly +** speaking. In the other cases (UT1 and UTC) the result must be +** used with circumspection; in particular the difference between +** two such results cannot be interpreted as a precise time +** interval. +** +** Called: +** iauCal2jd Gregorian calendar to JD +** iauDat delta(AT) = TAI-UTC +** iauJd2cal JD to Gregorian calendar +** +** This revision: 2013 July 26 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int js, iy2, im2, id2; + double dj, w, day, seclim, dat0, dat12, dat24, dleap, time; + +/* Today's Julian Day Number. */ + js = iauCal2jd(iy, im, id, &dj, &w); + if ( js ) return js; + dj += w; + +/* Day length and final minute length in seconds (provisional). */ + day = DAYSEC; + seclim = 60.0; + +/* Deal with the UTC leap second case. */ + if ( ! strcmp(scale,"UTC") ) { + + /* TAI-UTC at 0h today. */ + js = iauDat(iy, im, id, 0.0, &dat0); + if ( js < 0 ) return js; + + /* TAI-UTC at 12h today (to detect drift). */ + js = iauDat(iy, im, id, 0.5, &dat12); + if ( js < 0 ) return js; + + /* TAI-UTC at 0h tomorrow (to detect jumps). */ + js = iauJd2cal ( dj, 1.5, &iy2, &im2, &id2, &w); + if ( js ) return js; + js = iauDat(iy2, im2, id2, 0.0, &dat24); + if ( js < 0 ) return js; + + /* Any sudden change in TAI-UTC between today and tomorrow. */ + dleap = dat24 - (2.0*dat12 - dat0); + + /* If leap second day, correct the day and final minute lengths. */ + day += dleap; + if ( ihr == 23 && imn == 59 ) seclim += dleap; + + /* End of UTC-specific actions. */ + } + +/* Validate the time. */ + if ( ihr >= 0 && ihr <= 23 ) { + if ( imn >= 0 && imn <= 59 ) { + if ( sec >= 0 ) { + if ( sec >= seclim ) { + js += 2; + } + } else { + js = -6; + } + } else { + js = -5; + } + } else { + js = -4; + } + if ( js < 0 ) return js; + +/* The time in days. */ + time = ( 60.0 * ( (double) ( 60 * ihr + imn ) ) + sec ) / day; + +/* Return the date and time. */ + *d1 = dj; + *d2 = time; + +/* Status. */ + return js; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/ee00.c =================================================================== --- /trunk/FACT++/sofa/src/ee00.c (revision 18346) +++ /trunk/FACT++/sofa/src/ee00.c (revision 18346) @@ -0,0 +1,177 @@ +#include "sofa.h" + +double iauEe00(double date1, double date2, double epsa, double dpsi) +/* +** - - - - - - - - +** i a u E e 0 0 +** - - - - - - - - +** +** The equation of the equinoxes, compatible with IAU 2000 resolutions, +** given the nutation in longitude and the mean obliquity. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** epsa double mean obliquity (Note 2) +** dpsi double nutation in longitude (Note 3) +** +** Returned (function value): +** double equation of the equinoxes (Note 4) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The obliquity, in radians, is mean of date. +** +** 3) The result, which is in radians, operates in the following sense: +** +** Greenwich apparent ST = GMST + equation of the equinoxes +** +** 4) The result is compatible with the IAU 2000 resolutions. For +** further details, see IERS Conventions 2003 and Capitaine et al. +** (2002). +** +** Called: +** iauEect00 equation of the equinoxes complementary terms +** +** References: +** +** Capitaine, N., Wallace, P.T. and McCarthy, D.D., "Expressions to +** implement the IAU 2000 definition of UT1", Astronomy & +** Astrophysics, 406, 1135-1149 (2003) +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2008 May 16 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double ee; + +/* Equation of the equinoxes. */ + ee = dpsi * cos(epsa) + iauEect00(date1, date2); + + return ee; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/ee00a.c =================================================================== --- /trunk/FACT++/sofa/src/ee00a.c (revision 18346) +++ /trunk/FACT++/sofa/src/ee00a.c (revision 18346) @@ -0,0 +1,184 @@ +#include "sofa.h" + +double iauEe00a(double date1, double date2) +/* +** - - - - - - - - - +** i a u E e 0 0 a +** - - - - - - - - - +** +** Equation of the equinoxes, compatible with IAU 2000 resolutions. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double equation of the equinoxes (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The result, which is in radians, operates in the following sense: +** +** Greenwich apparent ST = GMST + equation of the equinoxes +** +** 3) The result is compatible with the IAU 2000 resolutions. For +** further details, see IERS Conventions 2003 and Capitaine et al. +** (2002). +** +** Called: +** iauPr00 IAU 2000 precession adjustments +** iauObl80 mean obliquity, IAU 1980 +** iauNut00a nutation, IAU 2000A +** iauEe00 equation of the equinoxes, IAU 2000 +** +** References: +** +** Capitaine, N., Wallace, P.T. and McCarthy, D.D., "Expressions to +** implement the IAU 2000 definition of UT1", Astronomy & +** Astrophysics, 406, 1135-1149 (2003). +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004). +** +** This revision: 2008 May 16 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double dpsipr, depspr, epsa, dpsi, deps, ee; + +/* IAU 2000 precession-rate adjustments. */ + iauPr00(date1, date2, &dpsipr, &depspr); + +/* Mean obliquity, consistent with IAU 2000 precession-nutation. */ + epsa = iauObl80(date1, date2) + depspr; + +/* Nutation in longitude. */ + iauNut00a(date1, date2, &dpsi, &deps); + +/* Equation of the equinoxes. */ + ee = iauEe00(date1, date2, epsa, dpsi); + + return ee; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/ee00b.c =================================================================== --- /trunk/FACT++/sofa/src/ee00b.c (revision 18346) +++ /trunk/FACT++/sofa/src/ee00b.c (revision 18346) @@ -0,0 +1,190 @@ +#include "sofa.h" + +double iauEe00b(double date1, double date2) +/* +** - - - - - - - - - +** i a u E e 0 0 b +** - - - - - - - - - +** +** Equation of the equinoxes, compatible with IAU 2000 resolutions but +** using the truncated nutation model IAU 2000B. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double equation of the equinoxes (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The result, which is in radians, operates in the following sense: +** +** Greenwich apparent ST = GMST + equation of the equinoxes +** +** 3) The result is compatible with the IAU 2000 resolutions except +** that accuracy has been compromised for the sake of speed. For +** further details, see McCarthy & Luzum (2001), IERS Conventions +** 2003 and Capitaine et al. (2003). +** +** Called: +** iauPr00 IAU 2000 precession adjustments +** iauObl80 mean obliquity, IAU 1980 +** iauNut00b nutation, IAU 2000B +** iauEe00 equation of the equinoxes, IAU 2000 +** +** References: +** +** Capitaine, N., Wallace, P.T. and McCarthy, D.D., "Expressions to +** implement the IAU 2000 definition of UT1", Astronomy & +** Astrophysics, 406, 1135-1149 (2003) +** +** McCarthy, D.D. & Luzum, B.J., "An abridged model of the +** precession-nutation of the celestial pole", Celestial Mechanics & +** Dynamical Astronomy, 85, 37-49 (2003) +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2008 May 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double dpsipr, depspr, epsa, dpsi, deps, ee; + +/* IAU 2000 precession-rate adjustments. */ + iauPr00(date1, date2, &dpsipr, &depspr); + +/* Mean obliquity, consistent with IAU 2000 precession-nutation. */ + epsa = iauObl80(date1, date2) + depspr; + +/* Nutation in longitude. */ + iauNut00b(date1, date2, &dpsi, &deps); + +/* Equation of the equinoxes. */ + ee = iauEe00(date1, date2, epsa, dpsi); + + return ee; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/ee06a.c =================================================================== --- /trunk/FACT++/sofa/src/ee06a.c (revision 18346) +++ /trunk/FACT++/sofa/src/ee06a.c (revision 18346) @@ -0,0 +1,171 @@ +#include "sofa.h" + +double iauEe06a(double date1, double date2) +/* +** - - - - - - - - - +** i a u E e 0 6 a +** - - - - - - - - - +** +** Equation of the equinoxes, compatible with IAU 2000 resolutions and +** IAU 2006/2000A precession-nutation. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double equation of the equinoxes (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The result, which is in radians, operates in the following sense: +** +** Greenwich apparent ST = GMST + equation of the equinoxes +** +** Called: +** iauAnpm normalize angle into range +/- pi +** iauGst06a Greenwich apparent sidereal time, IAU 2006/2000A +** iauGmst06 Greenwich mean sidereal time, IAU 2006 +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), 2004, IERS Conventions (2003), +** IERS Technical Note No. 32, BKG +** +** This revision: 2008 May 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double gst06a, gmst06, ee; + +/* Apparent and mean sidereal times. */ + gst06a = iauGst06a(0.0, 0.0, date1, date2); + gmst06 = iauGmst06(0.0, 0.0, date1, date2); + +/* Equation of the equinoxes. */ + ee = iauAnpm(gst06a - gmst06); + + return ee; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/eect00.c =================================================================== --- /trunk/FACT++/sofa/src/eect00.c (revision 18346) +++ /trunk/FACT++/sofa/src/eect00.c (revision 18346) @@ -0,0 +1,332 @@ +#include "sofa.h" + +double iauEect00(double date1, double date2) +/* +** - - - - - - - - - - +** i a u E e c t 0 0 +** - - - - - - - - - - +** +** Equation of the equinoxes complementary terms, consistent with +** IAU 2000 resolutions. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double complementary terms (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The "complementary terms" are part of the equation of the +** equinoxes (EE), classically the difference between apparent and +** mean Sidereal Time: +** +** GAST = GMST + EE +** +** with: +** +** EE = dpsi * cos(eps) +** +** where dpsi is the nutation in longitude and eps is the obliquity +** of date. However, if the rotation of the Earth were constant in +** an inertial frame the classical formulation would lead to +** apparent irregularities in the UT1 timescale traceable to side- +** effects of precession-nutation. In order to eliminate these +** effects from UT1, "complementary terms" were introduced in 1994 +** (IAU, 1994) and took effect from 1997 (Capitaine and Gontier, +** 1993): +** +** GAST = GMST + CT + EE +** +** By convention, the complementary terms are included as part of +** the equation of the equinoxes rather than as part of the mean +** Sidereal Time. This slightly compromises the "geometrical" +** interpretation of mean sidereal time but is otherwise +** inconsequential. +** +** The present function computes CT in the above expression, +** compatible with IAU 2000 resolutions (Capitaine et al., 2002, and +** IERS Conventions 2003). +** +** Called: +** iauFal03 mean anomaly of the Moon +** iauFalp03 mean anomaly of the Sun +** iauFaf03 mean argument of the latitude of the Moon +** iauFad03 mean elongation of the Moon from the Sun +** iauFaom03 mean longitude of the Moon's ascending node +** iauFave03 mean longitude of Venus +** iauFae03 mean longitude of Earth +** iauFapa03 general accumulated precession in longitude +** +** References: +** +** Capitaine, N. & Gontier, A.-M., Astron. Astrophys., 275, +** 645-650 (1993) +** +** Capitaine, N., Wallace, P.T. and McCarthy, D.D., "Expressions to +** implement the IAU 2000 definition of UT1", Astronomy & +** Astrophysics, 406, 1135-1149 (2003) +** +** IAU Resolution C7, Recommendation 3 (1994) +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Time since J2000.0, in Julian centuries */ + double t; + +/* Miscellaneous */ + int i, j; + double a, s0, s1; + +/* Fundamental arguments */ + double fa[14]; + +/* Returned value. */ + double eect; + +/* ----------------------------------------- */ +/* The series for the EE complementary terms */ +/* ----------------------------------------- */ + + typedef struct { + int nfa[8]; /* coefficients of l,l',F,D,Om,LVe,LE,pA */ + double s, c; /* sine and cosine coefficients */ + } TERM; + +/* Terms of order t^0 */ + static const TERM e0[] = { + + /* 1-10 */ + {{ 0, 0, 0, 0, 1, 0, 0, 0}, 2640.96e-6, -0.39e-6 }, + {{ 0, 0, 0, 0, 2, 0, 0, 0}, 63.52e-6, -0.02e-6 }, + {{ 0, 0, 2, -2, 3, 0, 0, 0}, 11.75e-6, 0.01e-6 }, + {{ 0, 0, 2, -2, 1, 0, 0, 0}, 11.21e-6, 0.01e-6 }, + {{ 0, 0, 2, -2, 2, 0, 0, 0}, -4.55e-6, 0.00e-6 }, + {{ 0, 0, 2, 0, 3, 0, 0, 0}, 2.02e-6, 0.00e-6 }, + {{ 0, 0, 2, 0, 1, 0, 0, 0}, 1.98e-6, 0.00e-6 }, + {{ 0, 0, 0, 0, 3, 0, 0, 0}, -1.72e-6, 0.00e-6 }, + {{ 0, 1, 0, 0, 1, 0, 0, 0}, -1.41e-6, -0.01e-6 }, + {{ 0, 1, 0, 0, -1, 0, 0, 0}, -1.26e-6, -0.01e-6 }, + + /* 11-20 */ + {{ 1, 0, 0, 0, -1, 0, 0, 0}, -0.63e-6, 0.00e-6 }, + {{ 1, 0, 0, 0, 1, 0, 0, 0}, -0.63e-6, 0.00e-6 }, + {{ 0, 1, 2, -2, 3, 0, 0, 0}, 0.46e-6, 0.00e-6 }, + {{ 0, 1, 2, -2, 1, 0, 0, 0}, 0.45e-6, 0.00e-6 }, + {{ 0, 0, 4, -4, 4, 0, 0, 0}, 0.36e-6, 0.00e-6 }, + {{ 0, 0, 1, -1, 1, -8, 12, 0}, -0.24e-6, -0.12e-6 }, + {{ 0, 0, 2, 0, 0, 0, 0, 0}, 0.32e-6, 0.00e-6 }, + {{ 0, 0, 2, 0, 2, 0, 0, 0}, 0.28e-6, 0.00e-6 }, + {{ 1, 0, 2, 0, 3, 0, 0, 0}, 0.27e-6, 0.00e-6 }, + {{ 1, 0, 2, 0, 1, 0, 0, 0}, 0.26e-6, 0.00e-6 }, + + /* 21-30 */ + {{ 0, 0, 2, -2, 0, 0, 0, 0}, -0.21e-6, 0.00e-6 }, + {{ 0, 1, -2, 2, -3, 0, 0, 0}, 0.19e-6, 0.00e-6 }, + {{ 0, 1, -2, 2, -1, 0, 0, 0}, 0.18e-6, 0.00e-6 }, + {{ 0, 0, 0, 0, 0, 8,-13, -1}, -0.10e-6, 0.05e-6 }, + {{ 0, 0, 0, 2, 0, 0, 0, 0}, 0.15e-6, 0.00e-6 }, + {{ 2, 0, -2, 0, -1, 0, 0, 0}, -0.14e-6, 0.00e-6 }, + {{ 1, 0, 0, -2, 1, 0, 0, 0}, 0.14e-6, 0.00e-6 }, + {{ 0, 1, 2, -2, 2, 0, 0, 0}, -0.14e-6, 0.00e-6 }, + {{ 1, 0, 0, -2, -1, 0, 0, 0}, 0.14e-6, 0.00e-6 }, + {{ 0, 0, 4, -2, 4, 0, 0, 0}, 0.13e-6, 0.00e-6 }, + + /* 31-33 */ + {{ 0, 0, 2, -2, 4, 0, 0, 0}, -0.11e-6, 0.00e-6 }, + {{ 1, 0, -2, 0, -3, 0, 0, 0}, 0.11e-6, 0.00e-6 }, + {{ 1, 0, -2, 0, -1, 0, 0, 0}, 0.11e-6, 0.00e-6 } + }; + +/* Terms of order t^1 */ + static const TERM e1[] = { + {{ 0, 0, 0, 0, 1, 0, 0, 0}, -0.87e-6, 0.00e-6 } + }; + +/* Number of terms in the series */ + const int NE0 = (int) (sizeof e0 / sizeof (TERM)); + const int NE1 = (int) (sizeof e1 / sizeof (TERM)); + +/*--------------------------------------------------------------------*/ + +/* Interval between fundamental epoch J2000.0 and current date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* Fundamental Arguments (from IERS Conventions 2003) */ + +/* Mean anomaly of the Moon. */ + fa[0] = iauFal03(t); + +/* Mean anomaly of the Sun. */ + fa[1] = iauFalp03(t); + +/* Mean longitude of the Moon minus that of the ascending node. */ + fa[2] = iauFaf03(t); + +/* Mean elongation of the Moon from the Sun. */ + fa[3] = iauFad03(t); + +/* Mean longitude of the ascending node of the Moon. */ + fa[4] = iauFaom03(t); + +/* Mean longitude of Venus. */ + fa[5] = iauFave03(t); + +/* Mean longitude of Earth. */ + fa[6] = iauFae03(t); + +/* General precession in longitude. */ + fa[7] = iauFapa03(t); + +/* Evaluate the EE complementary terms. */ + s0 = 0.0; + s1 = 0.0; + + for (i = NE0-1; i >= 0; i--) { + a = 0.0; + for (j = 0; j < 8; j++) { + a += (double)(e0[i].nfa[j]) * fa[j]; + } + s0 += e0[i].s * sin(a) + e0[i].c * cos(a); + } + + for (i = NE1-1; i >= 0; i--) { + a = 0.0; + for (j = 0; j < 8; j++) { + a += (double)(e1[i].nfa[j]) * fa[j]; + } + s1 += e1[i].s * sin(a) + e1[i].c * cos(a); + } + + eect = (s0 + s1 * t ) * DAS2R; + + return eect; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/eform.c =================================================================== --- /trunk/FACT++/sofa/src/eform.c (revision 18346) +++ /trunk/FACT++/sofa/src/eform.c (revision 18346) @@ -0,0 +1,197 @@ +#include "sofa.h" + +int iauEform ( int n, double *a, double *f ) +/* +** - - - - - - - - - +** i a u E f o r m +** - - - - - - - - - +** +** Earth reference ellipsoids. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** n int ellipsoid identifier (Note 1) +** +** Returned: +** a double equatorial radius (meters, Note 2) +** f double flattening (Note 2) +** +** Returned (function value): +** int status: 0 = OK +** -1 = illegal identifier (Note 3) +** +** Notes: +** +** 1) The identifier n is a number that specifies the choice of +** reference ellipsoid. The following are supported: +** +** n ellipsoid +** +** 1 WGS84 +** 2 GRS80 +** 3 WGS72 +** +** The n value has no significance outside the SOFA software. For +** convenience, symbols WGS84 etc. are defined in sofam.h. +** +** 2) The ellipsoid parameters are returned in the form of equatorial +** radius in meters (a) and flattening (f). The latter is a number +** around 0.00335, i.e. around 1/298. +** +** 3) For the case where an unsupported n value is supplied, zero a and +** f are returned, as well as error status. +** +** References: +** +** Department of Defense World Geodetic System 1984, National +** Imagery and Mapping Agency Technical Report 8350.2, Third +** Edition, p3-2. +** +** Moritz, H., Bull. Geodesique 66-2, 187 (1992). +** +** The Department of Defense World Geodetic System 1972, World +** Geodetic System Committee, May 1974. +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** p220. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + +/* Look up a and f for the specified reference ellipsoid. */ + switch ( n ) { + + case WGS84: + *a = 6378137.0; + *f = 1.0 / 298.257223563; + break; + + case GRS80: + *a = 6378137.0; + *f = 1.0 / 298.257222101; + break; + + case WGS72: + *a = 6378135.0; + *f = 1.0 / 298.26; + break; + + default: + + /* Invalid identifier. */ + *a = 0.0; + *f = 0.0; + return -1; + + } + +/* OK status. */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/eo06a.c =================================================================== --- /trunk/FACT++/sofa/src/eo06a.c (revision 18346) +++ /trunk/FACT++/sofa/src/eo06a.c (revision 18346) @@ -0,0 +1,180 @@ +#include "sofa.h" + +double iauEo06a(double date1, double date2) +/* +** - - - - - - - - - +** i a u E o 0 6 a +** - - - - - - - - - +** +** Equation of the origins, IAU 2006 precession and IAU 2000A nutation. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double equation of the origins in radians +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The equation of the origins is the distance between the true +** equinox and the celestial intermediate origin and, equivalently, +** the difference between Earth rotation angle and Greenwich +** apparent sidereal time (ERA-GST). It comprises the precession +** (since J2000.0) in right ascension plus the equation of the +** equinoxes (including the small correction terms). +** +** Called: +** iauPnm06a classical NPB matrix, IAU 2006/2000A +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS06 the CIO locator s, given X,Y, IAU 2006 +** iauEors equation of the origins, given NPB matrix and s +** +** References: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double r[3][3], x, y, s, eo; + +/* Classical nutation x precession x bias matrix. */ + iauPnm06a(date1, date2, r); + +/* Extract CIP coordinates. */ + iauBpn2xy(r, &x, &y); + +/* The CIO locator, s. */ + s = iauS06(date1, date2, x, y); + +/* Solve for the EO. */ + eo = iauEors(r, s); + + return eo; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/eors.c =================================================================== --- /trunk/FACT++/sofa/src/eors.c (revision 18346) +++ /trunk/FACT++/sofa/src/eors.c (revision 18346) @@ -0,0 +1,157 @@ +#include "sofa.h" + +double iauEors(double rnpb[3][3], double s) +/* +** - - - - - - - - +** i a u E o r s +** - - - - - - - - +** +** Equation of the origins, given the classical NPB matrix and the +** quantity s. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rnpb double[3][3] classical nutation x precession x bias matrix +** s double the quantity s (the CIO locator) +** +** Returned (function value): +** double the equation of the origins in radians. +** +** Notes: +** +** 1) The equation of the origins is the distance between the true +** equinox and the celestial intermediate origin and, equivalently, +** the difference between Earth rotation angle and Greenwich +** apparent sidereal time (ERA-GST). It comprises the precession +** (since J2000.0) in right ascension plus the equation of the +** equinoxes (including the small correction terms). +** +** 2) The algorithm is from Wallace & Capitaine (2006). +** +** References: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** Wallace, P. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double x, ax, xs, ys, zs, p, q, eo; + +/* Evaluate Wallace & Capitaine (2006) expression (16). */ + x = rnpb[2][0]; + ax = x / (1.0 + rnpb[2][2]); + xs = 1.0 - ax * x; + ys = -ax * rnpb[2][1]; + zs = -x; + p = rnpb[0][0] * xs + rnpb[0][1] * ys + rnpb[0][2] * zs; + q = rnpb[1][0] * xs + rnpb[1][1] * ys + rnpb[1][2] * zs; + eo = ((p != 0) || (q != 0)) ? s - atan2(q, p) : s; + + return eo; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/epb.c =================================================================== --- /trunk/FACT++/sofa/src/epb.c (revision 18346) +++ /trunk/FACT++/sofa/src/epb.c (revision 18346) @@ -0,0 +1,141 @@ +#include "sofa.h" + +double iauEpb(double dj1, double dj2) +/* +** - - - - - - - +** i a u E p b +** - - - - - - - +** +** Julian Date to Besselian Epoch. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** dj1,dj2 double Julian Date (see note) +** +** Returned (function value): +** double Besselian Epoch. +** +** Note: +** +** The Julian Date is supplied in two pieces, in the usual SOFA +** manner, which is designed to preserve time resolution. The +** Julian Date is available as a single number by adding dj1 and +** dj2. The maximum resolution is achieved if dj1 is 2451545.0 +** (J2000.0). +** +** Reference: +** +** Lieske, J.H., 1979. Astron.Astrophys., 73, 282. +** +** This revision: 2013 August 21 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* J2000.0-B1900.0 (2415019.81352) in days */ + const double D1900 = 36524.68648; + + return 1900.0 + ((dj1 - DJ00) + (dj2 + D1900)) / DTY; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/epb2jd.c =================================================================== --- /trunk/FACT++/sofa/src/epb2jd.c (revision 18346) +++ /trunk/FACT++/sofa/src/epb2jd.c (revision 18346) @@ -0,0 +1,141 @@ +#include "sofa.h" + +void iauEpb2jd(double epb, double *djm0, double *djm) +/* +** - - - - - - - - - - +** i a u E p b 2 j d +** - - - - - - - - - - +** +** Besselian Epoch to Julian Date. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** epb double Besselian Epoch (e.g. 1957.3) +** +** Returned: +** djm0 double MJD zero-point: always 2400000.5 +** djm double Modified Julian Date +** +** Note: +** +** The Julian Date is returned in two pieces, in the usual SOFA +** manner, which is designed to preserve time resolution. The +** Julian Date is available as a single number by adding djm0 and +** djm. +** +** Reference: +** +** Lieske, J.H., 1979, Astron.Astrophys. 73, 282. +** +** This revision: 2013 August 13 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + *djm0 = DJM0; + *djm = 15019.81352 + (epb - 1900.0) * DTY; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/epj.c =================================================================== --- /trunk/FACT++/sofa/src/epj.c (revision 18346) +++ /trunk/FACT++/sofa/src/epj.c (revision 18346) @@ -0,0 +1,142 @@ +#include "sofa.h" + +double iauEpj(double dj1, double dj2) +/* +** - - - - - - - +** i a u E p j +** - - - - - - - +** +** Julian Date to Julian Epoch. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** dj1,dj2 double Julian Date (see note) +** +** Returned (function value): +** double Julian Epoch +** +** Note: +** +** The Julian Date is supplied in two pieces, in the usual SOFA +** manner, which is designed to preserve time resolution. The +** Julian Date is available as a single number by adding dj1 and +** dj2. The maximum resolution is achieved if dj1 is 2451545.0 +** (J2000.0). +** +** Reference: +** +** Lieske, J.H., 1979, Astron.Astrophys. 73, 282. +** +** This revision: 2013 August 7 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double epj; + + epj = 2000.0 + ((dj1 - DJ00) + dj2) / DJY; + + return epj; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/epj2jd.c =================================================================== --- /trunk/FACT++/sofa/src/epj2jd.c (revision 18346) +++ /trunk/FACT++/sofa/src/epj2jd.c (revision 18346) @@ -0,0 +1,141 @@ +#include "sofa.h" + +void iauEpj2jd(double epj, double *djm0, double *djm) +/* +** - - - - - - - - - - +** i a u E p j 2 j d +** - - - - - - - - - - +** +** Julian Epoch to Julian Date. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** epj double Julian Epoch (e.g. 1996.8) +** +** Returned: +** djm0 double MJD zero-point: always 2400000.5 +** djm double Modified Julian Date +** +** Note: +** +** The Julian Date is returned in two pieces, in the usual SOFA +** manner, which is designed to preserve time resolution. The +** Julian Date is available as a single number by adding djm0 and +** djm. +** +** Reference: +** +** Lieske, J.H., 1979, Astron.Astrophys. 73, 282. +** +** This revision: 2013 August 7 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + *djm0 = DJM0; + *djm = DJM00 + (epj - 2000.0) * 365.25; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/epv00.c =================================================================== --- /trunk/FACT++/sofa/src/epv00.c (revision 18346) +++ /trunk/FACT++/sofa/src/epv00.c (revision 18346) @@ -0,0 +1,2639 @@ +#include "sofa.h" + +int iauEpv00(double date1, double date2, + double pvh[2][3], double pvb[2][3]) +/* +** - - - - - - - - - +** i a u E p v 0 0 +** - - - - - - - - - +** +** Earth position and velocity, heliocentric and barycentric, with +** respect to the Barycentric Celestial Reference System. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TDB date (Note 1) +** +** Returned: +** pvh double[2][3] heliocentric Earth position/velocity +** pvb double[2][3] barycentric Earth position/velocity +** +** Returned (function value): +** int status: 0 = OK +** +1 = warning: date outside +** the range 1900-2100 AD +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, among +** others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. However, +** the accuracy of the result is more likely to be limited by the +** algorithm itself than the way the date has been expressed. +** +** n.b. TT can be used instead of TDB in most applications. +** +** 2) On return, the arrays pvh and pvb contain the following: +** +** pvh[0][0] x } +** pvh[0][1] y } heliocentric position, AU +** pvh[0][2] z } +** +** pvh[1][0] xdot } +** pvh[1][1] ydot } heliocentric velocity, AU/d +** pvh[1][2] zdot } +** +** pvb[0][0] x } +** pvb[0][1] y } barycentric position, AU +** pvb[0][2] z } +** +** pvb[1][0] xdot } +** pvb[1][1] ydot } barycentric velocity, AU/d +** pvb[1][2] zdot } +** +** The vectors are with respect to the Barycentric Celestial +** Reference System. The time unit is one day in TDB. +** +** 3) The function is a SIMPLIFIED SOLUTION from the planetary theory +** VSOP2000 (X. Moisson, P. Bretagnon, 2001, Celes. Mechanics & +** Dyn. Astron., 80, 3/4, 205-213) and is an adaptation of original +** Fortran code supplied by P. Bretagnon (private comm., 2000). +** +** 4) Comparisons over the time span 1900-2100 with this simplified +** solution and the JPL DE405 ephemeris give the following results: +** +** RMS max +** Heliocentric: +** position error 3.7 11.2 km +** velocity error 1.4 5.0 mm/s +** +** Barycentric: +** position error 4.6 13.4 km +** velocity error 1.4 4.9 mm/s +** +** Comparisons with the JPL DE406 ephemeris show that by 1800 and +** 2200 the position errors are approximately double their 1900-2100 +** size. By 1500 and 2500 the deterioration is a factor of 10 and +** by 1000 and 3000 a factor of 60. The velocity accuracy falls off +** at about half that rate. +** +** 5) It is permissible to use the same array for pvh and pvb, which +** will receive the barycentric values. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* +** Matrix elements for orienting the analytical model to DE405. +** +** The corresponding Euler angles are: +** +** d ' " +** 1st rotation - 23 26 21.4091 about the x-axis (obliquity) +** 2nd rotation + 0.0475 about the z-axis (RA offset) +** +** These were obtained empirically, by comparisons with DE405 over +** 1900-2100. +*/ + static const double am12 = 0.000000211284, + am13 = -0.000000091603, + am21 = -0.000000230286, + am22 = 0.917482137087, + am23 = -0.397776982902, + am32 = 0.397776982902, + am33 = 0.917482137087; + +/* +** ---------------------- +** Ephemeris Coefficients +** ---------------------- +** +** The ephemeris consists of harmonic terms for predicting (i) the Sun +** to Earth vector and (ii) the Solar-System-barycenter to Sun vector +** respectively. The coefficients are stored in arrays which, although +** 1-demensional, contain groups of three. Each triplet of +** coefficients is the amplitude, phase and frequency for one term in +** the model, and each array contains the number of terms called for by +** the model. +** +** There are eighteen such arrays, named as follows: +** +** array model power of T component +** +** e0x Sun-to-Earth 0 x +** e0y Sun-to-Earth 0 y +** e0z Sun-to-Earth 0 z +** +** e1x Sun-to-Earth 1 x +** e1y Sun-to-Earth 1 y +** e1z Sun-to-Earth 1 z +** +** e2x Sun-to-Earth 2 x +** e2y Sun-to-Earth 2 y +** e2z Sun-to-Earth 2 z +** +** s0x SSB-to-Sun 0 x +** s0y SSB-to-Sun 0 y +** s0z SSB-to-Sun 0 z +** +** s1x SSB-to-Sun 1 x +** s1y SSB-to-Sun 1 y +** s1z SSB-to-Sun 1 z +** +** s2x SSB-to-Sun 2 x +** s2y SSB-to-Sun 2 y +** s2z SSB-to-Sun 2 z +*/ + +/* Sun-to-Earth, T^0, X */ + static const double e0x[] = { + 0.9998292878132e+00, 0.1753485171504e+01, 0.6283075850446e+01, + 0.8352579567414e-02, 0.1710344404582e+01, 0.1256615170089e+02, + 0.5611445335148e-02, 0.0000000000000e+00, 0.0000000000000e+00, + 0.1046664295572e-03, 0.1667225416770e+01, 0.1884922755134e+02, + 0.3110842534677e-04, 0.6687513390251e+00, 0.8399684731857e+02, + 0.2552413503550e-04, 0.5830637358413e+00, 0.5296909721118e+00, + 0.2137207845781e-04, 0.1092330954011e+01, 0.1577343543434e+01, + 0.1680240182951e-04, 0.4955366134987e+00, 0.6279552690824e+01, + 0.1679012370795e-04, 0.6153014091901e+01, 0.6286599010068e+01, + 0.1445526946777e-04, 0.3472744100492e+01, 0.2352866153506e+01, + + 0.1091038246184e-04, 0.3689845786119e+01, 0.5223693906222e+01, + 0.9344399733932e-05, 0.6073934645672e+01, 0.1203646072878e+02, + 0.8993182910652e-05, 0.3175705249069e+01, 0.1021328554739e+02, + 0.5665546034116e-05, 0.2152484672246e+01, 0.1059381944224e+01, + 0.6844146703035e-05, 0.1306964099750e+01, 0.5753384878334e+01, + 0.7346610905565e-05, 0.4354980070466e+01, 0.3981490189893e+00, + 0.6815396474414e-05, 0.2218229211267e+01, 0.4705732307012e+01, + 0.6112787253053e-05, 0.5384788425458e+01, 0.6812766822558e+01, + 0.4518120711239e-05, 0.6087604012291e+01, 0.5884926831456e+01, + 0.4521963430706e-05, 0.1279424524906e+01, 0.6256777527156e+01, + + 0.4497426764085e-05, 0.5369129144266e+01, 0.6309374173736e+01, + 0.4062190566959e-05, 0.5436473303367e+00, 0.6681224869435e+01, + 0.5412193480192e-05, 0.7867838528395e+00, 0.7755226100720e+00, + 0.5469839049386e-05, 0.1461440311134e+01, 0.1414349524433e+02, + 0.5205264083477e-05, 0.4432944696116e+01, 0.7860419393880e+01, + 0.2149759935455e-05, 0.4502237496846e+01, 0.1150676975667e+02, + 0.2279109618501e-05, 0.1239441308815e+01, 0.7058598460518e+01, + 0.2259282939683e-05, 0.3272430985331e+01, 0.4694002934110e+01, + 0.2558950271319e-05, 0.2265471086404e+01, 0.1216800268190e+02, + 0.2561581447555e-05, 0.1454740653245e+01, 0.7099330490126e+00, + + 0.1781441115440e-05, 0.2962068630206e+01, 0.7962980379786e+00, + 0.1612005874644e-05, 0.1473255041006e+01, 0.5486777812467e+01, + 0.1818630667105e-05, 0.3743903293447e+00, 0.6283008715021e+01, + 0.1818601377529e-05, 0.6274174354554e+01, 0.6283142985870e+01, + 0.1554475925257e-05, 0.1624110906816e+01, 0.2513230340178e+02, + 0.2090948029241e-05, 0.5852052276256e+01, 0.1179062909082e+02, + 0.2000176345460e-05, 0.4072093298513e+01, 0.1778984560711e+02, + 0.1289535917759e-05, 0.5217019331069e+01, 0.7079373888424e+01, + 0.1281135307881e-05, 0.4802054538934e+01, 0.3738761453707e+01, + 0.1518229005692e-05, 0.8691914742502e+00, 0.2132990797783e+00, + + 0.9450128579027e-06, 0.4601859529950e+01, 0.1097707878456e+02, + 0.7781119494996e-06, 0.1844352816694e+01, 0.8827390247185e+01, + 0.7733407759912e-06, 0.3582790154750e+01, 0.5507553240374e+01, + 0.7350644318120e-06, 0.2695277788230e+01, 0.1589072916335e+01, + 0.6535928827023e-06, 0.3651327986142e+01, 0.1176985366291e+02, + 0.6324624183656e-06, 0.2241302375862e+01, 0.6262300422539e+01, + 0.6298565300557e-06, 0.4407122406081e+01, 0.6303851278352e+01, + 0.8587037089179e-06, 0.3024307223119e+01, 0.1672837615881e+03, + 0.8299954491035e-06, 0.6192539428237e+01, 0.3340612434717e+01, + 0.6311263503401e-06, 0.2014758795416e+01, 0.7113454667900e-02, + + 0.6005646745452e-06, 0.3399500503397e+01, 0.4136910472696e+01, + 0.7917715109929e-06, 0.2493386877837e+01, 0.6069776770667e+01, + 0.7556958099685e-06, 0.4159491740143e+01, 0.6496374930224e+01, + 0.6773228244949e-06, 0.4034162934230e+01, 0.9437762937313e+01, + 0.5370708577847e-06, 0.1562219163734e+01, 0.1194447056968e+01, + 0.5710804266203e-06, 0.2662730803386e+01, 0.6282095334605e+01, + 0.5709824583726e-06, 0.3985828430833e+01, 0.6284056366286e+01, + 0.5143950896447e-06, 0.1308144688689e+01, 0.6290189305114e+01, + 0.5088010604546e-06, 0.5352817214804e+01, 0.6275962395778e+01, + 0.4960369085172e-06, 0.2644267922349e+01, 0.6127655567643e+01, + + 0.4803137891183e-06, 0.4008844192080e+01, 0.6438496133249e+01, + 0.5731747768225e-06, 0.3794550174597e+01, 0.3154687086868e+01, + 0.4735947960579e-06, 0.6107118308982e+01, 0.3128388763578e+01, + 0.4808348796625e-06, 0.4771458618163e+01, 0.8018209333619e+00, + 0.4115073743137e-06, 0.3327111335159e+01, 0.8429241228195e+01, + 0.5230575889287e-06, 0.5305708551694e+01, 0.1336797263425e+02, + 0.5133977889215e-06, 0.5784230738814e+01, 0.1235285262111e+02, + 0.5065815825327e-06, 0.2052064793679e+01, 0.1185621865188e+02, + 0.4339831593868e-06, 0.3644994195830e+01, 0.1726015463500e+02, + 0.3952928638953e-06, 0.4930376436758e+01, 0.5481254917084e+01, + + 0.4898498111942e-06, 0.4542084219731e+00, 0.9225539266174e+01, + 0.4757490209328e-06, 0.3161126388878e+01, 0.5856477690889e+01, + 0.4727701669749e-06, 0.6214993845446e+00, 0.2544314396739e+01, + 0.3800966681863e-06, 0.3040132339297e+01, 0.4265981595566e+00, + 0.3257301077939e-06, 0.8064977360087e+00, 0.3930209696940e+01, + 0.3255810528674e-06, 0.1974147981034e+01, 0.2146165377750e+01, + 0.3252029748187e-06, 0.2845924913135e+01, 0.4164311961999e+01, + 0.3255505635308e-06, 0.3017900824120e+01, 0.5088628793478e+01, + 0.2801345211990e-06, 0.6109717793179e+01, 0.1256967486051e+02, + 0.3688987740970e-06, 0.2911550235289e+01, 0.1807370494127e+02, + + 0.2475153429458e-06, 0.2179146025856e+01, 0.2629832328990e-01, + 0.3033457749150e-06, 0.1994161050744e+01, 0.4535059491685e+01, + 0.2186743763110e-06, 0.5125687237936e+01, 0.1137170464392e+02, + 0.2764777032774e-06, 0.4822646860252e+00, 0.1256262854127e+02, + 0.2199028768592e-06, 0.4637633293831e+01, 0.1255903824622e+02, + 0.2046482824760e-06, 0.1467038733093e+01, 0.7084896783808e+01, + 0.2611209147507e-06, 0.3044718783485e+00, 0.7143069561767e+02, + 0.2286079656818e-06, 0.4764220356805e+01, 0.8031092209206e+01, + 0.1855071202587e-06, 0.3383637774428e+01, 0.1748016358760e+01, + 0.2324669506784e-06, 0.6189088449251e+01, 0.1831953657923e+02, + + 0.1709528015688e-06, 0.5874966729774e+00, 0.4933208510675e+01, + 0.2168156875828e-06, 0.4302994009132e+01, 0.1044738781244e+02, + 0.2106675556535e-06, 0.3800475419891e+01, 0.7477522907414e+01, + 0.1430213830465e-06, 0.1294660846502e+01, 0.2942463415728e+01, + 0.1388396901944e-06, 0.4594797202114e+01, 0.8635942003952e+01, + 0.1922258844190e-06, 0.4943044543591e+00, 0.1729818233119e+02, + 0.1888460058292e-06, 0.2426943912028e+01, 0.1561374759853e+03, + 0.1789449386107e-06, 0.1582973303499e+00, 0.1592596075957e+01, + 0.1360803685374e-06, 0.5197240440504e+01, 0.1309584267300e+02, + 0.1504038014709e-06, 0.3120360916217e+01, 0.1649636139783e+02, + + 0.1382769533389e-06, 0.6164702888205e+01, 0.7632943190217e+01, + 0.1438059769079e-06, 0.1437423770979e+01, 0.2042657109477e+02, + 0.1326303260037e-06, 0.3609688799679e+01, 0.1213955354133e+02, + 0.1159244950540e-06, 0.5463018167225e+01, 0.5331357529664e+01, + 0.1433118149136e-06, 0.6028909912097e+01, 0.7342457794669e+01, + 0.1234623148594e-06, 0.3109645574997e+01, 0.6279485555400e+01, + 0.1233949875344e-06, 0.3539359332866e+01, 0.6286666145492e+01, + 0.9927196061299e-07, 0.1259321569772e+01, 0.7234794171227e+01, + 0.1242302191316e-06, 0.1065949392609e+01, 0.1511046609763e+02, + 0.1098402195201e-06, 0.2192508743837e+01, 0.1098880815746e+02, + + 0.1158191395315e-06, 0.4054411278650e+01, 0.5729506548653e+01, + 0.9048475596241e-07, 0.5429764748518e+01, 0.9623688285163e+01, + 0.8889853269023e-07, 0.5046586206575e+01, 0.6148010737701e+01, + 0.1048694242164e-06, 0.2628858030806e+01, 0.6836645152238e+01, + 0.1112308378646e-06, 0.4177292719907e+01, 0.1572083878776e+02, + 0.8631729709901e-07, 0.1601345232557e+01, 0.6418140963190e+01, + 0.8527816951664e-07, 0.2463888997513e+01, 0.1471231707864e+02, + 0.7892139456991e-07, 0.3154022088718e+01, 0.2118763888447e+01, + 0.1051782905236e-06, 0.4795035816088e+01, 0.1349867339771e+01, + 0.1048219943164e-06, 0.2952983395230e+01, 0.5999216516294e+01, + + 0.7435760775143e-07, 0.5420547991464e+01, 0.6040347114260e+01, + 0.9869574106949e-07, 0.3695646753667e+01, 0.6566935184597e+01, + 0.9156886364226e-07, 0.3922675306609e+01, 0.5643178611111e+01, + 0.7006834356188e-07, 0.1233968624861e+01, 0.6525804586632e+01, + 0.9806170182601e-07, 0.1919542280684e+01, 0.2122839202813e+02, + 0.9052289673607e-07, 0.4615902724369e+01, 0.4690479774488e+01, + 0.7554200867893e-07, 0.1236863719072e+01, 0.1253985337760e+02, + 0.8215741286498e-07, 0.3286800101559e+00, 0.1097355562493e+02, + 0.7185178575397e-07, 0.5880942158367e+01, 0.6245048154254e+01, + 0.7130726476180e-07, 0.7674871987661e+00, 0.6321103546637e+01, + + 0.6650894461162e-07, 0.6987129150116e+00, 0.5327476111629e+01, + 0.7396888823688e-07, 0.3576824794443e+01, 0.5368044267797e+00, + 0.7420588884775e-07, 0.5033615245369e+01, 0.2354323048545e+02, + 0.6141181642908e-07, 0.9449927045673e+00, 0.1296430071988e+02, + 0.6373557924058e-07, 0.6206342280341e+01, 0.9517183207817e+00, + 0.6359474329261e-07, 0.5036079095757e+01, 0.1990745094947e+01, + 0.5740173582646e-07, 0.6105106371350e+01, 0.9555997388169e+00, + 0.7019864084602e-07, 0.7237747359018e+00, 0.5225775174439e+00, + 0.6398054487042e-07, 0.3976367969666e+01, 0.2407292145756e+02, + 0.7797092650498e-07, 0.4305423910623e+01, 0.2200391463820e+02, + + 0.6466760000900e-07, 0.3500136825200e+01, 0.5230807360890e+01, + 0.7529417043890e-07, 0.3514779246100e+01, 0.1842262939178e+02, + 0.6924571140892e-07, 0.2743457928679e+01, 0.1554202828031e+00, + 0.6220798650222e-07, 0.2242598118209e+01, 0.1845107853235e+02, + 0.5870209391853e-07, 0.2332832707527e+01, 0.6398972393349e+00, + 0.6263953473888e-07, 0.2191105358956e+01, 0.6277552955062e+01, + 0.6257781390012e-07, 0.4457559396698e+01, 0.6288598745829e+01, + 0.5697304945123e-07, 0.3499234761404e+01, 0.1551045220144e+01, + 0.6335438746791e-07, 0.6441691079251e+00, 0.5216580451554e+01, + 0.6377258441152e-07, 0.2252599151092e+01, 0.5650292065779e+01, + + 0.6484841818165e-07, 0.1992812417646e+01, 0.1030928125552e+00, + 0.4735551485250e-07, 0.3744672082942e+01, 0.1431416805965e+02, + 0.4628595996170e-07, 0.1334226211745e+01, 0.5535693017924e+00, + 0.6258152336933e-07, 0.4395836159154e+01, 0.2608790314060e+02, + 0.6196171366594e-07, 0.2587043007997e+01, 0.8467247584405e+02, + 0.6159556952126e-07, 0.4782499769128e+01, 0.2394243902548e+03, + 0.4987741172394e-07, 0.7312257619924e+00, 0.7771377146812e+02, + 0.5459280703142e-07, 0.3001376372532e+01, 0.6179983037890e+01, + 0.4863461189999e-07, 0.3767222128541e+01, 0.9027992316901e+02, + 0.5349912093158e-07, 0.3663594450273e+01, 0.6386168663001e+01, + + 0.5673725607806e-07, 0.4331187919049e+01, 0.6915859635113e+01, + 0.4745485060512e-07, 0.5816195745518e+01, 0.6282970628506e+01, + 0.4745379005326e-07, 0.8323672435672e+00, 0.6283181072386e+01, + 0.4049002796321e-07, 0.3785023976293e+01, 0.6254626709878e+01, + 0.4247084014515e-07, 0.2378220728783e+01, 0.7875671926403e+01, + 0.4026912363055e-07, 0.2864103423269e+01, 0.6311524991013e+01, + 0.4062935011774e-07, 0.2415408595975e+01, 0.3634620989887e+01, + 0.5347771048509e-07, 0.3343479309801e+01, 0.2515860172507e+02, + 0.4829494136505e-07, 0.2821742398262e+01, 0.5760498333002e+01, + 0.4342554404599e-07, 0.5624662458712e+01, 0.7238675589263e+01, + + 0.4021599184361e-07, 0.5557250275009e+00, 0.1101510648075e+02, + 0.4104900474558e-07, 0.3296691780005e+01, 0.6709674010002e+01, + 0.4376532905131e-07, 0.3814443999443e+01, 0.6805653367890e+01, + 0.3314590480650e-07, 0.3560229189250e+01, 0.1259245002418e+02, + 0.3232421839643e-07, 0.5185389180568e+01, 0.1066495398892e+01, + 0.3541176318876e-07, 0.3921381909679e+01, 0.9917696840332e+01, + 0.3689831242681e-07, 0.4190658955386e+01, 0.1192625446156e+02, + 0.3890605376774e-07, 0.5546023371097e+01, 0.7478166569050e-01, + 0.3038559339780e-07, 0.6231032794494e+01, 0.1256621883632e+02, + 0.3137083969782e-07, 0.6207063419190e+01, 0.4292330755499e+01, + + 0.4024004081854e-07, 0.1195257375713e+01, 0.1334167431096e+02, + 0.3300234879283e-07, 0.1804694240998e+01, 0.1057540660594e+02, + 0.3635399155575e-07, 0.5597811343500e+01, 0.6208294184755e+01, + 0.3032668691356e-07, 0.3191059366530e+01, 0.1805292951336e+02, + 0.2809652069058e-07, 0.4094348032570e+01, 0.3523159621801e-02, + 0.3696955383823e-07, 0.5219282738794e+01, 0.5966683958112e+01, + 0.3562894142503e-07, 0.1037247544554e+01, 0.6357857516136e+01, + 0.3510598524148e-07, 0.1430020816116e+01, 0.6599467742779e+01, + 0.3617736142953e-07, 0.3002911403677e+01, 0.6019991944201e+01, + 0.2624524910730e-07, 0.2437046757292e+01, 0.6702560555334e+01, + + 0.2535824204490e-07, 0.1581594689647e+01, 0.3141537925223e+02, + 0.3519787226257e-07, 0.5379863121521e+01, 0.2505706758577e+03, + 0.2578406709982e-07, 0.4904222639329e+01, 0.1673046366289e+02, + 0.3423887981473e-07, 0.3646448997315e+01, 0.6546159756691e+01, + 0.2776083886467e-07, 0.3307829300144e+01, 0.1272157198369e+02, + 0.3379592818379e-07, 0.1747541251125e+01, 0.1494531617769e+02, + 0.3050255426284e-07, 0.1784689432607e-01, 0.4732030630302e+01, + 0.2652378350236e-07, 0.4420055276260e+01, 0.5863591145557e+01, + 0.2374498173768e-07, 0.3629773929208e+01, 0.2388894113936e+01, + 0.2716451255140e-07, 0.3079623706780e+01, 0.1202934727411e+02, + + 0.3038583699229e-07, 0.3312487903507e+00, 0.1256608456547e+02, + 0.2220681228760e-07, 0.5265520401774e+01, 0.1336244973887e+02, + 0.3044156540912e-07, 0.4766664081250e+01, 0.2908881142201e+02, + 0.2731859923561e-07, 0.5069146530691e+01, 0.1391601904066e+02, + 0.2285603018171e-07, 0.5954935112271e+01, 0.6076890225335e+01, + 0.2025006454555e-07, 0.4061789589267e+01, 0.4701116388778e+01, + 0.2012597519804e-07, 0.2485047705241e+01, 0.6262720680387e+01, + 0.2003406962258e-07, 0.4163779209320e+01, 0.6303431020504e+01, + 0.2207863441371e-07, 0.6923839133828e+00, 0.6489261475556e+01, + 0.2481374305624e-07, 0.5944173595676e+01, 0.1204357418345e+02, + + 0.2130923288870e-07, 0.4641013671967e+01, 0.5746271423666e+01, + 0.2446370543391e-07, 0.6125796518757e+01, 0.1495633313810e+00, + 0.1932492759052e-07, 0.2234572324504e+00, 0.1352175143971e+02, + 0.2600122568049e-07, 0.4281012405440e+01, 0.4590910121555e+01, + 0.2431754047488e-07, 0.1429943874870e+00, 0.1162474756779e+01, + 0.1875902869209e-07, 0.9781803816948e+00, 0.6279194432410e+01, + 0.1874381139426e-07, 0.5670368130173e+01, 0.6286957268481e+01, + 0.2156696047173e-07, 0.2008985006833e+01, 0.1813929450232e+02, + 0.1965076182484e-07, 0.2566186202453e+00, 0.4686889479442e+01, + 0.2334816372359e-07, 0.4408121891493e+01, 0.1002183730415e+02, + + 0.1869937408802e-07, 0.5272745038656e+01, 0.2427287361862e+00, + 0.2436236460883e-07, 0.4407720479029e+01, 0.9514313292143e+02, + 0.1761365216611e-07, 0.1943892315074e+00, 0.1351787002167e+02, + 0.2156289480503e-07, 0.1418570924545e+01, 0.6037244212485e+01, + 0.2164748979255e-07, 0.4724603439430e+01, 0.2301353951334e+02, + 0.2222286670853e-07, 0.2400266874598e+01, 0.1266924451345e+02, + 0.2070901414929e-07, 0.5230348028732e+01, 0.6528907488406e+01, + 0.1792745177020e-07, 0.2099190328945e+01, 0.6819880277225e+01, + 0.1841802068445e-07, 0.3467527844848e+00, 0.6514761976723e+02, + 0.1578401631718e-07, 0.7098642356340e+00, 0.2077542790660e-01, + + 0.1561690152531e-07, 0.5943349620372e+01, 0.6272439236156e+01, + 0.1558591045463e-07, 0.7040653478980e+00, 0.6293712464735e+01, + 0.1737356469576e-07, 0.4487064760345e+01, 0.1765478049437e+02, + 0.1434755619991e-07, 0.2993391570995e+01, 0.1102062672231e+00, + 0.1482187806654e-07, 0.2278049198251e+01, 0.1052268489556e+01, + 0.1424812827089e-07, 0.1682114725827e+01, 0.1311972100268e+02, + 0.1380282448623e-07, 0.3262668602579e+01, 0.1017725758696e+02, + 0.1811481244566e-07, 0.3187771221777e+01, 0.1887552587463e+02, + 0.1504446185696e-07, 0.5650162308647e+01, 0.7626583626240e-01, + 0.1740776154137e-07, 0.5487068607507e+01, 0.1965104848470e+02, + + 0.1374339536251e-07, 0.5745688172201e+01, 0.6016468784579e+01, + 0.1761377477704e-07, 0.5748060203659e+01, 0.2593412433514e+02, + 0.1535138225795e-07, 0.6226848505790e+01, 0.9411464614024e+01, + 0.1788140543676e-07, 0.6189318878563e+01, 0.3301902111895e+02, + 0.1375002807996e-07, 0.5371812884394e+01, 0.6327837846670e+00, + 0.1242115758632e-07, 0.1471687569712e+01, 0.3894181736510e+01, + 0.1450977333938e-07, 0.4143836662127e+01, 0.1277945078067e+02, + 0.1297579575023e-07, 0.9003477661957e+00, 0.6549682916313e+01, + 0.1462667934821e-07, 0.5760505536428e+01, 0.1863592847156e+02, + 0.1381774374799e-07, 0.1085471729463e+01, 0.2379164476796e+01, + + 0.1682333169307e-07, 0.5409870870133e+01, 0.1620077269078e+02, + 0.1190812918837e-07, 0.1397205174601e+01, 0.1149965630200e+02, + 0.1221434762106e-07, 0.9001804809095e+00, 0.1257326515556e+02, + 0.1549934644860e-07, 0.4262528275544e+01, 0.1820933031200e+02, + 0.1252138953050e-07, 0.1411642012027e+01, 0.6993008899458e+01, + 0.1237078905387e-07, 0.2844472403615e+01, 0.2435678079171e+02, + 0.1446953389615e-07, 0.5295835522223e+01, 0.3813291813120e-01, + 0.1388446457170e-07, 0.4969428135497e+01, 0.2458316379602e+00, + 0.1019339179228e-07, 0.2491369561806e+01, 0.6112403035119e+01, + 0.1258880815343e-07, 0.4679426248976e+01, 0.5429879531333e+01, + + 0.1297768238261e-07, 0.1074509953328e+01, 0.1249137003520e+02, + 0.9913505718094e-08, 0.4735097918224e+01, 0.6247047890016e+01, + 0.9830453155969e-08, 0.4158649187338e+01, 0.6453748665772e+01, + 0.1192615865309e-07, 0.3438208613699e+01, 0.6290122169689e+01, + 0.9835874798277e-08, 0.1913300781229e+01, 0.6319103810876e+01, + 0.9639087569277e-08, 0.9487683644125e+00, 0.8273820945392e+01, + 0.1175716107001e-07, 0.3228141664287e+01, 0.6276029531202e+01, + 0.1018926508678e-07, 0.2216607854300e+01, 0.1254537627298e+02, + 0.9500087869225e-08, 0.2625116459733e+01, 0.1256517118505e+02, + 0.9664192916575e-08, 0.5860562449214e+01, 0.6259197520765e+01, + + 0.9612858712203e-08, 0.7885682917381e+00, 0.6306954180126e+01, + 0.1117645675413e-07, 0.3932148831189e+01, 0.1779695906178e+02, + 0.1158864052160e-07, 0.9995605521691e+00, 0.1778273215245e+02, + 0.9021043467028e-08, 0.5263769742673e+01, 0.6172869583223e+01, + 0.8836134773563e-08, 0.1496843220365e+01, 0.1692165728891e+01, + 0.1045872200691e-07, 0.7009039517214e+00, 0.2204125344462e+00, + 0.1211463487798e-07, 0.4041544938511e+01, 0.8257698122054e+02, + 0.8541990804094e-08, 0.1447586692316e+01, 0.6393282117669e+01, + 0.1038720703636e-07, 0.4594249718112e+00, 0.1550861511662e+02, + 0.1126722351445e-07, 0.3925550579036e+01, 0.2061856251104e+00, + + 0.8697373859631e-08, 0.4411341856037e+01, 0.9491756770005e+00, + 0.8869380028441e-08, 0.2402659724813e+01, 0.3903911373650e+01, + 0.9247014693258e-08, 0.1401579743423e+01, 0.6267823317922e+01, + 0.9205062930950e-08, 0.5245978000814e+01, 0.6298328382969e+01, + 0.8000745038049e-08, 0.3590803356945e+01, 0.2648454860559e+01, + 0.9168973650819e-08, 0.2470150501679e+01, 0.1498544001348e+03, + 0.1075444949238e-07, 0.1328606161230e+01, 0.3694923081589e+02, + 0.7817298525817e-08, 0.6162256225998e+01, 0.4804209201333e+01, + 0.9541469226356e-08, 0.3942568967039e+01, 0.1256713221673e+02, + 0.9821910122027e-08, 0.2360246287233e+00, 0.1140367694411e+02, + + 0.9897822023777e-08, 0.4619805634280e+01, 0.2280573557157e+02, + 0.7737289283765e-08, 0.3784727847451e+01, 0.7834121070590e+01, + 0.9260204034710e-08, 0.2223352487601e+01, 0.2787043132925e+01, + 0.7320252888486e-08, 0.1288694636874e+01, 0.6282655592598e+01, + 0.7319785780946e-08, 0.5359869567774e+01, 0.6283496108294e+01, + 0.7147219933778e-08, 0.5516616675856e+01, 0.1725663147538e+02, + 0.7946502829878e-08, 0.2630459984567e+01, 0.1241073141809e+02, + 0.9001711808932e-08, 0.2849815827227e+01, 0.6281591679874e+01, + 0.8994041507257e-08, 0.3795244450750e+01, 0.6284560021018e+01, + 0.8298582787358e-08, 0.5236413127363e+00, 0.1241658836951e+02, + + 0.8526596520710e-08, 0.4794605424426e+01, 0.1098419223922e+02, + 0.8209822103197e-08, 0.1578752370328e+01, 0.1096996532989e+02, + 0.6357049861094e-08, 0.5708926113761e+01, 0.1596186371003e+01, + 0.7370473179049e-08, 0.3842402530241e+01, 0.4061219149443e+01, + 0.7232154664726e-08, 0.3067548981535e+01, 0.1610006857377e+03, + 0.6328765494903e-08, 0.1313930030069e+01, 0.1193336791622e+02, + 0.8030064908595e-08, 0.3488500408886e+01, 0.8460828644453e+00, + 0.6275464259232e-08, 0.1532061626198e+01, 0.8531963191132e+00, + 0.7051897446325e-08, 0.3285859929993e+01, 0.5849364236221e+01, + 0.6161593705428e-08, 0.1477341999464e+01, 0.5573142801433e+01, + + 0.7754683957278e-08, 0.1586118663096e+01, 0.8662240327241e+01, + 0.5889928990701e-08, 0.1304887868803e+01, 0.1232342296471e+02, + 0.5705756047075e-08, 0.4555333589350e+01, 0.1258692712880e+02, + 0.5964178808332e-08, 0.3001762842062e+01, 0.5333900173445e+01, + 0.6712446027467e-08, 0.4886780007595e+01, 0.1171295538178e+02, + 0.5941809275464e-08, 0.4701509603824e+01, 0.9779108567966e+01, + 0.5466993627395e-08, 0.4588357817278e+01, 0.1884211409667e+02, + 0.6340512090980e-08, 0.1164543038893e+01, 0.5217580628120e+02, + 0.6325505710045e-08, 0.3919171259645e+01, 0.1041998632314e+02, + 0.6164789509685e-08, 0.2143828253542e+01, 0.6151533897323e+01, + + 0.5263330812430e-08, 0.6066564434241e+01, 0.1885275071096e+02, + 0.5597087780221e-08, 0.2926316429472e+01, 0.4337116142245e+00, + 0.5396556236817e-08, 0.3244303591505e+01, 0.6286362197481e+01, + 0.5396615148223e-08, 0.3404304703662e+01, 0.6279789503410e+01, + 0.7091832443341e-08, 0.8532377803192e+00, 0.4907302013889e+01, + 0.6572352589782e-08, 0.4901966774419e+01, 0.1176433076753e+02, + 0.5960236060795e-08, 0.1874672315797e+01, 0.1422690933580e-01, + 0.5125480043511e-08, 0.3735726064334e+01, 0.1245594543367e+02, + 0.5928241866410e-08, 0.4502033899935e+01, 0.6414617803568e+01, + 0.5249600357424e-08, 0.4372334799878e+01, 0.1151388321134e+02, + + 0.6059171276087e-08, 0.2581617302908e+01, 0.6062663316000e+01, + 0.5295235081662e-08, 0.2974811513158e+01, 0.3496032717521e+01, + 0.5820561875933e-08, 0.1796073748244e+00, 0.2838593341516e+00, + 0.4754696606440e-08, 0.1981998136973e+01, 0.3104930017775e+01, + 0.6385053548955e-08, 0.2559174171605e+00, 0.6133512519065e+01, + 0.6589828273941e-08, 0.2750967106776e+01, 0.4087944051283e+02, + 0.5383376567189e-08, 0.6325947523578e+00, 0.2248384854122e+02, + 0.5928941683538e-08, 0.1672304519067e+01, 0.1581959461667e+01, + 0.4816060709794e-08, 0.3512566172575e+01, 0.9388005868221e+01, + 0.6003381586512e-08, 0.5610932219189e+01, 0.5326786718777e+01, + + 0.5504225393105e-08, 0.4037501131256e+01, 0.6503488384892e+01, + 0.5353772620129e-08, 0.6122774968240e+01, 0.1735668374386e+03, + 0.5786253768544e-08, 0.5527984999515e+01, 0.1350651127443e+00, + 0.5065706702002e-08, 0.9980765573624e+00, 0.1248988586463e+02, + 0.5972838885276e-08, 0.6044489493203e+01, 0.2673594526851e+02, + 0.5323585877961e-08, 0.3924265998147e+01, 0.4171425416666e+01, + 0.5210772682858e-08, 0.6220111376901e+01, 0.2460261242967e+02, + 0.4726549040535e-08, 0.3716043206862e+01, 0.7232251527446e+01, + 0.6029425105059e-08, 0.8548704071116e+00, 0.3227113045244e+03, + 0.4481542826513e-08, 0.1426925072829e+01, 0.5547199253223e+01, + + 0.5836024505068e-08, 0.7135651752625e-01, 0.7285056171570e+02, + 0.4137046613272e-08, 0.5330767643283e+01, 0.1087398597200e+02, + 0.5171977473924e-08, 0.4494262335353e+00, 0.1884570439172e+02, + 0.5694429833732e-08, 0.2952369582215e+01, 0.9723862754494e+02, + 0.4009158925298e-08, 0.3500003416535e+01, 0.6244942932314e+01, + 0.4784939596873e-08, 0.6196709413181e+01, 0.2929661536378e+02, + 0.3983725022610e-08, 0.5103690031897e+01, 0.4274518229222e+01, + 0.3870535232462e-08, 0.3187569587401e+01, 0.6321208768577e+01, + 0.5140501213951e-08, 0.1668924357457e+01, 0.1232032006293e+02, + 0.3849034819355e-08, 0.4445722510309e+01, 0.1726726808967e+02, + + 0.4002383075060e-08, 0.5226224152423e+01, 0.7018952447668e+01, + 0.3890719543549e-08, 0.4371166550274e+01, 0.1491901785440e+02, + 0.4887084607881e-08, 0.5973556689693e+01, 0.1478866649112e+01, + 0.3739939287592e-08, 0.2089084714600e+01, 0.6922973089781e+01, + 0.5031925918209e-08, 0.4658371936827e+01, 0.1715706182245e+02, + 0.4387748764954e-08, 0.4825580552819e+01, 0.2331413144044e+03, + 0.4147398098865e-08, 0.3739003524998e+01, 0.1376059875786e+02, + 0.3719089993586e-08, 0.1148941386536e+01, 0.6297302759782e+01, + 0.3934238461056e-08, 0.1559893008343e+01, 0.7872148766781e+01, + 0.3672471375622e-08, 0.5516145383612e+01, 0.6268848941110e+01, + + 0.3768911277583e-08, 0.6116053700563e+01, 0.4157198507331e+01, + 0.4033388417295e-08, 0.5076821746017e+01, 0.1567108171867e+02, + 0.3764194617832e-08, 0.8164676232075e+00, 0.3185192151914e+01, + 0.4840628226284e-08, 0.1360479453671e+01, 0.1252801878276e+02, + 0.4949443923785e-08, 0.2725622229926e+01, 0.1617106187867e+03, + 0.4117393089971e-08, 0.6054459628492e+00, 0.5642198095270e+01, + 0.3925754020428e-08, 0.8570462135210e+00, 0.2139354194808e+02, + 0.3630551757923e-08, 0.3552067338279e+01, 0.6294805223347e+01, + 0.3627274802357e-08, 0.3096565085313e+01, 0.6271346477544e+01, + 0.3806143885093e-08, 0.6367751709777e+00, 0.1725304118033e+02, + + 0.4433254641565e-08, 0.4848461503937e+01, 0.7445550607224e+01, + 0.3712319846576e-08, 0.1331950643655e+01, 0.4194847048887e+00, + 0.3849847534783e-08, 0.4958368297746e+00, 0.9562891316684e+00, + 0.3483955430165e-08, 0.2237215515707e+01, 0.1161697602389e+02, + 0.3961912730982e-08, 0.3332402188575e+01, 0.2277943724828e+02, + 0.3419978244481e-08, 0.5785600576016e+01, 0.1362553364512e+02, + 0.3329417758177e-08, 0.9812676559709e-01, 0.1685848245639e+02, + 0.4207206893193e-08, 0.9494780468236e+00, 0.2986433403208e+02, + 0.3268548976410e-08, 0.1739332095686e+00, 0.5749861718712e+01, + 0.3321880082685e-08, 0.1423354800666e+01, 0.6279143387820e+01, + + 0.4503173010852e-08, 0.2314972675293e+00, 0.1385561574497e+01, + 0.4316599090954e-08, 0.1012646782616e+00, 0.4176041334900e+01, + 0.3283493323850e-08, 0.5233306881265e+01, 0.6287008313071e+01, + 0.3164033542343e-08, 0.4005597257511e+01, 0.2099539292909e+02, + 0.4159720956725e-08, 0.5365676242020e+01, 0.5905702259363e+01, + 0.3565176892217e-08, 0.4284440620612e+01, 0.3932462625300e-02, + 0.3514440950221e-08, 0.4270562636575e+01, 0.7335344340001e+01, + 0.3540596871909e-08, 0.5953553201060e+01, 0.1234573916645e+02, + 0.2960769905118e-08, 0.1115180417718e+01, 0.2670964694522e+02, + 0.2962213739684e-08, 0.3863811918186e+01, 0.6408777551755e+00, + + 0.3883556700251e-08, 0.1268617928302e+01, 0.6660449441528e+01, + 0.2919225516346e-08, 0.4908605223265e+01, 0.1375773836557e+01, + 0.3115158863370e-08, 0.3744519976885e+01, 0.3802769619140e-01, + 0.4099438144212e-08, 0.4173244670532e+01, 0.4480965020977e+02, + 0.2899531858964e-08, 0.5910601428850e+01, 0.2059724391010e+02, + 0.3289733429855e-08, 0.2488050078239e+01, 0.1081813534213e+02, + 0.3933075612875e-08, 0.1122363652883e+01, 0.3773735910827e+00, + 0.3021403764467e-08, 0.4951973724904e+01, 0.2982630633589e+02, + 0.2798598949757e-08, 0.5117057845513e+01, 0.1937891852345e+02, + 0.3397421302707e-08, 0.6104159180476e+01, 0.6923953605621e+01, + + 0.3720398002179e-08, 0.1184933429829e+01, 0.3066615496545e+02, + 0.3598484186267e-08, 0.3505282086105e+01, 0.6147450479709e+01, + 0.3694594027310e-08, 0.2286651088141e+01, 0.2636725487657e+01, + 0.2680444152969e-08, 0.1871816775482e+00, 0.6816289982179e+01, + 0.3497574865641e-08, 0.3143251755431e+01, 0.6418701221183e+01, + 0.3130274129494e-08, 0.2462167316018e+01, 0.1235996607578e+02, + 0.3241119069551e-08, 0.4256374004686e+01, 0.1652265972112e+02, + 0.2601960842061e-08, 0.4970362941425e+01, 0.1045450126711e+02, + 0.2690601527504e-08, 0.2372657824898e+01, 0.3163918923335e+00, + 0.2908688152664e-08, 0.4232652627721e+01, 0.2828699048865e+02, + + 0.3120456131875e-08, 0.3925747001137e+00, 0.2195415756911e+02, + 0.3148855423384e-08, 0.3093478330445e+01, 0.1172006883645e+02, + 0.3051044261017e-08, 0.5560948248212e+01, 0.6055599646783e+01, + 0.2826006876660e-08, 0.5072790310072e+01, 0.5120601093667e+01, + 0.3100034191711e-08, 0.4998530231096e+01, 0.1799603123222e+02, + 0.2398771640101e-08, 0.2561739802176e+01, 0.6255674361143e+01, + 0.2384002842728e-08, 0.4087420284111e+01, 0.6310477339748e+01, + 0.2842146517568e-08, 0.2515048217955e+01, 0.5469525544182e+01, + 0.2847674371340e-08, 0.5235326497443e+01, 0.1034429499989e+02, + 0.2903722140764e-08, 0.1088200795797e+01, 0.6510552054109e+01, + + 0.3187610710605e-08, 0.4710624424816e+01, 0.1693792562116e+03, + 0.3048869992813e-08, 0.2857975896445e+00, 0.8390110365991e+01, + 0.2860216950984e-08, 0.2241619020815e+01, 0.2243449970715e+00, + 0.2701117683113e-08, 0.6651573305272e-01, 0.6129297044991e+01, + 0.2509891590152e-08, 0.1285135324585e+01, 0.1044027435778e+02, + 0.2623200252223e-08, 0.2981229834530e+00, 0.6436854655901e+01, + 0.2622541669202e-08, 0.6122470726189e+01, 0.9380959548977e+01, + 0.2818435667099e-08, 0.4251087148947e+01, 0.5934151399930e+01, + 0.2365196797465e-08, 0.3465070460790e+01, 0.2470570524223e+02, + 0.2358704646143e-08, 0.5791603815350e+01, 0.8671969964381e+01, + + 0.2388299481390e-08, 0.4142483772941e+01, 0.7096626156709e+01, + 0.1996041217224e-08, 0.2101901889496e+01, 0.1727188400790e+02, + 0.2687593060336e-08, 0.1526689456959e+01, 0.7075506709219e+02, + 0.2618913670810e-08, 0.2397684236095e+01, 0.6632000300961e+01, + 0.2571523050364e-08, 0.5751929456787e+00, 0.6206810014183e+01, + 0.2582135006946e-08, 0.5595464352926e+01, 0.4873985990671e+02, + 0.2372530190361e-08, 0.5092689490655e+01, 0.1590676413561e+02, + 0.2357178484712e-08, 0.4444363527851e+01, 0.3097883698531e+01, + 0.2451590394723e-08, 0.3108251687661e+01, 0.6612329252343e+00, + 0.2370045949608e-08, 0.2608133861079e+01, 0.3459636466239e+02, + + 0.2268997267358e-08, 0.3639717753384e+01, 0.2844914056730e-01, + 0.1731432137906e-08, 0.1741898445707e+00, 0.2019909489111e+02, + 0.1629869741622e-08, 0.3902225646724e+01, 0.3035599730800e+02, + 0.2206215801974e-08, 0.4971131250731e+01, 0.6281667977667e+01, + 0.2205469554680e-08, 0.1677462357110e+01, 0.6284483723224e+01, + 0.2148792362509e-08, 0.4236259604006e+01, 0.1980482729015e+02, + 0.1873733657847e-08, 0.5926814998687e+01, 0.2876692439167e+02, + 0.2026573758959e-08, 0.4349643351962e+01, 0.2449240616245e+02, + 0.1807770325110e-08, 0.5700940482701e+01, 0.2045286941806e+02, + 0.1881174408581e-08, 0.6601286363430e+00, 0.2358125818164e+02, + + 0.1368023671690e-08, 0.2211098592752e+01, 0.2473415438279e+02, + 0.1720017916280e-08, 0.4942488551129e+01, 0.1679593901136e+03, + 0.1702427665131e-08, 0.1452233856386e+01, 0.3338575901272e+03, + 0.1414032510054e-08, 0.5525357721439e+01, 0.1624205518357e+03, + 0.1652626045364e-08, 0.4108794283624e+01, 0.8956999012000e+02, + 0.1642957769686e-08, 0.7344335209984e+00, 0.5267006960365e+02, + 0.1614952403624e-08, 0.3541213951363e+01, 0.3332657872986e+02, + 0.1535988291188e-08, 0.4031094072151e+01, 0.3852657435933e+02, + 0.1593193738177e-08, 0.4185136203609e+01, 0.2282781046519e+03, + 0.1074569126382e-08, 0.1720485636868e+01, 0.8397383534231e+02, + + 0.1074408214509e-08, 0.2758613420318e+01, 0.8401985929482e+02, + 0.9700199670465e-09, 0.4216686842097e+01, 0.7826370942180e+02, + 0.1258433517061e-08, 0.2575068876639e+00, 0.3115650189215e+03, + 0.1240303229539e-08, 0.4800844956756e+00, 0.1784300471910e+03, + 0.9018345948127e-09, 0.3896756361552e+00, 0.5886454391678e+02, + 0.1135301432805e-08, 0.3700805023550e+00, 0.7842370451713e+02, + 0.9215887951370e-09, 0.4364579276638e+01, 0.1014262087719e+03, + 0.1055401054147e-08, 0.2156564222111e+01, 0.5660027930059e+02, + 0.1008725979831e-08, 0.5454015785234e+01, 0.4245678405627e+02, + 0.7217398104321e-09, 0.1597772562175e+01, 0.2457074661053e+03, + + 0.6912033134447e-09, 0.5824090621461e+01, 0.1679936946371e+03, + 0.6833881523549e-09, 0.3578778482835e+01, 0.6053048899753e+02, + 0.4887304205142e-09, 0.3724362812423e+01, 0.9656299901946e+02, + 0.5173709754788e-09, 0.5422427507933e+01, 0.2442876000072e+03, + 0.4671353097145e-09, 0.2396106924439e+01, 0.1435713242844e+03, + 0.5652608439480e-09, 0.2804028838685e+01, 0.8365903305582e+02, + 0.5604061331253e-09, 0.1638816006247e+01, 0.8433466158131e+02, + 0.4712723365400e-09, 0.8979003224474e+00, 0.3164282286739e+03, + 0.4909967465112e-09, 0.3210426725516e+01, 0.4059982187939e+03, + 0.4771358267658e-09, 0.5308027211629e+01, 0.1805255418145e+03, + + 0.3943451445989e-09, 0.2195145341074e+01, 0.2568537517081e+03, + 0.3952109120244e-09, 0.5081189491586e+01, 0.2449975330562e+03, + 0.3788134594789e-09, 0.4345171264441e+01, 0.1568131045107e+03, + 0.3738330190479e-09, 0.2613062847997e+01, 0.3948519331910e+03, + 0.3099866678136e-09, 0.2846760817689e+01, 0.1547176098872e+03, + 0.2002962716768e-09, 0.4921360989412e+01, 0.2268582385539e+03, + 0.2198291338754e-09, 0.1130360117454e+00, 0.1658638954901e+03, + 0.1491958330784e-09, 0.4228195232278e+01, 0.2219950288015e+03, + 0.1475384076173e-09, 0.3005721811604e+00, 0.3052819430710e+03, + 0.1661626624624e-09, 0.7830125621203e+00, 0.2526661704812e+03, + + 0.9015823460025e-10, 0.3807792942715e+01, 0.4171445043968e+03 }; + +/* Sun-to-Earth, T^0, Y */ + static const double e0y[] = { + 0.9998921098898e+00, 0.1826583913846e+00, 0.6283075850446e+01, + -0.2442700893735e-01, 0.0000000000000e+00, 0.0000000000000e+00, + 0.8352929742915e-02, 0.1395277998680e+00, 0.1256615170089e+02, + 0.1046697300177e-03, 0.9641423109763e-01, 0.1884922755134e+02, + 0.3110841876663e-04, 0.5381140401712e+01, 0.8399684731857e+02, + 0.2570269094593e-04, 0.5301016407128e+01, 0.5296909721118e+00, + 0.2147389623610e-04, 0.2662510869850e+01, 0.1577343543434e+01, + 0.1680344384050e-04, 0.5207904119704e+01, 0.6279552690824e+01, + 0.1679117312193e-04, 0.4582187486968e+01, 0.6286599010068e+01, + 0.1440512068440e-04, 0.1900688517726e+01, 0.2352866153506e+01, + + 0.1135139664999e-04, 0.5273108538556e+01, 0.5223693906222e+01, + 0.9345482571018e-05, 0.4503047687738e+01, 0.1203646072878e+02, + 0.9007418719568e-05, 0.1605621059637e+01, 0.1021328554739e+02, + 0.5671536712314e-05, 0.5812849070861e+00, 0.1059381944224e+01, + 0.7451401861666e-05, 0.2807346794836e+01, 0.3981490189893e+00, + 0.6393470057114e-05, 0.6029224133855e+01, 0.5753384878334e+01, + 0.6814275881697e-05, 0.6472990145974e+00, 0.4705732307012e+01, + 0.6113705628887e-05, 0.3813843419700e+01, 0.6812766822558e+01, + 0.4503851367273e-05, 0.4527804370996e+01, 0.5884926831456e+01, + 0.4522249141926e-05, 0.5991783029224e+01, 0.6256777527156e+01, + + 0.4501794307018e-05, 0.3798703844397e+01, 0.6309374173736e+01, + 0.5514927480180e-05, 0.3961257833388e+01, 0.5507553240374e+01, + 0.4062862799995e-05, 0.5256247296369e+01, 0.6681224869435e+01, + 0.5414900429712e-05, 0.5499032014097e+01, 0.7755226100720e+00, + 0.5463153987424e-05, 0.6173092454097e+01, 0.1414349524433e+02, + 0.5071611859329e-05, 0.2870244247651e+01, 0.7860419393880e+01, + 0.2195112094455e-05, 0.2952338617201e+01, 0.1150676975667e+02, + 0.2279139233919e-05, 0.5951775132933e+01, 0.7058598460518e+01, + 0.2278386100876e-05, 0.4845456398785e+01, 0.4694002934110e+01, + 0.2559088003308e-05, 0.6945321117311e+00, 0.1216800268190e+02, + + 0.2561079286856e-05, 0.6167224608301e+01, 0.7099330490126e+00, + 0.1792755796387e-05, 0.1400122509632e+01, 0.7962980379786e+00, + 0.1818715656502e-05, 0.4703347611830e+01, 0.6283142985870e+01, + 0.1818744924791e-05, 0.5086748900237e+01, 0.6283008715021e+01, + 0.1554518791390e-05, 0.5331008042713e-01, 0.2513230340178e+02, + 0.2063265737239e-05, 0.4283680484178e+01, 0.1179062909082e+02, + 0.1497613520041e-05, 0.6074207826073e+01, 0.5486777812467e+01, + 0.2000617940427e-05, 0.2501426281450e+01, 0.1778984560711e+02, + 0.1289731195580e-05, 0.3646340599536e+01, 0.7079373888424e+01, + 0.1282657998934e-05, 0.3232864804902e+01, 0.3738761453707e+01, + + 0.1528915968658e-05, 0.5581433416669e+01, 0.2132990797783e+00, + 0.1187304098432e-05, 0.5453576453694e+01, 0.9437762937313e+01, + 0.7842782928118e-06, 0.2823953922273e+00, 0.8827390247185e+01, + 0.7352892280868e-06, 0.1124369580175e+01, 0.1589072916335e+01, + 0.6570189360797e-06, 0.2089154042840e+01, 0.1176985366291e+02, + 0.6324967590410e-06, 0.6704855581230e+00, 0.6262300422539e+01, + 0.6298289872283e-06, 0.2836414855840e+01, 0.6303851278352e+01, + 0.6476686465855e-06, 0.4852433866467e+00, 0.7113454667900e-02, + 0.8587034651234e-06, 0.1453511005668e+01, 0.1672837615881e+03, + 0.8068948788113e-06, 0.9224087798609e+00, 0.6069776770667e+01, + + 0.8353786011661e-06, 0.4631707184895e+01, 0.3340612434717e+01, + 0.6009324532132e-06, 0.1829498827726e+01, 0.4136910472696e+01, + 0.7558158559566e-06, 0.2588596800317e+01, 0.6496374930224e+01, + 0.5809279504503e-06, 0.5516818853476e+00, 0.1097707878456e+02, + 0.5374131950254e-06, 0.6275674734960e+01, 0.1194447056968e+01, + 0.5711160507326e-06, 0.1091905956872e+01, 0.6282095334605e+01, + 0.5710183170746e-06, 0.2415001635090e+01, 0.6284056366286e+01, + 0.5144373590610e-06, 0.6020336443438e+01, 0.6290189305114e+01, + 0.5103108927267e-06, 0.3775634564605e+01, 0.6275962395778e+01, + 0.4960654697891e-06, 0.1073450946756e+01, 0.6127655567643e+01, + + 0.4786385689280e-06, 0.2431178012310e+01, 0.6438496133249e+01, + 0.6109911263665e-06, 0.5343356157914e+01, 0.3154687086868e+01, + 0.4839898944024e-06, 0.5830833594047e-01, 0.8018209333619e+00, + 0.4734822623919e-06, 0.4536080134821e+01, 0.3128388763578e+01, + 0.4834741473290e-06, 0.2585090489754e+00, 0.7084896783808e+01, + 0.5134858581156e-06, 0.4213317172603e+01, 0.1235285262111e+02, + 0.5064004264978e-06, 0.4814418806478e+00, 0.1185621865188e+02, + 0.3753476772761e-06, 0.1599953399788e+01, 0.8429241228195e+01, + 0.4935264014283e-06, 0.2157417556873e+01, 0.2544314396739e+01, + 0.3950929600897e-06, 0.3359394184254e+01, 0.5481254917084e+01, + + 0.4895849789777e-06, 0.5165704376558e+01, 0.9225539266174e+01, + 0.4215241688886e-06, 0.2065368800993e+01, 0.1726015463500e+02, + 0.3796773731132e-06, 0.1468606346612e+01, 0.4265981595566e+00, + 0.3114178142515e-06, 0.3615638079474e+01, 0.2146165377750e+01, + 0.3260664220838e-06, 0.4417134922435e+01, 0.4164311961999e+01, + 0.3976996123008e-06, 0.4700866883004e+01, 0.5856477690889e+01, + 0.2801459672924e-06, 0.4538902060922e+01, 0.1256967486051e+02, + 0.3638931868861e-06, 0.1334197991475e+01, 0.1807370494127e+02, + 0.2487013269476e-06, 0.3749275558275e+01, 0.2629832328990e-01, + 0.3034165481994e-06, 0.4236622030873e+00, 0.4535059491685e+01, + + 0.2676278825586e-06, 0.5970848007811e+01, 0.3930209696940e+01, + 0.2764903818918e-06, 0.5194636754501e+01, 0.1256262854127e+02, + 0.2485149930507e-06, 0.1002434207846e+01, 0.5088628793478e+01, + 0.2199305540941e-06, 0.3066773098403e+01, 0.1255903824622e+02, + 0.2571106500435e-06, 0.7588312459063e+00, 0.1336797263425e+02, + 0.2049751817158e-06, 0.3444977434856e+01, 0.1137170464392e+02, + 0.2599707296297e-06, 0.1873128542205e+01, 0.7143069561767e+02, + 0.1785018072217e-06, 0.5015891306615e+01, 0.1748016358760e+01, + 0.2324833891115e-06, 0.4618271239730e+01, 0.1831953657923e+02, + 0.1709711119545e-06, 0.5300003455669e+01, 0.4933208510675e+01, + + 0.2107159351716e-06, 0.2229819815115e+01, 0.7477522907414e+01, + 0.1750333080295e-06, 0.6161485880008e+01, 0.1044738781244e+02, + 0.2000598210339e-06, 0.2967357299999e+01, 0.8031092209206e+01, + 0.1380920248681e-06, 0.3027007923917e+01, 0.8635942003952e+01, + 0.1412460470299e-06, 0.6037597163798e+01, 0.2942463415728e+01, + 0.1888459803001e-06, 0.8561476243374e+00, 0.1561374759853e+03, + 0.1788370542585e-06, 0.4869736290209e+01, 0.1592596075957e+01, + 0.1360893296167e-06, 0.3626411886436e+01, 0.1309584267300e+02, + 0.1506846530160e-06, 0.1550975377427e+01, 0.1649636139783e+02, + 0.1800913376176e-06, 0.2075826033190e+01, 0.1729818233119e+02, + + 0.1436261390649e-06, 0.6148876420255e+01, 0.2042657109477e+02, + 0.1220227114151e-06, 0.4382583879906e+01, 0.7632943190217e+01, + 0.1337883603592e-06, 0.2036644327361e+01, 0.1213955354133e+02, + 0.1159326650738e-06, 0.3892276994687e+01, 0.5331357529664e+01, + 0.1352853128569e-06, 0.1447950649744e+01, 0.1673046366289e+02, + 0.1433408296083e-06, 0.4457854692961e+01, 0.7342457794669e+01, + 0.1234701666518e-06, 0.1538818147151e+01, 0.6279485555400e+01, + 0.1234027192007e-06, 0.1968523220760e+01, 0.6286666145492e+01, + 0.1244024091797e-06, 0.5779803499985e+01, 0.1511046609763e+02, + 0.1097934945516e-06, 0.6210975221388e+00, 0.1098880815746e+02, + + 0.1254611329856e-06, 0.2591963807998e+01, 0.1572083878776e+02, + 0.1158247286784e-06, 0.2483612812670e+01, 0.5729506548653e+01, + 0.9039078252960e-07, 0.3857554579796e+01, 0.9623688285163e+01, + 0.9108024978836e-07, 0.5826368512984e+01, 0.7234794171227e+01, + 0.8887068108436e-07, 0.3475694573987e+01, 0.6148010737701e+01, + 0.8632374035438e-07, 0.3059070488983e-01, 0.6418140963190e+01, + 0.7893186992967e-07, 0.1583194837728e+01, 0.2118763888447e+01, + 0.8297650201172e-07, 0.8519770534637e+00, 0.1471231707864e+02, + 0.1019759578988e-06, 0.1319598738732e+00, 0.1349867339771e+01, + 0.1010037696236e-06, 0.9937860115618e+00, 0.6836645152238e+01, + + 0.1047727548266e-06, 0.1382138405399e+01, 0.5999216516294e+01, + 0.7351993881086e-07, 0.3833397851735e+01, 0.6040347114260e+01, + 0.9868771092341e-07, 0.2124913814390e+01, 0.6566935184597e+01, + 0.7007321959390e-07, 0.5946305343763e+01, 0.6525804586632e+01, + 0.6861411679709e-07, 0.4574654977089e+01, 0.7238675589263e+01, + 0.7554519809614e-07, 0.5949232686844e+01, 0.1253985337760e+02, + 0.9541880448335e-07, 0.3495242990564e+01, 0.2122839202813e+02, + 0.7185606722155e-07, 0.4310113471661e+01, 0.6245048154254e+01, + 0.7131360871710e-07, 0.5480309323650e+01, 0.6321103546637e+01, + 0.6651142021039e-07, 0.5411097713654e+01, 0.5327476111629e+01, + + 0.8538618213667e-07, 0.1827849973951e+01, 0.1101510648075e+02, + 0.8634954288044e-07, 0.5443584943349e+01, 0.5643178611111e+01, + 0.7449415051484e-07, 0.2011535459060e+01, 0.5368044267797e+00, + 0.7421047599169e-07, 0.3464562529249e+01, 0.2354323048545e+02, + 0.6140694354424e-07, 0.5657556228815e+01, 0.1296430071988e+02, + 0.6353525143033e-07, 0.3463816593821e+01, 0.1990745094947e+01, + 0.6221964013447e-07, 0.1532259498697e+01, 0.9517183207817e+00, + 0.5852480257244e-07, 0.1375396598875e+01, 0.9555997388169e+00, + 0.6398637498911e-07, 0.2405645801972e+01, 0.2407292145756e+02, + 0.7039744069878e-07, 0.5397541799027e+01, 0.5225775174439e+00, + + 0.6977997694382e-07, 0.4762347105419e+01, 0.1097355562493e+02, + 0.7460629558396e-07, 0.2711944692164e+01, 0.2200391463820e+02, + 0.5376577536101e-07, 0.2352980430239e+01, 0.1431416805965e+02, + 0.7530607893556e-07, 0.1943940180699e+01, 0.1842262939178e+02, + 0.6822928971605e-07, 0.4337651846959e+01, 0.1554202828031e+00, + 0.6220772380094e-07, 0.6716871369278e+00, 0.1845107853235e+02, + 0.6586950799043e-07, 0.2229714460505e+01, 0.5216580451554e+01, + 0.5873800565771e-07, 0.7627013920580e+00, 0.6398972393349e+00, + 0.6264346929745e-07, 0.6202785478961e+00, 0.6277552955062e+01, + 0.6257929115669e-07, 0.2886775596668e+01, 0.6288598745829e+01, + + 0.5343536033409e-07, 0.1977241012051e+01, 0.4690479774488e+01, + 0.5587849781714e-07, 0.1922923484825e+01, 0.1551045220144e+01, + 0.6905100845603e-07, 0.3570757164631e+01, 0.1030928125552e+00, + 0.6178957066649e-07, 0.5197558947765e+01, 0.5230807360890e+01, + 0.6187270224331e-07, 0.8193497368922e+00, 0.5650292065779e+01, + 0.5385664291426e-07, 0.5406336665586e+01, 0.7771377146812e+02, + 0.6329363917926e-07, 0.2837760654536e+01, 0.2608790314060e+02, + 0.4546018761604e-07, 0.2933580297050e+01, 0.5535693017924e+00, + 0.6196091049375e-07, 0.4157871494377e+01, 0.8467247584405e+02, + 0.6159555108218e-07, 0.3211703561703e+01, 0.2394243902548e+03, + + 0.4995340539317e-07, 0.1459098102922e+01, 0.4732030630302e+01, + 0.5457031243572e-07, 0.1430457676136e+01, 0.6179983037890e+01, + 0.4863461418397e-07, 0.2196425916730e+01, 0.9027992316901e+02, + 0.5342947626870e-07, 0.2086612890268e+01, 0.6386168663001e+01, + 0.5674296648439e-07, 0.2760204966535e+01, 0.6915859635113e+01, + 0.4745783120161e-07, 0.4245368971862e+01, 0.6282970628506e+01, + 0.4745676961198e-07, 0.5544725787016e+01, 0.6283181072386e+01, + 0.4049796869973e-07, 0.2213984363586e+01, 0.6254626709878e+01, + 0.4248333596940e-07, 0.8075781952896e+00, 0.7875671926403e+01, + 0.4027178070205e-07, 0.1293268540378e+01, 0.6311524991013e+01, + + 0.4066543943476e-07, 0.3986141175804e+01, 0.3634620989887e+01, + 0.4858863787880e-07, 0.1276112738231e+01, 0.5760498333002e+01, + 0.5277398263530e-07, 0.4916111741527e+01, 0.2515860172507e+02, + 0.4105635656559e-07, 0.1725805864426e+01, 0.6709674010002e+01, + 0.4376781925772e-07, 0.2243642442106e+01, 0.6805653367890e+01, + 0.3235827894693e-07, 0.3614135118271e+01, 0.1066495398892e+01, + 0.3073244740308e-07, 0.2460873393460e+01, 0.5863591145557e+01, + 0.3088609271373e-07, 0.5678431771790e+01, 0.9917696840332e+01, + 0.3393022279836e-07, 0.3814017477291e+01, 0.1391601904066e+02, + 0.3038686508802e-07, 0.4660216229171e+01, 0.1256621883632e+02, + + 0.4019677752497e-07, 0.5906906243735e+01, 0.1334167431096e+02, + 0.3288834998232e-07, 0.9536146445882e+00, 0.1620077269078e+02, + 0.3889973794631e-07, 0.3942205097644e+01, 0.7478166569050e-01, + 0.3050438987141e-07, 0.1624810271286e+01, 0.1805292951336e+02, + 0.3601142564638e-07, 0.4030467142575e+01, 0.6208294184755e+01, + 0.3689015557141e-07, 0.3648878818694e+01, 0.5966683958112e+01, + 0.3563471893565e-07, 0.5749584017096e+01, 0.6357857516136e+01, + 0.2776183170667e-07, 0.2630124187070e+01, 0.3523159621801e-02, + 0.2922350530341e-07, 0.1790346403629e+01, 0.1272157198369e+02, + 0.3511076917302e-07, 0.6142198301611e+01, 0.6599467742779e+01, + + 0.3619351007632e-07, 0.1432421386492e+01, 0.6019991944201e+01, + 0.2561254711098e-07, 0.2302822475792e+01, 0.1259245002418e+02, + 0.2626903942920e-07, 0.8660470994571e+00, 0.6702560555334e+01, + 0.2550187397083e-07, 0.6069721995383e+01, 0.1057540660594e+02, + 0.2535873526138e-07, 0.1079020331795e-01, 0.3141537925223e+02, + 0.3519786153847e-07, 0.3809066902283e+01, 0.2505706758577e+03, + 0.3424651492873e-07, 0.2075435114417e+01, 0.6546159756691e+01, + 0.2372676630861e-07, 0.2057803120154e+01, 0.2388894113936e+01, + 0.2710980779541e-07, 0.1510068488010e+01, 0.1202934727411e+02, + 0.3038710889704e-07, 0.5043617528901e+01, 0.1256608456547e+02, + + 0.2220364130585e-07, 0.3694793218205e+01, 0.1336244973887e+02, + 0.3025880825460e-07, 0.5450618999049e-01, 0.2908881142201e+02, + 0.2784493486864e-07, 0.3381164084502e+01, 0.1494531617769e+02, + 0.2294414142438e-07, 0.4382309025210e+01, 0.6076890225335e+01, + 0.2012723294724e-07, 0.9142212256518e+00, 0.6262720680387e+01, + 0.2036357831958e-07, 0.5676172293154e+01, 0.4701116388778e+01, + 0.2003474823288e-07, 0.2592767977625e+01, 0.6303431020504e+01, + 0.2207144900109e-07, 0.5404976271180e+01, 0.6489261475556e+01, + 0.2481664905135e-07, 0.4373284587027e+01, 0.1204357418345e+02, + 0.2674949182295e-07, 0.5859182188482e+01, 0.4590910121555e+01, + + 0.2450554720322e-07, 0.4555381557451e+01, 0.1495633313810e+00, + 0.2601975986457e-07, 0.3933165584959e+01, 0.1965104848470e+02, + 0.2199860022848e-07, 0.5227977189087e+01, 0.1351787002167e+02, + 0.2448121172316e-07, 0.4858060353949e+01, 0.1162474756779e+01, + 0.1876014864049e-07, 0.5690546553605e+01, 0.6279194432410e+01, + 0.1874513219396e-07, 0.4099539297446e+01, 0.6286957268481e+01, + 0.2156380842559e-07, 0.4382594769913e+00, 0.1813929450232e+02, + 0.1981691240061e-07, 0.1829784152444e+01, 0.4686889479442e+01, + 0.2329992648539e-07, 0.2836254278973e+01, 0.1002183730415e+02, + 0.1765184135302e-07, 0.2803494925833e+01, 0.4292330755499e+01, + + 0.2436368366085e-07, 0.2836897959677e+01, 0.9514313292143e+02, + 0.2164089203889e-07, 0.6127522446024e+01, 0.6037244212485e+01, + 0.1847755034221e-07, 0.3683163635008e+01, 0.2427287361862e+00, + 0.1674798769966e-07, 0.3316993867246e+00, 0.1311972100268e+02, + 0.2222542124356e-07, 0.8294097805480e+00, 0.1266924451345e+02, + 0.2071074505925e-07, 0.3659492220261e+01, 0.6528907488406e+01, + 0.1608224471835e-07, 0.4774492067182e+01, 0.1352175143971e+02, + 0.1857583439071e-07, 0.2873120597682e+01, 0.8662240327241e+01, + 0.1793018836159e-07, 0.5282441177929e+00, 0.6819880277225e+01, + 0.1575391221692e-07, 0.1320789654258e+01, 0.1102062672231e+00, + + 0.1840132009557e-07, 0.1917110916256e+01, 0.6514761976723e+02, + 0.1760917288281e-07, 0.2972635937132e+01, 0.5746271423666e+01, + 0.1561779518516e-07, 0.4372569261981e+01, 0.6272439236156e+01, + 0.1558687885205e-07, 0.5416424926425e+01, 0.6293712464735e+01, + 0.1951359382579e-07, 0.3094448898752e+01, 0.2301353951334e+02, + 0.1569144275614e-07, 0.2802103689808e+01, 0.1765478049437e+02, + 0.1479130389462e-07, 0.2136435020467e+01, 0.2077542790660e-01, + 0.1467828510764e-07, 0.7072627435674e+00, 0.1052268489556e+01, + 0.1627627337440e-07, 0.3947607143237e+01, 0.6327837846670e+00, + 0.1503498479758e-07, 0.4079248909190e+01, 0.7626583626240e-01, + + 0.1297967708237e-07, 0.6269637122840e+01, 0.1149965630200e+02, + 0.1374416896634e-07, 0.4175657970702e+01, 0.6016468784579e+01, + 0.1783812325219e-07, 0.1476540547560e+01, 0.3301902111895e+02, + 0.1525884228756e-07, 0.4653477715241e+01, 0.9411464614024e+01, + 0.1451067396763e-07, 0.2573001128225e+01, 0.1277945078067e+02, + 0.1297713111950e-07, 0.5612799618771e+01, 0.6549682916313e+01, + 0.1462784012820e-07, 0.4189661623870e+01, 0.1863592847156e+02, + 0.1384185980007e-07, 0.2656915472196e+01, 0.2379164476796e+01, + 0.1221497599801e-07, 0.5612515760138e+01, 0.1257326515556e+02, + 0.1560574525896e-07, 0.4783414317919e+01, 0.1887552587463e+02, + + 0.1544598372036e-07, 0.2694431138063e+01, 0.1820933031200e+02, + 0.1531678928696e-07, 0.4105103489666e+01, 0.2593412433514e+02, + 0.1349321503795e-07, 0.3082437194015e+00, 0.5120601093667e+01, + 0.1252030290917e-07, 0.6124072334087e+01, 0.6993008899458e+01, + 0.1459243816687e-07, 0.3733103981697e+01, 0.3813291813120e-01, + 0.1226103625262e-07, 0.1267127706817e+01, 0.2435678079171e+02, + 0.1019449641504e-07, 0.4367790112269e+01, 0.1725663147538e+02, + 0.1380789433607e-07, 0.3387201768700e+01, 0.2458316379602e+00, + 0.1019453421658e-07, 0.9204143073737e+00, 0.6112403035119e+01, + 0.1297929434405e-07, 0.5786874896426e+01, 0.1249137003520e+02, + + 0.9912677786097e-08, 0.3164232870746e+01, 0.6247047890016e+01, + 0.9829386098599e-08, 0.2586762413351e+01, 0.6453748665772e+01, + 0.1226807746104e-07, 0.6239068436607e+01, 0.5429879531333e+01, + 0.1192691755997e-07, 0.1867380051424e+01, 0.6290122169689e+01, + 0.9836499227081e-08, 0.3424716293727e+00, 0.6319103810876e+01, + 0.9642862564285e-08, 0.5661372990657e+01, 0.8273820945392e+01, + 0.1165184404862e-07, 0.5768367239093e+01, 0.1778273215245e+02, + 0.1175794418818e-07, 0.1657351222943e+01, 0.6276029531202e+01, + 0.1018948635601e-07, 0.6458292350865e+00, 0.1254537627298e+02, + 0.9500383606676e-08, 0.1054306140741e+01, 0.1256517118505e+02, + + 0.1227512202906e-07, 0.2505278379114e+01, 0.2248384854122e+02, + 0.9664792009993e-08, 0.4289737277000e+01, 0.6259197520765e+01, + 0.9613285666331e-08, 0.5500597673141e+01, 0.6306954180126e+01, + 0.1117906736211e-07, 0.2361405953468e+01, 0.1779695906178e+02, + 0.9611378640782e-08, 0.2851310576269e+01, 0.2061856251104e+00, + 0.8845354852370e-08, 0.6208777705343e+01, 0.1692165728891e+01, + 0.1054046966600e-07, 0.5413091423934e+01, 0.2204125344462e+00, + 0.1215539124483e-07, 0.5613969479755e+01, 0.8257698122054e+02, + 0.9932460955209e-08, 0.1106124877015e+01, 0.1017725758696e+02, + 0.8785804715043e-08, 0.2869224476477e+01, 0.9491756770005e+00, + + 0.8538084097562e-08, 0.6159640899344e+01, 0.6393282117669e+01, + 0.8648994369529e-08, 0.1374901198784e+01, 0.4804209201333e+01, + 0.1039063219067e-07, 0.5171080641327e+01, 0.1550861511662e+02, + 0.8867983926439e-08, 0.8317320304902e+00, 0.3903911373650e+01, + 0.8327495955244e-08, 0.3605591969180e+01, 0.6172869583223e+01, + 0.9243088356133e-08, 0.6114299196843e+01, 0.6267823317922e+01, + 0.9205657357835e-08, 0.3675153683737e+01, 0.6298328382969e+01, + 0.1033269714606e-07, 0.3313328813024e+01, 0.5573142801433e+01, + 0.8001706275552e-08, 0.2019980960053e+01, 0.2648454860559e+01, + 0.9171858254191e-08, 0.8992015524177e+00, 0.1498544001348e+03, + + 0.1075327150242e-07, 0.2898669963648e+01, 0.3694923081589e+02, + 0.9884866689828e-08, 0.4946715904478e+01, 0.1140367694411e+02, + 0.9541835576677e-08, 0.2371787888469e+01, 0.1256713221673e+02, + 0.7739903376237e-08, 0.2213775190612e+01, 0.7834121070590e+01, + 0.7311962684106e-08, 0.3429378787739e+01, 0.1192625446156e+02, + 0.9724904869624e-08, 0.6195878564404e+01, 0.2280573557157e+02, + 0.9251628983612e-08, 0.6511509527390e+00, 0.2787043132925e+01, + 0.7320763787842e-08, 0.6001083639421e+01, 0.6282655592598e+01, + 0.7320296650962e-08, 0.3789073265087e+01, 0.6283496108294e+01, + 0.7947032271039e-08, 0.1059659582204e+01, 0.1241073141809e+02, + + 0.9005277053115e-08, 0.1280315624361e+01, 0.6281591679874e+01, + 0.8995601652048e-08, 0.2224439106766e+01, 0.6284560021018e+01, + 0.8288040568796e-08, 0.5234914433867e+01, 0.1241658836951e+02, + 0.6359381347255e-08, 0.4137989441490e+01, 0.1596186371003e+01, + 0.8699572228626e-08, 0.1758411009497e+01, 0.6133512519065e+01, + 0.6456797542736e-08, 0.5919285089994e+01, 0.1685848245639e+02, + 0.7424573475452e-08, 0.5414616938827e+01, 0.4061219149443e+01, + 0.7235671196168e-08, 0.1496516557134e+01, 0.1610006857377e+03, + 0.8104015182733e-08, 0.1919918242764e+01, 0.8460828644453e+00, + 0.8098576535937e-08, 0.3819615855458e+01, 0.3894181736510e+01, + + 0.6275292346625e-08, 0.6244264115141e+01, 0.8531963191132e+00, + 0.6052432989112e-08, 0.5037731872610e+00, 0.1567108171867e+02, + 0.5705651535817e-08, 0.2984557271995e+01, 0.1258692712880e+02, + 0.5789650115138e-08, 0.6087038140697e+01, 0.1193336791622e+02, + 0.5512132153377e-08, 0.5855668994076e+01, 0.1232342296471e+02, + 0.7388890819102e-08, 0.2443128574740e+01, 0.4907302013889e+01, + 0.5467593991798e-08, 0.3017561234194e+01, 0.1884211409667e+02, + 0.6388519802999e-08, 0.5887386712935e+01, 0.5217580628120e+02, + 0.6106777149944e-08, 0.3483461059895e+00, 0.1422690933580e-01, + 0.7383420275489e-08, 0.5417387056707e+01, 0.2358125818164e+02, + + 0.5505208141738e-08, 0.2848193644783e+01, 0.1151388321134e+02, + 0.6310757462877e-08, 0.2349882520828e+01, 0.1041998632314e+02, + 0.6166904929691e-08, 0.5728575944077e+00, 0.6151533897323e+01, + 0.5263442042754e-08, 0.4495796125937e+01, 0.1885275071096e+02, + 0.5591828082629e-08, 0.1355441967677e+01, 0.4337116142245e+00, + 0.5397051680497e-08, 0.1673422864307e+01, 0.6286362197481e+01, + 0.5396992745159e-08, 0.1833502206373e+01, 0.6279789503410e+01, + 0.6572913000726e-08, 0.3331122065824e+01, 0.1176433076753e+02, + 0.5123421866413e-08, 0.2165327142679e+01, 0.1245594543367e+02, + 0.5930495725999e-08, 0.2931146089284e+01, 0.6414617803568e+01, + + 0.6431797403933e-08, 0.4134407994088e+01, 0.1350651127443e+00, + 0.5003182207604e-08, 0.3805420303749e+01, 0.1096996532989e+02, + 0.5587731032504e-08, 0.1082469260599e+01, 0.6062663316000e+01, + 0.5935263407816e-08, 0.8384333678401e+00, 0.5326786718777e+01, + 0.4756019827760e-08, 0.3552588749309e+01, 0.3104930017775e+01, + 0.6599951172637e-08, 0.4320826409528e+01, 0.4087944051283e+02, + 0.5902606868464e-08, 0.4811879454445e+01, 0.5849364236221e+01, + 0.5921147809031e-08, 0.9942628922396e-01, 0.1581959461667e+01, + 0.5505382581266e-08, 0.2466557607764e+01, 0.6503488384892e+01, + 0.5353771071862e-08, 0.4551978748683e+01, 0.1735668374386e+03, + + 0.5063282210946e-08, 0.5710812312425e+01, 0.1248988586463e+02, + 0.5926120403383e-08, 0.1333998428358e+01, 0.2673594526851e+02, + 0.5211016176149e-08, 0.4649315360760e+01, 0.2460261242967e+02, + 0.5347075084894e-08, 0.5512754081205e+01, 0.4171425416666e+01, + 0.4872609773574e-08, 0.1308025299938e+01, 0.5333900173445e+01, + 0.4727711321420e-08, 0.2144908368062e+01, 0.7232251527446e+01, + 0.6029426018652e-08, 0.5567259412084e+01, 0.3227113045244e+03, + 0.4321485284369e-08, 0.5230667156451e+01, 0.9388005868221e+01, + 0.4476406760553e-08, 0.6134081115303e+01, 0.5547199253223e+01, + 0.5835268277420e-08, 0.4783808492071e+01, 0.7285056171570e+02, + + 0.5172183602748e-08, 0.5161817911099e+01, 0.1884570439172e+02, + 0.5693571465184e-08, 0.1381646203111e+01, 0.9723862754494e+02, + 0.4060634965349e-08, 0.3876705259495e+00, 0.4274518229222e+01, + 0.3967398770473e-08, 0.5029491776223e+01, 0.3496032717521e+01, + 0.3943754005255e-08, 0.1923162955490e+01, 0.6244942932314e+01, + 0.4781323427824e-08, 0.4633332586423e+01, 0.2929661536378e+02, + 0.3871483781204e-08, 0.1616650009743e+01, 0.6321208768577e+01, + 0.5141741733997e-08, 0.9817316704659e-01, 0.1232032006293e+02, + 0.4002385978497e-08, 0.3656161212139e+01, 0.7018952447668e+01, + 0.4901092604097e-08, 0.4404098713092e+01, 0.1478866649112e+01, + + 0.3740932630345e-08, 0.5181188732639e+00, 0.6922973089781e+01, + 0.4387283718538e-08, 0.3254859566869e+01, 0.2331413144044e+03, + 0.5019197802033e-08, 0.3086773224677e+01, 0.1715706182245e+02, + 0.3834931695175e-08, 0.2797882673542e+01, 0.1491901785440e+02, + 0.3760413942497e-08, 0.2892676280217e+01, 0.1726726808967e+02, + 0.3719717204628e-08, 0.5861046025739e+01, 0.6297302759782e+01, + 0.4145623530149e-08, 0.2168239627033e+01, 0.1376059875786e+02, + 0.3932788425380e-08, 0.6271811124181e+01, 0.7872148766781e+01, + 0.3686377476857e-08, 0.3936853151404e+01, 0.6268848941110e+01, + 0.3779077950339e-08, 0.1404148734043e+01, 0.4157198507331e+01, + + 0.4091334550598e-08, 0.2452436180854e+01, 0.9779108567966e+01, + 0.3926694536146e-08, 0.6102292739040e+01, 0.1098419223922e+02, + 0.4841000253289e-08, 0.6072760457276e+01, 0.1252801878276e+02, + 0.4949340130240e-08, 0.1154832815171e+01, 0.1617106187867e+03, + 0.3761557737360e-08, 0.5527545321897e+01, 0.3185192151914e+01, + 0.3647396268188e-08, 0.1525035688629e+01, 0.6271346477544e+01, + 0.3932405074189e-08, 0.5570681040569e+01, 0.2139354194808e+02, + 0.3631322501141e-08, 0.1981240601160e+01, 0.6294805223347e+01, + 0.4130007425139e-08, 0.2050060880201e+01, 0.2195415756911e+02, + 0.4433905965176e-08, 0.3277477970321e+01, 0.7445550607224e+01, + + 0.3851814176947e-08, 0.5210690074886e+01, 0.9562891316684e+00, + 0.3485807052785e-08, 0.6653274904611e+00, 0.1161697602389e+02, + 0.3979772816991e-08, 0.1767941436148e+01, 0.2277943724828e+02, + 0.3402607460500e-08, 0.3421746306465e+01, 0.1087398597200e+02, + 0.4049993000926e-08, 0.1127144787547e+01, 0.3163918923335e+00, + 0.3420511182382e-08, 0.4214794779161e+01, 0.1362553364512e+02, + 0.3640772365012e-08, 0.5324905497687e+01, 0.1725304118033e+02, + 0.3323037987501e-08, 0.6135761838271e+01, 0.6279143387820e+01, + 0.4503141663637e-08, 0.1802305450666e+01, 0.1385561574497e+01, + 0.4314560055588e-08, 0.4812299731574e+01, 0.4176041334900e+01, + + 0.3294226949110e-08, 0.3657547059723e+01, 0.6287008313071e+01, + 0.3215657197281e-08, 0.4866676894425e+01, 0.5749861718712e+01, + 0.4129362656266e-08, 0.3809342558906e+01, 0.5905702259363e+01, + 0.3137762976388e-08, 0.2494635174443e+01, 0.2099539292909e+02, + 0.3514010952384e-08, 0.2699961831678e+01, 0.7335344340001e+01, + 0.3327607571530e-08, 0.3318457714816e+01, 0.5436992986000e+01, + 0.3541066946675e-08, 0.4382703582466e+01, 0.1234573916645e+02, + 0.3216179847052e-08, 0.5271066317054e+01, 0.3802769619140e-01, + 0.2959045059570e-08, 0.5819591585302e+01, 0.2670964694522e+02, + 0.3884040326665e-08, 0.5980934960428e+01, 0.6660449441528e+01, + + 0.2922027539886e-08, 0.3337290282483e+01, 0.1375773836557e+01, + 0.4110846382042e-08, 0.5742978187327e+01, 0.4480965020977e+02, + 0.2934508411032e-08, 0.2278075804200e+01, 0.6408777551755e+00, + 0.3966896193000e-08, 0.5835747858477e+01, 0.3773735910827e+00, + 0.3286695827610e-08, 0.5838898193902e+01, 0.3932462625300e-02, + 0.3720643094196e-08, 0.1122212337858e+01, 0.1646033343740e+02, + 0.3285508906174e-08, 0.9182250996416e+00, 0.1081813534213e+02, + 0.3753880575973e-08, 0.5174761973266e+01, 0.5642198095270e+01, + 0.3022129385587e-08, 0.3381611020639e+01, 0.2982630633589e+02, + 0.2798569205621e-08, 0.3546193723922e+01, 0.1937891852345e+02, + + 0.3397872070505e-08, 0.4533203197934e+01, 0.6923953605621e+01, + 0.3708099772977e-08, 0.2756168198616e+01, 0.3066615496545e+02, + 0.3599283541510e-08, 0.1934395469918e+01, 0.6147450479709e+01, + 0.3688702753059e-08, 0.7149920971109e+00, 0.2636725487657e+01, + 0.2681084724003e-08, 0.4899819493154e+01, 0.6816289982179e+01, + 0.3495993460759e-08, 0.1572418915115e+01, 0.6418701221183e+01, + 0.3130770324995e-08, 0.8912190180489e+00, 0.1235996607578e+02, + 0.2744353821941e-08, 0.3800821940055e+01, 0.2059724391010e+02, + 0.2842732906341e-08, 0.2644717440029e+01, 0.2828699048865e+02, + 0.3046882682154e-08, 0.3987793020179e+01, 0.6055599646783e+01, + + 0.2399072455143e-08, 0.9908826440764e+00, 0.6255674361143e+01, + 0.2384306274204e-08, 0.2516149752220e+01, 0.6310477339748e+01, + 0.2977324500559e-08, 0.5849195642118e+01, 0.1652265972112e+02, + 0.3062835258972e-08, 0.1681660100162e+01, 0.1172006883645e+02, + 0.3109682589231e-08, 0.5804143987737e+00, 0.2751146787858e+02, + 0.2903920355299e-08, 0.5800768280123e+01, 0.6510552054109e+01, + 0.2823221989212e-08, 0.9241118370216e+00, 0.5469525544182e+01, + 0.3187949696649e-08, 0.3139776445735e+01, 0.1693792562116e+03, + 0.2922559771655e-08, 0.3549440782984e+01, 0.2630839062450e+00, + 0.2436302066603e-08, 0.4735540696319e+01, 0.3946258593675e+00, + + 0.3049473043606e-08, 0.4998289124561e+01, 0.8390110365991e+01, + 0.2863682575784e-08, 0.6709515671102e+00, 0.2243449970715e+00, + 0.2641750517966e-08, 0.5410978257284e+01, 0.2986433403208e+02, + 0.2704093466243e-08, 0.4778317207821e+01, 0.6129297044991e+01, + 0.2445522177011e-08, 0.6009020662222e+01, 0.1171295538178e+02, + 0.2623608810230e-08, 0.5010449777147e+01, 0.6436854655901e+01, + 0.2079259704053e-08, 0.5980943768809e+01, 0.2019909489111e+02, + 0.2820225596771e-08, 0.2679965110468e+01, 0.5934151399930e+01, + 0.2365221950927e-08, 0.1894231148810e+01, 0.2470570524223e+02, + 0.2359682077149e-08, 0.4220752950780e+01, 0.8671969964381e+01, + + 0.2387577137206e-08, 0.2571783940617e+01, 0.7096626156709e+01, + 0.1982102089816e-08, 0.5169765997119e+00, 0.1727188400790e+02, + 0.2687502389925e-08, 0.6239078264579e+01, 0.7075506709219e+02, + 0.2207751669135e-08, 0.2031184412677e+01, 0.4377611041777e+01, + 0.2618370214274e-08, 0.8266079985979e+00, 0.6632000300961e+01, + 0.2591951887361e-08, 0.8819350522008e+00, 0.4873985990671e+02, + 0.2375055656248e-08, 0.3520944177789e+01, 0.1590676413561e+02, + 0.2472019978911e-08, 0.1551431908671e+01, 0.6612329252343e+00, + 0.2368157127199e-08, 0.4178610147412e+01, 0.3459636466239e+02, + 0.1764846605693e-08, 0.1506764000157e+01, 0.1980094587212e+02, + + 0.2291769608798e-08, 0.2118250611782e+01, 0.2844914056730e-01, + 0.2209997316943e-08, 0.3363255261678e+01, 0.2666070658668e+00, + 0.2292699097923e-08, 0.4200423956460e+00, 0.1484170571900e-02, + 0.1629683015329e-08, 0.2331362582487e+01, 0.3035599730800e+02, + 0.2206492862426e-08, 0.3400274026992e+01, 0.6281667977667e+01, + 0.2205746568257e-08, 0.1066051230724e+00, 0.6284483723224e+01, + 0.2026310767991e-08, 0.2779066487979e+01, 0.2449240616245e+02, + 0.1762977622163e-08, 0.9951450691840e+00, 0.2045286941806e+02, + 0.1368535049606e-08, 0.6402447365817e+00, 0.2473415438279e+02, + 0.1720598775450e-08, 0.2303524214705e+00, 0.1679593901136e+03, + + 0.1702429015449e-08, 0.6164622655048e+01, 0.3338575901272e+03, + 0.1414033197685e-08, 0.3954561185580e+01, 0.1624205518357e+03, + 0.1573768958043e-08, 0.2028286308984e+01, 0.3144167757552e+02, + 0.1650705184447e-08, 0.2304040666128e+01, 0.5267006960365e+02, + 0.1651087618855e-08, 0.2538461057280e+01, 0.8956999012000e+02, + 0.1616409518983e-08, 0.5111054348152e+01, 0.3332657872986e+02, + 0.1537175173581e-08, 0.5601130666603e+01, 0.3852657435933e+02, + 0.1593191980553e-08, 0.2614340453411e+01, 0.2282781046519e+03, + 0.1499480170643e-08, 0.3624721577264e+01, 0.2823723341956e+02, + 0.1493807843235e-08, 0.4214569879008e+01, 0.2876692439167e+02, + + 0.1074571199328e-08, 0.1496911744704e+00, 0.8397383534231e+02, + 0.1074406983417e-08, 0.1187817671922e+01, 0.8401985929482e+02, + 0.9757576855851e-09, 0.2655703035858e+01, 0.7826370942180e+02, + 0.1258432887565e-08, 0.4969896184844e+01, 0.3115650189215e+03, + 0.1240336343282e-08, 0.5192460776926e+01, 0.1784300471910e+03, + 0.9016107005164e-09, 0.1960356923057e+01, 0.5886454391678e+02, + 0.1135392360918e-08, 0.5082427809068e+01, 0.7842370451713e+02, + 0.9216046089565e-09, 0.2793775037273e+01, 0.1014262087719e+03, + 0.1061276615030e-08, 0.3726144311409e+01, 0.5660027930059e+02, + 0.1010110596263e-08, 0.7404080708937e+00, 0.4245678405627e+02, + + 0.7217424756199e-09, 0.2697449980577e-01, 0.2457074661053e+03, + 0.6912003846756e-09, 0.4253296276335e+01, 0.1679936946371e+03, + 0.6871814664847e-09, 0.5148072412354e+01, 0.6053048899753e+02, + 0.4887158016343e-09, 0.2153581148294e+01, 0.9656299901946e+02, + 0.5161802866314e-09, 0.3852750634351e+01, 0.2442876000072e+03, + 0.5652599559057e-09, 0.1233233356270e+01, 0.8365903305582e+02, + 0.4710812608586e-09, 0.5610486976767e+01, 0.3164282286739e+03, + 0.4909977500324e-09, 0.1639629524123e+01, 0.4059982187939e+03, + 0.4772641839378e-09, 0.3737100368583e+01, 0.1805255418145e+03, + 0.4487562567153e-09, 0.1158417054478e+00, 0.8433466158131e+02, + + 0.3943441230497e-09, 0.6243502862796e+00, 0.2568537517081e+03, + 0.3952236913598e-09, 0.3510377382385e+01, 0.2449975330562e+03, + 0.3788898363417e-09, 0.5916128302299e+01, 0.1568131045107e+03, + 0.3738329328831e-09, 0.1042266763456e+01, 0.3948519331910e+03, + 0.2451199165151e-09, 0.1166788435700e+01, 0.1435713242844e+03, + 0.2436734402904e-09, 0.3254726114901e+01, 0.2268582385539e+03, + 0.2213605274325e-09, 0.1687210598530e+01, 0.1658638954901e+03, + 0.1491521204829e-09, 0.2657541786794e+01, 0.2219950288015e+03, + 0.1474995329744e-09, 0.5013089805819e+01, 0.3052819430710e+03, + 0.1661939475656e-09, 0.5495315428418e+01, 0.2526661704812e+03, + + 0.9015946748003e-10, 0.2236989966505e+01, 0.4171445043968e+03 }; + +/* Sun-to-Earth, T^0, Z */ + static const double e0z[] = { + 0.2796207639075e-05, 0.3198701560209e+01, 0.8433466158131e+02, + 0.1016042198142e-05, 0.5422360395913e+01, 0.5507553240374e+01, + 0.8044305033647e-06, 0.3880222866652e+01, 0.5223693906222e+01, + 0.4385347909274e-06, 0.3704369937468e+01, 0.2352866153506e+01, + 0.3186156414906e-06, 0.3999639363235e+01, 0.1577343543434e+01, + 0.2272412285792e-06, 0.3984738315952e+01, 0.1047747311755e+01, + 0.1645620103007e-06, 0.3565412516841e+01, 0.5856477690889e+01, + 0.1815836921166e-06, 0.4984507059020e+01, 0.6283075850446e+01, + 0.1447461676364e-06, 0.3702753570108e+01, 0.9437762937313e+01, + 0.1430760876382e-06, 0.3409658712357e+01, 0.1021328554739e+02, + + 0.1120445753226e-06, 0.4829561570246e+01, 0.1414349524433e+02, + 0.1090232840797e-06, 0.2080729178066e+01, 0.6812766822558e+01, + 0.9715727346551e-07, 0.3476295881948e+01, 0.4694002934110e+01, + 0.1036267136217e-06, 0.4056639536648e+01, 0.7109288135493e+02, + 0.8752665271340e-07, 0.4448159519911e+01, 0.5753384878334e+01, + 0.8331864956004e-07, 0.4991704044208e+01, 0.7084896783808e+01, + 0.6901658670245e-07, 0.4325358994219e+01, 0.6275962395778e+01, + 0.9144536848998e-07, 0.1141826375363e+01, 0.6620890113188e+01, + 0.7205085037435e-07, 0.3624344170143e+01, 0.5296909721118e+00, + 0.7697874654176e-07, 0.5554257458998e+01, 0.1676215758509e+03, + + 0.5197545738384e-07, 0.6251760961735e+01, 0.1807370494127e+02, + 0.5031345378608e-07, 0.2497341091913e+01, 0.4705732307012e+01, + 0.4527110205840e-07, 0.2335079920992e+01, 0.6309374173736e+01, + 0.4753355798089e-07, 0.7094148987474e+00, 0.5884926831456e+01, + 0.4296951977516e-07, 0.1101916352091e+01, 0.6681224869435e+01, + 0.3855341568387e-07, 0.1825495405486e+01, 0.5486777812467e+01, + 0.5253930970990e-07, 0.4424740687208e+01, 0.7860419393880e+01, + 0.4024630496471e-07, 0.5120498157053e+01, 0.1336797263425e+02, + 0.4061069791453e-07, 0.6029771435451e+01, 0.3930209696940e+01, + 0.3797883804205e-07, 0.4435193600836e+00, 0.3154687086868e+01, + + 0.2933033225587e-07, 0.5124157356507e+01, 0.1059381944224e+01, + 0.3503000930426e-07, 0.5421830162065e+01, 0.6069776770667e+01, + 0.3670096214050e-07, 0.4582101667297e+01, 0.1219403291462e+02, + 0.2905609437008e-07, 0.1926566420072e+01, 0.1097707878456e+02, + 0.2466827821713e-07, 0.6090174539834e+00, 0.6496374930224e+01, + 0.2691647295332e-07, 0.1393432595077e+01, 0.2200391463820e+02, + 0.2150554667946e-07, 0.4308671715951e+01, 0.5643178611111e+01, + 0.2237481922680e-07, 0.8133968269414e+00, 0.8635942003952e+01, + 0.1817741038157e-07, 0.3755205127454e+01, 0.3340612434717e+01, + 0.2227820762132e-07, 0.2759558596664e+01, 0.1203646072878e+02, + + 0.1944713772307e-07, 0.5699645869121e+01, 0.1179062909082e+02, + 0.1527340520662e-07, 0.1986749091746e+01, 0.3981490189893e+00, + 0.1577282574914e-07, 0.3205017217983e+01, 0.5088628793478e+01, + 0.1424738825424e-07, 0.6256747903666e+01, 0.2544314396739e+01, + 0.1616563121701e-07, 0.2601671259394e+00, 0.1729818233119e+02, + 0.1401210391692e-07, 0.4686939173506e+01, 0.7058598460518e+01, + 0.1488726974214e-07, 0.2815862451372e+01, 0.2593412433514e+02, + 0.1692626442388e-07, 0.4956894109797e+01, 0.1564752902480e+03, + 0.1123571582910e-07, 0.2381192697696e+01, 0.3738761453707e+01, + 0.9903308606317e-08, 0.4294851657684e+01, 0.9225539266174e+01, + + 0.9174533187191e-08, 0.3075171510642e+01, 0.4164311961999e+01, + 0.8645985631457e-08, 0.5477534821633e+00, 0.8429241228195e+01, + -0.1085876492688e-07, 0.0000000000000e+00, 0.0000000000000e+00, + 0.9264309077815e-08, 0.5968571670097e+01, 0.7079373888424e+01, + 0.8243116984954e-08, 0.1489098777643e+01, 0.1044738781244e+02, + 0.8268102113708e-08, 0.3512977691983e+01, 0.1150676975667e+02, + 0.9043613988227e-08, 0.1290704408221e+00, 0.1101510648075e+02, + 0.7432912038789e-08, 0.1991086893337e+01, 0.2608790314060e+02, + 0.8586233727285e-08, 0.4238357924414e+01, 0.2986433403208e+02, + 0.7612230060131e-08, 0.2911090150166e+01, 0.4732030630302e+01, + + 0.7097787751408e-08, 0.1908938392390e+01, 0.8031092209206e+01, + 0.7640237040175e-08, 0.6129219000168e+00, 0.7962980379786e+00, + 0.7070445688081e-08, 0.1380417036651e+01, 0.2146165377750e+01, + 0.7690770957702e-08, 0.1680504249084e+01, 0.2122839202813e+02, + 0.8051292542594e-08, 0.5127423484511e+01, 0.2942463415728e+01, + 0.5902709104515e-08, 0.2020274190917e+01, 0.7755226100720e+00, + 0.5134567496462e-08, 0.2606778676418e+01, 0.1256615170089e+02, + 0.5525802046102e-08, 0.1613011769663e+01, 0.8018209333619e+00, + 0.5880724784221e-08, 0.4604483417236e+01, 0.4690479774488e+01, + 0.5211699081370e-08, 0.5718964114193e+01, 0.8827390247185e+01, + + 0.4891849573562e-08, 0.3689658932196e+01, 0.2132990797783e+00, + 0.5150246069997e-08, 0.4099769855122e+01, 0.6480980550449e+02, + 0.5102434319633e-08, 0.5660834602509e+01, 0.3379454372902e+02, + 0.5083405254252e-08, 0.9842221218974e+00, 0.4136910472696e+01, + 0.4206562585682e-08, 0.1341363634163e+00, 0.3128388763578e+01, + 0.4663249683579e-08, 0.8130132735866e+00, 0.5216580451554e+01, + 0.4099474416530e-08, 0.5791497770644e+01, 0.4265981595566e+00, + 0.4628251220767e-08, 0.1249802769331e+01, 0.1572083878776e+02, + 0.5024068728142e-08, 0.4795684802743e+01, 0.6290189305114e+01, + 0.5120234327758e-08, 0.3810420387208e+01, 0.5230807360890e+01, + + 0.5524029815280e-08, 0.1029264714351e+01, 0.2397622045175e+03, + 0.4757415718860e-08, 0.3528044781779e+01, 0.1649636139783e+02, + 0.3915786131127e-08, 0.5593889282646e+01, 0.1589072916335e+01, + 0.4869053149991e-08, 0.3299636454433e+01, 0.7632943190217e+01, + 0.3649365703729e-08, 0.1286049002584e+01, 0.6206810014183e+01, + 0.3992493949002e-08, 0.3100307589464e+01, 0.2515860172507e+02, + 0.3320247477418e-08, 0.6212683940807e+01, 0.1216800268190e+02, + 0.3287123739696e-08, 0.4699118445928e+01, 0.7234794171227e+01, + 0.3472776811103e-08, 0.2630507142004e+01, 0.7342457794669e+01, + 0.3423253294767e-08, 0.2946432844305e+01, 0.9623688285163e+01, + + 0.3896173898244e-08, 0.1224834179264e+01, 0.6438496133249e+01, + 0.3388455337924e-08, 0.1543807616351e+01, 0.1494531617769e+02, + 0.3062704716523e-08, 0.1191777572310e+01, 0.8662240327241e+01, + 0.3270075600400e-08, 0.5483498767737e+01, 0.1194447056968e+01, + 0.3101209215259e-08, 0.8000833804348e+00, 0.3772475342596e+02, + 0.2780883347311e-08, 0.4077980721888e+00, 0.5863591145557e+01, + 0.2903605931824e-08, 0.2617490302147e+01, 0.1965104848470e+02, + 0.2682014743119e-08, 0.2634703158290e+01, 0.7238675589263e+01, + 0.2534360108492e-08, 0.6102446114873e+01, 0.6836645152238e+01, + 0.2392564882509e-08, 0.3681820208691e+01, 0.5849364236221e+01, + + 0.2656667254856e-08, 0.6216045388886e+01, 0.6133512519065e+01, + 0.2331242096773e-08, 0.5864949777744e+01, 0.4535059491685e+01, + 0.2287898363668e-08, 0.4566628532802e+01, 0.7477522907414e+01, + 0.2336944521306e-08, 0.2442722126930e+01, 0.1137170464392e+02, + 0.3156632236269e-08, 0.1626628050682e+01, 0.2509084901204e+03, + 0.2982612402766e-08, 0.2803604512609e+01, 0.1748016358760e+01, + 0.2774031674807e-08, 0.4654002897158e+01, 0.8223916695780e+02, + 0.2295236548638e-08, 0.4326518333253e+01, 0.3378142627421e+00, + 0.2190714699873e-08, 0.4519614578328e+01, 0.2908881142201e+02, + 0.2191495845045e-08, 0.3012626912549e+01, 0.1673046366289e+02, + + 0.2492901628386e-08, 0.1290101424052e+00, 0.1543797956245e+03, + 0.1993778064319e-08, 0.3864046799414e+01, 0.1778984560711e+02, + 0.1898146479022e-08, 0.5053777235891e+01, 0.2042657109477e+02, + 0.1918280127634e-08, 0.2222470192548e+01, 0.4165496312290e+02, + 0.1916351061607e-08, 0.8719067257774e+00, 0.7737595720538e+02, + 0.1834720181466e-08, 0.4031491098040e+01, 0.2358125818164e+02, + 0.1249201523806e-08, 0.5938379466835e+01, 0.3301902111895e+02, + 0.1477304050539e-08, 0.6544722606797e+00, 0.9548094718417e+02, + 0.1264316431249e-08, 0.2059072853236e+01, 0.8399684731857e+02, + 0.1203526495039e-08, 0.3644813532605e+01, 0.4558517281984e+02, + + 0.9221681059831e-09, 0.3241815055602e+01, 0.7805158573086e+02, + 0.7849278367646e-09, 0.5043812342457e+01, 0.5217580628120e+02, + 0.7983392077387e-09, 0.5000024502753e+01, 0.1501922143975e+03, + 0.7925395431654e-09, 0.1398734871821e-01, 0.9061773743175e+02, + 0.7640473285886e-09, 0.5067111723130e+01, 0.4951538251678e+02, + 0.5398937754482e-09, 0.5597382200075e+01, 0.1613385000004e+03, + 0.5626247550193e-09, 0.2601338209422e+01, 0.7318837597844e+02, + 0.5525197197855e-09, 0.5814832109256e+01, 0.1432335100216e+03, + 0.5407629837898e-09, 0.3384820609076e+01, 0.3230491187871e+03, + 0.3856739119801e-09, 0.1072391840473e+01, 0.2334791286671e+03, + + 0.3856425239987e-09, 0.2369540393327e+01, 0.1739046517013e+03, + 0.4350867755983e-09, 0.5255575751082e+01, 0.1620484330494e+03, + 0.3844113924996e-09, 0.5482356246182e+01, 0.9757644180768e+02, + 0.2854869155431e-09, 0.9573634763143e+00, 0.1697170704744e+03, + 0.1719227671416e-09, 0.1887203025202e+01, 0.2265204242912e+03, + 0.1527846879755e-09, 0.3982183931157e+01, 0.3341954043900e+03, + 0.1128229264847e-09, 0.2787457156298e+01, 0.3119028331842e+03 }; + +/* Sun-to-Earth, T^1, X */ + static const double e1x[] = { + 0.1234046326004e-05, 0.0000000000000e+00, 0.0000000000000e+00, + 0.5150068824701e-06, 0.6002664557501e+01, 0.1256615170089e+02, + 0.1290743923245e-07, 0.5959437664199e+01, 0.1884922755134e+02, + 0.1068615564952e-07, 0.2015529654209e+01, 0.6283075850446e+01, + 0.2079619142538e-08, 0.1732960531432e+01, 0.6279552690824e+01, + 0.2078009243969e-08, 0.4915604476996e+01, 0.6286599010068e+01, + 0.6206330058856e-09, 0.3616457953824e+00, 0.4705732307012e+01, + 0.5989335313746e-09, 0.3802607304474e+01, 0.6256777527156e+01, + 0.5958495663840e-09, 0.2845866560031e+01, 0.6309374173736e+01, + 0.4866923261539e-09, 0.5213203771824e+01, 0.7755226100720e+00, + + 0.4267785823142e-09, 0.4368189727818e+00, 0.1059381944224e+01, + 0.4610675141648e-09, 0.1837249181372e-01, 0.7860419393880e+01, + 0.3626989993973e-09, 0.2161590545326e+01, 0.5753384878334e+01, + 0.3563071194389e-09, 0.1452631954746e+01, 0.5884926831456e+01, + 0.3557015642807e-09, 0.4470593393054e+01, 0.6812766822558e+01, + 0.3210412089122e-09, 0.5195926078314e+01, 0.6681224869435e+01, + 0.2875473577986e-09, 0.5916256610193e+01, 0.2513230340178e+02, + 0.2842913681629e-09, 0.1149902426047e+01, 0.6127655567643e+01, + 0.2751248215916e-09, 0.5502088574662e+01, 0.6438496133249e+01, + 0.2481432881127e-09, 0.2921989846637e+01, 0.5486777812467e+01, + + 0.2059885976560e-09, 0.3718070376585e+01, 0.7079373888424e+01, + 0.2015522342591e-09, 0.5979395259740e+01, 0.6290189305114e+01, + 0.1995364084253e-09, 0.6772087985494e+00, 0.6275962395778e+01, + 0.1957436436943e-09, 0.2899210654665e+01, 0.5507553240374e+01, + 0.1651609818948e-09, 0.6228206482192e+01, 0.1150676975667e+02, + 0.1822980550699e-09, 0.1469348746179e+01, 0.1179062909082e+02, + 0.1675223159760e-09, 0.3813910555688e+01, 0.7058598460518e+01, + 0.1706491764745e-09, 0.3004380506684e+00, 0.7113454667900e-02, + 0.1392952362615e-09, 0.1440393973406e+01, 0.7962980379786e+00, + 0.1209868266342e-09, 0.4150425791727e+01, 0.4694002934110e+01, + + 0.1009827202611e-09, 0.3290040429843e+01, 0.3738761453707e+01, + 0.1047261388602e-09, 0.4229590090227e+01, 0.6282095334605e+01, + 0.1047006652004e-09, 0.2418967680575e+01, 0.6284056366286e+01, + 0.9609993143095e-10, 0.4627943659201e+01, 0.6069776770667e+01, + 0.9590900593873e-10, 0.1894393939924e+01, 0.4136910472696e+01, + 0.9146249188071e-10, 0.2010647519562e+01, 0.6496374930224e+01, + 0.8545274480290e-10, 0.5529846956226e-01, 0.1194447056968e+01, + 0.8224377881194e-10, 0.1254304102174e+01, 0.1589072916335e+01, + 0.6183529510410e-10, 0.3360862168815e+01, 0.8827390247185e+01, + 0.6259255147141e-10, 0.4755628243179e+01, 0.8429241228195e+01, + + 0.5539291694151e-10, 0.5371746955142e+01, 0.4933208510675e+01, + 0.7328259466314e-10, 0.4927699613906e+00, 0.4535059491685e+01, + 0.6017835843560e-10, 0.5776682001734e-01, 0.1255903824622e+02, + 0.7079827775243e-10, 0.4395059432251e+01, 0.5088628793478e+01, + 0.5170358878213e-10, 0.5154062619954e+01, 0.1176985366291e+02, + 0.4872301838682e-10, 0.6289611648973e+00, 0.6040347114260e+01, + 0.5249869411058e-10, 0.5617272046949e+01, 0.3154687086868e+01, + 0.4716172354411e-10, 0.3965901800877e+01, 0.5331357529664e+01, + 0.4871214940964e-10, 0.4627507050093e+01, 0.1256967486051e+02, + 0.4598076850751e-10, 0.6023631226459e+01, 0.6525804586632e+01, + + 0.4562196089485e-10, 0.4138562084068e+01, 0.3930209696940e+01, + 0.4325493872224e-10, 0.1330845906564e+01, 0.7632943190217e+01, + 0.5673781176748e-10, 0.2558752615657e+01, 0.5729506548653e+01, + 0.3961436642503e-10, 0.2728071734630e+01, 0.7234794171227e+01, + 0.5101868209058e-10, 0.4113444965144e+01, 0.6836645152238e+01, + 0.5257043167676e-10, 0.6195089830590e+01, 0.8031092209206e+01, + 0.5076613989393e-10, 0.2305124132918e+01, 0.7477522907414e+01, + 0.3342169352778e-10, 0.5415998155071e+01, 0.1097707878456e+02, + 0.3545881983591e-10, 0.3727160564574e+01, 0.4164311961999e+01, + 0.3364063738599e-10, 0.2901121049204e+00, 0.1137170464392e+02, + + 0.3357039670776e-10, 0.1652229354331e+01, 0.5223693906222e+01, + 0.4307412268687e-10, 0.4938909587445e+01, 0.1592596075957e+01, + 0.3405769115435e-10, 0.2408890766511e+01, 0.3128388763578e+01, + 0.3001926198480e-10, 0.4862239006386e+01, 0.1748016358760e+01, + 0.2778264787325e-10, 0.5241168661353e+01, 0.7342457794669e+01, + 0.2676159480666e-10, 0.3423593942199e+01, 0.2146165377750e+01, + 0.2954273399939e-10, 0.1881721265406e+01, 0.5368044267797e+00, + 0.3309362888795e-10, 0.1931525677349e+01, 0.8018209333619e+00, + 0.2810283608438e-10, 0.2414659495050e+01, 0.5225775174439e+00, + 0.3378045637764e-10, 0.4238019163430e+01, 0.1554202828031e+00, + + 0.2558134979840e-10, 0.1828225235805e+01, 0.5230807360890e+01, + 0.2273755578447e-10, 0.5858184283998e+01, 0.7084896783808e+01, + 0.2294176037690e-10, 0.4514589779057e+01, 0.1726015463500e+02, + 0.2533506099435e-10, 0.2355717851551e+01, 0.5216580451554e+01, + 0.2716685375812e-10, 0.2221003625100e+01, 0.8635942003952e+01, + 0.2419043435198e-10, 0.5955704951635e+01, 0.4690479774488e+01, + 0.2521232544812e-10, 0.1395676848521e+01, 0.5481254917084e+01, + 0.2630195021491e-10, 0.5727468918743e+01, 0.2629832328990e-01, + 0.2548395840944e-10, 0.2628351859400e-03, 0.1349867339771e+01 }; + +/* Sun-to-Earth, T^1, Y */ + static const double e1y[] = { + 0.9304690546528e-06, 0.0000000000000e+00, 0.0000000000000e+00, + 0.5150715570663e-06, 0.4431807116294e+01, 0.1256615170089e+02, + 0.1290825411056e-07, 0.4388610039678e+01, 0.1884922755134e+02, + 0.4645466665386e-08, 0.5827263376034e+01, 0.6283075850446e+01, + 0.2079625310718e-08, 0.1621698662282e+00, 0.6279552690824e+01, + 0.2078189850907e-08, 0.3344713435140e+01, 0.6286599010068e+01, + 0.6207190138027e-09, 0.5074049319576e+01, 0.4705732307012e+01, + 0.5989826532569e-09, 0.2231842216620e+01, 0.6256777527156e+01, + 0.5961360812618e-09, 0.1274975769045e+01, 0.6309374173736e+01, + 0.4874165471016e-09, 0.3642277426779e+01, 0.7755226100720e+00, + + 0.4283834034360e-09, 0.5148765510106e+01, 0.1059381944224e+01, + 0.4652389287529e-09, 0.4715794792175e+01, 0.7860419393880e+01, + 0.3751707476401e-09, 0.6617207370325e+00, 0.5753384878334e+01, + 0.3559998806198e-09, 0.6155548875404e+01, 0.5884926831456e+01, + 0.3558447558857e-09, 0.2898827297664e+01, 0.6812766822558e+01, + 0.3211116927106e-09, 0.3625813502509e+01, 0.6681224869435e+01, + 0.2875609914672e-09, 0.4345435813134e+01, 0.2513230340178e+02, + 0.2843109704069e-09, 0.5862263940038e+01, 0.6127655567643e+01, + 0.2744676468427e-09, 0.3926419475089e+01, 0.6438496133249e+01, + 0.2481285237789e-09, 0.1351976572828e+01, 0.5486777812467e+01, + + 0.2060338481033e-09, 0.2147556998591e+01, 0.7079373888424e+01, + 0.2015822358331e-09, 0.4408358972216e+01, 0.6290189305114e+01, + 0.2001195944195e-09, 0.5385829822531e+01, 0.6275962395778e+01, + 0.1953667642377e-09, 0.1304933746120e+01, 0.5507553240374e+01, + 0.1839744078713e-09, 0.6173567228835e+01, 0.1179062909082e+02, + 0.1643334294845e-09, 0.4635942997523e+01, 0.1150676975667e+02, + 0.1768051018652e-09, 0.5086283558874e+01, 0.7113454667900e-02, + 0.1674874205489e-09, 0.2243332137241e+01, 0.7058598460518e+01, + 0.1421445397609e-09, 0.6186899771515e+01, 0.7962980379786e+00, + 0.1255163958267e-09, 0.5730238465658e+01, 0.4694002934110e+01, + + 0.1013945281961e-09, 0.1726055228402e+01, 0.3738761453707e+01, + 0.1047294335852e-09, 0.2658801228129e+01, 0.6282095334605e+01, + 0.1047103879392e-09, 0.8481047835035e+00, 0.6284056366286e+01, + 0.9530343962826e-10, 0.3079267149859e+01, 0.6069776770667e+01, + 0.9604637611690e-10, 0.3258679792918e+00, 0.4136910472696e+01, + 0.9153518537177e-10, 0.4398599886584e+00, 0.6496374930224e+01, + 0.8562458214922e-10, 0.4772686794145e+01, 0.1194447056968e+01, + 0.8232525360654e-10, 0.5966220721679e+01, 0.1589072916335e+01, + 0.6150223411438e-10, 0.1780985591923e+01, 0.8827390247185e+01, + 0.6272087858000e-10, 0.3184305429012e+01, 0.8429241228195e+01, + + 0.5540476311040e-10, 0.3801260595433e+01, 0.4933208510675e+01, + 0.7331901699361e-10, 0.5205948591865e+01, 0.4535059491685e+01, + 0.6018528702791e-10, 0.4770139083623e+01, 0.1255903824622e+02, + 0.5150530724804e-10, 0.3574796899585e+01, 0.1176985366291e+02, + 0.6471933741811e-10, 0.2679787266521e+01, 0.5088628793478e+01, + 0.5317460644174e-10, 0.9528763345494e+00, 0.3154687086868e+01, + 0.4832187748783e-10, 0.5329322498232e+01, 0.6040347114260e+01, + 0.4716763555110e-10, 0.2395235316466e+01, 0.5331357529664e+01, + 0.4871509139861e-10, 0.3056663648823e+01, 0.1256967486051e+02, + 0.4598417696768e-10, 0.4452762609019e+01, 0.6525804586632e+01, + + 0.5674189533175e-10, 0.9879680872193e+00, 0.5729506548653e+01, + 0.4073560328195e-10, 0.5939127696986e+01, 0.7632943190217e+01, + 0.5040994945359e-10, 0.4549875824510e+01, 0.8031092209206e+01, + 0.5078185134679e-10, 0.7346659893982e+00, 0.7477522907414e+01, + 0.3769343537061e-10, 0.1071317188367e+01, 0.7234794171227e+01, + 0.4980331365299e-10, 0.2500345341784e+01, 0.6836645152238e+01, + 0.3458236594757e-10, 0.3825159450711e+01, 0.1097707878456e+02, + 0.3578859493602e-10, 0.5299664791549e+01, 0.4164311961999e+01, + 0.3370504646419e-10, 0.5002316301593e+01, 0.1137170464392e+02, + 0.3299873338428e-10, 0.2526123275282e+01, 0.3930209696940e+01, + + 0.4304917318409e-10, 0.3368078557132e+01, 0.1592596075957e+01, + 0.3402418753455e-10, 0.8385495425800e+00, 0.3128388763578e+01, + 0.2778460572146e-10, 0.3669905203240e+01, 0.7342457794669e+01, + 0.2782710128902e-10, 0.2691664812170e+00, 0.1748016358760e+01, + 0.2711725179646e-10, 0.4707487217718e+01, 0.5296909721118e+00, + 0.2981760946340e-10, 0.3190260867816e+00, 0.5368044267797e+00, + 0.2811672977772e-10, 0.3196532315372e+01, 0.7084896783808e+01, + 0.2863454474467e-10, 0.2263240324780e+00, 0.5223693906222e+01, + 0.3333464634051e-10, 0.3498451685065e+01, 0.8018209333619e+00, + 0.3312991747609e-10, 0.5839154477412e+01, 0.1554202828031e+00, + + 0.2813255564006e-10, 0.8268044346621e+00, 0.5225775174439e+00, + 0.2665098083966e-10, 0.3934021725360e+01, 0.5216580451554e+01, + 0.2349795705216e-10, 0.5197620913779e+01, 0.2146165377750e+01, + 0.2330352293961e-10, 0.2984999231807e+01, 0.1726015463500e+02, + 0.2728001683419e-10, 0.6521679638544e+00, 0.8635942003952e+01, + 0.2484061007669e-10, 0.3468955561097e+01, 0.5230807360890e+01, + 0.2646328768427e-10, 0.1013724533516e+01, 0.2629832328990e-01, + 0.2518630264831e-10, 0.6108081057122e+01, 0.5481254917084e+01, + 0.2421901455384e-10, 0.1651097776260e+01, 0.1349867339771e+01, + 0.6348533267831e-11, 0.3220226560321e+01, 0.8433466158131e+02 }; + +/* Sun-to-Earth, T^1, Z */ + static const double e1z[] = { + 0.2278290449966e-05, 0.3413716033863e+01, 0.6283075850446e+01, + 0.5429458209830e-07, 0.0000000000000e+00, 0.0000000000000e+00, + 0.1903240492525e-07, 0.3370592358297e+01, 0.1256615170089e+02, + 0.2385409276743e-09, 0.3327914718416e+01, 0.1884922755134e+02, + 0.8676928342573e-10, 0.1824006811264e+01, 0.5223693906222e+01, + 0.7765442593544e-10, 0.3888564279247e+01, 0.5507553240374e+01, + 0.7066158332715e-10, 0.5194267231944e+01, 0.2352866153506e+01, + 0.7092175288657e-10, 0.2333246960021e+01, 0.8399684731857e+02, + 0.5357582213535e-10, 0.2224031176619e+01, 0.5296909721118e+00, + 0.3828035865021e-10, 0.2156710933584e+01, 0.6279552690824e+01, + + 0.3824857220427e-10, 0.1529755219915e+01, 0.6286599010068e+01, + 0.3286995181628e-10, 0.4879512900483e+01, 0.1021328554739e+02 }; + +/* Sun-to-Earth, T^2, X */ + static const double e2x[] = { + -0.4143818297913e-10, 0.0000000000000e+00, 0.0000000000000e+00, + 0.2171497694435e-10, 0.4398225628264e+01, 0.1256615170089e+02, + 0.9845398442516e-11, 0.2079720838384e+00, 0.6283075850446e+01, + 0.9256833552682e-12, 0.4191264694361e+01, 0.1884922755134e+02, + 0.1022049384115e-12, 0.5381133195658e+01, 0.8399684731857e+02 }; + +/* Sun-to-Earth, T^2, Y */ + static const double e2y[] = { + 0.5063375872532e-10, 0.0000000000000e+00, 0.0000000000000e+00, + 0.2173815785980e-10, 0.2827805833053e+01, 0.1256615170089e+02, + 0.1010231999920e-10, 0.4634612377133e+01, 0.6283075850446e+01, + 0.9259745317636e-12, 0.2620612076189e+01, 0.1884922755134e+02, + 0.1022202095812e-12, 0.3809562326066e+01, 0.8399684731857e+02 }; + +/* Sun-to-Earth, T^2, Z */ + static const double e2z[] = { + 0.9722666114891e-10, 0.5152219582658e+01, 0.6283075850446e+01, + -0.3494819171909e-11, 0.0000000000000e+00, 0.0000000000000e+00, + 0.6713034376076e-12, 0.6440188750495e+00, 0.1256615170089e+02 }; + +/* SSB-to-Sun, T^0, X */ + static const double s0x[] = { + 0.4956757536410e-02, 0.3741073751789e+01, 0.5296909721118e+00, + 0.2718490072522e-02, 0.4016011511425e+01, 0.2132990797783e+00, + 0.1546493974344e-02, 0.2170528330642e+01, 0.3813291813120e-01, + 0.8366855276341e-03, 0.2339614075294e+01, 0.7478166569050e-01, + 0.2936777942117e-03, 0.0000000000000e+00, 0.0000000000000e+00, + 0.1201317439469e-03, 0.4090736353305e+01, 0.1059381944224e+01, + 0.7578550887230e-04, 0.3241518088140e+01, 0.4265981595566e+00, + 0.1941787367773e-04, 0.1012202064330e+01, 0.2061856251104e+00, + 0.1889227765991e-04, 0.3892520416440e+01, 0.2204125344462e+00, + 0.1937896968613e-04, 0.4797779441161e+01, 0.1495633313810e+00, + + 0.1434506110873e-04, 0.3868960697933e+01, 0.5225775174439e+00, + 0.1406659911580e-04, 0.4759766557397e+00, 0.5368044267797e+00, + 0.1179022300202e-04, 0.7774961520598e+00, 0.7626583626240e-01, + 0.8085864460959e-05, 0.3254654471465e+01, 0.3664874755930e-01, + 0.7622752967615e-05, 0.4227633103489e+01, 0.3961708870310e-01, + 0.6209171139066e-05, 0.2791828325711e+00, 0.7329749511860e-01, + 0.4366435633970e-05, 0.4440454875925e+01, 0.1589072916335e+01, + 0.3792124889348e-05, 0.5156393842356e+01, 0.7113454667900e-02, + 0.3154548963402e-05, 0.6157005730093e+01, 0.4194847048887e+00, + 0.3088359882942e-05, 0.2494567553163e+01, 0.6398972393349e+00, + + 0.2788440902136e-05, 0.4934318747989e+01, 0.1102062672231e+00, + 0.3039928456376e-05, 0.4895077702640e+01, 0.6283075850446e+01, + 0.2272258457679e-05, 0.5278394064764e+01, 0.1030928125552e+00, + 0.2162007057957e-05, 0.5802978019099e+01, 0.3163918923335e+00, + 0.1767632855737e-05, 0.3415346595193e-01, 0.1021328554739e+02, + 0.1349413459362e-05, 0.2001643230755e+01, 0.1484170571900e-02, + 0.1170141900476e-05, 0.2424750491620e+01, 0.6327837846670e+00, + 0.1054355266820e-05, 0.3123311487576e+01, 0.4337116142245e+00, + 0.9800822461610e-06, 0.3026258088130e+01, 0.1052268489556e+01, + 0.1091203749931e-05, 0.3157811670347e+01, 0.1162474756779e+01, + + 0.6960236715913e-06, 0.8219570542313e+00, 0.1066495398892e+01, + 0.5689257296909e-06, 0.1323052375236e+01, 0.9491756770005e+00, + 0.6613172135802e-06, 0.2765348881598e+00, 0.8460828644453e+00, + 0.6277702517571e-06, 0.5794064466382e+01, 0.1480791608091e+00, + 0.6304884066699e-06, 0.7323555380787e+00, 0.2243449970715e+00, + 0.4897850467382e-06, 0.3062464235399e+01, 0.3340612434717e+01, + 0.3759148598786e-06, 0.4588290469664e+01, 0.3516457698740e-01, + 0.3110520548195e-06, 0.1374299536572e+01, 0.6373574839730e-01, + 0.3064708359780e-06, 0.4222267485047e+01, 0.1104591729320e-01, + 0.2856347168241e-06, 0.3714202944973e+01, 0.1510475019529e+00, + + 0.2840945514288e-06, 0.2847972875882e+01, 0.4110125927500e-01, + 0.2378951599405e-06, 0.3762072563388e+01, 0.2275259891141e+00, + 0.2714229481417e-06, 0.1036049980031e+01, 0.2535050500000e-01, + 0.2323551717307e-06, 0.4682388599076e+00, 0.8582758298370e-01, + 0.1881790512219e-06, 0.4790565425418e+01, 0.2118763888447e+01, + 0.2261353968371e-06, 0.1669144912212e+01, 0.7181332454670e-01, + 0.2214546389848e-06, 0.3937717281614e+01, 0.2968341143800e-02, + 0.2184915594933e-06, 0.1129169845099e+00, 0.7775000683430e-01, + 0.2000164937936e-06, 0.4030009638488e+01, 0.2093666171530e+00, + 0.1966105136719e-06, 0.8745955786834e+00, 0.2172315424036e+00, + + 0.1904742332624e-06, 0.5919743598964e+01, 0.2022531624851e+00, + 0.1657399705031e-06, 0.2549141484884e+01, 0.7358765972222e+00, + 0.1574070533987e-06, 0.5277533020230e+01, 0.7429900518901e+00, + 0.1832261651039e-06, 0.3064688127777e+01, 0.3235053470014e+00, + 0.1733615346569e-06, 0.3011432799094e+01, 0.1385174140878e+00, + 0.1549124014496e-06, 0.4005569132359e+01, 0.5154640627760e+00, + 0.1637044713838e-06, 0.1831375966632e+01, 0.8531963191132e+00, + 0.1123420082383e-06, 0.1180270407578e+01, 0.1990721704425e+00, + 0.1083754165740e-06, 0.3414101320863e+00, 0.5439178814476e+00, + 0.1156638012655e-06, 0.6130479452594e+00, 0.5257585094865e+00, + + 0.1142548785134e-06, 0.3724761948846e+01, 0.5336234347371e+00, + 0.7921463895965e-07, 0.2435425589361e+01, 0.1478866649112e+01, + 0.7428600285231e-07, 0.3542144398753e+01, 0.2164800718209e+00, + 0.8323211246747e-07, 0.3525058072354e+01, 0.1692165728891e+01, + 0.7257595116312e-07, 0.1364299431982e+01, 0.2101180877357e+00, + 0.7111185833236e-07, 0.2460478875808e+01, 0.4155522422634e+00, + 0.6868090383716e-07, 0.4397327670704e+01, 0.1173197218910e+00, + 0.7226419974175e-07, 0.4042647308905e+01, 0.1265567569334e+01, + 0.6955642383177e-07, 0.2865047906085e+01, 0.9562891316684e+00, + 0.7492139296331e-07, 0.5014278994215e+01, 0.1422690933580e-01, + + 0.6598363128857e-07, 0.2376730020492e+01, 0.6470106940028e+00, + 0.7381147293385e-07, 0.3272990384244e+01, 0.1581959461667e+01, + 0.6402909624032e-07, 0.5302290955138e+01, 0.9597935788730e-01, + 0.6237454263857e-07, 0.5444144425332e+01, 0.7084920306520e-01, + 0.5241198544016e-07, 0.4215359579205e+01, 0.5265099800692e+00, + 0.5144463853918e-07, 0.1218916689916e+00, 0.5328719641544e+00, + 0.5868164772299e-07, 0.2369402002213e+01, 0.7871412831580e-01, + 0.6233195669151e-07, 0.1254922242403e+01, 0.2608790314060e+02, + 0.6068463791422e-07, 0.5679713760431e+01, 0.1114304132498e+00, + 0.4359361135065e-07, 0.6097219641646e+00, 0.1375773836557e+01, + + 0.4686510366826e-07, 0.4786231041431e+01, 0.1143987543936e+00, + 0.3758977287225e-07, 0.1167368068139e+01, 0.1596186371003e+01, + 0.4282051974778e-07, 0.1519471064319e+01, 0.2770348281756e+00, + 0.5153765386113e-07, 0.1860532322984e+01, 0.2228608264996e+00, + 0.4575129387188e-07, 0.7632857887158e+00, 0.1465949902372e+00, + 0.3326844933286e-07, 0.1298219485285e+01, 0.5070101000000e-01, + 0.3748617450984e-07, 0.1046510321062e+01, 0.4903339079539e+00, + 0.2816756661499e-07, 0.3434522346190e+01, 0.2991266627620e+00, + 0.3412750405039e-07, 0.2523766270318e+01, 0.3518164938661e+00, + 0.2655796761776e-07, 0.2904422260194e+01, 0.6256703299991e+00, + + 0.2963597929458e-07, 0.5923900431149e+00, 0.1099462426779e+00, + 0.2539523734781e-07, 0.4851947722567e+01, 0.1256615170089e+02, + 0.2283087914139e-07, 0.3400498595496e+01, 0.6681224869435e+01, + 0.2321309799331e-07, 0.5789099148673e+01, 0.3368040641550e-01, + 0.2549657649750e-07, 0.3991856479792e-01, 0.1169588211447e+01, + 0.2290462303977e-07, 0.2788567577052e+01, 0.1045155034888e+01, + 0.1945398522914e-07, 0.3290896998176e+01, 0.1155361302111e+01, + 0.1849171512638e-07, 0.2698060129367e+01, 0.4452511715700e-02, + 0.1647199834254e-07, 0.3016735644085e+01, 0.4408250688924e+00, + 0.1529530765273e-07, 0.5573043116178e+01, 0.6521991896920e-01, + + 0.1433199339978e-07, 0.1481192356147e+01, 0.9420622223326e+00, + 0.1729134193602e-07, 0.1422817538933e+01, 0.2108507877249e+00, + 0.1716463931346e-07, 0.3469468901855e+01, 0.2157473718317e+00, + 0.1391206061378e-07, 0.6122436220547e+01, 0.4123712502208e+00, + 0.1404746661924e-07, 0.1647765641936e+01, 0.4258542984690e-01, + 0.1410452399455e-07, 0.5989729161964e+01, 0.2258291676434e+00, + 0.1089828772168e-07, 0.2833705509371e+01, 0.4226656969313e+00, + 0.1047374564948e-07, 0.5090690007331e+00, 0.3092784376656e+00, + 0.1358279126532e-07, 0.5128990262836e+01, 0.7923417740620e-01, + 0.1020456476148e-07, 0.9632772880808e+00, 0.1456308687557e+00, + + 0.1033428735328e-07, 0.3223779318418e+01, 0.1795258541446e+01, + 0.1412435841540e-07, 0.2410271572721e+01, 0.1525316725248e+00, + 0.9722759371574e-08, 0.2333531395690e+01, 0.8434341241180e-01, + 0.9657334084704e-08, 0.6199270974168e+01, 0.1272681024002e+01, + 0.1083641148690e-07, 0.2864222292929e+01, 0.7032915397480e-01, + 0.1067318403838e-07, 0.5833458866568e+00, 0.2123349582968e+00, + 0.1062366201976e-07, 0.4307753989494e+01, 0.2142632012598e+00, + 0.1236364149266e-07, 0.2873917870593e+01, 0.1847279083684e+00, + 0.1092759489593e-07, 0.2959887266733e+01, 0.1370332435159e+00, + 0.8912069362899e-08, 0.5141213702562e+01, 0.2648454860559e+01, + + 0.9656467707970e-08, 0.4532182462323e+01, 0.4376440768498e+00, + 0.8098386150135e-08, 0.2268906338379e+01, 0.2880807454688e+00, + 0.7857714675000e-08, 0.4055544260745e+01, 0.2037373330570e+00, + 0.7288455940646e-08, 0.5357901655142e+01, 0.1129145838217e+00, + 0.9450595950552e-08, 0.4264926963939e+01, 0.5272426800584e+00, + 0.9381718247537e-08, 0.7489366976576e-01, 0.5321392641652e+00, + 0.7079052646038e-08, 0.1923311052874e+01, 0.6288513220417e+00, + 0.9259004415344e-08, 0.2970256853438e+01, 0.1606092486742e+00, + 0.8259801499742e-08, 0.3327056314697e+01, 0.8389694097774e+00, + 0.6476334355779e-08, 0.2954925505727e+01, 0.2008557621224e+01, + + 0.5984021492007e-08, 0.9138753105829e+00, 0.2042657109477e+02, + 0.5989546863181e-08, 0.3244464082031e+01, 0.2111650433779e+01, + 0.6233108606023e-08, 0.4995232638403e+00, 0.4305306221819e+00, + 0.6877299149965e-08, 0.2834987233449e+01, 0.9561746721300e-02, + 0.8311234227190e-08, 0.2202951835758e+01, 0.3801276407308e+00, + 0.6599472832414e-08, 0.4478581462618e+01, 0.1063314406849e+01, + 0.6160491096549e-08, 0.5145858696411e+01, 0.1368660381889e+01, + 0.6164772043891e-08, 0.3762976697911e+00, 0.4234171675140e+00, + 0.6363248684450e-08, 0.3162246718685e+01, 0.1253008786510e-01, + 0.6448587520999e-08, 0.3442693302119e+01, 0.5287268506303e+00, + + 0.6431662283977e-08, 0.8977549136606e+00, 0.5306550935933e+00, + 0.6351223158474e-08, 0.4306447410369e+01, 0.5217580628120e+02, + 0.5476721393451e-08, 0.3888529177855e+01, 0.2221856701002e+01, + 0.5341772572619e-08, 0.2655560662512e+01, 0.7466759693650e-01, + 0.5337055758302e-08, 0.5164990735946e+01, 0.7489573444450e-01, + 0.5373120816787e-08, 0.6041214553456e+01, 0.1274714967946e+00, + 0.5392351705426e-08, 0.9177763485932e+00, 0.1055449481598e+01, + 0.6688495850205e-08, 0.3089608126937e+01, 0.2213766559277e+00, + 0.5072003660362e-08, 0.4311316541553e+01, 0.2132517061319e+00, + 0.5070726650455e-08, 0.5790675464444e+00, 0.2133464534247e+00, + + 0.5658012950032e-08, 0.2703945510675e+01, 0.7287631425543e+00, + 0.4835509924854e-08, 0.2975422976065e+01, 0.7160067364790e-01, + 0.6479821978012e-08, 0.1324168733114e+01, 0.2209183458640e-01, + 0.6230636494980e-08, 0.2860103632836e+01, 0.3306188016693e+00, + 0.4649239516213e-08, 0.4832259763403e+01, 0.7796265773310e-01, + 0.6487325792700e-08, 0.2726165825042e+01, 0.3884652414254e+00, + 0.4682823682770e-08, 0.6966602455408e+00, 0.1073608853559e+01, + 0.5704230804976e-08, 0.5669634104606e+01, 0.8731175355560e-01, + 0.6125413585489e-08, 0.1513386538915e+01, 0.7605151500000e-01, + 0.6035825038187e-08, 0.1983509168227e+01, 0.9846002785331e+00, + + 0.4331123462303e-08, 0.2782892992807e+01, 0.4297791515992e+00, + 0.4681107685143e-08, 0.5337232886836e+01, 0.2127790306879e+00, + 0.4669105829655e-08, 0.5837133792160e+01, 0.2138191288687e+00, + 0.5138823602365e-08, 0.3080560200507e+01, 0.7233337363710e-01, + 0.4615856664534e-08, 0.1661747897471e+01, 0.8603097737811e+00, + 0.4496916702197e-08, 0.2112508027068e+01, 0.7381754420900e-01, + 0.4278479042945e-08, 0.5716528462627e+01, 0.7574578717200e-01, + 0.3840525503932e-08, 0.6424172726492e+00, 0.3407705765729e+00, + 0.4866636509685e-08, 0.4919244697715e+01, 0.7722995774390e-01, + 0.3526100639296e-08, 0.2550821052734e+01, 0.6225157782540e-01, + + 0.3939558488075e-08, 0.3939331491710e+01, 0.5268983110410e-01, + 0.4041268772576e-08, 0.2275337571218e+01, 0.3503323232942e+00, + 0.3948761842853e-08, 0.1999324200790e+01, 0.1451108196653e+00, + 0.3258394550029e-08, 0.9121001378200e+00, 0.5296435984654e+00, + 0.3257897048761e-08, 0.3428428660869e+01, 0.5297383457582e+00, + 0.3842559031298e-08, 0.6132927720035e+01, 0.9098186128426e+00, + 0.3109920095448e-08, 0.7693650193003e+00, 0.3932462625300e-02, + 0.3132237775119e-08, 0.3621293854908e+01, 0.2346394437820e+00, + 0.3942189421510e-08, 0.4841863659733e+01, 0.3180992042600e-02, + 0.3796972285340e-08, 0.1814174994268e+01, 0.1862120789403e+00, + + 0.3995640233688e-08, 0.1386990406091e+01, 0.4549093064213e+00, + 0.2875013727414e-08, 0.9178318587177e+00, 0.1905464808669e+01, + 0.3073719932844e-08, 0.2688923811835e+01, 0.3628624111593e+00, + 0.2731016580075e-08, 0.1188259127584e+01, 0.2131850110243e+00, + 0.2729549896546e-08, 0.3702160634273e+01, 0.2134131485323e+00, + 0.3339372892449e-08, 0.7199163960331e+00, 0.2007689919132e+00, + 0.2898833764204e-08, 0.1916709364999e+01, 0.5291709230214e+00, + 0.2894536549362e-08, 0.2424043195547e+01, 0.5302110212022e+00, + 0.3096872473843e-08, 0.4445894977497e+01, 0.2976424921901e+00, + 0.2635672326810e-08, 0.3814366984117e+01, 0.1485980103780e+01, + + 0.3649302697001e-08, 0.2924200596084e+01, 0.6044726378023e+00, + 0.3127954585895e-08, 0.1842251648327e+01, 0.1084620721060e+00, + 0.2616040173947e-08, 0.4155841921984e+01, 0.1258454114666e+01, + 0.2597395859860e-08, 0.1158045978874e+00, 0.2103781122809e+00, + 0.2593286172210e-08, 0.4771850408691e+01, 0.2162200472757e+00, + 0.2481823585747e-08, 0.4608842558889e+00, 0.1062562936266e+01, + 0.2742219550725e-08, 0.1538781127028e+01, 0.5651155736444e+00, + 0.3199558469610e-08, 0.3226647822878e+00, 0.7036329877322e+00, + 0.2666088542957e-08, 0.1967991731219e+00, 0.1400015846597e+00, + 0.2397067430580e-08, 0.3707036669873e+01, 0.2125476091956e+00, + + 0.2376570772738e-08, 0.1182086628042e+01, 0.2140505503610e+00, + 0.2547228007887e-08, 0.4906256820629e+01, 0.1534957940063e+00, + 0.2265575594114e-08, 0.3414949866857e+01, 0.2235935264888e+00, + 0.2464381430585e-08, 0.4599122275378e+01, 0.2091065926078e+00, + 0.2433408527044e-08, 0.2830751145445e+00, 0.2174915669488e+00, + 0.2443605509076e-08, 0.4212046432538e+01, 0.1739420156204e+00, + 0.2319779262465e-08, 0.9881978408630e+00, 0.7530171478090e-01, + 0.2284622835465e-08, 0.5565347331588e+00, 0.7426161660010e-01, + 0.2467268750783e-08, 0.5655708150766e+00, 0.2526561439362e+00, + 0.2808513492782e-08, 0.1418405053408e+01, 0.5636314030725e+00, + + 0.2329528932532e-08, 0.4069557545675e+01, 0.1056200952181e+01, + 0.9698639532817e-09, 0.1074134313634e+01, 0.7826370942180e+02 }; + +/* SSB-to-Sun, T^0, Y */ + static const double s0y[] = { + 0.4955392320126e-02, 0.2170467313679e+01, 0.5296909721118e+00, + 0.2722325167392e-02, 0.2444433682196e+01, 0.2132990797783e+00, + 0.1546579925346e-02, 0.5992779281546e+00, 0.3813291813120e-01, + 0.8363140252966e-03, 0.7687356310801e+00, 0.7478166569050e-01, + 0.3385792683603e-03, 0.0000000000000e+00, 0.0000000000000e+00, + 0.1201192221613e-03, 0.2520035601514e+01, 0.1059381944224e+01, + 0.7587125720554e-04, 0.1669954006449e+01, 0.4265981595566e+00, + 0.1964155361250e-04, 0.5707743963343e+01, 0.2061856251104e+00, + 0.1891900364909e-04, 0.2320960679937e+01, 0.2204125344462e+00, + 0.1937373433356e-04, 0.3226940689555e+01, 0.1495633313810e+00, + + 0.1437139941351e-04, 0.2301626908096e+01, 0.5225775174439e+00, + 0.1406267683099e-04, 0.5188579265542e+01, 0.5368044267797e+00, + 0.1178703080346e-04, 0.5489483248476e+01, 0.7626583626240e-01, + 0.8079835186041e-05, 0.1683751835264e+01, 0.3664874755930e-01, + 0.7623253594652e-05, 0.2656400462961e+01, 0.3961708870310e-01, + 0.6248667483971e-05, 0.4992775362055e+01, 0.7329749511860e-01, + 0.4366353695038e-05, 0.2869706279678e+01, 0.1589072916335e+01, + 0.3829101568895e-05, 0.3572131359950e+01, 0.7113454667900e-02, + 0.3175733773908e-05, 0.4535372530045e+01, 0.4194847048887e+00, + 0.3092437902159e-05, 0.9230153317909e+00, 0.6398972393349e+00, + + 0.2874168812154e-05, 0.3363143761101e+01, 0.1102062672231e+00, + 0.3040119321826e-05, 0.3324250895675e+01, 0.6283075850446e+01, + 0.2699723308006e-05, 0.2917882441928e+00, 0.1030928125552e+00, + 0.2134832683534e-05, 0.4220997202487e+01, 0.3163918923335e+00, + 0.1770412139433e-05, 0.4747318496462e+01, 0.1021328554739e+02, + 0.1377264209373e-05, 0.4305058462401e+00, 0.1484170571900e-02, + 0.1127814538960e-05, 0.8538177240740e+00, 0.6327837846670e+00, + 0.1055608090130e-05, 0.1551800742580e+01, 0.4337116142245e+00, + 0.9802673861420e-06, 0.1459646735377e+01, 0.1052268489556e+01, + 0.1090329461951e-05, 0.1587351228711e+01, 0.1162474756779e+01, + + 0.6959590025090e-06, 0.5534442628766e+01, 0.1066495398892e+01, + 0.5664914529542e-06, 0.6030673003297e+01, 0.9491756770005e+00, + 0.6607787763599e-06, 0.4989507233927e+01, 0.8460828644453e+00, + 0.6269725742838e-06, 0.4222951804572e+01, 0.1480791608091e+00, + 0.6301889697863e-06, 0.5444316669126e+01, 0.2243449970715e+00, + 0.4891042662861e-06, 0.1490552839784e+01, 0.3340612434717e+01, + 0.3457083123290e-06, 0.3030475486049e+01, 0.3516457698740e-01, + 0.3032559967314e-06, 0.2652038793632e+01, 0.1104591729320e-01, + 0.2841133988903e-06, 0.1276744786829e+01, 0.4110125927500e-01, + 0.2855564444432e-06, 0.2143368674733e+01, 0.1510475019529e+00, + + 0.2765157135038e-06, 0.5444186109077e+01, 0.6373574839730e-01, + 0.2382312465034e-06, 0.2190521137593e+01, 0.2275259891141e+00, + 0.2808060365077e-06, 0.5735195064841e+01, 0.2535050500000e-01, + 0.2332175234405e-06, 0.9481985524859e-01, 0.7181332454670e-01, + 0.2322488199659e-06, 0.5180499361533e+01, 0.8582758298370e-01, + 0.1881850258423e-06, 0.3219788273885e+01, 0.2118763888447e+01, + 0.2196111392808e-06, 0.2366941159761e+01, 0.2968341143800e-02, + 0.2183810335519e-06, 0.4825445110915e+01, 0.7775000683430e-01, + 0.2002733093326e-06, 0.2457148995307e+01, 0.2093666171530e+00, + 0.1967111767229e-06, 0.5586291545459e+01, 0.2172315424036e+00, + + 0.1568473250543e-06, 0.3708003123320e+01, 0.7429900518901e+00, + 0.1852528314300e-06, 0.4310638151560e+01, 0.2022531624851e+00, + 0.1832111226447e-06, 0.1494665322656e+01, 0.3235053470014e+00, + 0.1746805502310e-06, 0.1451378500784e+01, 0.1385174140878e+00, + 0.1555730966650e-06, 0.1068040418198e+01, 0.7358765972222e+00, + 0.1554883462559e-06, 0.2442579035461e+01, 0.5154640627760e+00, + 0.1638380568746e-06, 0.2597913420625e+00, 0.8531963191132e+00, + 0.1159938593640e-06, 0.5834512021280e+01, 0.1990721704425e+00, + 0.1083427965695e-06, 0.5054033177950e+01, 0.5439178814476e+00, + 0.1156480369431e-06, 0.5325677432457e+01, 0.5257585094865e+00, + + 0.1141308860095e-06, 0.2153403923857e+01, 0.5336234347371e+00, + 0.7913146470946e-07, 0.8642846847027e+00, 0.1478866649112e+01, + 0.7439752463733e-07, 0.1970628496213e+01, 0.2164800718209e+00, + 0.7280277104079e-07, 0.6073307250609e+01, 0.2101180877357e+00, + 0.8319567719136e-07, 0.1954371928334e+01, 0.1692165728891e+01, + 0.7137705549290e-07, 0.8904989440909e+00, 0.4155522422634e+00, + 0.6900825396225e-07, 0.2825717714977e+01, 0.1173197218910e+00, + 0.7245757216635e-07, 0.2481677513331e+01, 0.1265567569334e+01, + 0.6961165696255e-07, 0.1292955312978e+01, 0.9562891316684e+00, + 0.7571804456890e-07, 0.3427517575069e+01, 0.1422690933580e-01, + + 0.6605425721904e-07, 0.8052192701492e+00, 0.6470106940028e+00, + 0.7375477357248e-07, 0.1705076390088e+01, 0.1581959461667e+01, + 0.7041664951470e-07, 0.4848356967891e+00, 0.9597935788730e-01, + 0.6322199535763e-07, 0.3878069473909e+01, 0.7084920306520e-01, + 0.5244380279191e-07, 0.2645560544125e+01, 0.5265099800692e+00, + 0.5143125704988e-07, 0.4834486101370e+01, 0.5328719641544e+00, + 0.5871866319373e-07, 0.7981472548900e+00, 0.7871412831580e-01, + 0.6300822573871e-07, 0.5979398788281e+01, 0.2608790314060e+02, + 0.6062154271548e-07, 0.4108655402756e+01, 0.1114304132498e+00, + 0.4361912339976e-07, 0.5322624319280e+01, 0.1375773836557e+01, + + 0.4417005920067e-07, 0.6240817359284e+01, 0.2770348281756e+00, + 0.4686806749936e-07, 0.3214977301156e+01, 0.1143987543936e+00, + 0.3758892132305e-07, 0.5879809634765e+01, 0.1596186371003e+01, + 0.5151351332319e-07, 0.2893377688007e+00, 0.2228608264996e+00, + 0.4554683578572e-07, 0.5475427144122e+01, 0.1465949902372e+00, + 0.3442381385338e-07, 0.5992034796640e+01, 0.5070101000000e-01, + 0.2831093954933e-07, 0.5367350273914e+01, 0.3092784376656e+00, + 0.3756267090084e-07, 0.5758171285420e+01, 0.4903339079539e+00, + 0.2816374679892e-07, 0.1863718700923e+01, 0.2991266627620e+00, + 0.3419307025569e-07, 0.9524347534130e+00, 0.3518164938661e+00, + + 0.2904250494239e-07, 0.5304471615602e+01, 0.1099462426779e+00, + 0.2471734511206e-07, 0.1297069793530e+01, 0.6256703299991e+00, + 0.2539620831872e-07, 0.3281126083375e+01, 0.1256615170089e+02, + 0.2281017868007e-07, 0.1829122133165e+01, 0.6681224869435e+01, + 0.2275319473335e-07, 0.5797198160181e+01, 0.3932462625300e-02, + 0.2547755368442e-07, 0.4752697708330e+01, 0.1169588211447e+01, + 0.2285979669317e-07, 0.1223205292886e+01, 0.1045155034888e+01, + 0.1913386560994e-07, 0.1757532993389e+01, 0.1155361302111e+01, + 0.1809020525147e-07, 0.4246116108791e+01, 0.3368040641550e-01, + 0.1649213300201e-07, 0.1445162890627e+01, 0.4408250688924e+00, + + 0.1834972793932e-07, 0.1126917567225e+01, 0.4452511715700e-02, + 0.1439550648138e-07, 0.6160756834764e+01, 0.9420622223326e+00, + 0.1487645457041e-07, 0.4358761931792e+01, 0.4123712502208e+00, + 0.1731729516660e-07, 0.6134456753344e+01, 0.2108507877249e+00, + 0.1717747163567e-07, 0.1898186084455e+01, 0.2157473718317e+00, + 0.1418190430374e-07, 0.4180286741266e+01, 0.6521991896920e-01, + 0.1404844134873e-07, 0.7654053565412e-01, 0.4258542984690e-01, + 0.1409842846538e-07, 0.4418612420312e+01, 0.2258291676434e+00, + 0.1090948346291e-07, 0.1260615686131e+01, 0.4226656969313e+00, + 0.1357577323612e-07, 0.3558248818690e+01, 0.7923417740620e-01, + + 0.1018154061960e-07, 0.5676087241256e+01, 0.1456308687557e+00, + 0.1412073972109e-07, 0.8394392632422e+00, 0.1525316725248e+00, + 0.1030938326496e-07, 0.1653593274064e+01, 0.1795258541446e+01, + 0.1180081567104e-07, 0.1285802592036e+01, 0.7032915397480e-01, + 0.9708510575650e-08, 0.7631889488106e+00, 0.8434341241180e-01, + 0.9637689663447e-08, 0.4630642649176e+01, 0.1272681024002e+01, + 0.1068910429389e-07, 0.5294934032165e+01, 0.2123349582968e+00, + 0.1063716179336e-07, 0.2736266800832e+01, 0.2142632012598e+00, + 0.1234858713814e-07, 0.1302891146570e+01, 0.1847279083684e+00, + 0.8912631189738e-08, 0.3570415993621e+01, 0.2648454860559e+01, + + 0.1036378285534e-07, 0.4236693440949e+01, 0.1370332435159e+00, + 0.9667798501561e-08, 0.2960768892398e+01, 0.4376440768498e+00, + 0.8108314201902e-08, 0.6987781646841e+00, 0.2880807454688e+00, + 0.7648364324628e-08, 0.2499017863863e+01, 0.2037373330570e+00, + 0.7286136828406e-08, 0.3787426951665e+01, 0.1129145838217e+00, + 0.9448237743913e-08, 0.2694354332983e+01, 0.5272426800584e+00, + 0.9374276106428e-08, 0.4787121277064e+01, 0.5321392641652e+00, + 0.7100226287462e-08, 0.3530238792101e+00, 0.6288513220417e+00, + 0.9253056659571e-08, 0.1399478925664e+01, 0.1606092486742e+00, + 0.6636432145504e-08, 0.3479575438447e+01, 0.1368660381889e+01, + + 0.6469975312932e-08, 0.1383669964800e+01, 0.2008557621224e+01, + 0.7335849729765e-08, 0.1243698166898e+01, 0.9561746721300e-02, + 0.8743421205855e-08, 0.3776164289301e+01, 0.3801276407308e+00, + 0.5993635744494e-08, 0.5627122113596e+01, 0.2042657109477e+02, + 0.5981008479693e-08, 0.1674336636752e+01, 0.2111650433779e+01, + 0.6188535145838e-08, 0.5214925208672e+01, 0.4305306221819e+00, + 0.6596074017566e-08, 0.2907653268124e+01, 0.1063314406849e+01, + 0.6630815126226e-08, 0.2127643669658e+01, 0.8389694097774e+00, + 0.6156772830040e-08, 0.5082160803295e+01, 0.4234171675140e+00, + 0.6446960563014e-08, 0.1872100916905e+01, 0.5287268506303e+00, + + 0.6429324424668e-08, 0.5610276103577e+01, 0.5306550935933e+00, + 0.6302232396465e-08, 0.1592152049607e+01, 0.1253008786510e-01, + 0.6399244436159e-08, 0.2746214421532e+01, 0.5217580628120e+02, + 0.5474965172558e-08, 0.2317666374383e+01, 0.2221856701002e+01, + 0.5339293190692e-08, 0.1084724961156e+01, 0.7466759693650e-01, + 0.5334733683389e-08, 0.3594106067745e+01, 0.7489573444450e-01, + 0.5392665782110e-08, 0.5630254365606e+01, 0.1055449481598e+01, + 0.6682075673789e-08, 0.1518480041732e+01, 0.2213766559277e+00, + 0.5079130495960e-08, 0.2739765115711e+01, 0.2132517061319e+00, + 0.5077759793261e-08, 0.5290711290094e+01, 0.2133464534247e+00, + + 0.4832037368310e-08, 0.1404473217200e+01, 0.7160067364790e-01, + 0.6463279674802e-08, 0.6038381695210e+01, 0.2209183458640e-01, + 0.6240592771560e-08, 0.1290170653666e+01, 0.3306188016693e+00, + 0.4672013521493e-08, 0.3261895939677e+01, 0.7796265773310e-01, + 0.6500650750348e-08, 0.1154522312095e+01, 0.3884652414254e+00, + 0.6344161389053e-08, 0.6206111545062e+01, 0.7605151500000e-01, + 0.4682518370646e-08, 0.5409118796685e+01, 0.1073608853559e+01, + 0.5329460015591e-08, 0.1202985784864e+01, 0.7287631425543e+00, + 0.5701588675898e-08, 0.4098715257064e+01, 0.8731175355560e-01, + 0.6030690867211e-08, 0.4132033218460e+00, 0.9846002785331e+00, + + 0.4336256312655e-08, 0.1211415991827e+01, 0.4297791515992e+00, + 0.4688498808975e-08, 0.3765479072409e+01, 0.2127790306879e+00, + 0.4675578609335e-08, 0.4265540037226e+01, 0.2138191288687e+00, + 0.4225578112158e-08, 0.5237566010676e+01, 0.3407705765729e+00, + 0.5139422230028e-08, 0.1507173079513e+01, 0.7233337363710e-01, + 0.4619995093571e-08, 0.9023957449848e-01, 0.8603097737811e+00, + 0.4494776255461e-08, 0.5414930552139e+00, 0.7381754420900e-01, + 0.4274026276788e-08, 0.4145735303659e+01, 0.7574578717200e-01, + 0.5018141789353e-08, 0.3344408829055e+01, 0.3180992042600e-02, + 0.4866163952181e-08, 0.3348534657607e+01, 0.7722995774390e-01, + + 0.4111986020501e-08, 0.4198823597220e+00, 0.1451108196653e+00, + 0.3356142784950e-08, 0.5609144747180e+01, 0.1274714967946e+00, + 0.4070575554551e-08, 0.7028411059224e+00, 0.3503323232942e+00, + 0.3257451857278e-08, 0.5624697983086e+01, 0.5296435984654e+00, + 0.3256973703026e-08, 0.1857842076707e+01, 0.5297383457582e+00, + 0.3830771508640e-08, 0.4562887279931e+01, 0.9098186128426e+00, + 0.3725024005962e-08, 0.2358058692652e+00, 0.1084620721060e+00, + 0.3136763921756e-08, 0.2049731526845e+01, 0.2346394437820e+00, + 0.3795147256194e-08, 0.2432356296933e+00, 0.1862120789403e+00, + 0.2877342229911e-08, 0.5631101279387e+01, 0.1905464808669e+01, + + 0.3076931798805e-08, 0.1117615737392e+01, 0.3628624111593e+00, + 0.2734765945273e-08, 0.5899826516955e+01, 0.2131850110243e+00, + 0.2733405296885e-08, 0.2130562964070e+01, 0.2134131485323e+00, + 0.2898552353410e-08, 0.3462387048225e+00, 0.5291709230214e+00, + 0.2893736103681e-08, 0.8534352781543e+00, 0.5302110212022e+00, + 0.3095717734137e-08, 0.2875061429041e+01, 0.2976424921901e+00, + 0.2636190425832e-08, 0.2242512846659e+01, 0.1485980103780e+01, + 0.3645512095537e-08, 0.1354016903958e+01, 0.6044726378023e+00, + 0.2808173547723e-08, 0.6705114365631e-01, 0.6225157782540e-01, + 0.2625012866888e-08, 0.4775705748482e+01, 0.5268983110410e-01, + + 0.2572233995651e-08, 0.2638924216139e+01, 0.1258454114666e+01, + 0.2604238824792e-08, 0.4826358927373e+01, 0.2103781122809e+00, + 0.2596886385239e-08, 0.3200388483118e+01, 0.2162200472757e+00, + 0.3228057304264e-08, 0.5384848409563e+01, 0.2007689919132e+00, + 0.2481601798252e-08, 0.5173373487744e+01, 0.1062562936266e+01, + 0.2745977498864e-08, 0.6250966149853e+01, 0.5651155736444e+00, + 0.2669878833811e-08, 0.4906001352499e+01, 0.1400015846597e+00, + 0.3203986611711e-08, 0.5034333010005e+01, 0.7036329877322e+00, + 0.3354961227212e-08, 0.6108262423137e+01, 0.4549093064213e+00, + 0.2400407324558e-08, 0.2135399294955e+01, 0.2125476091956e+00, + + 0.2379905859802e-08, 0.5893721933961e+01, 0.2140505503610e+00, + 0.2550844302187e-08, 0.3331940762063e+01, 0.1534957940063e+00, + 0.2268824211001e-08, 0.1843418461035e+01, 0.2235935264888e+00, + 0.2464700891204e-08, 0.3029548547230e+01, 0.2091065926078e+00, + 0.2436814726024e-08, 0.4994717970364e+01, 0.2174915669488e+00, + 0.2443623894745e-08, 0.2645102591375e+01, 0.1739420156204e+00, + 0.2318701783838e-08, 0.5700547397897e+01, 0.7530171478090e-01, + 0.2284448700256e-08, 0.5268898905872e+01, 0.7426161660010e-01, + 0.2468848123510e-08, 0.5276280575078e+01, 0.2526561439362e+00, + 0.2814052350303e-08, 0.6130168623475e+01, 0.5636314030725e+00, + + 0.2243662755220e-08, 0.6631692457995e+00, 0.8886590321940e-01, + 0.2330795855941e-08, 0.2499435487702e+01, 0.1056200952181e+01, + 0.9757679038404e-09, 0.5796846023126e+01, 0.7826370942180e+02 }; + +/* SSB-to-Sun, T^0, Z */ + static const double s0z[] = { + 0.1181255122986e-03, 0.4607918989164e+00, 0.2132990797783e+00, + 0.1127777651095e-03, 0.4169146331296e+00, 0.5296909721118e+00, + 0.4777754401806e-04, 0.4582657007130e+01, 0.3813291813120e-01, + 0.1129354285772e-04, 0.5758735142480e+01, 0.7478166569050e-01, + -0.1149543637123e-04, 0.0000000000000e+00, 0.0000000000000e+00, + 0.3298730512306e-05, 0.5978801994625e+01, 0.4265981595566e+00, + 0.2733376706079e-05, 0.7665413691040e+00, 0.1059381944224e+01, + 0.9426389657270e-06, 0.3710201265838e+01, 0.2061856251104e+00, + 0.8187517749552e-06, 0.3390675605802e+00, 0.2204125344462e+00, + 0.4080447871819e-06, 0.4552296640088e+00, 0.5225775174439e+00, + + 0.3169973017028e-06, 0.3445455899321e+01, 0.5368044267797e+00, + 0.2438098615549e-06, 0.5664675150648e+01, 0.3664874755930e-01, + 0.2601897517235e-06, 0.1931894095697e+01, 0.1495633313810e+00, + 0.2314558080079e-06, 0.3666319115574e+00, 0.3961708870310e-01, + 0.1962549548002e-06, 0.3167411699020e+01, 0.7626583626240e-01, + 0.2180518287925e-06, 0.1544420746580e+01, 0.7113454667900e-02, + 0.1451382442868e-06, 0.1583756740070e+01, 0.1102062672231e+00, + 0.1358439007389e-06, 0.5239941758280e+01, 0.6398972393349e+00, + 0.1050585898028e-06, 0.2266958352859e+01, 0.3163918923335e+00, + 0.1050029870186e-06, 0.2711495250354e+01, 0.4194847048887e+00, + + 0.9934920679800e-07, 0.1116208151396e+01, 0.1589072916335e+01, + 0.1048395331560e-06, 0.3408619600206e+01, 0.1021328554739e+02, + 0.8370147196668e-07, 0.3810459401087e+01, 0.2535050500000e-01, + 0.7989856510998e-07, 0.3769910473647e+01, 0.7329749511860e-01, + 0.5441221655233e-07, 0.2416994903374e+01, 0.1030928125552e+00, + 0.4610812906784e-07, 0.5858503336994e+01, 0.4337116142245e+00, + 0.3923022803444e-07, 0.3354170010125e+00, 0.1484170571900e-02, + 0.2610725582128e-07, 0.5410600646324e+01, 0.6327837846670e+00, + 0.2455279767721e-07, 0.6120216681403e+01, 0.1162474756779e+01, + 0.2375530706525e-07, 0.6055443426143e+01, 0.1052268489556e+01, + + 0.1782967577553e-07, 0.3146108708004e+01, 0.8460828644453e+00, + 0.1581687095238e-07, 0.6255496089819e+00, 0.3340612434717e+01, + 0.1594657672461e-07, 0.3782604300261e+01, 0.1066495398892e+01, + 0.1563448615040e-07, 0.1997775733196e+01, 0.2022531624851e+00, + 0.1463624258525e-07, 0.1736316792088e+00, 0.3516457698740e-01, + 0.1331585056673e-07, 0.4331941830747e+01, 0.9491756770005e+00, + 0.1130634557637e-07, 0.6152017751825e+01, 0.2968341143800e-02, + 0.1028949607145e-07, 0.2101792614637e+00, 0.2275259891141e+00, + 0.1024074971618e-07, 0.4071833211074e+01, 0.5070101000000e-01, + 0.8826956060303e-08, 0.4861633688145e+00, 0.2093666171530e+00, + + 0.8572230171541e-08, 0.5268190724302e+01, 0.4110125927500e-01, + 0.7649332643544e-08, 0.5134543417106e+01, 0.2608790314060e+02, + 0.8581673291033e-08, 0.2920218146681e+01, 0.1480791608091e+00, + 0.8430589300938e-08, 0.3604576619108e+01, 0.2172315424036e+00, + 0.7776165501012e-08, 0.3772942249792e+01, 0.6373574839730e-01, + 0.8311070234408e-08, 0.6200412329888e+01, 0.3235053470014e+00, + 0.6927365212582e-08, 0.4543353113437e+01, 0.8531963191132e+00, + 0.6791574208598e-08, 0.2882188406238e+01, 0.7181332454670e-01, + 0.5593100811839e-08, 0.1776646892780e+01, 0.7429900518901e+00, + 0.4553381853021e-08, 0.3949617611240e+01, 0.7775000683430e-01, + + 0.5758000450068e-08, 0.3859251775075e+01, 0.1990721704425e+00, + 0.4281283457133e-08, 0.1466294631206e+01, 0.2118763888447e+01, + 0.4206935661097e-08, 0.5421776011706e+01, 0.1104591729320e-01, + 0.4213751641837e-08, 0.3412048993322e+01, 0.2243449970715e+00, + 0.5310506239878e-08, 0.5421641370995e+00, 0.5154640627760e+00, + 0.3827450341320e-08, 0.8887314524995e+00, 0.1510475019529e+00, + 0.4292435241187e-08, 0.1405043757194e+01, 0.1422690933580e-01, + 0.3189780702289e-08, 0.1060049293445e+01, 0.1173197218910e+00, + 0.3226611928069e-08, 0.6270858897442e+01, 0.2164800718209e+00, + 0.2893897608830e-08, 0.5117563223301e+01, 0.6470106940028e+00, + + 0.3239852024578e-08, 0.4079092237983e+01, 0.2101180877357e+00, + 0.2956892222200e-08, 0.1594917021704e+01, 0.3092784376656e+00, + 0.2980177912437e-08, 0.5258787667564e+01, 0.4155522422634e+00, + 0.3163725690776e-08, 0.3854589225479e+01, 0.8582758298370e-01, + 0.2662262399118e-08, 0.3561326430187e+01, 0.5257585094865e+00, + 0.2766689135729e-08, 0.3180732086830e+00, 0.1385174140878e+00, + 0.2411600278464e-08, 0.3324798335058e+01, 0.5439178814476e+00, + 0.2483527695131e-08, 0.4169069291947e+00, 0.5336234347371e+00, + 0.7788777276590e-09, 0.1900569908215e+01, 0.5217580628120e+02 }; + +/* SSB-to-Sun, T^1, X */ + static const double s1x[] = { + -0.1296310361520e-07, 0.0000000000000e+00, 0.0000000000000e+00, + 0.8975769009438e-08, 0.1128891609250e+01, 0.4265981595566e+00, + 0.7771113441307e-08, 0.2706039877077e+01, 0.2061856251104e+00, + 0.7538303866642e-08, 0.2191281289498e+01, 0.2204125344462e+00, + 0.6061384579336e-08, 0.3248167319958e+01, 0.1059381944224e+01, + 0.5726994235594e-08, 0.5569981398610e+01, 0.5225775174439e+00, + 0.5616492836424e-08, 0.5057386614909e+01, 0.5368044267797e+00, + 0.1010881584769e-08, 0.3473577116095e+01, 0.7113454667900e-02, + 0.7259606157626e-09, 0.3651858593665e+00, 0.6398972393349e+00, + 0.8755095026935e-09, 0.1662835408338e+01, 0.4194847048887e+00, + + 0.5370491182812e-09, 0.1327673878077e+01, 0.4337116142245e+00, + 0.5743773887665e-09, 0.4250200846687e+01, 0.2132990797783e+00, + 0.4408103140300e-09, 0.3598752574277e+01, 0.1589072916335e+01, + 0.3101892374445e-09, 0.4887822983319e+01, 0.1052268489556e+01, + 0.3209453713578e-09, 0.9702272295114e+00, 0.5296909721118e+00, + 0.3017228286064e-09, 0.5484462275949e+01, 0.1066495398892e+01, + 0.3200700038601e-09, 0.2846613338643e+01, 0.1495633313810e+00, + 0.2137637279911e-09, 0.5692163292729e+00, 0.3163918923335e+00, + 0.1899686386727e-09, 0.2061077157189e+01, 0.2275259891141e+00, + 0.1401994545308e-09, 0.4177771136967e+01, 0.1102062672231e+00, + + 0.1578057810499e-09, 0.5782460597335e+01, 0.7626583626240e-01, + 0.1237713253351e-09, 0.5705900866881e+01, 0.5154640627760e+00, + 0.1313076837395e-09, 0.5163438179576e+01, 0.3664874755930e-01, + 0.1184963304860e-09, 0.3054804427242e+01, 0.6327837846670e+00, + 0.1238130878565e-09, 0.2317292575962e+01, 0.3961708870310e-01, + 0.1015959527736e-09, 0.2194643645526e+01, 0.7329749511860e-01, + 0.9017954423714e-10, 0.2868603545435e+01, 0.1990721704425e+00, + 0.8668024955603e-10, 0.4923849675082e+01, 0.5439178814476e+00, + 0.7756083930103e-10, 0.3014334135200e+01, 0.9491756770005e+00, + 0.7536503401741e-10, 0.2704886279769e+01, 0.1030928125552e+00, + + 0.5483308679332e-10, 0.6010983673799e+01, 0.8531963191132e+00, + 0.5184339620428e-10, 0.1952704573291e+01, 0.2093666171530e+00, + 0.5108658712030e-10, 0.2958575786649e+01, 0.2172315424036e+00, + 0.5019424524650e-10, 0.1736317621318e+01, 0.2164800718209e+00, + 0.4909312625978e-10, 0.3167216416257e+01, 0.2101180877357e+00, + 0.4456638901107e-10, 0.7697579923471e+00, 0.3235053470014e+00, + 0.4227030350925e-10, 0.3490910137928e+01, 0.6373574839730e-01, + 0.4095456040093e-10, 0.5178888984491e+00, 0.6470106940028e+00, + 0.4990537041422e-10, 0.3323887668974e+01, 0.1422690933580e-01, + 0.4321170010845e-10, 0.4288484987118e+01, 0.7358765972222e+00, + + 0.3544072091802e-10, 0.6021051579251e+01, 0.5265099800692e+00, + 0.3480198638687e-10, 0.4600027054714e+01, 0.5328719641544e+00, + 0.3440287244435e-10, 0.4349525970742e+01, 0.8582758298370e-01, + 0.3330628322713e-10, 0.2347391505082e+01, 0.1104591729320e-01, + 0.2973060707184e-10, 0.4789409286400e+01, 0.5257585094865e+00, + 0.2932606766089e-10, 0.5831693799927e+01, 0.5336234347371e+00, + 0.2876972310953e-10, 0.2692638514771e+01, 0.1173197218910e+00, + 0.2827488278556e-10, 0.2056052487960e+01, 0.2022531624851e+00, + 0.2515028239756e-10, 0.7411863262449e+00, 0.9597935788730e-01, + 0.2853033744415e-10, 0.3948481024894e+01, 0.2118763888447e+01 }; + +/* SSB-to-Sun, T^1, Y */ + static const double s1y[] = { + 0.8989047573576e-08, 0.5840593672122e+01, 0.4265981595566e+00, + 0.7815938401048e-08, 0.1129664707133e+01, 0.2061856251104e+00, + 0.7550926713280e-08, 0.6196589104845e+00, 0.2204125344462e+00, + 0.6056556925895e-08, 0.1677494667846e+01, 0.1059381944224e+01, + 0.5734142698204e-08, 0.4000920852962e+01, 0.5225775174439e+00, + 0.5614341822459e-08, 0.3486722577328e+01, 0.5368044267797e+00, + 0.1028678147656e-08, 0.1877141024787e+01, 0.7113454667900e-02, + 0.7270792075266e-09, 0.5077167301739e+01, 0.6398972393349e+00, + 0.8734141726040e-09, 0.9069550282609e-01, 0.4194847048887e+00, + 0.5377371402113e-09, 0.6039381844671e+01, 0.4337116142245e+00, + + 0.4729719431571e-09, 0.2153086311760e+01, 0.2132990797783e+00, + 0.4458052820973e-09, 0.5059830025565e+01, 0.5296909721118e+00, + 0.4406855467908e-09, 0.2027971692630e+01, 0.1589072916335e+01, + 0.3101659310977e-09, 0.3317677981860e+01, 0.1052268489556e+01, + 0.3016749232545e-09, 0.3913703482532e+01, 0.1066495398892e+01, + 0.3198541352656e-09, 0.1275513098525e+01, 0.1495633313810e+00, + 0.2142065389871e-09, 0.5301351614597e+01, 0.3163918923335e+00, + 0.1902615247592e-09, 0.4894943352736e+00, 0.2275259891141e+00, + 0.1613410990871e-09, 0.2449891130437e+01, 0.1102062672231e+00, + 0.1576992165097e-09, 0.4211421447633e+01, 0.7626583626240e-01, + + 0.1241637259894e-09, 0.4140803368133e+01, 0.5154640627760e+00, + 0.1313974830355e-09, 0.3591920305503e+01, 0.3664874755930e-01, + 0.1181697118258e-09, 0.1506314382788e+01, 0.6327837846670e+00, + 0.1238239742779e-09, 0.7461405378404e+00, 0.3961708870310e-01, + 0.1010107068241e-09, 0.6271010795475e+00, 0.7329749511860e-01, + 0.9226316616509e-10, 0.1259158839583e+01, 0.1990721704425e+00, + 0.8664946419555e-10, 0.3353244696934e+01, 0.5439178814476e+00, + 0.7757230468978e-10, 0.1447677295196e+01, 0.9491756770005e+00, + 0.7693168628139e-10, 0.1120509896721e+01, 0.1030928125552e+00, + 0.5487897454612e-10, 0.4439380426795e+01, 0.8531963191132e+00, + + 0.5196118677218e-10, 0.3788856619137e+00, 0.2093666171530e+00, + 0.5110853339935e-10, 0.1386879372016e+01, 0.2172315424036e+00, + 0.5027804534813e-10, 0.1647881805466e+00, 0.2164800718209e+00, + 0.4922485922674e-10, 0.1594315079862e+01, 0.2101180877357e+00, + 0.6155599524400e-10, 0.0000000000000e+00, 0.0000000000000e+00, + 0.4447147832161e-10, 0.5480720918976e+01, 0.3235053470014e+00, + 0.4144691276422e-10, 0.1931371033660e+01, 0.6373574839730e-01, + 0.4099950625452e-10, 0.5229611294335e+01, 0.6470106940028e+00, + 0.5060541682953e-10, 0.1731112486298e+01, 0.1422690933580e-01, + 0.4293615946300e-10, 0.2714571038925e+01, 0.7358765972222e+00, + + 0.3545659845763e-10, 0.4451041444634e+01, 0.5265099800692e+00, + 0.3479112041196e-10, 0.3029385448081e+01, 0.5328719641544e+00, + 0.3438516493570e-10, 0.2778507143731e+01, 0.8582758298370e-01, + 0.3297341285033e-10, 0.7898709807584e+00, 0.1104591729320e-01, + 0.2972585818015e-10, 0.3218785316973e+01, 0.5257585094865e+00, + 0.2931707295017e-10, 0.4260731012098e+01, 0.5336234347371e+00, + 0.2897198149403e-10, 0.1120753978101e+01, 0.1173197218910e+00, + 0.2832293240878e-10, 0.4597682717827e+00, 0.2022531624851e+00, + 0.2864348326612e-10, 0.2169939928448e+01, 0.9597935788730e-01, + 0.2852714675471e-10, 0.2377659870578e+01, 0.2118763888447e+01 }; + +/* SSB-to-Sun, T^1, Z */ + static const double s1z[] = { + 0.5444220475678e-08, 0.1803825509310e+01, 0.2132990797783e+00, + 0.3883412695596e-08, 0.4668616389392e+01, 0.5296909721118e+00, + 0.1334341434551e-08, 0.0000000000000e+00, 0.0000000000000e+00, + 0.3730001266883e-09, 0.5401405918943e+01, 0.2061856251104e+00, + 0.2894929197956e-09, 0.4932415609852e+01, 0.2204125344462e+00, + 0.2857950357701e-09, 0.3154625362131e+01, 0.7478166569050e-01, + 0.2499226432292e-09, 0.3657486128988e+01, 0.4265981595566e+00, + 0.1937705443593e-09, 0.5740434679002e+01, 0.1059381944224e+01, + 0.1374894396320e-09, 0.1712857366891e+01, 0.5368044267797e+00, + 0.1217248678408e-09, 0.2312090870932e+01, 0.5225775174439e+00, + + 0.7961052740870e-10, 0.5283368554163e+01, 0.3813291813120e-01, + 0.4979225949689e-10, 0.4298290471860e+01, 0.4194847048887e+00, + 0.4388552286597e-10, 0.6145515047406e+01, 0.7113454667900e-02, + 0.2586835212560e-10, 0.3019448001809e+01, 0.6398972393349e+00 }; + +/* SSB-to-Sun, T^2, X */ + static const double s2x[] = { + 0.1603551636587e-11, 0.4404109410481e+01, 0.2061856251104e+00, + 0.1556935889384e-11, 0.4818040873603e+00, 0.2204125344462e+00, + 0.1182594414915e-11, 0.9935762734472e+00, 0.5225775174439e+00, + 0.1158794583180e-11, 0.3353180966450e+01, 0.5368044267797e+00, + 0.9597358943932e-12, 0.5567045358298e+01, 0.2132990797783e+00, + 0.6511516579605e-12, 0.5630872420788e+01, 0.4265981595566e+00, + 0.7419792747688e-12, 0.2156188581957e+01, 0.5296909721118e+00, + 0.3951972655848e-12, 0.1981022541805e+01, 0.1059381944224e+01, + 0.4478223877045e-12, 0.0000000000000e+00, 0.0000000000000e+00 }; + +/* SSB-to-Sun, T^2, Y */ + static const double s2y[] = { + 0.1609114495091e-11, 0.2831096993481e+01, 0.2061856251104e+00, + 0.1560330784946e-11, 0.5193058213906e+01, 0.2204125344462e+00, + 0.1183535479202e-11, 0.5707003443890e+01, 0.5225775174439e+00, + 0.1158183066182e-11, 0.1782400404928e+01, 0.5368044267797e+00, + 0.1032868027407e-11, 0.4036925452011e+01, 0.2132990797783e+00, + 0.6540142847741e-12, 0.4058241056717e+01, 0.4265981595566e+00, + 0.7305236491596e-12, 0.6175401942957e+00, 0.5296909721118e+00, + -0.5580725052968e-12, 0.0000000000000e+00, 0.0000000000000e+00, + 0.3946122651015e-12, 0.4108265279171e+00, 0.1059381944224e+01 }; + +/* SSB-to-Sun, T^2, Z */ + static const double s2z[] = { + 0.3749920358054e-12, 0.3230285558668e+01, 0.2132990797783e+00, + 0.2735037220939e-12, 0.6154322683046e+01, 0.5296909721118e+00 }; + +/* Pointers to coefficient arrays, in x,y,z sets */ + static const double *ce0[] = { e0x, e0y, e0z }, + *ce1[] = { e1x, e1y, e1z }, + *ce2[] = { e2x, e2y, e2z }, + *cs0[] = { s0x, s0y, s0z }, + *cs1[] = { s1x, s1y, s1z }, + *cs2[] = { s2x, s2y, s2z }; + const double *coeffs; + +/* Numbers of terms for each component of the model, in x,y,z sets */ + static const int ne0[3] = {(int)(sizeof e0x / sizeof (double) / 3), + (int)(sizeof e0y / sizeof (double) / 3), + (int)(sizeof e0z / sizeof (double) / 3) }, + ne1[3] = {(int)(sizeof e1x / sizeof (double) / 3), + (int)(sizeof e1y / sizeof (double) / 3), + (int)(sizeof e1z / sizeof (double) / 3) }, + ne2[3] = {(int)(sizeof e2x / sizeof (double) / 3), + (int)(sizeof e2y / sizeof (double) / 3), + (int)(sizeof e2z / sizeof (double) / 3) }, + ns0[3] = {(int)(sizeof s0x / sizeof (double) / 3), + (int)(sizeof s0y / sizeof (double) / 3), + (int)(sizeof s0z / sizeof (double) / 3) }, + ns1[3] = {(int)(sizeof s1x / sizeof (double) / 3), + (int)(sizeof s1y / sizeof (double) / 3), + (int)(sizeof s1z / sizeof (double) / 3) }, + ns2[3] = {(int)(sizeof s2x / sizeof (double) / 3), + (int)(sizeof s2y / sizeof (double) / 3), + (int)(sizeof s2z / sizeof (double) / 3) }; + int nterms; + +/* Miscellaneous */ + int jstat, i, j; + double t, t2, xyz, xyzd, a, b, c, ct, p, cp, + ph[3], vh[3], pb[3], vb[3], x, y, z; + +/*--------------------------------------------------------------------*/ + +/* Time since reference epoch, Julian years. */ + t = ((date1 - DJ00) + date2) / DJY; + t2 = t*t; + +/* Set status. */ + jstat = fabs(t) <= 100.0 ? 0 : 1; + +/* X then Y then Z. */ + for (i = 0; i < 3; i++) { + + /* Initialize position and velocity component. */ + xyz = 0.0; + xyzd = 0.0; + + /* ------------------------------------------------ */ + /* Obtain component of Sun to Earth ecliptic vector */ + /* ------------------------------------------------ */ + + /* Sun to Earth, T^0 terms. */ + coeffs = ce0[i]; + nterms = ne0[i]; + for (j = 0; j < nterms; j++) { + a = *coeffs++; + b = *coeffs++; + c = *coeffs++; + p = b + c*t; + xyz += a*cos(p); + xyzd -= a*c*sin(p); + } + + /* Sun to Earth, T^1 terms. */ + coeffs = ce1[i]; + nterms = ne1[i]; + for (j = 0; j < nterms; j++) { + a = *coeffs++; + b = *coeffs++; + c = *coeffs++; + ct = c*t; + p = b + ct; + cp = cos(p); + xyz += a*t*cp; + xyzd += a*( cp - ct*sin(p) ); + } + + /* Sun to Earth, T^2 terms. */ + coeffs = ce2[i]; + nterms = ne2[i]; + for (j = 0; j < nterms; j++) { + a = *coeffs++; + b = *coeffs++; + c = *coeffs++; + ct = c*t; + p = b + ct; + cp = cos(p); + xyz += a*t2*cp; + xyzd += a*t*( 2.0*cp - ct*sin(p) ); + } + + /* Heliocentric Earth position and velocity component. */ + ph[i] = xyz; + vh[i] = xyzd / DJY; + + /* ------------------------------------------------ */ + /* Obtain component of SSB to Earth ecliptic vector */ + /* ------------------------------------------------ */ + + /* SSB to Sun, T^0 terms. */ + coeffs = cs0[i]; + nterms = ns0[i]; + for (j = 0; j < nterms; j++) { + a = *coeffs++; + b = *coeffs++; + c = *coeffs++; + p = b + c*t; + xyz += a*cos(p); + xyzd -= a*c*sin(p); + } + + /* SSB to Sun, T^1 terms. */ + coeffs = cs1[i]; + nterms = ns1[i]; + for (j = 0; j < nterms; j++) { + a = *coeffs++; + b = *coeffs++; + c = *coeffs++; + ct = c*t; + p = b + ct; + cp = cos(p); + xyz += a*t*cp; + xyzd += a*(cp - ct*sin(p)); + } + + /* SSB to Sun, T^2 terms. */ + coeffs = cs2[i]; + nterms = ns2[i]; + for (j = 0; j < nterms; j++) { + a = *coeffs++; + b = *coeffs++; + c = *coeffs++; + ct = c*t; + p = b + ct; + cp = cos(p); + xyz += a*t2*cp; + xyzd += a*t*(2.0*cp - ct*sin(p)); + } + + /* Barycentric Earth position and velocity component. */ + pb[i] = xyz; + vb[i] = xyzd / DJY; + + /* Next Cartesian component. */ + } + +/* Rotate from ecliptic to BCRS coordinates. */ + + x = ph[0]; + y = ph[1]; + z = ph[2]; + pvh[0][0] = x + am12*y + am13*z; + pvh[0][1] = am21*x + am22*y + am23*z; + pvh[0][2] = am32*y + am33*z; + + x = vh[0]; + y = vh[1]; + z = vh[2]; + pvh[1][0] = x + am12*y + am13*z; + pvh[1][1] = am21*x + am22*y + am23*z; + pvh[1][2] = am32*y + am33*z; + + x = pb[0]; + y = pb[1]; + z = pb[2]; + pvb[0][0] = x + am12*y + am13*z; + pvb[0][1] = am21*x + am22*y + am23*z; + pvb[0][2] = am32*y + am33*z; + + x = vb[0]; + y = vb[1]; + z = vb[2]; + pvb[1][0] = x + am12*y + am13*z; + pvb[1][1] = am21*x + am22*y + am23*z; + pvb[1][2] = am32*y + am33*z; + +/* Return the status. */ + return jstat; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/eqeq94.c =================================================================== --- /trunk/FACT++/sofa/src/eqeq94.c (revision 18346) +++ /trunk/FACT++/sofa/src/eqeq94.c (revision 18346) @@ -0,0 +1,181 @@ +#include "sofa.h" + +double iauEqeq94(double date1, double date2) +/* +** - - - - - - - - - - +** i a u E q e q 9 4 +** - - - - - - - - - - +** +** Equation of the equinoxes, IAU 1994 model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TDB date (Note 1) +** +** Returned (function value): +** double equation of the equinoxes (Note 2) +** +** Notes: +** +** 1) The date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The result, which is in radians, operates in the following sense: +** +** Greenwich apparent ST = GMST + equation of the equinoxes +** +** Called: +** iauAnpm normalize angle into range +/- pi +** iauNut80 nutation, IAU 1980 +** iauObl80 mean obliquity, IAU 1980 +** +** References: +** +** IAU Resolution C7, Recommendation 3 (1994). +** +** Capitaine, N. & Gontier, A.-M., 1993, Astron. Astrophys., 275, +** 645-650. +** +** This revision: 2013 August 31 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t, om, dpsi, deps, eps0, ee; + +/* Interval between fundamental epoch J2000.0 and given date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* Longitude of the mean ascending node of the lunar orbit on the */ +/* ecliptic, measured from the mean equinox of date. */ + om = iauAnpm((450160.280 + (-482890.539 + + (7.455 + 0.008 * t) * t) * t) * DAS2R + + fmod(-5.0 * t, 1.0) * D2PI); + +/* Nutation components and mean obliquity. */ + iauNut80(date1, date2, &dpsi, &deps); + eps0 = iauObl80(date1, date2); + +/* Equation of the equinoxes. */ + ee = dpsi*cos(eps0) + DAS2R*(0.00264*sin(om) + 0.000063*sin(om+om)); + + return ee; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/era00.c =================================================================== --- /trunk/FACT++/sofa/src/era00.c (revision 18346) +++ /trunk/FACT++/sofa/src/era00.c (revision 18346) @@ -0,0 +1,185 @@ +#include "sofa.h" + +double iauEra00(double dj1, double dj2) +/* +** - - - - - - - - - +** i a u E r a 0 0 +** - - - - - - - - - +** +** Earth rotation angle (IAU 2000 model). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** dj1,dj2 double UT1 as a 2-part Julian Date (see note) +** +** Returned (function value): +** double Earth rotation angle (radians), range 0-2pi +** +** Notes: +** +** 1) The UT1 date dj1+dj2 is a Julian Date, apportioned in any +** convenient way between the arguments dj1 and dj2. For example, +** JD(UT1)=2450123.7 could be expressed in any of these ways, +** among others: +** +** dj1 dj2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. The date & time method is +** best matched to the algorithm used: maximum precision is +** delivered when the dj1 argument is for 0hrs UT1 on the day in +** question and the dj2 argument lies in the range 0 to 1, or vice +** versa. +** +** 2) The algorithm is adapted from Expression 22 of Capitaine et al. +** 2000. The time argument has been expressed in days directly, +** and, to retain precision, integer contributions have been +** eliminated. The same formulation is given in IERS Conventions +** (2003), Chap. 5, Eq. 14. +** +** Called: +** iauAnp normalize angle into range 0 to 2pi +** +** References: +** +** Capitaine N., Guinot B. and McCarthy D.D, 2000, Astron. +** Astrophys., 355, 398-405. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double d1, d2, t, f, theta; + +/* Days since fundamental epoch. */ + if (dj1 < dj2) { + d1 = dj1; + d2 = dj2; + } else { + d1 = dj2; + d2 = dj1; + } + t = d1 + (d2- DJ00); + +/* Fractional part of T (days). */ + f = fmod(d1, 1.0) + fmod(d2, 1.0); + +/* Earth rotation angle at this UT1. */ + theta = iauAnp(D2PI * (f + 0.7790572732640 + + 0.00273781191135448 * t)); + + return theta; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/fad03.c =================================================================== --- /trunk/FACT++/sofa/src/fad03.c (revision 18346) +++ /trunk/FACT++/sofa/src/fad03.c (revision 18346) @@ -0,0 +1,152 @@ +#include "sofa.h" + +double iauFad03(double t) +/* +** - - - - - - - - - +** i a u F a d 0 3 +** - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean elongation of the Moon from the Sun. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double D, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** is from Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double a; + +/* Mean elongation of the Moon from the Sun (IERS Conventions 2003). */ + a = fmod( 1072260.703692 + + t * ( 1602961601.2090 + + t * ( - 6.3706 + + t * ( 0.006593 + + t * ( - 0.00003169 ) ) ) ), TURNAS ) * DAS2R; + + return a; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/fae03.c =================================================================== --- /trunk/FACT++/sofa/src/fae03.c (revision 18346) +++ /trunk/FACT++/sofa/src/fae03.c (revision 18346) @@ -0,0 +1,151 @@ +#include "sofa.h" + +double iauFae03(double t) +/* +** - - - - - - - - - +** i a u F a e 0 3 +** - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Earth. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Earth, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** comes from Souchay et al. (1999) after Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double a; + +/* Mean longitude of Earth (IERS Conventions 2003). */ + a = fmod(1.753470314 + 628.3075849991 * t, D2PI); + + return a; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/faf03.c =================================================================== --- /trunk/FACT++/sofa/src/faf03.c (revision 18346) +++ /trunk/FACT++/sofa/src/faf03.c (revision 18346) @@ -0,0 +1,154 @@ +#include "sofa.h" + +double iauFaf03(double t) +/* +** - - - - - - - - - +** i a u F a f 0 3 +** - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of the Moon minus mean longitude of the ascending +** node. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double F, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** is from Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double a; + +/* Mean longitude of the Moon minus that of the ascending node */ +/* (IERS Conventions 2003). */ + a = fmod( 335779.526232 + + t * ( 1739527262.8478 + + t * ( - 12.7512 + + t * ( - 0.001037 + + t * ( 0.00000417 ) ) ) ), TURNAS ) * DAS2R; + + return a; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/faju03.c =================================================================== --- /trunk/FACT++/sofa/src/faju03.c (revision 18346) +++ /trunk/FACT++/sofa/src/faju03.c (revision 18346) @@ -0,0 +1,151 @@ +#include "sofa.h" + +double iauFaju03(double t) +/* +** - - - - - - - - - - +** i a u F a j u 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Jupiter. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Jupiter, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** comes from Souchay et al. (1999) after Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double a; + +/* Mean longitude of Jupiter (IERS Conventions 2003). */ + a = fmod(0.599546497 + 52.9690962641 * t, D2PI); + + return a; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/fal03.c =================================================================== --- /trunk/FACT++/sofa/src/fal03.c (revision 18346) +++ /trunk/FACT++/sofa/src/fal03.c (revision 18346) @@ -0,0 +1,152 @@ +#include "sofa.h" + +double iauFal03(double t) +/* +** - - - - - - - - - +** i a u F a l 0 3 +** - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean anomaly of the Moon. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double l, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** is from Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double a; + +/* Mean anomaly of the Moon (IERS Conventions 2003). */ + a = fmod( 485868.249036 + + t * ( 1717915923.2178 + + t * ( 31.8792 + + t * ( 0.051635 + + t * ( - 0.00024470 ) ) ) ), TURNAS ) * DAS2R; + + return a; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/falp03.c =================================================================== --- /trunk/FACT++/sofa/src/falp03.c (revision 18346) +++ /trunk/FACT++/sofa/src/falp03.c (revision 18346) @@ -0,0 +1,152 @@ +#include "sofa.h" + +double iauFalp03(double t) +/* +** - - - - - - - - - - +** i a u F a l p 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean anomaly of the Sun. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double l', radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** is from Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double a; + +/* Mean anomaly of the Sun (IERS Conventions 2003). */ + a = fmod( 1287104.793048 + + t * ( 129596581.0481 + + t * ( - 0.5532 + + t * ( 0.000136 + + t * ( - 0.00001149 ) ) ) ), TURNAS ) * DAS2R; + + return a; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/fama03.c =================================================================== --- /trunk/FACT++/sofa/src/fama03.c (revision 18346) +++ /trunk/FACT++/sofa/src/fama03.c (revision 18346) @@ -0,0 +1,151 @@ +#include "sofa.h" + +double iauFama03(double t) +/* +** - - - - - - - - - - +** i a u F a m a 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Mars. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Mars, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** comes from Souchay et al. (1999) after Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double a; + +/* Mean longitude of Mars (IERS Conventions 2003). */ + a = fmod(6.203480913 + 334.0612426700 * t, D2PI); + + return a; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/fame03.c =================================================================== --- /trunk/FACT++/sofa/src/fame03.c (revision 18346) +++ /trunk/FACT++/sofa/src/fame03.c (revision 18346) @@ -0,0 +1,151 @@ +#include "sofa.h" + +double iauFame03(double t) +/* +** - - - - - - - - - - +** i a u F a m e 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Mercury. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Mercury, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** comes from Souchay et al. (1999) after Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double a; + +/* Mean longitude of Mercury (IERS Conventions 2003). */ + a = fmod(4.402608842 + 2608.7903141574 * t, D2PI); + + return a; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/fane03.c =================================================================== --- /trunk/FACT++/sofa/src/fane03.c (revision 18346) +++ /trunk/FACT++/sofa/src/fane03.c (revision 18346) @@ -0,0 +1,148 @@ +#include "sofa.h" + +double iauFane03(double t) +/* +** - - - - - - - - - - +** i a u F a n e 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Neptune. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Neptune, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** is adapted from Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double a; + +/* Mean longitude of Neptune (IERS Conventions 2003). */ + a = fmod(5.311886287 + 3.8133035638 * t, D2PI); + + return a; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/faom03.c =================================================================== --- /trunk/FACT++/sofa/src/faom03.c (revision 18346) +++ /trunk/FACT++/sofa/src/faom03.c (revision 18346) @@ -0,0 +1,153 @@ +#include "sofa.h" + +double iauFaom03(double t) +/* +** - - - - - - - - - - +** i a u F a o m 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of the Moon's ascending node. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double Omega, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** is from Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double a; + +/* Mean longitude of the Moon's ascending node */ +/* (IERS Conventions 2003). */ + a = fmod( 450160.398036 + + t * ( - 6962890.5431 + + t * ( 7.4722 + + t * ( 0.007702 + + t * ( - 0.00005939 ) ) ) ), TURNAS ) * DAS2R; + + return a; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/fapa03.c =================================================================== --- /trunk/FACT++/sofa/src/fapa03.c (revision 18346) +++ /trunk/FACT++/sofa/src/fapa03.c (revision 18346) @@ -0,0 +1,152 @@ +#include "sofa.h" + +double iauFapa03(double t) +/* +** - - - - - - - - - - +** i a u F a p a 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** general accumulated precession in longitude. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double general precession in longitude, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003). It +** is taken from Kinoshita & Souchay (1990) and comes originally +** from Lieske et al. (1977). +** +** References: +** +** Kinoshita, H. and Souchay J. 1990, Celest.Mech. and Dyn.Astron. +** 48, 187 +** +** Lieske, J.H., Lederle, T., Fricke, W. & Morando, B. 1977, +** Astron.Astrophys. 58, 1-16 +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double a; + +/* General accumulated precession in longitude. */ + a = (0.024381750 + 0.00000538691 * t) * t; + + return a; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/fasa03.c =================================================================== --- /trunk/FACT++/sofa/src/fasa03.c (revision 18346) +++ /trunk/FACT++/sofa/src/fasa03.c (revision 18346) @@ -0,0 +1,151 @@ +#include "sofa.h" + +double iauFasa03(double t) +/* +** - - - - - - - - - - +** i a u F a s a 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Saturn. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Saturn, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** comes from Souchay et al. (1999) after Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double a; + +/* Mean longitude of Saturn (IERS Conventions 2003). */ + a = fmod(0.874016757 + 21.3299104960 * t, D2PI); + + return a; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/faur03.c =================================================================== --- /trunk/FACT++/sofa/src/faur03.c (revision 18346) +++ /trunk/FACT++/sofa/src/faur03.c (revision 18346) @@ -0,0 +1,148 @@ +#include "sofa.h" + +double iauFaur03(double t) +/* +** - - - - - - - - - - +** i a u F a u r 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Uranus. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Uranus, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** is adapted from Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double a; + +/* Mean longitude of Uranus (IERS Conventions 2003). */ + a = fmod(5.481293872 + 7.4781598567 * t, D2PI); + + return a; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/fave03.c =================================================================== --- /trunk/FACT++/sofa/src/fave03.c (revision 18346) +++ /trunk/FACT++/sofa/src/fave03.c (revision 18346) @@ -0,0 +1,151 @@ +#include "sofa.h" + +double iauFave03(double t) +/* +** - - - - - - - - - - +** i a u F a v e 0 3 +** - - - - - - - - - - +** +** Fundamental argument, IERS Conventions (2003): +** mean longitude of Venus. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** t double TDB, Julian centuries since J2000.0 (Note 1) +** +** Returned (function value): +** double mean longitude of Venus, radians (Note 2) +** +** Notes: +** +** 1) Though t is strictly TDB, it is usually more convenient to use +** TT, which makes no significant difference. +** +** 2) The expression used is as adopted in IERS Conventions (2003) and +** comes from Souchay et al. (1999) after Simon et al. (1994). +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double a; + +/* Mean longitude of Venus (IERS Conventions 2003). */ + a = fmod(3.176146697 + 1021.3285546211 * t, D2PI); + + return a; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/fk52h.c =================================================================== --- /trunk/FACT++/sofa/src/fk52h.c (revision 18346) +++ /trunk/FACT++/sofa/src/fk52h.c (revision 18346) @@ -0,0 +1,192 @@ +#include "sofa.h" + +void iauFk52h(double r5, double d5, + double dr5, double dd5, double px5, double rv5, + double *rh, double *dh, + double *drh, double *ddh, double *pxh, double *rvh) +/* +** - - - - - - - - - +** i a u F k 5 2 h +** - - - - - - - - - +** +** Transform FK5 (J2000.0) star data into the Hipparcos system. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given (all FK5, equinox J2000.0, epoch J2000.0): +** r5 double RA (radians) +** d5 double Dec (radians) +** dr5 double proper motion in RA (dRA/dt, rad/Jyear) +** dd5 double proper motion in Dec (dDec/dt, rad/Jyear) +** px5 double parallax (arcsec) +** rv5 double radial velocity (km/s, positive = receding) +** +** Returned (all Hipparcos, epoch J2000.0): +** rh double RA (radians) +** dh double Dec (radians) +** drh double proper motion in RA (dRA/dt, rad/Jyear) +** ddh double proper motion in Dec (dDec/dt, rad/Jyear) +** pxh double parallax (arcsec) +** rvh double radial velocity (km/s, positive = receding) +** +** Notes: +** +** 1) This function transforms FK5 star positions and proper motions +** into the system of the Hipparcos catalog. +** +** 2) The proper motions in RA are dRA/dt rather than +** cos(Dec)*dRA/dt, and are per year rather than per century. +** +** 3) The FK5 to Hipparcos transformation is modeled as a pure +** rotation and spin; zonal errors in the FK5 catalog are not +** taken into account. +** +** 4) See also iauH2fk5, iauFk5hz, iauHfk5z. +** +** Called: +** iauStarpv star catalog data to space motion pv-vector +** iauFk5hip FK5 to Hipparcos rotation and spin +** iauRxp product of r-matrix and p-vector +** iauPxp vector product of two p-vectors +** iauPpp p-vector plus p-vector +** iauPvstar space motion pv-vector to star catalog data +** +** Reference: +** +** F.Mignard & M.Froeschle, Astron. Astrophys. 354, 732-739 (2000). +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int i; + double pv5[2][3], r5h[3][3], s5h[3], wxp[3], vv[3], pvh[2][3]; + +/* FK5 barycentric position/velocity pv-vector (normalized). */ + iauStarpv(r5, d5, dr5, dd5, px5, rv5, pv5); + +/* FK5 to Hipparcos orientation matrix and spin vector. */ + iauFk5hip(r5h, s5h); + +/* Make spin units per day instead of per year. */ + for ( i = 0; i < 3; s5h[i++] /= 365.25 ); + +/* Orient the FK5 position into the Hipparcos system. */ + iauRxp(r5h, pv5[0], pvh[0]); + +/* Apply spin to the position giving an extra space motion component. */ + iauPxp(pv5[0], s5h, wxp); + +/* Add this component to the FK5 space motion. */ + iauPpp(wxp, pv5[1], vv); + +/* Orient the FK5 space motion into the Hipparcos system. */ + iauRxp(r5h, vv, pvh[1]); + +/* Hipparcos pv-vector to spherical. */ + iauPvstar(pvh, rh, dh, drh, ddh, pxh, rvh); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/fk5hip.c =================================================================== --- /trunk/FACT++/sofa/src/fk5hip.c (revision 18346) +++ /trunk/FACT++/sofa/src/fk5hip.c (revision 18346) @@ -0,0 +1,175 @@ +#include "sofa.h" + +void iauFk5hip(double r5h[3][3], double s5h[3]) +/* +** - - - - - - - - - - +** i a u F k 5 h i p +** - - - - - - - - - - +** +** FK5 to Hipparcos rotation and spin. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Returned: +** r5h double[3][3] r-matrix: FK5 rotation wrt Hipparcos (Note 2) +** s5h double[3] r-vector: FK5 spin wrt Hipparcos (Note 3) +** +** Notes: +** +** 1) This function models the FK5 to Hipparcos transformation as a +** pure rotation and spin; zonal errors in the FK5 catalogue are +** not taken into account. +** +** 2) The r-matrix r5h operates in the sense: +** +** P_Hipparcos = r5h x P_FK5 +** +** where P_FK5 is a p-vector in the FK5 frame, and P_Hipparcos is +** the equivalent Hipparcos p-vector. +** +** 3) The r-vector s5h represents the time derivative of the FK5 to +** Hipparcos rotation. The units are radians per year (Julian, +** TDB). +** +** Called: +** iauRv2m r-vector to r-matrix +** +** Reference: +** +** F.Mignard & M.Froeschle, Astron. Astrophys. 354, 732-739 (2000). +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double v[3]; + +/* FK5 wrt Hipparcos orientation and spin (radians, radians/year) */ + double epx, epy, epz; + double omx, omy, omz; + + epx = -19.9e-3 * DAS2R; + epy = -9.1e-3 * DAS2R; + epz = 22.9e-3 * DAS2R; + + omx = -0.30e-3 * DAS2R; + omy = 0.60e-3 * DAS2R; + omz = 0.70e-3 * DAS2R; + +/* FK5 to Hipparcos orientation expressed as an r-vector. */ + v[0] = epx; + v[1] = epy; + v[2] = epz; + +/* Re-express as an r-matrix. */ + iauRv2m(v, r5h); + +/* Hipparcos wrt FK5 spin expressed as an r-vector. */ + s5h[0] = omx; + s5h[1] = omy; + s5h[2] = omz; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/fk5hz.c =================================================================== --- /trunk/FACT++/sofa/src/fk5hz.c (revision 18346) +++ /trunk/FACT++/sofa/src/fk5hz.c (revision 18346) @@ -0,0 +1,209 @@ +#include "sofa.h" + +void iauFk5hz(double r5, double d5, double date1, double date2, + double *rh, double *dh) +/* +** - - - - - - - - - +** i a u F k 5 h z +** - - - - - - - - - +** +** Transform an FK5 (J2000.0) star position into the system of the +** Hipparcos catalogue, assuming zero Hipparcos proper motion. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** r5 double FK5 RA (radians), equinox J2000.0, at date +** d5 double FK5 Dec (radians), equinox J2000.0, at date +** date1,date2 double TDB date (Notes 1,2) +** +** Returned: +** rh double Hipparcos RA (radians) +** dh double Hipparcos Dec (radians) +** +** Notes: +** +** 1) This function converts a star position from the FK5 system to +** the Hipparcos system, in such a way that the Hipparcos proper +** motion is zero. Because such a star has, in general, a non-zero +** proper motion in the FK5 system, the function requires the date +** at which the position in the FK5 system was determined. +** +** 2) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 3) The FK5 to Hipparcos transformation is modeled as a pure +** rotation and spin; zonal errors in the FK5 catalogue are not +** taken into account. +** +** 4) The position returned by this function is in the Hipparcos +** reference system but at date date1+date2. +** +** 5) See also iauFk52h, iauH2fk5, iauHfk5z. +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauFk5hip FK5 to Hipparcos rotation and spin +** iauSxp multiply p-vector by scalar +** iauRv2m r-vector to r-matrix +** iauTrxp product of transpose of r-matrix and p-vector +** iauPxp vector product of two p-vectors +** iauC2s p-vector to spherical +** iauAnp normalize angle into range 0 to 2pi +** +** Reference: +** +** F.Mignard & M.Froeschle, 2000, Astron.Astrophys. 354, 732-739. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t, p5e[3], r5h[3][3], s5h[3], vst[3], rst[3][3], p5[3], + ph[3], w; + +/* Interval from given date to fundamental epoch J2000.0 (JY). */ + t = - ((date1 - DJ00) + date2) / DJY; + +/* FK5 barycentric position vector. */ + iauS2c(r5, d5, p5e); + +/* FK5 to Hipparcos orientation matrix and spin vector. */ + iauFk5hip(r5h, s5h); + +/* Accumulated Hipparcos wrt FK5 spin over that interval. */ + iauSxp(t, s5h, vst); + +/* Express the accumulated spin as a rotation matrix. */ + iauRv2m(vst, rst); + +/* Derotate the vector's FK5 axes back to date. */ + iauTrxp(rst, p5e, p5); + +/* Rotate the vector into the Hipparcos system. */ + iauRxp(r5h, p5, ph); + +/* Hipparcos vector to spherical. */ + iauC2s(ph, &w, dh); + *rh = iauAnp(w); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/fw2m.c =================================================================== --- /trunk/FACT++/sofa/src/fw2m.c (revision 18346) +++ /trunk/FACT++/sofa/src/fw2m.c (revision 18346) @@ -0,0 +1,184 @@ +#include "sofa.h" + +void iauFw2m(double gamb, double phib, double psi, double eps, + double r[3][3]) +/* +** - - - - - - - - +** i a u F w 2 m +** - - - - - - - - +** +** Form rotation matrix given the Fukushima-Williams angles. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** gamb double F-W angle gamma_bar (radians) +** phib double F-W angle phi_bar (radians) +** psi double F-W angle psi (radians) +** eps double F-W angle epsilon (radians) +** +** Returned: +** r double[3][3] rotation matrix +** +** Notes: +** +** 1) Naming the following points: +** +** e = J2000.0 ecliptic pole, +** p = GCRS pole, +** E = ecliptic pole of date, +** and P = CIP, +** +** the four Fukushima-Williams angles are as follows: +** +** gamb = gamma = epE +** phib = phi = pE +** psi = psi = pEP +** eps = epsilon = EP +** +** 2) The matrix representing the combined effects of frame bias, +** precession and nutation is: +** +** NxPxB = R_1(-eps).R_3(-psi).R_1(phib).R_3(gamb) +** +** 3) Three different matrices can be constructed, depending on the +** supplied angles: +** +** o To obtain the nutation x precession x frame bias matrix, +** generate the four precession angles, generate the nutation +** components and add them to the psi_bar and epsilon_A angles, +** and call the present function. +** +** o To obtain the precession x frame bias matrix, generate the +** four precession angles and call the present function. +** +** o To obtain the frame bias matrix, generate the four precession +** angles for date J2000.0 and call the present function. +** +** The nutation-only and precession-only matrices can if necessary +** be obtained by combining these three appropriately. +** +** Called: +** iauIr initialize r-matrix to identity +** iauRz rotate around Z-axis +** iauRx rotate around X-axis +** +** Reference: +** +** Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Construct the matrix. */ + iauIr(r); + iauRz(gamb, r); + iauRx(phib, r); + iauRz(-psi, r); + iauRx(-eps, r); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/fw2xy.c =================================================================== --- /trunk/FACT++/sofa/src/fw2xy.c (revision 18346) +++ /trunk/FACT++/sofa/src/fw2xy.c (revision 18346) @@ -0,0 +1,170 @@ +#include "sofa.h" + +void iauFw2xy(double gamb, double phib, double psi, double eps, + double *x, double *y) +/* +** - - - - - - - - - +** i a u F w 2 x y +** - - - - - - - - - +** +** CIP X,Y given Fukushima-Williams bias-precession-nutation angles. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** gamb double F-W angle gamma_bar (radians) +** phib double F-W angle phi_bar (radians) +** psi double F-W angle psi (radians) +** eps double F-W angle epsilon (radians) +** +** Returned: +** x,y double CIP unit vector X,Y +** +** Notes: +** +** 1) Naming the following points: +** +** e = J2000.0 ecliptic pole, +** p = GCRS pole +** E = ecliptic pole of date, +** and P = CIP, +** +** the four Fukushima-Williams angles are as follows: +** +** gamb = gamma = epE +** phib = phi = pE +** psi = psi = pEP +** eps = epsilon = EP +** +** 2) The matrix representing the combined effects of frame bias, +** precession and nutation is: +** +** NxPxB = R_1(-epsA).R_3(-psi).R_1(phib).R_3(gamb) +** +** The returned values x,y are elements [2][0] and [2][1] of the +** matrix. Near J2000.0, they are essentially angles in radians. +** +** Called: +** iauFw2m F-W angles to r-matrix +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** +** Reference: +** +** Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351 +** +** This revision: 2013 September 2 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double r[3][3]; + +/* Form NxPxB matrix. */ + iauFw2m(gamb, phib, psi, eps, r); + +/* Extract CIP X,Y. */ + iauBpn2xy(r, x, y); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/g2icrs.c =================================================================== --- /trunk/FACT++/sofa/src/g2icrs.c (revision 18346) +++ /trunk/FACT++/sofa/src/g2icrs.c (revision 18346) @@ -0,0 +1,212 @@ +#include "sofa.h" + +void iauG2icrs ( double dl, double db, double *dr, double *dd ) +/* +** - - - - - - - - - - +** i a u G 2 i c r s +** - - - - - - - - - - +** +** Transformation from Galactic Coordinates to ICRS. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support routine. +** +** Given: +** dl double galactic longitude (radians) +** db double galactic latitude (radians) +** +** Returned: +** dr double ICRS right ascension (radians) +** dd double ICRS declination (radians) +** +** Notes: +** +** 1) The IAU 1958 system of Galactic coordinates was defined with +** respect to the now obsolete reference system FK4 B1950.0. When +** interpreting the system in a modern context, several factors have +** to be taken into account: +** +** . The inclusion in FK4 positions of the E-terms of aberration. +** +** . The distortion of the FK4 proper motion system by differential +** Galactic rotation. +** +** . The use of the B1950.0 equinox rather than the now-standard +** J2000.0. +** +** . The frame bias between ICRS and the J2000.0 mean place system. +** +** The Hipparcos Catalogue (Perryman & ESA 1997) provides a rotation +** matrix that transforms directly between ICRS and Galactic +** coordinates with the above factors taken into account. The +** matrix is derived from three angles, namely the ICRS coordinates +** of the Galactic pole and the longitude of the ascending node of +** the galactic equator on the ICRS equator. They are given in +** degrees to five decimal places and for canonical purposes are +** regarded as exact. In the Hipparcos Catalogue the matrix +** elements are given to 10 decimal places (about 20 microarcsec). +** In the present SOFA function the matrix elements have been +** recomputed from the canonical three angles and are given to 30 +** decimal places. +** +** 2) The inverse transformation is performed by the function iauIcrs2g. +** +** Called: +** iauAnp normalize angle into range 0 to 2pi +** iauAnpm normalize angle into range +/- pi +** iauS2c spherical coordinates to unit vector +** iauTrxp product of transpose of r-matrix and p-vector +** iauC2s p-vector to spherical +** +** Reference: +** Perryman M.A.C. & ESA, 1997, ESA SP-1200, The Hipparcos and Tycho +** catalogues. Astrometric and photometric star catalogues +** derived from the ESA Hipparcos Space Astrometry Mission. ESA +** Publications Division, Noordwijk, Netherlands. +** +** This revision: 2015 January 20 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double v1[3], v2[3]; + +/* +** L2,B2 system of galactic coordinates in the form presented in the +** Hipparcos Catalogue. In degrees: +** +** P = 192.85948 right ascension of the Galactic north pole in ICRS +** Q = 27.12825 declination of the Galactic north pole in ICRS +** R = 32.93192 longitude of the ascending node of the Galactic +** plane on the ICRS equator +** +** ICRS to galactic rotation matrix, obtained by computing +** R_3(-R) R_1(pi/2-Q) R_3(pi/2+P) to the full precision shown: +*/ + double r[3][3] = { { -0.054875560416215368492398900454, + -0.873437090234885048760383168409, + -0.483835015548713226831774175116 }, + { +0.494109427875583673525222371358, + -0.444829629960011178146614061616, + +0.746982244497218890527388004556 }, + { -0.867666149019004701181616534570, + -0.198076373431201528180486091412, + +0.455983776175066922272100478348 } }; + + +/* Spherical to Cartesian. */ + iauS2c(dl, db, v1); + +/* Galactic to ICRS. */ + iauTrxp(r, v1, v2); + +/* Cartesian to spherical. */ + iauC2s(v2, dr, dd); + +/* Express in conventional ranges. */ + *dr = iauAnp(*dr); + *dd = iauAnpm(*dd); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/gc2gd.c =================================================================== --- /trunk/FACT++/sofa/src/gc2gd.c (revision 18346) +++ /trunk/FACT++/sofa/src/gc2gd.c (revision 18346) @@ -0,0 +1,184 @@ +#include "sofa.h" + +int iauGc2gd ( int n, double xyz[3], + double *elong, double *phi, double *height ) +/* +** - - - - - - - - - +** i a u G c 2 g d +** - - - - - - - - - +** +** Transform geocentric coordinates to geodetic using the specified +** reference ellipsoid. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical transformation. +** +** Given: +** n int ellipsoid identifier (Note 1) +** xyz double[3] geocentric vector (Note 2) +** +** Returned: +** elong double longitude (radians, east +ve, Note 3) +** phi double latitude (geodetic, radians, Note 3) +** height double height above ellipsoid (geodetic, Notes 2,3) +** +** Returned (function value): +** int status: 0 = OK +** -1 = illegal identifier (Note 3) +** -2 = internal error (Note 3) +** +** Notes: +** +** 1) The identifier n is a number that specifies the choice of +** reference ellipsoid. The following are supported: +** +** n ellipsoid +** +** 1 WGS84 +** 2 GRS80 +** 3 WGS72 +** +** The n value has no significance outside the SOFA software. For +** convenience, symbols WGS84 etc. are defined in sofam.h. +** +** 2) The geocentric vector (xyz, given) and height (height, returned) +** are in meters. +** +** 3) An error status -1 means that the identifier n is illegal. An +** error status -2 is theoretically impossible. In all error cases, +** all three results are set to -1e9. +** +** 4) The inverse transformation is performed in the function iauGd2gc. +** +** Called: +** iauEform Earth reference ellipsoids +** iauGc2gde geocentric to geodetic transformation, general +** +** This revision: 2013 September 1 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int j; + double a, f; + +/* Obtain reference ellipsoid parameters. */ + j = iauEform ( n, &a, &f ); + +/* If OK, transform x,y,z to longitude, geodetic latitude, height. */ + if ( j == 0 ) { + j = iauGc2gde ( a, f, xyz, elong, phi, height ); + if ( j < 0 ) j = -2; + } + +/* Deal with any errors. */ + if ( j < 0 ) { + *elong = -1e9; + *phi = -1e9; + *height = -1e9; + } + +/* Return the status. */ + return j; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/gc2gde.c =================================================================== --- /trunk/FACT++/sofa/src/gc2gde.c (revision 18346) +++ /trunk/FACT++/sofa/src/gc2gde.c (revision 18346) @@ -0,0 +1,250 @@ +#include "sofa.h" + +int iauGc2gde ( double a, double f, double xyz[3], + double *elong, double *phi, double *height ) +/* +** - - - - - - - - - - +** i a u G c 2 g d e +** - - - - - - - - - - +** +** Transform geocentric coordinates to geodetic for a reference +** ellipsoid of specified form. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** a double equatorial radius (Notes 2,4) +** f double flattening (Note 3) +** xyz double[3] geocentric vector (Note 4) +** +** Returned: +** elong double longitude (radians, east +ve) +** phi double latitude (geodetic, radians) +** height double height above ellipsoid (geodetic, Note 4) +** +** Returned (function value): +** int status: 0 = OK +** -1 = illegal f +** -2 = illegal a +** +** Notes: +** +** 1) This function is based on the GCONV2H Fortran subroutine by +** Toshio Fukushima (see reference). +** +** 2) The equatorial radius, a, can be in any units, but meters is +** the conventional choice. +** +** 3) The flattening, f, is (for the Earth) a value around 0.00335, +** i.e. around 1/298. +** +** 4) The equatorial radius, a, and the geocentric vector, xyz, +** must be given in the same units, and determine the units of +** the returned height, height. +** +** 5) If an error occurs (status < 0), elong, phi and height are +** unchanged. +** +** 6) The inverse transformation is performed in the function +** iauGd2gce. +** +** 7) The transformation for a standard ellipsoid (such as WGS84) can +** more conveniently be performed by calling iauGc2gd, which uses a +** numerical code to identify the required A and F values. +** +** Reference: +** +** Fukushima, T., "Transformation from Cartesian to geodetic +** coordinates accelerated by Halley's method", J.Geodesy (2006) +** 79: 689-693 +** +** This revision: 2014 November 7 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double aeps2, e2, e4t, ec2, ec, b, x, y, z, p2, absz, p, s0, pn, zc, + c0, c02, c03, s02, s03, a02, a0, a03, d0, f0, b0, s1, + cc, s12, cc2; + + +/* ------------- */ +/* Preliminaries */ +/* ------------- */ + +/* Validate ellipsoid parameters. */ + if ( f < 0.0 || f >= 1.0 ) return -1; + if ( a <= 0.0 ) return -2; + +/* Functions of ellipsoid parameters (with further validation of f). */ + aeps2 = a*a * 1e-32; + e2 = (2.0 - f) * f; + e4t = e2*e2 * 1.5; + ec2 = 1.0 - e2; + if ( ec2 <= 0.0 ) return -1; + ec = sqrt(ec2); + b = a * ec; + +/* Cartesian components. */ + x = xyz[0]; + y = xyz[1]; + z = xyz[2]; + +/* Distance from polar axis squared. */ + p2 = x*x + y*y; + +/* Longitude. */ + *elong = p2 > 0.0 ? atan2(y, x) : 0.0; + +/* Unsigned z-coordinate. */ + absz = fabs(z); + +/* Proceed unless polar case. */ + if ( p2 > aeps2 ) { + + /* Distance from polar axis. */ + p = sqrt(p2); + + /* Normalization. */ + s0 = absz / a; + pn = p / a; + zc = ec * s0; + + /* Prepare Newton correction factors. */ + c0 = ec * pn; + c02 = c0 * c0; + c03 = c02 * c0; + s02 = s0 * s0; + s03 = s02 * s0; + a02 = c02 + s02; + a0 = sqrt(a02); + a03 = a02 * a0; + d0 = zc*a03 + e2*s03; + f0 = pn*a03 - e2*c03; + + /* Prepare Halley correction factor. */ + b0 = e4t * s02 * c02 * pn * (a0 - ec); + s1 = d0*f0 - b0*s0; + cc = ec * (f0*f0 - b0*c0); + + /* Evaluate latitude and height. */ + *phi = atan(s1/cc); + s12 = s1 * s1; + cc2 = cc * cc; + *height = (p*cc + absz*s1 - a * sqrt(ec2*s12 + cc2)) / + sqrt(s12 + cc2); + } else { + + /* Exception: pole. */ + *phi = DPI / 2.0; + *height = absz - b; + } + +/* Restore sign of latitude. */ + if ( z < 0 ) *phi = -*phi; + +/* OK status. */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/gd2gc.c =================================================================== --- /trunk/FACT++/sofa/src/gd2gc.c (revision 18346) +++ /trunk/FACT++/sofa/src/gd2gc.c (revision 18346) @@ -0,0 +1,183 @@ +#include "sofa.h" + +int iauGd2gc ( int n, double elong, double phi, double height, + double xyz[3] ) +/* +** - - - - - - - - - +** i a u G d 2 g c +** - - - - - - - - - +** +** Transform geodetic coordinates to geocentric using the specified +** reference ellipsoid. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical transformation. +** +** Given: +** n int ellipsoid identifier (Note 1) +** elong double longitude (radians, east +ve) +** phi double latitude (geodetic, radians, Note 3) +** height double height above ellipsoid (geodetic, Notes 2,3) +** +** Returned: +** xyz double[3] geocentric vector (Note 2) +** +** Returned (function value): +** int status: 0 = OK +** -1 = illegal identifier (Note 3) +** -2 = illegal case (Note 3) +** +** Notes: +** +** 1) The identifier n is a number that specifies the choice of +** reference ellipsoid. The following are supported: +** +** n ellipsoid +** +** 1 WGS84 +** 2 GRS80 +** 3 WGS72 +** +** The n value has no significance outside the SOFA software. For +** convenience, symbols WGS84 etc. are defined in sofam.h. +** +** 2) The height (height, given) and the geocentric vector (xyz, +** returned) are in meters. +** +** 3) No validation is performed on the arguments elong, phi and +** height. An error status -1 means that the identifier n is +** illegal. An error status -2 protects against cases that would +** lead to arithmetic exceptions. In all error cases, xyz is set +** to zeros. +** +** 4) The inverse transformation is performed in the function iauGc2gd. +** +** Called: +** iauEform Earth reference ellipsoids +** iauGd2gce geodetic to geocentric transformation, general +** iauZp zero p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int j; + double a, f; + +/* Obtain reference ellipsoid parameters. */ + j = iauEform ( n, &a, &f ); + +/* If OK, transform longitude, geodetic latitude, height to x,y,z. */ + if ( j == 0 ) { + j = iauGd2gce ( a, f, elong, phi, height, xyz ); + if ( j != 0 ) j = -2; + } + +/* Deal with any errors. */ + if ( j != 0 ) iauZp ( xyz ); + +/* Return the status. */ + return j; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/gd2gce.c =================================================================== --- /trunk/FACT++/sofa/src/gd2gce.c (revision 18346) +++ /trunk/FACT++/sofa/src/gd2gce.c (revision 18346) @@ -0,0 +1,187 @@ +#include "sofa.h" + +int iauGd2gce ( double a, double f, double elong, double phi, + double height, double xyz[3] ) +/* +** - - - - - - - - - - +** i a u G d 2 g c e +** - - - - - - - - - - +** +** Transform geodetic coordinates to geocentric for a reference +** ellipsoid of specified form. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** a double equatorial radius (Notes 1,4) +** f double flattening (Notes 2,4) +** elong double longitude (radians, east +ve) +** phi double latitude (geodetic, radians, Note 4) +** height double height above ellipsoid (geodetic, Notes 3,4) +** +** Returned: +** xyz double[3] geocentric vector (Note 3) +** +** Returned (function value): +** int status: 0 = OK +** -1 = illegal case (Note 4) +** Notes: +** +** 1) The equatorial radius, a, can be in any units, but meters is +** the conventional choice. +** +** 2) The flattening, f, is (for the Earth) a value around 0.00335, +** i.e. around 1/298. +** +** 3) The equatorial radius, a, and the height, height, must be +** given in the same units, and determine the units of the +** returned geocentric vector, xyz. +** +** 4) No validation is performed on individual arguments. The error +** status -1 protects against (unrealistic) cases that would lead +** to arithmetic exceptions. If an error occurs, xyz is unchanged. +** +** 5) The inverse transformation is performed in the function +** iauGc2gde. +** +** 6) The transformation for a standard ellipsoid (such as WGS84) can +** more conveniently be performed by calling iauGd2gc, which uses a +** numerical code to identify the required a and f values. +** +** References: +** +** Green, R.M., Spherical Astronomy, Cambridge University Press, +** (1985) Section 4.5, p96. +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 4.22, p202. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double sp, cp, w, d, ac, as, r; + +/* Functions of geodetic latitude. */ + sp = sin(phi); + cp = cos(phi); + w = 1.0 - f; + w = w * w; + d = cp*cp + w*sp*sp; + if ( d <= 0.0 ) return -1; + ac = a / sqrt(d); + as = w * ac; + +/* Geocentric vector. */ + r = (ac + height) * cp; + xyz[0] = r * cos(elong); + xyz[1] = r * sin(elong); + xyz[2] = (as + height) * sp; + +/* Success. */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/gmst00.c =================================================================== --- /trunk/FACT++/sofa/src/gmst00.c (revision 18346) +++ /trunk/FACT++/sofa/src/gmst00.c (revision 18346) @@ -0,0 +1,194 @@ +#include "sofa.h" + +double iauGmst00(double uta, double utb, double tta, double ttb) +/* +** - - - - - - - - - - +** i a u G m s t 0 0 +** - - - - - - - - - - +** +** Greenwich mean sidereal time (model consistent with IAU 2000 +** resolutions). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** uta,utb double UT1 as a 2-part Julian Date (Notes 1,2) +** tta,ttb double TT as a 2-part Julian Date (Notes 1,2) +** +** Returned (function value): +** double Greenwich mean sidereal time (radians) +** +** Notes: +** +** 1) The UT1 and TT dates uta+utb and tta+ttb respectively, are both +** Julian Dates, apportioned in any convenient way between the +** argument pairs. For example, JD=2450123.7 could be expressed in +** any of these ways, among others: +** +** Part A Part B +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable (in the case of UT; the TT is not at all critical +** in this respect). The J2000 and MJD methods are good compromises +** between resolution and convenience. For UT, the date & time +** method is best matched to the algorithm that is used by the Earth +** Rotation Angle function, called internally: maximum precision is +** delivered when the uta argument is for 0hrs UT1 on the day in +** question and the utb argument lies in the range 0 to 1, or vice +** versa. +** +** 2) Both UT1 and TT are required, UT1 to predict the Earth rotation +** and TT to predict the effects of precession. If UT1 is used for +** both purposes, errors of order 100 microarcseconds result. +** +** 3) This GMST is compatible with the IAU 2000 resolutions and must be +** used only in conjunction with other IAU 2000 compatible +** components such as precession-nutation and equation of the +** equinoxes. +** +** 4) The result is returned in the range 0 to 2pi. +** +** 5) The algorithm is from Capitaine et al. (2003) and IERS +** Conventions 2003. +** +** Called: +** iauEra00 Earth rotation angle, IAU 2000 +** iauAnp normalize angle into range 0 to 2pi +** +** References: +** +** Capitaine, N., Wallace, P.T. and McCarthy, D.D., "Expressions to +** implement the IAU 2000 definition of UT1", Astronomy & +** Astrophysics, 406, 1135-1149 (2003) +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t, gmst; + +/* TT Julian centuries since J2000.0. */ + t = ((tta - DJ00) + ttb) / DJC; + +/* Greenwich Mean Sidereal Time, IAU 2000. */ + gmst = iauAnp(iauEra00(uta, utb) + + ( 0.014506 + + ( 4612.15739966 + + ( 1.39667721 + + ( -0.00009344 + + ( 0.00001882 ) + * t) * t) * t) * t) * DAS2R); + + return gmst; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/gmst06.c =================================================================== --- /trunk/FACT++/sofa/src/gmst06.c (revision 18346) +++ /trunk/FACT++/sofa/src/gmst06.c (revision 18346) @@ -0,0 +1,185 @@ +#include "sofa.h" + +double iauGmst06(double uta, double utb, double tta, double ttb) +/* +** - - - - - - - - - - +** i a u G m s t 0 6 +** - - - - - - - - - - +** +** Greenwich mean sidereal time (consistent with IAU 2006 precession). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** uta,utb double UT1 as a 2-part Julian Date (Notes 1,2) +** tta,ttb double TT as a 2-part Julian Date (Notes 1,2) +** +** Returned (function value): +** double Greenwich mean sidereal time (radians) +** +** Notes: +** +** 1) The UT1 and TT dates uta+utb and tta+ttb respectively, are both +** Julian Dates, apportioned in any convenient way between the +** argument pairs. For example, JD=2450123.7 could be expressed in +** any of these ways, among others: +** +** Part A Part B +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable (in the case of UT; the TT is not at all critical +** in this respect). The J2000 and MJD methods are good compromises +** between resolution and convenience. For UT, the date & time +** method is best matched to the algorithm that is used by the Earth +** rotation angle function, called internally: maximum precision is +** delivered when the uta argument is for 0hrs UT1 on the day in +** question and the utb argument lies in the range 0 to 1, or vice +** versa. +** +** 2) Both UT1 and TT are required, UT1 to predict the Earth rotation +** and TT to predict the effects of precession. If UT1 is used for +** both purposes, errors of order 100 microarcseconds result. +** +** 3) This GMST is compatible with the IAU 2006 precession and must not +** be used with other precession models. +** +** 4) The result is returned in the range 0 to 2pi. +** +** Called: +** iauEra00 Earth rotation angle, IAU 2000 +** iauAnp normalize angle into range 0 to 2pi +** +** Reference: +** +** Capitaine, N., Wallace, P.T. & Chapront, J., 2005, +** Astron.Astrophys. 432, 355 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t, gmst; + +/* TT Julian centuries since J2000.0. */ + t = ((tta - DJ00) + ttb) / DJC; + +/* Greenwich mean sidereal time, IAU 2006. */ + gmst = iauAnp(iauEra00(uta, utb) + + ( 0.014506 + + ( 4612.156534 + + ( 1.3915817 + + ( -0.00000044 + + ( -0.000029956 + + ( -0.0000000368 ) + * t) * t) * t) * t) * t) * DAS2R); + + return gmst; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/gmst82.c =================================================================== --- /trunk/FACT++/sofa/src/gmst82.c (revision 18346) +++ /trunk/FACT++/sofa/src/gmst82.c (revision 18346) @@ -0,0 +1,200 @@ +#include "sofa.h" + +double iauGmst82(double dj1, double dj2) +/* +** - - - - - - - - - - +** i a u G m s t 8 2 +** - - - - - - - - - - +** +** Universal Time to Greenwich mean sidereal time (IAU 1982 model). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** dj1,dj2 double UT1 Julian Date (see note) +** +** Returned (function value): +** double Greenwich mean sidereal time (radians) +** +** Notes: +** +** 1) The UT1 date dj1+dj2 is a Julian Date, apportioned in any +** convenient way between the arguments dj1 and dj2. For example, +** JD(UT1)=2450123.7 could be expressed in any of these ways, +** among others: +** +** dj1 dj2 +** +** 2450123.7 0 (JD method) +** 2451545 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. The date & time method is +** best matched to the algorithm used: maximum accuracy (or, at +** least, minimum noise) is delivered when the dj1 argument is for +** 0hrs UT1 on the day in question and the dj2 argument lies in the +** range 0 to 1, or vice versa. +** +** 2) The algorithm is based on the IAU 1982 expression. This is +** always described as giving the GMST at 0 hours UT1. In fact, it +** gives the difference between the GMST and the UT, the steady +** 4-minutes-per-day drawing-ahead of ST with respect to UT. When +** whole days are ignored, the expression happens to equal the GMST +** at 0 hours UT1 each day. +** +** 3) In this function, the entire UT1 (the sum of the two arguments +** dj1 and dj2) is used directly as the argument for the standard +** formula, the constant term of which is adjusted by 12 hours to +** take account of the noon phasing of Julian Date. The UT1 is then +** added, but omitting whole days to conserve accuracy. +** +** Called: +** iauAnp normalize angle into range 0 to 2pi +** +** References: +** +** Transactions of the International Astronomical Union, +** XVIII B, 67 (1983). +** +** Aoki et al., Astron. Astrophys. 105, 359-361 (1982). +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Coefficients of IAU 1982 GMST-UT1 model */ + double A = 24110.54841 - DAYSEC / 2.0; + double B = 8640184.812866; + double C = 0.093104; + double D = -6.2e-6; + +/* Note: the first constant, A, has to be adjusted by 12 hours */ +/* because the UT1 is supplied as a Julian date, which begins */ +/* at noon. */ + + double d1, d2, t, f, gmst; + +/* Julian centuries since fundamental epoch. */ + if (dj1 < dj2) { + d1 = dj1; + d2 = dj2; + } else { + d1 = dj2; + d2 = dj1; + } + t = (d1 + (d2 - DJ00)) / DJC; + +/* Fractional part of JD(UT1), in seconds. */ + f = DAYSEC * (fmod(d1, 1.0) + fmod(d2, 1.0)); + +/* GMST at this UT1. */ + gmst = iauAnp(DS2R * ((A + (B + (C + D * t) * t) * t) + f)); + + return gmst; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/gst00a.c =================================================================== --- /trunk/FACT++/sofa/src/gst00a.c (revision 18346) +++ /trunk/FACT++/sofa/src/gst00a.c (revision 18346) @@ -0,0 +1,187 @@ +#include "sofa.h" + +double iauGst00a(double uta, double utb, double tta, double ttb) +/* +** - - - - - - - - - - +** i a u G s t 0 0 a +** - - - - - - - - - - +** +** Greenwich apparent sidereal time (consistent with IAU 2000 +** resolutions). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** uta,utb double UT1 as a 2-part Julian Date (Notes 1,2) +** tta,ttb double TT as a 2-part Julian Date (Notes 1,2) +** +** Returned (function value): +** double Greenwich apparent sidereal time (radians) +** +** Notes: +** +** 1) The UT1 and TT dates uta+utb and tta+ttb respectively, are both +** Julian Dates, apportioned in any convenient way between the +** argument pairs. For example, JD=2450123.7 could be expressed in +** any of these ways, among others: +** +** Part A Part B +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable (in the case of UT; the TT is not at all critical +** in this respect). The J2000 and MJD methods are good compromises +** between resolution and convenience. For UT, the date & time +** method is best matched to the algorithm that is used by the Earth +** Rotation Angle function, called internally: maximum precision is +** delivered when the uta argument is for 0hrs UT1 on the day in +** question and the utb argument lies in the range 0 to 1, or vice +** versa. +** +** 2) Both UT1 and TT are required, UT1 to predict the Earth rotation +** and TT to predict the effects of precession-nutation. If UT1 is +** used for both purposes, errors of order 100 microarcseconds +** result. +** +** 3) This GAST is compatible with the IAU 2000 resolutions and must be +** used only in conjunction with other IAU 2000 compatible +** components such as precession-nutation. +** +** 4) The result is returned in the range 0 to 2pi. +** +** 5) The algorithm is from Capitaine et al. (2003) and IERS +** Conventions 2003. +** +** Called: +** iauGmst00 Greenwich mean sidereal time, IAU 2000 +** iauEe00a equation of the equinoxes, IAU 2000A +** iauAnp normalize angle into range 0 to 2pi +** +** References: +** +** Capitaine, N., Wallace, P.T. and McCarthy, D.D., "Expressions to +** implement the IAU 2000 definition of UT1", Astronomy & +** Astrophysics, 406, 1135-1149 (2003) +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double gmst00, ee00a, gst; + + gmst00 = iauGmst00(uta, utb, tta, ttb); + ee00a = iauEe00a(tta, ttb); + gst = iauAnp(gmst00 + ee00a); + + return gst; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/gst00b.c =================================================================== --- /trunk/FACT++/sofa/src/gst00b.c (revision 18346) +++ /trunk/FACT++/sofa/src/gst00b.c (revision 18346) @@ -0,0 +1,195 @@ +#include "sofa.h" + +double iauGst00b(double uta, double utb) +/* +** - - - - - - - - - - +** i a u G s t 0 0 b +** - - - - - - - - - - +** +** Greenwich apparent sidereal time (consistent with IAU 2000 +** resolutions but using the truncated nutation model IAU 2000B). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** uta,utb double UT1 as a 2-part Julian Date (Notes 1,2) +** +** Returned (function value): +** double Greenwich apparent sidereal time (radians) +** +** Notes: +** +** 1) The UT1 date uta+utb is a Julian Date, apportioned in any +** convenient way between the argument pair. For example, +** JD=2450123.7 could be expressed in any of these ways, among +** others: +** +** uta utb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. For UT, the date & time +** method is best matched to the algorithm that is used by the Earth +** Rotation Angle function, called internally: maximum precision is +** delivered when the uta argument is for 0hrs UT1 on the day in +** question and the utb argument lies in the range 0 to 1, or vice +** versa. +** +** 2) The result is compatible with the IAU 2000 resolutions, except +** that accuracy has been compromised for the sake of speed and +** convenience in two respects: +** +** . UT is used instead of TDB (or TT) to compute the precession +** component of GMST and the equation of the equinoxes. This +** results in errors of order 0.1 mas at present. +** +** . The IAU 2000B abridged nutation model (McCarthy & Luzum, 2001) +** is used, introducing errors of up to 1 mas. +** +** 3) This GAST is compatible with the IAU 2000 resolutions and must be +** used only in conjunction with other IAU 2000 compatible +** components such as precession-nutation. +** +** 4) The result is returned in the range 0 to 2pi. +** +** 5) The algorithm is from Capitaine et al. (2003) and IERS +** Conventions 2003. +** +** Called: +** iauGmst00 Greenwich mean sidereal time, IAU 2000 +** iauEe00b equation of the equinoxes, IAU 2000B +** iauAnp normalize angle into range 0 to 2pi +** +** References: +** +** Capitaine, N., Wallace, P.T. and McCarthy, D.D., "Expressions to +** implement the IAU 2000 definition of UT1", Astronomy & +** Astrophysics, 406, 1135-1149 (2003) +** +** McCarthy, D.D. & Luzum, B.J., "An abridged model of the +** precession-nutation of the celestial pole", Celestial Mechanics & +** Dynamical Astronomy, 85, 37-49 (2003) +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double gmst00, ee00b, gst; + + gmst00 = iauGmst00(uta, utb, uta, utb); + ee00b = iauEe00b(uta, utb); + gst = iauAnp(gmst00 + ee00b); + + return gst; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/gst06.c =================================================================== --- /trunk/FACT++/sofa/src/gst06.c (revision 18346) +++ /trunk/FACT++/sofa/src/gst06.c (revision 18346) @@ -0,0 +1,189 @@ +#include "sofa.h" + +double iauGst06(double uta, double utb, double tta, double ttb, + double rnpb[3][3]) +/* +** - - - - - - - - - +** i a u G s t 0 6 +** - - - - - - - - - +** +** Greenwich apparent sidereal time, IAU 2006, given the NPB matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** uta,utb double UT1 as a 2-part Julian Date (Notes 1,2) +** tta,ttb double TT as a 2-part Julian Date (Notes 1,2) +** rnpb double[3][3] nutation x precession x bias matrix +** +** Returned (function value): +** double Greenwich apparent sidereal time (radians) +** +** Notes: +** +** 1) The UT1 and TT dates uta+utb and tta+ttb respectively, are both +** Julian Dates, apportioned in any convenient way between the +** argument pairs. For example, JD=2450123.7 could be expressed in +** any of these ways, among others: +** +** Part A Part B +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable (in the case of UT; the TT is not at all critical +** in this respect). The J2000 and MJD methods are good compromises +** between resolution and convenience. For UT, the date & time +** method is best matched to the algorithm that is used by the Earth +** rotation angle function, called internally: maximum precision is +** delivered when the uta argument is for 0hrs UT1 on the day in +** question and the utb argument lies in the range 0 to 1, or vice +** versa. +** +** 2) Both UT1 and TT are required, UT1 to predict the Earth rotation +** and TT to predict the effects of precession-nutation. If UT1 is +** used for both purposes, errors of order 100 microarcseconds +** result. +** +** 3) Although the function uses the IAU 2006 series for s+XY/2, it is +** otherwise independent of the precession-nutation model and can in +** practice be used with any equinox-based NPB matrix. +** +** 4) The result is returned in the range 0 to 2pi. +** +** Called: +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS06 the CIO locator s, given X,Y, IAU 2006 +** iauAnp normalize angle into range 0 to 2pi +** iauEra00 Earth rotation angle, IAU 2000 +** iauEors equation of the origins, given NPB matrix and s +** +** Reference: +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double x, y, s, era, eors, gst; + +/* Extract CIP coordinates. */ + iauBpn2xy(rnpb, &x, &y); + +/* The CIO locator, s. */ + s = iauS06(tta, ttb, x, y); + +/* Greenwich apparent sidereal time. */ + era = iauEra00(uta, utb); + eors = iauEors(rnpb, s); + gst = iauAnp(era - eors); + + return gst; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/gst06a.c =================================================================== --- /trunk/FACT++/sofa/src/gst06a.c (revision 18346) +++ /trunk/FACT++/sofa/src/gst06a.c (revision 18346) @@ -0,0 +1,180 @@ +#include "sofa.h" + +double iauGst06a(double uta, double utb, double tta, double ttb) +/* +** - - - - - - - - - - +** i a u G s t 0 6 a +** - - - - - - - - - - +** +** Greenwich apparent sidereal time (consistent with IAU 2000 and 2006 +** resolutions). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** uta,utb double UT1 as a 2-part Julian Date (Notes 1,2) +** tta,ttb double TT as a 2-part Julian Date (Notes 1,2) +** +** Returned (function value): +** double Greenwich apparent sidereal time (radians) +** +** Notes: +** +** 1) The UT1 and TT dates uta+utb and tta+ttb respectively, are both +** Julian Dates, apportioned in any convenient way between the +** argument pairs. For example, JD=2450123.7 could be expressed in +** any of these ways, among others: +** +** Part A Part B +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable (in the case of UT; the TT is not at all critical +** in this respect). The J2000 and MJD methods are good compromises +** between resolution and convenience. For UT, the date & time +** method is best matched to the algorithm that is used by the Earth +** rotation angle function, called internally: maximum precision is +** delivered when the uta argument is for 0hrs UT1 on the day in +** question and the utb argument lies in the range 0 to 1, or vice +** versa. +** +** 2) Both UT1 and TT are required, UT1 to predict the Earth rotation +** and TT to predict the effects of precession-nutation. If UT1 is +** used for both purposes, errors of order 100 microarcseconds +** result. +** +** 3) This GAST is compatible with the IAU 2000/2006 resolutions and +** must be used only in conjunction with IAU 2006 precession and +** IAU 2000A nutation. +** +** 4) The result is returned in the range 0 to 2pi. +** +** Called: +** iauPnm06a classical NPB matrix, IAU 2006/2000A +** iauGst06 Greenwich apparent ST, IAU 2006, given NPB matrix +** +** Reference: +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rnpb[3][3], gst; + +/* Classical nutation x precession x bias matrix, IAU 2000A. */ + iauPnm06a(tta, ttb, rnpb); + +/* Greenwich apparent sidereal time. */ + gst = iauGst06(uta, utb, tta, ttb, rnpb); + + return gst; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/gst94.c =================================================================== --- /trunk/FACT++/sofa/src/gst94.c (revision 18346) +++ /trunk/FACT++/sofa/src/gst94.c (revision 18346) @@ -0,0 +1,180 @@ +#include "sofa.h" + +double iauGst94(double uta, double utb) +/* +** - - - - - - - - - +** i a u G s t 9 4 +** - - - - - - - - - +** +** Greenwich apparent sidereal time (consistent with IAU 1982/94 +** resolutions). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** uta,utb double UT1 as a 2-part Julian Date (Notes 1,2) +** +** Returned (function value): +** double Greenwich apparent sidereal time (radians) +** +** Notes: +** +** 1) The UT1 date uta+utb is a Julian Date, apportioned in any +** convenient way between the argument pair. For example, +** JD=2450123.7 could be expressed in any of these ways, among +** others: +** +** uta utb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 and MJD methods are good compromises +** between resolution and convenience. For UT, the date & time +** method is best matched to the algorithm that is used by the Earth +** Rotation Angle function, called internally: maximum precision is +** delivered when the uta argument is for 0hrs UT1 on the day in +** question and the utb argument lies in the range 0 to 1, or vice +** versa. +** +** 2) The result is compatible with the IAU 1982 and 1994 resolutions, +** except that accuracy has been compromised for the sake of +** convenience in that UT is used instead of TDB (or TT) to compute +** the equation of the equinoxes. +** +** 3) This GAST must be used only in conjunction with contemporaneous +** IAU standards such as 1976 precession, 1980 obliquity and 1982 +** nutation. It is not compatible with the IAU 2000 resolutions. +** +** 4) The result is returned in the range 0 to 2pi. +** +** Called: +** iauGmst82 Greenwich mean sidereal time, IAU 1982 +** iauEqeq94 equation of the equinoxes, IAU 1994 +** iauAnp normalize angle into range 0 to 2pi +** +** References: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +** IAU Resolution C7, Recommendation 3 (1994) +** +** This revision: 2008 May 16 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double gmst82, eqeq94, gst; + + gmst82 = iauGmst82(uta, utb); + eqeq94 = iauEqeq94(uta, utb); + gst = iauAnp(gmst82 + eqeq94); + + return gst; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/h2fk5.c =================================================================== --- /trunk/FACT++/sofa/src/h2fk5.c (revision 18346) +++ /trunk/FACT++/sofa/src/h2fk5.c (revision 18346) @@ -0,0 +1,197 @@ +#include "sofa.h" + +void iauH2fk5(double rh, double dh, + double drh, double ddh, double pxh, double rvh, + double *r5, double *d5, + double *dr5, double *dd5, double *px5, double *rv5) +/* +** - - - - - - - - - +** i a u H 2 f k 5 +** - - - - - - - - - +** +** Transform Hipparcos star data into the FK5 (J2000.0) system. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given (all Hipparcos, epoch J2000.0): +** rh double RA (radians) +** dh double Dec (radians) +** drh double proper motion in RA (dRA/dt, rad/Jyear) +** ddh double proper motion in Dec (dDec/dt, rad/Jyear) +** pxh double parallax (arcsec) +** rvh double radial velocity (km/s, positive = receding) +** +** Returned (all FK5, equinox J2000.0, epoch J2000.0): +** r5 double RA (radians) +** d5 double Dec (radians) +** dr5 double proper motion in RA (dRA/dt, rad/Jyear) +** dd5 double proper motion in Dec (dDec/dt, rad/Jyear) +** px5 double parallax (arcsec) +** rv5 double radial velocity (km/s, positive = receding) +** +** Notes: +** +** 1) This function transforms Hipparcos star positions and proper +** motions into FK5 J2000.0. +** +** 2) The proper motions in RA are dRA/dt rather than +** cos(Dec)*dRA/dt, and are per year rather than per century. +** +** 3) The FK5 to Hipparcos transformation is modeled as a pure +** rotation and spin; zonal errors in the FK5 catalog are not +** taken into account. +** +** 4) See also iauFk52h, iauFk5hz, iauHfk5z. +** +** Called: +** iauStarpv star catalog data to space motion pv-vector +** iauFk5hip FK5 to Hipparcos rotation and spin +** iauRv2m r-vector to r-matrix +** iauRxp product of r-matrix and p-vector +** iauTrxp product of transpose of r-matrix and p-vector +** iauPxp vector product of two p-vectors +** iauPmp p-vector minus p-vector +** iauPvstar space motion pv-vector to star catalog data +** +** Reference: +** +** F.Mignard & M.Froeschle, Astron. Astrophys. 354, 732-739 (2000). +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int i; + double pvh[2][3], r5h[3][3], s5h[3], sh[3], wxp[3], vv[3], pv5[2][3]; + +/* Hipparcos barycentric position/velocity pv-vector (normalized). */ + iauStarpv(rh, dh, drh, ddh, pxh, rvh, pvh); + +/* FK5 to Hipparcos orientation matrix and spin vector. */ + iauFk5hip(r5h, s5h); + +/* Make spin units per day instead of per year. */ + for ( i = 0; i < 3; s5h[i++] /= 365.25 ); + +/* Orient the spin into the Hipparcos system. */ + iauRxp(r5h, s5h, sh); + +/* De-orient the Hipparcos position into the FK5 system. */ + iauTrxp(r5h, pvh[0], pv5[0]); + +/* Apply spin to the position giving an extra space motion component. */ + iauPxp(pvh[0], sh, wxp); + +/* Subtract this component from the Hipparcos space motion. */ + iauPmp(pvh[1], wxp, vv); + +/* De-orient the Hipparcos space motion into the FK5 system. */ + iauTrxp(r5h, vv, pv5[1]); + +/* FK5 pv-vector to spherical. */ + iauPvstar(pv5, r5, d5, dr5, dd5, px5, rv5); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/hfk5z.c =================================================================== --- /trunk/FACT++/sofa/src/hfk5z.c (revision 18346) +++ /trunk/FACT++/sofa/src/hfk5z.c (revision 18346) @@ -0,0 +1,224 @@ +#include "sofa.h" + +void iauHfk5z(double rh, double dh, double date1, double date2, + double *r5, double *d5, double *dr5, double *dd5) +/* +** - - - - - - - - - +** i a u H f k 5 z +** - - - - - - - - - +** +** Transform a Hipparcos star position into FK5 J2000.0, assuming +** zero Hipparcos proper motion. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rh double Hipparcos RA (radians) +** dh double Hipparcos Dec (radians) +** date1,date2 double TDB date (Note 1) +** +** Returned (all FK5, equinox J2000.0, date date1+date2): +** r5 double RA (radians) +** d5 double Dec (radians) +** dr5 double FK5 RA proper motion (rad/year, Note 4) +** dd5 double Dec proper motion (rad/year, Note 4) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The proper motion in RA is dRA/dt rather than cos(Dec)*dRA/dt. +** +** 3) The FK5 to Hipparcos transformation is modeled as a pure rotation +** and spin; zonal errors in the FK5 catalogue are not taken into +** account. +** +** 4) It was the intention that Hipparcos should be a close +** approximation to an inertial frame, so that distant objects have +** zero proper motion; such objects have (in general) non-zero +** proper motion in FK5, and this function returns those fictitious +** proper motions. +** +** 5) The position returned by this function is in the FK5 J2000.0 +** reference system but at date date1+date2. +** +** 6) See also iauFk52h, iauH2fk5, iauFk5zhz. +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauFk5hip FK5 to Hipparcos rotation and spin +** iauRxp product of r-matrix and p-vector +** iauSxp multiply p-vector by scalar +** iauRxr product of two r-matrices +** iauTrxp product of transpose of r-matrix and p-vector +** iauPxp vector product of two p-vectors +** iauPv2s pv-vector to spherical +** iauAnp normalize angle into range 0 to 2pi +** +** Reference: +** +** F.Mignard & M.Froeschle, 2000, Astron.Astrophys. 354, 732-739. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t, ph[3], r5h[3][3], s5h[3], sh[3], vst[3], + rst[3][3], r5ht[3][3], pv5e[2][3], vv[3], + w, r, v; + +/* Time interval from fundamental epoch J2000.0 to given date (JY). */ + t = ((date1 - DJ00) + date2) / DJY; + +/* Hipparcos barycentric position vector (normalized). */ + iauS2c(rh, dh, ph); + +/* FK5 to Hipparcos orientation matrix and spin vector. */ + iauFk5hip(r5h, s5h); + +/* Rotate the spin into the Hipparcos system. */ + iauRxp(r5h, s5h, sh); + +/* Accumulated Hipparcos wrt FK5 spin over that interval. */ + iauSxp(t, s5h, vst); + +/* Express the accumulated spin as a rotation matrix. */ + iauRv2m(vst, rst); + +/* Rotation matrix: accumulated spin, then FK5 to Hipparcos. */ + iauRxr(r5h, rst, r5ht); + +/* De-orient & de-spin the Hipparcos position into FK5 J2000.0. */ + iauTrxp(r5ht, ph, pv5e[0]); + +/* Apply spin to the position giving a space motion. */ + iauPxp(sh, ph, vv); + +/* De-orient & de-spin the Hipparcos space motion into FK5 J2000.0. */ + iauTrxp(r5ht, vv, pv5e[1]); + +/* FK5 position/velocity pv-vector to spherical. */ + iauPv2s(pv5e, &w, d5, &r, dr5, dd5, &v); + *r5 = iauAnp(w); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/icrs2g.c =================================================================== --- /trunk/FACT++/sofa/src/icrs2g.c (revision 18346) +++ /trunk/FACT++/sofa/src/icrs2g.c (revision 18346) @@ -0,0 +1,212 @@ +#include "sofa.h" + +void iauIcrs2g ( double dr, double dd, double *dl, double *db ) +/* +** - - - - - - - - - - +** i a u I c r s 2 g +** - - - - - - - - - - +** +** Transformation from ICRS to Galactic Coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support routine. +** +** Given: +** dr double ICRS right ascension (radians) +** dd double ICRS declination (radians) +** +** Returned: +** dl double galactic longitude (radians) +** db double galactic latitude (radians) +** +** Notes: +** +** 1) The IAU 1958 system of Galactic coordinates was defined with +** respect to the now obsolete reference system FK4 B1950.0. When +** interpreting the system in a modern context, several factors have +** to be taken into account: +** +** . The inclusion in FK4 positions of the E-terms of aberration. +** +** . The distortion of the FK4 proper motion system by differential +** Galactic rotation. +** +** . The use of the B1950.0 equinox rather than the now-standard +** J2000.0. +** +** . The frame bias between ICRS and the J2000.0 mean place system. +** +** The Hipparcos Catalogue (Perryman & ESA 1997) provides a rotation +** matrix that transforms directly between ICRS and Galactic +** coordinates with the above factors taken into account. The +** matrix is derived from three angles, namely the ICRS coordinates +** of the Galactic pole and the longitude of the ascending node of +** the galactic equator on the ICRS equator. They are given in +** degrees to five decimal places and for canonical purposes are +** regarded as exact. In the Hipparcos Catalogue the matrix +** elements are given to 10 decimal places (about 20 microarcsec). +** In the present SOFA function the matrix elements have been +** recomputed from the canonical three angles and are given to 30 +** decimal places. +** +** 2) The inverse transformation is performed by the function iauG2icrs. +** +** Called: +** iauAnp normalize angle into range 0 to 2pi +** iauAnpm normalize angle into range +/- pi +** iauS2c spherical coordinates to unit vector +** iauRxp product of r-matrix and p-vector +** iauC2s p-vector to spherical +** +** Reference: +** Perryman M.A.C. & ESA, 1997, ESA SP-1200, The Hipparcos and Tycho +** catalogues. Astrometric and photometric star catalogues +** derived from the ESA Hipparcos Space Astrometry Mission. ESA +** Publications Division, Noordwijk, Netherlands. +** +** This revision: 2015 January 20 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double v1[3], v2[3]; + +/* +** L2,B2 system of galactic coordinates in the form presented in the +** Hipparcos Catalogue. In degrees: +** +** P = 192.85948 right ascension of the Galactic north pole in ICRS +** Q = 27.12825 declination of the Galactic north pole in ICRS +** R = 32.93192 longitude of the ascending node of the Galactic +** plane on the ICRS equator +** +** ICRS to galactic rotation matrix, obtained by computing +** R_3(-R) R_1(pi/2-Q) R_3(pi/2+P) to the full precision shown: +*/ + double r[3][3] = { { -0.054875560416215368492398900454, + -0.873437090234885048760383168409, + -0.483835015548713226831774175116 }, + { +0.494109427875583673525222371358, + -0.444829629960011178146614061616, + +0.746982244497218890527388004556 }, + { -0.867666149019004701181616534570, + -0.198076373431201528180486091412, + +0.455983776175066922272100478348 } }; + + +/* Spherical to Cartesian. */ + iauS2c(dr, dd, v1); + +/* ICRS to Galactic. */ + iauRxp(r, v1, v2); + +/* Cartesian to spherical. */ + iauC2s(v2, dl, db); + +/* Express in conventional ranges. */ + *dl = iauAnp(*dl); + *db = iauAnpm(*db); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/ir.c =================================================================== --- /trunk/FACT++/sofa/src/ir.c (revision 18346) +++ /trunk/FACT++/sofa/src/ir.c (revision 18346) @@ -0,0 +1,133 @@ +#include "sofa.h" + +void iauIr(double r[3][3]) +/* +** - - - - - - +** i a u I r +** - - - - - - +** +** Initialize an r-matrix to the identity matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Returned: +** r double[3][3] r-matrix +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + r[0][0] = 1.0; + r[0][1] = 0.0; + r[0][2] = 0.0; + r[1][0] = 0.0; + r[1][1] = 1.0; + r[1][2] = 0.0; + r[2][0] = 0.0; + r[2][1] = 0.0; + r[2][2] = 1.0; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/jd2cal.c =================================================================== --- /trunk/FACT++/sofa/src/jd2cal.c (revision 18346) +++ /trunk/FACT++/sofa/src/jd2cal.c (revision 18346) @@ -0,0 +1,204 @@ +#include "sofa.h" + +int iauJd2cal(double dj1, double dj2, + int *iy, int *im, int *id, double *fd) +/* +** - - - - - - - - - - +** i a u J d 2 c a l +** - - - - - - - - - - +** +** Julian Date to Gregorian year, month, day, and fraction of a day. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** dj1,dj2 double Julian Date (Notes 1, 2) +** +** Returned (arguments): +** iy int year +** im int month +** id int day +** fd double fraction of day +** +** Returned (function value): +** int status: +** 0 = OK +** -1 = unacceptable date (Note 3) +** +** Notes: +** +** 1) The earliest valid date is -68569.5 (-4900 March 1). The +** largest value accepted is 1e9. +** +** 2) The Julian Date is apportioned in any convenient way between +** the arguments dj1 and dj2. For example, JD=2450123.7 could +** be expressed in any of these ways, among others: +** +** dj1 dj2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** 3) In early eras the conversion is from the "proleptic Gregorian +** calendar"; no account is taken of the date(s) of adoption of +** the Gregorian calendar, nor is the AD/BC numbering convention +** observed. +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 12.92 (p604). +** +** This revision: 2013 August 7 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Minimum and maximum allowed JD */ + const double DJMIN = -68569.5; + const double DJMAX = 1e9; + + long jd, l, n, i, k; + double dj, d1, d2, f1, f2, f, d; + +/* Verify date is acceptable. */ + dj = dj1 + dj2; + if (dj < DJMIN || dj > DJMAX) return -1; + +/* Copy the date, big then small, and re-align to midnight. */ + if (dj1 >= dj2) { + d1 = dj1; + d2 = dj2; + } else { + d1 = dj2; + d2 = dj1; + } + d2 -= 0.5; + +/* Separate day and fraction. */ + f1 = fmod(d1, 1.0); + f2 = fmod(d2, 1.0); + f = fmod(f1 + f2, 1.0); + if (f < 0.0) f += 1.0; + d = floor(d1 - f1) + floor(d2 - f2) + floor(f1 + f2 - f); + jd = (long) floor(d) + 1L; + +/* Express day in Gregorian calendar. */ + l = jd + 68569L; + n = (4L * l) / 146097L; + l -= (146097L * n + 3L) / 4L; + i = (4000L * (l + 1L)) / 1461001L; + l -= (1461L * i) / 4L - 31L; + k = (80L * l) / 2447L; + *id = (int) (l - (2447L * k) / 80L); + l = k / 11L; + *im = (int) (k + 2L - 12L * l); + *iy = (int) (100L * (n - 49L) + i + l); + *fd = f; + + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/jdcalf.c =================================================================== --- /trunk/FACT++/sofa/src/jdcalf.c (revision 18346) +++ /trunk/FACT++/sofa/src/jdcalf.c (revision 18346) @@ -0,0 +1,210 @@ +#include "sofa.h" + +int iauJdcalf(int ndp, double dj1, double dj2, int iymdf[4]) +/* +** - - - - - - - - - - +** i a u J d c a l f +** - - - - - - - - - - +** +** Julian Date to Gregorian Calendar, expressed in a form convenient +** for formatting messages: rounded to a specified precision. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** ndp int number of decimal places of days in fraction +** dj1,dj2 double dj1+dj2 = Julian Date (Note 1) +** +** Returned: +** iymdf int[4] year, month, day, fraction in Gregorian +** calendar +** +** Returned (function value): +** int status: +** -1 = date out of range +** 0 = OK +** +1 = NDP not 0-9 (interpreted as 0) +** +** Notes: +** +** 1) The Julian Date is apportioned in any convenient way between +** the arguments dj1 and dj2. For example, JD=2450123.7 could +** be expressed in any of these ways, among others: +** +** dj1 dj2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** 2) In early eras the conversion is from the "Proleptic Gregorian +** Calendar"; no account is taken of the date(s) of adoption of +** the Gregorian Calendar, nor is the AD/BC numbering convention +** observed. +** +** 3) Refer to the function iauJd2cal. +** +** 4) NDP should be 4 or less if internal overflows are to be +** avoided on machines which use 16-bit integers. +** +** Called: +** iauJd2cal JD to Gregorian calendar +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 12.92 (p604). +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int j, js; + double denom, d1, d2, f1, f2, f; + +/* Denominator of fraction (e.g. 100 for 2 decimal places). */ + if ((ndp >= 0) && (ndp <= 9)) { + j = 0; + denom = pow(10.0, ndp); + } else { + j = 1; + denom = 1.0; + } + +/* Copy the date, big then small, and realign to midnight. */ + if (dj1 >= dj2) { + d1 = dj1; + d2 = dj2; + } else { + d1 = dj2; + d2 = dj1; + } + d2 -= 0.5; + +/* Separate days and fractions. */ + f1 = fmod(d1, 1.0); + f2 = fmod(d2, 1.0); + d1 = floor(d1 - f1); + d2 = floor(d2 - f2); + +/* Round the total fraction to the specified number of places. */ + f = floor((f1+f2)*denom + 0.5) / denom; + +/* Re-assemble the rounded date and re-align to noon. */ + d2 += f + 0.5; + +/* Convert to Gregorian calendar. */ + js = iauJd2cal(d1, d2, &iymdf[0], &iymdf[1], &iymdf[2], &f); + if (js == 0) { + iymdf[3] = (int) (f * denom); + } else { + j = js; + } + +/* Return the status. */ + return j; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/ld.c =================================================================== --- /trunk/FACT++/sofa/src/ld.c (revision 18346) +++ /trunk/FACT++/sofa/src/ld.c (revision 18346) @@ -0,0 +1,202 @@ +#include "sofa.h" + +void iauLd(double bm, double p[3], double q[3], double e[3], + double em, double dlim, double p1[3]) +/* +** - - - - - - +** i a u L d +** - - - - - - +** +** Apply light deflection by a solar-system body, as part of +** transforming coordinate direction into natural direction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** bm double mass of the gravitating body (solar masses) +** p double[3] direction from observer to source (unit vector) +** q double[3] direction from body to source (unit vector) +** e double[3] direction from body to observer (unit vector) +** em double distance from body to observer (au) +** dlim double deflection limiter (Note 4) +** +** Returned: +** p1 double[3] observer to deflected source (unit vector) +** +** Notes: +** +** 1) The algorithm is based on Expr. (70) in Klioner (2003) and +** Expr. (7.63) in the Explanatory Supplement (Urban & Seidelmann +** 2013), with some rearrangement to minimize the effects of machine +** precision. +** +** 2) The mass parameter bm can, as required, be adjusted in order to +** allow for such effects as quadrupole field. +** +** 3) The barycentric position of the deflecting body should ideally +** correspond to the time of closest approach of the light ray to +** the body. +** +** 4) The deflection limiter parameter dlim is phi^2/2, where phi is +** the angular separation (in radians) between source and body at +** which limiting is applied. As phi shrinks below the chosen +** threshold, the deflection is artificially reduced, reaching zero +** for phi = 0. +** +** 5) The returned vector p1 is not normalized, but the consequential +** departure from unit magnitude is always negligible. +** +** 6) The arguments p and p1 can be the same array. +** +** 7) To accumulate total light deflection taking into account the +** contributions from several bodies, call the present function for +** each body in succession, in decreasing order of distance from the +** observer. +** +** 8) For efficiency, validation is omitted. The supplied vectors must +** be of unit magnitude, and the deflection limiter non-zero and +** positive. +** +** References: +** +** Urban, S. & Seidelmann, P. K. (eds), Explanatory Supplement to +** the Astronomical Almanac, 3rd ed., University Science Books +** (2013). +** +** Klioner, Sergei A., "A practical relativistic model for micro- +** arcsecond astrometry in space", Astr. J. 125, 1580-1597 (2003). +** +** Called: +** iauPdp scalar product of two p-vectors +** iauPxp vector product of two p-vectors +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int i; + double qpe[3], qdqpe, w, eq[3], peq[3]; + +/* q . (q + e). */ + for (i = 0; i < 3; i++) { + qpe[i] = q[i] + e[i]; + } + qdqpe = iauPdp(q, qpe); + +/* 2 x G x bm / ( em x c^2 x ( q . (q + e) ) ). */ + w = bm * SRS / em / gmax(qdqpe,dlim); + +/* p x (e x q). */ + iauPxp(e, q, eq); + iauPxp(p, eq, peq); + +/* Apply the deflection. */ + for (i = 0; i < 3; i++) { + p1[i] = p[i] + w*peq[i]; + } + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/ldn.c =================================================================== --- /trunk/FACT++/sofa/src/ldn.c (revision 18346) +++ /trunk/FACT++/sofa/src/ldn.c (revision 18346) @@ -0,0 +1,224 @@ +#include "sofa.h" + +void iauLdn(int n, iauLDBODY b[], double ob[3], double sc[3], + double sn[3]) +/*+ +** - - - - - - - +** i a u L d n +** - - - - - - - +** +** For a star, apply light deflection by multiple solar-system bodies, +** as part of transforming coordinate direction into natural direction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** n int number of bodies (note 1) +** b iauLDBODY[n] data for each of the n bodies (Notes 1,2): +** bm double mass of the body (solar masses, Note 3) +** dl double deflection limiter (Note 4) +** pv [2][3] barycentric PV of the body (au, au/day) +** ob double[3] barycentric position of the observer (au) +** sc double[3] observer to star coord direction (unit vector) +** +** Returned: +** sn double[3] observer to deflected star (unit vector) +** +** 1) The array b contains n entries, one for each body to be +** considered. If n = 0, no gravitational light deflection will be +** applied, not even for the Sun. +** +** 2) The array b should include an entry for the Sun as well as for +** any planet or other body to be taken into account. The entries +** should be in the order in which the light passes the body. +** +** 3) In the entry in the b array for body i, the mass parameter +** b[i].bm can, as required, be adjusted in order to allow for such +** effects as quadrupole field. +** +** 4) The deflection limiter parameter b[i].dl is phi^2/2, where phi is +** the angular separation (in radians) between star and body at +** which limiting is applied. As phi shrinks below the chosen +** threshold, the deflection is artificially reduced, reaching zero +** for phi = 0. Example values suitable for a terrestrial +** observer, together with masses, are as follows: +** +** body i b[i].bm b[i].dl +** +** Sun 1.0 6e-6 +** Jupiter 0.00095435 3e-9 +** Saturn 0.00028574 3e-10 +** +** 5) For cases where the starlight passes the body before reaching the +** observer, the body is placed back along its barycentric track by +** the light time from that point to the observer. For cases where +** the body is "behind" the observer no such shift is applied. If +** a different treatment is preferred, the user has the option of +** instead using the iauLd function. Similarly, iauLd can be used +** for cases where the source is nearby, not a star. +** +** 6) The returned vector sn is not normalized, but the consequential +** departure from unit magnitude is always negligible. +** +** 7) The arguments sc and sn can be the same array. +** +** 8) For efficiency, validation is omitted. The supplied masses must +** be greater than zero, the position and velocity vectors must be +** right, and the deflection limiter greater than zero. +** +** Reference: +** +** Urban, S. & Seidelmann, P. K. (eds), Explanatory Supplement to +** the Astronomical Almanac, 3rd ed., University Science Books +** (2013), Section 7.2.4. +** +** Called: +** iauCp copy p-vector +** iauPdp scalar product of two p-vectors +** iauPmp p-vector minus p-vector +** iauPpsp p-vector plus scaled p-vector +** iauPn decompose p-vector into modulus and direction +** iauLd light deflection by a solar-system body +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Light time for 1 AU (days) */ + const double CR = AULT/DAYSEC; + + int i; + double v[3], dt, ev[3], em, e[3]; + +/* Star direction prior to deflection. */ + iauCp(sc, sn); + +/* Body by body. */ + for ( i = 0; i < n; i++ ) { + + /* Body to observer vector at epoch of observation (au). */ + iauPmp ( ob, b[i].pv[0], v ); + + /* Minus the time since the light passed the body (days). */ + dt = iauPdp(sn,v) * CR; + + /* Neutralize if the star is "behind" the observer. */ + dt = gmin(dt, 0.0); + + /* Backtrack the body to the time the light was passing the body. */ + iauPpsp(v, -dt, b[i].pv[1], ev); + + /* Body to observer vector as magnitude and direction. */ + iauPn(ev, &em, e); + + /* Apply light deflection for this body. */ + iauLd ( b[i].bm, sn, sn, e, em, b[i].dl, sn ); + + /* Next body. */ + } + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/ldsun.c =================================================================== --- /trunk/FACT++/sofa/src/ldsun.c (revision 18346) +++ /trunk/FACT++/sofa/src/ldsun.c (revision 18346) @@ -0,0 +1,147 @@ +#include "sofa.h" + +void iauLdsun(double p[3], double e[3], double em, double p1[3]) +/* +** - - - - - - - - - +** i a u L d s u n +** - - - - - - - - - +** +** Deflection of starlight by the Sun. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** p double[3] direction from observer to star (unit vector) +** e double[3] direction from Sun to observer (unit vector) +** em double distance from Sun to observer (au) +** +** Returned: +** p1 double[3] observer to deflected star (unit vector) +** +** Notes: +** +** 1) The source is presumed to be sufficiently distant that its +** directions seen from the Sun and the observer are essentially +** the same. +** +** 2) The deflection is restrained when the angle between the star and +** the center of the Sun is less than about 9 arcsec, falling to +** zero for zero separation. (The chosen threshold is within the +** solar limb for all solar-system applications.) +** +** 3) The arguments p and p1 can be the same array. +** +** Called: +** iauLd light deflection by a solar-system body +** +** This revision: 2014 September 1 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + iauLd(1.0, p, p, e, em, 1e-9, p1); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/makefile =================================================================== --- /trunk/FACT++/sofa/src/makefile (revision 18346) +++ /trunk/FACT++/sofa/src/makefile (revision 18346) @@ -0,0 +1,817 @@ +#----------------------------------------------------------------------- +# +# Description: make file for the ANSI-C version of SOFA. This +# make file creates a Unix .a library. Designed for Linux/gcc but +# can be adapted for other platforms or run in an appropriate way +# by means of the macros CCOMPC (compiler command), CFLAGF (qualifiers +# for compiling functions) and CFLAGX (qualifiers for compiling +# executables). +# +# Usage: +# +# To build the library: +# +# make +# +# To install the library and include files: +# +# make install +# +# To delete all object files: +# +# make clean +# +# To build and run the test program using the installed library: +# +# make test +# +# Also: +# make all same as make +# make uninstall deinstall the library and header files +# make check test the build +# make installcheck same as make test +# make distclean delete all generated binaries +# make realclean same as distclean +# +# Last revision: 2015 February 9 +# +# Copyright International Astronomical Union. All rights reserved. +# +#----------------------------------------------------------------------- + +#----------------------------------------------------------------------- +# +# DEFINITIONS +# +#----------------------------------------------------------------------- + +#----YOU MAY HAVE TO MODIFY THE NEXT FEW DEFINITIONS----- + +# Specify the installation home directory. + +INSTALL_DIR = $(HOME) + +# Specify the installation directory for the library. + +SOFA_LIB_DIR = $(INSTALL_DIR)/lib/ + +# Specify the installation directory for the include files. + +SOFA_INC_DIR = $(INSTALL_DIR)/include/ + +# This software is compilable only by ANSI C compilers - give the name +# of your preferred C compiler (CCOMPC) and compilation flags (CFLAGF +# for functions, CFLAGX for executables) here. + +CCOMPC = gcc +CFLAGF = -c -pedantic -Wall -W -O +CFLAGX = -pedantic -Wall -W -O + +#----YOU SHOULDN'T HAVE TO MODIFY ANYTHING BELOW THIS LINE--------- + +SHELL = /bin/sh + +# The list of installation directories. + +INSTALL_DIRS = $(SOFA_LIB_DIR) $(SOFA_INC_DIR) + +# Name the SOFA/C library in its source and target locations. + +SOFA_LIB_NAME = libsofa_c.a +SOFA_LIB = $(SOFA_LIB_DIR)$(SOFA_LIB_NAME) + +# Name the SOFA/C testbed in its source and target locations. + +SOFA_TEST_NAME = t_sofa_c.c +SOFA_TEST = t_sofa_c + +# Name the SOFA/C includes in their source and target locations. + +SOFA_INC_NAMES = sofa.h sofam.h +SOFA_INC = $(SOFA_INC_DIR)sofa.h $(SOFA_INC_DIR)sofam.h + +# The list of SOFA/C library object files. + +SOFA_OBS = iauA2af.o \ + iauA2tf.o \ + iauAb.o \ + iauAf2a.o \ + iauAnp.o \ + iauAnpm.o \ + iauApcg.o \ + iauApcg13.o \ + iauApci.o \ + iauApci13.o \ + iauApco.o \ + iauApco13.o \ + iauApcs.o \ + iauApcs13.o \ + iauAper.o \ + iauAper13.o \ + iauApio.o \ + iauApio13.o \ + iauAtci13.o \ + iauAtciq.o \ + iauAtciqn.o \ + iauAtciqz.o \ + iauAtco13.o \ + iauAtic13.o \ + iauAticq.o \ + iauAticqn.o \ + iauAtio13.o \ + iauAtioq.o \ + iauAtoc13.o \ + iauAtoi13.o \ + iauAtoiq.o \ + iauBi00.o \ + iauBp00.o \ + iauBp06.o \ + iauBpn2xy.o \ + iauC2i00a.o \ + iauC2i00b.o \ + iauC2i06a.o \ + iauC2ibpn.o \ + iauC2ixy.o \ + iauC2ixys.o \ + iauC2s.o \ + iauC2t00a.o \ + iauC2t00b.o \ + iauC2t06a.o \ + iauC2tcio.o \ + iauC2teqx.o \ + iauC2tpe.o \ + iauC2txy.o \ + iauCal2jd.o \ + iauCp.o \ + iauCpv.o \ + iauCr.o \ + iauD2dtf.o \ + iauD2tf.o \ + iauDat.o \ + iauDtdb.o \ + iauDtf2d.o \ + iauEe00.o \ + iauEe00a.o \ + iauEe00b.o \ + iauEe06a.o \ + iauEect00.o \ + iauEform.o \ + iauEo06a.o \ + iauEors.o \ + iauEpb.o \ + iauEpb2jd.o \ + iauEpj.o \ + iauEpj2jd.o \ + iauEpv00.o \ + iauEqeq94.o \ + iauEra00.o \ + iauFad03.o \ + iauFae03.o \ + iauFaf03.o \ + iauFaju03.o \ + iauFal03.o \ + iauFalp03.o \ + iauFama03.o \ + iauFame03.o \ + iauFane03.o \ + iauFaom03.o \ + iauFapa03.o \ + iauFasa03.o \ + iauFaur03.o \ + iauFave03.o \ + iauFk52h.o \ + iauFk5hip.o \ + iauFk5hz.o \ + iauFw2m.o \ + iauFw2xy.o \ + iauG2icrs.o \ + iauGc2gd.o \ + iauGc2gde.o \ + iauGd2gc.o \ + iauGd2gce.o \ + iauGmst00.o \ + iauGmst06.o \ + iauGmst82.o \ + iauGst00a.o \ + iauGst00b.o \ + iauGst06.o \ + iauGst06a.o \ + iauGst94.o \ + iauH2fk5.o \ + iauHfk5z.o \ + iauIcrs2g.o \ + iauIr.o \ + iauJd2cal.o \ + iauJdcalf.o \ + iauLd.o \ + iauLdn.o \ + iauLdsun.o \ + iauNum00a.o \ + iauNum00b.o \ + iauNum06a.o \ + iauNumat.o \ + iauNut00a.o \ + iauNut00b.o \ + iauNut06a.o \ + iauNut80.o \ + iauNutm80.o \ + iauObl06.o \ + iauObl80.o \ + iauP06e.o \ + iauP2pv.o \ + iauP2s.o \ + iauPap.o \ + iauPas.o \ + iauPb06.o \ + iauPdp.o \ + iauPfw06.o \ + iauPlan94.o \ + iauPm.o \ + iauPmat00.o \ + iauPmat06.o \ + iauPmat76.o \ + iauPmp.o \ + iauPmpx.o \ + iauPmsafe.o \ + iauPn.o \ + iauPn00.o \ + iauPn00a.o \ + iauPn00b.o \ + iauPn06.o \ + iauPn06a.o \ + iauPnm00a.o \ + iauPnm00b.o \ + iauPnm06a.o \ + iauPnm80.o \ + iauPom00.o \ + iauPpp.o \ + iauPpsp.o \ + iauPr00.o \ + iauPrec76.o \ + iauPv2p.o \ + iauPv2s.o \ + iauPvdpv.o \ + iauPvm.o \ + iauPvmpv.o \ + iauPvppv.o \ + iauPvstar.o \ + iauPvtob.o \ + iauPvu.o \ + iauPvup.o \ + iauPvxpv.o \ + iauPxp.o \ + iauRefco.o \ + iauRm2v.o \ + iauRv2m.o \ + iauRx.o \ + iauRxp.o \ + iauRxpv.o \ + iauRxr.o \ + iauRy.o \ + iauRz.o \ + iauS00.o \ + iauS00a.o \ + iauS00b.o \ + iauS06.o \ + iauS06a.o \ + iauS2c.o \ + iauS2p.o \ + iauS2pv.o \ + iauS2xpv.o \ + iauSepp.o \ + iauSeps.o \ + iauSp00.o \ + iauStarpm.o \ + iauStarpv.o \ + iauSxp.o \ + iauSxpv.o \ + iauTaitt.o \ + iauTaiut1.o \ + iauTaiutc.o \ + iauTcbtdb.o \ + iauTcgtt.o \ + iauTdbtcb.o \ + iauTdbtt.o \ + iauTf2a.o \ + iauTf2d.o \ + iauTr.o \ + iauTrxp.o \ + iauTrxpv.o \ + iauTttai.o \ + iauTttcg.o \ + iauTttdb.o \ + iauTtut1.o \ + iauUt1tai.o \ + iauUt1tt.o \ + iauUt1utc.o \ + iauUtctai.o \ + iauUtcut1.o \ + iauXy06.o \ + iauXys00a.o \ + iauXys00b.o \ + iauXys06a.o \ + iauZp.o \ + iauZpv.o \ + iauZr.o + +#----------------------------------------------------------------------- +# +# TARGETS +# +#----------------------------------------------------------------------- + +# Build (but do not install) the library. +all : $(SOFA_LIB_NAME) + -@ echo "" + -@ echo "*** Now type 'make test'" \ + " to install the library and run tests ***" + -@ echo "" + +# Install the library and header files. +install $(SOFA_LIB) : $(INSTALL_DIRS) $(SOFA_LIB_NAME) $(SOFA_INC) + cp $(SOFA_LIB_NAME) $(SOFA_LIB_DIR) + +# Deinstall the library and header files. +uninstall: + - $(RM) $(SOFA_LIB) $(SOFA_INC) + +# Test the build. +check: $(SOFA_TEST_NAME) $(SOFA_INC_NAMES) $(SOFA_LIB_NAME) + $(CCOMPC) $(CFLAGX) $(SOFA_TEST_NAME) $(SOFA_LIB_NAME) \ + -lm -o $(SOFA_TEST) + ./$(SOFA_TEST) + +# Test the installed library. +installcheck test: $(SOFA_TEST_NAME) $(SOFA_INC) $(SOFA_LIB) + $(CCOMPC) $(CFLAGX) $(SOFA_TEST_NAME) -I$(SOFA_INC_DIR) \ + -L$(SOFA_LIB_DIR) -lsofa_c -lm -o $(SOFA_TEST) + ./$(SOFA_TEST) + +# Delete object files. +clean : + - $(RM) $(SOFA_OBS) + +# Delete all generated binaries in the current directory. +realclean distclean : clean + - $(RM) $(SOFA_LIB_NAME) $(SOFA_TEST) + +# Create the installation directories if not already present. +$(INSTALL_DIRS): + mkdir -p $@ + +# Build the library. +$(SOFA_LIB_NAME): $(SOFA_OBS) + ar ru $(SOFA_LIB_NAME) $? + +# Install the header files. +$(SOFA_INC) : $(INSTALL_DIRS) $(SOFA_INC_NAMES) + cp $(SOFA_INC_NAMES) $(SOFA_INC_DIR) + +#----------------------------------------------------------------------- + +# The list of object file dependencies + +iauA2af.o : a2af.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ a2af.c +iauA2tf.o : a2tf.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ a2tf.c +iauAb.o : ab.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ab.c +iauAf2a.o : af2a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ af2a.c +iauAnp.o : anp.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ anp.c +iauAnpm.o : anpm.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ anpm.c +iauApcg.o : apcg.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ apcg.c +iauApcg13.o : apcg13.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ apcg13.c +iauApci.o : apci.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ apci.c +iauApci13.o : apci13.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ apci13.c +iauApco.o : apco.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ apco.c +iauApco13.o : apco13.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ apco13.c +iauApcs.o : apcs.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ apcs.c +iauApcs13.o : apcs13.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ apcs13.c +iauAper.o : aper.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ aper.c +iauAper13.o : aper13.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ aper13.c +iauApio.o : apio.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ apio.c +iauApio13.o : apio13.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ apio13.c +iauAtci13.o : atci13.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ atci13.c +iauAtciq.o : atciq.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ atciq.c +iauAtciqn.o : atciqn.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ atciqn.c +iauAtciqz.o : atciqz.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ atciqz.c +iauAtco13.o : atco13.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ atco13.c +iauAtic13.o : atic13.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ atic13.c +iauAticq.o : aticq.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ aticq.c +iauAticqn.o : aticqn.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ aticqn.c +iauAtio13.o : atio13.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ atio13.c +iauAtioq.o : atioq.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ atioq.c +iauAtoc13.o : atoc13.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ atoc13.c +iauAtoi13.o : atoi13.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ atoi13.c +iauAtoiq.o : atoiq.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ atoiq.c +iauBi00.o : bi00.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ bi00.c +iauBp00.o : bp00.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ bp00.c +iauBp06.o : bp06.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ bp06.c +iauBpn2xy.o : bpn2xy.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ bpn2xy.c +iauC2i00a.o : c2i00a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ c2i00a.c +iauC2i00b.o : c2i00b.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ c2i00b.c +iauC2i06a.o : c2i06a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ c2i06a.c +iauC2ibpn.o : c2ibpn.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ c2ibpn.c +iauC2ixy.o : c2ixy.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ c2ixy.c +iauC2ixys.o : c2ixys.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ c2ixys.c +iauC2s.o : c2s.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ c2s.c +iauC2t00a.o : c2t00a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ c2t00a.c +iauC2t00b.o : c2t00b.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ c2t00b.c +iauC2t06a.o : c2t06a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ c2t06a.c +iauC2tcio.o : c2tcio.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ c2tcio.c +iauC2teqx.o : c2teqx.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ c2teqx.c +iauC2tpe.o : c2tpe.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ c2tpe.c +iauC2txy.o : c2txy.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ c2txy.c +iauCal2jd.o : cal2jd.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ cal2jd.c +iauCp.o : cp.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ cp.c +iauCpv.o : cpv.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ cpv.c +iauCr.o : cr.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ cr.c +iauD2dtf.o : d2dtf.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ d2dtf.c +iauD2tf.o : d2tf.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ d2tf.c +iauDat.o : dat.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ dat.c +iauDtdb.o : dtdb.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ dtdb.c +iauDtf2d.o : dtf2d.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ dtf2d.c +iauEe00.o : ee00.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ee00.c +iauEe00a.o : ee00a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ee00a.c +iauEe00b.o : ee00b.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ee00b.c +iauEe06a.o : ee06a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ee06a.c +iauEect00.o : eect00.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ eect00.c +iauEform.o : eform.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ eform.c +iauEo06a.o : eo06a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ eo06a.c +iauEors.o : eors.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ eors.c +iauEpb.o : epb.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ epb.c +iauEpb2jd.o : epb2jd.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ epb2jd.c +iauEpj.o : epj.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ epj.c +iauEpj2jd.o : epj2jd.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ epj2jd.c +iauEpv00.o : epv00.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ epv00.c +iauEqeq94.o : eqeq94.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ eqeq94.c +iauEra00.o : era00.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ era00.c +iauFad03.o : fad03.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ fad03.c +iauFae03.o : fae03.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ fae03.c +iauFaf03.o : faf03.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ faf03.c +iauFaju03.o : faju03.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ faju03.c +iauFal03.o : fal03.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ fal03.c +iauFalp03.o : falp03.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ falp03.c +iauFama03.o : fama03.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ fama03.c +iauFame03.o : fame03.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ fame03.c +iauFane03.o : fane03.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ fane03.c +iauFaom03.o : faom03.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ faom03.c +iauFapa03.o : fapa03.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ fapa03.c +iauFasa03.o : fasa03.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ fasa03.c +iauFaur03.o : faur03.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ faur03.c +iauFave03.o : fave03.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ fave03.c +iauFk52h.o : fk52h.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ fk52h.c +iauFk5hip.o : fk5hip.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ fk5hip.c +iauFk5hz.o : fk5hz.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ fk5hz.c +iauFw2m.o : fw2m.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ fw2m.c +iauFw2xy.o : fw2xy.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ fw2xy.c +iauG2icrs.o : g2icrs.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ g2icrs.c +iauGc2gd.o : gc2gd.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ gc2gd.c +iauGc2gde.o : gc2gde.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ gc2gde.c +iauGd2gc.o : gd2gc.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ gd2gc.c +iauGd2gce.o : gd2gce.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ gd2gce.c +iauGmst00.o : gmst00.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ gmst00.c +iauGmst06.o : gmst06.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ gmst06.c +iauGmst82.o : gmst82.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ gmst82.c +iauGst00a.o : gst00a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ gst00a.c +iauGst00b.o : gst00b.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ gst00b.c +iauGst06.o : gst06.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ gst06.c +iauGst06a.o : gst06a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ gst06a.c +iauGst94.o : gst94.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ gst94.c +iauH2fk5.o : h2fk5.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ h2fk5.c +iauHfk5z.o : hfk5z.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ hfk5z.c +iauIcrs2g.o : icrs2g.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ icrs2g.c +iauIr.o : ir.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ir.c +iauJd2cal.o : jd2cal.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ jd2cal.c +iauJdcalf.o : jdcalf.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ jdcalf.c +iauLd.o : ld.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ld.c +iauLdn.o : ldn.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ldn.c +iauLdsun.o : ldsun.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ldsun.c +iauNum00a.o : num00a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ num00a.c +iauNum00b.o : num00b.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ num00b.c +iauNum06a.o : num06a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ num06a.c +iauNumat.o : numat.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ numat.c +iauNut00a.o : nut00a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ nut00a.c +iauNut00b.o : nut00b.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ nut00b.c +iauNut06a.o : nut06a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ nut06a.c +iauNut80.o : nut80.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ nut80.c +iauNutm80.o : nutm80.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ nutm80.c +iauObl06.o : obl06.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ obl06.c +iauObl80.o : obl80.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ obl80.c +iauP06e.o : p06e.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ p06e.c +iauP2pv.o : p2pv.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ p2pv.c +iauP2s.o : p2s.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ p2s.c +iauPap.o : pap.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pap.c +iauPas.o : pas.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pas.c +iauPb06.o : pb06.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pb06.c +iauPdp.o : pdp.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pdp.c +iauPfw06.o : pfw06.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pfw06.c +iauPlan94.o : plan94.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ plan94.c +iauPm.o : pm.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pm.c +iauPmat00.o : pmat00.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pmat00.c +iauPmat06.o : pmat06.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pmat06.c +iauPmat76.o : pmat76.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pmat76.c +iauPmp.o : pmp.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pmp.c +iauPmpx.o : pmpx.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pmpx.c +iauPmsafe.o : pmsafe.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pmsafe.c +iauPn.o : pn.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pn.c +iauPn00.o : pn00.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pn00.c +iauPn00a.o : pn00a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pn00a.c +iauPn00b.o : pn00b.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pn00b.c +iauPn06.o : pn06.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pn06.c +iauPn06a.o : pn06a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pn06a.c +iauPnm00a.o : pnm00a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pnm00a.c +iauPnm00b.o : pnm00b.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pnm00b.c +iauPnm06a.o : pnm06a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pnm06a.c +iauPnm80.o : pnm80.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pnm80.c +iauPom00.o : pom00.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pom00.c +iauPpp.o : ppp.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ppp.c +iauPpsp.o : ppsp.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ppsp.c +iauPr00.o : pr00.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pr00.c +iauPrec76.o : prec76.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ prec76.c +iauPv2p.o : pv2p.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pv2p.c +iauPv2s.o : pv2s.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pv2s.c +iauPvdpv.o : pvdpv.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pvdpv.c +iauPvm.o : pvm.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pvm.c +iauPvmpv.o : pvmpv.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pvmpv.c +iauPvppv.o : pvppv.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pvppv.c +iauPvstar.o : pvstar.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pvstar.c +iauPvtob.o : pvtob.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pvtob.c +iauPvu.o : pvu.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pvu.c +iauPvup.o : pvup.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pvup.c +iauPvxpv.o : pvxpv.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pvxpv.c +iauPxp.o : pxp.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ pxp.c +iauRefco.o : refco.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ refco.c +iauRm2v.o : rm2v.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ rm2v.c +iauRv2m.o : rv2m.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ rv2m.c +iauRx.o : rx.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ rx.c +iauRxp.o : rxp.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ rxp.c +iauRxpv.o : rxpv.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ rxpv.c +iauRxr.o : rxr.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ rxr.c +iauRy.o : ry.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ry.c +iauRz.o : rz.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ rz.c +iauS00.o : s00.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ s00.c +iauS00a.o : s00a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ s00a.c +iauS00b.o : s00b.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ s00b.c +iauS06.o : s06.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ s06.c +iauS06a.o : s06a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ s06a.c +iauS2c.o : s2c.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ s2c.c +iauS2p.o : s2p.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ s2p.c +iauS2pv.o : s2pv.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ s2pv.c +iauS2xpv.o : s2xpv.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ s2xpv.c +iauSepp.o : sepp.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ sepp.c +iauSeps.o : seps.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ seps.c +iauSp00.o : sp00.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ sp00.c +iauStarpm.o : starpm.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ starpm.c +iauStarpv.o : starpv.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ starpv.c +iauSxp.o : sxp.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ sxp.c +iauSxpv.o : sxpv.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ sxpv.c +iauTaitt.o : taitt.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ taitt.c +iauTaiut1.o : taiut1.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ taiut1.c +iauTaiutc.o : taiutc.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ taiutc.c +iauTcbtdb.o : tcbtdb.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ tcbtdb.c +iauTcgtt.o : tcgtt.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ tcgtt.c +iauTdbtcb.o : tdbtcb.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ tdbtcb.c +iauTdbtt.o : tdbtt.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ tdbtt.c +iauTf2a.o : tf2a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ tf2a.c +iauTf2d.o : tf2d.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ tf2d.c +iauTr.o : tr.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ tr.c +iauTrxp.o : trxp.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ trxp.c +iauTrxpv.o : trxpv.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ trxpv.c +iauTttai.o : tttai.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ tttai.c +iauTttcg.o : tttcg.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ tttcg.c +iauTttdb.o : tttdb.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ tttdb.c +iauTtut1.o : ttut1.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ttut1.c +iauUt1tai.o : ut1tai.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ut1tai.c +iauUt1tt.o : ut1tt.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ut1tt.c +iauUt1utc.o : ut1utc.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ ut1utc.c +iauUtctai.o : utctai.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ utctai.c +iauUtcut1.o : utcut1.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ utcut1.c +iauXy06.o : xy06.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ xy06.c +iauXys00a.o : xys00a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ xys00a.c +iauXys00b.o : xys00b.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ xys00b.c +iauXys06a.o : xys06a.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ xys06a.c +iauZp.o : zp.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ zp.c +iauZpv.o : zpv.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ zpv.c +iauZr.o : zr.c sofa.h sofam.h + $(CCOMPC) $(CFLAGF) -o $@ zr.c + +#----------------------------------------------------------------------- Index: /trunk/FACT++/sofa/src/num00a.c =================================================================== --- /trunk/FACT++/sofa/src/num00a.c (revision 18346) +++ /trunk/FACT++/sofa/src/num00a.c (revision 18346) @@ -0,0 +1,170 @@ +#include "sofa.h" + +void iauNum00a(double date1, double date2, double rmatn[3][3]) +/* +** - - - - - - - - - - +** i a u N u m 0 0 a +** - - - - - - - - - - +** +** Form the matrix of nutation for a given date, IAU 2000A model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rmatn double[3][3] nutation matrix +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(true) = rmatn * V(mean), where +** the p-vector V(true) is with respect to the true equatorial triad +** of date and the p-vector V(mean) is with respect to the mean +** equatorial triad of date. +** +** 3) A faster, but slightly less accurate result (about 1 mas), can be +** obtained by using instead the iauNum00b function. +** +** Called: +** iauPn00a bias/precession/nutation, IAU 2000A +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 3.222-3 (p114). +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double dpsi, deps, epsa, rb[3][3], rp[3][3], rbp[3][3], rbpn[3][3]; + +/* Obtain the required matrix (discarding other results). */ + iauPn00a(date1, date2, + &dpsi, &deps, &epsa, rb, rp, rbp, rmatn, rbpn); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/num00b.c =================================================================== --- /trunk/FACT++/sofa/src/num00b.c (revision 18346) +++ /trunk/FACT++/sofa/src/num00b.c (revision 18346) @@ -0,0 +1,170 @@ +#include "sofa.h" + +void iauNum00b(double date1, double date2, double rmatn[3][3]) +/* +** - - - - - - - - - - +** i a u N u m 0 0 b +** - - - - - - - - - - +** +** Form the matrix of nutation for a given date, IAU 2000B model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rmatn double[3][3] nutation matrix +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(true) = rmatn * V(mean), where +** the p-vector V(true) is with respect to the true equatorial triad +** of date and the p-vector V(mean) is with respect to the mean +** equatorial triad of date. +** +** 3) The present function is faster, but slightly less accurate (about +** 1 mas), than the iauNum00a function. +** +** Called: +** iauPn00b bias/precession/nutation, IAU 2000B +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 3.222-3 (p114). +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double dpsi, deps, epsa, rb[3][3], rp[3][3], rbp[3][3], rbpn[3][3]; + +/* Obtain the required matrix (discarding other results). */ + iauPn00b(date1, date2, + &dpsi, &deps, &epsa, rb, rp, rbp, rmatn, rbpn); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/num06a.c =================================================================== --- /trunk/FACT++/sofa/src/num06a.c (revision 18346) +++ /trunk/FACT++/sofa/src/num06a.c (revision 18346) @@ -0,0 +1,174 @@ +#include "sofa.h" + +void iauNum06a(double date1, double date2, double rmatn[3][3]) +/* +** - - - - - - - - - - +** i a u N u m 0 6 a +** - - - - - - - - - - +** +** Form the matrix of nutation for a given date, IAU 2006/2000A model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rmatn double[3][3] nutation matrix +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(true) = rmatn * V(mean), where +** the p-vector V(true) is with respect to the true equatorial triad +** of date and the p-vector V(mean) is with respect to the mean +** equatorial triad of date. +** +** Called: +** iauObl06 mean obliquity, IAU 2006 +** iauNut06a nutation, IAU 2006/2000A +** iauNumat form nutation matrix +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 3.222-3 (p114). +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double eps, dp, de; + +/* Mean obliquity. */ + eps = iauObl06(date1, date2); + +/* Nutation components. */ + iauNut06a(date1, date2, &dp, &de); + +/* Nutation matrix. */ + iauNumat(eps, dp, de, rmatn); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/numat.c =================================================================== --- /trunk/FACT++/sofa/src/numat.c (revision 18346) +++ /trunk/FACT++/sofa/src/numat.c (revision 18346) @@ -0,0 +1,158 @@ +#include "sofa.h" + +void iauNumat(double epsa, double dpsi, double deps, double rmatn[3][3]) +/* +** - - - - - - - - - +** i a u N u m a t +** - - - - - - - - - +** +** Form the matrix of nutation. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** epsa double mean obliquity of date (Note 1) +** dpsi,deps double nutation (Note 2) +** +** Returned: +** rmatn double[3][3] nutation matrix (Note 3) +** +** Notes: +** +** 1) The supplied mean obliquity epsa, must be consistent with the +** precession-nutation models from which dpsi and deps were obtained. +** +** 2) The caller is responsible for providing the nutation components; +** they are in longitude and obliquity, in radians and are with +** respect to the equinox and ecliptic of date. +** +** 3) The matrix operates in the sense V(true) = rmatn * V(mean), +** where the p-vector V(true) is with respect to the true +** equatorial triad of date and the p-vector V(mean) is with +** respect to the mean equatorial triad of date. +** +** Called: +** iauIr initialize r-matrix to identity +** iauRx rotate around X-axis +** iauRz rotate around Z-axis +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 3.222-3 (p114). +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Build the rotation matrix. */ + iauIr(rmatn); + iauRx(epsa, rmatn); + iauRz(-dpsi, rmatn); + iauRx(-(epsa + deps), rmatn); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/nut00a.c =================================================================== --- /trunk/FACT++/sofa/src/nut00a.c (revision 18346) +++ /trunk/FACT++/sofa/src/nut00a.c (revision 18346) @@ -0,0 +1,2097 @@ +#include "sofa.h" + +void iauNut00a(double date1, double date2, double *dpsi, double *deps) +/* +** - - - - - - - - - - +** i a u N u t 0 0 a +** - - - - - - - - - - +** +** Nutation, IAU 2000A model (MHB2000 luni-solar and planetary nutation +** with free core nutation omitted). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsi,deps double nutation, luni-solar + planetary (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The nutation components in longitude and obliquity are in radians +** and with respect to the equinox and ecliptic of date. The +** obliquity at J2000.0 is assumed to be the Lieske et al. (1977) +** value of 84381.448 arcsec. +** +** Both the luni-solar and planetary nutations are included. The +** latter are due to direct planetary nutations and the +** perturbations of the lunar and terrestrial orbits. +** +** 3) The function computes the MHB2000 nutation series with the +** associated corrections for planetary nutations. It is an +** implementation of the nutation part of the IAU 2000A precession- +** nutation model, formally adopted by the IAU General Assembly in +** 2000, namely MHB2000 (Mathews et al. 2002), but with the free +** core nutation (FCN - see Note 4) omitted. +** +** 4) The full MHB2000 model also contains contributions to the +** nutations in longitude and obliquity due to the free-excitation +** of the free-core-nutation during the period 1979-2000. These FCN +** terms, which are time-dependent and unpredictable, are NOT +** included in the present function and, if required, must be +** independently computed. With the FCN corrections included, the +** present function delivers a pole which is at current epochs +** accurate to a few hundred microarcseconds. The omission of FCN +** introduces further errors of about that size. +** +** 5) The present function provides classical nutation. The MHB2000 +** algorithm, from which it is adapted, deals also with (i) the +** offsets between the GCRS and mean poles and (ii) the adjustments +** in longitude and obliquity due to the changed precession rates. +** These additional functions, namely frame bias and precession +** adjustments, are supported by the SOFA functions iauBi00 and +** iauPr00. +** +** 6) The MHB2000 algorithm also provides "total" nutations, comprising +** the arithmetic sum of the frame bias, precession adjustments, +** luni-solar nutation and planetary nutation. These total +** nutations can be used in combination with an existing IAU 1976 +** precession implementation, such as iauPmat76, to deliver GCRS- +** to-true predictions of sub-mas accuracy at current dates. +** However, there are three shortcomings in the MHB2000 model that +** must be taken into account if more accurate or definitive results +** are required (see Wallace 2002): +** +** (i) The MHB2000 total nutations are simply arithmetic sums, +** yet in reality the various components are successive Euler +** rotations. This slight lack of rigor leads to cross terms +** that exceed 1 mas after a century. The rigorous procedure +** is to form the GCRS-to-true rotation matrix by applying the +** bias, precession and nutation in that order. +** +** (ii) Although the precession adjustments are stated to be with +** respect to Lieske et al. (1977), the MHB2000 model does +** not specify which set of Euler angles are to be used and +** how the adjustments are to be applied. The most literal +** and straightforward procedure is to adopt the 4-rotation +** epsilon_0, psi_A, omega_A, xi_A option, and to add DPSIPR +** to psi_A and DEPSPR to both omega_A and eps_A. +** +** (iii) The MHB2000 model predates the determination by Chapront +** et al. (2002) of a 14.6 mas displacement between the +** J2000.0 mean equinox and the origin of the ICRS frame. It +** should, however, be noted that neglecting this displacement +** when calculating star coordinates does not lead to a +** 14.6 mas change in right ascension, only a small second- +** order distortion in the pattern of the precession-nutation +** effect. +** +** For these reasons, the SOFA functions do not generate the "total +** nutations" directly, though they can of course easily be +** generated by calling iauBi00, iauPr00 and the present function +** and adding the results. +** +** 7) The MHB2000 model contains 41 instances where the same frequency +** appears multiple times, of which 38 are duplicates and three are +** triplicates. To keep the present code close to the original MHB +** algorithm, this small inefficiency has not been corrected. +** +** Called: +** iauFal03 mean anomaly of the Moon +** iauFaf03 mean argument of the latitude of the Moon +** iauFaom03 mean longitude of the Moon's ascending node +** iauFame03 mean longitude of Mercury +** iauFave03 mean longitude of Venus +** iauFae03 mean longitude of Earth +** iauFama03 mean longitude of Mars +** iauFaju03 mean longitude of Jupiter +** iauFasa03 mean longitude of Saturn +** iauFaur03 mean longitude of Uranus +** iauFapa03 general accumulated precession in longitude +** +** References: +** +** Chapront, J., Chapront-Touze, M. & Francou, G. 2002, +** Astron.Astrophys. 387, 700 +** +** Lieske, J.H., Lederle, T., Fricke, W. & Morando, B. 1977, +** Astron.Astrophys. 58, 1-16 +** +** Mathews, P.M., Herring, T.A., Buffet, B.A. 2002, J.Geophys.Res. +** 107, B4. The MHB_2000 code itself was obtained on 9th September +** 2002 from ftp//maia.usno.navy.mil/conv2000/chapter5/IAU2000A. +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +** Wallace, P.T., "Software for Implementing the IAU 2000 +** Resolutions", in IERS Workshop 5.1 (2002) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int i; + double t, el, elp, f, d, om, arg, dp, de, sarg, carg, + al, af, ad, aom, alme, alve, alea, alma, + alju, alsa, alur, alne, apa, dpsils, depsls, + dpsipl, depspl; + +/* Units of 0.1 microarcsecond to radians */ + const double U2R = DAS2R / 1e7; + +/* ------------------------- */ +/* Luni-Solar nutation model */ +/* ------------------------- */ + +/* The units for the sine and cosine coefficients are */ +/* 0.1 microarcsecond and the same per Julian century */ + + static const struct { + int nl,nlp,nf,nd,nom; /* coefficients of l,l',F,D,Om */ + double sp,spt,cp; /* longitude sin, t*sin, cos coefficients */ + double ce,cet,se; /* obliquity cos, t*cos, sin coefficients */ + } xls[] = { + + /* 1- 10 */ + { 0, 0, 0, 0, 1, + -172064161.0, -174666.0, 33386.0, 92052331.0, 9086.0, 15377.0}, + { 0, 0, 2,-2, 2, + -13170906.0, -1675.0, -13696.0, 5730336.0, -3015.0, -4587.0}, + { 0, 0, 2, 0, 2,-2276413.0,-234.0,2796.0,978459.0,-485.0, 1374.0}, + { 0, 0, 0, 0, 2,2074554.0, 207.0, -698.0,-897492.0,470.0, -291.0}, + { 0, 1, 0, 0, 0,1475877.0,-3633.0,11817.0,73871.0,-184.0,-1924.0}, + { 0, 1, 2,-2, 2,-516821.0,1226.0, -524.0,224386.0,-677.0, -174.0}, + { 1, 0, 0, 0, 0, 711159.0, 73.0, -872.0, -6750.0, 0.0, 358.0}, + { 0, 0, 2, 0, 1,-387298.0,-367.0, 380.0, 200728.0, 18.0, 318.0}, + { 1, 0, 2, 0, 2,-301461.0, -36.0, 816.0, 129025.0,-63.0, 367.0}, + { 0,-1, 2,-2, 2, 215829.0,-494.0, 111.0, -95929.0,299.0, 132.0}, + + /* 11-20 */ + { 0, 0, 2,-2, 1, 128227.0, 137.0, 181.0, -68982.0, -9.0, 39.0}, + {-1, 0, 2, 0, 2, 123457.0, 11.0, 19.0, -53311.0, 32.0, -4.0}, + {-1, 0, 0, 2, 0, 156994.0, 10.0, -168.0, -1235.0, 0.0, 82.0}, + { 1, 0, 0, 0, 1, 63110.0, 63.0, 27.0, -33228.0, 0.0, -9.0}, + {-1, 0, 0, 0, 1, -57976.0, -63.0, -189.0, 31429.0, 0.0, -75.0}, + {-1, 0, 2, 2, 2, -59641.0, -11.0, 149.0, 25543.0,-11.0, 66.0}, + { 1, 0, 2, 0, 1, -51613.0, -42.0, 129.0, 26366.0, 0.0, 78.0}, + {-2, 0, 2, 0, 1, 45893.0, 50.0, 31.0, -24236.0,-10.0, 20.0}, + { 0, 0, 0, 2, 0, 63384.0, 11.0, -150.0, -1220.0, 0.0, 29.0}, + { 0, 0, 2, 2, 2, -38571.0, -1.0, 158.0, 16452.0,-11.0, 68.0}, + + /* 21-30 */ + { 0,-2, 2,-2, 2, 32481.0, 0.0, 0.0, -13870.0, 0.0, 0.0}, + {-2, 0, 0, 2, 0, -47722.0, 0.0, -18.0, 477.0, 0.0, -25.0}, + { 2, 0, 2, 0, 2, -31046.0, -1.0, 131.0, 13238.0,-11.0, 59.0}, + { 1, 0, 2,-2, 2, 28593.0, 0.0, -1.0, -12338.0, 10.0, -3.0}, + {-1, 0, 2, 0, 1, 20441.0, 21.0, 10.0, -10758.0, 0.0, -3.0}, + { 2, 0, 0, 0, 0, 29243.0, 0.0, -74.0, -609.0, 0.0, 13.0}, + { 0, 0, 2, 0, 0, 25887.0, 0.0, -66.0, -550.0, 0.0, 11.0}, + { 0, 1, 0, 0, 1, -14053.0, -25.0, 79.0, 8551.0, -2.0, -45.0}, + {-1, 0, 0, 2, 1, 15164.0, 10.0, 11.0, -8001.0, 0.0, -1.0}, + { 0, 2, 2,-2, 2, -15794.0, 72.0, -16.0, 6850.0,-42.0, -5.0}, + + /* 31-40 */ + { 0, 0,-2, 2, 0, 21783.0, 0.0, 13.0, -167.0, 0.0, 13.0}, + { 1, 0, 0,-2, 1, -12873.0, -10.0, -37.0, 6953.0, 0.0, -14.0}, + { 0,-1, 0, 0, 1, -12654.0, 11.0, 63.0, 6415.0, 0.0, 26.0}, + {-1, 0, 2, 2, 1, -10204.0, 0.0, 25.0, 5222.0, 0.0, 15.0}, + { 0, 2, 0, 0, 0, 16707.0, -85.0, -10.0, 168.0, -1.0, 10.0}, + { 1, 0, 2, 2, 2, -7691.0, 0.0, 44.0, 3268.0, 0.0, 19.0}, + {-2, 0, 2, 0, 0, -11024.0, 0.0, -14.0, 104.0, 0.0, 2.0}, + { 0, 1, 2, 0, 2, 7566.0, -21.0, -11.0, -3250.0, 0.0, -5.0}, + { 0, 0, 2, 2, 1, -6637.0, -11.0, 25.0, 3353.0, 0.0, 14.0}, + { 0,-1, 2, 0, 2, -7141.0, 21.0, 8.0, 3070.0, 0.0, 4.0}, + + /* 41-50 */ + { 0, 0, 0, 2, 1, -6302.0, -11.0, 2.0, 3272.0, 0.0, 4.0}, + { 1, 0, 2,-2, 1, 5800.0, 10.0, 2.0, -3045.0, 0.0, -1.0}, + { 2, 0, 2,-2, 2, 6443.0, 0.0, -7.0, -2768.0, 0.0, -4.0}, + {-2, 0, 0, 2, 1, -5774.0, -11.0, -15.0, 3041.0, 0.0, -5.0}, + { 2, 0, 2, 0, 1, -5350.0, 0.0, 21.0, 2695.0, 0.0, 12.0}, + { 0,-1, 2,-2, 1, -4752.0, -11.0, -3.0, 2719.0, 0.0, -3.0}, + { 0, 0, 0,-2, 1, -4940.0, -11.0, -21.0, 2720.0, 0.0, -9.0}, + {-1,-1, 0, 2, 0, 7350.0, 0.0, -8.0, -51.0, 0.0, 4.0}, + { 2, 0, 0,-2, 1, 4065.0, 0.0, 6.0, -2206.0, 0.0, 1.0}, + { 1, 0, 0, 2, 0, 6579.0, 0.0, -24.0, -199.0, 0.0, 2.0}, + + /* 51-60 */ + { 0, 1, 2,-2, 1, 3579.0, 0.0, 5.0, -1900.0, 0.0, 1.0}, + { 1,-1, 0, 0, 0, 4725.0, 0.0, -6.0, -41.0, 0.0, 3.0}, + {-2, 0, 2, 0, 2, -3075.0, 0.0, -2.0, 1313.0, 0.0, -1.0}, + { 3, 0, 2, 0, 2, -2904.0, 0.0, 15.0, 1233.0, 0.0, 7.0}, + { 0,-1, 0, 2, 0, 4348.0, 0.0, -10.0, -81.0, 0.0, 2.0}, + { 1,-1, 2, 0, 2, -2878.0, 0.0, 8.0, 1232.0, 0.0, 4.0}, + { 0, 0, 0, 1, 0, -4230.0, 0.0, 5.0, -20.0, 0.0, -2.0}, + {-1,-1, 2, 2, 2, -2819.0, 0.0, 7.0, 1207.0, 0.0, 3.0}, + {-1, 0, 2, 0, 0, -4056.0, 0.0, 5.0, 40.0, 0.0, -2.0}, + { 0,-1, 2, 2, 2, -2647.0, 0.0, 11.0, 1129.0, 0.0, 5.0}, + + /* 61-70 */ + {-2, 0, 0, 0, 1, -2294.0, 0.0, -10.0, 1266.0, 0.0, -4.0}, + { 1, 1, 2, 0, 2, 2481.0, 0.0, -7.0, -1062.0, 0.0, -3.0}, + { 2, 0, 0, 0, 1, 2179.0, 0.0, -2.0, -1129.0, 0.0, -2.0}, + {-1, 1, 0, 1, 0, 3276.0, 0.0, 1.0, -9.0, 0.0, 0.0}, + { 1, 1, 0, 0, 0, -3389.0, 0.0, 5.0, 35.0, 0.0, -2.0}, + { 1, 0, 2, 0, 0, 3339.0, 0.0, -13.0, -107.0, 0.0, 1.0}, + {-1, 0, 2,-2, 1, -1987.0, 0.0, -6.0, 1073.0, 0.0, -2.0}, + { 1, 0, 0, 0, 2, -1981.0, 0.0, 0.0, 854.0, 0.0, 0.0}, + {-1, 0, 0, 1, 0, 4026.0, 0.0, -353.0, -553.0, 0.0, -139.0}, + { 0, 0, 2, 1, 2, 1660.0, 0.0, -5.0, -710.0, 0.0, -2.0}, + + /* 71-80 */ + {-1, 0, 2, 4, 2, -1521.0, 0.0, 9.0, 647.0, 0.0, 4.0}, + {-1, 1, 0, 1, 1, 1314.0, 0.0, 0.0, -700.0, 0.0, 0.0}, + { 0,-2, 2,-2, 1, -1283.0, 0.0, 0.0, 672.0, 0.0, 0.0}, + { 1, 0, 2, 2, 1, -1331.0, 0.0, 8.0, 663.0, 0.0, 4.0}, + {-2, 0, 2, 2, 2, 1383.0, 0.0, -2.0, -594.0, 0.0, -2.0}, + {-1, 0, 0, 0, 2, 1405.0, 0.0, 4.0, -610.0, 0.0, 2.0}, + { 1, 1, 2,-2, 2, 1290.0, 0.0, 0.0, -556.0, 0.0, 0.0}, + {-2, 0, 2, 4, 2, -1214.0, 0.0, 5.0, 518.0, 0.0, 2.0}, + {-1, 0, 4, 0, 2, 1146.0, 0.0, -3.0, -490.0, 0.0, -1.0}, + { 2, 0, 2,-2, 1, 1019.0, 0.0, -1.0, -527.0, 0.0, -1.0}, + + /* 81-90 */ + { 2, 0, 2, 2, 2, -1100.0, 0.0, 9.0, 465.0, 0.0, 4.0}, + { 1, 0, 0, 2, 1, -970.0, 0.0, 2.0, 496.0, 0.0, 1.0}, + { 3, 0, 0, 0, 0, 1575.0, 0.0, -6.0, -50.0, 0.0, 0.0}, + { 3, 0, 2,-2, 2, 934.0, 0.0, -3.0, -399.0, 0.0, -1.0}, + { 0, 0, 4,-2, 2, 922.0, 0.0, -1.0, -395.0, 0.0, -1.0}, + { 0, 1, 2, 0, 1, 815.0, 0.0, -1.0, -422.0, 0.0, -1.0}, + { 0, 0,-2, 2, 1, 834.0, 0.0, 2.0, -440.0, 0.0, 1.0}, + { 0, 0, 2,-2, 3, 1248.0, 0.0, 0.0, -170.0, 0.0, 1.0}, + {-1, 0, 0, 4, 0, 1338.0, 0.0, -5.0, -39.0, 0.0, 0.0}, + { 2, 0,-2, 0, 1, 716.0, 0.0, -2.0, -389.0, 0.0, -1.0}, + + /* 91-100 */ + {-2, 0, 0, 4, 0, 1282.0, 0.0, -3.0, -23.0, 0.0, 1.0}, + {-1,-1, 0, 2, 1, 742.0, 0.0, 1.0, -391.0, 0.0, 0.0}, + {-1, 0, 0, 1, 1, 1020.0, 0.0, -25.0, -495.0, 0.0, -10.0}, + { 0, 1, 0, 0, 2, 715.0, 0.0, -4.0, -326.0, 0.0, 2.0}, + { 0, 0,-2, 0, 1, -666.0, 0.0, -3.0, 369.0, 0.0, -1.0}, + { 0,-1, 2, 0, 1, -667.0, 0.0, 1.0, 346.0, 0.0, 1.0}, + { 0, 0, 2,-1, 2, -704.0, 0.0, 0.0, 304.0, 0.0, 0.0}, + { 0, 0, 2, 4, 2, -694.0, 0.0, 5.0, 294.0, 0.0, 2.0}, + {-2,-1, 0, 2, 0, -1014.0, 0.0, -1.0, 4.0, 0.0, -1.0}, + { 1, 1, 0,-2, 1, -585.0, 0.0, -2.0, 316.0, 0.0, -1.0}, + + /* 101-110 */ + {-1, 1, 0, 2, 0, -949.0, 0.0, 1.0, 8.0, 0.0, -1.0}, + {-1, 1, 0, 1, 2, -595.0, 0.0, 0.0, 258.0, 0.0, 0.0}, + { 1,-1, 0, 0, 1, 528.0, 0.0, 0.0, -279.0, 0.0, 0.0}, + { 1,-1, 2, 2, 2, -590.0, 0.0, 4.0, 252.0, 0.0, 2.0}, + {-1, 1, 2, 2, 2, 570.0, 0.0, -2.0, -244.0, 0.0, -1.0}, + { 3, 0, 2, 0, 1, -502.0, 0.0, 3.0, 250.0, 0.0, 2.0}, + { 0, 1,-2, 2, 0, -875.0, 0.0, 1.0, 29.0, 0.0, 0.0}, + {-1, 0, 0,-2, 1, -492.0, 0.0, -3.0, 275.0, 0.0, -1.0}, + { 0, 1, 2, 2, 2, 535.0, 0.0, -2.0, -228.0, 0.0, -1.0}, + {-1,-1, 2, 2, 1, -467.0, 0.0, 1.0, 240.0, 0.0, 1.0}, + + /* 111-120 */ + { 0,-1, 0, 0, 2, 591.0, 0.0, 0.0, -253.0, 0.0, 0.0}, + { 1, 0, 2,-4, 1, -453.0, 0.0, -1.0, 244.0, 0.0, -1.0}, + {-1, 0,-2, 2, 0, 766.0, 0.0, 1.0, 9.0, 0.0, 0.0}, + { 0,-1, 2, 2, 1, -446.0, 0.0, 2.0, 225.0, 0.0, 1.0}, + { 2,-1, 2, 0, 2, -488.0, 0.0, 2.0, 207.0, 0.0, 1.0}, + { 0, 0, 0, 2, 2, -468.0, 0.0, 0.0, 201.0, 0.0, 0.0}, + { 1,-1, 2, 0, 1, -421.0, 0.0, 1.0, 216.0, 0.0, 1.0}, + {-1, 1, 2, 0, 2, 463.0, 0.0, 0.0, -200.0, 0.0, 0.0}, + { 0, 1, 0, 2, 0, -673.0, 0.0, 2.0, 14.0, 0.0, 0.0}, + { 0,-1,-2, 2, 0, 658.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + + /* 121-130 */ + { 0, 3, 2,-2, 2, -438.0, 0.0, 0.0, 188.0, 0.0, 0.0}, + { 0, 0, 0, 1, 1, -390.0, 0.0, 0.0, 205.0, 0.0, 0.0}, + {-1, 0, 2, 2, 0, 639.0, -11.0, -2.0, -19.0, 0.0, 0.0}, + { 2, 1, 2, 0, 2, 412.0, 0.0, -2.0, -176.0, 0.0, -1.0}, + { 1, 1, 0, 0, 1, -361.0, 0.0, 0.0, 189.0, 0.0, 0.0}, + { 1, 1, 2, 0, 1, 360.0, 0.0, -1.0, -185.0, 0.0, -1.0}, + { 2, 0, 0, 2, 0, 588.0, 0.0, -3.0, -24.0, 0.0, 0.0}, + { 1, 0,-2, 2, 0, -578.0, 0.0, 1.0, 5.0, 0.0, 0.0}, + {-1, 0, 0, 2, 2, -396.0, 0.0, 0.0, 171.0, 0.0, 0.0}, + { 0, 1, 0, 1, 0, 565.0, 0.0, -1.0, -6.0, 0.0, 0.0}, + + /* 131-140 */ + { 0, 1, 0,-2, 1, -335.0, 0.0, -1.0, 184.0, 0.0, -1.0}, + {-1, 0, 2,-2, 2, 357.0, 0.0, 1.0, -154.0, 0.0, 0.0}, + { 0, 0, 0,-1, 1, 321.0, 0.0, 1.0, -174.0, 0.0, 0.0}, + {-1, 1, 0, 0, 1, -301.0, 0.0, -1.0, 162.0, 0.0, 0.0}, + { 1, 0, 2,-1, 2, -334.0, 0.0, 0.0, 144.0, 0.0, 0.0}, + { 1,-1, 0, 2, 0, 493.0, 0.0, -2.0, -15.0, 0.0, 0.0}, + { 0, 0, 0, 4, 0, 494.0, 0.0, -2.0, -19.0, 0.0, 0.0}, + { 1, 0, 2, 1, 2, 337.0, 0.0, -1.0, -143.0, 0.0, -1.0}, + { 0, 0, 2, 1, 1, 280.0, 0.0, -1.0, -144.0, 0.0, 0.0}, + { 1, 0, 0,-2, 2, 309.0, 0.0, 1.0, -134.0, 0.0, 0.0}, + + /* 141-150 */ + {-1, 0, 2, 4, 1, -263.0, 0.0, 2.0, 131.0, 0.0, 1.0}, + { 1, 0,-2, 0, 1, 253.0, 0.0, 1.0, -138.0, 0.0, 0.0}, + { 1, 1, 2,-2, 1, 245.0, 0.0, 0.0, -128.0, 0.0, 0.0}, + { 0, 0, 2, 2, 0, 416.0, 0.0, -2.0, -17.0, 0.0, 0.0}, + {-1, 0, 2,-1, 1, -229.0, 0.0, 0.0, 128.0, 0.0, 0.0}, + {-2, 0, 2, 2, 1, 231.0, 0.0, 0.0, -120.0, 0.0, 0.0}, + { 4, 0, 2, 0, 2, -259.0, 0.0, 2.0, 109.0, 0.0, 1.0}, + { 2,-1, 0, 0, 0, 375.0, 0.0, -1.0, -8.0, 0.0, 0.0}, + { 2, 1, 2,-2, 2, 252.0, 0.0, 0.0, -108.0, 0.0, 0.0}, + { 0, 1, 2, 1, 2, -245.0, 0.0, 1.0, 104.0, 0.0, 0.0}, + + /* 151-160 */ + { 1, 0, 4,-2, 2, 243.0, 0.0, -1.0, -104.0, 0.0, 0.0}, + {-1,-1, 0, 0, 1, 208.0, 0.0, 1.0, -112.0, 0.0, 0.0}, + { 0, 1, 0, 2, 1, 199.0, 0.0, 0.0, -102.0, 0.0, 0.0}, + {-2, 0, 2, 4, 1, -208.0, 0.0, 1.0, 105.0, 0.0, 0.0}, + { 2, 0, 2, 0, 0, 335.0, 0.0, -2.0, -14.0, 0.0, 0.0}, + { 1, 0, 0, 1, 0, -325.0, 0.0, 1.0, 7.0, 0.0, 0.0}, + {-1, 0, 0, 4, 1, -187.0, 0.0, 0.0, 96.0, 0.0, 0.0}, + {-1, 0, 4, 0, 1, 197.0, 0.0, -1.0, -100.0, 0.0, 0.0}, + { 2, 0, 2, 2, 1, -192.0, 0.0, 2.0, 94.0, 0.0, 1.0}, + { 0, 0, 2,-3, 2, -188.0, 0.0, 0.0, 83.0, 0.0, 0.0}, + + /* 161-170 */ + {-1,-2, 0, 2, 0, 276.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 2, 1, 0, 0, 0, -286.0, 0.0, 1.0, 6.0, 0.0, 0.0}, + { 0, 0, 4, 0, 2, 186.0, 0.0, -1.0, -79.0, 0.0, 0.0}, + { 0, 0, 0, 0, 3, -219.0, 0.0, 0.0, 43.0, 0.0, 0.0}, + { 0, 3, 0, 0, 0, 276.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 0, 0, 2,-4, 1, -153.0, 0.0, -1.0, 84.0, 0.0, 0.0}, + { 0,-1, 0, 2, 1, -156.0, 0.0, 0.0, 81.0, 0.0, 0.0}, + { 0, 0, 0, 4, 1, -154.0, 0.0, 1.0, 78.0, 0.0, 0.0}, + {-1,-1, 2, 4, 2, -174.0, 0.0, 1.0, 75.0, 0.0, 0.0}, + { 1, 0, 2, 4, 2, -163.0, 0.0, 2.0, 69.0, 0.0, 1.0}, + + /* 171-180 */ + {-2, 2, 0, 2, 0, -228.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + {-2,-1, 2, 0, 1, 91.0, 0.0, -4.0, -54.0, 0.0, -2.0}, + {-2, 0, 0, 2, 2, 175.0, 0.0, 0.0, -75.0, 0.0, 0.0}, + {-1,-1, 2, 0, 2, -159.0, 0.0, 0.0, 69.0, 0.0, 0.0}, + { 0, 0, 4,-2, 1, 141.0, 0.0, 0.0, -72.0, 0.0, 0.0}, + { 3, 0, 2,-2, 1, 147.0, 0.0, 0.0, -75.0, 0.0, 0.0}, + {-2,-1, 0, 2, 1, -132.0, 0.0, 0.0, 69.0, 0.0, 0.0}, + { 1, 0, 0,-1, 1, 159.0, 0.0, -28.0, -54.0, 0.0, 11.0}, + { 0,-2, 0, 2, 0, 213.0, 0.0, 0.0, -4.0, 0.0, 0.0}, + {-2, 0, 0, 4, 1, 123.0, 0.0, 0.0, -64.0, 0.0, 0.0}, + + /* 181-190 */ + {-3, 0, 0, 0, 1, -118.0, 0.0, -1.0, 66.0, 0.0, 0.0}, + { 1, 1, 2, 2, 2, 144.0, 0.0, -1.0, -61.0, 0.0, 0.0}, + { 0, 0, 2, 4, 1, -121.0, 0.0, 1.0, 60.0, 0.0, 0.0}, + { 3, 0, 2, 2, 2, -134.0, 0.0, 1.0, 56.0, 0.0, 1.0}, + {-1, 1, 2,-2, 1, -105.0, 0.0, 0.0, 57.0, 0.0, 0.0}, + { 2, 0, 0,-4, 1, -102.0, 0.0, 0.0, 56.0, 0.0, 0.0}, + { 0, 0, 0,-2, 2, 120.0, 0.0, 0.0, -52.0, 0.0, 0.0}, + { 2, 0, 2,-4, 1, 101.0, 0.0, 0.0, -54.0, 0.0, 0.0}, + {-1, 1, 0, 2, 1, -113.0, 0.0, 0.0, 59.0, 0.0, 0.0}, + { 0, 0, 2,-1, 1, -106.0, 0.0, 0.0, 61.0, 0.0, 0.0}, + + /* 191-200 */ + { 0,-2, 2, 2, 2, -129.0, 0.0, 1.0, 55.0, 0.0, 0.0}, + { 2, 0, 0, 2, 1, -114.0, 0.0, 0.0, 57.0, 0.0, 0.0}, + { 4, 0, 2,-2, 2, 113.0, 0.0, -1.0, -49.0, 0.0, 0.0}, + { 2, 0, 0,-2, 2, -102.0, 0.0, 0.0, 44.0, 0.0, 0.0}, + { 0, 2, 0, 0, 1, -94.0, 0.0, 0.0, 51.0, 0.0, 0.0}, + { 1, 0, 0,-4, 1, -100.0, 0.0, -1.0, 56.0, 0.0, 0.0}, + { 0, 2, 2,-2, 1, 87.0, 0.0, 0.0, -47.0, 0.0, 0.0}, + {-3, 0, 0, 4, 0, 161.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + {-1, 1, 2, 0, 1, 96.0, 0.0, 0.0, -50.0, 0.0, 0.0}, + {-1,-1, 0, 4, 0, 151.0, 0.0, -1.0, -5.0, 0.0, 0.0}, + + /* 201-210 */ + {-1,-2, 2, 2, 2, -104.0, 0.0, 0.0, 44.0, 0.0, 0.0}, + {-2,-1, 2, 4, 2, -110.0, 0.0, 0.0, 48.0, 0.0, 0.0}, + { 1,-1, 2, 2, 1, -100.0, 0.0, 1.0, 50.0, 0.0, 0.0}, + {-2, 1, 0, 2, 0, 92.0, 0.0, -5.0, 12.0, 0.0, -2.0}, + {-2, 1, 2, 0, 1, 82.0, 0.0, 0.0, -45.0, 0.0, 0.0}, + { 2, 1, 0,-2, 1, 82.0, 0.0, 0.0, -45.0, 0.0, 0.0}, + {-3, 0, 2, 0, 1, -78.0, 0.0, 0.0, 41.0, 0.0, 0.0}, + {-2, 0, 2,-2, 1, -77.0, 0.0, 0.0, 43.0, 0.0, 0.0}, + {-1, 1, 0, 2, 2, 2.0, 0.0, 0.0, 54.0, 0.0, 0.0}, + { 0,-1, 2,-1, 2, 94.0, 0.0, 0.0, -40.0, 0.0, 0.0}, + + /* 211-220 */ + {-1, 0, 4,-2, 2, -93.0, 0.0, 0.0, 40.0, 0.0, 0.0}, + { 0,-2, 2, 0, 2, -83.0, 0.0, 10.0, 40.0, 0.0, -2.0}, + {-1, 0, 2, 1, 2, 83.0, 0.0, 0.0, -36.0, 0.0, 0.0}, + { 2, 0, 0, 0, 2, -91.0, 0.0, 0.0, 39.0, 0.0, 0.0}, + { 0, 0, 2, 0, 3, 128.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + {-2, 0, 4, 0, 2, -79.0, 0.0, 0.0, 34.0, 0.0, 0.0}, + {-1, 0,-2, 0, 1, -83.0, 0.0, 0.0, 47.0, 0.0, 0.0}, + {-1, 1, 2, 2, 1, 84.0, 0.0, 0.0, -44.0, 0.0, 0.0}, + { 3, 0, 0, 0, 1, 83.0, 0.0, 0.0, -43.0, 0.0, 0.0}, + {-1, 0, 2, 3, 2, 91.0, 0.0, 0.0, -39.0, 0.0, 0.0}, + + /* 221-230 */ + { 2,-1, 2, 0, 1, -77.0, 0.0, 0.0, 39.0, 0.0, 0.0}, + { 0, 1, 2, 2, 1, 84.0, 0.0, 0.0, -43.0, 0.0, 0.0}, + { 0,-1, 2, 4, 2, -92.0, 0.0, 1.0, 39.0, 0.0, 0.0}, + { 2,-1, 2, 2, 2, -92.0, 0.0, 1.0, 39.0, 0.0, 0.0}, + { 0, 2,-2, 2, 0, -94.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1,-1, 2,-1, 1, 68.0, 0.0, 0.0, -36.0, 0.0, 0.0}, + { 0,-2, 0, 0, 1, -61.0, 0.0, 0.0, 32.0, 0.0, 0.0}, + { 1, 0, 2,-4, 2, 71.0, 0.0, 0.0, -31.0, 0.0, 0.0}, + { 1,-1, 0,-2, 1, 62.0, 0.0, 0.0, -34.0, 0.0, 0.0}, + {-1,-1, 2, 0, 1, -63.0, 0.0, 0.0, 33.0, 0.0, 0.0}, + + /* 231-240 */ + { 1,-1, 2,-2, 2, -73.0, 0.0, 0.0, 32.0, 0.0, 0.0}, + {-2,-1, 0, 4, 0, 115.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + {-1, 0, 0, 3, 0, -103.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-2,-1, 2, 2, 2, 63.0, 0.0, 0.0, -28.0, 0.0, 0.0}, + { 0, 2, 2, 0, 2, 74.0, 0.0, 0.0, -32.0, 0.0, 0.0}, + { 1, 1, 0, 2, 0, -103.0, 0.0, -3.0, 3.0, 0.0, -1.0}, + { 2, 0, 2,-1, 2, -69.0, 0.0, 0.0, 30.0, 0.0, 0.0}, + { 1, 0, 2, 1, 1, 57.0, 0.0, 0.0, -29.0, 0.0, 0.0}, + { 4, 0, 0, 0, 0, 94.0, 0.0, 0.0, -4.0, 0.0, 0.0}, + { 2, 1, 2, 0, 1, 64.0, 0.0, 0.0, -33.0, 0.0, 0.0}, + + /* 241-250 */ + { 3,-1, 2, 0, 2, -63.0, 0.0, 0.0, 26.0, 0.0, 0.0}, + {-2, 2, 0, 2, 1, -38.0, 0.0, 0.0, 20.0, 0.0, 0.0}, + { 1, 0, 2,-3, 1, -43.0, 0.0, 0.0, 24.0, 0.0, 0.0}, + { 1, 1, 2,-4, 1, -45.0, 0.0, 0.0, 23.0, 0.0, 0.0}, + {-1,-1, 2,-2, 1, 47.0, 0.0, 0.0, -24.0, 0.0, 0.0}, + { 0,-1, 0,-1, 1, -48.0, 0.0, 0.0, 25.0, 0.0, 0.0}, + { 0,-1, 0,-2, 1, 45.0, 0.0, 0.0, -26.0, 0.0, 0.0}, + {-2, 0, 0, 0, 2, 56.0, 0.0, 0.0, -25.0, 0.0, 0.0}, + {-2, 0,-2, 2, 0, 88.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-1, 0,-2, 4, 0, -75.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + + /* 251-260 */ + { 1,-2, 0, 0, 0, 85.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0, 1, 0, 1, 1, 49.0, 0.0, 0.0, -26.0, 0.0, 0.0}, + {-1, 2, 0, 2, 0, -74.0, 0.0, -3.0, -1.0, 0.0, -1.0}, + { 1,-1, 2,-2, 1, -39.0, 0.0, 0.0, 21.0, 0.0, 0.0}, + { 1, 2, 2,-2, 2, 45.0, 0.0, 0.0, -20.0, 0.0, 0.0}, + { 2,-1, 2,-2, 2, 51.0, 0.0, 0.0, -22.0, 0.0, 0.0}, + { 1, 0, 2,-1, 1, -40.0, 0.0, 0.0, 21.0, 0.0, 0.0}, + { 2, 1, 2,-2, 1, 41.0, 0.0, 0.0, -21.0, 0.0, 0.0}, + {-2, 0, 0,-2, 1, -42.0, 0.0, 0.0, 24.0, 0.0, 0.0}, + { 1,-2, 2, 0, 2, -51.0, 0.0, 0.0, 22.0, 0.0, 0.0}, + + /* 261-270 */ + { 0, 1, 2, 1, 1, -42.0, 0.0, 0.0, 22.0, 0.0, 0.0}, + { 1, 0, 4,-2, 1, 39.0, 0.0, 0.0, -21.0, 0.0, 0.0}, + {-2, 0, 4, 2, 2, 46.0, 0.0, 0.0, -18.0, 0.0, 0.0}, + { 1, 1, 2, 1, 2, -53.0, 0.0, 0.0, 22.0, 0.0, 0.0}, + { 1, 0, 0, 4, 0, 82.0, 0.0, 0.0, -4.0, 0.0, 0.0}, + { 1, 0, 2, 2, 0, 81.0, 0.0, -1.0, -4.0, 0.0, 0.0}, + { 2, 0, 2, 1, 2, 47.0, 0.0, 0.0, -19.0, 0.0, 0.0}, + { 3, 1, 2, 0, 2, 53.0, 0.0, 0.0, -23.0, 0.0, 0.0}, + { 4, 0, 2, 0, 1, -45.0, 0.0, 0.0, 22.0, 0.0, 0.0}, + {-2,-1, 2, 0, 0, -44.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + + /* 271-280 */ + { 0, 1,-2, 2, 1, -33.0, 0.0, 0.0, 16.0, 0.0, 0.0}, + { 1, 0,-2, 1, 0, -61.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + { 0,-1,-2, 2, 1, 28.0, 0.0, 0.0, -15.0, 0.0, 0.0}, + { 2,-1, 0,-2, 1, -38.0, 0.0, 0.0, 19.0, 0.0, 0.0}, + {-1, 0, 2,-1, 2, -33.0, 0.0, 0.0, 21.0, 0.0, 0.0}, + { 1, 0, 2,-3, 2, -60.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0, 1, 2,-2, 3, 48.0, 0.0, 0.0, -10.0, 0.0, 0.0}, + { 0, 0, 2,-3, 1, 27.0, 0.0, 0.0, -14.0, 0.0, 0.0}, + {-1, 0,-2, 2, 1, 38.0, 0.0, 0.0, -20.0, 0.0, 0.0}, + { 0, 0, 2,-4, 2, 31.0, 0.0, 0.0, -13.0, 0.0, 0.0}, + + /* 281-290 */ + {-2, 1, 0, 0, 1, -29.0, 0.0, 0.0, 15.0, 0.0, 0.0}, + {-1, 0, 0,-1, 1, 28.0, 0.0, 0.0, -15.0, 0.0, 0.0}, + { 2, 0, 2,-4, 2, -32.0, 0.0, 0.0, 15.0, 0.0, 0.0}, + { 0, 0, 4,-4, 4, 45.0, 0.0, 0.0, -8.0, 0.0, 0.0}, + { 0, 0, 4,-4, 2, -44.0, 0.0, 0.0, 19.0, 0.0, 0.0}, + {-1,-2, 0, 2, 1, 28.0, 0.0, 0.0, -15.0, 0.0, 0.0}, + {-2, 0, 0, 3, 0, -51.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1, 0,-2, 2, 1, -36.0, 0.0, 0.0, 20.0, 0.0, 0.0}, + {-3, 0, 2, 2, 2, 44.0, 0.0, 0.0, -19.0, 0.0, 0.0}, + {-3, 0, 2, 2, 1, 26.0, 0.0, 0.0, -14.0, 0.0, 0.0}, + + /* 291-300 */ + {-2, 0, 2, 2, 0, -60.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 2,-1, 0, 0, 1, 35.0, 0.0, 0.0, -18.0, 0.0, 0.0}, + {-2, 1, 2, 2, 2, -27.0, 0.0, 0.0, 11.0, 0.0, 0.0}, + { 1, 1, 0, 1, 0, 47.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + { 0, 1, 4,-2, 2, 36.0, 0.0, 0.0, -15.0, 0.0, 0.0}, + {-1, 1, 0,-2, 1, -36.0, 0.0, 0.0, 20.0, 0.0, 0.0}, + { 0, 0, 0,-4, 1, -35.0, 0.0, 0.0, 19.0, 0.0, 0.0}, + { 1,-1, 0, 2, 1, -37.0, 0.0, 0.0, 19.0, 0.0, 0.0}, + { 1, 1, 0, 2, 1, 32.0, 0.0, 0.0, -16.0, 0.0, 0.0}, + {-1, 2, 2, 2, 2, 35.0, 0.0, 0.0, -14.0, 0.0, 0.0}, + + /* 301-310 */ + { 3, 1, 2,-2, 2, 32.0, 0.0, 0.0, -13.0, 0.0, 0.0}, + { 0,-1, 0, 4, 0, 65.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 2,-1, 0, 2, 0, 47.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + { 0, 0, 4, 0, 1, 32.0, 0.0, 0.0, -16.0, 0.0, 0.0}, + { 2, 0, 4,-2, 2, 37.0, 0.0, 0.0, -16.0, 0.0, 0.0}, + {-1,-1, 2, 4, 1, -30.0, 0.0, 0.0, 15.0, 0.0, 0.0}, + { 1, 0, 0, 4, 1, -32.0, 0.0, 0.0, 16.0, 0.0, 0.0}, + { 1,-2, 2, 2, 2, -31.0, 0.0, 0.0, 13.0, 0.0, 0.0}, + { 0, 0, 2, 3, 2, 37.0, 0.0, 0.0, -16.0, 0.0, 0.0}, + {-1, 1, 2, 4, 2, 31.0, 0.0, 0.0, -13.0, 0.0, 0.0}, + + /* 311-320 */ + { 3, 0, 0, 2, 0, 49.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + {-1, 0, 4, 2, 2, 32.0, 0.0, 0.0, -13.0, 0.0, 0.0}, + { 1, 1, 2, 2, 1, 23.0, 0.0, 0.0, -12.0, 0.0, 0.0}, + {-2, 0, 2, 6, 2, -43.0, 0.0, 0.0, 18.0, 0.0, 0.0}, + { 2, 1, 2, 2, 2, 26.0, 0.0, 0.0, -11.0, 0.0, 0.0}, + {-1, 0, 2, 6, 2, -32.0, 0.0, 0.0, 14.0, 0.0, 0.0}, + { 1, 0, 2, 4, 1, -29.0, 0.0, 0.0, 14.0, 0.0, 0.0}, + { 2, 0, 2, 4, 2, -27.0, 0.0, 0.0, 12.0, 0.0, 0.0}, + { 1, 1,-2, 1, 0, 30.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-3, 1, 2, 1, 2, -11.0, 0.0, 0.0, 5.0, 0.0, 0.0}, + + /* 321-330 */ + { 2, 0,-2, 0, 2, -21.0, 0.0, 0.0, 10.0, 0.0, 0.0}, + {-1, 0, 0, 1, 2, -34.0, 0.0, 0.0, 15.0, 0.0, 0.0}, + {-4, 0, 2, 2, 1, -10.0, 0.0, 0.0, 6.0, 0.0, 0.0}, + {-1,-1, 0, 1, 0, -36.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0, 0,-2, 2, 2, -9.0, 0.0, 0.0, 4.0, 0.0, 0.0}, + { 1, 0, 0,-1, 2, -12.0, 0.0, 0.0, 5.0, 0.0, 0.0}, + { 0,-1, 2,-2, 3, -21.0, 0.0, 0.0, 5.0, 0.0, 0.0}, + {-2, 1, 2, 0, 0, -29.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + { 0, 0, 2,-2, 4, -15.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + {-2,-2, 0, 2, 0, -20.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + + /* 331-340 */ + {-2, 0,-2, 4, 0, 28.0, 0.0, 0.0, 0.0, 0.0, -2.0}, + { 0,-2,-2, 2, 0, 17.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1, 2, 0,-2, 1, -22.0, 0.0, 0.0, 12.0, 0.0, 0.0}, + { 3, 0, 0,-4, 1, -14.0, 0.0, 0.0, 7.0, 0.0, 0.0}, + {-1, 1, 2,-2, 2, 24.0, 0.0, 0.0, -11.0, 0.0, 0.0}, + { 1,-1, 2,-4, 1, 11.0, 0.0, 0.0, -6.0, 0.0, 0.0}, + { 1, 1, 0,-2, 2, 14.0, 0.0, 0.0, -6.0, 0.0, 0.0}, + {-3, 0, 2, 0, 0, 24.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-3, 0, 2, 0, 2, 18.0, 0.0, 0.0, -8.0, 0.0, 0.0}, + {-2, 0, 0, 1, 0, -38.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + + /* 341-350 */ + { 0, 0,-2, 1, 0, -31.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-3, 0, 0, 2, 1, -16.0, 0.0, 0.0, 8.0, 0.0, 0.0}, + {-1,-1,-2, 2, 0, 29.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0, 1, 2,-4, 1, -18.0, 0.0, 0.0, 10.0, 0.0, 0.0}, + { 2, 1, 0,-4, 1, -10.0, 0.0, 0.0, 5.0, 0.0, 0.0}, + { 0, 2, 0,-2, 1, -17.0, 0.0, 0.0, 10.0, 0.0, 0.0}, + { 1, 0, 0,-3, 1, 9.0, 0.0, 0.0, -4.0, 0.0, 0.0}, + {-2, 0, 2,-2, 2, 16.0, 0.0, 0.0, -6.0, 0.0, 0.0}, + {-2,-1, 0, 0, 1, 22.0, 0.0, 0.0, -12.0, 0.0, 0.0}, + {-4, 0, 0, 2, 0, 20.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + + /* 351-360 */ + { 1, 1, 0,-4, 1, -13.0, 0.0, 0.0, 6.0, 0.0, 0.0}, + {-1, 0, 2,-4, 1, -17.0, 0.0, 0.0, 9.0, 0.0, 0.0}, + { 0, 0, 4,-4, 1, -14.0, 0.0, 0.0, 8.0, 0.0, 0.0}, + { 0, 3, 2,-2, 2, 0.0, 0.0, 0.0, -7.0, 0.0, 0.0}, + {-3,-1, 0, 4, 0, 14.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-3, 0, 0, 4, 1, 19.0, 0.0, 0.0, -10.0, 0.0, 0.0}, + { 1,-1,-2, 2, 0, -34.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1,-1, 0, 2, 2, -20.0, 0.0, 0.0, 8.0, 0.0, 0.0}, + { 1,-2, 0, 0, 1, 9.0, 0.0, 0.0, -5.0, 0.0, 0.0}, + { 1,-1, 0, 0, 2, -18.0, 0.0, 0.0, 7.0, 0.0, 0.0}, + + /* 361-370 */ + { 0, 0, 0, 1, 2, 13.0, 0.0, 0.0, -6.0, 0.0, 0.0}, + {-1,-1, 2, 0, 0, 17.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1,-2, 2,-2, 2, -12.0, 0.0, 0.0, 5.0, 0.0, 0.0}, + { 0,-1, 2,-1, 1, 15.0, 0.0, 0.0, -8.0, 0.0, 0.0}, + {-1, 0, 2, 0, 3, -11.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + { 1, 1, 0, 0, 2, 13.0, 0.0, 0.0, -5.0, 0.0, 0.0}, + {-1, 1, 2, 0, 0, -18.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1, 2, 0, 0, 0, -35.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1, 2, 2, 0, 2, 9.0, 0.0, 0.0, -4.0, 0.0, 0.0}, + {-1, 0, 4,-2, 1, -19.0, 0.0, 0.0, 10.0, 0.0, 0.0}, + + /* 371-380 */ + { 3, 0, 2,-4, 2, -26.0, 0.0, 0.0, 11.0, 0.0, 0.0}, + { 1, 2, 2,-2, 1, 8.0, 0.0, 0.0, -4.0, 0.0, 0.0}, + { 1, 0, 4,-4, 2, -10.0, 0.0, 0.0, 4.0, 0.0, 0.0}, + {-2,-1, 0, 4, 1, 10.0, 0.0, 0.0, -6.0, 0.0, 0.0}, + { 0,-1, 0, 2, 2, -21.0, 0.0, 0.0, 9.0, 0.0, 0.0}, + {-2, 1, 0, 4, 0, -15.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-2,-1, 2, 2, 1, 9.0, 0.0, 0.0, -5.0, 0.0, 0.0}, + { 2, 0,-2, 2, 0, -29.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1, 0, 0, 1, 1, -19.0, 0.0, 0.0, 10.0, 0.0, 0.0}, + { 0, 1, 0, 2, 2, 12.0, 0.0, 0.0, -5.0, 0.0, 0.0}, + + /* 381-390 */ + { 1,-1, 2,-1, 2, 22.0, 0.0, 0.0, -9.0, 0.0, 0.0}, + {-2, 0, 4, 0, 1, -10.0, 0.0, 0.0, 5.0, 0.0, 0.0}, + { 2, 1, 0, 0, 1, -20.0, 0.0, 0.0, 11.0, 0.0, 0.0}, + { 0, 1, 2, 0, 0, -20.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0,-1, 4,-2, 2, -17.0, 0.0, 0.0, 7.0, 0.0, 0.0}, + { 0, 0, 4,-2, 4, 15.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + { 0, 2, 2, 0, 1, 8.0, 0.0, 0.0, -4.0, 0.0, 0.0}, + {-3, 0, 0, 6, 0, 14.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1,-1, 0, 4, 1, -12.0, 0.0, 0.0, 6.0, 0.0, 0.0}, + { 1,-2, 0, 2, 0, 25.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + + /* 391-400 */ + {-1, 0, 0, 4, 2, -13.0, 0.0, 0.0, 6.0, 0.0, 0.0}, + {-1,-2, 2, 2, 1, -14.0, 0.0, 0.0, 8.0, 0.0, 0.0}, + {-1, 0, 0,-2, 2, 13.0, 0.0, 0.0, -5.0, 0.0, 0.0}, + { 1, 0,-2,-2, 1, -17.0, 0.0, 0.0, 9.0, 0.0, 0.0}, + { 0, 0,-2,-2, 1, -12.0, 0.0, 0.0, 6.0, 0.0, 0.0}, + {-2, 0,-2, 0, 1, -10.0, 0.0, 0.0, 5.0, 0.0, 0.0}, + { 0, 0, 0, 3, 1, 10.0, 0.0, 0.0, -6.0, 0.0, 0.0}, + { 0, 0, 0, 3, 0, -15.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1, 1, 0, 4, 0, -22.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1,-1, 2, 2, 0, 28.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + + /* 401-410 */ + {-2, 0, 2, 3, 2, 15.0, 0.0, 0.0, -7.0, 0.0, 0.0}, + { 1, 0, 0, 2, 2, 23.0, 0.0, 0.0, -10.0, 0.0, 0.0}, + { 0,-1, 2, 1, 2, 12.0, 0.0, 0.0, -5.0, 0.0, 0.0}, + { 3,-1, 0, 0, 0, 29.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + { 2, 0, 0, 1, 0, -25.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + { 1,-1, 2, 0, 0, 22.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0, 0, 2, 1, 0, -18.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1, 0, 2, 0, 3, 15.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + { 3, 1, 0, 0, 0, -23.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 3,-1, 2,-2, 2, 12.0, 0.0, 0.0, -5.0, 0.0, 0.0}, + + /* 411-420 */ + { 2, 0, 2,-1, 1, -8.0, 0.0, 0.0, 4.0, 0.0, 0.0}, + { 1, 1, 2, 0, 0, -19.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0, 0, 4,-1, 2, -10.0, 0.0, 0.0, 4.0, 0.0, 0.0}, + { 1, 2, 2, 0, 2, 21.0, 0.0, 0.0, -9.0, 0.0, 0.0}, + {-2, 0, 0, 6, 0, 23.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + { 0,-1, 0, 4, 1, -16.0, 0.0, 0.0, 8.0, 0.0, 0.0}, + {-2,-1, 2, 4, 1, -19.0, 0.0, 0.0, 9.0, 0.0, 0.0}, + { 0,-2, 2, 2, 1, -22.0, 0.0, 0.0, 10.0, 0.0, 0.0}, + { 0,-1, 2, 2, 0, 27.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + {-1, 0, 2, 3, 1, 16.0, 0.0, 0.0, -8.0, 0.0, 0.0}, + + /* 421-430 */ + {-2, 1, 2, 4, 2, 19.0, 0.0, 0.0, -8.0, 0.0, 0.0}, + { 2, 0, 0, 2, 2, 9.0, 0.0, 0.0, -4.0, 0.0, 0.0}, + { 2,-2, 2, 0, 2, -9.0, 0.0, 0.0, 4.0, 0.0, 0.0}, + {-1, 1, 2, 3, 2, -9.0, 0.0, 0.0, 4.0, 0.0, 0.0}, + { 3, 0, 2,-1, 2, -8.0, 0.0, 0.0, 4.0, 0.0, 0.0}, + { 4, 0, 2,-2, 1, 18.0, 0.0, 0.0, -9.0, 0.0, 0.0}, + {-1, 0, 0, 6, 0, 16.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + {-1,-2, 2, 4, 2, -10.0, 0.0, 0.0, 4.0, 0.0, 0.0}, + {-3, 0, 2, 6, 2, -23.0, 0.0, 0.0, 9.0, 0.0, 0.0}, + {-1, 0, 2, 4, 0, 16.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + + /* 431-440 */ + { 3, 0, 0, 2, 1, -12.0, 0.0, 0.0, 6.0, 0.0, 0.0}, + { 3,-1, 2, 0, 1, -8.0, 0.0, 0.0, 4.0, 0.0, 0.0}, + { 3, 0, 2, 0, 0, 30.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 1, 0, 4, 0, 2, 24.0, 0.0, 0.0, -10.0, 0.0, 0.0}, + { 5, 0, 2,-2, 2, 10.0, 0.0, 0.0, -4.0, 0.0, 0.0}, + { 0,-1, 2, 4, 1, -16.0, 0.0, 0.0, 7.0, 0.0, 0.0}, + { 2,-1, 2, 2, 1, -16.0, 0.0, 0.0, 7.0, 0.0, 0.0}, + { 0, 1, 2, 4, 2, 17.0, 0.0, 0.0, -7.0, 0.0, 0.0}, + { 1,-1, 2, 4, 2, -24.0, 0.0, 0.0, 10.0, 0.0, 0.0}, + { 3,-1, 2, 2, 2, -12.0, 0.0, 0.0, 5.0, 0.0, 0.0}, + + /* 441-450 */ + { 3, 0, 2, 2, 1, -24.0, 0.0, 0.0, 11.0, 0.0, 0.0}, + { 5, 0, 2, 0, 2, -23.0, 0.0, 0.0, 9.0, 0.0, 0.0}, + { 0, 0, 2, 6, 2, -13.0, 0.0, 0.0, 5.0, 0.0, 0.0}, + { 4, 0, 2, 2, 2, -15.0, 0.0, 0.0, 7.0, 0.0, 0.0}, + { 0,-1, 1,-1, 1, 0.0, 0.0,-1988.0, 0.0, 0.0,-1679.0}, + {-1, 0, 1, 0, 3, 0.0, 0.0, -63.0, 0.0, 0.0, -27.0}, + { 0,-2, 2,-2, 3, -4.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1, 0,-1, 0, 1, 0.0, 0.0, 5.0, 0.0, 0.0, 4.0}, + { 2,-2, 0,-2, 1, 5.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + {-1, 0, 1, 0, 2, 0.0, 0.0, 364.0, 0.0, 0.0, 176.0}, + + /* 451-460 */ + {-1, 0, 1, 0, 1, 0.0, 0.0,-1044.0, 0.0, 0.0, -891.0}, + {-1,-1, 2,-1, 2, -3.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + {-2, 2, 0, 2, 2, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + {-1, 0, 1, 0, 0, 0.0, 0.0, 330.0, 0.0, 0.0, 0.0}, + {-4, 1, 2, 2, 2, 5.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + {-3, 0, 2, 1, 1, 3.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + {-2,-1, 2, 0, 2, -3.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + { 1, 0,-2, 1, 1, -5.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 2,-1,-2, 0, 1, 3.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + {-4, 0, 2, 2, 0, 3.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + + /* 461-470 */ + {-3, 1, 0, 3, 0, 3.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1, 0,-1, 2, 0, 0.0, 0.0, 5.0, 0.0, 0.0, 0.0}, + { 0,-2, 0, 0, 2, 0.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + { 0,-2, 0, 0, 2, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + {-3, 0, 0, 3, 0, 6.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-2,-1, 0, 2, 2, 5.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + {-1, 0,-2, 3, 0, -7.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-4, 0, 0, 4, 0, -12.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 2, 1,-2, 0, 1, 5.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + { 2,-1, 0,-2, 2, 3.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + + /* 471-480 */ + { 0, 0, 1,-1, 0, -5.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1, 2, 0, 1, 0, 3.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-2, 1, 2, 0, 2, -7.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + { 1, 1, 0,-1, 1, 7.0, 0.0, 0.0, -4.0, 0.0, 0.0}, + { 1, 0, 1,-2, 1, 0.0, 0.0, -12.0, 0.0, 0.0, -10.0}, + { 0, 2, 0, 0, 2, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 1,-1, 2,-3, 1, 3.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + {-1, 1, 2,-1, 1, -3.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-2, 0, 4,-2, 2, -7.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + {-2, 0, 4,-2, 1, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + + /* 481-490 */ + {-2,-2, 0, 2, 1, -3.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + {-2, 0,-2, 4, 0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1, 2, 2,-4, 1, -3.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + { 1, 1, 2,-4, 2, 7.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + {-1, 2, 2,-2, 1, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 2, 0, 0,-3, 1, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + {-1, 2, 0, 0, 1, -5.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + { 0, 0, 0,-2, 0, 5.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1,-1, 2,-2, 2, -5.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-1, 1, 0, 0, 2, 5.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + + /* 491-500 */ + { 0, 0, 0,-1, 2, -8.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + {-2, 1, 0, 1, 0, 9.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1,-2, 0,-2, 1, 6.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + { 1, 0,-2, 0, 2, -5.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-3, 1, 0, 2, 0, 3.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1, 1,-2, 2, 0, -7.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1,-1, 0, 0, 2, -3.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + {-3, 0, 0, 2, 0, 5.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-3,-1, 0, 2, 0, 3.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 2, 0, 2,-6, 1, -3.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + + /* 501-510 */ + { 0, 1, 2,-4, 2, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 2, 0, 0,-4, 2, 3.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + {-2, 1, 2,-2, 1, -5.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 0,-1, 2,-4, 1, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 0, 1, 0,-2, 2, 9.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + {-1, 0, 0,-2, 0, 4.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 2, 0,-2,-2, 1, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + {-4, 0, 2, 0, 1, -3.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-1,-1, 0,-1, 1, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 0, 0,-2, 0, 2, 9.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + + /* 511-520 */ + {-3, 0, 0, 1, 0, -4.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1, 0,-2, 1, 0, -4.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-2, 0,-2, 2, 1, 3.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 0, 0,-4, 2, 0, 8.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-2,-1,-2, 2, 0, 3.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1, 0, 2,-6, 1, -3.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-1, 0, 2,-4, 2, 3.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + { 1, 0, 0,-4, 2, 3.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + { 2, 1, 2,-4, 2, -3.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + { 2, 1, 2,-4, 1, 6.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + + /* 521-530 */ + { 0, 1, 4,-4, 4, 3.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0, 1, 4,-4, 2, -3.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + {-1,-1,-2, 4, 0, -7.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1,-3, 0, 2, 0, 9.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1, 0,-2, 4, 1, -3.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-2,-1, 0, 3, 0, -3.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0, 0,-2, 3, 0, -4.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-2, 0, 0, 3, 1, -5.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + { 0,-1, 0, 1, 0, -13.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-3, 0, 2, 2, 0, -7.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + + /* 531-540 */ + { 1, 1,-2, 2, 0, 10.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1, 1, 0, 2, 2, 3.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + { 1,-2, 2,-2, 1, 10.0, 0.0, 13.0, 6.0, 0.0, -5.0}, + { 0, 0, 1, 0, 2, 0.0, 0.0, 30.0, 0.0, 0.0, 14.0}, + { 0, 0, 1, 0, 1, 0.0, 0.0, -162.0, 0.0, 0.0, -138.0}, + { 0, 0, 1, 0, 0, 0.0, 0.0, 75.0, 0.0, 0.0, 0.0}, + {-1, 2, 0, 2, 1, -7.0, 0.0, 0.0, 4.0, 0.0, 0.0}, + { 0, 0, 2, 0, 2, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-2, 0, 2, 0, 2, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 2, 0, 0,-1, 1, 5.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + + /* 541-550 */ + { 3, 0, 0,-2, 1, 5.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + { 1, 0, 2,-2, 3, -3.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1, 2, 0, 0, 1, -3.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 2, 0, 2,-3, 2, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-1, 1, 4,-2, 2, -5.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-2,-2, 0, 4, 0, 6.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0,-3, 0, 2, 0, 9.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0, 0,-2, 4, 0, 5.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1,-1, 0, 3, 0, -7.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-2, 0, 0, 4, 2, -3.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + + /* 551-560 */ + {-1, 0, 0, 3, 1, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 2,-2, 0, 0, 0, 7.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1,-1, 0, 1, 0, -4.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1, 0, 0, 2, 0, 4.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0,-2, 2, 0, 1, -6.0, 0.0, -3.0, 3.0, 0.0, 1.0}, + {-1, 0, 1, 2, 1, 0.0, 0.0, -3.0, 0.0, 0.0, -2.0}, + {-1, 1, 0, 3, 0, 11.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1,-1, 2, 1, 2, 3.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + { 0,-1, 2, 0, 0, 11.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-2, 1, 2, 2, 1, -3.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + + /* 561-570 */ + { 2,-2, 2,-2, 2, -1.0, 0.0, 3.0, 3.0, 0.0, -1.0}, + { 1, 1, 0, 1, 1, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 1, 0, 1, 0, 1, 0.0, 0.0, -13.0, 0.0, 0.0, -11.0}, + { 1, 0, 1, 0, 0, 3.0, 0.0, 6.0, 0.0, 0.0, 0.0}, + { 0, 2, 0, 2, 0, -7.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 2,-1, 2,-2, 1, 5.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + { 0,-1, 4,-2, 1, -3.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + { 0, 0, 4,-2, 3, 3.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0, 1, 4,-2, 1, 5.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + { 4, 0, 2,-4, 2, -7.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + + /* 571-580 */ + { 2, 2, 2,-2, 2, 8.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + { 2, 0, 4,-4, 2, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-1,-2, 0, 4, 0, 11.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1,-3, 2, 2, 2, -3.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + {-3, 0, 2, 4, 2, 3.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + {-3, 0, 2,-2, 1, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-1,-1, 0,-2, 1, 8.0, 0.0, 0.0, -4.0, 0.0, 0.0}, + {-3, 0, 0, 0, 2, 3.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + {-3, 0,-2, 2, 0, 11.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0, 1, 0,-4, 1, -6.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + + /* 581-590 */ + {-2, 1, 0,-2, 1, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-4, 0, 0, 0, 1, -8.0, 0.0, 0.0, 4.0, 0.0, 0.0}, + {-1, 0, 0,-4, 1, -7.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + {-3, 0, 0,-2, 1, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 0, 0, 0, 3, 2, 3.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + {-1, 1, 0, 4, 1, 6.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + { 1,-2, 2, 0, 1, -6.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + { 0, 1, 0, 3, 0, 6.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-1, 0, 2, 2, 3, 6.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + { 0, 0, 2, 2, 2, 5.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + + /* 591-600 */ + {-2, 0, 2, 2, 2, -5.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-1, 1, 2, 2, 0, -4.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 3, 0, 0, 0, 2, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 2, 1, 0, 1, 0, 4.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 2,-1, 2,-1, 2, 6.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + { 0, 0, 2, 0, 1, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 0, 0, 3, 0, 3, 0.0, 0.0, -26.0, 0.0, 0.0, -11.0}, + { 0, 0, 3, 0, 2, 0.0, 0.0, -10.0, 0.0, 0.0, -5.0}, + {-1, 2, 2, 2, 1, 5.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + {-1, 0, 4, 0, 0, -13.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + + /* 601-610 */ + { 1, 2, 2, 0, 1, 3.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 3, 1, 2,-2, 1, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 1, 1, 4,-2, 2, 7.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + {-2,-1, 0, 6, 0, 4.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0,-2, 0, 4, 0, 5.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-2, 0, 0, 6, 1, -3.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-2,-2, 2, 4, 2, -6.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 0,-3, 2, 2, 2, -5.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 0, 0, 0, 4, 2, -7.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + {-1,-1, 2, 3, 2, 5.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + + /* 611-620 */ + {-2, 0, 2, 4, 0, 13.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 2,-1, 0, 2, 1, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 1, 0, 0, 3, 0, -3.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0, 1, 0, 4, 1, 5.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 0, 1, 0, 4, 0, -11.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1,-1, 2, 1, 2, 5.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 0, 0, 2, 2, 3, 4.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1, 0, 2, 2, 2, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + {-1, 0, 2, 2, 2, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-2, 0, 4, 2, 1, 6.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + + /* 621-630 */ + { 2, 1, 0, 2, 1, 3.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 2, 1, 0, 2, 0, -12.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 2,-1, 2, 0, 0, 4.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1, 0, 2, 1, 0, -3.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0, 1, 2, 2, 0, -4.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 2, 0, 2, 0, 3, 3.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 3, 0, 2, 0, 2, 3.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + { 1, 0, 2, 0, 2, -3.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + { 1, 0, 3, 0, 3, 0.0, 0.0, -5.0, 0.0, 0.0, -2.0}, + { 1, 1, 2, 1, 1, -7.0, 0.0, 0.0, 4.0, 0.0, 0.0}, + + /* 631-640 */ + { 0, 2, 2, 2, 2, 6.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + { 2, 1, 2, 0, 0, -3.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 2, 0, 4,-2, 1, 5.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + { 4, 1, 2,-2, 2, 3.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + {-1,-1, 0, 6, 0, 3.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + {-3,-1, 2, 6, 2, -3.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + {-1, 0, 0, 6, 1, -5.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + {-3, 0, 2, 6, 1, -3.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 1,-1, 0, 4, 1, -3.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 1,-1, 0, 4, 0, 12.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + + /* 641-650 */ + {-2, 0, 2, 5, 2, 3.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + { 1,-2, 2, 2, 1, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 3,-1, 0, 2, 0, 4.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1,-1, 2, 2, 0, 6.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0, 0, 2, 3, 1, 5.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + {-1, 1, 2, 4, 1, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 0, 1, 2, 3, 2, -6.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + {-1, 0, 4, 2, 1, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 2, 0, 2, 1, 1, 6.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + { 5, 0, 0, 0, 0, 6.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + + /* 651-660 */ + { 2, 1, 2, 1, 2, -6.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + { 1, 0, 4, 0, 1, 3.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 3, 1, 2, 0, 1, 7.0, 0.0, 0.0, -4.0, 0.0, 0.0}, + { 3, 0, 4,-2, 2, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + {-2,-1, 2, 6, 2, -5.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 0, 0, 0, 6, 0, 5.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0,-2, 2, 4, 2, -6.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + {-2, 0, 2, 6, 1, -6.0, 0.0, 0.0, 3.0, 0.0, 0.0}, + { 2, 0, 0, 4, 1, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 2, 0, 0, 4, 0, 10.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + + /* 661-670 */ + { 2,-2, 2, 2, 2, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 0, 0, 2, 4, 0, 7.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 1, 0, 2, 3, 2, 7.0, 0.0, 0.0, -3.0, 0.0, 0.0}, + { 4, 0, 0, 2, 0, 4.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 2, 0, 2, 2, 0, 11.0, 0.0, 0.0, 0.0, 0.0, 0.0}, + { 0, 0, 4, 2, 2, 5.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 4,-1, 2, 0, 2, -6.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 3, 0, 2, 1, 2, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 2, 1, 2, 2, 1, 3.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 4, 1, 2, 0, 2, 5.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + + /* 671-678 */ + {-1,-1, 2, 6, 2, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + {-1, 0, 2, 6, 1, -4.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 1,-1, 2, 4, 1, -3.0, 0.0, 0.0, 2.0, 0.0, 0.0}, + { 1, 1, 2, 4, 2, 4.0, 0.0, 0.0, -2.0, 0.0, 0.0}, + { 3, 1, 2, 2, 2, 3.0, 0.0, 0.0, -1.0, 0.0, 0.0}, + { 5, 0, 2, 0, 1, -3.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + { 2,-1, 2, 4, 2, -3.0, 0.0, 0.0, 1.0, 0.0, 0.0}, + { 2, 0, 2, 4, 1, -3.0, 0.0, 0.0, 2.0, 0.0, 0.0} + }; + +/* Number of terms in the luni-solar nutation model */ + const int NLS = (int) (sizeof xls / sizeof xls[0]); + +/* ------------------------ */ +/* Planetary nutation model */ +/* ------------------------ */ + +/* The units for the sine and cosine coefficients are */ +/* 0.1 microarcsecond */ + + static const struct { + int nl, /* coefficients of l, F, D and Omega */ + nf, + nd, + nom, + nme, /* coefficients of planetary longitudes */ + nve, + nea, + nma, + nju, + nsa, + nur, + nne, + npa; /* coefficient of general precession */ + int sp,cp; /* longitude sin, cos coefficients */ + int se,ce; /* obliquity sin, cos coefficients */ + } xpl[] = { + + /* 1-10 */ + { 0, 0, 0, 0, 0, 0, 8,-16, 4, 5, 0, 0, 0, 1440, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, -8, 16,-4,-5, 0, 0, 2, 56,-117, -42, -40}, + { 0, 0, 0, 0, 0, 0, 8,-16, 4, 5, 0, 0, 2, 125, -43, 0, -54}, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 2, 2, 0, 5, 0, 0}, + { 0, 0, 0, 0, 0, 0, -4, 8,-1,-5, 0, 0, 2, 3, -7, -3, 0}, + { 0, 0, 0, 0, 0, 0, 4, -8, 3, 0, 0, 0, 1, 3, 0, 0, -2}, + { 0, 1,-1, 1, 0, 0, 3, -8, 3, 0, 0, 0, 0, -114, 0, 0, 61}, + {-1, 0, 0, 0, 0, 10, -3, 0, 0, 0, 0, 0, 0, -219, 89, 0, 0}, + { 0, 0, 0, 0, 0, 0, 0, 0,-2, 6,-3, 0, 2, -3, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 4, -8, 3, 0, 0, 0, 0, -462,1604, 0, 0}, + + /* 11-20 */ + { 0, 1,-1, 1, 0, 0, -5, 8,-3, 0, 0, 0, 0, 99, 0, 0, -53}, + { 0, 0, 0, 0, 0, 0, -4, 8,-3, 0, 0, 0, 1, -3, 0, 0, 2}, + { 0, 0, 0, 0, 0, 0, 4, -8, 1, 5, 0, 0, 2, 0, 6, 2, 0}, + { 0, 0, 0, 0, 0, -5, 6, 4, 0, 0, 0, 0, 2, 3, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 0, 0, 2,-5, 0, 0, 2, -12, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 0, 0, 2,-5, 0, 0, 1, 14,-218, 117, 8}, + { 0, 1,-1, 1, 0, 0, -1, 0, 2,-5, 0, 0, 0, 31,-481, -257, -17}, + { 0, 0, 0, 0, 0, 0, 0, 0, 2,-5, 0, 0, 0, -491, 128, 0, 0}, + { 0, 1,-1, 1, 0, 0, -1, 0,-2, 5, 0, 0, 0,-3084,5123, 2735,1647}, + { 0, 0, 0, 0, 0, 0, 0, 0,-2, 5, 0, 0, 1,-1444,2409,-1286,-771}, + + /* 21-30 */ + { 0, 0, 0, 0, 0, 0, 0, 0,-2, 5, 0, 0, 2, 11, -24, -11, -9}, + { 2,-1,-1, 0, 0, 0, 3, -7, 0, 0, 0, 0, 0, 26, -9, 0, 0}, + { 1, 0,-2, 0, 0, 19,-21, 3, 0, 0, 0, 0, 0, 103, -60, 0, 0}, + { 0, 1,-1, 1, 0, 2, -4, 0,-3, 0, 0, 0, 0, 0, -13, -7, 0}, + { 1, 0,-1, 1, 0, 0, -1, 0, 2, 0, 0, 0, 0, -26, -29, -16, 14}, + { 0, 1,-1, 1, 0, 0, -1, 0,-4,10, 0, 0, 0, 9, -27, -14, -5}, + {-2, 0, 2, 1, 0, 0, 2, 0, 0,-5, 0, 0, 0, 12, 0, 0, -6}, + { 0, 0, 0, 0, 0, 3, -7, 4, 0, 0, 0, 0, 0, -7, 0, 0, 0}, + { 0,-1, 1, 0, 0, 0, 1, 0, 1,-1, 0, 0, 0, 0, 24, 0, 0}, + {-2, 0, 2, 1, 0, 0, 2, 0,-2, 0, 0, 0, 0, 284, 0, 0,-151}, + + /* 31-40 */ + {-1, 0, 0, 0, 0, 18,-16, 0, 0, 0, 0, 0, 0, 226, 101, 0, 0}, + {-2, 1, 1, 2, 0, 0, 1, 0,-2, 0, 0, 0, 0, 0, -8, -2, 0}, + {-1, 1,-1, 1, 0, 18,-17, 0, 0, 0, 0, 0, 0, 0, -6, -3, 0}, + {-1, 0, 1, 1, 0, 0, 2, -2, 0, 0, 0, 0, 0, 5, 0, 0, -3}, + { 0, 0, 0, 0, 0, -8, 13, 0, 0, 0, 0, 0, 2, -41, 175, 76, 17}, + { 0, 2,-2, 2, 0, -8, 11, 0, 0, 0, 0, 0, 0, 0, 15, 6, 0}, + { 0, 0, 0, 0, 0, -8, 13, 0, 0, 0, 0, 0, 1, 425, 212, -133, 269}, + { 0, 1,-1, 1, 0, -8, 12, 0, 0, 0, 0, 0, 0, 1200, 598, 319,-641}, + { 0, 0, 0, 0, 0, 8,-13, 0, 0, 0, 0, 0, 0, 235, 334, 0, 0}, + { 0, 1,-1, 1, 0, 8,-14, 0, 0, 0, 0, 0, 0, 11, -12, -7, -6}, + + /* 41-50 */ + { 0, 0, 0, 0, 0, 8,-13, 0, 0, 0, 0, 0, 1, 5, -6, 3, 3}, + {-2, 0, 2, 1, 0, 0, 2, 0,-4, 5, 0, 0, 0, -5, 0, 0, 3}, + {-2, 0, 2, 2, 0, 3, -3, 0, 0, 0, 0, 0, 0, 6, 0, 0, -3}, + {-2, 0, 2, 0, 0, 0, 2, 0,-3, 1, 0, 0, 0, 15, 0, 0, 0}, + { 0, 0, 0, 1, 0, 3, -5, 0, 2, 0, 0, 0, 0, 13, 0, 0, -7}, + {-2, 0, 2, 0, 0, 0, 2, 0,-4, 3, 0, 0, 0, -6, -9, 0, 0}, + { 0,-1, 1, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 266, -78, 0, 0}, + { 0, 0, 0, 1, 0, 0, -1, 2, 0, 0, 0, 0, 0, -460,-435, -232, 246}, + { 0, 1,-1, 2, 0, 0, -2, 2, 0, 0, 0, 0, 0, 0, 15, 7, 0}, + {-1, 1, 0, 1, 0, 3, -5, 0, 0, 0, 0, 0, 0, -3, 0, 0, 2}, + + /* 51-60 */ + {-1, 0, 1, 0, 0, 3, -4, 0, 0, 0, 0, 0, 0, 0, 131, 0, 0}, + {-2, 0, 2, 0, 0, 0, 2, 0,-2,-2, 0, 0, 0, 4, 0, 0, 0}, + {-2, 2, 0, 2, 0, 0, -5, 9, 0, 0, 0, 0, 0, 0, 3, 0, 0}, + { 0, 1,-1, 1, 0, 0, -1, 0, 0, 0,-1, 0, 0, 0, 4, 2, 0}, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 3, 0, 0}, + { 0, 1,-1, 1, 0, 0, -1, 0, 0, 0, 0, 2, 0, -17, -19, -10, 9}, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 1, -9, -11, 6, -5}, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, -6, 0, 0, 3}, + {-1, 0, 1, 0, 0, 0, 3, -4, 0, 0, 0, 0, 0, -16, 8, 0, 0}, + { 0,-1, 1, 0, 0, 0, 1, 0, 0, 2, 0, 0, 0, 0, 3, 0, 0}, + + /* 61-70 */ + { 0, 1,-1, 2, 0, 0, -1, 0, 0, 2, 0, 0, 0, 11, 24, 11, -5}, + { 0, 0, 0, 1, 0, 0, -9, 17, 0, 0, 0, 0, 0, -3, -4, -2, 1}, + { 0, 0, 0, 2, 0, -3, 5, 0, 0, 0, 0, 0, 0, 3, 0, 0, -1}, + { 0, 1,-1, 1, 0, 0, -1, 0,-1, 2, 0, 0, 0, 0, -8, -4, 0}, + { 0, 0, 0, 0, 0, 0, 0, 0, 1,-2, 0, 0, 0, 0, 3, 0, 0}, + { 1, 0,-2, 0, 0, 17,-16, 0,-2, 0, 0, 0, 0, 0, 5, 0, 0}, + { 0, 1,-1, 1, 0, 0, -1, 0, 1,-3, 0, 0, 0, 0, 3, 2, 0}, + {-2, 0, 2, 1, 0, 0, 5, -6, 0, 0, 0, 0, 0, -6, 4, 2, 3}, + { 0,-2, 2, 0, 0, 0, 9,-13, 0, 0, 0, 0, 0, -3, -5, 0, 0}, + { 0, 1,-1, 2, 0, 0, -1, 0, 0, 1, 0, 0, 0, -5, 0, 0, 2}, + + /* 71-80 */ + { 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 4, 24, 13, -2}, + { 0,-1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, -42, 20, 0, 0}, + { 0,-2, 2, 0, 0, 5, -6, 0, 0, 0, 0, 0, 0, -10, 233, 0, 0}, + { 0,-1, 1, 1, 0, 5, -7, 0, 0, 0, 0, 0, 0, -3, 0, 0, 1}, + {-2, 0, 2, 0, 0, 6, -8, 0, 0, 0, 0, 0, 0, 78, -18, 0, 0}, + { 2, 1,-3, 1, 0, -6, 7, 0, 0, 0, 0, 0, 0, 0, 3, 1, 0}, + { 0, 0, 0, 2, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, -3, -1, 0}, + { 0,-1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, -4, -2, 1}, + { 0, 1,-1, 1, 0, 0, -1, 0, 0, 0, 2, 0, 0, 0, -8, -4, -1}, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 1, 0, -5, 3, 0}, + + /* 81-90 */ + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 2, -7, 0, 0, 3}, + { 0, 0, 0, 0, 0, 0, -8, 15, 0, 0, 0, 0, 2, -14, 8, 3, 6}, + { 0, 0, 0, 0, 0, 0, -8, 15, 0, 0, 0, 0, 1, 0, 8, -4, 0}, + { 0, 1,-1, 1, 0, 0, -9, 15, 0, 0, 0, 0, 0, 0, 19, 10, 0}, + { 0, 0, 0, 0, 0, 0, 8,-15, 0, 0, 0, 0, 0, 45, -22, 0, 0}, + { 1,-1,-1, 0, 0, 0, 8,-15, 0, 0, 0, 0, 0, -3, 0, 0, 0}, + { 2, 0,-2, 0, 0, 2, -5, 0, 0, 0, 0, 0, 0, 0, -3, 0, 0}, + {-2, 0, 2, 0, 0, 0, 2, 0,-5, 5, 0, 0, 0, 0, 3, 0, 0}, + { 2, 0,-2, 1, 0, 0, -6, 8, 0, 0, 0, 0, 0, 3, 5, 3, -2}, + { 2, 0,-2, 1, 0, 0, -2, 0, 3, 0, 0, 0, 0, 89, -16, -9, -48}, + + /* 91-100 */ + {-2, 1, 1, 0, 0, 0, 1, 0,-3, 0, 0, 0, 0, 0, 3, 0, 0}, + {-2, 1, 1, 1, 0, 0, 1, 0,-3, 0, 0, 0, 0, -3, 7, 4, 2}, + {-2, 0, 2, 0, 0, 0, 2, 0,-3, 0, 0, 0, 0, -349, -62, 0, 0}, + {-2, 0, 2, 0, 0, 0, 6, -8, 0, 0, 0, 0, 0, -15, 22, 0, 0}, + {-2, 0, 2, 0, 0, 0, 2, 0,-1,-5, 0, 0, 0, -3, 0, 0, 0}, + {-1, 0, 1, 0, 0, 0, 1, 0,-1, 0, 0, 0, 0, -53, 0, 0, 0}, + {-1, 1, 1, 1, 0,-20, 20, 0, 0, 0, 0, 0, 0, 5, 0, 0, -3}, + { 1, 0,-2, 0, 0, 20,-21, 0, 0, 0, 0, 0, 0, 0, -8, 0, 0}, + { 0, 0, 0, 1, 0, 0, 8,-15, 0, 0, 0, 0, 0, 15, -7, -4, -8}, + { 0, 2,-2, 1, 0, 0,-10, 15, 0, 0, 0, 0, 0, -3, 0, 0, 1}, + + /* 101-110 */ + { 0,-1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, -21, -78, 0, 0}, + { 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 20, -70, -37, -11}, + { 0, 1,-1, 2, 0, 0, -1, 0, 1, 0, 0, 0, 0, 0, 6, 3, 0}, + { 0, 1,-1, 1, 0, 0, -1, 0,-2, 4, 0, 0, 0, 5, 3, 2, -2}, + { 2, 0,-2, 1, 0, -6, 8, 0, 0, 0, 0, 0, 0, -17, -4, -2, 9}, + { 0,-2, 2, 1, 0, 5, -6, 0, 0, 0, 0, 0, 0, 0, 6, 3, 0}, + { 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 1, 32, 15, -8, 17}, + { 0, 1,-1, 1, 0, 0, -1, 0, 0,-1, 0, 0, 0, 174, 84, 45, -93}, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 11, 56, 0, 0}, + { 0, 1,-1, 1, 0, 0, -1, 0, 0, 1, 0, 0, 0, -66, -12, -6, 35}, + + /* 111-120 */ + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 47, 8, 4, -25}, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 0, 8, 4, 0}, + { 0, 2,-2, 1, 0, 0, -9, 13, 0, 0, 0, 0, 0, 10, -22, -12, -5}, + { 0, 0, 0, 1, 0, 0, 7,-13, 0, 0, 0, 0, 0, -3, 0, 0, 2}, + {-2, 0, 2, 0, 0, 0, 5, -6, 0, 0, 0, 0, 0, -24, 12, 0, 0}, + { 0, 0, 0, 0, 0, 0, 9,-17, 0, 0, 0, 0, 0, 5, -6, 0, 0}, + { 0, 0, 0, 0, 0, 0, -9, 17, 0, 0, 0, 0, 2, 3, 0, 0, -2}, + { 1, 0,-1, 1, 0, 0, -3, 4, 0, 0, 0, 0, 0, 4, 3, 1, -2}, + { 1, 0,-1, 1, 0, -3, 4, 0, 0, 0, 0, 0, 0, 0, 29, 15, 0}, + { 0, 0, 0, 2, 0, 0, -1, 2, 0, 0, 0, 0, 0, -5, -4, -2, 2}, + + /* 121-130 */ + { 0,-1, 1, 1, 0, 0, 0, 2, 0, 0, 0, 0, 0, 8, -3, -1, -5}, + { 0,-2, 2, 0, 1, 0, -2, 0, 0, 0, 0, 0, 0, 0, -3, 0, 0}, + { 0, 0, 0, 0, 0, 3, -5, 0, 2, 0, 0, 0, 0, 10, 0, 0, 0}, + {-2, 0, 2, 1, 0, 0, 2, 0,-3, 1, 0, 0, 0, 3, 0, 0, -2}, + {-2, 0, 2, 1, 0, 3, -3, 0, 0, 0, 0, 0, 0, -5, 0, 0, 3}, + { 0, 0, 0, 1, 0, 8,-13, 0, 0, 0, 0, 0, 0, 46, 66, 35, -25}, + { 0,-1, 1, 0, 0, 8,-12, 0, 0, 0, 0, 0, 0, -14, 7, 0, 0}, + { 0, 2,-2, 1, 0, -8, 11, 0, 0, 0, 0, 0, 0, 0, 3, 2, 0}, + {-1, 0, 1, 0, 0, 0, 2, -2, 0, 0, 0, 0, 0, -5, 0, 0, 0}, + {-1, 0, 0, 1, 0, 18,-16, 0, 0, 0, 0, 0, 0, -68, -34, -18, 36}, + + /* 131-140 */ + { 0, 1,-1, 1, 0, 0, -1, 0,-1, 1, 0, 0, 0, 0, 14, 7, 0}, + { 0, 0, 0, 1, 0, 3, -7, 4, 0, 0, 0, 0, 0, 10, -6, -3, -5}, + {-2, 1, 1, 1, 0, 0, -3, 7, 0, 0, 0, 0, 0, -5, -4, -2, 3}, + { 0, 1,-1, 2, 0, 0, -1, 0,-2, 5, 0, 0, 0, -3, 5, 2, 1}, + { 0, 0, 0, 1, 0, 0, 0, 0,-2, 5, 0, 0, 0, 76, 17, 9, -41}, + { 0, 0, 0, 1, 0, 0, -4, 8,-3, 0, 0, 0, 0, 84, 298, 159, -45}, + { 1, 0, 0, 1, 0,-10, 3, 0, 0, 0, 0, 0, 0, 3, 0, 0, -1}, + { 0, 2,-2, 1, 0, 0, -2, 0, 0, 0, 0, 0, 0, -3, 0, 0, 2}, + {-1, 0, 0, 1, 0, 10, -3, 0, 0, 0, 0, 0, 0, -3, 0, 0, 1}, + { 0, 0, 0, 1, 0, 0, 4, -8, 3, 0, 0, 0, 0, -82, 292, 156, 44}, + + /* 141-150 */ + { 0, 0, 0, 1, 0, 0, 0, 0, 2,-5, 0, 0, 0, -73, 17, 9, 39}, + { 0,-1, 1, 0, 0, 0, 1, 0, 2,-5, 0, 0, 0, -9, -16, 0, 0}, + { 2,-1,-1, 1, 0, 0, 3, -7, 0, 0, 0, 0, 0, 3, 0, -1, -2}, + {-2, 0, 2, 0, 0, 0, 2, 0, 0,-5, 0, 0, 0, -3, 0, 0, 0}, + { 0, 0, 0, 1, 0, -3, 7, -4, 0, 0, 0, 0, 0, -9, -5, -3, 5}, + {-2, 0, 2, 0, 0, 0, 2, 0,-2, 0, 0, 0, 0, -439, 0, 0, 0}, + { 1, 0, 0, 1, 0,-18, 16, 0, 0, 0, 0, 0, 0, 57, -28, -15, -30}, + {-2, 1, 1, 1, 0, 0, 1, 0,-2, 0, 0, 0, 0, 0, -6, -3, 0}, + { 0, 1,-1, 2, 0, -8, 12, 0, 0, 0, 0, 0, 0, -4, 0, 0, 2}, + { 0, 0, 0, 1, 0, -8, 13, 0, 0, 0, 0, 0, 0, -40, 57, 30, 21}, + + /* 151-160 */ + { 0, 0, 0, 0, 0, 0, 1, -2, 0, 0, 0, 0, 1, 23, 7, 3, -13}, + { 0, 1,-1, 1, 0, 0, 0, -2, 0, 0, 0, 0, 0, 273, 80, 43,-146}, + { 0, 0, 0, 0, 0, 0, 1, -2, 0, 0, 0, 0, 0, -449, 430, 0, 0}, + { 0, 1,-1, 1, 0, 0, -2, 2, 0, 0, 0, 0, 0, -8, -47, -25, 4}, + { 0, 0, 0, 0, 0, 0, -1, 2, 0, 0, 0, 0, 1, 6, 47, 25, -3}, + {-1, 0, 1, 1, 0, 3, -4, 0, 0, 0, 0, 0, 0, 0, 23, 13, 0}, + {-1, 0, 1, 1, 0, 0, 3, -4, 0, 0, 0, 0, 0, -3, 0, 0, 2}, + { 0, 1,-1, 1, 0, 0, -1, 0, 0,-2, 0, 0, 0, 3, -4, -2, -2}, + { 0, 1,-1, 1, 0, 0, -1, 0, 0, 2, 0, 0, 0, -48,-110, -59, 26}, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 1, 51, 114, 61, -27}, + + /* 161-170 */ + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 2, -133, 0, 0, 57}, + { 0, 1,-1, 0, 0, 3, -6, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0}, + { 0, 0, 0, 1, 0, -3, 5, 0, 0, 0, 0, 0, 0, -21, -6, -3, 11}, + { 0, 1,-1, 2, 0, -3, 4, 0, 0, 0, 0, 0, 0, 0, -3, -1, 0}, + { 0, 0, 0, 1, 0, 0, -2, 4, 0, 0, 0, 0, 0, -11, -21, -11, 6}, + { 0, 2,-2, 1, 0, -5, 6, 0, 0, 0, 0, 0, 0, -18,-436, -233, 9}, + { 0,-1, 1, 0, 0, 5, -7, 0, 0, 0, 0, 0, 0, 35, -7, 0, 0}, + { 0, 0, 0, 1, 0, 5, -8, 0, 0, 0, 0, 0, 0, 0, 5, 3, 0}, + {-2, 0, 2, 1, 0, 6, -8, 0, 0, 0, 0, 0, 0, 11, -3, -1, -6}, + { 0, 0, 0, 1, 0, 0, -8, 15, 0, 0, 0, 0, 0, -5, -3, -1, 3}, + + /* 171-180 */ + {-2, 0, 2, 1, 0, 0, 2, 0,-3, 0, 0, 0, 0, -53, -9, -5, 28}, + {-2, 0, 2, 1, 0, 0, 6, -8, 0, 0, 0, 0, 0, 0, 3, 2, 1}, + { 1, 0,-1, 1, 0, 0, -1, 0, 1, 0, 0, 0, 0, 4, 0, 0, -2}, + { 0, 0, 0, 0, 0, 0, 0, 0, 3,-5, 0, 0, 0, 0, -4, 0, 0}, + { 0, 1,-1, 1, 0, 0, -1, 0,-1, 0, 0, 0, 0, -50, 194, 103, 27}, + { 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 1, -13, 52, 28, 7}, + { 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, -91, 248, 0, 0}, + { 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 6, 49, 26, -3}, + { 0, 1,-1, 1, 0, 0, -1, 0, 1, 0, 0, 0, 0, -6, -47, -25, 3}, + { 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 5, 3, 0}, + + /* 181-190 */ + { 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2, 52, 23, 10, -23}, + { 0, 1,-1, 2, 0, 0, -1, 0, 0,-1, 0, 0, 0, -3, 0, 0, 1}, + { 0, 0, 0, 1, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 5, 3, 0}, + { 0,-1, 1, 0, 0, 0, 1, 0, 0,-1, 0, 0, 0, -4, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, -7, 13, 0, 0, 0, 0, 2, -4, 8, 3, 2}, + { 0, 0, 0, 0, 0, 0, 7,-13, 0, 0, 0, 0, 0, 10, 0, 0, 0}, + { 2, 0,-2, 1, 0, 0, -5, 6, 0, 0, 0, 0, 0, 3, 0, 0, -2}, + { 0, 2,-2, 1, 0, 0, -8, 11, 0, 0, 0, 0, 0, 0, 8, 4, 0}, + { 0, 2,-2, 1,-1, 0, 2, 0, 0, 0, 0, 0, 0, 0, 8, 4, 1}, + {-2, 0, 2, 0, 0, 0, 4, -4, 0, 0, 0, 0, 0, -4, 0, 0, 0}, + + /* 191-200 */ + { 0, 0, 0, 0, 0, 0, 0, 0, 2,-2, 0, 0, 0, -4, 0, 0, 0}, + { 0, 1,-1, 1, 0, 0, -1, 0, 0, 3, 0, 0, 0, -8, 4, 2, 4}, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 1, 8, -4, -2, -4}, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 2, 0, 15, 7, 0}, + {-2, 0, 2, 0, 0, 3, -3, 0, 0, 0, 0, 0, 0, -138, 0, 0, 0}, + { 0, 0, 0, 2, 0, 0, -4, 8,-3, 0, 0, 0, 0, 0, -7, -3, 0}, + { 0, 0, 0, 2, 0, 0, 4, -8, 3, 0, 0, 0, 0, 0, -7, -3, 0}, + { 2, 0,-2, 1, 0, 0, -2, 0, 2, 0, 0, 0, 0, 54, 0, 0, -29}, + { 0, 1,-1, 2, 0, 0, -1, 0, 2, 0, 0, 0, 0, 0, 10, 4, 0}, + { 0, 1,-1, 2, 0, 0, 0, -2, 0, 0, 0, 0, 0, -7, 0, 0, 3}, + + /* 201-210 */ + { 0, 0, 0, 1, 0, 0, 1, -2, 0, 0, 0, 0, 0, -37, 35, 19, 20}, + { 0,-1, 1, 0, 0, 0, 2, -2, 0, 0, 0, 0, 0, 0, 4, 0, 0}, + { 0,-1, 1, 0, 0, 0, 1, 0, 0,-2, 0, 0, 0, -4, 9, 0, 0}, + { 0, 2,-2, 1, 0, 0, -2, 0, 0, 2, 0, 0, 0, 8, 0, 0, -4}, + { 0, 1,-1, 1, 0, 3, -6, 0, 0, 0, 0, 0, 0, -9, -14, -8, 5}, + { 0, 0, 0, 0, 0, 3, -5, 0, 0, 0, 0, 0, 1, -3, -9, -5, 3}, + { 0, 0, 0, 0, 0, 3, -5, 0, 0, 0, 0, 0, 0, -145, 47, 0, 0}, + { 0, 1,-1, 1, 0, -3, 4, 0, 0, 0, 0, 0, 0, -10, 40, 21, 5}, + { 0, 0, 0, 0, 0, -3, 5, 0, 0, 0, 0, 0, 1, 11, -49, -26, -7}, + { 0, 0, 0, 0, 0, -3, 5, 0, 0, 0, 0, 0, 2,-2150, 0, 0, 932}, + + /* 211-220 */ + { 0, 2,-2, 2, 0, -3, 3, 0, 0, 0, 0, 0, 0, -12, 0, 0, 5}, + { 0, 0, 0, 0, 0, -3, 5, 0, 0, 0, 0, 0, 2, 85, 0, 0, -37}, + { 0, 0, 0, 0, 0, 0, 2, -4, 0, 0, 0, 0, 1, 4, 0, 0, -2}, + { 0, 1,-1, 1, 0, 0, 1, -4, 0, 0, 0, 0, 0, 3, 0, 0, -2}, + { 0, 0, 0, 0, 0, 0, 2, -4, 0, 0, 0, 0, 0, -86, 153, 0, 0}, + { 0, 0, 0, 0, 0, 0, -2, 4, 0, 0, 0, 0, 1, -6, 9, 5, 3}, + { 0, 1,-1, 1, 0, 0, -3, 4, 0, 0, 0, 0, 0, 9, -13, -7, -5}, + { 0, 0, 0, 0, 0, 0, -2, 4, 0, 0, 0, 0, 1, -8, 12, 6, 4}, + { 0, 0, 0, 0, 0, 0, -2, 4, 0, 0, 0, 0, 2, -51, 0, 0, 22}, + { 0, 0, 0, 0, 0, -5, 8, 0, 0, 0, 0, 0, 2, -11,-268, -116, 5}, + + /* 221-230 */ + { 0, 2,-2, 2, 0, -5, 6, 0, 0, 0, 0, 0, 0, 0, 12, 5, 0}, + { 0, 0, 0, 0, 0, -5, 8, 0, 0, 0, 0, 0, 2, 0, 7, 3, 0}, + { 0, 0, 0, 0, 0, -5, 8, 0, 0, 0, 0, 0, 1, 31, 6, 3, -17}, + { 0, 1,-1, 1, 0, -5, 7, 0, 0, 0, 0, 0, 0, 140, 27, 14, -75}, + { 0, 0, 0, 0, 0, -5, 8, 0, 0, 0, 0, 0, 1, 57, 11, 6, -30}, + { 0, 0, 0, 0, 0, 5, -8, 0, 0, 0, 0, 0, 0, -14, -39, 0, 0}, + { 0, 1,-1, 2, 0, 0, -1, 0,-1, 0, 0, 0, 0, 0, -6, -2, 0}, + { 0, 0, 0, 1, 0, 0, 0, 0,-1, 0, 0, 0, 0, 4, 15, 8, -2}, + { 0,-1, 1, 0, 0, 0, 1, 0,-1, 0, 0, 0, 0, 0, 4, 0, 0}, + { 0, 2,-2, 1, 0, 0, -2, 0, 1, 0, 0, 0, 0, -3, 0, 0, 1}, + + /* 231-240 */ + { 0, 0, 0, 0, 0, 0, -6, 11, 0, 0, 0, 0, 2, 0, 11, 5, 0}, + { 0, 0, 0, 0, 0, 0, 6,-11, 0, 0, 0, 0, 0, 9, 6, 0, 0}, + { 0, 0, 0, 0,-1, 0, 4, 0, 0, 0, 0, 0, 2, -4, 10, 4, 2}, + { 0, 0, 0, 0, 1, 0, -4, 0, 0, 0, 0, 0, 0, 5, 3, 0, 0}, + { 2, 0,-2, 1, 0, -3, 3, 0, 0, 0, 0, 0, 0, 16, 0, 0, -9}, + {-2, 0, 2, 0, 0, 0, 2, 0, 0,-2, 0, 0, 0, -3, 0, 0, 0}, + { 0, 2,-2, 1, 0, 0, -7, 9, 0, 0, 0, 0, 0, 0, 3, 2, -1}, + { 0, 0, 0, 0, 0, 0, 0, 0, 4,-5, 0, 0, 2, 7, 0, 0, -3}, + { 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, -25, 22, 0, 0}, + { 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1, 42, 223, 119, -22}, + + /* 241-250 */ + { 0, 1,-1, 1, 0, 0, -1, 0, 2, 0, 0, 0, 0, -27,-143, -77, 14}, + { 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1, 9, 49, 26, -5}, + { 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2,-1166, 0, 0, 505}, + { 0, 2,-2, 2, 0, 0, -2, 0, 2, 0, 0, 0, 0, -5, 0, 0, 2}, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 2, -6, 0, 0, 3}, + { 0, 0, 0, 1, 0, 3, -5, 0, 0, 0, 0, 0, 0, -8, 0, 1, 4}, + { 0,-1, 1, 0, 0, 3, -4, 0, 0, 0, 0, 0, 0, 0, -4, 0, 0}, + { 0, 2,-2, 1, 0, -3, 3, 0, 0, 0, 0, 0, 0, 117, 0, 0, -63}, + { 0, 0, 0, 1, 0, 0, 2, -4, 0, 0, 0, 0, 0, -4, 8, 4, 2}, + { 0, 2,-2, 1, 0, 0, -4, 4, 0, 0, 0, 0, 0, 3, 0, 0, -2}, + + /* 251-260 */ + { 0, 1,-1, 2, 0, -5, 7, 0, 0, 0, 0, 0, 0, -5, 0, 0, 2}, + { 0, 0, 0, 0, 0, 0, 3, -6, 0, 0, 0, 0, 0, 0, 31, 0, 0}, + { 0, 0, 0, 0, 0, 0, -3, 6, 0, 0, 0, 0, 1, -5, 0, 1, 3}, + { 0, 1,-1, 1, 0, 0, -4, 6, 0, 0, 0, 0, 0, 4, 0, 0, -2}, + { 0, 0, 0, 0, 0, 0, -3, 6, 0, 0, 0, 0, 1, -4, 0, 0, 2}, + { 0, 0, 0, 0, 0, 0, -3, 6, 0, 0, 0, 0, 2, -24, -13, -6, 10}, + { 0,-1, 1, 0, 0, 2, -2, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0}, + { 0, 0, 0, 1, 0, 2, -3, 0, 0, 0, 0, 0, 0, 0, -32, -17, 0}, + { 0, 0, 0, 0, 0, 0, -5, 9, 0, 0, 0, 0, 2, 8, 12, 5, -3}, + { 0, 0, 0, 0, 0, 0, -5, 9, 0, 0, 0, 0, 1, 3, 0, 0, -1}, + + /* 261-270 */ + { 0, 0, 0, 0, 0, 0, 5, -9, 0, 0, 0, 0, 0, 7, 13, 0, 0}, + { 0,-1, 1, 0, 0, 0, 1, 0,-2, 0, 0, 0, 0, -3, 16, 0, 0}, + { 0, 2,-2, 1, 0, 0, -2, 0, 2, 0, 0, 0, 0, 50, 0, 0, -27}, + {-2, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, -5, -3, 0}, + { 0,-2, 2, 0, 0, 3, -3, 0, 0, 0, 0, 0, 0, 13, 0, 0, 0}, + { 0, 0, 0, 0, 0, -6, 10, 0, 0, 0, 0, 0, 1, 0, 5, 3, 1}, + { 0, 0, 0, 0, 0, -6, 10, 0, 0, 0, 0, 0, 2, 24, 5, 2, -11}, + { 0, 0, 0, 0, 0, -2, 3, 0, 0, 0, 0, 0, 2, 5, -11, -5, -2}, + { 0, 0, 0, 0, 0, -2, 3, 0, 0, 0, 0, 0, 1, 30, -3, -2, -16}, + { 0, 1,-1, 1, 0, -2, 2, 0, 0, 0, 0, 0, 0, 18, 0, 0, -9}, + + /* 271-280 */ + { 0, 0, 0, 0, 0, 2, -3, 0, 0, 0, 0, 0, 0, 8, 614, 0, 0}, + { 0, 0, 0, 0, 0, 2, -3, 0, 0, 0, 0, 0, 1, 3, -3, -1, -2}, + { 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 1, 6, 17, 9, -3}, + { 0, 1,-1, 1, 0, 0, -1, 0, 3, 0, 0, 0, 0, -3, -9, -5, 2}, + { 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 1, 0, 6, 3, -1}, + { 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 2, -127, 21, 9, 55}, + { 0, 0, 0, 0, 0, 0, 4, -8, 0, 0, 0, 0, 0, 3, 5, 0, 0}, + { 0, 0, 0, 0, 0, 0, -4, 8, 0, 0, 0, 0, 2, -6, -10, -4, 3}, + { 0,-2, 2, 0, 0, 0, 2, 0,-2, 0, 0, 0, 0, 5, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, -4, 7, 0, 0, 0, 0, 2, 16, 9, 4, -7}, + + /* 281-290 */ + { 0, 0, 0, 0, 0, 0, -4, 7, 0, 0, 0, 0, 1, 3, 0, 0, -2}, + { 0, 0, 0, 0, 0, 0, 4, -7, 0, 0, 0, 0, 0, 0, 22, 0, 0}, + { 0, 0, 0, 1, 0, -2, 3, 0, 0, 0, 0, 0, 0, 0, 19, 10, 0}, + { 0, 2,-2, 1, 0, 0, -2, 0, 3, 0, 0, 0, 0, 7, 0, 0, -4}, + { 0, 0, 0, 0, 0, 0, -5, 10, 0, 0, 0, 0, 2, 0, -5, -2, 0}, + { 0, 0, 0, 1, 0, -1, 2, 0, 0, 0, 0, 0, 0, 0, 3, 1, 0}, + { 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 2, -9, 3, 1, 4}, + { 0, 0, 0, 0, 0, 0, -3, 5, 0, 0, 0, 0, 2, 17, 0, 0, -7}, + { 0, 0, 0, 0, 0, 0, -3, 5, 0, 0, 0, 0, 1, 0, -3, -2, -1}, + { 0, 0, 0, 0, 0, 0, 3, -5, 0, 0, 0, 0, 0, -20, 34, 0, 0}, + + /* 291-300 */ + { 0, 0, 0, 0, 0, 1, -2, 0, 0, 0, 0, 0, 1, -10, 0, 1, 5}, + { 0, 1,-1, 1, 0, 1, -3, 0, 0, 0, 0, 0, 0, -4, 0, 0, 2}, + { 0, 0, 0, 0, 0, 1, -2, 0, 0, 0, 0, 0, 0, 22, -87, 0, 0}, + { 0, 0, 0, 0, 0, -1, 2, 0, 0, 0, 0, 0, 1, -4, 0, 0, 2}, + { 0, 0, 0, 0, 0, -1, 2, 0, 0, 0, 0, 0, 2, -3, -6, -2, 1}, + { 0, 0, 0, 0, 0, -7, 11, 0, 0, 0, 0, 0, 2, -16, -3, -1, 7}, + { 0, 0, 0, 0, 0, -7, 11, 0, 0, 0, 0, 0, 1, 0, -3, -2, 0}, + { 0,-2, 2, 0, 0, 4, -4, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 2, -3, 0, 0, 0, 0, 0, -68, 39, 0, 0}, + { 0, 2,-2, 1, 0, -4, 4, 0, 0, 0, 0, 0, 0, 27, 0, 0, -14}, + + /* 301-310 */ + { 0,-1, 1, 0, 0, 4, -5, 0, 0, 0, 0, 0, 0, 0, -4, 0, 0}, + { 0, 0, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, -25, 0, 0, 0}, + { 0, 0, 0, 0, 0, -4, 7, 0, 0, 0, 0, 0, 1, -12, -3, -2, 6}, + { 0, 1,-1, 1, 0, -4, 6, 0, 0, 0, 0, 0, 0, 3, 0, 0, -1}, + { 0, 0, 0, 0, 0, -4, 7, 0, 0, 0, 0, 0, 2, 3, 66, 29, -1}, + { 0, 0, 0, 0, 0, -4, 6, 0, 0, 0, 0, 0, 2, 490, 0, 0,-213}, + { 0, 0, 0, 0, 0, -4, 6, 0, 0, 0, 0, 0, 1, -22, 93, 49, 12}, + { 0, 1,-1, 1, 0, -4, 5, 0, 0, 0, 0, 0, 0, -7, 28, 15, 4}, + { 0, 0, 0, 0, 0, -4, 6, 0, 0, 0, 0, 0, 1, -3, 13, 7, 2}, + { 0, 0, 0, 0, 0, 4, -6, 0, 0, 0, 0, 0, 0, -46, 14, 0, 0}, + + /* 311-320 */ + {-2, 0, 2, 0, 0, 2, -2, 0, 0, 0, 0, 0, 0, -5, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 2, 1, 0, 0}, + { 0,-1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, -3, 0, 0}, + { 0, 0, 0, 1, 0, 1, -1, 0, 0, 0, 0, 0, 0, -28, 0, 0, 15}, + { 0, 0, 0, 0, 0, 0, -1, 0, 5, 0, 0, 0, 2, 5, 0, 0, -2}, + { 0, 0, 0, 0, 0, 0, 1, -3, 0, 0, 0, 0, 0, 0, 3, 0, 0}, + { 0, 0, 0, 0, 0, 0, -1, 3, 0, 0, 0, 0, 2, -11, 0, 0, 5}, + { 0, 0, 0, 0, 0, 0, -7, 12, 0, 0, 0, 0, 2, 0, 3, 1, 0}, + { 0, 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, 2, -3, 0, 0, 1}, + { 0, 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, 1, 25, 106, 57, -13}, + + /* 321-330 */ + { 0, 1,-1, 1, 0, -1, 0, 0, 0, 0, 0, 0, 0, 5, 21, 11, -3}, + { 0, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, 0, 1485, 0, 0, 0}, + { 0, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, 1, -7, -32, -17, 4}, + { 0, 1,-1, 1, 0, 1, -2, 0, 0, 0, 0, 0, 0, 0, 5, 3, 0}, + { 0, 0, 0, 0, 0, 0, -2, 5, 0, 0, 0, 0, 2, -6, -3, -2, 3}, + { 0, 0, 0, 0, 0, 0, -1, 0, 4, 0, 0, 0, 2, 30, -6, -2, -13}, + { 0, 0, 0, 0, 0, 0, 1, 0,-4, 0, 0, 0, 0, -4, 4, 0, 0}, + { 0, 0, 0, 1, 0, -1, 1, 0, 0, 0, 0, 0, 0, -19, 0, 0, 10}, + { 0, 0, 0, 0, 0, 0, -6, 10, 0, 0, 0, 0, 2, 0, 4, 2, -1}, + { 0, 0, 0, 0, 0, 0, -6, 10, 0, 0, 0, 0, 0, 0, 3, 0, 0}, + + /* 331-340 */ + { 0, 2,-2, 1, 0, 0, -3, 0, 3, 0, 0, 0, 0, 4, 0, 0, -2}, + { 0, 0, 0, 0, 0, 0, -3, 7, 0, 0, 0, 0, 2, 0, -3, -1, 0}, + {-2, 0, 2, 0, 0, 4, -4, 0, 0, 0, 0, 0, 0, -3, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, -5, 8, 0, 0, 0, 0, 2, 5, 3, 1, -2}, + { 0, 0, 0, 0, 0, 0, 5, -8, 0, 0, 0, 0, 0, 0, 11, 0, 0}, + { 0, 0, 0, 0, 0, 0, -1, 0, 3, 0, 0, 0, 2, 118, 0, 0, -52}, + { 0, 0, 0, 0, 0, 0, -1, 0, 3, 0, 0, 0, 1, 0, -5, -3, 0}, + { 0, 0, 0, 0, 0, 0, 1, 0,-3, 0, 0, 0, 0, -28, 36, 0, 0}, + { 0, 0, 0, 0, 0, 2, -4, 0, 0, 0, 0, 0, 0, 5, -5, 0, 0}, + { 0, 0, 0, 0, 0, -2, 4, 0, 0, 0, 0, 0, 1, 14, -59, -31, -8}, + + /* 341-350 */ + { 0, 1,-1, 1, 0, -2, 3, 0, 0, 0, 0, 0, 0, 0, 9, 5, 1}, + { 0, 0, 0, 0, 0, -2, 4, 0, 0, 0, 0, 0, 2, -458, 0, 0, 198}, + { 0, 0, 0, 0, 0, -6, 9, 0, 0, 0, 0, 0, 2, 0, -45, -20, 0}, + { 0, 0, 0, 0, 0, -6, 9, 0, 0, 0, 0, 0, 1, 9, 0, 0, -5}, + { 0, 0, 0, 0, 0, 6, -9, 0, 0, 0, 0, 0, 0, 0, -3, 0, 0}, + { 0, 0, 0, 1, 0, 0, 1, 0,-2, 0, 0, 0, 0, 0, -4, -2, -1}, + { 0, 2,-2, 1, 0, -2, 2, 0, 0, 0, 0, 0, 0, 11, 0, 0, -6}, + { 0, 0, 0, 0, 0, 0, -4, 6, 0, 0, 0, 0, 2, 6, 0, 0, -2}, + { 0, 0, 0, 0, 0, 0, 4, -6, 0, 0, 0, 0, 0, -16, 23, 0, 0}, + { 0, 0, 0, 1, 0, 3, -4, 0, 0, 0, 0, 0, 0, 0, -4, -2, 0}, + + /* 351-360 */ + { 0, 0, 0, 0, 0, 0, -1, 0, 2, 0, 0, 0, 2, -5, 0, 0, 2}, + { 0, 0, 0, 0, 0, 0, 1, 0,-2, 0, 0, 0, 0, -166, 269, 0, 0}, + { 0, 0, 0, 1, 0, 0, 1, 0,-1, 0, 0, 0, 0, 15, 0, 0, -8}, + { 0, 0, 0, 0, 0, -5, 9, 0, 0, 0, 0, 0, 2, 10, 0, 0, -4}, + { 0, 0, 0, 0, 0, 0, 3, -4, 0, 0, 0, 0, 0, -78, 45, 0, 0}, + { 0, 0, 0, 0, 0, -3, 4, 0, 0, 0, 0, 0, 2, 0, -5, -2, 0}, + { 0, 0, 0, 0, 0, -3, 4, 0, 0, 0, 0, 0, 1, 7, 0, 0, -4}, + { 0, 0, 0, 0, 0, 3, -4, 0, 0, 0, 0, 0, 0, -5, 328, 0, 0}, + { 0, 0, 0, 0, 0, 3, -4, 0, 0, 0, 0, 0, 1, 3, 0, 0, -2}, + { 0, 0, 0, 1, 0, 0, 2, -2, 0, 0, 0, 0, 0, 5, 0, 0, -2}, + + /* 361-370 */ + { 0, 0, 0, 1, 0, 0, -1, 0, 2, 0, 0, 0, 0, 0, 3, 1, 0}, + { 0, 0, 0, 0, 0, 0, 1, 0, 0,-3, 0, 0, 0, -3, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 1, 0, 1,-5, 0, 0, 0, -3, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, -1, 0, 1, 0, 0, 0, 1, 0, -4, -2, 0}, + { 0, 0, 0, 0, 0, 0, 1, 0,-1, 0, 0, 0, 0,-1223, -26, 0, 0}, + { 0, 0, 0, 0, 0, 0, 1, 0,-1, 0, 0, 0, 1, 0, 7, 3, 0}, + { 0, 0, 0, 0, 0, 0, 1, 0,-3, 5, 0, 0, 0, 3, 0, 0, 0}, + { 0, 0, 0, 1, 0, -3, 4, 0, 0, 0, 0, 0, 0, 0, 3, 2, 0}, + { 0, 0, 0, 0, 0, 0, 1, 0, 0,-2, 0, 0, 0, -6, 20, 0, 0}, + { 0, 0, 0, 0, 0, 0, 2, -2, 0, 0, 0, 0, 0, -368, 0, 0, 0}, + + /* 371-380 */ + { 0, 0, 0, 0, 0, 0, 1, 0, 0,-1, 0, 0, 0, -75, 0, 0, 0}, + { 0, 0, 0, 1, 0, 0, -1, 0, 1, 0, 0, 0, 0, 11, 0, 0, -6}, + { 0, 0, 0, 1, 0, 0, -2, 2, 0, 0, 0, 0, 0, 3, 0, 0, -2}, + { 0, 0, 0, 0, 0, -8, 14, 0, 0, 0, 0, 0, 2, -3, 0, 0, 1}, + { 0, 0, 0, 0, 0, 0, 1, 0, 2,-5, 0, 0, 0, -13, -30, 0, 0}, + { 0, 0, 0, 0, 0, 0, 5, -8, 3, 0, 0, 0, 0, 21, 3, 0, 0}, + { 0, 0, 0, 0, 0, 0, 5, -8, 3, 0, 0, 0, 2, -3, 0, 0, 1}, + { 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 1, -4, 0, 0, 2}, + { 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 8, -27, 0, 0}, + { 0, 0, 0, 0, 0, 0, 3, -8, 3, 0, 0, 0, 0, -19, -11, 0, 0}, + + /* 381-390 */ + { 0, 0, 0, 0, 0, 0, -3, 8,-3, 0, 0, 0, 2, -4, 0, 0, 2}, + { 0, 0, 0, 0, 0, 0, 1, 0,-2, 5, 0, 0, 2, 0, 5, 2, 0}, + { 0, 0, 0, 0, 0, -8, 12, 0, 0, 0, 0, 0, 2, -6, 0, 0, 2}, + { 0, 0, 0, 0, 0, -8, 12, 0, 0, 0, 0, 0, 0, -8, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 1, 0, 1,-2, 0, 0, 0, -1, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 2, -14, 0, 0, 6}, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 6, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 2, -74, 0, 0, 32}, + { 0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 2, 0, -3, -1, 0}, + { 0, 2,-2, 1, 0, -5, 5, 0, 0, 0, 0, 0, 0, 4, 0, 0, -2}, + + /* 391-400 */ + { 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 8, 11, 0, 0}, + { 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 3, 2, 0}, + { 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 2, -262, 0, 0, 114}, + { 0, 0, 0, 0, 0, 3, -6, 0, 0, 0, 0, 0, 0, 0, -4, 0, 0}, + { 0, 0, 0, 0, 0, -3, 6, 0, 0, 0, 0, 0, 1, -7, 0, 0, 4}, + { 0, 0, 0, 0, 0, -3, 6, 0, 0, 0, 0, 0, 2, 0, -27, -12, 0}, + { 0, 0, 0, 0, 0, 0, -1, 4, 0, 0, 0, 0, 2, -19, -8, -4, 8}, + { 0, 0, 0, 0, 0, -5, 7, 0, 0, 0, 0, 0, 2, 202, 0, 0, -87}, + { 0, 0, 0, 0, 0, -5, 7, 0, 0, 0, 0, 0, 1, -8, 35, 19, 5}, + { 0, 1,-1, 1, 0, -5, 6, 0, 0, 0, 0, 0, 0, 0, 4, 2, 0}, + + /* 401-410 */ + { 0, 0, 0, 0, 0, 5, -7, 0, 0, 0, 0, 0, 0, 16, -5, 0, 0}, + { 0, 2,-2, 1, 0, 0, -1, 0, 1, 0, 0, 0, 0, 5, 0, 0, -3}, + { 0, 0, 0, 0, 0, 0, -1, 0, 1, 0, 0, 0, 0, 0, -3, 0, 0}, + { 0, 0, 0, 0,-1, 0, 3, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 0, 0, 2, -35, -48, -21, 15}, + { 0, 0, 0, 0, 0, 0, -2, 6, 0, 0, 0, 0, 2, -3, -5, -2, 1}, + { 0, 0, 0, 1, 0, 2, -2, 0, 0, 0, 0, 0, 0, 6, 0, 0, -3}, + { 0, 0, 0, 0, 0, 0, -6, 9, 0, 0, 0, 0, 2, 3, 0, 0, -1}, + { 0, 0, 0, 0, 0, 0, 6, -9, 0, 0, 0, 0, 0, 0, -5, 0, 0}, + { 0, 0, 0, 0, 0, -2, 2, 0, 0, 0, 0, 0, 1, 12, 55, 29, -6}, + + /* 411-420 */ + { 0, 1,-1, 1, 0, -2, 1, 0, 0, 0, 0, 0, 0, 0, 5, 3, 0}, + { 0, 0, 0, 0, 0, 2, -2, 0, 0, 0, 0, 0, 0, -598, 0, 0, 0}, + { 0, 0, 0, 0, 0, 2, -2, 0, 0, 0, 0, 0, 1, -3, -13, -7, 1}, + { 0, 0, 0, 0, 0, 0, 1, 0, 3, 0, 0, 0, 2, -5, -7, -3, 2}, + { 0, 0, 0, 0, 0, 0, -5, 7, 0, 0, 0, 0, 2, 3, 0, 0, -1}, + { 0, 0, 0, 0, 0, 0, 5, -7, 0, 0, 0, 0, 0, 5, -7, 0, 0}, + { 0, 0, 0, 1, 0, -2, 2, 0, 0, 0, 0, 0, 0, 4, 0, 0, -2}, + { 0, 0, 0, 0, 0, 0, 4, -5, 0, 0, 0, 0, 0, 16, -6, 0, 0}, + { 0, 0, 0, 0, 0, 1, -3, 0, 0, 0, 0, 0, 0, 8, -3, 0, 0}, + { 0, 0, 0, 0, 0, -1, 3, 0, 0, 0, 0, 0, 1, 8, -31, -16, -4}, + + /* 421-430 */ + { 0, 1,-1, 1, 0, -1, 2, 0, 0, 0, 0, 0, 0, 0, 3, 1, 0}, + { 0, 0, 0, 0, 0, -1, 3, 0, 0, 0, 0, 0, 2, 113, 0, 0, -49}, + { 0, 0, 0, 0, 0, -7, 10, 0, 0, 0, 0, 0, 2, 0, -24, -10, 0}, + { 0, 0, 0, 0, 0, -7, 10, 0, 0, 0, 0, 0, 1, 4, 0, 0, -2}, + { 0, 0, 0, 0, 0, 0, 3, -3, 0, 0, 0, 0, 0, 27, 0, 0, 0}, + { 0, 0, 0, 0, 0, -4, 8, 0, 0, 0, 0, 0, 2, -3, 0, 0, 1}, + { 0, 0, 0, 0, 0, -4, 5, 0, 0, 0, 0, 0, 2, 0, -4, -2, 0}, + { 0, 0, 0, 0, 0, -4, 5, 0, 0, 0, 0, 0, 1, 5, 0, 0, -2}, + { 0, 0, 0, 0, 0, 4, -5, 0, 0, 0, 0, 0, 0, 0, -3, 0, 0}, + { 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 2, -13, 0, 0, 6}, + + /* 431-440 */ + { 0, 0, 0, 0, 0, 0, -2, 0, 5, 0, 0, 0, 2, 5, 0, 0, -2}, + { 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 2, -18, -10, -4, 8}, + { 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, -4, -28, 0, 0}, + { 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 2, -5, 6, 3, 2}, + { 0, 0, 0, 0, 0, -9, 13, 0, 0, 0, 0, 0, 2, -3, 0, 0, 1}, + { 0, 0, 0, 0, 0, 0, -1, 5, 0, 0, 0, 0, 2, -5, -9, -4, 2}, + { 0, 0, 0, 0, 0, 0, -2, 0, 4, 0, 0, 0, 2, 17, 0, 0, -7}, + { 0, 0, 0, 0, 0, 0, 2, 0,-4, 0, 0, 0, 0, 11, 4, 0, 0}, + { 0, 0, 0, 0, 0, 0, -2, 7, 0, 0, 0, 0, 2, 0, -6, -2, 0}, + { 0, 0, 0, 0, 0, 0, 2, 0,-3, 0, 0, 0, 0, 83, 15, 0, 0}, + + /* 441-450 */ + { 0, 0, 0, 0, 0, -2, 5, 0, 0, 0, 0, 0, 1, -4, 0, 0, 2}, + { 0, 0, 0, 0, 0, -2, 5, 0, 0, 0, 0, 0, 2, 0,-114, -49, 0}, + { 0, 0, 0, 0, 0, -6, 8, 0, 0, 0, 0, 0, 2, 117, 0, 0, -51}, + { 0, 0, 0, 0, 0, -6, 8, 0, 0, 0, 0, 0, 1, -5, 19, 10, 2}, + { 0, 0, 0, 0, 0, 6, -8, 0, 0, 0, 0, 0, 0, -3, 0, 0, 0}, + { 0, 0, 0, 1, 0, 0, 2, 0,-2, 0, 0, 0, 0, -3, 0, 0, 2}, + { 0, 0, 0, 0, 0, 0, -3, 9, 0, 0, 0, 0, 2, 0, -3, -1, 0}, + { 0, 0, 0, 0, 0, 0, 5, -6, 0, 0, 0, 0, 0, 3, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 5, -6, 0, 0, 0, 0, 2, 0, -6, -2, 0}, + { 0, 0, 0, 0, 0, 0, 2, 0,-2, 0, 0, 0, 0, 393, 3, 0, 0}, + + /* 451-460 */ + { 0, 0, 0, 0, 0, 0, 2, 0,-2, 0, 0, 0, 1, -4, 21, 11, 2}, + { 0, 0, 0, 0, 0, 0, 2, 0,-2, 0, 0, 0, 2, -6, 0, -1, 3}, + { 0, 0, 0, 0, 0, -5, 10, 0, 0, 0, 0, 0, 2, -3, 8, 4, 1}, + { 0, 0, 0, 0, 0, 0, 4, -4, 0, 0, 0, 0, 0, 8, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 4, -4, 0, 0, 0, 0, 2, 18, -29, -13, -8}, + { 0, 0, 0, 0, 0, -3, 3, 0, 0, 0, 0, 0, 1, 8, 34, 18, -4}, + { 0, 0, 0, 0, 0, 3, -3, 0, 0, 0, 0, 0, 0, 89, 0, 0, 0}, + { 0, 0, 0, 0, 0, 3, -3, 0, 0, 0, 0, 0, 1, 3, 12, 6, -1}, + { 0, 0, 0, 0, 0, 3, -3, 0, 0, 0, 0, 0, 2, 54, -15, -7, -24}, + { 0, 0, 0, 0, 0, 0, 2, 0, 0,-3, 0, 0, 0, 0, 3, 0, 0}, + + /* 461-470 */ + { 0, 0, 0, 0, 0, 0, -5, 13, 0, 0, 0, 0, 2, 3, 0, 0, -1}, + { 0, 0, 0, 0, 0, 0, 2, 0,-1, 0, 0, 0, 0, 0, 35, 0, 0}, + { 0, 0, 0, 0, 0, 0, 2, 0,-1, 0, 0, 0, 2, -154, -30, -13, 67}, + { 0, 0, 0, 0, 0, 0, 2, 0, 0,-2, 0, 0, 0, 15, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 2, 0, 0,-2, 0, 0, 1, 0, 4, 2, 0}, + { 0, 0, 0, 0, 0, 0, 3, -2, 0, 0, 0, 0, 0, 0, 9, 0, 0}, + { 0, 0, 0, 0, 0, 0, 3, -2, 0, 0, 0, 0, 2, 80, -71, -31, -35}, + { 0, 0, 0, 0, 0, 0, 2, 0, 0,-1, 0, 0, 2, 0, -20, -9, 0}, + { 0, 0, 0, 0, 0, 0, -6, 15, 0, 0, 0, 0, 2, 11, 5, 2, -5}, + { 0, 0, 0, 0, 0, -8, 15, 0, 0, 0, 0, 0, 2, 61, -96, -42, -27}, + + /* 471-480 */ + { 0, 0, 0, 0, 0, -3, 9, -4, 0, 0, 0, 0, 2, 14, 9, 4, -6}, + { 0, 0, 0, 0, 0, 0, 2, 0, 2,-5, 0, 0, 2, -11, -6, -3, 5}, + { 0, 0, 0, 0, 0, 0, -2, 8,-1,-5, 0, 0, 2, 0, -3, -1, 0}, + { 0, 0, 0, 0, 0, 0, 6, -8, 3, 0, 0, 0, 2, 123,-415, -180, -53}, + { 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, -35}, + { 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, -5, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 1, 7, -32, -17, -4}, + { 0, 1,-1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, -9, -5, 0}, + { 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 1, 0, -4, 2, 0}, + { 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, -89, 0, 0, 38}, + + /* 481-490 */ + { 0, 0, 0, 0, 0, 0, -6, 16,-4,-5, 0, 0, 2, 0, -86, -19, -6}, + { 0, 0, 0, 0, 0, 0, -2, 8,-3, 0, 0, 0, 2, 0, 0, -19, 6}, + { 0, 0, 0, 0, 0, 0, -2, 8,-3, 0, 0, 0, 2, -123,-416, -180, 53}, + { 0, 0, 0, 0, 0, 0, 6, -8, 1, 5, 0, 0, 2, 0, -3, -1, 0}, + { 0, 0, 0, 0, 0, 0, 2, 0,-2, 5, 0, 0, 2, 12, -6, -3, -5}, + { 0, 0, 0, 0, 0, 3, -5, 4, 0, 0, 0, 0, 2, -13, 9, 4, 6}, + { 0, 0, 0, 0, 0, -8, 11, 0, 0, 0, 0, 0, 2, 0, -15, -7, 0}, + { 0, 0, 0, 0, 0, -8, 11, 0, 0, 0, 0, 0, 1, 3, 0, 0, -1}, + { 0, 0, 0, 0, 0, -8, 11, 0, 0, 0, 0, 0, 2, -62, -97, -42, 27}, + { 0, 0, 0, 0, 0, 0, 11, 0, 0, 0, 0, 0, 2, -11, 5, 2, 5}, + + /* 491-500 */ + { 0, 0, 0, 0, 0, 0, 2, 0, 0, 1, 0, 0, 2, 0, -19, -8, 0}, + { 0, 0, 0, 0, 0, 3, -3, 0, 2, 0, 0, 0, 2, -3, 0, 0, 1}, + { 0, 2,-2, 1, 0, 0, 4, -8, 3, 0, 0, 0, 0, 0, 4, 2, 0}, + { 0, 1,-1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0}, + { 0, 2,-2, 1, 0, 0, -4, 8,-3, 0, 0, 0, 0, 0, 4, 2, 0}, + { 0, 0, 0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 2, -85, -70, -31, 37}, + { 0, 0, 0, 0, 0, 0, 2, 0, 1, 0, 0, 0, 2, 163, -12, -5, -72}, + { 0, 0, 0, 0, 0, -3, 7, 0, 0, 0, 0, 0, 2, -63, -16, -7, 28}, + { 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 2, -21, -32, -14, 9}, + { 0, 0, 0, 0, 0, -5, 6, 0, 0, 0, 0, 0, 2, 0, -3, -1, 0}, + + /* 501-510 */ + { 0, 0, 0, 0, 0, -5, 6, 0, 0, 0, 0, 0, 1, 3, 0, 0, -2}, + { 0, 0, 0, 0, 0, 5, -6, 0, 0, 0, 0, 0, 0, 0, 8, 0, 0}, + { 0, 0, 0, 0, 0, 5, -6, 0, 0, 0, 0, 0, 2, 3, 10, 4, -1}, + { 0, 0, 0, 0, 0, 0, 2, 0, 2, 0, 0, 0, 2, 3, 0, 0, -1}, + { 0, 0, 0, 0, 0, 0, -1, 6, 0, 0, 0, 0, 2, 0, -7, -3, 0}, + { 0, 0, 0, 0, 0, 0, 7, -9, 0, 0, 0, 0, 2, 0, -4, -2, 0}, + { 0, 0, 0, 0, 0, 2, -1, 0, 0, 0, 0, 0, 0, 6, 19, 0, 0}, + { 0, 0, 0, 0, 0, 2, -1, 0, 0, 0, 0, 0, 2, 5,-173, -75, -2}, + { 0, 0, 0, 0, 0, 0, 6, -7, 0, 0, 0, 0, 2, 0, -7, -3, 0}, + { 0, 0, 0, 0, 0, 0, 5, -5, 0, 0, 0, 0, 2, 7, -12, -5, -3}, + + /* 511-520 */ + { 0, 0, 0, 0, 0, -1, 4, 0, 0, 0, 0, 0, 1, -3, 0, 0, 2}, + { 0, 0, 0, 0, 0, -1, 4, 0, 0, 0, 0, 0, 2, 3, -4, -2, -1}, + { 0, 0, 0, 0, 0, -7, 9, 0, 0, 0, 0, 0, 2, 74, 0, 0, -32}, + { 0, 0, 0, 0, 0, -7, 9, 0, 0, 0, 0, 0, 1, -3, 12, 6, 2}, + { 0, 0, 0, 0, 0, 0, 4, -3, 0, 0, 0, 0, 2, 26, -14, -6, -11}, + { 0, 0, 0, 0, 0, 0, 3, -1, 0, 0, 0, 0, 2, 19, 0, 0, -8}, + { 0, 0, 0, 0, 0, -4, 4, 0, 0, 0, 0, 0, 1, 6, 24, 13, -3}, + { 0, 0, 0, 0, 0, 4, -4, 0, 0, 0, 0, 0, 0, 83, 0, 0, 0}, + { 0, 0, 0, 0, 0, 4, -4, 0, 0, 0, 0, 0, 1, 0, -10, -5, 0}, + { 0, 0, 0, 0, 0, 4, -4, 0, 0, 0, 0, 0, 2, 11, -3, -1, -5}, + + /* 521-530 */ + { 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 2, 3, 0, 1, -1}, + { 0, 0, 0, 0, 0, 0, -3, 0, 5, 0, 0, 0, 2, 3, 0, 0, -1}, + { 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, -4, 0, 0, 0}, + { 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 5, -23, -12, -3}, + { 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 2, -339, 0, 0, 147}, + { 0, 0, 0, 0, 0, -9, 12, 0, 0, 0, 0, 0, 2, 0, -10, -5, 0}, + { 0, 0, 0, 0, 0, 0, 3, 0,-4, 0, 0, 0, 0, 5, 0, 0, 0}, + { 0, 2,-2, 1, 0, 1, -1, 0, 0, 0, 0, 0, 0, 3, 0, 0, -1}, + { 0, 0, 0, 0, 0, 0, 7, -8, 0, 0, 0, 0, 2, 0, -4, -2, 0}, + { 0, 0, 0, 0, 0, 0, 3, 0,-3, 0, 0, 0, 0, 18, -3, 0, 0}, + + /* 531-540 */ + { 0, 0, 0, 0, 0, 0, 3, 0,-3, 0, 0, 0, 2, 9, -11, -5, -4}, + { 0, 0, 0, 0, 0, -2, 6, 0, 0, 0, 0, 0, 2, -8, 0, 0, 4}, + { 0, 0, 0, 0, 0, -6, 7, 0, 0, 0, 0, 0, 1, 3, 0, 0, -1}, + { 0, 0, 0, 0, 0, 6, -7, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0}, + { 0, 0, 0, 0, 0, 0, 6, -6, 0, 0, 0, 0, 2, 6, -9, -4, -2}, + { 0, 0, 0, 0, 0, 0, 3, 0,-2, 0, 0, 0, 0, -4, -12, 0, 0}, + { 0, 0, 0, 0, 0, 0, 3, 0,-2, 0, 0, 0, 2, 67, -91, -39, -29}, + { 0, 0, 0, 0, 0, 0, 5, -4, 0, 0, 0, 0, 2, 30, -18, -8, -13}, + { 0, 0, 0, 0, 0, 3, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, + { 0, 0, 0, 0, 0, 3, -2, 0, 0, 0, 0, 0, 2, 0,-114, -50, 0}, + + /* 541-550 */ + { 0, 0, 0, 0, 0, 0, 3, 0,-1, 0, 0, 0, 2, 0, 0, 0, 23}, + { 0, 0, 0, 0, 0, 0, 3, 0,-1, 0, 0, 0, 2, 517, 16, 7,-224}, + { 0, 0, 0, 0, 0, 0, 3, 0, 0,-2, 0, 0, 2, 0, -7, -3, 0}, + { 0, 0, 0, 0, 0, 0, 4, -2, 0, 0, 0, 0, 2, 143, -3, -1, -62}, + { 0, 0, 0, 0, 0, 0, 3, 0, 0,-1, 0, 0, 2, 29, 0, 0, -13}, + { 0, 2,-2, 1, 0, 0, 1, 0,-1, 0, 0, 0, 0, -4, 0, 0, 2}, + { 0, 0, 0, 0, 0, -8, 16, 0, 0, 0, 0, 0, 2, -6, 0, 0, 3}, + { 0, 0, 0, 0, 0, 0, 3, 0, 2,-5, 0, 0, 2, 5, 12, 5, -2}, + { 0, 0, 0, 0, 0, 0, 7, -8, 3, 0, 0, 0, 2, -25, 0, 0, 11}, + { 0, 0, 0, 0, 0, 0, -5, 16,-4,-5, 0, 0, 2, -3, 0, 0, 1}, + + /* 551-560 */ + { 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 2, 0, 4, 2, 0}, + { 0, 0, 0, 0, 0, 0, -1, 8,-3, 0, 0, 0, 2, -22, 12, 5, 10}, + { 0, 0, 0, 0, 0, -8, 10, 0, 0, 0, 0, 0, 2, 50, 0, 0, -22}, + { 0, 0, 0, 0, 0, -8, 10, 0, 0, 0, 0, 0, 1, 0, 7, 4, 0}, + { 0, 0, 0, 0, 0, -8, 10, 0, 0, 0, 0, 0, 2, 0, 3, 1, 0}, + { 0, 0, 0, 0, 0, 0, 2, 2, 0, 0, 0, 0, 2, -4, 4, 2, 2}, + { 0, 0, 0, 0, 0, 0, 3, 0, 1, 0, 0, 0, 2, -5, -11, -5, 2}, + { 0, 0, 0, 0, 0, -3, 8, 0, 0, 0, 0, 0, 2, 0, 4, 2, 0}, + { 0, 0, 0, 0, 0, -5, 5, 0, 0, 0, 0, 0, 1, 4, 17, 9, -2}, + { 0, 0, 0, 0, 0, 5, -5, 0, 0, 0, 0, 0, 0, 59, 0, 0, 0}, + + /* 561-570 */ + { 0, 0, 0, 0, 0, 5, -5, 0, 0, 0, 0, 0, 1, 0, -4, -2, 0}, + { 0, 0, 0, 0, 0, 5, -5, 0, 0, 0, 0, 0, 2, -8, 0, 0, 4}, + { 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, -3, 0, 0, 0}, + { 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 1, 4, -15, -8, -2}, + { 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 2, 370, -8, 0,-160}, + { 0, 0, 0, 0, 0, 0, 7, -7, 0, 0, 0, 0, 2, 0, 0, -3, 0}, + { 0, 0, 0, 0, 0, 0, 7, -7, 0, 0, 0, 0, 2, 0, 3, 1, 0}, + { 0, 0, 0, 0, 0, 0, 6, -5, 0, 0, 0, 0, 2, -6, 3, 1, 3}, + { 0, 0, 0, 0, 0, 7, -8, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0}, + { 0, 0, 0, 0, 0, 0, 5, -3, 0, 0, 0, 0, 2, -10, 0, 0, 4}, + + /* 571-580 */ + { 0, 0, 0, 0, 0, 4, -3, 0, 0, 0, 0, 0, 2, 0, 9, 4, 0}, + { 0, 0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0, 2, 4, 17, 7, -2}, + { 0, 0, 0, 0, 0, -9, 11, 0, 0, 0, 0, 0, 2, 34, 0, 0, -15}, + { 0, 0, 0, 0, 0, -9, 11, 0, 0, 0, 0, 0, 1, 0, 5, 3, 0}, + { 0, 0, 0, 0, 0, 0, 4, 0,-4, 0, 0, 0, 2, -5, 0, 0, 2}, + { 0, 0, 0, 0, 0, 0, 4, 0,-3, 0, 0, 0, 2, -37, -7, -3, 16}, + { 0, 0, 0, 0, 0, -6, 6, 0, 0, 0, 0, 0, 1, 3, 13, 7, -2}, + { 0, 0, 0, 0, 0, 6, -6, 0, 0, 0, 0, 0, 0, 40, 0, 0, 0}, + { 0, 0, 0, 0, 0, 6, -6, 0, 0, 0, 0, 0, 1, 0, -3, -2, 0}, + { 0, 0, 0, 0, 0, 0, 4, 0,-2, 0, 0, 0, 2, -184, -3, -1, 80}, + + /* 581-590 */ + { 0, 0, 0, 0, 0, 0, 6, -4, 0, 0, 0, 0, 2, -3, 0, 0, 1}, + { 0, 0, 0, 0, 0, 3, -1, 0, 0, 0, 0, 0, 0, -3, 0, 0, 0}, + { 0, 0, 0, 0, 0, 3, -1, 0, 0, 0, 0, 0, 1, 0, -10, -6, -1}, + { 0, 0, 0, 0, 0, 3, -1, 0, 0, 0, 0, 0, 2, 31, -6, 0, -13}, + { 0, 0, 0, 0, 0, 0, 4, 0,-1, 0, 0, 0, 2, -3, -32, -14, 1}, + { 0, 0, 0, 0, 0, 0, 4, 0, 0,-2, 0, 0, 2, -7, 0, 0, 3}, + { 0, 0, 0, 0, 0, 0, 5, -2, 0, 0, 0, 0, 2, 0, -8, -4, 0}, + { 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 3, -4, 0, 0}, + { 0, 0, 0, 0, 0, 8, -9, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0}, + { 0, 0, 0, 0, 0, 5, -4, 0, 0, 0, 0, 0, 2, 0, 3, 1, 0}, + + /* 591-600 */ + { 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 2, 19, -23, -10, 2}, + { 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, -10}, + { 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 1, 0, 3, 2, 0}, + { 0, 0, 0, 0, 0, -7, 7, 0, 0, 0, 0, 0, 1, 0, 9, 5, -1}, + { 0, 0, 0, 0, 0, 7, -7, 0, 0, 0, 0, 0, 0, 28, 0, 0, 0}, + { 0, 0, 0, 0, 0, 4, -2, 0, 0, 0, 0, 0, 1, 0, -7, -4, 0}, + { 0, 0, 0, 0, 0, 4, -2, 0, 0, 0, 0, 0, 2, 8, -4, 0, -4}, + { 0, 0, 0, 0, 0, 4, -2, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0}, + { 0, 0, 0, 0, 0, 4, -2, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0}, + { 0, 0, 0, 0, 0, 0, 5, 0,-4, 0, 0, 0, 2, -3, 0, 0, 1}, + + /* 601-610 */ + { 0, 0, 0, 0, 0, 0, 5, 0,-3, 0, 0, 0, 2, -9, 0, 1, 4}, + { 0, 0, 0, 0, 0, 0, 5, 0,-2, 0, 0, 0, 2, 3, 12, 5, -1}, + { 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 2, 17, -3, -1, 0}, + { 0, 0, 0, 0, 0, -8, 8, 0, 0, 0, 0, 0, 1, 0, 7, 4, 0}, + { 0, 0, 0, 0, 0, 8, -8, 0, 0, 0, 0, 0, 0, 19, 0, 0, 0}, + { 0, 0, 0, 0, 0, 5, -3, 0, 0, 0, 0, 0, 1, 0, -5, -3, 0}, + { 0, 0, 0, 0, 0, 5, -3, 0, 0, 0, 0, 0, 2, 14, -3, 0, -1}, + { 0, 0, 0, 0, 0, -9, 9, 0, 0, 0, 0, 0, 1, 0, 0, -1, 0}, + { 0, 0, 0, 0, 0, -9, 9, 0, 0, 0, 0, 0, 1, 0, 0, 0, -5}, + { 0, 0, 0, 0, 0, -9, 9, 0, 0, 0, 0, 0, 1, 0, 5, 3, 0}, + + /* 611-620 */ + { 0, 0, 0, 0, 0, 9, -9, 0, 0, 0, 0, 0, 0, 13, 0, 0, 0}, + { 0, 0, 0, 0, 0, 6, -4, 0, 0, 0, 0, 0, 1, 0, -3, -2, 0}, + { 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 2, 2, 9, 4, 3}, + { 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, -4}, + { 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 0, 8, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 1, 0, 4, 2, 0}, + { 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 2, 6, 0, 0, -3}, + { 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0}, + { 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 1, 0, 3, 1, 0}, + { 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 2, 5, 0, 0, -2}, + + /* 621-630 */ + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 3, 0, 0, -1}, + { 1, 0,-2, 0, 0, 0, 2, 0,-2, 0, 0, 0, 0, -3, 0, 0, 0}, + { 1, 0,-2, 0, 0, 2, -2, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0}, + { 1, 0,-2, 0, 0, 0, 1, 0,-1, 0, 0, 0, 0, 7, 0, 0, 0}, + { 1, 0,-2, 0, 0, 1, -1, 0, 0, 0, 0, 0, 0, -4, 0, 0, 0}, + {-1, 0, 0, 0, 0, 3, -3, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0}, + {-1, 0, 0, 0, 0, 0, 2, 0,-2, 0, 0, 0, 0, 6, 0, 0, 0}, + {-1, 0, 2, 0, 0, 0, 4, -8, 3, 0, 0, 0, 0, 0, -4, 0, 0}, + { 1, 0,-2, 0, 0, 0, 4, -8, 3, 0, 0, 0, 0, 0, -4, 0, 0}, + {-2, 0, 2, 0, 0, 0, 4, -8, 3, 0, 0, 0, 0, 5, 0, 0, 0}, + + /* 631-640 */ + {-1, 0, 0, 0, 0, 0, 2, 0,-3, 0, 0, 0, 0, -3, 0, 0, 0}, + {-1, 0, 0, 0, 0, 0, 1, 0,-1, 0, 0, 0, 0, 4, 0, 0, 0}, + {-1, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, 0, -5, 0, 0, 0}, + {-1, 0, 2, 0, 0, 2, -2, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0}, + { 1,-1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0}, + {-1, 0, 2, 0, 0, 0, 2, 0,-3, 0, 0, 0, 0, 13, 0, 0, 0}, + {-2, 0, 0, 0, 0, 0, 2, 0,-3, 0, 0, 0, 0, 21, 11, 0, 0}, + { 1, 0, 0, 0, 0, 0, 4, -8, 3, 0, 0, 0, 0, 0, -5, 0, 0}, + {-1, 1,-1, 1, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, -5, -2, 0}, + { 1, 1,-1, 1, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 5, 3, 0}, + + /* 641-650 */ + {-1, 0, 0, 0, 0, 0, 4, -8, 3, 0, 0, 0, 0, 0, -5, 0, 0}, + {-1, 0, 2, 1, 0, 0, 2, 0,-2, 0, 0, 0, 0, -3, 0, 0, 2}, + { 0, 0, 0, 0, 0, 0, 2, 0,-2, 0, 0, 0, 0, 20, 10, 0, 0}, + {-1, 0, 2, 0, 0, 0, 2, 0,-2, 0, 0, 0, 0, -34, 0, 0, 0}, + {-1, 0, 2, 0, 0, 3, -3, 0, 0, 0, 0, 0, 0, -19, 0, 0, 0}, + { 1, 0,-2, 1, 0, 0, -2, 0, 2, 0, 0, 0, 0, 3, 0, 0, -2}, + { 1, 2,-2, 2, 0, -3, 3, 0, 0, 0, 0, 0, 0, -3, 0, 0, 1}, + { 1, 2,-2, 2, 0, 0, -2, 0, 2, 0, 0, 0, 0, -6, 0, 0, 3}, + { 1, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, 0, -4, 0, 0, 0}, + { 1, 0, 0, 0, 0, 0, 1, 0,-1, 0, 0, 0, 0, 3, 0, 0, 0}, + + /* 651-660 */ + { 0, 0,-2, 0, 0, 2, -2, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0}, + { 0, 0,-2, 0, 0, 0, 1, 0,-1, 0, 0, 0, 0, 4, 0, 0, 0}, + { 0, 2, 0, 2, 0, -2, 2, 0, 0, 0, 0, 0, 0, 3, 0, 0, -1}, + { 0, 2, 0, 2, 0, 0, -1, 0, 1, 0, 0, 0, 0, 6, 0, 0, -3}, + { 0, 2, 0, 2, 0, -1, 1, 0, 0, 0, 0, 0, 0, -8, 0, 0, 3}, + { 0, 2, 0, 2, 0, -2, 3, 0, 0, 0, 0, 0, 0, 0, 3, 1, 0}, + { 0, 0, 2, 0, 0, 0, 2, 0,-2, 0, 0, 0, 0, -3, 0, 0, 0}, + { 0, 1, 1, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, -3, -2, 0}, + { 1, 2, 0, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0, 126, -63, -27, -55}, + {-1, 2, 0, 2, 0, 10, -3, 0, 0, 0, 0, 0, 0, -5, 0, 1, 2}, + + /* 661-670 */ + { 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, -3, 28, 15, 2}, + { 1, 2, 0, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0, 5, 0, 1, -2}, + { 0, 2, 0, 2, 0, 0, 4, -8, 3, 0, 0, 0, 0, 0, 9, 4, 1}, + { 0, 2, 0, 2, 0, 0, -4, 8,-3, 0, 0, 0, 0, 0, 9, 4, -1}, + {-1, 2, 0, 2, 0, 0, -4, 8,-3, 0, 0, 0, 0, -126, -63, -27, 55}, + { 2, 2,-2, 2, 0, 0, -2, 0, 3, 0, 0, 0, 0, 3, 0, 0, -1}, + { 1, 2, 0, 1, 0, 0, -2, 0, 3, 0, 0, 0, 0, 21, -11, -6, -11}, + { 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, -4, 0, 0}, + {-1, 2, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, -21, -11, -6, 11}, + {-2, 2, 2, 2, 0, 0, 2, 0,-2, 0, 0, 0, 0, -3, 0, 0, 1}, + + /* 671-680 */ + { 0, 2, 0, 2, 0, 2, -3, 0, 0, 0, 0, 0, 0, 0, 3, 1, 0}, + { 0, 2, 0, 2, 0, 1, -1, 0, 0, 0, 0, 0, 0, 8, 0, 0, -4}, + { 0, 2, 0, 2, 0, 0, 1, 0,-1, 0, 0, 0, 0, -6, 0, 0, 3}, + { 0, 2, 0, 2, 0, 2, -2, 0, 0, 0, 0, 0, 0, -3, 0, 0, 1}, + {-1, 2, 2, 2, 0, 0, -1, 0, 1, 0, 0, 0, 0, 3, 0, 0, -1}, + { 1, 2, 0, 2, 0, -1, 1, 0, 0, 0, 0, 0, 0, -3, 0, 0, 1}, + {-1, 2, 2, 2, 0, 0, 2, 0,-3, 0, 0, 0, 0, -5, 0, 0, 2}, + { 2, 2, 0, 2, 0, 0, 2, 0,-3, 0, 0, 0, 0, 24, -12, -5, -11}, + { 1, 2, 0, 2, 0, 0, -4, 8,-3, 0, 0, 0, 0, 0, 3, 1, 0}, + { 1, 2, 0, 2, 0, 0, 4, -8, 3, 0, 0, 0, 0, 0, 3, 1, 0}, + + /* 681-687 */ + { 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 3, 2, 0}, + { 0, 2, 0, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0, -24, -12, -5, 10}, + { 2, 2, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 4, 0, -1, -2}, + {-1, 2, 2, 2, 0, 0, 2, 0,-2, 0, 0, 0, 0, 13, 0, 0, -6}, + {-1, 2, 2, 2, 0, 3, -3, 0, 0, 0, 0, 0, 0, 7, 0, 0, -3}, + { 1, 2, 0, 2, 0, 1, -1, 0, 0, 0, 0, 0, 0, 3, 0, 0, -1}, + { 0, 2, 2, 2, 0, 0, 2, 0,-2, 0, 0, 0, 0, 3, 0, 0, -1} + }; + +/* Number of terms in the planetary nutation model */ + const int NPL = (int) (sizeof xpl / sizeof xpl[0]); + +/*--------------------------------------------------------------------*/ + +/* Interval between fundamental date J2000.0 and given date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* ------------------- */ +/* LUNI-SOLAR NUTATION */ +/* ------------------- */ + +/* Fundamental (Delaunay) arguments */ + +/* Mean anomaly of the Moon (IERS 2003). */ + el = iauFal03(t); + +/* Mean anomaly of the Sun (MHB2000). */ + elp = fmod(1287104.79305 + + t * (129596581.0481 + + t * (-0.5532 + + t * (0.000136 + + t * (-0.00001149)))), TURNAS) * DAS2R; + +/* Mean longitude of the Moon minus that of the ascending node */ +/* (IERS 2003. */ + f = iauFaf03(t); + +/* Mean elongation of the Moon from the Sun (MHB2000). */ + d = fmod(1072260.70369 + + t * (1602961601.2090 + + t * (-6.3706 + + t * (0.006593 + + t * (-0.00003169)))), TURNAS) * DAS2R; + +/* Mean longitude of the ascending node of the Moon (IERS 2003). */ + om = iauFaom03(t); + +/* Initialize the nutation values. */ + dp = 0.0; + de = 0.0; + +/* Summation of luni-solar nutation series (in reverse order). */ + for (i = NLS-1; i >= 0; i--) { + + /* Argument and functions. */ + arg = fmod((double)xls[i].nl * el + + (double)xls[i].nlp * elp + + (double)xls[i].nf * f + + (double)xls[i].nd * d + + (double)xls[i].nom * om, D2PI); + sarg = sin(arg); + carg = cos(arg); + + /* Term. */ + dp += (xls[i].sp + xls[i].spt * t) * sarg + xls[i].cp * carg; + de += (xls[i].ce + xls[i].cet * t) * carg + xls[i].se * sarg; + } + +/* Convert from 0.1 microarcsec units to radians. */ + dpsils = dp * U2R; + depsls = de * U2R; + +/* ------------------ */ +/* PLANETARY NUTATION */ +/* ------------------ */ + +/* n.b. The MHB2000 code computes the luni-solar and planetary nutation */ +/* in different functions, using slightly different Delaunay */ +/* arguments in the two cases. This behaviour is faithfully */ +/* reproduced here. Use of the IERS 2003 expressions for both */ +/* cases leads to negligible changes, well below */ +/* 0.1 microarcsecond. */ + +/* Mean anomaly of the Moon (MHB2000). */ + al = fmod(2.35555598 + 8328.6914269554 * t, D2PI); + +/* Mean longitude of the Moon minus that of the ascending node */ +/*(MHB2000). */ + af = fmod(1.627905234 + 8433.466158131 * t, D2PI); + +/* Mean elongation of the Moon from the Sun (MHB2000). */ + ad = fmod(5.198466741 + 7771.3771468121 * t, D2PI); + +/* Mean longitude of the ascending node of the Moon (MHB2000). */ + aom = fmod(2.18243920 - 33.757045 * t, D2PI); + +/* General accumulated precession in longitude (IERS 2003). */ + apa = iauFapa03(t); + +/* Planetary longitudes, Mercury through Uranus (IERS 2003). */ + alme = iauFame03(t); + alve = iauFave03(t); + alea = iauFae03(t); + alma = iauFama03(t); + alju = iauFaju03(t); + alsa = iauFasa03(t); + alur = iauFaur03(t); + +/* Neptune longitude (MHB2000). */ + alne = fmod(5.321159000 + 3.8127774000 * t, D2PI); + +/* Initialize the nutation values. */ + dp = 0.0; + de = 0.0; + +/* Summation of planetary nutation series (in reverse order). */ + for (i = NPL-1; i >= 0; i--) { + + /* Argument and functions. */ + arg = fmod((double)xpl[i].nl * al + + (double)xpl[i].nf * af + + (double)xpl[i].nd * ad + + (double)xpl[i].nom * aom + + (double)xpl[i].nme * alme + + (double)xpl[i].nve * alve + + (double)xpl[i].nea * alea + + (double)xpl[i].nma * alma + + (double)xpl[i].nju * alju + + (double)xpl[i].nsa * alsa + + (double)xpl[i].nur * alur + + (double)xpl[i].nne * alne + + (double)xpl[i].npa * apa, D2PI); + sarg = sin(arg); + carg = cos(arg); + + /* Term. */ + dp += (double)xpl[i].sp * sarg + (double)xpl[i].cp * carg; + de += (double)xpl[i].se * sarg + (double)xpl[i].ce * carg; + + } + +/* Convert from 0.1 microarcsec units to radians. */ + dpsipl = dp * U2R; + depspl = de * U2R; + +/* ------- */ +/* RESULTS */ +/* ------- */ + +/* Add luni-solar and planetary components. */ + *dpsi = dpsils + dpsipl; + *deps = depsls + depspl; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/nut00b.c =================================================================== --- /trunk/FACT++/sofa/src/nut00b.c (revision 18346) +++ /trunk/FACT++/sofa/src/nut00b.c (revision 18346) @@ -0,0 +1,422 @@ +#include "sofa.h" + +void iauNut00b(double date1, double date2, double *dpsi, double *deps) +/* +** - - - - - - - - - - +** i a u N u t 0 0 b +** - - - - - - - - - - +** +** Nutation, IAU 2000B model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsi,deps double nutation, luni-solar + planetary (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The nutation components in longitude and obliquity are in radians +** and with respect to the equinox and ecliptic of date. The +** obliquity at J2000.0 is assumed to be the Lieske et al. (1977) +** value of 84381.448 arcsec. (The errors that result from using +** this function with the IAU 2006 value of 84381.406 arcsec can be +** neglected.) +** +** The nutation model consists only of luni-solar terms, but +** includes also a fixed offset which compensates for certain long- +** period planetary terms (Note 7). +** +** 3) This function is an implementation of the IAU 2000B abridged +** nutation model formally adopted by the IAU General Assembly in +** 2000. The function computes the MHB_2000_SHORT luni-solar +** nutation series (Luzum 2001), but without the associated +** corrections for the precession rate adjustments and the offset +** between the GCRS and J2000.0 mean poles. +** +** 4) The full IAU 2000A (MHB2000) nutation model contains nearly 1400 +** terms. The IAU 2000B model (McCarthy & Luzum 2003) contains only +** 77 terms, plus additional simplifications, yet still delivers +** results of 1 mas accuracy at present epochs. This combination of +** accuracy and size makes the IAU 2000B abridged nutation model +** suitable for most practical applications. +** +** The function delivers a pole accurate to 1 mas from 1900 to 2100 +** (usually better than 1 mas, very occasionally just outside +** 1 mas). The full IAU 2000A model, which is implemented in the +** function iauNut00a (q.v.), delivers considerably greater accuracy +** at current dates; however, to realize this improved accuracy, +** corrections for the essentially unpredictable free-core-nutation +** (FCN) must also be included. +** +** 5) The present function provides classical nutation. The +** MHB_2000_SHORT algorithm, from which it is adapted, deals also +** with (i) the offsets between the GCRS and mean poles and (ii) the +** adjustments in longitude and obliquity due to the changed +** precession rates. These additional functions, namely frame bias +** and precession adjustments, are supported by the SOFA functions +** iauBi00 and iauPr00. +** +** 6) The MHB_2000_SHORT algorithm also provides "total" nutations, +** comprising the arithmetic sum of the frame bias, precession +** adjustments, and nutation (luni-solar + planetary). These total +** nutations can be used in combination with an existing IAU 1976 +** precession implementation, such as iauPmat76, to deliver GCRS- +** to-true predictions of mas accuracy at current epochs. However, +** for symmetry with the iauNut00a function (q.v. for the reasons), +** the SOFA functions do not generate the "total nutations" +** directly. Should they be required, they could of course easily +** be generated by calling iauBi00, iauPr00 and the present function +** and adding the results. +** +** 7) The IAU 2000B model includes "planetary bias" terms that are +** fixed in size but compensate for long-period nutations. The +** amplitudes quoted in McCarthy & Luzum (2003), namely +** Dpsi = -1.5835 mas and Depsilon = +1.6339 mas, are optimized for +** the "total nutations" method described in Note 6. The Luzum +** (2001) values used in this SOFA implementation, namely -0.135 mas +** and +0.388 mas, are optimized for the "rigorous" method, where +** frame bias, precession and nutation are applied separately and in +** that order. During the interval 1995-2050, the SOFA +** implementation delivers a maximum error of 1.001 mas (not +** including FCN). +** +** References: +** +** Lieske, J.H., Lederle, T., Fricke, W., Morando, B., "Expressions +** for the precession quantities based upon the IAU /1976/ system of +** astronomical constants", Astron.Astrophys. 58, 1-2, 1-16. (1977) +** +** Luzum, B., private communication, 2001 (Fortran code +** MHB_2000_SHORT) +** +** McCarthy, D.D. & Luzum, B.J., "An abridged model of the +** precession-nutation of the celestial pole", Cel.Mech.Dyn.Astron. +** 85, 37-49 (2003) +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J., Astron.Astrophys. 282, 663-683 (1994) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t, el, elp, f, d, om, arg, dp, de, sarg, carg, + dpsils, depsls, dpsipl, depspl; + int i; + +/* Units of 0.1 microarcsecond to radians */ + static const double U2R = DAS2R / 1e7; + +/* ---------------------------------------- */ +/* Fixed offsets in lieu of planetary terms */ +/* ---------------------------------------- */ + + static const double DPPLAN = -0.135 * DMAS2R; + static const double DEPLAN = 0.388 * DMAS2R; + +/* --------------------------------------------------- */ +/* Luni-solar nutation: argument and term coefficients */ +/* --------------------------------------------------- */ + +/* The units for the sine and cosine coefficients are */ +/* 0.1 microarcsec and the same per Julian century */ + + static const struct { + int nl,nlp,nf,nd,nom; /* coefficients of l,l',F,D,Om */ + double ps,pst,pc; /* longitude sin, t*sin, cos coefficients */ + double ec,ect,es; /* obliquity cos, t*cos, sin coefficients */ + + } x[] = { + + /* 1-10 */ + { 0, 0, 0, 0,1, + -172064161.0, -174666.0, 33386.0, 92052331.0, 9086.0, 15377.0}, + { 0, 0, 2,-2,2, + -13170906.0, -1675.0, -13696.0, 5730336.0, -3015.0, -4587.0}, + { 0, 0, 2, 0,2,-2276413.0,-234.0, 2796.0, 978459.0,-485.0,1374.0}, + { 0, 0, 0, 0,2,2074554.0, 207.0, -698.0,-897492.0, 470.0,-291.0}, + { 0, 1, 0, 0,0,1475877.0,-3633.0,11817.0, 73871.0,-184.0,-1924.0}, + { 0, 1, 2,-2,2,-516821.0, 1226.0, -524.0, 224386.0,-677.0,-174.0}, + { 1, 0, 0, 0,0, 711159.0, 73.0, -872.0, -6750.0, 0.0, 358.0}, + { 0, 0, 2, 0,1,-387298.0, -367.0, 380.0, 200728.0, 18.0, 318.0}, + { 1, 0, 2, 0,2,-301461.0, -36.0, 816.0, 129025.0, -63.0, 367.0}, + { 0,-1, 2,-2,2, 215829.0, -494.0, 111.0, -95929.0, 299.0, 132.0}, + + /* 11-20 */ + { 0, 0, 2,-2,1, 128227.0, 137.0, 181.0, -68982.0, -9.0, 39.0}, + {-1, 0, 2, 0,2, 123457.0, 11.0, 19.0, -53311.0, 32.0, -4.0}, + {-1, 0, 0, 2,0, 156994.0, 10.0, -168.0, -1235.0, 0.0, 82.0}, + { 1, 0, 0, 0,1, 63110.0, 63.0, 27.0, -33228.0, 0.0, -9.0}, + {-1, 0, 0, 0,1, -57976.0, -63.0, -189.0, 31429.0, 0.0, -75.0}, + {-1, 0, 2, 2,2, -59641.0, -11.0, 149.0, 25543.0, -11.0, 66.0}, + { 1, 0, 2, 0,1, -51613.0, -42.0, 129.0, 26366.0, 0.0, 78.0}, + {-2, 0, 2, 0,1, 45893.0, 50.0, 31.0, -24236.0, -10.0, 20.0}, + { 0, 0, 0, 2,0, 63384.0, 11.0, -150.0, -1220.0, 0.0, 29.0}, + { 0, 0, 2, 2,2, -38571.0, -1.0, 158.0, 16452.0, -11.0, 68.0}, + + /* 21-30 */ + { 0,-2, 2,-2,2, 32481.0, 0.0, 0.0, -13870.0, 0.0, 0.0}, + {-2, 0, 0, 2,0, -47722.0, 0.0, -18.0, 477.0, 0.0, -25.0}, + { 2, 0, 2, 0,2, -31046.0, -1.0, 131.0, 13238.0, -11.0, 59.0}, + { 1, 0, 2,-2,2, 28593.0, 0.0, -1.0, -12338.0, 10.0, -3.0}, + {-1, 0, 2, 0,1, 20441.0, 21.0, 10.0, -10758.0, 0.0, -3.0}, + { 2, 0, 0, 0,0, 29243.0, 0.0, -74.0, -609.0, 0.0, 13.0}, + { 0, 0, 2, 0,0, 25887.0, 0.0, -66.0, -550.0, 0.0, 11.0}, + { 0, 1, 0, 0,1, -14053.0, -25.0, 79.0, 8551.0, -2.0, -45.0}, + {-1, 0, 0, 2,1, 15164.0, 10.0, 11.0, -8001.0, 0.0, -1.0}, + { 0, 2, 2,-2,2, -15794.0, 72.0, -16.0, 6850.0, -42.0, -5.0}, + + /* 31-40 */ + { 0, 0,-2, 2,0, 21783.0, 0.0, 13.0, -167.0, 0.0, 13.0}, + { 1, 0, 0,-2,1, -12873.0, -10.0, -37.0, 6953.0, 0.0, -14.0}, + { 0,-1, 0, 0,1, -12654.0, 11.0, 63.0, 6415.0, 0.0, 26.0}, + {-1, 0, 2, 2,1, -10204.0, 0.0, 25.0, 5222.0, 0.0, 15.0}, + { 0, 2, 0, 0,0, 16707.0, -85.0, -10.0, 168.0, -1.0, 10.0}, + { 1, 0, 2, 2,2, -7691.0, 0.0, 44.0, 3268.0, 0.0, 19.0}, + {-2, 0, 2, 0,0, -11024.0, 0.0, -14.0, 104.0, 0.0, 2.0}, + { 0, 1, 2, 0,2, 7566.0, -21.0, -11.0, -3250.0, 0.0, -5.0}, + { 0, 0, 2, 2,1, -6637.0, -11.0, 25.0, 3353.0, 0.0, 14.0}, + { 0,-1, 2, 0,2, -7141.0, 21.0, 8.0, 3070.0, 0.0, 4.0}, + + /* 41-50 */ + { 0, 0, 0, 2,1, -6302.0, -11.0, 2.0, 3272.0, 0.0, 4.0}, + { 1, 0, 2,-2,1, 5800.0, 10.0, 2.0, -3045.0, 0.0, -1.0}, + { 2, 0, 2,-2,2, 6443.0, 0.0, -7.0, -2768.0, 0.0, -4.0}, + {-2, 0, 0, 2,1, -5774.0, -11.0, -15.0, 3041.0, 0.0, -5.0}, + { 2, 0, 2, 0,1, -5350.0, 0.0, 21.0, 2695.0, 0.0, 12.0}, + { 0,-1, 2,-2,1, -4752.0, -11.0, -3.0, 2719.0, 0.0, -3.0}, + { 0, 0, 0,-2,1, -4940.0, -11.0, -21.0, 2720.0, 0.0, -9.0}, + {-1,-1, 0, 2,0, 7350.0, 0.0, -8.0, -51.0, 0.0, 4.0}, + { 2, 0, 0,-2,1, 4065.0, 0.0, 6.0, -2206.0, 0.0, 1.0}, + { 1, 0, 0, 2,0, 6579.0, 0.0, -24.0, -199.0, 0.0, 2.0}, + + /* 51-60 */ + { 0, 1, 2,-2,1, 3579.0, 0.0, 5.0, -1900.0, 0.0, 1.0}, + { 1,-1, 0, 0,0, 4725.0, 0.0, -6.0, -41.0, 0.0, 3.0}, + {-2, 0, 2, 0,2, -3075.0, 0.0, -2.0, 1313.0, 0.0, -1.0}, + { 3, 0, 2, 0,2, -2904.0, 0.0, 15.0, 1233.0, 0.0, 7.0}, + { 0,-1, 0, 2,0, 4348.0, 0.0, -10.0, -81.0, 0.0, 2.0}, + { 1,-1, 2, 0,2, -2878.0, 0.0, 8.0, 1232.0, 0.0, 4.0}, + { 0, 0, 0, 1,0, -4230.0, 0.0, 5.0, -20.0, 0.0, -2.0}, + {-1,-1, 2, 2,2, -2819.0, 0.0, 7.0, 1207.0, 0.0, 3.0}, + {-1, 0, 2, 0,0, -4056.0, 0.0, 5.0, 40.0, 0.0, -2.0}, + { 0,-1, 2, 2,2, -2647.0, 0.0, 11.0, 1129.0, 0.0, 5.0}, + + /* 61-70 */ + {-2, 0, 0, 0,1, -2294.0, 0.0, -10.0, 1266.0, 0.0, -4.0}, + { 1, 1, 2, 0,2, 2481.0, 0.0, -7.0, -1062.0, 0.0, -3.0}, + { 2, 0, 0, 0,1, 2179.0, 0.0, -2.0, -1129.0, 0.0, -2.0}, + {-1, 1, 0, 1,0, 3276.0, 0.0, 1.0, -9.0, 0.0, 0.0}, + { 1, 1, 0, 0,0, -3389.0, 0.0, 5.0, 35.0, 0.0, -2.0}, + { 1, 0, 2, 0,0, 3339.0, 0.0, -13.0, -107.0, 0.0, 1.0}, + {-1, 0, 2,-2,1, -1987.0, 0.0, -6.0, 1073.0, 0.0, -2.0}, + { 1, 0, 0, 0,2, -1981.0, 0.0, 0.0, 854.0, 0.0, 0.0}, + {-1, 0, 0, 1,0, 4026.0, 0.0, -353.0, -553.0, 0.0,-139.0}, + { 0, 0, 2, 1,2, 1660.0, 0.0, -5.0, -710.0, 0.0, -2.0}, + + /* 71-77 */ + {-1, 0, 2, 4,2, -1521.0, 0.0, 9.0, 647.0, 0.0, 4.0}, + {-1, 1, 0, 1,1, 1314.0, 0.0, 0.0, -700.0, 0.0, 0.0}, + { 0,-2, 2,-2,1, -1283.0, 0.0, 0.0, 672.0, 0.0, 0.0}, + { 1, 0, 2, 2,1, -1331.0, 0.0, 8.0, 663.0, 0.0, 4.0}, + {-2, 0, 2, 2,2, 1383.0, 0.0, -2.0, -594.0, 0.0, -2.0}, + {-1, 0, 0, 0,2, 1405.0, 0.0, 4.0, -610.0, 0.0, 2.0}, + { 1, 1, 2,-2,2, 1290.0, 0.0, 0.0, -556.0, 0.0, 0.0} + }; + +/* Number of terms in the series */ + const int NLS = (int) (sizeof x / sizeof x[0]); + +/*--------------------------------------------------------------------*/ + +/* Interval between fundamental epoch J2000.0 and given date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* --------------------*/ +/* LUNI-SOLAR NUTATION */ +/* --------------------*/ + +/* Fundamental (Delaunay) arguments from Simon et al. (1994) */ + +/* Mean anomaly of the Moon. */ + el = fmod(485868.249036 + (1717915923.2178) * t, TURNAS) * DAS2R; + +/* Mean anomaly of the Sun. */ + elp = fmod(1287104.79305 + (129596581.0481) * t, TURNAS) * DAS2R; + +/* Mean argument of the latitude of the Moon. */ + f = fmod(335779.526232 + (1739527262.8478) * t, TURNAS) * DAS2R; + +/* Mean elongation of the Moon from the Sun. */ + d = fmod(1072260.70369 + (1602961601.2090) * t, TURNAS) * DAS2R; + +/* Mean longitude of the ascending node of the Moon. */ + om = fmod(450160.398036 + (-6962890.5431) * t, TURNAS) * DAS2R; + +/* Initialize the nutation values. */ + dp = 0.0; + de = 0.0; + +/* Summation of luni-solar nutation series (smallest terms first). */ + for (i = NLS-1; i >= 0; i--) { + + /* Argument and functions. */ + arg = fmod( (double)x[i].nl * el + + (double)x[i].nlp * elp + + (double)x[i].nf * f + + (double)x[i].nd * d + + (double)x[i].nom * om, D2PI ); + sarg = sin(arg); + carg = cos(arg); + + /* Term. */ + dp += (x[i].ps + x[i].pst * t) * sarg + x[i].pc * carg; + de += (x[i].ec + x[i].ect * t) * carg + x[i].es * sarg; + } + +/* Convert from 0.1 microarcsec units to radians. */ + dpsils = dp * U2R; + depsls = de * U2R; + +/* ------------------------------*/ +/* IN LIEU OF PLANETARY NUTATION */ +/* ------------------------------*/ + +/* Fixed offset to correct for missing terms in truncated series. */ + dpsipl = DPPLAN; + depspl = DEPLAN; + +/* --------*/ +/* RESULTS */ +/* --------*/ + +/* Add luni-solar and planetary components. */ + *dpsi = dpsils + dpsipl; + *deps = depsls + depspl; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/nut06a.c =================================================================== --- /trunk/FACT++/sofa/src/nut06a.c (revision 18346) +++ /trunk/FACT++/sofa/src/nut06a.c (revision 18346) @@ -0,0 +1,199 @@ +#include "sofa.h" + +void iauNut06a(double date1, double date2, double *dpsi, double *deps) +/* +** - - - - - - - - - - +** i a u N u t 0 6 a +** - - - - - - - - - - +** +** IAU 2000A nutation with adjustments to match the IAU 2006 +** precession. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsi,deps double nutation, luni-solar + planetary (Note 2) +** +** Status: canonical model. +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The nutation components in longitude and obliquity are in radians +** and with respect to the mean equinox and ecliptic of date, +** IAU 2006 precession model (Hilton et al. 2006, Capitaine et al. +** 2005). +** +** 3) The function first computes the IAU 2000A nutation, then applies +** adjustments for (i) the consequences of the change in obliquity +** from the IAU 1980 ecliptic to the IAU 2006 ecliptic and (ii) the +** secular variation in the Earth's dynamical form factor J2. +** +** 4) The present function provides classical nutation, complementing +** the IAU 2000 frame bias and IAU 2006 precession. It delivers a +** pole which is at current epochs accurate to a few tens of +** microarcseconds, apart from the free core nutation. +** +** Called: +** iauNut00a nutation, IAU 2000A +** +** References: +** +** Chapront, J., Chapront-Touze, M. & Francou, G. 2002, +** Astron.Astrophys. 387, 700 +** +** Lieske, J.H., Lederle, T., Fricke, W. & Morando, B. 1977, +** Astron.Astrophys. 58, 1-16 +** +** Mathews, P.M., Herring, T.A., Buffet, B.A. 2002, J.Geophys.Res. +** 107, B4. The MHB_2000 code itself was obtained on 9th September +** 2002 from ftp//maia.usno.navy.mil/conv2000/chapter5/IAU2000A. +** +** Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +** Wallace, P.T., "Software for Implementing the IAU 2000 +** Resolutions", in IERS Workshop 5.1 (2002) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t, fj2, dp, de; + +/* Interval between fundamental date J2000.0 and given date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* Factor correcting for secular variation of J2. */ + fj2 = -2.7774e-6 * t; + +/* Obtain IAU 2000A nutation. */ + iauNut00a(date1, date2, &dp, &de); + +/* Apply P03 adjustments (Wallace & Capitaine, 2006, Eqs.5). */ + *dpsi = dp + dp * (0.4697e-6 + fj2); + *deps = de + de * fj2; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/nut80.c =================================================================== --- /trunk/FACT++/sofa/src/nut80.c (revision 18346) +++ /trunk/FACT++/sofa/src/nut80.c (revision 18346) @@ -0,0 +1,375 @@ +#include "sofa.h" + +void iauNut80(double date1, double date2, double *dpsi, double *deps) +/* +** - - - - - - - - - +** i a u N u t 8 0 +** - - - - - - - - - +** +** Nutation, IAU 1980 model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsi double nutation in longitude (radians) +** deps double nutation in obliquity (radians) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The nutation components are with respect to the ecliptic of +** date. +** +** Called: +** iauAnpm normalize angle into range +/- pi +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 3.222 (p111). +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t, el, elp, f, d, om, dp, de, arg, s, c; + int j; + +/* Units of 0.1 milliarcsecond to radians */ + const double U2R = DAS2R / 1e4; + +/* ------------------------------------------------ */ +/* Table of multiples of arguments and coefficients */ +/* ------------------------------------------------ */ + +/* The units for the sine and cosine coefficients are 0.1 mas and */ +/* the same per Julian century */ + + static const struct { + int nl,nlp,nf,nd,nom; /* coefficients of l,l',F,D,Om */ + double sp,spt; /* longitude sine, 1 and t coefficients */ + double ce,cet; /* obliquity cosine, 1 and t coefficients */ + } x[] = { + + /* 1-10 */ + { 0, 0, 0, 0, 1, -171996.0, -174.2, 92025.0, 8.9 }, + { 0, 0, 0, 0, 2, 2062.0, 0.2, -895.0, 0.5 }, + { -2, 0, 2, 0, 1, 46.0, 0.0, -24.0, 0.0 }, + { 2, 0, -2, 0, 0, 11.0, 0.0, 0.0, 0.0 }, + { -2, 0, 2, 0, 2, -3.0, 0.0, 1.0, 0.0 }, + { 1, -1, 0, -1, 0, -3.0, 0.0, 0.0, 0.0 }, + { 0, -2, 2, -2, 1, -2.0, 0.0, 1.0, 0.0 }, + { 2, 0, -2, 0, 1, 1.0, 0.0, 0.0, 0.0 }, + { 0, 0, 2, -2, 2, -13187.0, -1.6, 5736.0, -3.1 }, + { 0, 1, 0, 0, 0, 1426.0, -3.4, 54.0, -0.1 }, + + /* 11-20 */ + { 0, 1, 2, -2, 2, -517.0, 1.2, 224.0, -0.6 }, + { 0, -1, 2, -2, 2, 217.0, -0.5, -95.0, 0.3 }, + { 0, 0, 2, -2, 1, 129.0, 0.1, -70.0, 0.0 }, + { 2, 0, 0, -2, 0, 48.0, 0.0, 1.0, 0.0 }, + { 0, 0, 2, -2, 0, -22.0, 0.0, 0.0, 0.0 }, + { 0, 2, 0, 0, 0, 17.0, -0.1, 0.0, 0.0 }, + { 0, 1, 0, 0, 1, -15.0, 0.0, 9.0, 0.0 }, + { 0, 2, 2, -2, 2, -16.0, 0.1, 7.0, 0.0 }, + { 0, -1, 0, 0, 1, -12.0, 0.0, 6.0, 0.0 }, + { -2, 0, 0, 2, 1, -6.0, 0.0, 3.0, 0.0 }, + + /* 21-30 */ + { 0, -1, 2, -2, 1, -5.0, 0.0, 3.0, 0.0 }, + { 2, 0, 0, -2, 1, 4.0, 0.0, -2.0, 0.0 }, + { 0, 1, 2, -2, 1, 4.0, 0.0, -2.0, 0.0 }, + { 1, 0, 0, -1, 0, -4.0, 0.0, 0.0, 0.0 }, + { 2, 1, 0, -2, 0, 1.0, 0.0, 0.0, 0.0 }, + { 0, 0, -2, 2, 1, 1.0, 0.0, 0.0, 0.0 }, + { 0, 1, -2, 2, 0, -1.0, 0.0, 0.0, 0.0 }, + { 0, 1, 0, 0, 2, 1.0, 0.0, 0.0, 0.0 }, + { -1, 0, 0, 1, 1, 1.0, 0.0, 0.0, 0.0 }, + { 0, 1, 2, -2, 0, -1.0, 0.0, 0.0, 0.0 }, + + /* 31-40 */ + { 0, 0, 2, 0, 2, -2274.0, -0.2, 977.0, -0.5 }, + { 1, 0, 0, 0, 0, 712.0, 0.1, -7.0, 0.0 }, + { 0, 0, 2, 0, 1, -386.0, -0.4, 200.0, 0.0 }, + { 1, 0, 2, 0, 2, -301.0, 0.0, 129.0, -0.1 }, + { 1, 0, 0, -2, 0, -158.0, 0.0, -1.0, 0.0 }, + { -1, 0, 2, 0, 2, 123.0, 0.0, -53.0, 0.0 }, + { 0, 0, 0, 2, 0, 63.0, 0.0, -2.0, 0.0 }, + { 1, 0, 0, 0, 1, 63.0, 0.1, -33.0, 0.0 }, + { -1, 0, 0, 0, 1, -58.0, -0.1, 32.0, 0.0 }, + { -1, 0, 2, 2, 2, -59.0, 0.0, 26.0, 0.0 }, + + /* 41-50 */ + { 1, 0, 2, 0, 1, -51.0, 0.0, 27.0, 0.0 }, + { 0, 0, 2, 2, 2, -38.0, 0.0, 16.0, 0.0 }, + { 2, 0, 0, 0, 0, 29.0, 0.0, -1.0, 0.0 }, + { 1, 0, 2, -2, 2, 29.0, 0.0, -12.0, 0.0 }, + { 2, 0, 2, 0, 2, -31.0, 0.0, 13.0, 0.0 }, + { 0, 0, 2, 0, 0, 26.0, 0.0, -1.0, 0.0 }, + { -1, 0, 2, 0, 1, 21.0, 0.0, -10.0, 0.0 }, + { -1, 0, 0, 2, 1, 16.0, 0.0, -8.0, 0.0 }, + { 1, 0, 0, -2, 1, -13.0, 0.0, 7.0, 0.0 }, + { -1, 0, 2, 2, 1, -10.0, 0.0, 5.0, 0.0 }, + + /* 51-60 */ + { 1, 1, 0, -2, 0, -7.0, 0.0, 0.0, 0.0 }, + { 0, 1, 2, 0, 2, 7.0, 0.0, -3.0, 0.0 }, + { 0, -1, 2, 0, 2, -7.0, 0.0, 3.0, 0.0 }, + { 1, 0, 2, 2, 2, -8.0, 0.0, 3.0, 0.0 }, + { 1, 0, 0, 2, 0, 6.0, 0.0, 0.0, 0.0 }, + { 2, 0, 2, -2, 2, 6.0, 0.0, -3.0, 0.0 }, + { 0, 0, 0, 2, 1, -6.0, 0.0, 3.0, 0.0 }, + { 0, 0, 2, 2, 1, -7.0, 0.0, 3.0, 0.0 }, + { 1, 0, 2, -2, 1, 6.0, 0.0, -3.0, 0.0 }, + { 0, 0, 0, -2, 1, -5.0, 0.0, 3.0, 0.0 }, + + /* 61-70 */ + { 1, -1, 0, 0, 0, 5.0, 0.0, 0.0, 0.0 }, + { 2, 0, 2, 0, 1, -5.0, 0.0, 3.0, 0.0 }, + { 0, 1, 0, -2, 0, -4.0, 0.0, 0.0, 0.0 }, + { 1, 0, -2, 0, 0, 4.0, 0.0, 0.0, 0.0 }, + { 0, 0, 0, 1, 0, -4.0, 0.0, 0.0, 0.0 }, + { 1, 1, 0, 0, 0, -3.0, 0.0, 0.0, 0.0 }, + { 1, 0, 2, 0, 0, 3.0, 0.0, 0.0, 0.0 }, + { 1, -1, 2, 0, 2, -3.0, 0.0, 1.0, 0.0 }, + { -1, -1, 2, 2, 2, -3.0, 0.0, 1.0, 0.0 }, + { -2, 0, 0, 0, 1, -2.0, 0.0, 1.0, 0.0 }, + + /* 71-80 */ + { 3, 0, 2, 0, 2, -3.0, 0.0, 1.0, 0.0 }, + { 0, -1, 2, 2, 2, -3.0, 0.0, 1.0, 0.0 }, + { 1, 1, 2, 0, 2, 2.0, 0.0, -1.0, 0.0 }, + { -1, 0, 2, -2, 1, -2.0, 0.0, 1.0, 0.0 }, + { 2, 0, 0, 0, 1, 2.0, 0.0, -1.0, 0.0 }, + { 1, 0, 0, 0, 2, -2.0, 0.0, 1.0, 0.0 }, + { 3, 0, 0, 0, 0, 2.0, 0.0, 0.0, 0.0 }, + { 0, 0, 2, 1, 2, 2.0, 0.0, -1.0, 0.0 }, + { -1, 0, 0, 0, 2, 1.0, 0.0, -1.0, 0.0 }, + { 1, 0, 0, -4, 0, -1.0, 0.0, 0.0, 0.0 }, + + /* 81-90 */ + { -2, 0, 2, 2, 2, 1.0, 0.0, -1.0, 0.0 }, + { -1, 0, 2, 4, 2, -2.0, 0.0, 1.0, 0.0 }, + { 2, 0, 0, -4, 0, -1.0, 0.0, 0.0, 0.0 }, + { 1, 1, 2, -2, 2, 1.0, 0.0, -1.0, 0.0 }, + { 1, 0, 2, 2, 1, -1.0, 0.0, 1.0, 0.0 }, + { -2, 0, 2, 4, 2, -1.0, 0.0, 1.0, 0.0 }, + { -1, 0, 4, 0, 2, 1.0, 0.0, 0.0, 0.0 }, + { 1, -1, 0, -2, 0, 1.0, 0.0, 0.0, 0.0 }, + { 2, 0, 2, -2, 1, 1.0, 0.0, -1.0, 0.0 }, + { 2, 0, 2, 2, 2, -1.0, 0.0, 0.0, 0.0 }, + + /* 91-100 */ + { 1, 0, 0, 2, 1, -1.0, 0.0, 0.0, 0.0 }, + { 0, 0, 4, -2, 2, 1.0, 0.0, 0.0, 0.0 }, + { 3, 0, 2, -2, 2, 1.0, 0.0, 0.0, 0.0 }, + { 1, 0, 2, -2, 0, -1.0, 0.0, 0.0, 0.0 }, + { 0, 1, 2, 0, 1, 1.0, 0.0, 0.0, 0.0 }, + { -1, -1, 0, 2, 1, 1.0, 0.0, 0.0, 0.0 }, + { 0, 0, -2, 0, 1, -1.0, 0.0, 0.0, 0.0 }, + { 0, 0, 2, -1, 2, -1.0, 0.0, 0.0, 0.0 }, + { 0, 1, 0, 2, 0, -1.0, 0.0, 0.0, 0.0 }, + { 1, 0, -2, -2, 0, -1.0, 0.0, 0.0, 0.0 }, + + /* 101-106 */ + { 0, -1, 2, 0, 1, -1.0, 0.0, 0.0, 0.0 }, + { 1, 1, 0, -2, 1, -1.0, 0.0, 0.0, 0.0 }, + { 1, 0, -2, 2, 0, -1.0, 0.0, 0.0, 0.0 }, + { 2, 0, 0, 2, 0, 1.0, 0.0, 0.0, 0.0 }, + { 0, 0, 2, 4, 2, -1.0, 0.0, 0.0, 0.0 }, + { 0, 1, 0, 1, 0, 1.0, 0.0, 0.0, 0.0 } + }; + +/* Number of terms in the series */ + const int NT = (int) (sizeof x / sizeof x[0]); + +/*--------------------------------------------------------------------*/ + +/* Interval between fundamental epoch J2000.0 and given date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* --------------------- */ +/* Fundamental arguments */ +/* --------------------- */ + +/* Mean longitude of Moon minus mean longitude of Moon's perigee. */ + el = iauAnpm( + (485866.733 + (715922.633 + (31.310 + 0.064 * t) * t) * t) + * DAS2R + fmod(1325.0 * t, 1.0) * D2PI); + +/* Mean longitude of Sun minus mean longitude of Sun's perigee. */ + elp = iauAnpm( + (1287099.804 + (1292581.224 + (-0.577 - 0.012 * t) * t) * t) + * DAS2R + fmod(99.0 * t, 1.0) * D2PI); + +/* Mean longitude of Moon minus mean longitude of Moon's node. */ + f = iauAnpm( + (335778.877 + (295263.137 + (-13.257 + 0.011 * t) * t) * t) + * DAS2R + fmod(1342.0 * t, 1.0) * D2PI); + +/* Mean elongation of Moon from Sun. */ + d = iauAnpm( + (1072261.307 + (1105601.328 + (-6.891 + 0.019 * t) * t) * t) + * DAS2R + fmod(1236.0 * t, 1.0) * D2PI); + +/* Longitude of the mean ascending node of the lunar orbit on the */ +/* ecliptic, measured from the mean equinox of date. */ + om = iauAnpm( + (450160.280 + (-482890.539 + (7.455 + 0.008 * t) * t) * t) + * DAS2R + fmod(-5.0 * t, 1.0) * D2PI); + +/* --------------- */ +/* Nutation series */ +/* --------------- */ + +/* Initialize nutation components. */ + dp = 0.0; + de = 0.0; + +/* Sum the nutation terms, ending with the biggest. */ + for (j = NT-1; j >= 0; j--) { + + /* Form argument for current term. */ + arg = (double)x[j].nl * el + + (double)x[j].nlp * elp + + (double)x[j].nf * f + + (double)x[j].nd * d + + (double)x[j].nom * om; + + /* Accumulate current nutation term. */ + s = x[j].sp + x[j].spt * t; + c = x[j].ce + x[j].cet * t; + if (s != 0.0) dp += s * sin(arg); + if (c != 0.0) de += c * cos(arg); + } + +/* Convert results from 0.1 mas units to radians. */ + *dpsi = dp * U2R; + *deps = de * U2R; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/nutm80.c =================================================================== --- /trunk/FACT++/sofa/src/nutm80.c (revision 18346) +++ /trunk/FACT++/sofa/src/nutm80.c (revision 18346) @@ -0,0 +1,166 @@ +#include "sofa.h" + +void iauNutm80(double date1, double date2, double rmatn[3][3]) +/* +** - - - - - - - - - - +** i a u N u t m 8 0 +** - - - - - - - - - - +** +** Form the matrix of nutation for a given date, IAU 1980 model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TDB date (Note 1) +** +** Returned: +** rmatn double[3][3] nutation matrix +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(true) = rmatn * V(mean), +** where the p-vector V(true) is with respect to the true +** equatorial triad of date and the p-vector V(mean) is with +** respect to the mean equatorial triad of date. +** +** Called: +** iauNut80 nutation, IAU 1980 +** iauObl80 mean obliquity, IAU 1980 +** iauNumat form nutation matrix +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double dpsi, deps, epsa; + +/* Nutation components and mean obliquity. */ + iauNut80(date1, date2, &dpsi, &deps); + epsa = iauObl80(date1, date2); + +/* Build the rotation matrix. */ + iauNumat(epsa, dpsi, deps, rmatn); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/obl06.c =================================================================== --- /trunk/FACT++/sofa/src/obl06.c (revision 18346) +++ /trunk/FACT++/sofa/src/obl06.c (revision 18346) @@ -0,0 +1,167 @@ +#include "sofa.h" + +double iauObl06(double date1, double date2) +/* +** - - - - - - - - - +** i a u O b l 0 6 +** - - - - - - - - - +** +** Mean obliquity of the ecliptic, IAU 2006 precession model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double obliquity of the ecliptic (radians, Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The result is the angle between the ecliptic and mean equator of +** date date1+date2. +** +** Reference: +** +** Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t, eps0; + +/* Interval between fundamental date J2000.0 and given date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* Mean obliquity. */ + eps0 = (84381.406 + + (-46.836769 + + ( -0.0001831 + + ( 0.00200340 + + ( -0.000000576 + + ( -0.0000000434) * t) * t) * t) * t) * t) * DAS2R; + + return eps0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/obl80.c =================================================================== --- /trunk/FACT++/sofa/src/obl80.c (revision 18346) +++ /trunk/FACT++/sofa/src/obl80.c (revision 18346) @@ -0,0 +1,167 @@ +#include "sofa.h" + +double iauObl80(double date1, double date2) +/* +** - - - - - - - - - +** i a u O b l 8 0 +** - - - - - - - - - +** +** Mean obliquity of the ecliptic, IAU 1980 model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double obliquity of the ecliptic (radians, Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The result is the angle between the ecliptic and mean equator of +** date date1+date2. +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Expression 3.222-1 (p114). +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t, eps0; + +/* Interval between fundamental epoch J2000.0 and given date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* Mean obliquity of date. */ + eps0 = DAS2R * (84381.448 + + (-46.8150 + + (-0.00059 + + ( 0.001813) * t) * t) * t); + + return eps0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/p06e.c =================================================================== --- /trunk/FACT++/sofa/src/p06e.c (revision 18346) +++ /trunk/FACT++/sofa/src/p06e.c (revision 18346) @@ -0,0 +1,370 @@ +#include "sofa.h" + +void iauP06e(double date1, double date2, + double *eps0, double *psia, double *oma, double *bpa, + double *bqa, double *pia, double *bpia, + double *epsa, double *chia, double *za, double *zetaa, + double *thetaa, double *pa, + double *gam, double *phi, double *psi) +/* +** - - - - - - - - +** i a u P 0 6 e +** - - - - - - - - +** +** Precession angles, IAU 2006, equinox based. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical models. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (see Note 2): +** eps0 double epsilon_0 +** psia double psi_A +** oma double omega_A +** bpa double P_A +** bqa double Q_A +** pia double pi_A +** bpia double Pi_A +** epsa double obliquity epsilon_A +** chia double chi_A +** za double z_A +** zetaa double zeta_A +** thetaa double theta_A +** pa double p_A +** gam double F-W angle gamma_J2000 +** phi double F-W angle phi_J2000 +** psi double F-W angle psi_J2000 +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) This function returns the set of equinox based angles for the +** Capitaine et al. "P03" precession theory, adopted by the IAU in +** 2006. The angles are set out in Table 1 of Hilton et al. (2006): +** +** eps0 epsilon_0 obliquity at J2000.0 +** psia psi_A luni-solar precession +** oma omega_A inclination of equator wrt J2000.0 ecliptic +** bpa P_A ecliptic pole x, J2000.0 ecliptic triad +** bqa Q_A ecliptic pole -y, J2000.0 ecliptic triad +** pia pi_A angle between moving and J2000.0 ecliptics +** bpia Pi_A longitude of ascending node of the ecliptic +** epsa epsilon_A obliquity of the ecliptic +** chia chi_A planetary precession +** za z_A equatorial precession: -3rd 323 Euler angle +** zetaa zeta_A equatorial precession: -1st 323 Euler angle +** thetaa theta_A equatorial precession: 2nd 323 Euler angle +** pa p_A general precession +** gam gamma_J2000 J2000.0 RA difference of ecliptic poles +** phi phi_J2000 J2000.0 codeclination of ecliptic pole +** psi psi_J2000 longitude difference of equator poles, J2000.0 +** +** The returned values are all radians. +** +** 3) Hilton et al. (2006) Table 1 also contains angles that depend on +** models distinct from the P03 precession theory itself, namely the +** IAU 2000A frame bias and nutation. The quoted polynomials are +** used in other SOFA functions: +** +** . iauXy06 contains the polynomial parts of the X and Y series. +** +** . iauS06 contains the polynomial part of the s+XY/2 series. +** +** . iauPfw06 implements the series for the Fukushima-Williams +** angles that are with respect to the GCRS pole (i.e. the variants +** that include frame bias). +** +** 4) The IAU resolution stipulated that the choice of parameterization +** was left to the user, and so an IAU compliant precession +** implementation can be constructed using various combinations of +** the angles returned by the present function. +** +** 5) The parameterization used by SOFA is the version of the Fukushima- +** Williams angles that refers directly to the GCRS pole. These +** angles may be calculated by calling the function iauPfw06. SOFA +** also supports the direct computation of the CIP GCRS X,Y by +** series, available by calling iauXy06. +** +** 6) The agreement between the different parameterizations is at the +** 1 microarcsecond level in the present era. +** +** 7) When constructing a precession formulation that refers to the GCRS +** pole rather than the dynamical pole, it may (depending on the +** choice of angles) be necessary to introduce the frame bias +** explicitly. +** +** 8) It is permissible to re-use the same variable in the returned +** arguments. The quantities are stored in the stated order. +** +** Reference: +** +** Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351 +** +** Called: +** iauObl06 mean obliquity, IAU 2006 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t; + +/* Interval between fundamental date J2000.0 and given date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* Obliquity at J2000.0. */ + + *eps0 = 84381.406 * DAS2R; + +/* Luni-solar precession. */ + + *psia = ( 5038.481507 + + ( -1.0790069 + + ( -0.00114045 + + ( 0.000132851 + + ( -0.0000000951 ) + * t) * t) * t) * t) * t * DAS2R; + +/* Inclination of mean equator with respect to the J2000.0 ecliptic. */ + + *oma = *eps0 + ( -0.025754 + + ( 0.0512623 + + ( -0.00772503 + + ( -0.000000467 + + ( 0.0000003337 ) + * t) * t) * t) * t) * t * DAS2R; + +/* Ecliptic pole x, J2000.0 ecliptic triad. */ + + *bpa = ( 4.199094 + + ( 0.1939873 + + ( -0.00022466 + + ( -0.000000912 + + ( 0.0000000120 ) + * t) * t) * t) * t) * t * DAS2R; + +/* Ecliptic pole -y, J2000.0 ecliptic triad. */ + + *bqa = ( -46.811015 + + ( 0.0510283 + + ( 0.00052413 + + ( -0.000000646 + + ( -0.0000000172 ) + * t) * t) * t) * t) * t * DAS2R; + +/* Angle between moving and J2000.0 ecliptics. */ + + *pia = ( 46.998973 + + ( -0.0334926 + + ( -0.00012559 + + ( 0.000000113 + + ( -0.0000000022 ) + * t) * t) * t) * t) * t * DAS2R; + +/* Longitude of ascending node of the moving ecliptic. */ + + *bpia = ( 629546.7936 + + ( -867.95758 + + ( 0.157992 + + ( -0.0005371 + + ( -0.00004797 + + ( 0.000000072 ) + * t) * t) * t) * t) * t) * DAS2R; + +/* Mean obliquity of the ecliptic. */ + + *epsa = iauObl06(date1, date2); + +/* Planetary precession. */ + + *chia = ( 10.556403 + + ( -2.3814292 + + ( -0.00121197 + + ( 0.000170663 + + ( -0.0000000560 ) + * t) * t) * t) * t) * t * DAS2R; + +/* Equatorial precession: minus the third of the 323 Euler angles. */ + + *za = ( -2.650545 + + ( 2306.077181 + + ( 1.0927348 + + ( 0.01826837 + + ( -0.000028596 + + ( -0.0000002904 ) + * t) * t) * t) * t) * t) * DAS2R; + +/* Equatorial precession: minus the first of the 323 Euler angles. */ + + *zetaa = ( 2.650545 + + ( 2306.083227 + + ( 0.2988499 + + ( 0.01801828 + + ( -0.000005971 + + ( -0.0000003173 ) + * t) * t) * t) * t) * t) * DAS2R; + +/* Equatorial precession: second of the 323 Euler angles. */ + + *thetaa = ( 2004.191903 + + ( -0.4294934 + + ( -0.04182264 + + ( -0.000007089 + + ( -0.0000001274 ) + * t) * t) * t) * t) * t * DAS2R; + +/* General precession. */ + + *pa = ( 5028.796195 + + ( 1.1054348 + + ( 0.00007964 + + ( -0.000023857 + + ( 0.0000000383 ) + * t) * t) * t) * t) * t * DAS2R; + +/* Fukushima-Williams angles for precession. */ + + *gam = ( 10.556403 + + ( 0.4932044 + + ( -0.00031238 + + ( -0.000002788 + + ( 0.0000000260 ) + * t) * t) * t) * t) * t * DAS2R; + + *phi = *eps0 + ( -46.811015 + + ( 0.0511269 + + ( 0.00053289 + + ( -0.000000440 + + ( -0.0000000176 ) + * t) * t) * t) * t) * t * DAS2R; + + *psi = ( 5038.481507 + + ( 1.5584176 + + ( -0.00018522 + + ( -0.000026452 + + ( -0.0000000148 ) + * t) * t) * t) * t) * t * DAS2R; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/p2pv.c =================================================================== --- /trunk/FACT++/sofa/src/p2pv.c (revision 18346) +++ /trunk/FACT++/sofa/src/p2pv.c (revision 18346) @@ -0,0 +1,133 @@ +#include "sofa.h" + +void iauP2pv(double p[3], double pv[2][3]) +/* +** - - - - - - - - +** i a u P 2 p v +** - - - - - - - - +** +** Extend a p-vector to a pv-vector by appending a zero velocity. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** p double[3] p-vector +** +** Returned: +** pv double[2][3] pv-vector +** +** Called: +** iauCp copy p-vector +** iauZp zero p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + iauCp(p, pv[0]); + iauZp(pv[1]); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/p2s.c =================================================================== --- /trunk/FACT++/sofa/src/p2s.c (revision 18346) +++ /trunk/FACT++/sofa/src/p2s.c (revision 18346) @@ -0,0 +1,141 @@ +#include "sofa.h" + +void iauP2s(double p[3], double *theta, double *phi, double *r) +/* +** - - - - - - - +** i a u P 2 s +** - - - - - - - +** +** P-vector to spherical polar coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** p double[3] p-vector +** +** Returned: +** theta double longitude angle (radians) +** phi double latitude angle (radians) +** r double radial distance +** +** Notes: +** +** 1) If P is null, zero theta, phi and r are returned. +** +** 2) At either pole, zero theta is returned. +** +** Called: +** iauC2s p-vector to spherical +** iauPm modulus of p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + iauC2s(p, theta, phi); + *r = iauPm(p); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pap.c =================================================================== --- /trunk/FACT++/sofa/src/pap.c (revision 18346) +++ /trunk/FACT++/sofa/src/pap.c (revision 18346) @@ -0,0 +1,188 @@ +#include "sofa.h" + +double iauPap(double a[3], double b[3]) +/* +** - - - - - - - +** i a u P a p +** - - - - - - - +** +** Position-angle from two p-vectors. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3] direction of reference point +** b double[3] direction of point whose PA is required +** +** Returned (function value): +** double position angle of b with respect to a (radians) +** +** Notes: +** +** 1) The result is the position angle, in radians, of direction b with +** respect to direction a. It is in the range -pi to +pi. The +** sense is such that if b is a small distance "north" of a the +** position angle is approximately zero, and if b is a small +** distance "east" of a the position angle is approximately +pi/2. +** +** 2) The vectors a and b need not be of unit length. +** +** 3) Zero is returned if the two directions are the same or if either +** vector is null. +** +** 4) If vector a is at a pole, the result is ill-defined. +** +** Called: +** iauPn decompose p-vector into modulus and direction +** iauPm modulus of p-vector +** iauPxp vector product of two p-vectors +** iauPmp p-vector minus p-vector +** iauPdp scalar product of two p-vectors +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double am, au[3], bm, st, ct, xa, ya, za, eta[3], xi[3], a2b[3], pa; + +/* Modulus and direction of the a vector. */ + iauPn(a, &am, au); + +/* Modulus of the b vector. */ + bm = iauPm(b); + +/* Deal with the case of a null vector. */ + if ((am == 0.0) || (bm == 0.0)) { + st = 0.0; + ct = 1.0; + } else { + + /* The "north" axis tangential from a (arbitrary length). */ + xa = a[0]; + ya = a[1]; + za = a[2]; + eta[0] = -xa * za; + eta[1] = -ya * za; + eta[2] = xa*xa + ya*ya; + + /* The "east" axis tangential from a (same length). */ + iauPxp(eta, au, xi); + + /* The vector from a to b. */ + iauPmp(b, a, a2b); + + /* Resolve into components along the north and east axes. */ + st = iauPdp(a2b, xi); + ct = iauPdp(a2b, eta); + + /* Deal with degenerate cases. */ + if ((st == 0.0) && (ct == 0.0)) ct = 1.0; + } + +/* Position angle. */ + pa = atan2(st, ct); + + return pa; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pas.c =================================================================== --- /trunk/FACT++/sofa/src/pas.c (revision 18346) +++ /trunk/FACT++/sofa/src/pas.c (revision 18346) @@ -0,0 +1,145 @@ +#include "sofa.h" + +double iauPas(double al, double ap, double bl, double bp) +/* +** - - - - - - - +** i a u P a s +** - - - - - - - +** +** Position-angle from spherical coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** al double longitude of point A (e.g. RA) in radians +** ap double latitude of point A (e.g. Dec) in radians +** bl double longitude of point B +** bp double latitude of point B +** +** Returned (function value): +** double position angle of B with respect to A +** +** Notes: +** +** 1) The result is the bearing (position angle), in radians, of point +** B with respect to point A. It is in the range -pi to +pi. The +** sense is such that if B is a small distance "east" of point A, +** the bearing is approximately +pi/2. +** +** 2) Zero is returned if the two points are coincident. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double dl, x, y, pa; + + dl = bl - al; + y = sin(dl) * cos(bp); + x = sin(bp) * cos(ap) - cos(bp) * sin(ap) * cos(dl); + pa = ((x != 0.0) || (y != 0.0)) ? atan2(y, x) : 0.0; + + return pa; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pb06.c =================================================================== --- /trunk/FACT++/sofa/src/pb06.c (revision 18346) +++ /trunk/FACT++/sofa/src/pb06.c (revision 18346) @@ -0,0 +1,193 @@ +#include "sofa.h" + +void iauPb06(double date1, double date2, + double *bzeta, double *bz, double *btheta) +/* +** - - - - - - - - +** i a u P b 0 6 +** - - - - - - - - +** +** This function forms three Euler angles which implement general +** precession from epoch J2000.0, using the IAU 2006 model. Frame +** bias (the offset between ICRS and mean J2000.0) is included. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** bzeta double 1st rotation: radians cw around z +** bz double 3rd rotation: radians cw around z +** btheta double 2nd rotation: radians ccw around y +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The traditional accumulated precession angles zeta_A, z_A, +** theta_A cannot be obtained in the usual way, namely through +** polynomial expressions, because of the frame bias. The latter +** means that two of the angles undergo rapid changes near this +** date. They are instead the results of decomposing the +** precession-bias matrix obtained by using the Fukushima-Williams +** method, which does not suffer from the problem. The +** decomposition returns values which can be used in the +** conventional formulation and which include frame bias. +** +** 3) The three angles are returned in the conventional order, which +** is not the same as the order of the corresponding Euler +** rotations. The precession-bias matrix is +** R_3(-z) x R_2(+theta) x R_3(-zeta). +** +** 4) Should zeta_A, z_A, theta_A angles be required that do not +** contain frame bias, they are available by calling the SOFA +** function iauP06e. +** +** Called: +** iauPmat06 PB matrix, IAU 2006 +** iauRz rotate around Z-axis +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double r[3][3], r31, r32; + +/* Precession matrix via Fukushima-Williams angles. */ + iauPmat06(date1, date2, r); + +/* Solve for z. */ + *bz = atan2(r[1][2], r[0][2]); + +/* Remove it from the matrix. */ + iauRz(*bz, r); + +/* Solve for the remaining two angles. */ + *bzeta = atan2 (r[1][0], r[1][1]); + r31 = r[2][0]; + r32 = r[2][1]; + *btheta = atan2(-dsign(sqrt(r31 * r31 + r32 * r32), r[0][2]), + r[2][2]); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pdp.c =================================================================== --- /trunk/FACT++/sofa/src/pdp.c (revision 18346) +++ /trunk/FACT++/sofa/src/pdp.c (revision 18346) @@ -0,0 +1,133 @@ +#include "sofa.h" + +double iauPdp(double a[3], double b[3]) +/* +** - - - - - - - +** i a u P d p +** - - - - - - - +** +** p-vector inner (=scalar=dot) product. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3] first p-vector +** b double[3] second p-vector +** +** Returned (function value): +** double a . b +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double w; + + w = a[0] * b[0] + + a[1] * b[1] + + a[2] * b[2]; + + return w; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pfw06.c =================================================================== --- /trunk/FACT++/sofa/src/pfw06.c (revision 18346) +++ /trunk/FACT++/sofa/src/pfw06.c (revision 18346) @@ -0,0 +1,214 @@ +#include "sofa.h" + +void iauPfw06(double date1, double date2, + double *gamb, double *phib, double *psib, double *epsa) +/* +** - - - - - - - - - +** i a u P f w 0 6 +** - - - - - - - - - +** +** Precession angles, IAU 2006 (Fukushima-Williams 4-angle formulation). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** gamb double F-W angle gamma_bar (radians) +** phib double F-W angle phi_bar (radians) +** psib double F-W angle psi_bar (radians) +** epsa double F-W angle epsilon_A (radians) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) Naming the following points: +** +** e = J2000.0 ecliptic pole, +** p = GCRS pole, +** E = mean ecliptic pole of date, +** and P = mean pole of date, +** +** the four Fukushima-Williams angles are as follows: +** +** gamb = gamma_bar = epE +** phib = phi_bar = pE +** psib = psi_bar = pEP +** epsa = epsilon_A = EP +** +** 3) The matrix representing the combined effects of frame bias and +** precession is: +** +** PxB = R_1(-epsa).R_3(-psib).R_1(phib).R_3(gamb) +** +** 4) The matrix representing the combined effects of frame bias, +** precession and nutation is simply: +** +** NxPxB = R_1(-epsa-dE).R_3(-psib-dP).R_1(phib).R_3(gamb) +** +** where dP and dE are the nutation components with respect to the +** ecliptic of date. +** +** Reference: +** +** Hilton, J. et al., 2006, Celest.Mech.Dyn.Astron. 94, 351 +** +** Called: +** iauObl06 mean obliquity, IAU 2006 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t; + +/* Interval between fundamental date J2000.0 and given date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* P03 bias+precession angles. */ + *gamb = ( -0.052928 + + ( 10.556378 + + ( 0.4932044 + + ( -0.00031238 + + ( -0.000002788 + + ( 0.0000000260 ) + * t) * t) * t) * t) * t) * DAS2R; + *phib = ( 84381.412819 + + ( -46.811016 + + ( 0.0511268 + + ( 0.00053289 + + ( -0.000000440 + + ( -0.0000000176 ) + * t) * t) * t) * t) * t) * DAS2R; + *psib = ( -0.041775 + + ( 5038.481484 + + ( 1.5584175 + + ( -0.00018522 + + ( -0.000026452 + + ( -0.0000000148 ) + * t) * t) * t) * t) * t) * DAS2R; + *epsa = iauObl06(date1, date2); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/plan94.c =================================================================== --- /trunk/FACT++/sofa/src/plan94.c (revision 18346) +++ /trunk/FACT++/sofa/src/plan94.c (revision 18346) @@ -0,0 +1,564 @@ +#include "sofa.h" + +int iauPlan94(double date1, double date2, int np, double pv[2][3]) +/* +** - - - - - - - - - - +** i a u P l a n 9 4 +** - - - - - - - - - - +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Approximate heliocentric position and velocity of a nominated major +** planet: Mercury, Venus, EMB, Mars, Jupiter, Saturn, Uranus or +** Neptune (but not the Earth itself). +** +** Given: +** date1 double TDB date part A (Note 1) +** date2 double TDB date part B (Note 1) +** np int planet (1=Mercury, 2=Venus, 3=EMB, 4=Mars, +** 5=Jupiter, 6=Saturn, 7=Uranus, 8=Neptune) +** +** Returned (argument): +** pv double[2][3] planet p,v (heliocentric, J2000.0, AU,AU/d) +** +** Returned (function value): +** int status: -1 = illegal NP (outside 1-8) +** 0 = OK +** +1 = warning: year outside 1000-3000 +** +2 = warning: failed to converge +** +** Notes: +** +** 1) The date date1+date2 is in the TDB time scale (in practice TT can +** be used) and is a Julian Date, apportioned in any convenient way +** between the two arguments. For example, JD(TDB)=2450123.7 could +** be expressed in any of these ways, among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. The limited +** accuracy of the present algorithm is such that any of the methods +** is satisfactory. +** +** 2) If an np value outside the range 1-8 is supplied, an error status +** (function value -1) is returned and the pv vector set to zeroes. +** +** 3) For np=3 the result is for the Earth-Moon Barycenter. To obtain +** the heliocentric position and velocity of the Earth, use instead +** the SOFA function iauEpv00. +** +** 4) On successful return, the array pv contains the following: +** +** pv[0][0] x } +** pv[0][1] y } heliocentric position, AU +** pv[0][2] z } +** +** pv[1][0] xdot } +** pv[1][1] ydot } heliocentric velocity, AU/d +** pv[1][2] zdot } +** +** The reference frame is equatorial and is with respect to the +** mean equator and equinox of epoch J2000.0. +** +** 5) The algorithm is due to J.L. Simon, P. Bretagnon, J. Chapront, +** M. Chapront-Touze, G. Francou and J. Laskar (Bureau des +** Longitudes, Paris, France). From comparisons with JPL +** ephemeris DE102, they quote the following maximum errors +** over the interval 1800-2050: +** +** L (arcsec) B (arcsec) R (km) +** +** Mercury 4 1 300 +** Venus 5 1 800 +** EMB 6 1 1000 +** Mars 17 1 7700 +** Jupiter 71 5 76000 +** Saturn 81 13 267000 +** Uranus 86 7 712000 +** Neptune 11 1 253000 +** +** Over the interval 1000-3000, they report that the accuracy is no +** worse than 1.5 times that over 1800-2050. Outside 1000-3000 the +** accuracy declines. +** +** Comparisons of the present function with the JPL DE200 ephemeris +** give the following RMS errors over the interval 1960-2025: +** +** position (km) velocity (m/s) +** +** Mercury 334 0.437 +** Venus 1060 0.855 +** EMB 2010 0.815 +** Mars 7690 1.98 +** Jupiter 71700 7.70 +** Saturn 199000 19.4 +** Uranus 564000 16.4 +** Neptune 158000 14.4 +** +** Comparisons against DE200 over the interval 1800-2100 gave the +** following maximum absolute differences. (The results using +** DE406 were essentially the same.) +** +** L (arcsec) B (arcsec) R (km) Rdot (m/s) +** +** Mercury 7 1 500 0.7 +** Venus 7 1 1100 0.9 +** EMB 9 1 1300 1.0 +** Mars 26 1 9000 2.5 +** Jupiter 78 6 82000 8.2 +** Saturn 87 14 263000 24.6 +** Uranus 86 7 661000 27.4 +** Neptune 11 2 248000 21.4 +** +** 6) The present SOFA re-implementation of the original Simon et al. +** Fortran code differs from the original in the following respects: +** +** * C instead of Fortran. +** +** * The date is supplied in two parts. +** +** * The result is returned only in equatorial Cartesian form; +** the ecliptic longitude, latitude and radius vector are not +** returned. +** +** * The result is in the J2000.0 equatorial frame, not ecliptic. +** +** * More is done in-line: there are fewer calls to subroutines. +** +** * Different error/warning status values are used. +** +** * A different Kepler's-equation-solver is used (avoiding +** use of double precision complex). +** +** * Polynomials in t are nested to minimize rounding errors. +** +** * Explicit double constants are used to avoid mixed-mode +** expressions. +** +** None of the above changes affects the result significantly. +** +** 7) The returned status indicates the most serious condition +** encountered during execution of the function. Illegal np is +** considered the most serious, overriding failure to converge, +** which in turn takes precedence over the remote date warning. +** +** Called: +** iauAnp normalize angle into range 0 to 2pi +** +** Reference: Simon, J.L, Bretagnon, P., Chapront, J., +** Chapront-Touze, M., Francou, G., and Laskar, J., +** Astron. Astrophys. 282, 663 (1994). +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Gaussian constant */ + static const double GK = 0.017202098950; + +/* Sin and cos of J2000.0 mean obliquity (IAU 1976) */ + static const double SINEPS = 0.3977771559319137; + static const double COSEPS = 0.9174820620691818; + +/* Maximum number of iterations allowed to solve Kepler's equation */ + static const int KMAX = 10; + + int jstat, i, k; + double t, da, dl, de, dp, di, dom, dmu, arga, argl, am, + ae, dae, ae2, at, r, v, si2, xq, xp, tl, xsw, + xcw, xm2, xf, ci2, xms, xmc, xpxq2, x, y, z; + +/* Planetary inverse masses */ + static const double amas[] = { 6023600.0, /* Mercury */ + 408523.5, /* Venus */ + 328900.5, /* EMB */ + 3098710.0, /* Mars */ + 1047.355, /* Jupiter */ + 3498.5, /* Saturn */ + 22869.0, /* Uranus */ + 19314.0 }; /* Neptune */ + +/* +** Tables giving the mean Keplerian elements, limited to t^2 terms: +** +** a semi-major axis (AU) +** dlm mean longitude (degree and arcsecond) +** e eccentricity +** pi longitude of the perihelion (degree and arcsecond) +** dinc inclination (degree and arcsecond) +** omega longitude of the ascending node (degree and arcsecond) +*/ + + static const double a[][3] = { + { 0.3870983098, 0.0, 0.0 }, /* Mercury */ + { 0.7233298200, 0.0, 0.0 }, /* Venus */ + { 1.0000010178, 0.0, 0.0 }, /* EMB */ + { 1.5236793419, 3e-10, 0.0 }, /* Mars */ + { 5.2026032092, 19132e-10, -39e-10 }, /* Jupiter */ + { 9.5549091915, -0.0000213896, 444e-10 }, /* Saturn */ + { 19.2184460618, -3716e-10, 979e-10 }, /* Uranus */ + { 30.1103868694, -16635e-10, 686e-10 } /* Neptune */ + }; + + static const double dlm[][3] = { + { 252.25090552, 5381016286.88982, -1.92789 }, + { 181.97980085, 2106641364.33548, 0.59381 }, + { 100.46645683, 1295977422.83429, -2.04411 }, + { 355.43299958, 689050774.93988, 0.94264 }, + { 34.35151874, 109256603.77991, -30.60378 }, + { 50.07744430, 43996098.55732, 75.61614 }, + { 314.05500511, 15424811.93933, -1.75083 }, + { 304.34866548, 7865503.20744, 0.21103 } + }; + + static const double e[][3] = { + { 0.2056317526, 0.0002040653, -28349e-10 }, + { 0.0067719164, -0.0004776521, 98127e-10 }, + { 0.0167086342, -0.0004203654, -0.0000126734 }, + { 0.0934006477, 0.0009048438, -80641e-10 }, + { 0.0484979255, 0.0016322542, -0.0000471366 }, + { 0.0555481426, -0.0034664062, -0.0000643639 }, + { 0.0463812221, -0.0002729293, 0.0000078913 }, + { 0.0094557470, 0.0000603263, 0.0 } + }; + + static const double pi[][3] = { + { 77.45611904, 5719.11590, -4.83016 }, + { 131.56370300, 175.48640, -498.48184 }, + { 102.93734808, 11612.35290, 53.27577 }, + { 336.06023395, 15980.45908, -62.32800 }, + { 14.33120687, 7758.75163, 259.95938 }, + { 93.05723748, 20395.49439, 190.25952 }, + { 173.00529106, 3215.56238, -34.09288 }, + { 48.12027554, 1050.71912, 27.39717 } + }; + + static const double dinc[][3] = { + { 7.00498625, -214.25629, 0.28977 }, + { 3.39466189, -30.84437, -11.67836 }, + { 0.0, 469.97289, -3.35053 }, + { 1.84972648, -293.31722, -8.11830 }, + { 1.30326698, -71.55890, 11.95297 }, + { 2.48887878, 91.85195, -17.66225 }, + { 0.77319689, -60.72723, 1.25759 }, + { 1.76995259, 8.12333, 0.08135 } + }; + + static const double omega[][3] = { + { 48.33089304, -4515.21727, -31.79892 }, + { 76.67992019, -10008.48154, -51.32614 }, + { 174.87317577, -8679.27034, 15.34191 }, + { 49.55809321, -10620.90088, -230.57416 }, + { 100.46440702, 6362.03561, 326.52178 }, + { 113.66550252, -9240.19942, -66.23743 }, + { 74.00595701, 2669.15033, 145.93964 }, + { 131.78405702, -221.94322, -0.78728 } + }; + +/* Tables for trigonometric terms to be added to the mean elements of */ +/* the semi-major axes */ + + static const double kp[][9] = { + { 69613, 75645, 88306, 59899, 15746, 71087, 142173, 3086, 0 }, + { 21863, 32794, 26934, 10931, 26250, 43725, 53867, 28939, 0 }, + { 16002, 21863, 32004, 10931, 14529, 16368, 15318, 32794, 0 }, + { 6345, 7818, 15636, 7077, 8184, 14163, 1107, 4872, 0 }, + { 1760, 1454, 1167, 880, 287, 2640, 19, 2047, 1454 }, + { 574, 0, 880, 287, 19, 1760, 1167, 306, 574 }, + { 204, 0, 177, 1265, 4, 385, 200, 208, 204 }, + { 0, 102, 106, 4, 98, 1367, 487, 204, 0 } + }; + + static const double ca[][9] = { + { 4, -13, 11, -9, -9, -3, -1, 4, 0 }, + { -156, 59, -42, 6, 19, -20, -10, -12, 0 }, + { 64, -152, 62, -8, 32, -41, 19, -11, 0 }, + { 124, 621, -145, 208, 54, -57, 30, 15, 0 }, + { -23437, -2634, 6601, 6259, -1507,-1821, 2620, -2115, -1489 }, + { 62911,-119919, 79336,17814,-24241,12068, 8306, -4893, 8902 }, + { 389061,-262125,-44088, 8387,-22976,-2093, -615, -9720, 6633 }, + { -412235,-157046,-31430,37817, -9740, -13, -7449, 9644, 0 } + }; + + static const double sa[][9] = { + { -29, -1, 9, 6, -6, 5, 4, 0, 0 }, + { -48, -125, -26, -37, 18, -13, -20, -2, 0 }, + { -150, -46, 68, 54, 14, 24, -28, 22, 0 }, + { -621, 532, -694, -20, 192, -94, 71, -73, 0 }, + { -14614,-19828, -5869, 1881, -4372, -2255, 782, 930, 913 }, + { 139737, 0, 24667, 51123, -5102, 7429, -4095, -1976, -9566 }, + { -138081, 0, 37205,-49039,-41901,-33872,-27037,-12474, 18797 }, + { 0, 28492,133236, 69654, 52322,-49577,-26430, -3593, 0 } + }; + +/* Tables giving the trigonometric terms to be added to the mean */ +/* elements of the mean longitudes */ + + static const double kq[][10] = { + { 3086,15746,69613,59899,75645,88306, 12661, 2658, 0, 0 }, + { 21863,32794,10931, 73, 4387,26934, 1473, 2157, 0, 0 }, + { 10,16002,21863,10931, 1473,32004, 4387, 73, 0, 0 }, + { 10, 6345, 7818, 1107,15636, 7077, 8184, 532, 10, 0 }, + { 19, 1760, 1454, 287, 1167, 880, 574, 2640, 19, 1454 }, + { 19, 574, 287, 306, 1760, 12, 31, 38, 19, 574 }, + { 4, 204, 177, 8, 31, 200, 1265, 102, 4, 204 }, + { 4, 102, 106, 8, 98, 1367, 487, 204, 4, 102 } + }; + + static const double cl[][10] = { + { 21, -95, -157, 41, -5, 42, 23, 30, 0, 0 }, + { -160, -313, -235, 60, -74, -76, -27, 34, 0, 0 }, + { -325, -322, -79, 232, -52, 97, 55, -41, 0, 0 }, + { 2268, -979, 802, 602, -668, -33, 345, 201, -55, 0 }, + { 7610, -4997,-7689,-5841,-2617, 1115,-748,-607, 6074, 354 }, + { -18549, 30125,20012, -730, 824, 23,1289,-352, -14767, -2062 }, + { -135245,-14594, 4197,-4030,-5630,-2898,2540,-306, 2939, 1986 }, + { 89948, 2103, 8963, 2695, 3682, 1648, 866,-154, -1963, -283 } + }; + + static const double sl[][10] = { + { -342, 136, -23, 62, 66, -52, -33, 17, 0, 0 }, + { 524, -149, -35, 117, 151, 122, -71, -62, 0, 0 }, + { -105, -137, 258, 35, -116, -88,-112, -80, 0, 0 }, + { 854, -205, -936, -240, 140, -341, -97, -232, 536, 0 }, + { -56980, 8016, 1012, 1448,-3024,-3710, 318, 503, 3767, 577 }, + { 138606,-13478,-4964, 1441,-1319,-1482, 427, 1236, -9167, -1918 }, + { 71234,-41116, 5334,-4935,-1848, 66, 434, -1748, 3780, -701 }, + { -47645, 11647, 2166, 3194, 679, 0,-244, -419, -2531, 48 } + }; + +/*--------------------------------------------------------------------*/ + +/* Validate the planet number. */ + if ((np < 1) || (np > 8)) { + jstat = -1; + + /* Reset the result in case of failure. */ + for (k = 0; k < 2; k++) { + for (i = 0; i < 3; i++) { + pv[k][i] = 0.0; + } + } + + } else { + + /* Decrement the planet number to start at zero. */ + np--; + + /* Time: Julian millennia since J2000.0. */ + t = ((date1 - DJ00) + date2) / DJM; + + /* OK status unless remote date. */ + jstat = fabs(t) <= 1.0 ? 0 : 1; + + /* Compute the mean elements. */ + da = a[np][0] + + (a[np][1] + + a[np][2] * t) * t; + dl = (3600.0 * dlm[np][0] + + (dlm[np][1] + + dlm[np][2] * t) * t) * DAS2R; + de = e[np][0] + + ( e[np][1] + + e[np][2] * t) * t; + dp = iauAnpm((3600.0 * pi[np][0] + + (pi[np][1] + + pi[np][2] * t) * t) * DAS2R); + di = (3600.0 * dinc[np][0] + + (dinc[np][1] + + dinc[np][2] * t) * t) * DAS2R; + dom = iauAnpm((3600.0 * omega[np][0] + + (omega[np][1] + + omega[np][2] * t) * t) * DAS2R); + + /* Apply the trigonometric terms. */ + dmu = 0.35953620 * t; + for (k = 0; k < 8; k++) { + arga = kp[np][k] * dmu; + argl = kq[np][k] * dmu; + da += (ca[np][k] * cos(arga) + + sa[np][k] * sin(arga)) * 1e-7; + dl += (cl[np][k] * cos(argl) + + sl[np][k] * sin(argl)) * 1e-7; + } + arga = kp[np][8] * dmu; + da += t * (ca[np][8] * cos(arga) + + sa[np][8] * sin(arga)) * 1e-7; + for (k = 8; k < 10; k++) { + argl = kq[np][k] * dmu; + dl += t * (cl[np][k] * cos(argl) + + sl[np][k] * sin(argl)) * 1e-7; + } + dl = fmod(dl, D2PI); + + /* Iterative soln. of Kepler's equation to get eccentric anomaly. */ + am = dl - dp; + ae = am + de * sin(am); + k = 0; + dae = 1.0; + while (k < KMAX && fabs(dae) > 1e-12) { + dae = (am - ae + de * sin(ae)) / (1.0 - de * cos(ae)); + ae += dae; + k++; + if (k == KMAX-1) jstat = 2; + } + + /* True anomaly. */ + ae2 = ae / 2.0; + at = 2.0 * atan2(sqrt((1.0 + de) / (1.0 - de)) * sin(ae2), + cos(ae2)); + + /* Distance (AU) and speed (radians per day). */ + r = da * (1.0 - de * cos(ae)); + v = GK * sqrt((1.0 + 1.0 / amas[np]) / (da * da * da)); + + si2 = sin(di / 2.0); + xq = si2 * cos(dom); + xp = si2 * sin(dom); + tl = at + dp; + xsw = sin(tl); + xcw = cos(tl); + xm2 = 2.0 * (xp * xcw - xq * xsw); + xf = da / sqrt(1 - de * de); + ci2 = cos(di / 2.0); + xms = (de * sin(dp) + xsw) * xf; + xmc = (de * cos(dp) + xcw) * xf; + xpxq2 = 2 * xp * xq; + + /* Position (J2000.0 ecliptic x,y,z in AU). */ + x = r * (xcw - xm2 * xp); + y = r * (xsw + xm2 * xq); + z = r * (-xm2 * ci2); + + /* Rotate to equatorial. */ + pv[0][0] = x; + pv[0][1] = y * COSEPS - z * SINEPS; + pv[0][2] = y * SINEPS + z * COSEPS; + + /* Velocity (J2000.0 ecliptic xdot,ydot,zdot in AU/d). */ + x = v * (( -1.0 + 2.0 * xp * xp) * xms + xpxq2 * xmc); + y = v * (( 1.0 - 2.0 * xq * xq) * xmc - xpxq2 * xms); + z = v * (2.0 * ci2 * (xp * xms + xq * xmc)); + + /* Rotate to equatorial. */ + pv[1][0] = x; + pv[1][1] = y * COSEPS - z * SINEPS; + pv[1][2] = y * SINEPS + z * COSEPS; + + } + +/* Return the status. */ + return jstat; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pm.c =================================================================== --- /trunk/FACT++/sofa/src/pm.c (revision 18346) +++ /trunk/FACT++/sofa/src/pm.c (revision 18346) @@ -0,0 +1,126 @@ +#include "sofa.h" + +double iauPm(double p[3]) +/* +** - - - - - - +** i a u P m +** - - - - - - +** +** Modulus of p-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** p double[3] p-vector +** +** Returned (function value): +** double modulus +** +** This revision: 2013 August 7 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + return sqrt( p[0]*p[0] + p[1]*p[1] + p[2]*p[2] ); + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pmat00.c =================================================================== --- /trunk/FACT++/sofa/src/pmat00.c (revision 18346) +++ /trunk/FACT++/sofa/src/pmat00.c (revision 18346) @@ -0,0 +1,167 @@ +#include "sofa.h" + +void iauPmat00(double date1, double date2, double rbp[3][3]) +/* +** - - - - - - - - - - +** i a u P m a t 0 0 +** - - - - - - - - - - +** +** Precession matrix (including frame bias) from GCRS to a specified +** date, IAU 2000 model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rbp double[3][3] bias-precession matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(date) = rbp * V(GCRS), where +** the p-vector V(GCRS) is with respect to the Geocentric Celestial +** Reference System (IAU, 2000) and the p-vector V(date) is with +** respect to the mean equatorial triad of the given date. +** +** Called: +** iauBp00 frame bias and precession matrices, IAU 2000 +** +** Reference: +** +** IAU: Trans. International Astronomical Union, Vol. XXIVB; Proc. +** 24th General Assembly, Manchester, UK. Resolutions B1.3, B1.6. +** (2000) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rb[3][3], rp[3][3]; + +/* Obtain the required matrix (discarding others). */ + iauBp00(date1, date2, rb, rp, rbp); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pmat06.c =================================================================== --- /trunk/FACT++/sofa/src/pmat06.c (revision 18346) +++ /trunk/FACT++/sofa/src/pmat06.c (revision 18346) @@ -0,0 +1,171 @@ +#include "sofa.h" + +void iauPmat06(double date1, double date2, double rbp[3][3]) +/* +** - - - - - - - - - - +** i a u P m a t 0 6 +** - - - - - - - - - - +** +** Precession matrix (including frame bias) from GCRS to a specified +** date, IAU 2006 model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rbp double[3][3] bias-precession matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(date) = rbp * V(GCRS), where +** the p-vector V(GCRS) is with respect to the Geocentric Celestial +** Reference System (IAU, 2000) and the p-vector V(date) is with +** respect to the mean equatorial triad of the given date. +** +** Called: +** iauPfw06 bias-precession F-W angles, IAU 2006 +** iauFw2m F-W angles to r-matrix +** +** References: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double gamb, phib, psib, epsa; + +/* Bias-precession Fukushima-Williams angles. */ + iauPfw06(date1, date2, &gamb, &phib, &psib, &epsa); + +/* Form the matrix. */ + iauFw2m(gamb, phib, psib, epsa, rbp); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pmat76.c =================================================================== --- /trunk/FACT++/sofa/src/pmat76.c (revision 18346) +++ /trunk/FACT++/sofa/src/pmat76.c (revision 18346) @@ -0,0 +1,190 @@ +#include "sofa.h" + +void iauPmat76(double date1, double date2, double rmatp[3][3]) +/* +** - - - - - - - - - - +** i a u P m a t 7 6 +** - - - - - - - - - - +** +** Precession matrix from J2000.0 to a specified date, IAU 1976 model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double ending date, TT (Note 1) +** +** Returned: +** rmatp double[3][3] precession matrix, J2000.0 -> date1+date2 +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(date) = RMATP * V(J2000), +** where the p-vector V(J2000) is with respect to the mean +** equatorial triad of epoch J2000.0 and the p-vector V(date) +** is with respect to the mean equatorial triad of the given +** date. +** +** 3) Though the matrix method itself is rigorous, the precession +** angles are expressed through canonical polynomials which are +** valid only for a limited time span. In addition, the IAU 1976 +** precession rate is known to be imperfect. The absolute accuracy +** of the present formulation is better than 0.1 arcsec from +** 1960AD to 2040AD, better than 1 arcsec from 1640AD to 2360AD, +** and remains below 3 arcsec for the whole of the period +** 500BC to 3000AD. The errors exceed 10 arcsec outside the +** range 1200BC to 3900AD, exceed 100 arcsec outside 4200BC to +** 5600AD and exceed 1000 arcsec outside 6800BC to 8200AD. +** +** Called: +** iauPrec76 accumulated precession angles, IAU 1976 +** iauIr initialize r-matrix to identity +** iauRz rotate around Z-axis +** iauRy rotate around Y-axis +** iauCr copy r-matrix +** +** References: +** +** Lieske, J.H., 1979, Astron.Astrophys. 73, 282. +** equations (6) & (7), p283. +** +** Kaplan,G.H., 1981. USNO circular no. 163, pA2. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double zeta, z, theta, wmat[3][3]; + +/* Precession Euler angles, J2000.0 to specified date. */ + iauPrec76(DJ00, 0.0, date1, date2, &zeta, &z, &theta); + +/* Form the rotation matrix. */ + iauIr( wmat); + iauRz( -zeta, wmat); + iauRy( theta, wmat); + iauRz( -z, wmat); + iauCr( wmat, rmatp); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pmp.c =================================================================== --- /trunk/FACT++/sofa/src/pmp.c (revision 18346) +++ /trunk/FACT++/sofa/src/pmp.c (revision 18346) @@ -0,0 +1,135 @@ +#include "sofa.h" + +void iauPmp(double a[3], double b[3], double amb[3]) +/* +** - - - - - - - +** i a u P m p +** - - - - - - - +** +** P-vector subtraction. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3] first p-vector +** b double[3] second p-vector +** +** Returned: +** amb double[3] a - b +** +** Note: +** It is permissible to re-use the same array for any of the +** arguments. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + amb[0] = a[0] - b[0]; + amb[1] = a[1] - b[1]; + amb[2] = a[2] - b[2]; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pmpx.c =================================================================== --- /trunk/FACT++/sofa/src/pmpx.c (revision 18346) +++ /trunk/FACT++/sofa/src/pmpx.c (revision 18346) @@ -0,0 +1,194 @@ +#include "sofa.h" + +void iauPmpx(double rc, double dc, double pr, double pd, + double px, double rv, double pmt, double pob[3], + double pco[3]) +/* +** - - - - - - - - +** i a u P m p x +** - - - - - - - - +** +** Proper motion and parallax. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** rc,dc double ICRS RA,Dec at catalog epoch (radians) +** pr double RA proper motion (radians/year; Note 1) +** pd double Dec proper motion (radians/year) +** px double parallax (arcsec) +** rv double radial velocity (km/s, +ve if receding) +** pmt double proper motion time interval (SSB, Julian years) +** pob double[3] SSB to observer vector (au) +** +** Returned: +** pco double[3] coordinate direction (BCRS unit vector) +** +** Notes: +** +** 1) The proper motion in RA is dRA/dt rather than cos(Dec)*dRA/dt. +** +** 2) The proper motion time interval is for when the starlight +** reaches the solar system barycenter. +** +** 3) To avoid the need for iteration, the Roemer effect (i.e. the +** small annual modulation of the proper motion coming from the +** changing light time) is applied approximately, using the +** direction of the star at the catalog epoch. +** +** References: +** +** 1984 Astronomical Almanac, pp B39-B41. +** +** Urban, S. & Seidelmann, P. K. (eds), Explanatory Supplement to +** the Astronomical Almanac, 3rd ed., University Science Books +** (2013), Section 7.2. +** +** Called: +** iauPdp scalar product of two p-vectors +** iauPn decompose p-vector into modulus and direction +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Km/s to au/year */ + const double VF = DAYSEC*DJM/DAU; + +/* Light time for 1 au, Julian years */ + const double AULTY = AULT/DAYSEC/DJY; + + int i; + double sr, cr, sd, cd, x, y, z, p[3], dt, pxr, w, pdz, pm[3]; + +/* Spherical coordinates to unit vector (and useful functions). */ + sr = sin(rc); + cr = cos(rc); + sd = sin(dc); + cd = cos(dc); + p[0] = x = cr*cd; + p[1] = y = sr*cd; + p[2] = z = sd; + +/* Proper motion time interval (y) including Roemer effect. */ + dt = pmt + iauPdp(p,pob)*AULTY; + +/* Space motion (radians per year). */ + pxr = px * DAS2R; + w = VF * rv * pxr; + pdz = pd * z; + pm[0] = - pr*y - pdz*cr + w*x; + pm[1] = pr*x - pdz*sr + w*y; + pm[2] = pd*cd + w*z; + +/* Coordinate direction of star (unit vector, BCRS). */ + for (i = 0; i < 3; i++) { + p[i] += dt*pm[i] - pxr*pob[i]; + } + iauPn(p, &w, pco); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/pmsafe.c =================================================================== --- /trunk/FACT++/sofa/src/pmsafe.c (revision 18346) +++ /trunk/FACT++/sofa/src/pmsafe.c (revision 18346) @@ -0,0 +1,247 @@ +#include "sofa.h" + +int iauPmsafe(double ra1, double dec1, double pmr1, double pmd1, + double px1, double rv1, + double ep1a, double ep1b, double ep2a, double ep2b, + double *ra2, double *dec2, double *pmr2, double *pmd2, + double *px2, double *rv2) +/* +** - - - - - - - - - - +** i a u P m s a f e +** - - - - - - - - - - +** +** Star proper motion: update star catalog data for space motion, with +** special handling to handle the zero parallax case. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** ra1 double right ascension (radians), before +** dec1 double declination (radians), before +** pmr1 double RA proper motion (radians/year), before +** pmd1 double Dec proper motion (radians/year), before +** px1 double parallax (arcseconds), before +** rv1 double radial velocity (km/s, +ve = receding), before +** ep1a double "before" epoch, part A (Note 1) +** ep1b double "before" epoch, part B (Note 1) +** ep2a double "after" epoch, part A (Note 1) +** ep2b double "after" epoch, part B (Note 1) +** +** Returned: +** ra2 double right ascension (radians), after +** dec2 double declination (radians), after +** pmr2 double RA proper motion (radians/year), after +** pmd2 double Dec proper motion (radians/year), after +** px2 double parallax (arcseconds), after +** rv2 double radial velocity (km/s, +ve = receding), after +** +** Returned (function value): +** int status: +** -1 = system error (should not occur) +** 0 = no warnings or errors +** 1 = distance overridden (Note 6) +** 2 = excessive velocity (Note 7) +** 4 = solution didn't converge (Note 8) +** else = binary logical OR of the above warnings +** +** Notes: +** +** 1) The starting and ending TDB epochs ep1a+ep1b and ep2a+ep2b are +** Julian Dates, apportioned in any convenient way between the two +** parts (A and B). For example, JD(TDB)=2450123.7 could be +** expressed in any of these ways, among others: +** +** epNa epNb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** resolution. The MJD method and the date & time methods are both +** good compromises between resolution and convenience. +** +** 2) In accordance with normal star-catalog conventions, the object's +** right ascension and declination are freed from the effects of +** secular aberration. The frame, which is aligned to the catalog +** equator and equinox, is Lorentzian and centered on the SSB. +** +** The proper motions are the rate of change of the right ascension +** and declination at the catalog epoch and are in radians per TDB +** Julian year. +** +** The parallax and radial velocity are in the same frame. +** +** 3) Care is needed with units. The star coordinates are in radians +** and the proper motions in radians per Julian year, but the +** parallax is in arcseconds. +** +** 4) The RA proper motion is in terms of coordinate angle, not true +** angle. If the catalog uses arcseconds for both RA and Dec proper +** motions, the RA proper motion will need to be divided by cos(Dec) +** before use. +** +** 5) Straight-line motion at constant speed, in the inertial frame, is +** assumed. +** +** 6) An extremely small (or zero or negative) parallax is overridden +** to ensure that the object is at a finite but very large distance, +** but not so large that the proper motion is equivalent to a large +** but safe speed (about 0.1c using the chosen constant). A warning +** status of 1 is added to the status if this action has been taken. +** +** 7) If the space velocity is a significant fraction of c (see the +** constant VMAX in the function iauStarpv), it is arbitrarily set +** to zero. When this action occurs, 2 is added to the status. +** +** 8) The relativistic adjustment carried out in the iauStarpv function +** involves an iterative calculation. If the process fails to +** converge within a set number of iterations, 4 is added to the +** status. +** +** Called: +** iauSeps angle between two points +** iauStarpm update star catalog data for space motion +** +** This revision: 2014 July 1 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + +/* Minimum allowed parallax (arcsec) */ + const double PXMIN = 5e-7; + +/* Factor giving maximum allowed transverse speed of about 1% c */ + const double F = 326.0; + + int jpx, j; + double pm, px1a; + +/* Proper motion in one year (radians). */ + pm = iauSeps(ra1, dec1, ra1+pmr1, dec1+pmd1); + +/* Override the parallax to reduce the chances of a warning status. */ + jpx = 0; + px1a = px1; + pm *= F; + if (px1a < pm) {jpx = 1; px1a = pm;} + if (px1a < PXMIN) {jpx = 1; px1a = PXMIN;} + +/* Carry out the transformation using the modified parallax. */ + j = iauStarpm(ra1, dec1, pmr1, pmd1, px1a, rv1, + ep1a, ep1b, ep2a, ep2b, + ra2, dec2, pmr2, pmd2, px2, rv2); + +/* Revise and return the status. */ + if ( !(j%2) ) j += jpx; + return j; + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/pn.c =================================================================== --- /trunk/FACT++/sofa/src/pn.c (revision 18346) +++ /trunk/FACT++/sofa/src/pn.c (revision 18346) @@ -0,0 +1,158 @@ +#include "sofa.h" + +void iauPn(double p[3], double *r, double u[3]) +/* +** - - - - - - +** i a u P n +** - - - - - - +** +** Convert a p-vector into modulus and unit vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** p double[3] p-vector +** +** Returned: +** r double modulus +** u double[3] unit vector +** +** Notes: +** +** 1) If p is null, the result is null. Otherwise the result is a unit +** vector. +** +** 2) It is permissible to re-use the same array for any of the +** arguments. +** +** Called: +** iauPm modulus of p-vector +** iauZp zero p-vector +** iauSxp multiply p-vector by scalar +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double w; + +/* Obtain the modulus and test for zero. */ + w = iauPm(p); + if (w == 0.0) { + + /* Null vector. */ + iauZp(u); + + } else { + + /* Unit vector. */ + iauSxp(1.0/w, p, u); + } + +/* Return the modulus. */ + *r = w; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pn00.c =================================================================== --- /trunk/FACT++/sofa/src/pn00.c (revision 18346) +++ /trunk/FACT++/sofa/src/pn00.c (revision 18346) @@ -0,0 +1,226 @@ +#include "sofa.h" + +void iauPn00(double date1, double date2, double dpsi, double deps, + double *epsa, + double rb[3][3], double rp[3][3], double rbp[3][3], + double rn[3][3], double rbpn[3][3]) +/* +** - - - - - - - - +** i a u P n 0 0 +** - - - - - - - - +** +** Precession-nutation, IAU 2000 model: a multi-purpose function, +** supporting classical (equinox-based) use directly and CIO-based +** use indirectly. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** dpsi,deps double nutation (Note 2) +** +** Returned: +** epsa double mean obliquity (Note 3) +** rb double[3][3] frame bias matrix (Note 4) +** rp double[3][3] precession matrix (Note 5) +** rbp double[3][3] bias-precession matrix (Note 6) +** rn double[3][3] nutation matrix (Note 7) +** rbpn double[3][3] GCRS-to-true matrix (Note 8) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The caller is responsible for providing the nutation components; +** they are in longitude and obliquity, in radians and are with +** respect to the equinox and ecliptic of date. For high-accuracy +** applications, free core nutation should be included as well as +** any other relevant corrections to the position of the CIP. +** +** 3) The returned mean obliquity is consistent with the IAU 2000 +** precession-nutation models. +** +** 4) The matrix rb transforms vectors from GCRS to J2000.0 mean +** equator and equinox by applying frame bias. +** +** 5) The matrix rp transforms vectors from J2000.0 mean equator and +** equinox to mean equator and equinox of date by applying +** precession. +** +** 6) The matrix rbp transforms vectors from GCRS to mean equator and +** equinox of date by applying frame bias then precession. It is +** the product rp x rb. +** +** 7) The matrix rn transforms vectors from mean equator and equinox of +** date to true equator and equinox of date by applying the nutation +** (luni-solar + planetary). +** +** 8) The matrix rbpn transforms vectors from GCRS to true equator and +** equinox of date. It is the product rn x rbp, applying frame +** bias, precession and nutation in that order. +** +** 9) It is permissible to re-use the same array in the returned +** arguments. The arrays are filled in the order given. +** +** Called: +** iauPr00 IAU 2000 precession adjustments +** iauObl80 mean obliquity, IAU 1980 +** iauBp00 frame bias and precession matrices, IAU 2000 +** iauCr copy r-matrix +** iauNumat form nutation matrix +** iauRxr product of two r-matrices +** +** Reference: +** +** Capitaine, N., Chapront, J., Lambert, S. and Wallace, P., +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double dpsipr, depspr, rbpw[3][3], rnw[3][3]; + +/* IAU 2000 precession-rate adjustments. */ + iauPr00(date1, date2, &dpsipr, &depspr); + +/* Mean obliquity, consistent with IAU 2000 precession-nutation. */ + *epsa = iauObl80(date1, date2) + depspr; + +/* Frame bias and precession matrices and their product. */ + iauBp00(date1, date2, rb, rp, rbpw); + iauCr(rbpw, rbp); + +/* Nutation matrix. */ + iauNumat(*epsa, dpsi, deps, rnw); + iauCr(rnw, rn); + +/* Bias-precession-nutation matrix (classical). */ + iauRxr(rnw, rbpw, rbpn); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pn00a.c =================================================================== --- /trunk/FACT++/sofa/src/pn00a.c (revision 18346) +++ /trunk/FACT++/sofa/src/pn00a.c (revision 18346) @@ -0,0 +1,213 @@ +#include "sofa.h" + +void iauPn00a(double date1, double date2, + double *dpsi, double *deps, double *epsa, + double rb[3][3], double rp[3][3], double rbp[3][3], + double rn[3][3], double rbpn[3][3]) +/* +** - - - - - - - - - +** i a u P n 0 0 a +** - - - - - - - - - +** +** Precession-nutation, IAU 2000A model: a multi-purpose function, +** supporting classical (equinox-based) use directly and CIO-based +** use indirectly. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsi,deps double nutation (Note 2) +** epsa double mean obliquity (Note 3) +** rb double[3][3] frame bias matrix (Note 4) +** rp double[3][3] precession matrix (Note 5) +** rbp double[3][3] bias-precession matrix (Note 6) +** rn double[3][3] nutation matrix (Note 7) +** rbpn double[3][3] GCRS-to-true matrix (Notes 8,9) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The nutation components (luni-solar + planetary, IAU 2000A) in +** longitude and obliquity are in radians and with respect to the +** equinox and ecliptic of date. Free core nutation is omitted; +** for the utmost accuracy, use the iauPn00 function, where the +** nutation components are caller-specified. For faster but +** slightly less accurate results, use the iauPn00b function. +** +** 3) The mean obliquity is consistent with the IAU 2000 precession. +** +** 4) The matrix rb transforms vectors from GCRS to J2000.0 mean +** equator and equinox by applying frame bias. +** +** 5) The matrix rp transforms vectors from J2000.0 mean equator and +** equinox to mean equator and equinox of date by applying +** precession. +** +** 6) The matrix rbp transforms vectors from GCRS to mean equator and +** equinox of date by applying frame bias then precession. It is +** the product rp x rb. +** +** 7) The matrix rn transforms vectors from mean equator and equinox +** of date to true equator and equinox of date by applying the +** nutation (luni-solar + planetary). +** +** 8) The matrix rbpn transforms vectors from GCRS to true equator and +** equinox of date. It is the product rn x rbp, applying frame +** bias, precession and nutation in that order. +** +** 9) The X,Y,Z coordinates of the IAU 2000A Celestial Intermediate +** Pole are elements (3,1-3) of the GCRS-to-true matrix, +** i.e. rbpn[2][0-2]. +** +** 10) It is permissible to re-use the same array in the returned +** arguments. The arrays are filled in the order given. +** +** Called: +** iauNut00a nutation, IAU 2000A +** iauPn00 bias/precession/nutation results, IAU 2000 +** +** Reference: +** +** Capitaine, N., Chapront, J., Lambert, S. and Wallace, P., +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** This revision: 2013 November 14 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Nutation. */ + iauNut00a(date1, date2, dpsi, deps); + +/* Remaining results. */ + iauPn00(date1, date2, *dpsi, *deps, epsa, rb, rp, rbp, rn, rbpn); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pn00b.c =================================================================== --- /trunk/FACT++/sofa/src/pn00b.c (revision 18346) +++ /trunk/FACT++/sofa/src/pn00b.c (revision 18346) @@ -0,0 +1,213 @@ +#include "sofa.h" + +void iauPn00b(double date1, double date2, + double *dpsi, double *deps, double *epsa, + double rb[3][3], double rp[3][3], double rbp[3][3], + double rn[3][3], double rbpn[3][3]) +/* +** - - - - - - - - - +** i a u P n 0 0 b +** - - - - - - - - - +** +** Precession-nutation, IAU 2000B model: a multi-purpose function, +** supporting classical (equinox-based) use directly and CIO-based +** use indirectly. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsi,deps double nutation (Note 2) +** epsa double mean obliquity (Note 3) +** rb double[3][3] frame bias matrix (Note 4) +** rp double[3][3] precession matrix (Note 5) +** rbp double[3][3] bias-precession matrix (Note 6) +** rn double[3][3] nutation matrix (Note 7) +** rbpn double[3][3] GCRS-to-true matrix (Notes 8,9) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The nutation components (luni-solar + planetary, IAU 2000B) in +** longitude and obliquity are in radians and with respect to the +** equinox and ecliptic of date. For more accurate results, but +** at the cost of increased computation, use the iauPn00a function. +** For the utmost accuracy, use the iauPn00 function, where the +** nutation components are caller-specified. +** +** 3) The mean obliquity is consistent with the IAU 2000 precession. +** +** 4) The matrix rb transforms vectors from GCRS to J2000.0 mean +** equator and equinox by applying frame bias. +** +** 5) The matrix rp transforms vectors from J2000.0 mean equator and +** equinox to mean equator and equinox of date by applying +** precession. +** +** 6) The matrix rbp transforms vectors from GCRS to mean equator and +** equinox of date by applying frame bias then precession. It is +** the product rp x rb. +** +** 7) The matrix rn transforms vectors from mean equator and equinox +** of date to true equator and equinox of date by applying the +** nutation (luni-solar + planetary). +** +** 8) The matrix rbpn transforms vectors from GCRS to true equator and +** equinox of date. It is the product rn x rbp, applying frame +** bias, precession and nutation in that order. +** +** 9) The X,Y,Z coordinates of the IAU 2000B Celestial Intermediate +** Pole are elements (3,1-3) of the GCRS-to-true matrix, +** i.e. rbpn[2][0-2]. +** +** 10) It is permissible to re-use the same array in the returned +** arguments. The arrays are filled in the stated order. +** +** Called: +** iauNut00b nutation, IAU 2000B +** iauPn00 bias/precession/nutation results, IAU 2000 +** +** Reference: +** +** Capitaine, N., Chapront, J., Lambert, S. and Wallace, P., +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003). +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** This revision: 2013 November 13 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Nutation. */ + iauNut00b(date1, date2, dpsi, deps); + +/* Remaining results. */ + iauPn00(date1, date2, *dpsi, *deps, epsa, rb, rp, rbp, rn, rbpn); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pn06.c =================================================================== --- /trunk/FACT++/sofa/src/pn06.c (revision 18346) +++ /trunk/FACT++/sofa/src/pn06.c (revision 18346) @@ -0,0 +1,236 @@ +#include "sofa.h" + +void iauPn06(double date1, double date2, double dpsi, double deps, + double *epsa, + double rb[3][3], double rp[3][3], double rbp[3][3], + double rn[3][3], double rbpn[3][3]) +/* +** - - - - - - - - +** i a u P n 0 6 +** - - - - - - - - +** +** Precession-nutation, IAU 2006 model: a multi-purpose function, +** supporting classical (equinox-based) use directly and CIO-based use +** indirectly. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** dpsi,deps double nutation (Note 2) +** +** Returned: +** epsa double mean obliquity (Note 3) +** rb double[3][3] frame bias matrix (Note 4) +** rp double[3][3] precession matrix (Note 5) +** rbp double[3][3] bias-precession matrix (Note 6) +** rn double[3][3] nutation matrix (Note 7) +** rbpn double[3][3] GCRS-to-true matrix (Note 8) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The caller is responsible for providing the nutation components; +** they are in longitude and obliquity, in radians and are with +** respect to the equinox and ecliptic of date. For high-accuracy +** applications, free core nutation should be included as well as +** any other relevant corrections to the position of the CIP. +** +** 3) The returned mean obliquity is consistent with the IAU 2006 +** precession. +** +** 4) The matrix rb transforms vectors from GCRS to J2000.0 mean +** equator and equinox by applying frame bias. +** +** 5) The matrix rp transforms vectors from J2000.0 mean equator and +** equinox to mean equator and equinox of date by applying +** precession. +** +** 6) The matrix rbp transforms vectors from GCRS to mean equator and +** equinox of date by applying frame bias then precession. It is +** the product rp x rb. +** +** 7) The matrix rn transforms vectors from mean equator and equinox +** of date to true equator and equinox of date by applying the +** nutation (luni-solar + planetary). +** +** 8) The matrix rbpn transforms vectors from GCRS to true equator and +** equinox of date. It is the product rn x rbp, applying frame +** bias, precession and nutation in that order. +** +** 9) The X,Y,Z coordinates of the Celestial Intermediate Pole are +** elements (3,1-3) of the GCRS-to-true matrix, i.e. rbpn[2][0-2]. +** +** 10) It is permissible to re-use the same array in the returned +** arguments. The arrays are filled in the stated order. +** +** Called: +** iauPfw06 bias-precession F-W angles, IAU 2006 +** iauFw2m F-W angles to r-matrix +** iauCr copy r-matrix +** iauTr transpose r-matrix +** iauRxr product of two r-matrices +** +** References: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +** This revision: 2013 November 14 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double gamb, phib, psib, eps, r1[3][3], r2[3][3], rt[3][3]; + +/* Bias-precession Fukushima-Williams angles of J2000.0 = frame bias. */ + iauPfw06(DJM0, DJM00, &gamb, &phib, &psib, &eps); + +/* B matrix. */ + iauFw2m(gamb, phib, psib, eps, r1); + iauCr(r1, rb); + +/* Bias-precession Fukushima-Williams angles of date. */ + iauPfw06(date1, date2, &gamb, &phib, &psib, &eps); + +/* Bias-precession matrix. */ + iauFw2m(gamb, phib, psib, eps, r2); + iauCr(r2, rbp); + +/* Solve for precession matrix. */ + iauTr(r1, rt); + iauRxr(r2, rt, rp); + +/* Equinox-based bias-precession-nutation matrix. */ + iauFw2m(gamb, phib, psib + dpsi, eps + deps, r1); + iauCr(r1, rbpn); + +/* Solve for nutation matrix. */ + iauTr(r2, rt); + iauRxr(r1, rt, rn); + +/* Obliquity, mean of date. */ + *epsa = eps; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pn06a.c =================================================================== --- /trunk/FACT++/sofa/src/pn06a.c (revision 18346) +++ /trunk/FACT++/sofa/src/pn06a.c (revision 18346) @@ -0,0 +1,203 @@ +#include "sofa.h" + +void iauPn06a(double date1, double date2, + double *dpsi, double *deps, double *epsa, + double rb[3][3], double rp[3][3], double rbp[3][3], + double rn[3][3], double rbpn[3][3]) +/* +** - - - - - - - - - +** i a u P n 0 6 a +** - - - - - - - - - +** +** Precession-nutation, IAU 2006/2000A models: a multi-purpose function, +** supporting classical (equinox-based) use directly and CIO-based use +** indirectly. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsi,deps double nutation (Note 2) +** epsa double mean obliquity (Note 3) +** rb double[3][3] frame bias matrix (Note 4) +** rp double[3][3] precession matrix (Note 5) +** rbp double[3][3] bias-precession matrix (Note 6) +** rn double[3][3] nutation matrix (Note 7) +** rbpn double[3][3] GCRS-to-true matrix (Notes 8,9) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The nutation components (luni-solar + planetary, IAU 2000A) in +** longitude and obliquity are in radians and with respect to the +** equinox and ecliptic of date. Free core nutation is omitted; +** for the utmost accuracy, use the iauPn06 function, where the +** nutation components are caller-specified. +** +** 3) The mean obliquity is consistent with the IAU 2006 precession. +** +** 4) The matrix rb transforms vectors from GCRS to mean J2000.0 by +** applying frame bias. +** +** 5) The matrix rp transforms vectors from mean J2000.0 to mean of +** date by applying precession. +** +** 6) The matrix rbp transforms vectors from GCRS to mean of date by +** applying frame bias then precession. It is the product rp x rb. +** +** 7) The matrix rn transforms vectors from mean of date to true of +** date by applying the nutation (luni-solar + planetary). +** +** 8) The matrix rbpn transforms vectors from GCRS to true of date +** (CIP/equinox). It is the product rn x rbp, applying frame bias, +** precession and nutation in that order. +** +** 9) The X,Y,Z coordinates of the IAU 2006/2000A Celestial +** Intermediate Pole are elements (3,1-3) of the GCRS-to-true +** matrix, i.e. rbpn[2][0-2]. +** +** 10) It is permissible to re-use the same array in the returned +** arguments. The arrays are filled in the stated order. +** +** Called: +** iauNut06a nutation, IAU 2006/2000A +** iauPn06 bias/precession/nutation results, IAU 2006 +** +** Reference: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** This revision: 2013 November 13 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Nutation. */ + iauNut06a(date1, date2, dpsi, deps); + +/* Remaining results. */ + iauPn06(date1, date2, *dpsi, *deps, epsa, rb, rp, rbp, rn, rbpn); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pnm00a.c =================================================================== --- /trunk/FACT++/sofa/src/pnm00a.c (revision 18346) +++ /trunk/FACT++/sofa/src/pnm00a.c (revision 18346) @@ -0,0 +1,170 @@ +#include "sofa.h" + +void iauPnm00a(double date1, double date2, double rbpn[3][3]) +/* +** - - - - - - - - - - +** i a u P n m 0 0 a +** - - - - - - - - - - +** +** Form the matrix of precession-nutation for a given date (including +** frame bias), equinox-based, IAU 2000A model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rbpn double[3][3] classical NPB matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(date) = rbpn * V(GCRS), where +** the p-vector V(date) is with respect to the true equatorial triad +** of date date1+date2 and the p-vector V(GCRS) is with respect to +** the Geocentric Celestial Reference System (IAU, 2000). +** +** 3) A faster, but slightly less accurate result (about 1 mas), can be +** obtained by using instead the iauPnm00b function. +** +** Called: +** iauPn00a bias/precession/nutation, IAU 2000A +** +** Reference: +** +** IAU: Trans. International Astronomical Union, Vol. XXIVB; Proc. +** 24th General Assembly, Manchester, UK. Resolutions B1.3, B1.6. +** (2000) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double dpsi, deps, epsa, rb[3][3], rp[3][3], rbp[3][3], rn[3][3]; + +/* Obtain the required matrix (discarding other results). */ + iauPn00a(date1, date2, &dpsi, &deps, &epsa, rb, rp, rbp, rn, rbpn); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pnm00b.c =================================================================== --- /trunk/FACT++/sofa/src/pnm00b.c (revision 18346) +++ /trunk/FACT++/sofa/src/pnm00b.c (revision 18346) @@ -0,0 +1,170 @@ +#include "sofa.h" + +void iauPnm00b(double date1, double date2, double rbpn[3][3]) +/* +** - - - - - - - - - - +** i a u P n m 0 0 b +** - - - - - - - - - - +** +** Form the matrix of precession-nutation for a given date (including +** frame bias), equinox-based, IAU 2000B model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rbpn double[3][3] bias-precession-nutation matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(date) = rbpn * V(GCRS), where +** the p-vector V(date) is with respect to the true equatorial triad +** of date date1+date2 and the p-vector V(GCRS) is with respect to +** the Geocentric Celestial Reference System (IAU, 2000). +** +** 3) The present function is faster, but slightly less accurate (about +** 1 mas), than the iauPnm00a function. +** +** Called: +** iauPn00b bias/precession/nutation, IAU 2000B +** +** Reference: +** +** IAU: Trans. International Astronomical Union, Vol. XXIVB; Proc. +** 24th General Assembly, Manchester, UK. Resolutions B1.3, B1.6. +** (2000) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double dpsi, deps, epsa, rb[3][3], rp[3][3], rbp[3][3], rn[3][3]; + +/* Obtain the required matrix (discarding other results). */ + iauPn00b(date1, date2, &dpsi, &deps, &epsa, rb, rp, rbp, rn, rbpn); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pnm06a.c =================================================================== --- /trunk/FACT++/sofa/src/pnm06a.c (revision 18346) +++ /trunk/FACT++/sofa/src/pnm06a.c (revision 18346) @@ -0,0 +1,173 @@ +#include "sofa.h" + +void iauPnm06a(double date1, double date2, double rnpb[3][3]) +/* +** - - - - - - - - - - +** i a u P n m 0 6 a +** - - - - - - - - - - +** +** Form the matrix of precession-nutation for a given date (including +** frame bias), IAU 2006 precession and IAU 2000A nutation models. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** rnpb double[3][3] bias-precession-nutation matrix (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(date) = rnpb * V(GCRS), where +** the p-vector V(date) is with respect to the true equatorial triad +** of date date1+date2 and the p-vector V(GCRS) is with respect to +** the Geocentric Celestial Reference System (IAU, 2000). +** +** Called: +** iauPfw06 bias-precession F-W angles, IAU 2006 +** iauNut06a nutation, IAU 2006/2000A +** iauFw2m F-W angles to r-matrix +** +** Reference: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double gamb, phib, psib, epsa, dp, de; + +/* Fukushima-Williams angles for frame bias and precession. */ + iauPfw06(date1, date2, &gamb, &phib, &psib, &epsa); + +/* Nutation components. */ + iauNut06a(date1, date2, &dp, &de); + +/* Equinox based nutation x precession x bias matrix. */ + iauFw2m(gamb, phib, psib + dp, epsa + de, rnpb); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pnm80.c =================================================================== --- /trunk/FACT++/sofa/src/pnm80.c (revision 18346) +++ /trunk/FACT++/sofa/src/pnm80.c (revision 18346) @@ -0,0 +1,175 @@ +#include "sofa.h" + +void iauPnm80(double date1, double date2, double rmatpn[3][3]) +/* +** - - - - - - - - - +** i a u P n m 8 0 +** - - - - - - - - - +** +** Form the matrix of precession/nutation for a given date, IAU 1976 +** precession model, IAU 1980 nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TDB date (Note 1) +** +** Returned: +** rmatpn double[3][3] combined precession/nutation matrix +** +** Notes: +** +** 1) The TDB date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TDB)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The matrix operates in the sense V(date) = rmatpn * V(J2000), +** where the p-vector V(date) is with respect to the true equatorial +** triad of date date1+date2 and the p-vector V(J2000) is with +** respect to the mean equatorial triad of epoch J2000.0. +** +** Called: +** iauPmat76 precession matrix, IAU 1976 +** iauNutm80 nutation matrix, IAU 1980 +** iauRxr product of two r-matrices +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992), +** Section 3.3 (p145). +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rmatp[3][3], rmatn[3][3]; + +/* Precession matrix, J2000.0 to date. */ + iauPmat76(date1, date2, rmatp); + +/* Nutation matrix. */ + iauNutm80(date1, date2, rmatn); + +/* Combine the matrices: PN = N x P. */ + iauRxr(rmatn, rmatp, rmatpn); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pom00.c =================================================================== --- /trunk/FACT++/sofa/src/pom00.c (revision 18346) +++ /trunk/FACT++/sofa/src/pom00.c (revision 18346) @@ -0,0 +1,165 @@ +#include "sofa.h" + +void iauPom00(double xp, double yp, double sp, double rpom[3][3]) +/* +** - - - - - - - - - - +** i a u P o m 0 0 +** - - - - - - - - - - +** +** Form the matrix of polar motion for a given date, IAU 2000. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** xp,yp double coordinates of the pole (radians, Note 1) +** sp double the TIO locator s' (radians, Note 2) +** +** Returned: +** rpom double[3][3] polar-motion matrix (Note 3) +** +** Notes: +** +** 1) The arguments xp and yp are the coordinates (in radians) of the +** Celestial Intermediate Pole with respect to the International +** Terrestrial Reference System (see IERS Conventions 2003), +** measured along the meridians to 0 and 90 deg west respectively. +** +** 2) The argument sp is the TIO locator s', in radians, which +** positions the Terrestrial Intermediate Origin on the equator. It +** is obtained from polar motion observations by numerical +** integration, and so is in essence unpredictable. However, it is +** dominated by a secular drift of about 47 microarcseconds per +** century, and so can be taken into account by using s' = -47*t, +** where t is centuries since J2000.0. The function iauSp00 +** implements this approximation. +** +** 3) The matrix operates in the sense V(TRS) = rpom * V(CIP), meaning +** that it is the final rotation when computing the pointing +** direction to a celestial source. +** +** Called: +** iauIr initialize r-matrix to identity +** iauRz rotate around Z-axis +** iauRy rotate around Y-axis +** iauRx rotate around X-axis +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + +/* Construct the matrix. */ + iauIr(rpom); + iauRz(sp, rpom); + iauRy(-xp, rpom); + iauRx(-yp, rpom); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/ppp.c =================================================================== --- /trunk/FACT++/sofa/src/ppp.c (revision 18346) +++ /trunk/FACT++/sofa/src/ppp.c (revision 18346) @@ -0,0 +1,135 @@ +#include "sofa.h" + +void iauPpp(double a[3], double b[3], double apb[3]) +/* +** - - - - - - - +** i a u P p p +** - - - - - - - +** +** P-vector addition. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3] first p-vector +** b double[3] second p-vector +** +** Returned: +** apb double[3] a + b +** +** Note: +** It is permissible to re-use the same array for any of the +** arguments. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + apb[0] = a[0] + b[0]; + apb[1] = a[1] + b[1]; + apb[2] = a[2] + b[2]; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/ppsp.c =================================================================== --- /trunk/FACT++/sofa/src/ppsp.c (revision 18346) +++ /trunk/FACT++/sofa/src/ppsp.c (revision 18346) @@ -0,0 +1,143 @@ +#include "sofa.h" + +void iauPpsp(double a[3], double s, double b[3], double apsb[3]) +/* +** - - - - - - - - +** i a u P p s p +** - - - - - - - - +** +** P-vector plus scaled p-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3] first p-vector +** s double scalar (multiplier for b) +** b double[3] second p-vector +** +** Returned: +** apsb double[3] a + s*b +** +** Note: +** It is permissible for any of a, b and apsb to be the same array. +** +** Called: +** iauSxp multiply p-vector by scalar +** iauPpp p-vector plus p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double sb[3]; + +/* s*b. */ + iauSxp(s, b, sb); + +/* a + s*b. */ + iauPpp(a, sb, apsb); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pr00.c =================================================================== --- /trunk/FACT++/sofa/src/pr00.c (revision 18346) +++ /trunk/FACT++/sofa/src/pr00.c (revision 18346) @@ -0,0 +1,191 @@ +#include "sofa.h" + +void iauPr00(double date1, double date2, double *dpsipr, double *depspr) +/* +** - - - - - - - - +** i a u P r 0 0 +** - - - - - - - - +** +** Precession-rate part of the IAU 2000 precession-nutation models +** (part of MHB2000). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** dpsipr,depspr double precession corrections (Notes 2,3) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The precession adjustments are expressed as "nutation +** components", corrections in longitude and obliquity with respect +** to the J2000.0 equinox and ecliptic. +** +** 3) Although the precession adjustments are stated to be with respect +** to Lieske et al. (1977), the MHB2000 model does not specify which +** set of Euler angles are to be used and how the adjustments are to +** be applied. The most literal and straightforward procedure is to +** adopt the 4-rotation epsilon_0, psi_A, omega_A, xi_A option, and +** to add dpsipr to psi_A and depspr to both omega_A and eps_A. +** +** 4) This is an implementation of one aspect of the IAU 2000A nutation +** model, formally adopted by the IAU General Assembly in 2000, +** namely MHB2000 (Mathews et al. 2002). +** +** References: +** +** Lieske, J.H., Lederle, T., Fricke, W. & Morando, B., "Expressions +** for the precession quantities based upon the IAU (1976) System of +** Astronomical Constants", Astron.Astrophys., 58, 1-16 (1977) +** +** Mathews, P.M., Herring, T.A., Buffet, B.A., "Modeling of nutation +** and precession New nutation series for nonrigid Earth and +** insights into the Earth's interior", J.Geophys.Res., 107, B4, +** 2002. The MHB2000 code itself was obtained on 9th September 2002 +** from ftp://maia.usno.navy.mil/conv2000/chapter5/IAU2000A. +** +** Wallace, P.T., "Software for Implementing the IAU 2000 +** Resolutions", in IERS Workshop 5.1 (2002). +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t; + +/* Precession and obliquity corrections (radians per century) */ + static const double PRECOR = -0.29965 * DAS2R, + OBLCOR = -0.02524 * DAS2R; + +/* Interval between fundamental epoch J2000.0 and given date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* Precession rate contributions with respect to IAU 1976/80. */ + *dpsipr = PRECOR * t; + *depspr = OBLCOR * t; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/prec76.c =================================================================== --- /trunk/FACT++/sofa/src/prec76.c (revision 18346) +++ /trunk/FACT++/sofa/src/prec76.c (revision 18346) @@ -0,0 +1,197 @@ +#include "sofa.h" + +void iauPrec76(double date01, double date02, double date11, double date12, + double *zeta, double *z, double *theta) +/* +** - - - - - - - - - - +** i a u P r e c 7 6 +** - - - - - - - - - - +** +** IAU 1976 precession model. +** +** This function forms the three Euler angles which implement general +** precession between two dates, using the IAU 1976 model (as for the +** FK5 catalog). +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date01,date02 double TDB starting date (Note 1) +** date11,date12 double TDB ending date (Note 1) +** +** Returned: +** zeta double 1st rotation: radians cw around z +** z double 3rd rotation: radians cw around z +** theta double 2nd rotation: radians ccw around y +** +** Notes: +** +** 1) The dates date01+date02 and date11+date12 are Julian Dates, +** apportioned in any convenient way between the arguments daten1 +** and daten2. For example, JD(TDB)=2450123.7 could be expressed in +** any of these ways, among others: +** +** daten1 daten2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in cases +** where the loss of several decimal digits of resolution is +** acceptable. The J2000 method is best matched to the way the +** argument is handled internally and will deliver the optimum +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** The two dates may be expressed using different methods, but at +** the risk of losing some resolution. +** +** 2) The accumulated precession angles zeta, z, theta are expressed +** through canonical polynomials which are valid only for a limited +** time span. In addition, the IAU 1976 precession rate is known to +** be imperfect. The absolute accuracy of the present formulation +** is better than 0.1 arcsec from 1960AD to 2040AD, better than +** 1 arcsec from 1640AD to 2360AD, and remains below 3 arcsec for +** the whole of the period 500BC to 3000AD. The errors exceed +** 10 arcsec outside the range 1200BC to 3900AD, exceed 100 arcsec +** outside 4200BC to 5600AD and exceed 1000 arcsec outside 6800BC to +** 8200AD. +** +** 3) The three angles are returned in the conventional order, which +** is not the same as the order of the corresponding Euler +** rotations. The precession matrix is +** R_3(-z) x R_2(+theta) x R_3(-zeta). +** +** Reference: +** +** Lieske, J.H., 1979, Astron.Astrophys. 73, 282, equations +** (6) & (7), p283. +** +** This revision: 2013 November 19 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t0, t, tas2r, w; + +/* Interval between fundamental epoch J2000.0 and start date (JC). */ + t0 = ((date01 - DJ00) + date02) / DJC; + +/* Interval over which precession required (JC). */ + t = ((date11 - date01) + (date12 - date02)) / DJC; + +/* Euler angles. */ + tas2r = t * DAS2R; + w = 2306.2181 + (1.39656 - 0.000139 * t0) * t0; + + *zeta = (w + ((0.30188 - 0.000344 * t0) + 0.017998 * t) * t) * tas2r; + + *z = (w + ((1.09468 + 0.000066 * t0) + 0.018203 * t) * t) * tas2r; + + *theta = ((2004.3109 + (-0.85330 - 0.000217 * t0) * t0) + + ((-0.42665 - 0.000217 * t0) - 0.041833 * t) * t) * tas2r; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pv2p.c =================================================================== --- /trunk/FACT++/sofa/src/pv2p.c (revision 18346) +++ /trunk/FACT++/sofa/src/pv2p.c (revision 18346) @@ -0,0 +1,131 @@ +#include "sofa.h" + +void iauPv2p(double pv[2][3], double p[3]) +/* +** - - - - - - - - +** i a u P v 2 p +** - - - - - - - - +** +** Discard velocity component of a pv-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** pv double[2][3] pv-vector +** +** Returned: +** p double[3] p-vector +** +** Called: +** iauCp copy p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + iauCp(pv[0], p); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pv2s.c =================================================================== --- /trunk/FACT++/sofa/src/pv2s.c (revision 18346) +++ /trunk/FACT++/sofa/src/pv2s.c (revision 18346) @@ -0,0 +1,193 @@ +#include "sofa.h" + +void iauPv2s(double pv[2][3], + double *theta, double *phi, double *r, + double *td, double *pd, double *rd) +/* +** - - - - - - - - +** i a u P v 2 s +** - - - - - - - - +** +** Convert position/velocity from Cartesian to spherical coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** pv double[2][3] pv-vector +** +** Returned: +** theta double longitude angle (radians) +** phi double latitude angle (radians) +** r double radial distance +** td double rate of change of theta +** pd double rate of change of phi +** rd double rate of change of r +** +** Notes: +** +** 1) If the position part of pv is null, theta, phi, td and pd +** are indeterminate. This is handled by extrapolating the +** position through unit time by using the velocity part of +** pv. This moves the origin without changing the direction +** of the velocity component. If the position and velocity +** components of pv are both null, zeroes are returned for all +** six results. +** +** 2) If the position is a pole, theta, td and pd are indeterminate. +** In such cases zeroes are returned for all three. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double x, y, z, xd, yd, zd, rxy2, rxy, r2, rtrue, rw, xyp; + +/* Components of position/velocity vector. */ + x = pv[0][0]; + y = pv[0][1]; + z = pv[0][2]; + xd = pv[1][0]; + yd = pv[1][1]; + zd = pv[1][2]; + +/* Component of r in XY plane squared. */ + rxy2 = x*x + y*y; + +/* Modulus squared. */ + r2 = rxy2 + z*z; + +/* Modulus. */ + rtrue = sqrt(r2); + +/* If null vector, move the origin along the direction of movement. */ + rw = rtrue; + if (rtrue == 0.0) { + x = xd; + y = yd; + z = zd; + rxy2 = x*x + y*y; + r2 = rxy2 + z*z; + rw = sqrt(r2); + } + +/* Position and velocity in spherical coordinates. */ + rxy = sqrt(rxy2); + xyp = x*xd + y*yd; + if (rxy2 != 0.0) { + *theta = atan2(y, x); + *phi = atan2(z, rxy); + *td = (x*yd - y*xd) / rxy2; + *pd = (zd*rxy2 - z*xyp) / (r2*rxy); + } else { + *theta = 0.0; + *phi = (z != 0.0) ? atan2(z, rxy) : 0.0; + *td = 0.0; + *pd = 0.0; + } + *r = rtrue; + *rd = (rw != 0.0) ? (xyp + z*zd) / rw : 0.0; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pvdpv.c =================================================================== --- /trunk/FACT++/sofa/src/pvdpv.c (revision 18346) +++ /trunk/FACT++/sofa/src/pvdpv.c (revision 18346) @@ -0,0 +1,151 @@ +#include "sofa.h" + +void iauPvdpv(double a[2][3], double b[2][3], double adb[2]) +/* +** - - - - - - - - - +** i a u P v d p v +** - - - - - - - - - +** +** Inner (=scalar=dot) product of two pv-vectors. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[2][3] first pv-vector +** b double[2][3] second pv-vector +** +** Returned: +** adb double[2] a . b (see note) +** +** Note: +** +** If the position and velocity components of the two pv-vectors are +** ( ap, av ) and ( bp, bv ), the result, a . b, is the pair of +** numbers ( ap . bp , ap . bv + av . bp ). The two numbers are the +** dot-product of the two p-vectors and its derivative. +** +** Called: +** iauPdp scalar product of two p-vectors +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double adbd, addb; + +/* a . b = constant part of result. */ + adb[0] = iauPdp(a[0], b[0]); + +/* a . bdot */ + adbd = iauPdp(a[0], b[1]); + +/* adot . b */ + addb = iauPdp(a[1], b[0]); + +/* Velocity part of result. */ + adb[1] = adbd + addb; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pvm.c =================================================================== --- /trunk/FACT++/sofa/src/pvm.c (revision 18346) +++ /trunk/FACT++/sofa/src/pvm.c (revision 18346) @@ -0,0 +1,136 @@ +#include "sofa.h" + +void iauPvm(double pv[2][3], double *r, double *s) +/* +** - - - - - - - +** i a u P v m +** - - - - - - - +** +** Modulus of pv-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** pv double[2][3] pv-vector +** +** Returned: +** r double modulus of position component +** s double modulus of velocity component +** +** Called: +** iauPm modulus of p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Distance. */ + *r = iauPm(pv[0]); + +/* Speed. */ + *s = iauPm(pv[1]); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pvmpv.c =================================================================== --- /trunk/FACT++/sofa/src/pvmpv.c (revision 18346) +++ /trunk/FACT++/sofa/src/pvmpv.c (revision 18346) @@ -0,0 +1,137 @@ +#include "sofa.h" + +void iauPvmpv(double a[2][3], double b[2][3], double amb[2][3]) +/* +** - - - - - - - - - +** i a u P v m p v +** - - - - - - - - - +** +** Subtract one pv-vector from another. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[2][3] first pv-vector +** b double[2][3] second pv-vector +** +** Returned: +** amb double[2][3] a - b +** +** Note: +** It is permissible to re-use the same array for any of the +** arguments. +** +** Called: +** iauPmp p-vector minus p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + iauPmp(a[0], b[0], amb[0]); + iauPmp(a[1], b[1], amb[1]); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pvppv.c =================================================================== --- /trunk/FACT++/sofa/src/pvppv.c (revision 18346) +++ /trunk/FACT++/sofa/src/pvppv.c (revision 18346) @@ -0,0 +1,137 @@ +#include "sofa.h" + +void iauPvppv(double a[2][3], double b[2][3], double apb[2][3]) +/* +** - - - - - - - - - +** i a u P v p p v +** - - - - - - - - - +** +** Add one pv-vector to another. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[2][3] first pv-vector +** b double[2][3] second pv-vector +** +** Returned: +** apb double[2][3] a + b +** +** Note: +** It is permissible to re-use the same array for any of the +** arguments. +** +** Called: +** iauPpp p-vector plus p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + iauPpp(a[0], b[0], apb[0]); + iauPpp(a[1], b[1], apb[1]); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pvstar.c =================================================================== --- /trunk/FACT++/sofa/src/pvstar.c (revision 18346) +++ /trunk/FACT++/sofa/src/pvstar.c (revision 18346) @@ -0,0 +1,256 @@ +#include "sofa.h" + +int iauPvstar(double pv[2][3], double *ra, double *dec, + double *pmr, double *pmd, double *px, double *rv) +/* +** - - - - - - - - - - +** i a u P v s t a r +** - - - - - - - - - - +** +** Convert star position+velocity vector to catalog coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given (Note 1): +** pv double[2][3] pv-vector (AU, AU/day) +** +** Returned (Note 2): +** ra double right ascension (radians) +** dec double declination (radians) +** pmr double RA proper motion (radians/year) +** pmd double Dec proper motion (radians/year) +** px double parallax (arcsec) +** rv double radial velocity (km/s, positive = receding) +** +** Returned (function value): +** int status: +** 0 = OK +** -1 = superluminal speed (Note 5) +** -2 = null position vector +** +** Notes: +** +** 1) The specified pv-vector is the coordinate direction (and its rate +** of change) for the date at which the light leaving the star +** reached the solar-system barycenter. +** +** 2) The star data returned by this function are "observables" for an +** imaginary observer at the solar-system barycenter. Proper motion +** and radial velocity are, strictly, in terms of barycentric +** coordinate time, TCB. For most practical applications, it is +** permissible to neglect the distinction between TCB and ordinary +** "proper" time on Earth (TT/TAI). The result will, as a rule, be +** limited by the intrinsic accuracy of the proper-motion and +** radial-velocity data; moreover, the supplied pv-vector is likely +** to be merely an intermediate result (for example generated by the +** function iauStarpv), so that a change of time unit will cancel +** out overall. +** +** In accordance with normal star-catalog conventions, the object's +** right ascension and declination are freed from the effects of +** secular aberration. The frame, which is aligned to the catalog +** equator and equinox, is Lorentzian and centered on the SSB. +** +** Summarizing, the specified pv-vector is for most stars almost +** identical to the result of applying the standard geometrical +** "space motion" transformation to the catalog data. The +** differences, which are the subject of the Stumpff paper cited +** below, are: +** +** (i) In stars with significant radial velocity and proper motion, +** the constantly changing light-time distorts the apparent proper +** motion. Note that this is a classical, not a relativistic, +** effect. +** +** (ii) The transformation complies with special relativity. +** +** 3) Care is needed with units. The star coordinates are in radians +** and the proper motions in radians per Julian year, but the +** parallax is in arcseconds; the radial velocity is in km/s, but +** the pv-vector result is in AU and AU/day. +** +** 4) The proper motions are the rate of change of the right ascension +** and declination at the catalog epoch and are in radians per Julian +** year. The RA proper motion is in terms of coordinate angle, not +** true angle, and will thus be numerically larger at high +** declinations. +** +** 5) Straight-line motion at constant speed in the inertial frame is +** assumed. If the speed is greater than or equal to the speed of +** light, the function aborts with an error status. +** +** 6) The inverse transformation is performed by the function iauStarpv. +** +** Called: +** iauPn decompose p-vector into modulus and direction +** iauPdp scalar product of two p-vectors +** iauSxp multiply p-vector by scalar +** iauPmp p-vector minus p-vector +** iauPm modulus of p-vector +** iauPpp p-vector plus p-vector +** iauPv2s pv-vector to spherical +** iauAnp normalize angle into range 0 to 2pi +** +** Reference: +** +** Stumpff, P., 1985, Astron.Astrophys. 144, 232-240. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double r, x[3], vr, ur[3], vt, ut[3], bett, betr, d, w, del, + usr[3], ust[3], a, rad, decd, rd; + +/* Isolate the radial component of the velocity (AU/day, inertial). */ + iauPn(pv[0], &r, x); + vr = iauPdp(x, pv[1]); + iauSxp(vr, x, ur); + +/* Isolate the transverse component of the velocity (AU/day, inertial). */ + iauPmp(pv[1], ur, ut); + vt = iauPm(ut); + +/* Special-relativity dimensionless parameters. */ + bett = vt / DC; + betr = vr / DC; + +/* The inertial-to-observed correction terms. */ + d = 1.0 + betr; + w = 1.0 - betr*betr - bett*bett; + if (d == 0.0 || w < 0) return -1; + del = sqrt(w) - 1.0; + +/* Apply relativistic correction factor to radial velocity component. */ + w = (betr != 0) ? (betr - del) / (betr * d) : 1.0; + iauSxp(w, ur, usr); + +/* Apply relativistic correction factor to tangential velocity */ +/* component. */ + iauSxp(1.0/d, ut, ust); + +/* Combine the two to obtain the observed velocity vector (AU/day). */ + iauPpp(usr, ust, pv[1]); + +/* Cartesian to spherical. */ + iauPv2s(pv, &a, dec, &r, &rad, &decd, &rd); + if (r == 0.0) return -2; + +/* Return RA in range 0 to 2pi. */ + *ra = iauAnp(a); + +/* Return proper motions in radians per year. */ + *pmr = rad * DJY; + *pmd = decd * DJY; + +/* Return parallax in arcsec. */ + *px = DR2AS / r; + +/* Return radial velocity in km/s. */ + *rv = 1e-3 * rd * DAU / DAYSEC; + +/* OK status. */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pvtob.c =================================================================== --- /trunk/FACT++/sofa/src/pvtob.c (revision 18346) +++ /trunk/FACT++/sofa/src/pvtob.c (revision 18346) @@ -0,0 +1,203 @@ +#include "sofa.h" + +void iauPvtob(double elong, double phi, double hm, + double xp, double yp, double sp, double theta, + double pv[2][3]) +/* +** - - - - - - - - - +** i a u P v t o b +** - - - - - - - - - +** +** Position and velocity of a terrestrial observing station. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** elong double longitude (radians, east +ve, Note 1) +** phi double latitude (geodetic, radians, Note 1) +** hm double height above ref. ellipsoid (geodetic, m) +** xp,yp double coordinates of the pole (radians, Note 2) +** sp double the TIO locator s' (radians, Note 2) +** theta double Earth rotation angle (radians, Note 3) +** +** Returned: +** pv double[2][3] position/velocity vector (m, m/s, CIRS) +** +** Notes: +** +** 1) The terrestrial coordinates are with respect to the WGS84 +** reference ellipsoid. +** +** 2) xp and yp are the coordinates (in radians) of the Celestial +** Intermediate Pole with respect to the International Terrestrial +** Reference System (see IERS Conventions), measured along the +** meridians 0 and 90 deg west respectively. sp is the TIO locator +** s', in radians, which positions the Terrestrial Intermediate +** Origin on the equator. For many applications, xp, yp and +** (especially) sp can be set to zero. +** +** 3) If theta is Greenwich apparent sidereal time instead of Earth +** rotation angle, the result is with respect to the true equator +** and equinox of date, i.e. with the x-axis at the equinox rather +** than the celestial intermediate origin. +** +** 4) The velocity units are meters per UT1 second, not per SI second. +** This is unlikely to have any practical consequences in the modern +** era. +** +** 5) No validation is performed on the arguments. Error cases that +** could lead to arithmetic exceptions are trapped by the iauGd2gc +** function, and the result set to zeros. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Urban, S. & Seidelmann, P. K. (eds), Explanatory Supplement to +** the Astronomical Almanac, 3rd ed., University Science Books +** (2013), Section 7.4.3.3. +** +** Called: +** iauGd2gc geodetic to geocentric transformation +** iauPom00 polar motion matrix +** iauTrxp product of transpose of r-matrix and p-vector +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Earth rotation rate in radians per UT1 second */ + const double OM = 1.00273781191135448 * D2PI / DAYSEC; + + double xyzm[3], rpm[3][3], xyz[3], x, y, z, s, c; + +/* Geodetic to geocentric transformation (WGS84). */ + (void) iauGd2gc(1, elong, phi, hm, xyzm); + +/* Polar motion and TIO position. */ + iauPom00(xp, yp, sp, rpm); + iauTrxp(rpm, xyzm, xyz); + x = xyz[0]; + y = xyz[1]; + z = xyz[2]; + +/* Functions of ERA. */ + s = sin(theta); + c = cos(theta); + +/* Position. */ + pv[0][0] = c*x - s*y; + pv[0][1] = s*x + c*y; + pv[0][2] = z; + +/* Velocity. */ + pv[1][0] = OM * ( -s*x - c*y ); + pv[1][1] = OM * ( c*x - s*y ); + pv[1][2] = 0.0; + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/pvu.c =================================================================== --- /trunk/FACT++/sofa/src/pvu.c (revision 18346) +++ /trunk/FACT++/sofa/src/pvu.c (revision 18346) @@ -0,0 +1,143 @@ +#include "sofa.h" + +void iauPvu(double dt, double pv[2][3], double upv[2][3]) +/* +** - - - - - - - +** i a u P v u +** - - - - - - - +** +** Update a pv-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** dt double time interval +** pv double[2][3] pv-vector +** +** Returned: +** upv double[2][3] p updated, v unchanged +** +** Notes: +** +** 1) "Update" means "refer the position component of the vector +** to a new date dt time units from the existing date". +** +** 2) The time units of dt must match those of the velocity. +** +** 3) It is permissible for pv and upv to be the same array. +** +** Called: +** iauPpsp p-vector plus scaled p-vector +** iauCp copy p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + iauPpsp(pv[0], dt, pv[1], upv[0]); + iauCp(pv[1], upv[1]); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pvup.c =================================================================== --- /trunk/FACT++/sofa/src/pvup.c (revision 18346) +++ /trunk/FACT++/sofa/src/pvup.c (revision 18346) @@ -0,0 +1,138 @@ +#include "sofa.h" + +void iauPvup(double dt, double pv[2][3], double p[3]) +/* +** - - - - - - - - +** i a u P v u p +** - - - - - - - - +** +** Update a pv-vector, discarding the velocity component. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** dt double time interval +** pv double[2][3] pv-vector +** +** Returned: +** p double[3] p-vector +** +** Notes: +** +** 1) "Update" means "refer the position component of the vector to a +** new date dt time units from the existing date". +** +** 2) The time units of dt must match those of the velocity. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + p[0] = pv[0][0] + dt * pv[1][0]; + p[1] = pv[0][1] + dt * pv[1][1]; + p[2] = pv[0][2] + dt * pv[1][2]; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pvxpv.c =================================================================== --- /trunk/FACT++/sofa/src/pvxpv.c (revision 18346) +++ /trunk/FACT++/sofa/src/pvxpv.c (revision 18346) @@ -0,0 +1,156 @@ +#include "sofa.h" + +void iauPvxpv(double a[2][3], double b[2][3], double axb[2][3]) +/* +** - - - - - - - - - +** i a u P v x p v +** - - - - - - - - - +** +** Outer (=vector=cross) product of two pv-vectors. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[2][3] first pv-vector +** b double[2][3] second pv-vector +** +** Returned: +** axb double[2][3] a x b +** +** Notes: +** +** 1) If the position and velocity components of the two pv-vectors are +** ( ap, av ) and ( bp, bv ), the result, a x b, is the pair of +** vectors ( ap x bp, ap x bv + av x bp ). The two vectors are the +** cross-product of the two p-vectors and its derivative. +** +** 2) It is permissible to re-use the same array for any of the +** arguments. +** +** Called: +** iauCpv copy pv-vector +** iauPxp vector product of two p-vectors +** iauPpp p-vector plus p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double wa[2][3], wb[2][3], axbd[3], adxb[3]; + +/* Make copies of the inputs. */ + iauCpv(a, wa); + iauCpv(b, wb); + +/* a x b = position part of result. */ + iauPxp(wa[0], wb[0], axb[0]); + +/* a x bdot + adot x b = velocity part of result. */ + iauPxp(wa[0], wb[1], axbd); + iauPxp(wa[1], wb[0], adxb); + iauPpp(axbd, adxb, axb[1]); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/pxp.c =================================================================== --- /trunk/FACT++/sofa/src/pxp.c (revision 18346) +++ /trunk/FACT++/sofa/src/pxp.c (revision 18346) @@ -0,0 +1,143 @@ +#include "sofa.h" + +void iauPxp(double a[3], double b[3], double axb[3]) +/* +** - - - - - - - +** i a u P x p +** - - - - - - - +** +** p-vector outer (=vector=cross) product. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3] first p-vector +** b double[3] second p-vector +** +** Returned: +** axb double[3] a x b +** +** Note: +** It is permissible to re-use the same array for any of the +** arguments. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double xa, ya, za, xb, yb, zb; + + xa = a[0]; + ya = a[1]; + za = a[2]; + xb = b[0]; + yb = b[1]; + zb = b[2]; + axb[0] = ya*zb - za*yb; + axb[1] = za*xb - xa*zb; + axb[2] = xa*yb - ya*xb; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/refco.c =================================================================== --- /trunk/FACT++/sofa/src/refco.c (revision 18346) +++ /trunk/FACT++/sofa/src/refco.c (revision 18346) @@ -0,0 +1,303 @@ +#include "sofa.h" + +void iauRefco(double phpa, double tc, double rh, double wl, + double *refa, double *refb) +/* +** - - - - - - - - - +** i a u R e f c o +** - - - - - - - - - +** +** Determine the constants A and B in the atmospheric refraction model +** dZ = A tan Z + B tan^3 Z. +** +** Z is the "observed" zenith distance (i.e. affected by refraction) +** and dZ is what to add to Z to give the "topocentric" (i.e. in vacuo) +** zenith distance. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** phpa double pressure at the observer (hPa = millibar) +** tc double ambient temperature at the observer (deg C) +** rh double relative humidity at the observer (range 0-1) +** wl double wavelength (micrometers) +** +** Returned: +** refa double* tan Z coefficient (radians) +** refb double* tan^3 Z coefficient (radians) +** +** Notes: +** +** 1) The model balances speed and accuracy to give good results in +** applications where performance at low altitudes is not paramount. +** Performance is maintained across a range of conditions, and +** applies to both optical/IR and radio. +** +** 2) The model omits the effects of (i) height above sea level (apart +** from the reduced pressure itself), (ii) latitude (i.e. the +** flattening of the Earth), (iii) variations in tropospheric lapse +** rate and (iv) dispersive effects in the radio. +** +** The model was tested using the following range of conditions: +** +** lapse rates 0.0055, 0.0065, 0.0075 deg/meter +** latitudes 0, 25, 50, 75 degrees +** heights 0, 2500, 5000 meters ASL +** pressures mean for height -10% to +5% in steps of 5% +** temperatures -10 deg to +20 deg with respect to 280 deg at SL +** relative humidity 0, 0.5, 1 +** wavelengths 0.4, 0.6, ... 2 micron, + radio +** zenith distances 15, 45, 75 degrees +** +** The accuracy with respect to raytracing through a model +** atmosphere was as follows: +** +** worst RMS +** +** optical/IR 62 mas 8 mas +** radio 319 mas 49 mas +** +** For this particular set of conditions: +** +** lapse rate 0.0065 K/meter +** latitude 50 degrees +** sea level +** pressure 1005 mb +** temperature 280.15 K +** humidity 80% +** wavelength 5740 Angstroms +** +** the results were as follows: +** +** ZD raytrace iauRefco Saastamoinen +** +** 10 10.27 10.27 10.27 +** 20 21.19 21.20 21.19 +** 30 33.61 33.61 33.60 +** 40 48.82 48.83 48.81 +** 45 58.16 58.18 58.16 +** 50 69.28 69.30 69.27 +** 55 82.97 82.99 82.95 +** 60 100.51 100.54 100.50 +** 65 124.23 124.26 124.20 +** 70 158.63 158.68 158.61 +** 72 177.32 177.37 177.31 +** 74 200.35 200.38 200.32 +** 76 229.45 229.43 229.42 +** 78 267.44 267.29 267.41 +** 80 319.13 318.55 319.10 +** +** deg arcsec arcsec arcsec +** +** The values for Saastamoinen's formula (which includes terms +** up to tan^5) are taken from Hohenkerk and Sinclair (1985). +** +** 3) A wl value in the range 0-100 selects the optical/IR case and is +** wavelength in micrometers. Any value outside this range selects +** the radio case. +** +** 4) Outlandish input parameters are silently limited to +** mathematically safe values. Zero pressure is permissible, and +** causes zeroes to be returned. +** +** 5) The algorithm draws on several sources, as follows: +** +** a) The formula for the saturation vapour pressure of water as +** a function of temperature and temperature is taken from +** Equations (A4.5-A4.7) of Gill (1982). +** +** b) The formula for the water vapour pressure, given the +** saturation pressure and the relative humidity, is from +** Crane (1976), Equation (2.5.5). +** +** c) The refractivity of air is a function of temperature, +** total pressure, water-vapour pressure and, in the case +** of optical/IR, wavelength. The formulae for the two cases are +** developed from Hohenkerk & Sinclair (1985) and Rueger (2002). +** +** d) The formula for beta, the ratio of the scale height of the +** atmosphere to the geocentric distance of the observer, is +** an adaption of Equation (9) from Stone (1996). The +** adaptations, arrived at empirically, consist of (i) a small +** adjustment to the coefficient and (ii) a humidity term for the +** radio case only. +** +** e) The formulae for the refraction constants as a function of +** n-1 and beta are from Green (1987), Equation (4.31). +** +** References: +** +** Crane, R.K., Meeks, M.L. (ed), "Refraction Effects in the Neutral +** Atmosphere", Methods of Experimental Physics: Astrophysics 12B, +** Academic Press, 1976. +** +** Gill, Adrian E., "Atmosphere-Ocean Dynamics", Academic Press, +** 1982. +** +** Green, R.M., "Spherical Astronomy", Cambridge University Press, +** 1987. +** +** Hohenkerk, C.Y., & Sinclair, A.T., NAO Technical Note No. 63, +** 1985. +** +** Rueger, J.M., "Refractive Index Formulae for Electronic Distance +** Measurement with Radio and Millimetre Waves", in Unisurv Report +** S-68, School of Surveying and Spatial Information Systems, +** University of New South Wales, Sydney, Australia, 2002. +** +** Stone, Ronald C., P.A.S.P. 108, 1051-1058, 1996. +** +** This revision: 2013 October 9 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int optic; + double p, t, r, w, ps, pw, tk, wlsq, gamma, beta; + +/* Decide whether optical/IR or radio case: switch at 100 microns. */ + optic = ( wl <= 100.0 ); + +/* Restrict parameters to safe values. */ + t = gmax ( tc, -150.0 ); + t = gmin ( t, 200.0 ); + p = gmax ( phpa, 0.0 ); + p = gmin ( p, 10000.0 ); + r = gmax ( rh, 0.0 ); + r = gmin ( r, 1.0 ); + w = gmax ( wl, 0.1 ); + w = gmin ( w, 1e6 ); + +/* Water vapour pressure at the observer. */ + if ( p > 0.0 ) { + ps = pow ( 10.0, ( 0.7859 + 0.03477*t ) / + ( 1.0 + 0.00412*t ) ) * + ( 1.0 + p * ( 4.5e-6 + 6e-10*t*t ) ); + pw = r * ps / ( 1.0 - (1.0-r)*ps/p ); + } else { + pw = 0.0; + } + +/* Refractive index minus 1 at the observer. */ + tk = t + 273.15; + if ( optic ) { + wlsq = w * w; + gamma = ( ( 77.53484e-6 + + ( 4.39108e-7 + 3.666e-9/wlsq ) / wlsq ) * p + - 11.2684e-6*pw ) / tk; + } else { + gamma = ( 77.6890e-6*p - ( 6.3938e-6 - 0.375463/tk ) * pw ) / tk; + } + +/* Formula for beta from Stone, with empirical adjustments. */ + beta = 4.4474e-6 * tk; + if ( ! optic ) beta -= 0.0074 * pw * beta; + +/* Refraction constants from Green. */ + *refa = gamma * ( 1.0 - beta ); + *refb = - gamma * ( beta - gamma / 2.0 ); + +/* Finished. */ + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ + +} Index: /trunk/FACT++/sofa/src/rm2v.c =================================================================== --- /trunk/FACT++/sofa/src/rm2v.c (revision 18346) +++ /trunk/FACT++/sofa/src/rm2v.c (revision 18346) @@ -0,0 +1,161 @@ +#include "sofa.h" + +void iauRm2v(double r[3][3], double w[3]) +/* +** - - - - - - - - +** i a u R m 2 v +** - - - - - - - - +** +** Express an r-matrix as an r-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** r double[3][3] rotation matrix +** +** Returned: +** w double[3] rotation vector (Note 1) +** +** Notes: +** +** 1) A rotation matrix describes a rotation through some angle about +** some arbitrary axis called the Euler axis. The "rotation vector" +** returned by this function has the same direction as the Euler axis, +** and its magnitude is the angle in radians. (The magnitude and +** direction can be separated by means of the function iauPn.) +** +** 2) If r is null, so is the result. If r is not a rotation matrix +** the result is undefined; r must be proper (i.e. have a positive +** determinant) and real orthogonal (inverse = transpose). +** +** 3) The reference frame rotates clockwise as seen looking along +** the rotation vector from the origin. +** +** This revision: 2015 January 30 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double x, y, z, s2, c2, phi, f; + + + x = r[1][2] - r[2][1]; + y = r[2][0] - r[0][2]; + z = r[0][1] - r[1][0]; + s2 = sqrt(x*x + y*y + z*z); + if (s2 > 0) { + c2 = r[0][0] + r[1][1] + r[2][2] - 1.0; + phi = atan2(s2, c2); + f = phi / s2; + w[0] = x * f; + w[1] = y * f; + w[2] = z * f; + } else { + w[0] = 0.0; + w[1] = 0.0; + w[2] = 0.0; + } + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/rv2m.c =================================================================== --- /trunk/FACT++/sofa/src/rv2m.c (revision 18346) +++ /trunk/FACT++/sofa/src/rv2m.c (revision 18346) @@ -0,0 +1,168 @@ +#include "sofa.h" + +void iauRv2m(double w[3], double r[3][3]) +/* +** - - - - - - - - +** i a u R v 2 m +** - - - - - - - - +** +** Form the r-matrix corresponding to a given r-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** w double[3] rotation vector (Note 1) +** +** Returned: +** r double[3][3] rotation matrix +** +** Notes: +** +** 1) A rotation matrix describes a rotation through some angle about +** some arbitrary axis called the Euler axis. The "rotation vector" +** supplied to This function has the same direction as the Euler +** axis, and its magnitude is the angle in radians. +** +** 2) If w is null, the unit matrix is returned. +** +** 3) The reference frame rotates clockwise as seen looking along the +** rotation vector from the origin. +** +** This revision: 2015 January 30 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double x, y, z, phi, s, c, f; + + +/* Euler angle (magnitude of rotation vector) and functions. */ + x = w[0]; + y = w[1]; + z = w[2]; + phi = sqrt(x*x + y*y + z*z); + s = sin(phi); + c = cos(phi); + f = 1.0 - c; + +/* Euler axis (direction of rotation vector), perhaps null. */ + if (phi > 0.0) { + x /= phi; + y /= phi; + z /= phi; + } + +/* Form the rotation matrix. */ + r[0][0] = x*x*f + c; + r[0][1] = x*y*f + z*s; + r[0][2] = x*z*f - y*s; + r[1][0] = y*x*f - z*s; + r[1][1] = y*y*f + c; + r[1][2] = y*z*f + x*s; + r[2][0] = z*x*f + y*s; + r[2][1] = z*y*f - x*s; + r[2][2] = z*z*f + c; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/rx.c =================================================================== --- /trunk/FACT++/sofa/src/rx.c (revision 18346) +++ /trunk/FACT++/sofa/src/rx.c (revision 18346) @@ -0,0 +1,159 @@ +#include "sofa.h" + +void iauRx(double phi, double r[3][3]) +/* +** - - - - - - +** i a u R x +** - - - - - - +** +** Rotate an r-matrix about the x-axis. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** phi double angle (radians) +** +** Given and returned: +** r double[3][3] r-matrix, rotated +** +** Notes: +** +** 1) Calling this function with positive phi incorporates in the +** supplied r-matrix r an additional rotation, about the x-axis, +** anticlockwise as seen looking towards the origin from positive x. +** +** 2) The additional rotation can be represented by this matrix: +** +** ( 1 0 0 ) +** ( ) +** ( 0 + cos(phi) + sin(phi) ) +** ( ) +** ( 0 - sin(phi) + cos(phi) ) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double s, c, a10, a11, a12, a20, a21, a22; + + s = sin(phi); + c = cos(phi); + + a10 = c*r[1][0] + s*r[2][0]; + a11 = c*r[1][1] + s*r[2][1]; + a12 = c*r[1][2] + s*r[2][2]; + a20 = - s*r[1][0] + c*r[2][0]; + a21 = - s*r[1][1] + c*r[2][1]; + a22 = - s*r[1][2] + c*r[2][2]; + + r[1][0] = a10; + r[1][1] = a11; + r[1][2] = a12; + r[2][0] = a20; + r[2][1] = a21; + r[2][2] = a22; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/rxp.c =================================================================== --- /trunk/FACT++/sofa/src/rxp.c (revision 18346) +++ /trunk/FACT++/sofa/src/rxp.c (revision 18346) @@ -0,0 +1,148 @@ +#include "sofa.h" + +void iauRxp(double r[3][3], double p[3], double rp[3]) +/* +** - - - - - - - +** i a u R x p +** - - - - - - - +** +** Multiply a p-vector by an r-matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** r double[3][3] r-matrix +** p double[3] p-vector +** +** Returned: +** rp double[3] r * p +** +** Note: +** It is permissible for p and rp to be the same array. +** +** Called: +** iauCp copy p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double w, wrp[3]; + int i, j; + +/* Matrix r * vector p. */ + for (j = 0; j < 3; j++) { + w = 0.0; + for (i = 0; i < 3; i++) { + w += r[j][i] * p[i]; + } + wrp[j] = w; + } + +/* Return the result. */ + iauCp(wrp, rp); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/rxpv.c =================================================================== --- /trunk/FACT++/sofa/src/rxpv.c (revision 18346) +++ /trunk/FACT++/sofa/src/rxpv.c (revision 18346) @@ -0,0 +1,136 @@ +#include "sofa.h" + +void iauRxpv(double r[3][3], double pv[2][3], double rpv[2][3]) +/* +** - - - - - - - - +** i a u R x p v +** - - - - - - - - +** +** Multiply a pv-vector by an r-matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** r double[3][3] r-matrix +** pv double[2][3] pv-vector +** +** Returned: +** rpv double[2][3] r * pv +** +** Note: +** It is permissible for pv and rpv to be the same array. +** +** Called: +** iauRxp product of r-matrix and p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + iauRxp(r, pv[0], rpv[0]); + iauRxp(r, pv[1], rpv[1]); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/rxr.c =================================================================== --- /trunk/FACT++/sofa/src/rxr.c (revision 18346) +++ /trunk/FACT++/sofa/src/rxr.c (revision 18346) @@ -0,0 +1,148 @@ +#include "sofa.h" + +void iauRxr(double a[3][3], double b[3][3], double atb[3][3]) +/* +** - - - - - - - +** i a u R x r +** - - - - - - - +** +** Multiply two r-matrices. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3][3] first r-matrix +** b double[3][3] second r-matrix +** +** Returned: +** atb double[3][3] a * b +** +** Note: +** It is permissible to re-use the same array for any of the +** arguments. +** +** Called: +** iauCr copy r-matrix +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int i, j, k; + double w, wm[3][3]; + + for (i = 0; i < 3; i++) { + for (j = 0; j < 3; j++) { + w = 0.0; + for (k = 0; k < 3; k++) { + w += a[i][k] * b[k][j]; + } + wm[i][j] = w; + } + } + iauCr(wm, atb); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/ry.c =================================================================== --- /trunk/FACT++/sofa/src/ry.c (revision 18346) +++ /trunk/FACT++/sofa/src/ry.c (revision 18346) @@ -0,0 +1,159 @@ +#include "sofa.h" + +void iauRy(double theta, double r[3][3]) +/* +** - - - - - - +** i a u R y +** - - - - - - +** +** Rotate an r-matrix about the y-axis. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** theta double angle (radians) +** +** Given and returned: +** r double[3][3] r-matrix, rotated +** +** Notes: +** +** 1) Calling this function with positive theta incorporates in the +** supplied r-matrix r an additional rotation, about the y-axis, +** anticlockwise as seen looking towards the origin from positive y. +** +** 2) The additional rotation can be represented by this matrix: +** +** ( + cos(theta) 0 - sin(theta) ) +** ( ) +** ( 0 1 0 ) +** ( ) +** ( + sin(theta) 0 + cos(theta) ) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double s, c, a00, a01, a02, a20, a21, a22; + + s = sin(theta); + c = cos(theta); + + a00 = c*r[0][0] - s*r[2][0]; + a01 = c*r[0][1] - s*r[2][1]; + a02 = c*r[0][2] - s*r[2][2]; + a20 = s*r[0][0] + c*r[2][0]; + a21 = s*r[0][1] + c*r[2][1]; + a22 = s*r[0][2] + c*r[2][2]; + + r[0][0] = a00; + r[0][1] = a01; + r[0][2] = a02; + r[2][0] = a20; + r[2][1] = a21; + r[2][2] = a22; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/rz.c =================================================================== --- /trunk/FACT++/sofa/src/rz.c (revision 18346) +++ /trunk/FACT++/sofa/src/rz.c (revision 18346) @@ -0,0 +1,159 @@ +#include "sofa.h" + +void iauRz(double psi, double r[3][3]) +/* +** - - - - - - +** i a u R z +** - - - - - - +** +** Rotate an r-matrix about the z-axis. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** psi double angle (radians) +** +** Given and returned: +** r double[3][3] r-matrix, rotated +** +** Notes: +** +** 1) Calling this function with positive psi incorporates in the +** supplied r-matrix r an additional rotation, about the z-axis, +** anticlockwise as seen looking towards the origin from positive z. +** +** 2) The additional rotation can be represented by this matrix: +** +** ( + cos(psi) + sin(psi) 0 ) +** ( ) +** ( - sin(psi) + cos(psi) 0 ) +** ( ) +** ( 0 0 1 ) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double s, c, a00, a01, a02, a10, a11, a12; + + s = sin(psi); + c = cos(psi); + + a00 = c*r[0][0] + s*r[1][0]; + a01 = c*r[0][1] + s*r[1][1]; + a02 = c*r[0][2] + s*r[1][2]; + a10 = - s*r[0][0] + c*r[1][0]; + a11 = - s*r[0][1] + c*r[1][1]; + a12 = - s*r[0][2] + c*r[1][2]; + + r[0][0] = a00; + r[0][1] = a01; + r[0][2] = a02; + r[1][0] = a10; + r[1][1] = a11; + r[1][2] = a12; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/s00.c =================================================================== --- /trunk/FACT++/sofa/src/s00.c (revision 18346) +++ /trunk/FACT++/sofa/src/s00.c (revision 18346) @@ -0,0 +1,421 @@ +#include "sofa.h" + +double iauS00(double date1, double date2, double x, double y) +/* +** - - - - - - - +** i a u S 0 0 +** - - - - - - - +** +** The CIO locator s, positioning the Celestial Intermediate Origin on +** the equator of the Celestial Intermediate Pole, given the CIP's X,Y +** coordinates. Compatible with IAU 2000A precession-nutation. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** x,y double CIP coordinates (Note 3) +** +** Returned (function value): +** double the CIO locator s in radians (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The CIO locator s is the difference between the right ascensions +** of the same point in two systems: the two systems are the GCRS +** and the CIP,CIO, and the point is the ascending node of the +** CIP equator. The quantity s remains below 0.1 arcsecond +** throughout 1900-2100. +** +** 3) The series used to compute s is in fact for s+XY/2, where X and Y +** are the x and y components of the CIP unit vector; this series +** is more compact than a direct series for s would be. This +** function requires X,Y to be supplied by the caller, who is +** responsible for providing values that are consistent with the +** supplied date. +** +** 4) The model is consistent with the IAU 2000A precession-nutation. +** +** Called: +** iauFal03 mean anomaly of the Moon +** iauFalp03 mean anomaly of the Sun +** iauFaf03 mean argument of the latitude of the Moon +** iauFad03 mean elongation of the Moon from the Sun +** iauFaom03 mean longitude of the Moon's ascending node +** iauFave03 mean longitude of Venus +** iauFae03 mean longitude of Earth +** iauFapa03 general accumulated precession in longitude +** +** References: +** +** Capitaine, N., Chapront, J., Lambert, S. and Wallace, P., +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Time since J2000.0, in Julian centuries */ + double t; + +/* Miscellaneous */ + int i, j; + double a, w0, w1, w2, w3, w4, w5; + +/* Fundamental arguments */ + double fa[8]; + +/* Returned value */ + double s; + +/* --------------------- */ +/* The series for s+XY/2 */ +/* --------------------- */ + + typedef struct { + int nfa[8]; /* coefficients of l,l',F,D,Om,LVe,LE,pA */ + double s, c; /* sine and cosine coefficients */ + } TERM; + +/* Polynomial coefficients */ + static const double sp[] = { + + /* 1-6 */ + 94.00e-6, + 3808.35e-6, + -119.94e-6, + -72574.09e-6, + 27.70e-6, + 15.61e-6 + }; + +/* Terms of order t^0 */ + static const TERM s0[] = { + + /* 1-10 */ + {{ 0, 0, 0, 0, 1, 0, 0, 0}, -2640.73e-6, 0.39e-6 }, + {{ 0, 0, 0, 0, 2, 0, 0, 0}, -63.53e-6, 0.02e-6 }, + {{ 0, 0, 2, -2, 3, 0, 0, 0}, -11.75e-6, -0.01e-6 }, + {{ 0, 0, 2, -2, 1, 0, 0, 0}, -11.21e-6, -0.01e-6 }, + {{ 0, 0, 2, -2, 2, 0, 0, 0}, 4.57e-6, 0.00e-6 }, + {{ 0, 0, 2, 0, 3, 0, 0, 0}, -2.02e-6, 0.00e-6 }, + {{ 0, 0, 2, 0, 1, 0, 0, 0}, -1.98e-6, 0.00e-6 }, + {{ 0, 0, 0, 0, 3, 0, 0, 0}, 1.72e-6, 0.00e-6 }, + {{ 0, 1, 0, 0, 1, 0, 0, 0}, 1.41e-6, 0.01e-6 }, + {{ 0, 1, 0, 0, -1, 0, 0, 0}, 1.26e-6, 0.01e-6 }, + + /* 11-20 */ + {{ 1, 0, 0, 0, -1, 0, 0, 0}, 0.63e-6, 0.00e-6 }, + {{ 1, 0, 0, 0, 1, 0, 0, 0}, 0.63e-6, 0.00e-6 }, + {{ 0, 1, 2, -2, 3, 0, 0, 0}, -0.46e-6, 0.00e-6 }, + {{ 0, 1, 2, -2, 1, 0, 0, 0}, -0.45e-6, 0.00e-6 }, + {{ 0, 0, 4, -4, 4, 0, 0, 0}, -0.36e-6, 0.00e-6 }, + {{ 0, 0, 1, -1, 1, -8, 12, 0}, 0.24e-6, 0.12e-6 }, + {{ 0, 0, 2, 0, 0, 0, 0, 0}, -0.32e-6, 0.00e-6 }, + {{ 0, 0, 2, 0, 2, 0, 0, 0}, -0.28e-6, 0.00e-6 }, + {{ 1, 0, 2, 0, 3, 0, 0, 0}, -0.27e-6, 0.00e-6 }, + {{ 1, 0, 2, 0, 1, 0, 0, 0}, -0.26e-6, 0.00e-6 }, + + /* 21-30 */ + {{ 0, 0, 2, -2, 0, 0, 0, 0}, 0.21e-6, 0.00e-6 }, + {{ 0, 1, -2, 2, -3, 0, 0, 0}, -0.19e-6, 0.00e-6 }, + {{ 0, 1, -2, 2, -1, 0, 0, 0}, -0.18e-6, 0.00e-6 }, + {{ 0, 0, 0, 0, 0, 8,-13, -1}, 0.10e-6, -0.05e-6 }, + {{ 0, 0, 0, 2, 0, 0, 0, 0}, -0.15e-6, 0.00e-6 }, + {{ 2, 0, -2, 0, -1, 0, 0, 0}, 0.14e-6, 0.00e-6 }, + {{ 0, 1, 2, -2, 2, 0, 0, 0}, 0.14e-6, 0.00e-6 }, + {{ 1, 0, 0, -2, 1, 0, 0, 0}, -0.14e-6, 0.00e-6 }, + {{ 1, 0, 0, -2, -1, 0, 0, 0}, -0.14e-6, 0.00e-6 }, + {{ 0, 0, 4, -2, 4, 0, 0, 0}, -0.13e-6, 0.00e-6 }, + + /* 31-33 */ + {{ 0, 0, 2, -2, 4, 0, 0, 0}, 0.11e-6, 0.00e-6 }, + {{ 1, 0, -2, 0, -3, 0, 0, 0}, -0.11e-6, 0.00e-6 }, + {{ 1, 0, -2, 0, -1, 0, 0, 0}, -0.11e-6, 0.00e-6 } + }; + +/* Terms of order t^1 */ + static const TERM s1[] ={ + + /* 1-3 */ + {{ 0, 0, 0, 0, 2, 0, 0, 0}, -0.07e-6, 3.57e-6 }, + {{ 0, 0, 0, 0, 1, 0, 0, 0}, 1.71e-6, -0.03e-6 }, + {{ 0, 0, 2, -2, 3, 0, 0, 0}, 0.00e-6, 0.48e-6 } + }; + +/* Terms of order t^2 */ + static const TERM s2[] ={ + + /* 1-10 */ + {{ 0, 0, 0, 0, 1, 0, 0, 0}, 743.53e-6, -0.17e-6 }, + {{ 0, 0, 2, -2, 2, 0, 0, 0}, 56.91e-6, 0.06e-6 }, + {{ 0, 0, 2, 0, 2, 0, 0, 0}, 9.84e-6, -0.01e-6 }, + {{ 0, 0, 0, 0, 2, 0, 0, 0}, -8.85e-6, 0.01e-6 }, + {{ 0, 1, 0, 0, 0, 0, 0, 0}, -6.38e-6, -0.05e-6 }, + {{ 1, 0, 0, 0, 0, 0, 0, 0}, -3.07e-6, 0.00e-6 }, + {{ 0, 1, 2, -2, 2, 0, 0, 0}, 2.23e-6, 0.00e-6 }, + {{ 0, 0, 2, 0, 1, 0, 0, 0}, 1.67e-6, 0.00e-6 }, + {{ 1, 0, 2, 0, 2, 0, 0, 0}, 1.30e-6, 0.00e-6 }, + {{ 0, 1, -2, 2, -2, 0, 0, 0}, 0.93e-6, 0.00e-6 }, + + /* 11-20 */ + {{ 1, 0, 0, -2, 0, 0, 0, 0}, 0.68e-6, 0.00e-6 }, + {{ 0, 0, 2, -2, 1, 0, 0, 0}, -0.55e-6, 0.00e-6 }, + {{ 1, 0, -2, 0, -2, 0, 0, 0}, 0.53e-6, 0.00e-6 }, + {{ 0, 0, 0, 2, 0, 0, 0, 0}, -0.27e-6, 0.00e-6 }, + {{ 1, 0, 0, 0, 1, 0, 0, 0}, -0.27e-6, 0.00e-6 }, + {{ 1, 0, -2, -2, -2, 0, 0, 0}, -0.26e-6, 0.00e-6 }, + {{ 1, 0, 0, 0, -1, 0, 0, 0}, -0.25e-6, 0.00e-6 }, + {{ 1, 0, 2, 0, 1, 0, 0, 0}, 0.22e-6, 0.00e-6 }, + {{ 2, 0, 0, -2, 0, 0, 0, 0}, -0.21e-6, 0.00e-6 }, + {{ 2, 0, -2, 0, -1, 0, 0, 0}, 0.20e-6, 0.00e-6 }, + + /* 21-25 */ + {{ 0, 0, 2, 2, 2, 0, 0, 0}, 0.17e-6, 0.00e-6 }, + {{ 2, 0, 2, 0, 2, 0, 0, 0}, 0.13e-6, 0.00e-6 }, + {{ 2, 0, 0, 0, 0, 0, 0, 0}, -0.13e-6, 0.00e-6 }, + {{ 1, 0, 2, -2, 2, 0, 0, 0}, -0.12e-6, 0.00e-6 }, + {{ 0, 0, 2, 0, 0, 0, 0, 0}, -0.11e-6, 0.00e-6 } + }; + +/* Terms of order t^3 */ + static const TERM s3[] ={ + + /* 1-4 */ + {{ 0, 0, 0, 0, 1, 0, 0, 0}, 0.30e-6, -23.51e-6 }, + {{ 0, 0, 2, -2, 2, 0, 0, 0}, -0.03e-6, -1.39e-6 }, + {{ 0, 0, 2, 0, 2, 0, 0, 0}, -0.01e-6, -0.24e-6 }, + {{ 0, 0, 0, 0, 2, 0, 0, 0}, 0.00e-6, 0.22e-6 } + }; + +/* Terms of order t^4 */ + static const TERM s4[] ={ + + /* 1-1 */ + {{ 0, 0, 0, 0, 1, 0, 0, 0}, -0.26e-6, -0.01e-6 } + }; + +/* Number of terms in the series */ + const int NS0 = (int) (sizeof s0 / sizeof (TERM)); + const int NS1 = (int) (sizeof s1 / sizeof (TERM)); + const int NS2 = (int) (sizeof s2 / sizeof (TERM)); + const int NS3 = (int) (sizeof s3 / sizeof (TERM)); + const int NS4 = (int) (sizeof s4 / sizeof (TERM)); + +/*--------------------------------------------------------------------*/ + +/* Interval between fundamental epoch J2000.0 and current date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* Fundamental Arguments (from IERS Conventions 2003) */ + +/* Mean anomaly of the Moon. */ + fa[0] = iauFal03(t); + +/* Mean anomaly of the Sun. */ + fa[1] = iauFalp03(t); + +/* Mean longitude of the Moon minus that of the ascending node. */ + fa[2] = iauFaf03(t); + +/* Mean elongation of the Moon from the Sun. */ + fa[3] = iauFad03(t); + +/* Mean longitude of the ascending node of the Moon. */ + fa[4] = iauFaom03(t); + +/* Mean longitude of Venus. */ + fa[5] = iauFave03(t); + +/* Mean longitude of Earth. */ + fa[6] = iauFae03(t); + +/* General precession in longitude. */ + fa[7] = iauFapa03(t); + +/* Evaluate s. */ + w0 = sp[0]; + w1 = sp[1]; + w2 = sp[2]; + w3 = sp[3]; + w4 = sp[4]; + w5 = sp[5]; + + for (i = NS0-1; i >= 0; i--) { + a = 0.0; + for (j = 0; j < 8; j++) { + a += (double)s0[i].nfa[j] * fa[j]; + } + w0 += s0[i].s * sin(a) + s0[i].c * cos(a); + } + + for (i = NS1-1; i >= 0; i--) { + a = 0.0; + for (j = 0; j < 8; j++) { + a += (double)s1[i].nfa[j] * fa[j]; + } + w1 += s1[i].s * sin(a) + s1[i].c * cos(a); + } + + for (i = NS2-1; i >= 0; i--) { + a = 0.0; + for (j = 0; j < 8; j++) { + a += (double)s2[i].nfa[j] * fa[j]; + } + w2 += s2[i].s * sin(a) + s2[i].c * cos(a); + } + + for (i = NS3-1; i >= 0; i--) { + a = 0.0; + for (j = 0; j < 8; j++) { + a += (double)s3[i].nfa[j] * fa[j]; + } + w3 += s3[i].s * sin(a) + s3[i].c * cos(a); + } + + for (i = NS4-1; i >= 0; i--) { + a = 0.0; + for (j = 0; j < 8; j++) { + a += (double)s4[i].nfa[j] * fa[j]; + } + w4 += s4[i].s * sin(a) + s4[i].c * cos(a); + } + + s = (w0 + + (w1 + + (w2 + + (w3 + + (w4 + + w5 * t) * t) * t) * t) * t) * DAS2R - x*y/2.0; + + return s; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/s00a.c =================================================================== --- /trunk/FACT++/sofa/src/s00a.c (revision 18346) +++ /trunk/FACT++/sofa/src/s00a.c (revision 18346) @@ -0,0 +1,192 @@ +#include "sofa.h" + +double iauS00a(double date1, double date2) +/* +** - - - - - - - - +** i a u S 0 0 a +** - - - - - - - - +** +** The CIO locator s, positioning the Celestial Intermediate Origin on +** the equator of the Celestial Intermediate Pole, using the IAU 2000A +** precession-nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double the CIO locator s in radians (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The CIO locator s is the difference between the right ascensions +** of the same point in two systems. The two systems are the GCRS +** and the CIP,CIO, and the point is the ascending node of the +** CIP equator. The CIO locator s remains a small fraction of +** 1 arcsecond throughout 1900-2100. +** +** 3) The series used to compute s is in fact for s+XY/2, where X and Y +** are the x and y components of the CIP unit vector; this series +** is more compact than a direct series for s would be. The present +** function uses the full IAU 2000A nutation model when predicting +** the CIP position. Faster results, with no significant loss of +** accuracy, can be obtained via the function iauS00b, which uses +** instead the IAU 2000B truncated model. +** +** Called: +** iauPnm00a classical NPB matrix, IAU 2000A +** iauBnp2xy extract CIP X,Y from the BPN matrix +** iauS00 the CIO locator s, given X,Y, IAU 2000A +** +** References: +** +** Capitaine, N., Chapront, J., Lambert, S. and Wallace, P., +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rbpn[3][3], x, y, s; + +/* Bias-precession-nutation-matrix, IAU 2000A. */ + iauPnm00a(date1, date2, rbpn); + +/* Extract the CIP coordinates. */ + iauBpn2xy(rbpn, &x, &y); + +/* Compute the CIO locator s, given the CIP coordinates. */ + s = iauS00(date1, date2, x, y); + + return s; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/s00b.c =================================================================== --- /trunk/FACT++/sofa/src/s00b.c (revision 18346) +++ /trunk/FACT++/sofa/src/s00b.c (revision 18346) @@ -0,0 +1,192 @@ +#include "sofa.h" + +double iauS00b(double date1, double date2) +/* +** - - - - - - - - +** i a u S 0 0 b +** - - - - - - - - +** +** The CIO locator s, positioning the Celestial Intermediate Origin on +** the equator of the Celestial Intermediate Pole, using the IAU 2000B +** precession-nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double the CIO locator s in radians (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The CIO locator s is the difference between the right ascensions +** of the same point in two systems. The two systems are the GCRS +** and the CIP,CIO, and the point is the ascending node of the +** CIP equator. The CIO locator s remains a small fraction of +** 1 arcsecond throughout 1900-2100. +** +** 3) The series used to compute s is in fact for s+XY/2, where X and Y +** are the x and y components of the CIP unit vector; this series +** is more compact than a direct series for s would be. The present +** function uses the IAU 2000B truncated nutation model when +** predicting the CIP position. The function iauS00a uses instead +** the full IAU 2000A model, but with no significant increase in +** accuracy and at some cost in speed. +** +** Called: +** iauPnm00b classical NPB matrix, IAU 2000B +** iauBnp2xy extract CIP X,Y from the BPN matrix +** iauS00 the CIO locator s, given X,Y, IAU 2000A +** +** References: +** +** Capitaine, N., Chapront, J., Lambert, S. and Wallace, P., +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rbpn[3][3], x, y, s; + +/* Bias-precession-nutation-matrix, IAU 2000B. */ + iauPnm00b(date1, date2, rbpn); + +/* Extract the CIP coordinates. */ + iauBpn2xy(rbpn, &x, &y); + +/* Compute the CIO locator s, given the CIP coordinates. */ + s = iauS00(date1, date2, x, y); + + return s; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/s06.c =================================================================== --- /trunk/FACT++/sofa/src/s06.c (revision 18346) +++ /trunk/FACT++/sofa/src/s06.c (revision 18346) @@ -0,0 +1,418 @@ +#include "sofa.h" + +double iauS06(double date1, double date2, double x, double y) +/* +** - - - - - - - +** i a u S 0 6 +** - - - - - - - +** +** The CIO locator s, positioning the Celestial Intermediate Origin on +** the equator of the Celestial Intermediate Pole, given the CIP's X,Y +** coordinates. Compatible with IAU 2006/2000A precession-nutation. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** x,y double CIP coordinates (Note 3) +** +** Returned (function value): +** double the CIO locator s in radians (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The CIO locator s is the difference between the right ascensions +** of the same point in two systems: the two systems are the GCRS +** and the CIP,CIO, and the point is the ascending node of the +** CIP equator. The quantity s remains below 0.1 arcsecond +** throughout 1900-2100. +** +** 3) The series used to compute s is in fact for s+XY/2, where X and Y +** are the x and y components of the CIP unit vector; this series +** is more compact than a direct series for s would be. This +** function requires X,Y to be supplied by the caller, who is +** responsible for providing values that are consistent with the +** supplied date. +** +** 4) The model is consistent with the "P03" precession (Capitaine et +** al. 2003), adopted by IAU 2006 Resolution 1, 2006, and the +** IAU 2000A nutation (with P03 adjustments). +** +** Called: +** iauFal03 mean anomaly of the Moon +** iauFalp03 mean anomaly of the Sun +** iauFaf03 mean argument of the latitude of the Moon +** iauFad03 mean elongation of the Moon from the Sun +** iauFaom03 mean longitude of the Moon's ascending node +** iauFave03 mean longitude of Venus +** iauFae03 mean longitude of Earth +** iauFapa03 general accumulated precession in longitude +** +** References: +** +** Capitaine, N., Wallace, P.T. & Chapront, J., 2003, Astron. +** Astrophys. 432, 355 +** +** McCarthy, D.D., Petit, G. (eds.) 2004, IERS Conventions (2003), +** IERS Technical Note No. 32, BKG +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Time since J2000.0, in Julian centuries */ + double t; + +/* Miscellaneous */ + int i, j; + double a, w0, w1, w2, w3, w4, w5; + +/* Fundamental arguments */ + double fa[8]; + +/* Returned value */ + double s; + +/* --------------------- */ +/* The series for s+XY/2 */ +/* --------------------- */ + + typedef struct { + int nfa[8]; /* coefficients of l,l',F,D,Om,LVe,LE,pA */ + double s, c; /* sine and cosine coefficients */ + } TERM; + +/* Polynomial coefficients */ + static const double sp[] = { + + /* 1-6 */ + 94.00e-6, + 3808.65e-6, + -122.68e-6, + -72574.11e-6, + 27.98e-6, + 15.62e-6 + }; + +/* Terms of order t^0 */ + static const TERM s0[] = { + + /* 1-10 */ + {{ 0, 0, 0, 0, 1, 0, 0, 0}, -2640.73e-6, 0.39e-6 }, + {{ 0, 0, 0, 0, 2, 0, 0, 0}, -63.53e-6, 0.02e-6 }, + {{ 0, 0, 2, -2, 3, 0, 0, 0}, -11.75e-6, -0.01e-6 }, + {{ 0, 0, 2, -2, 1, 0, 0, 0}, -11.21e-6, -0.01e-6 }, + {{ 0, 0, 2, -2, 2, 0, 0, 0}, 4.57e-6, 0.00e-6 }, + {{ 0, 0, 2, 0, 3, 0, 0, 0}, -2.02e-6, 0.00e-6 }, + {{ 0, 0, 2, 0, 1, 0, 0, 0}, -1.98e-6, 0.00e-6 }, + {{ 0, 0, 0, 0, 3, 0, 0, 0}, 1.72e-6, 0.00e-6 }, + {{ 0, 1, 0, 0, 1, 0, 0, 0}, 1.41e-6, 0.01e-6 }, + {{ 0, 1, 0, 0, -1, 0, 0, 0}, 1.26e-6, 0.01e-6 }, + + /* 11-20 */ + {{ 1, 0, 0, 0, -1, 0, 0, 0}, 0.63e-6, 0.00e-6 }, + {{ 1, 0, 0, 0, 1, 0, 0, 0}, 0.63e-6, 0.00e-6 }, + {{ 0, 1, 2, -2, 3, 0, 0, 0}, -0.46e-6, 0.00e-6 }, + {{ 0, 1, 2, -2, 1, 0, 0, 0}, -0.45e-6, 0.00e-6 }, + {{ 0, 0, 4, -4, 4, 0, 0, 0}, -0.36e-6, 0.00e-6 }, + {{ 0, 0, 1, -1, 1, -8, 12, 0}, 0.24e-6, 0.12e-6 }, + {{ 0, 0, 2, 0, 0, 0, 0, 0}, -0.32e-6, 0.00e-6 }, + {{ 0, 0, 2, 0, 2, 0, 0, 0}, -0.28e-6, 0.00e-6 }, + {{ 1, 0, 2, 0, 3, 0, 0, 0}, -0.27e-6, 0.00e-6 }, + {{ 1, 0, 2, 0, 1, 0, 0, 0}, -0.26e-6, 0.00e-6 }, + + /* 21-30 */ + {{ 0, 0, 2, -2, 0, 0, 0, 0}, 0.21e-6, 0.00e-6 }, + {{ 0, 1, -2, 2, -3, 0, 0, 0}, -0.19e-6, 0.00e-6 }, + {{ 0, 1, -2, 2, -1, 0, 0, 0}, -0.18e-6, 0.00e-6 }, + {{ 0, 0, 0, 0, 0, 8,-13, -1}, 0.10e-6, -0.05e-6 }, + {{ 0, 0, 0, 2, 0, 0, 0, 0}, -0.15e-6, 0.00e-6 }, + {{ 2, 0, -2, 0, -1, 0, 0, 0}, 0.14e-6, 0.00e-6 }, + {{ 0, 1, 2, -2, 2, 0, 0, 0}, 0.14e-6, 0.00e-6 }, + {{ 1, 0, 0, -2, 1, 0, 0, 0}, -0.14e-6, 0.00e-6 }, + {{ 1, 0, 0, -2, -1, 0, 0, 0}, -0.14e-6, 0.00e-6 }, + {{ 0, 0, 4, -2, 4, 0, 0, 0}, -0.13e-6, 0.00e-6 }, + + /* 31-33 */ + {{ 0, 0, 2, -2, 4, 0, 0, 0}, 0.11e-6, 0.00e-6 }, + {{ 1, 0, -2, 0, -3, 0, 0, 0}, -0.11e-6, 0.00e-6 }, + {{ 1, 0, -2, 0, -1, 0, 0, 0}, -0.11e-6, 0.00e-6 } + }; + +/* Terms of order t^1 */ + static const TERM s1[] = { + + /* 1 - 3 */ + {{ 0, 0, 0, 0, 2, 0, 0, 0}, -0.07e-6, 3.57e-6 }, + {{ 0, 0, 0, 0, 1, 0, 0, 0}, 1.73e-6, -0.03e-6 }, + {{ 0, 0, 2, -2, 3, 0, 0, 0}, 0.00e-6, 0.48e-6 } + }; + +/* Terms of order t^2 */ + static const TERM s2[] = { + + /* 1-10 */ + {{ 0, 0, 0, 0, 1, 0, 0, 0}, 743.52e-6, -0.17e-6 }, + {{ 0, 0, 2, -2, 2, 0, 0, 0}, 56.91e-6, 0.06e-6 }, + {{ 0, 0, 2, 0, 2, 0, 0, 0}, 9.84e-6, -0.01e-6 }, + {{ 0, 0, 0, 0, 2, 0, 0, 0}, -8.85e-6, 0.01e-6 }, + {{ 0, 1, 0, 0, 0, 0, 0, 0}, -6.38e-6, -0.05e-6 }, + {{ 1, 0, 0, 0, 0, 0, 0, 0}, -3.07e-6, 0.00e-6 }, + {{ 0, 1, 2, -2, 2, 0, 0, 0}, 2.23e-6, 0.00e-6 }, + {{ 0, 0, 2, 0, 1, 0, 0, 0}, 1.67e-6, 0.00e-6 }, + {{ 1, 0, 2, 0, 2, 0, 0, 0}, 1.30e-6, 0.00e-6 }, + {{ 0, 1, -2, 2, -2, 0, 0, 0}, 0.93e-6, 0.00e-6 }, + + /* 11-20 */ + {{ 1, 0, 0, -2, 0, 0, 0, 0}, 0.68e-6, 0.00e-6 }, + {{ 0, 0, 2, -2, 1, 0, 0, 0}, -0.55e-6, 0.00e-6 }, + {{ 1, 0, -2, 0, -2, 0, 0, 0}, 0.53e-6, 0.00e-6 }, + {{ 0, 0, 0, 2, 0, 0, 0, 0}, -0.27e-6, 0.00e-6 }, + {{ 1, 0, 0, 0, 1, 0, 0, 0}, -0.27e-6, 0.00e-6 }, + {{ 1, 0, -2, -2, -2, 0, 0, 0}, -0.26e-6, 0.00e-6 }, + {{ 1, 0, 0, 0, -1, 0, 0, 0}, -0.25e-6, 0.00e-6 }, + {{ 1, 0, 2, 0, 1, 0, 0, 0}, 0.22e-6, 0.00e-6 }, + {{ 2, 0, 0, -2, 0, 0, 0, 0}, -0.21e-6, 0.00e-6 }, + {{ 2, 0, -2, 0, -1, 0, 0, 0}, 0.20e-6, 0.00e-6 }, + + /* 21-25 */ + {{ 0, 0, 2, 2, 2, 0, 0, 0}, 0.17e-6, 0.00e-6 }, + {{ 2, 0, 2, 0, 2, 0, 0, 0}, 0.13e-6, 0.00e-6 }, + {{ 2, 0, 0, 0, 0, 0, 0, 0}, -0.13e-6, 0.00e-6 }, + {{ 1, 0, 2, -2, 2, 0, 0, 0}, -0.12e-6, 0.00e-6 }, + {{ 0, 0, 2, 0, 0, 0, 0, 0}, -0.11e-6, 0.00e-6 } + }; + +/* Terms of order t^3 */ + static const TERM s3[] = { + + /* 1-4 */ + {{ 0, 0, 0, 0, 1, 0, 0, 0}, 0.30e-6, -23.42e-6 }, + {{ 0, 0, 2, -2, 2, 0, 0, 0}, -0.03e-6, -1.46e-6 }, + {{ 0, 0, 2, 0, 2, 0, 0, 0}, -0.01e-6, -0.25e-6 }, + {{ 0, 0, 0, 0, 2, 0, 0, 0}, 0.00e-6, 0.23e-6 } + }; + +/* Terms of order t^4 */ + static const TERM s4[] = { + + /* 1-1 */ + {{ 0, 0, 0, 0, 1, 0, 0, 0}, -0.26e-6, -0.01e-6 } + }; + +/* Number of terms in the series */ + static const int NS0 = (int) (sizeof s0 / sizeof (TERM)); + static const int NS1 = (int) (sizeof s1 / sizeof (TERM)); + static const int NS2 = (int) (sizeof s2 / sizeof (TERM)); + static const int NS3 = (int) (sizeof s3 / sizeof (TERM)); + static const int NS4 = (int) (sizeof s4 / sizeof (TERM)); + +/*--------------------------------------------------------------------*/ + +/* Interval between fundamental epoch J2000.0 and current date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* Fundamental Arguments (from IERS Conventions 2003) */ + +/* Mean anomaly of the Moon. */ + fa[0] = iauFal03(t); + +/* Mean anomaly of the Sun. */ + fa[1] = iauFalp03(t); + +/* Mean longitude of the Moon minus that of the ascending node. */ + fa[2] = iauFaf03(t); + +/* Mean elongation of the Moon from the Sun. */ + fa[3] = iauFad03(t); + +/* Mean longitude of the ascending node of the Moon. */ + fa[4] = iauFaom03(t); + +/* Mean longitude of Venus. */ + fa[5] = iauFave03(t); + +/* Mean longitude of Earth. */ + fa[6] = iauFae03(t); + +/* General precession in longitude. */ + fa[7] = iauFapa03(t); + +/* Evaluate s. */ + w0 = sp[0]; + w1 = sp[1]; + w2 = sp[2]; + w3 = sp[3]; + w4 = sp[4]; + w5 = sp[5]; + + for (i = NS0-1; i >= 0; i--) { + a = 0.0; + for (j = 0; j < 8; j++) { + a += (double)s0[i].nfa[j] * fa[j]; + } + w0 += s0[i].s * sin(a) + s0[i].c * cos(a); + } + + for (i = NS1-1; i >= 0; i--) { + a = 0.0; + for (j = 0; j < 8; j++) { + a += (double)s1[i].nfa[j] * fa[j]; + } + w1 += s1[i].s * sin(a) + s1[i].c * cos(a); + } + + for (i = NS2-1; i >= 0; i--) { + a = 0.0; + for (j = 0; j < 8; j++) { + a += (double)s2[i].nfa[j] * fa[j]; + } + w2 += s2[i].s * sin(a) + s2[i].c * cos(a); + } + + for (i = NS3-1; i >= 0; i--) { + a = 0.0; + for (j = 0; j < 8; j++) { + a += (double)s3[i].nfa[j] * fa[j]; + } + w3 += s3[i].s * sin(a) + s3[i].c * cos(a); + } + + for (i = NS4-1; i >= 0; i--) { + a = 0.0; + for (j = 0; j < 8; j++) { + a += (double)s4[i].nfa[j] * fa[j]; + } + w4 += s4[i].s * sin(a) + s4[i].c * cos(a); + } + + s = (w0 + + (w1 + + (w2 + + (w3 + + (w4 + + w5 * t) * t) * t) * t) * t) * DAS2R - x*y/2.0; + + return s; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/s06a.c =================================================================== --- /trunk/FACT++/sofa/src/s06a.c (revision 18346) +++ /trunk/FACT++/sofa/src/s06a.c (revision 18346) @@ -0,0 +1,194 @@ +#include "sofa.h" + +double iauS06a(double date1, double date2) +/* +** - - - - - - - - +** i a u S 0 6 a +** - - - - - - - - +** +** The CIO locator s, positioning the Celestial Intermediate Origin on +** the equator of the Celestial Intermediate Pole, using the IAU 2006 +** precession and IAU 2000A nutation models. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double the CIO locator s in radians (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The CIO locator s is the difference between the right ascensions +** of the same point in two systems. The two systems are the GCRS +** and the CIP,CIO, and the point is the ascending node of the +** CIP equator. The CIO locator s remains a small fraction of +** 1 arcsecond throughout 1900-2100. +** +** 3) The series used to compute s is in fact for s+XY/2, where X and Y +** are the x and y components of the CIP unit vector; this series is +** more compact than a direct series for s would be. The present +** function uses the full IAU 2000A nutation model when predicting +** the CIP position. +** +** Called: +** iauPnm06a classical NPB matrix, IAU 2006/2000A +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS06 the CIO locator s, given X,Y, IAU 2006 +** +** References: +** +** Capitaine, N., Chapront, J., Lambert, S. and Wallace, P., +** "Expressions for the Celestial Intermediate Pole and Celestial +** Ephemeris Origin consistent with the IAU 2000A precession- +** nutation model", Astron.Astrophys. 400, 1145-1154 (2003) +** +** n.b. The celestial ephemeris origin (CEO) was renamed "celestial +** intermediate origin" (CIO) by IAU 2006 Resolution 2. +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** McCarthy, D. D., Petit, G. (eds.), 2004, IERS Conventions (2003), +** IERS Technical Note No. 32, BKG +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rnpb[3][3], x, y, s; + +/* Bias-precession-nutation-matrix, IAU 20006/2000A. */ + iauPnm06a(date1, date2, rnpb); + +/* Extract the CIP coordinates. */ + iauBpn2xy(rnpb, &x, &y); + +/* Compute the CIO locator s, given the CIP coordinates. */ + s = iauS06(date1, date2, x, y); + + return s; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/s2c.c =================================================================== --- /trunk/FACT++/sofa/src/s2c.c (revision 18346) +++ /trunk/FACT++/sofa/src/s2c.c (revision 18346) @@ -0,0 +1,134 @@ +#include "sofa.h" + +void iauS2c(double theta, double phi, double c[3]) +/* +** - - - - - - - +** i a u S 2 c +** - - - - - - - +** +** Convert spherical coordinates to Cartesian. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** theta double longitude angle (radians) +** phi double latitude angle (radians) +** +** Returned: +** c double[3] direction cosines +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double cp; + + cp = cos(phi); + c[0] = cos(theta) * cp; + c[1] = sin(theta) * cp; + c[2] = sin(phi); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/s2p.c =================================================================== --- /trunk/FACT++/sofa/src/s2p.c (revision 18346) +++ /trunk/FACT++/sofa/src/s2p.c (revision 18346) @@ -0,0 +1,137 @@ +#include "sofa.h" + +void iauS2p(double theta, double phi, double r, double p[3]) +/* +** - - - - - - - +** i a u S 2 p +** - - - - - - - +** +** Convert spherical polar coordinates to p-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** theta double longitude angle (radians) +** phi double latitude angle (radians) +** r double radial distance +** +** Returned: +** p double[3] Cartesian coordinates +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauSxp multiply p-vector by scalar +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double u[3]; + + iauS2c(theta, phi, u); + iauSxp(r, u, p); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/s2pv.c =================================================================== --- /trunk/FACT++/sofa/src/s2pv.c (revision 18346) +++ /trunk/FACT++/sofa/src/s2pv.c (revision 18346) @@ -0,0 +1,152 @@ +#include "sofa.h" + +void iauS2pv(double theta, double phi, double r, + double td, double pd, double rd, + double pv[2][3]) +/* +** - - - - - - - - +** i a u S 2 p v +** - - - - - - - - +** +** Convert position/velocity from spherical to Cartesian coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** theta double longitude angle (radians) +** phi double latitude angle (radians) +** r double radial distance +** td double rate of change of theta +** pd double rate of change of phi +** rd double rate of change of r +** +** Returned: +** pv double[2][3] pv-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double st, ct, sp, cp, rcp, x, y, rpd, w; + + st = sin(theta); + ct = cos(theta); + sp = sin(phi); + cp = cos(phi); + rcp = r * cp; + x = rcp * ct; + y = rcp * st; + rpd = r * pd; + w = rpd*sp - cp*rd; + + pv[0][0] = x; + pv[0][1] = y; + pv[0][2] = r * sp; + pv[1][0] = -y*td - w*ct; + pv[1][1] = x*td - w*st; + pv[1][2] = rpd*cp + sp*rd; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/s2xpv.c =================================================================== --- /trunk/FACT++/sofa/src/s2xpv.c (revision 18346) +++ /trunk/FACT++/sofa/src/s2xpv.c (revision 18346) @@ -0,0 +1,137 @@ +#include "sofa.h" + +void iauS2xpv(double s1, double s2, double pv[2][3], double spv[2][3]) +/* +** - - - - - - - - - +** i a u S 2 x p v +** - - - - - - - - - +** +** Multiply a pv-vector by two scalars. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** s1 double scalar to multiply position component by +** s2 double scalar to multiply velocity component by +** pv double[2][3] pv-vector +** +** Returned: +** spv double[2][3] pv-vector: p scaled by s1, v scaled by s2 +** +** Note: +** It is permissible for pv and spv to be the same array. +** +** Called: +** iauSxp multiply p-vector by scalar +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + iauSxp(s1, pv[0], spv[0]); + iauSxp(s2, pv[1], spv[1]); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/sepp.c =================================================================== --- /trunk/FACT++/sofa/src/sepp.c (revision 18346) +++ /trunk/FACT++/sofa/src/sepp.c (revision 18346) @@ -0,0 +1,154 @@ +#include "sofa.h" + +double iauSepp(double a[3], double b[3]) +/* +** - - - - - - - - +** i a u S e p p +** - - - - - - - - +** +** Angular separation between two p-vectors. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** a double[3] first p-vector (not necessarily unit length) +** b double[3] second p-vector (not necessarily unit length) +** +** Returned (function value): +** double angular separation (radians, always positive) +** +** Notes: +** +** 1) If either vector is null, a zero result is returned. +** +** 2) The angular separation is most simply formulated in terms of +** scalar product. However, this gives poor accuracy for angles +** near zero and pi. The present algorithm uses both cross product +** and dot product, to deliver full accuracy whatever the size of +** the angle. +** +** Called: +** iauPxp vector product of two p-vectors +** iauPm modulus of p-vector +** iauPdp scalar product of two p-vectors +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double axb[3], ss, cs, s; + +/* Sine of angle between the vectors, multiplied by the two moduli. */ + iauPxp(a, b, axb); + ss = iauPm(axb); + +/* Cosine of the angle, multiplied by the two moduli. */ + cs = iauPdp(a, b); + +/* The angle. */ + s = ((ss != 0.0) || (cs != 0.0)) ? atan2(ss, cs) : 0.0; + + return s; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/seps.c =================================================================== --- /trunk/FACT++/sofa/src/seps.c (revision 18346) +++ /trunk/FACT++/sofa/src/seps.c (revision 18346) @@ -0,0 +1,142 @@ +#include "sofa.h" + +double iauSeps(double al, double ap, double bl, double bp) +/* +** - - - - - - - - +** i a u S e p s +** - - - - - - - - +** +** Angular separation between two sets of spherical coordinates. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** al double first longitude (radians) +** ap double first latitude (radians) +** bl double second longitude (radians) +** bp double second latitude (radians) +** +** Returned (function value): +** double angular separation (radians) +** +** Called: +** iauS2c spherical coordinates to unit vector +** iauSepp angular separation between two p-vectors +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double ac[3], bc[3], s; + +/* Spherical to Cartesian. */ + iauS2c(al, ap, ac); + iauS2c(bl, bp, bc); + +/* Angle between the vectors. */ + s = iauSepp(ac, bc); + + return s; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/sofa.h =================================================================== --- /trunk/FACT++/sofa/src/sofa.h (revision 18346) +++ /trunk/FACT++/sofa/src/sofa.h (revision 18346) @@ -0,0 +1,541 @@ +#ifndef SOFAHDEF +#define SOFAHDEF + +/* +** - - - - - - - +** s o f a . h +** - - - - - - - +** +** Prototype function declarations for SOFA library. +** +** This file is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** This revision: 2015 January 28 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ + +#include "sofam.h" +#include "math.h" + +#ifdef __cplusplus +extern "C" { +#endif + +/* Astronomy/Calendars */ +int iauCal2jd(int iy, int im, int id, double *djm0, double *djm); +double iauEpb(double dj1, double dj2); +void iauEpb2jd(double epb, double *djm0, double *djm); +double iauEpj(double dj1, double dj2); +void iauEpj2jd(double epj, double *djm0, double *djm); +int iauJd2cal(double dj1, double dj2, + int *iy, int *im, int *id, double *fd); +int iauJdcalf(int ndp, double dj1, double dj2, int iymdf[4]); + +/* Astronomy/Astrometry */ +void iauAb(double pnat[3], double v[3], double s, double bm1, + double ppr[3]); +void iauApcg(double date1, double date2, + double ebpv[2][3], double ehp[3], + iauASTROM *astrom); +void iauApcg13(double date1, double date2, iauASTROM *astrom); +void iauApci(double date1, double date2, + double ebpv[2][3], double ehp[3], + double x, double y, double s, + iauASTROM *astrom); +void iauApci13(double date1, double date2, + iauASTROM *astrom, double *eo); +void iauApco(double date1, double date2, + double ebpv[2][3], double ehp[3], + double x, double y, double s, double theta, + double elong, double phi, double hm, + double xp, double yp, double sp, + double refa, double refb, + iauASTROM *astrom); +int iauApco13(double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + iauASTROM *astrom, double *eo); +void iauApcs(double date1, double date2, double pv[2][3], + double ebpv[2][3], double ehp[3], + iauASTROM *astrom); +void iauApcs13(double date1, double date2, double pv[2][3], + iauASTROM *astrom); +void iauAper(double theta, iauASTROM *astrom); +void iauAper13(double ut11, double ut12, iauASTROM *astrom); +void iauApio(double sp, double theta, + double elong, double phi, double hm, double xp, double yp, + double refa, double refb, + iauASTROM *astrom); +int iauApio13(double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + iauASTROM *astrom); +void iauAtci13(double rc, double dc, + double pr, double pd, double px, double rv, + double date1, double date2, + double *ri, double *di, double *eo); +void iauAtciq(double rc, double dc, double pr, double pd, + double px, double rv, iauASTROM *astrom, + double *ri, double *di); +void iauAtciqn(double rc, double dc, double pr, double pd, + double px, double rv, iauASTROM *astrom, + int n, iauLDBODY b[], double *ri, double *di); +void iauAtciqz(double rc, double dc, iauASTROM *astrom, + double *ri, double *di); +int iauAtco13(double rc, double dc, + double pr, double pd, double px, double rv, + double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + double *aob, double *zob, double *hob, + double *dob, double *rob, double *eo); +void iauAtic13(double ri, double di, + double date1, double date2, + double *rc, double *dc, double *eo); +void iauAticq(double ri, double di, iauASTROM *astrom, + double *rc, double *dc); +void iauAticqn(double ri, double di, iauASTROM *astrom, + int n, iauLDBODY b[], double *rc, double *dc); +int iauAtio13(double ri, double di, + double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + double *aob, double *zob, double *hob, + double *dob, double *rob); +void iauAtioq(double ri, double di, iauASTROM *astrom, + double *aob, double *zob, + double *hob, double *dob, double *rob); +int iauAtoc13(const char *type, double ob1, double ob2, + double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + double *rc, double *dc); +int iauAtoi13(const char *type, double ob1, double ob2, + double utc1, double utc2, double dut1, + double elong, double phi, double hm, double xp, double yp, + double phpa, double tc, double rh, double wl, + double *ri, double *di); +void iauAtoiq(const char *type, + double ob1, double ob2, iauASTROM *astrom, + double *ri, double *di); +void iauLd(double bm, double p[3], double q[3], double e[3], + double em, double dlim, double p1[3]); +void iauLdn(int n, iauLDBODY b[], double ob[3], double sc[3], + double sn[3]); +void iauLdsun(double p[3], double e[3], double em, double p1[3]); +void iauPmpx(double rc, double dc, double pr, double pd, + double px, double rv, double pmt, double pob[3], + double pco[3]); +int iauPmsafe(double ra1, double dec1, double pmr1, double pmd1, + double px1, double rv1, + double ep1a, double ep1b, double ep2a, double ep2b, + double *ra2, double *dec2, double *pmr2, double *pmd2, + double *px2, double *rv2); +void iauPvtob(double elong, double phi, double height, double xp, + double yp, double sp, double theta, double pv[2][3]); +void iauRefco(double phpa, double tc, double rh, double wl, + double *refa, double *refb); + +/* Astronomy/Ephemerides */ +int iauEpv00(double date1, double date2, + double pvh[2][3], double pvb[2][3]); +int iauPlan94(double date1, double date2, int np, double pv[2][3]); + +/* Astronomy/FundamentalArgs */ +double iauFad03(double t); +double iauFae03(double t); +double iauFaf03(double t); +double iauFaju03(double t); +double iauFal03(double t); +double iauFalp03(double t); +double iauFama03(double t); +double iauFame03(double t); +double iauFane03(double t); +double iauFaom03(double t); +double iauFapa03(double t); +double iauFasa03(double t); +double iauFaur03(double t); +double iauFave03(double t); + +/* Astronomy/PrecNutPolar */ +void iauBi00(double *dpsibi, double *depsbi, double *dra); +void iauBp00(double date1, double date2, + double rb[3][3], double rp[3][3], double rbp[3][3]); +void iauBp06(double date1, double date2, + double rb[3][3], double rp[3][3], double rbp[3][3]); +void iauBpn2xy(double rbpn[3][3], double *x, double *y); +void iauC2i00a(double date1, double date2, double rc2i[3][3]); +void iauC2i00b(double date1, double date2, double rc2i[3][3]); +void iauC2i06a(double date1, double date2, double rc2i[3][3]); +void iauC2ibpn(double date1, double date2, double rbpn[3][3], + double rc2i[3][3]); +void iauC2ixy(double date1, double date2, double x, double y, + double rc2i[3][3]); +void iauC2ixys(double x, double y, double s, double rc2i[3][3]); +void iauC2t00a(double tta, double ttb, double uta, double utb, + double xp, double yp, double rc2t[3][3]); +void iauC2t00b(double tta, double ttb, double uta, double utb, + double xp, double yp, double rc2t[3][3]); +void iauC2t06a(double tta, double ttb, double uta, double utb, + double xp, double yp, double rc2t[3][3]); +void iauC2tcio(double rc2i[3][3], double era, double rpom[3][3], + double rc2t[3][3]); +void iauC2teqx(double rbpn[3][3], double gst, double rpom[3][3], + double rc2t[3][3]); +void iauC2tpe(double tta, double ttb, double uta, double utb, + double dpsi, double deps, double xp, double yp, + double rc2t[3][3]); +void iauC2txy(double tta, double ttb, double uta, double utb, + double x, double y, double xp, double yp, + double rc2t[3][3]); +double iauEo06a(double date1, double date2); +double iauEors(double rnpb[3][3], double s); +void iauFw2m(double gamb, double phib, double psi, double eps, + double r[3][3]); +void iauFw2xy(double gamb, double phib, double psi, double eps, + double *x, double *y); +void iauNum00a(double date1, double date2, double rmatn[3][3]); +void iauNum00b(double date1, double date2, double rmatn[3][3]); +void iauNum06a(double date1, double date2, double rmatn[3][3]); +void iauNumat(double epsa, double dpsi, double deps, double rmatn[3][3]); +void iauNut00a(double date1, double date2, double *dpsi, double *deps); +void iauNut00b(double date1, double date2, double *dpsi, double *deps); +void iauNut06a(double date1, double date2, double *dpsi, double *deps); +void iauNut80(double date1, double date2, double *dpsi, double *deps); +void iauNutm80(double date1, double date2, double rmatn[3][3]); +double iauObl06(double date1, double date2); +double iauObl80(double date1, double date2); +void iauP06e(double date1, double date2, + double *eps0, double *psia, double *oma, double *bpa, + double *bqa, double *pia, double *bpia, + double *epsa, double *chia, double *za, double *zetaa, + double *thetaa, double *pa, + double *gam, double *phi, double *psi); +void iauPb06(double date1, double date2, + double *bzeta, double *bz, double *btheta); +void iauPfw06(double date1, double date2, + double *gamb, double *phib, double *psib, double *epsa); +void iauPmat00(double date1, double date2, double rbp[3][3]); +void iauPmat06(double date1, double date2, double rbp[3][3]); +void iauPmat76(double date1, double date2, double rmatp[3][3]); +void iauPn00(double date1, double date2, double dpsi, double deps, + double *epsa, + double rb[3][3], double rp[3][3], double rbp[3][3], + double rn[3][3], double rbpn[3][3]); +void iauPn00a(double date1, double date2, + double *dpsi, double *deps, double *epsa, + double rb[3][3], double rp[3][3], double rbp[3][3], + double rn[3][3], double rbpn[3][3]); +void iauPn00b(double date1, double date2, + double *dpsi, double *deps, double *epsa, + double rb[3][3], double rp[3][3], double rbp[3][3], + double rn[3][3], double rbpn[3][3]); +void iauPn06(double date1, double date2, double dpsi, double deps, + double *epsa, + double rb[3][3], double rp[3][3], double rbp[3][3], + double rn[3][3], double rbpn[3][3]); +void iauPn06a(double date1, double date2, + double *dpsi, double *deps, double *epsa, + double rb[3][3], double rp[3][3], double rbp[3][3], + double rn[3][3], double rbpn[3][3]); +void iauPnm00a(double date1, double date2, double rbpn[3][3]); +void iauPnm00b(double date1, double date2, double rbpn[3][3]); +void iauPnm06a(double date1, double date2, double rnpb[3][3]); +void iauPnm80(double date1, double date2, double rmatpn[3][3]); +void iauPom00(double xp, double yp, double sp, double rpom[3][3]); +void iauPr00(double date1, double date2, + double *dpsipr, double *depspr); +void iauPrec76(double date01, double date02, + double date11, double date12, + double *zeta, double *z, double *theta); +double iauS00(double date1, double date2, double x, double y); +double iauS00a(double date1, double date2); +double iauS00b(double date1, double date2); +double iauS06(double date1, double date2, double x, double y); +double iauS06a(double date1, double date2); +double iauSp00(double date1, double date2); +void iauXy06(double date1, double date2, double *x, double *y); +void iauXys00a(double date1, double date2, + double *x, double *y, double *s); +void iauXys00b(double date1, double date2, + double *x, double *y, double *s); +void iauXys06a(double date1, double date2, + double *x, double *y, double *s); + +/* Astronomy/RotationAndTime */ +double iauEe00(double date1, double date2, double epsa, double dpsi); +double iauEe00a(double date1, double date2); +double iauEe00b(double date1, double date2); +double iauEe06a(double date1, double date2); +double iauEect00(double date1, double date2); +double iauEqeq94(double date1, double date2); +double iauEra00(double dj1, double dj2); +double iauGmst00(double uta, double utb, double tta, double ttb); +double iauGmst06(double uta, double utb, double tta, double ttb); +double iauGmst82(double dj1, double dj2); +double iauGst00a(double uta, double utb, double tta, double ttb); +double iauGst00b(double uta, double utb); +double iauGst06(double uta, double utb, double tta, double ttb, + double rnpb[3][3]); +double iauGst06a(double uta, double utb, double tta, double ttb); +double iauGst94(double uta, double utb); + +/* Astronomy/SpaceMotion */ +int iauPvstar(double pv[2][3], double *ra, double *dec, + double *pmr, double *pmd, double *px, double *rv); +int iauStarpv(double ra, double dec, + double pmr, double pmd, double px, double rv, + double pv[2][3]); + +/* Astronomy/StarCatalogs */ +void iauFk52h(double r5, double d5, + double dr5, double dd5, double px5, double rv5, + double *rh, double *dh, + double *drh, double *ddh, double *pxh, double *rvh); +void iauFk5hip(double r5h[3][3], double s5h[3]); +void iauFk5hz(double r5, double d5, double date1, double date2, + double *rh, double *dh); +void iauH2fk5(double rh, double dh, + double drh, double ddh, double pxh, double rvh, + double *r5, double *d5, + double *dr5, double *dd5, double *px5, double *rv5); +void iauHfk5z(double rh, double dh, double date1, double date2, + double *r5, double *d5, double *dr5, double *dd5); +int iauStarpm(double ra1, double dec1, + double pmr1, double pmd1, double px1, double rv1, + double ep1a, double ep1b, double ep2a, double ep2b, + double *ra2, double *dec2, + double *pmr2, double *pmd2, double *px2, double *rv2); + +/* Astronomy/GalacticCoordinates */ +void iauG2icrs ( double dl, double db, double *dr, double *dd ); +void iauIcrs2g ( double dr, double dd, double *dl, double *db ); + +/* Astronomy/GeodeticGeocentric */ +int iauEform(int n, double *a, double *f); +int iauGc2gd(int n, double xyz[3], + double *elong, double *phi, double *height); +int iauGc2gde(double a, double f, double xyz[3], + double *elong, double *phi, double *height); +int iauGd2gc(int n, double elong, double phi, double height, + double xyz[3]); +int iauGd2gce(double a, double f, + double elong, double phi, double height, double xyz[3]); + +/* Astronomy/Timescales */ +int iauD2dtf(const char *scale, int ndp, double d1, double d2, + int *iy, int *im, int *id, int ihmsf[4]); +int iauDat(int iy, int im, int id, double fd, double *deltat); +double iauDtdb(double date1, double date2, + double ut, double elong, double u, double v); +int iauDtf2d(const char *scale, int iy, int im, int id, + int ihr, int imn, double sec, double *d1, double *d2); +int iauTaitt(double tai1, double tai2, double *tt1, double *tt2); +int iauTaiut1(double tai1, double tai2, double dta, + double *ut11, double *ut12); +int iauTaiutc(double tai1, double tai2, double *utc1, double *utc2); +int iauTcbtdb(double tcb1, double tcb2, double *tdb1, double *tdb2); +int iauTcgtt(double tcg1, double tcg2, double *tt1, double *tt2); +int iauTdbtcb(double tdb1, double tdb2, double *tcb1, double *tcb2); +int iauTdbtt(double tdb1, double tdb2, double dtr, + double *tt1, double *tt2); +int iauTttai(double tt1, double tt2, double *tai1, double *tai2); +int iauTttcg(double tt1, double tt2, double *tcg1, double *tcg2); +int iauTttdb(double tt1, double tt2, double dtr, + double *tdb1, double *tdb2); +int iauTtut1(double tt1, double tt2, double dt, + double *ut11, double *ut12); +int iauUt1tai(double ut11, double ut12, double dta, + double *tai1, double *tai2); +int iauUt1tt(double ut11, double ut12, double dt, + double *tt1, double *tt2); +int iauUt1utc(double ut11, double ut12, double dut1, + double *utc1, double *utc2); +int iauUtctai(double utc1, double utc2, double *tai1, double *tai2); +int iauUtcut1(double utc1, double utc2, double dut1, + double *ut11, double *ut12); + +/* VectorMatrix/AngleOps */ +void iauA2af(int ndp, double angle, char *sign, int idmsf[4]); +void iauA2tf(int ndp, double angle, char *sign, int ihmsf[4]); +int iauAf2a(char s, int ideg, int iamin, double asec, double *rad); +double iauAnp(double a); +double iauAnpm(double a); +void iauD2tf(int ndp, double days, char *sign, int ihmsf[4]); +int iauTf2a(char s, int ihour, int imin, double sec, double *rad); +int iauTf2d(char s, int ihour, int imin, double sec, double *days); + +/* VectorMatrix/BuildRotations */ +void iauRx(double phi, double r[3][3]); +void iauRy(double theta, double r[3][3]); +void iauRz(double psi, double r[3][3]); + +/* VectorMatrix/CopyExtendExtract */ +void iauCp(double p[3], double c[3]); +void iauCpv(double pv[2][3], double c[2][3]); +void iauCr(double r[3][3], double c[3][3]); +void iauP2pv(double p[3], double pv[2][3]); +void iauPv2p(double pv[2][3], double p[3]); + +/* VectorMatrix/Initialization */ +void iauIr(double r[3][3]); +void iauZp(double p[3]); +void iauZpv(double pv[2][3]); +void iauZr(double r[3][3]); + +/* VectorMatrix/MatrixOps */ +void iauRxr(double a[3][3], double b[3][3], double atb[3][3]); +void iauTr(double r[3][3], double rt[3][3]); + +/* VectorMatrix/MatrixVectorProducts */ +void iauRxp(double r[3][3], double p[3], double rp[3]); +void iauRxpv(double r[3][3], double pv[2][3], double rpv[2][3]); +void iauTrxp(double r[3][3], double p[3], double trp[3]); +void iauTrxpv(double r[3][3], double pv[2][3], double trpv[2][3]); + +/* VectorMatrix/RotationVectors */ +void iauRm2v(double r[3][3], double w[3]); +void iauRv2m(double w[3], double r[3][3]); + +/* VectorMatrix/SeparationAndAngle */ +double iauPap(double a[3], double b[3]); +double iauPas(double al, double ap, double bl, double bp); +double iauSepp(double a[3], double b[3]); +double iauSeps(double al, double ap, double bl, double bp); + +/* VectorMatrix/SphericalCartesian */ +void iauC2s(double p[3], double *theta, double *phi); +void iauP2s(double p[3], double *theta, double *phi, double *r); +void iauPv2s(double pv[2][3], + double *theta, double *phi, double *r, + double *td, double *pd, double *rd); +void iauS2c(double theta, double phi, double c[3]); +void iauS2p(double theta, double phi, double r, double p[3]); +void iauS2pv(double theta, double phi, double r, + double td, double pd, double rd, + double pv[2][3]); + +/* VectorMatrix/VectorOps */ +double iauPdp(double a[3], double b[3]); +double iauPm(double p[3]); +void iauPmp(double a[3], double b[3], double amb[3]); +void iauPn(double p[3], double *r, double u[3]); +void iauPpp(double a[3], double b[3], double apb[3]); +void iauPpsp(double a[3], double s, double b[3], double apsb[3]); +void iauPvdpv(double a[2][3], double b[2][3], double adb[2]); +void iauPvm(double pv[2][3], double *r, double *s); +void iauPvmpv(double a[2][3], double b[2][3], double amb[2][3]); +void iauPvppv(double a[2][3], double b[2][3], double apb[2][3]); +void iauPvu(double dt, double pv[2][3], double upv[2][3]); +void iauPvup(double dt, double pv[2][3], double p[3]); +void iauPvxpv(double a[2][3], double b[2][3], double axb[2][3]); +void iauPxp(double a[3], double b[3], double axb[3]); +void iauS2xpv(double s1, double s2, double pv[2][3], double spv[2][3]); +void iauSxp(double s, double p[3], double sp[3]); +void iauSxpv(double s, double pv[2][3], double spv[2][3]); + +#ifdef __cplusplus +} +#endif + +#endif + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ Index: /trunk/FACT++/sofa/src/sofam.h =================================================================== --- /trunk/FACT++/sofa/src/sofam.h (revision 18346) +++ /trunk/FACT++/sofa/src/sofam.h (revision 18346) @@ -0,0 +1,250 @@ +#ifndef SOFAMHDEF +#define SOFAMHDEF + +/* +** - - - - - - - - +** s o f a m . h +** - - - - - - - - +** +** Macros used by SOFA library. +** +** This file is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Please note that the constants defined below are to be used only in +** the context of the SOFA software, and have no other official IAU +** status. In addition, self consistency is not guaranteed. +** +** This revision: 2013 August 27 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ + +/* Star-independent astrometry parameters */ +typedef struct { + double pmt; /* PM time interval (SSB, Julian years) */ + double eb[3]; /* SSB to observer (vector, au) */ + double eh[3]; /* Sun to observer (unit vector) */ + double em; /* distance from Sun to observer (au) */ + double v[3]; /* barycentric observer velocity (vector, c) */ + double bm1; /* sqrt(1-|v|^2): reciprocal of Lorenz factor */ + double bpn[3][3]; /* bias-precession-nutation matrix */ + double along; /* longitude + s' + dERA(DUT) (radians) */ + double phi; /* geodetic latitude (radians) */ + double xpl; /* polar motion xp wrt local meridian (radians) */ + double ypl; /* polar motion yp wrt local meridian (radians) */ + double sphi; /* sine of geodetic latitude */ + double cphi; /* cosine of geodetic latitude */ + double diurab; /* magnitude of diurnal aberration vector */ + double eral; /* "local" Earth rotation angle (radians) */ + double refa; /* refraction constant A (radians) */ + double refb; /* refraction constant B (radians) */ +} iauASTROM; +/* (Vectors eb, eh, em and v are all with respect to BCRS axes.) */ + +/* Body parameters for light deflection */ +typedef struct { + double bm; /* mass of the body (solar masses) */ + double dl; /* deflection limiter (radians^2/2) */ + double pv[2][3]; /* barycentric PV of the body (au, au/day) */ +} iauLDBODY; + +/* Pi */ +#define DPI (3.141592653589793238462643) + +/* 2Pi */ +#define D2PI (6.283185307179586476925287) + +/* Radians to degrees */ +#define DR2D (57.29577951308232087679815) + +/* Degrees to radians */ +#define DD2R (1.745329251994329576923691e-2) + +/* Radians to arcseconds */ +#define DR2AS (206264.8062470963551564734) + +/* Arcseconds to radians */ +#define DAS2R (4.848136811095359935899141e-6) + +/* Seconds of time to radians */ +#define DS2R (7.272205216643039903848712e-5) + +/* Arcseconds in a full circle */ +#define TURNAS (1296000.0) + +/* Milliarcseconds to radians */ +#define DMAS2R (DAS2R / 1e3) + +/* Length of tropical year B1900 (days) */ +#define DTY (365.242198781) + +/* Seconds per day. */ +#define DAYSEC (86400.0) + +/* Days per Julian year */ +#define DJY (365.25) + +/* Days per Julian century */ +#define DJC (36525.0) + +/* Days per Julian millennium */ +#define DJM (365250.0) + +/* Reference epoch (J2000.0), Julian Date */ +#define DJ00 (2451545.0) + +/* Julian Date of Modified Julian Date zero */ +#define DJM0 (2400000.5) + +/* Reference epoch (J2000.0), Modified Julian Date */ +#define DJM00 (51544.5) + +/* 1977 Jan 1.0 as MJD */ +#define DJM77 (43144.0) + +/* TT minus TAI (s) */ +#define TTMTAI (32.184) + +/* Astronomical unit (m) */ +#define DAU (149597870e3) + +/* Speed of light (m/s) */ +#define CMPS 299792458.0 + +/* Light time for 1 au (s) */ +#define AULT 499.004782 + +/* Speed of light (AU per day) */ +#define DC (DAYSEC / AULT) + +/* L_G = 1 - d(TT)/d(TCG) */ +#define ELG (6.969290134e-10) + +/* L_B = 1 - d(TDB)/d(TCB), and TDB (s) at TAI 1977/1/1.0 */ +#define ELB (1.550519768e-8) +#define TDB0 (-6.55e-5) + +/* Schwarzschild radius of the Sun (au) */ +/* = 2 * 1.32712440041e20 / (2.99792458e8)^2 / 1.49597870700e11 */ +#define SRS 1.97412574336e-8 + +/* dint(A) - truncate to nearest whole number towards zero (double) */ +#define dint(A) ((A)<0.0?ceil(A):floor(A)) + +/* dnint(A) - round to nearest whole number (double) */ +#define dnint(A) ((A)<0.0?ceil((A)-0.5):floor((A)+0.5)) + +/* dsign(A,B) - magnitude of A with sign of B (double) */ +#define dsign(A,B) ((B)<0.0?-fabs(A):fabs(A)) + +/* max(A,B) - larger (most +ve) of two numbers (generic) */ +#define gmax(A,B) (((A)>(B))?(A):(B)) + +/* min(A,B) - smaller (least +ve) of two numbers (generic) */ +#define gmin(A,B) (((A)<(B))?(A):(B)) + +/* Reference ellipsoids */ +#define WGS84 1 +#define GRS80 2 +#define WGS72 3 + +#endif + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ Index: /trunk/FACT++/sofa/src/sp00.c =================================================================== --- /trunk/FACT++/sofa/src/sp00.c (revision 18346) +++ /trunk/FACT++/sofa/src/sp00.c (revision 18346) @@ -0,0 +1,167 @@ +#include "sofa.h" + +double iauSp00(double date1, double date2) +/* +** - - - - - - - - +** i a u S p 0 0 +** - - - - - - - - +** +** The TIO locator s', positioning the Terrestrial Intermediate Origin +** on the equator of the Celestial Intermediate Pole. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned (function value): +** double the TIO locator s' in radians (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The TIO locator s' is obtained from polar motion observations by +** numerical integration, and so is in essence unpredictable. +** However, it is dominated by a secular drift of about +** 47 microarcseconds per century, which is the approximation +** evaluated by the present function. +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double t, sp; + +/* Interval between fundamental epoch J2000.0 and current date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* Approximate s'. */ + sp = -47e-6 * t * DAS2R; + + return sp; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/starpm.c =================================================================== --- /trunk/FACT++/sofa/src/starpm.c (revision 18346) +++ /trunk/FACT++/sofa/src/starpm.c (revision 18346) @@ -0,0 +1,254 @@ +#include "sofa.h" + +int iauStarpm(double ra1, double dec1, + double pmr1, double pmd1, double px1, double rv1, + double ep1a, double ep1b, double ep2a, double ep2b, + double *ra2, double *dec2, + double *pmr2, double *pmd2, double *px2, double *rv2) +/* +** - - - - - - - - - - +** i a u S t a r p m +** - - - - - - - - - - +** +** Star proper motion: update star catalog data for space motion. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** ra1 double right ascension (radians), before +** dec1 double declination (radians), before +** pmr1 double RA proper motion (radians/year), before +** pmd1 double Dec proper motion (radians/year), before +** px1 double parallax (arcseconds), before +** rv1 double radial velocity (km/s, +ve = receding), before +** ep1a double "before" epoch, part A (Note 1) +** ep1b double "before" epoch, part B (Note 1) +** ep2a double "after" epoch, part A (Note 1) +** ep2b double "after" epoch, part B (Note 1) +** +** Returned: +** ra2 double right ascension (radians), after +** dec2 double declination (radians), after +** pmr2 double RA proper motion (radians/year), after +** pmd2 double Dec proper motion (radians/year), after +** px2 double parallax (arcseconds), after +** rv2 double radial velocity (km/s, +ve = receding), after +** +** Returned (function value): +** int status: +** -1 = system error (should not occur) +** 0 = no warnings or errors +** 1 = distance overridden (Note 6) +** 2 = excessive velocity (Note 7) +** 4 = solution didn't converge (Note 8) +** else = binary logical OR of the above warnings +** +** Notes: +** +** 1) The starting and ending TDB dates ep1a+ep1b and ep2a+ep2b are +** Julian Dates, apportioned in any convenient way between the two +** parts (A and B). For example, JD(TDB)=2450123.7 could be +** expressed in any of these ways, among others: +** +** epna epnb +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) In accordance with normal star-catalog conventions, the object's +** right ascension and declination are freed from the effects of +** secular aberration. The frame, which is aligned to the catalog +** equator and equinox, is Lorentzian and centered on the SSB. +** +** The proper motions are the rate of change of the right ascension +** and declination at the catalog epoch and are in radians per TDB +** Julian year. +** +** The parallax and radial velocity are in the same frame. +** +** 3) Care is needed with units. The star coordinates are in radians +** and the proper motions in radians per Julian year, but the +** parallax is in arcseconds. +** +** 4) The RA proper motion is in terms of coordinate angle, not true +** angle. If the catalog uses arcseconds for both RA and Dec proper +** motions, the RA proper motion will need to be divided by cos(Dec) +** before use. +** +** 5) Straight-line motion at constant speed, in the inertial frame, +** is assumed. +** +** 6) An extremely small (or zero or negative) parallax is interpreted +** to mean that the object is on the "celestial sphere", the radius +** of which is an arbitrary (large) value (see the iauStarpv +** function for the value used). When the distance is overridden in +** this way, the status, initially zero, has 1 added to it. +** +** 7) If the space velocity is a significant fraction of c (see the +** constant VMAX in the function iauStarpv), it is arbitrarily set +** to zero. When this action occurs, 2 is added to the status. +** +** 8) The relativistic adjustment carried out in the iauStarpv function +** involves an iterative calculation. If the process fails to +** converge within a set number of iterations, 4 is added to the +** status. +** +** Called: +** iauStarpv star catalog data to space motion pv-vector +** iauPvu update a pv-vector +** iauPdp scalar product of two p-vectors +** iauPvstar space motion pv-vector to star catalog data +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double pv1[2][3], tl1, dt, pv[2][3], r2, rdv, v2, c2mv2, tl2, + pv2[2][3]; + int j1, j2, j; + +/* RA,Dec etc. at the "before" epoch to space motion pv-vector. */ + j1 = iauStarpv(ra1, dec1, pmr1, pmd1, px1, rv1, pv1); + +/* Light time when observed (days). */ + tl1 = iauPm(pv1[0]) / DC; + +/* Time interval, "before" to "after" (days). */ + dt = (ep2a - ep1a) + (ep2b - ep1b); + +/* Move star along track from the "before" observed position to the */ +/* "after" geometric position. */ + iauPvu(dt + tl1, pv1, pv); + +/* From this geometric position, deduce the observed light time (days) */ +/* at the "after" epoch (with theoretically unneccessary error check). */ + r2 = iauPdp(pv[0], pv[0]); + rdv = iauPdp(pv[0], pv[1]); + v2 = iauPdp(pv[1], pv[1]); + c2mv2 = DC*DC - v2; + if (c2mv2 <= 0) return -1; + tl2 = (-rdv + sqrt(rdv*rdv + c2mv2*r2)) / c2mv2; + +/* Move the position along track from the observed place at the */ +/* "before" epoch to the observed place at the "after" epoch. */ + iauPvu(dt + (tl1 - tl2), pv1, pv2); + +/* Space motion pv-vector to RA,Dec etc. at the "after" epoch. */ + j2 = iauPvstar(pv2, ra2, dec2, pmr2, pmd2, px2, rv2); + +/* Final status. */ + j = (j2 == 0) ? j1 : -1; + + return j; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/starpv.c =================================================================== --- /trunk/FACT++/sofa/src/starpv.c (revision 18346) +++ /trunk/FACT++/sofa/src/starpv.c (revision 18346) @@ -0,0 +1,313 @@ +#include "sofa.h" + +int iauStarpv(double ra, double dec, + double pmr, double pmd, double px, double rv, + double pv[2][3]) +/* +** - - - - - - - - - - +** i a u S t a r p v +** - - - - - - - - - - +** +** Convert star catalog coordinates to position+velocity vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given (Note 1): +** ra double right ascension (radians) +** dec double declination (radians) +** pmr double RA proper motion (radians/year) +** pmd double Dec proper motion (radians/year) +** px double parallax (arcseconds) +** rv double radial velocity (km/s, positive = receding) +** +** Returned (Note 2): +** pv double[2][3] pv-vector (AU, AU/day) +** +** Returned (function value): +** int status: +** 0 = no warnings +** 1 = distance overridden (Note 6) +** 2 = excessive speed (Note 7) +** 4 = solution didn't converge (Note 8) +** else = binary logical OR of the above +** +** Notes: +** +** 1) The star data accepted by this function are "observables" for an +** imaginary observer at the solar-system barycenter. Proper motion +** and radial velocity are, strictly, in terms of barycentric +** coordinate time, TCB. For most practical applications, it is +** permissible to neglect the distinction between TCB and ordinary +** "proper" time on Earth (TT/TAI). The result will, as a rule, be +** limited by the intrinsic accuracy of the proper-motion and +** radial-velocity data; moreover, the pv-vector is likely to be +** merely an intermediate result, so that a change of time unit +** would cancel out overall. +** +** In accordance with normal star-catalog conventions, the object's +** right ascension and declination are freed from the effects of +** secular aberration. The frame, which is aligned to the catalog +** equator and equinox, is Lorentzian and centered on the SSB. +** +** 2) The resulting position and velocity pv-vector is with respect to +** the same frame and, like the catalog coordinates, is freed from +** the effects of secular aberration. Should the "coordinate +** direction", where the object was located at the catalog epoch, be +** required, it may be obtained by calculating the magnitude of the +** position vector pv[0][0-2] dividing by the speed of light in +** AU/day to give the light-time, and then multiplying the space +** velocity pv[1][0-2] by this light-time and adding the result to +** pv[0][0-2]. +** +** Summarizing, the pv-vector returned is for most stars almost +** identical to the result of applying the standard geometrical +** "space motion" transformation. The differences, which are the +** subject of the Stumpff paper referenced below, are: +** +** (i) In stars with significant radial velocity and proper motion, +** the constantly changing light-time distorts the apparent proper +** motion. Note that this is a classical, not a relativistic, +** effect. +** +** (ii) The transformation complies with special relativity. +** +** 3) Care is needed with units. The star coordinates are in radians +** and the proper motions in radians per Julian year, but the +** parallax is in arcseconds; the radial velocity is in km/s, but +** the pv-vector result is in AU and AU/day. +** +** 4) The RA proper motion is in terms of coordinate angle, not true +** angle. If the catalog uses arcseconds for both RA and Dec proper +** motions, the RA proper motion will need to be divided by cos(Dec) +** before use. +** +** 5) Straight-line motion at constant speed, in the inertial frame, +** is assumed. +** +** 6) An extremely small (or zero or negative) parallax is interpreted +** to mean that the object is on the "celestial sphere", the radius +** of which is an arbitrary (large) value (see the constant PXMIN). +** When the distance is overridden in this way, the status, +** initially zero, has 1 added to it. +** +** 7) If the space velocity is a significant fraction of c (see the +** constant VMAX), it is arbitrarily set to zero. When this action +** occurs, 2 is added to the status. +** +** 8) The relativistic adjustment involves an iterative calculation. +** If the process fails to converge within a set number (IMAX) of +** iterations, 4 is added to the status. +** +** 9) The inverse transformation is performed by the function +** iauPvstar. +** +** Called: +** iauS2pv spherical coordinates to pv-vector +** iauPm modulus of p-vector +** iauZp zero p-vector +** iauPn decompose p-vector into modulus and direction +** iauPdp scalar product of two p-vectors +** iauSxp multiply p-vector by scalar +** iauPmp p-vector minus p-vector +** iauPpp p-vector plus p-vector +** +** Reference: +** +** Stumpff, P., 1985, Astron.Astrophys. 144, 232-240. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ +/* Smallest allowed parallax */ + static const double PXMIN = 1e-7; + +/* Largest allowed speed (fraction of c) */ + static const double VMAX = 0.5; + +/* Maximum number of iterations for relativistic solution */ + static const int IMAX = 100; + + int i, iwarn; + double w, r, rd, rad, decd, v, x[3], usr[3], ust[3], + vsr, vst, betst, betsr, bett, betr, + dd, ddel, ur[3], ut[3], + d = 0.0, del = 0.0, /* to prevent */ + odd = 0.0, oddel = 0.0, /* compiler */ + od = 0.0, odel = 0.0; /* warnings */ + +/* Distance (AU). */ + if (px >= PXMIN) { + w = px; + iwarn = 0; + } else { + w = PXMIN; + iwarn = 1; + } + r = DR2AS / w; + +/* Radial velocity (AU/day). */ + rd = DAYSEC * rv * 1e3 / DAU; + +/* Proper motion (radian/day). */ + rad = pmr / DJY; + decd = pmd / DJY; + +/* To pv-vector (AU,AU/day). */ + iauS2pv(ra, dec, r, rad, decd, rd, pv); + +/* If excessive velocity, arbitrarily set it to zero. */ + v = iauPm(pv[1]); + if (v / DC > VMAX) { + iauZp(pv[1]); + iwarn += 2; + } + +/* Isolate the radial component of the velocity (AU/day). */ + iauPn(pv[0], &w, x); + vsr = iauPdp(x, pv[1]); + iauSxp(vsr, x, usr); + +/* Isolate the transverse component of the velocity (AU/day). */ + iauPmp(pv[1], usr, ust); + vst = iauPm(ust); + +/* Special-relativity dimensionless parameters. */ + betsr = vsr / DC; + betst = vst / DC; + +/* Determine the inertial-to-observed relativistic correction terms. */ + bett = betst; + betr = betsr; + for (i = 0; i < IMAX; i++) { + d = 1.0 + betr; + del = sqrt(1.0 - betr*betr - bett*bett) - 1.0; + betr = d * betsr + del; + bett = d * betst; + if (i > 0) { + dd = fabs(d - od); + ddel = fabs(del - odel); + if ((i > 1) && (dd >= odd) && (ddel >= oddel)) break; + odd = dd; + oddel = ddel; + } + od = d; + odel = del; + } + if (i >= IMAX) iwarn += 4; + +/* Replace observed radial velocity with inertial value. */ + w = (betsr != 0.0) ? d + del / betsr : 1.0; + iauSxp(w, usr, ur); + +/* Replace observed tangential velocity with inertial value. */ + iauSxp(d, ust, ut); + +/* Combine the two to obtain the inertial space velocity. */ + iauPpp(ur, ut, pv[1]); + +/* Return the status. */ + return iwarn; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/sxp.c =================================================================== --- /trunk/FACT++/sofa/src/sxp.c (revision 18346) +++ /trunk/FACT++/sofa/src/sxp.c (revision 18346) @@ -0,0 +1,134 @@ +#include "sofa.h" + +void iauSxp(double s, double p[3], double sp[3]) +/* +** - - - - - - - +** i a u S x p +** - - - - - - - +** +** Multiply a p-vector by a scalar. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** s double scalar +** p double[3] p-vector +** +** Returned: +** sp double[3] s * p +** +** Note: +** It is permissible for p and sp to be the same array. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + sp[0] = s * p[0]; + sp[1] = s * p[1]; + sp[2] = s * p[2]; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/sxpv.c =================================================================== --- /trunk/FACT++/sofa/src/sxpv.c (revision 18346) +++ /trunk/FACT++/sofa/src/sxpv.c (revision 18346) @@ -0,0 +1,135 @@ +#include "sofa.h" + +void iauSxpv(double s, double pv[2][3], double spv[2][3]) +/* +** - - - - - - - - +** i a u S x p v +** - - - - - - - - +** +** Multiply a pv-vector by a scalar. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** s double scalar +** pv double[2][3] pv-vector +** +** Returned: +** spv double[2][3] s * pv +** +** Note: +** It is permissible for pv and spv to be the same array +** +** Called: +** iauS2xpv multiply pv-vector by two scalars +** +** This revision: 2013 August 7 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + iauS2xpv(s, s, pv, spv); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/t_sofa_c.c =================================================================== --- /trunk/FACT++/sofa/src/t_sofa_c.c (revision 18346) +++ /trunk/FACT++/sofa/src/t_sofa_c.c (revision 18346) @@ -0,0 +1,9310 @@ +#include +#include + +static int verbose = 0; + +/* +** - - - - - - - - - +** t _ s o f a _ c +** - - - - - - - - - +** +** Validate the SOFA C functions. +** +** Each SOFA function is at least called and a usually quite basic test +** is performed. Successful completion is signalled by a confirming +** message. Failure of a given function or group of functions results +** in error messages. +** +** All messages go to stdout. +** +** This revision: 2015 January 30 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ + +static void viv(int ival, int ivalok, + const char *func, const char *test, int *status) +/* +** - - - - +** v i v +** - - - - +** +** Validate an integer result. +** +** Internal function used by t_sofa_c program. +** +** Given: +** ival int value computed by function under test +** ivalok int correct value +** func char[] name of function under test +** test char[] name of individual test +** +** Given and returned: +** status int set to TRUE if test fails +** +** This revision: 2013 August 7 +*/ +{ + if (ival != ivalok) { + *status = 1; + printf("%s failed: %s want %d got %d\n", + func, test, ivalok, ival); + } else if (verbose) { + printf("%s passed: %s want %d got %d\n", + func, test, ivalok, ival); + } + +} + +static void vvd(double val, double valok, double dval, + const char *func, const char *test, int *status) +/* +** - - - - +** v v d +** - - - - +** +** Validate a double result. +** +** Internal function used by t_sofa_c program. +** +** Given: +** val double value computed by function under test +** valok double expected value +** dval double maximum allowable error +** func char[] name of function under test +** test char[] name of individual test +** +** Given and returned: +** status int set to TRUE if test fails +** +** This revision: 2013 August 7 +*/ +{ + double a, f; /* absolute and fractional error */ + + + a = val - valok; + if (fabs(a) > dval) { + f = fabs(valok / a); + *status = 1; + printf("%s failed: %s want %.20g got %.20g (1/%.3g)\n", + func, test, valok, val, f); + } else if (verbose) { + printf("%s passed: %s want %.20g got %.20g\n", + func, test, valok, val); + } + +} + +static void t_a2af(int *status) +/* +** - - - - - - - +** t _ a 2 a f +** - - - - - - - +** +** Test iauA2af function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauA2af, viv +** +** This revision: 2013 August 7 +*/ +{ + int idmsf[4]; + char s; + + + iauA2af(4, 2.345, &s, idmsf); + + viv(s, '+', "iauA2af", "s", status); + + viv(idmsf[0], 134, "iauA2af", "0", status); + viv(idmsf[1], 21, "iauA2af", "1", status); + viv(idmsf[2], 30, "iauA2af", "2", status); + viv(idmsf[3], 9706, "iauA2af", "3", status); + +} + +static void t_a2tf(int *status) +/* +** - - - - - - - +** t _ a 2 t f +** - - - - - - - +** +** Test iauA2tf function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauA2tf, viv +** +** This revision: 2013 August 7 +*/ +{ + int ihmsf[4]; + char s; + + + iauA2tf(4, -3.01234, &s, ihmsf); + + viv((int)s, '-', "iauA2tf", "s", status); + + viv(ihmsf[0], 11, "iauA2tf", "0", status); + viv(ihmsf[1], 30, "iauA2tf", "1", status); + viv(ihmsf[2], 22, "iauA2tf", "2", status); + viv(ihmsf[3], 6484, "iauA2tf", "3", status); + +} + +static void t_ab(int *status) +/* +** - - - - - +** t _ a b +** - - - - - +** +** Test iauAb function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauAb, vvd +** +** This revision: 2013 October 1 +*/ +{ + double pnat[3], v[3], s, bm1, ppr[3]; + + + pnat[0] = -0.76321968546737951; + pnat[1] = -0.60869453983060384; + pnat[2] = -0.21676408580639883; + v[0] = 2.1044018893653786e-5; + v[1] = -8.9108923304429319e-5; + v[2] = -3.8633714797716569e-5; + s = 0.99980921395708788; + bm1 = 0.99999999506209258; + + iauAb(pnat, v, s, bm1, ppr); + + vvd(ppr[0], -0.7631631094219556269, 1e-12, "iauAb", "1", status); + vvd(ppr[1], -0.6087553082505590832, 1e-12, "iauAb", "2", status); + vvd(ppr[2], -0.2167926269368471279, 1e-12, "iauAb", "3", status); + +} + +static void t_af2a(int *status) +/* +** - - - - - - - +** t _ a f 2 a +** - - - - - - - +** +** Test iauAf2a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauAf2a, viv +** +** This revision: 2013 August 7 +*/ +{ + double a; + int j; + + + j = iauAf2a('-', 45, 13, 27.2, &a); + + vvd(a, -0.7893115794313644842, 1e-12, "iauAf2a", "a", status); + viv(j, 0, "iauAf2a", "j", status); + +} + +static void t_anp(int *status) +/* +** - - - - - - +** t _ a n p +** - - - - - - +** +** Test iauAnp function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauAnp, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauAnp(-0.1), 6.183185307179586477, 1e-12, "iauAnp", "", status); +} + +static void t_anpm(int *status) +/* +** - - - - - - - +** t _ a n p m +** - - - - - - - +** +** Test iauAnpm function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauAnpm, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauAnpm(-4.0), 2.283185307179586477, 1e-12, "iauAnpm", "", status); +} + +static void t_apcg(int *status) +/* +** - - - - - - - +** t _ a p c g +** - - - - - - - +** +** Test iauApcg function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApcg, vvd +** +** This revision: 2013 October 3 +*/ +{ + double date1, date2, ebpv[2][3], ehp[3]; + iauASTROM astrom; + + + date1 = 2456165.5; + date2 = 0.401182685; + ebpv[0][0] = 0.901310875; + ebpv[0][1] = -0.417402664; + ebpv[0][2] = -0.180982288; + ebpv[1][0] = 0.00742727954; + ebpv[1][1] = 0.0140507459; + ebpv[1][2] = 0.00609045792; + ehp[0] = 0.903358544; + ehp[1] = -0.415395237; + ehp[2] = -0.180084014; + + iauApcg(date1, date2, ebpv, ehp, &astrom); + + vvd(astrom.pmt, 12.65133794027378508, 1e-11, + "iauApcg", "pmt", status); + vvd(astrom.eb[0], 0.901310875, 1e-12, + "iauApcg", "eb(1)", status); + vvd(astrom.eb[1], -0.417402664, 1e-12, + "iauApcg", "eb(2)", status); + vvd(astrom.eb[2], -0.180982288, 1e-12, + "iauApcg", "eb(3)", status); + vvd(astrom.eh[0], 0.8940025429324143045, 1e-12, + "iauApcg", "eh(1)", status); + vvd(astrom.eh[1], -0.4110930268679817955, 1e-12, + "iauApcg", "eh(2)", status); + vvd(astrom.eh[2], -0.1782189004872870264, 1e-12, + "iauApcg", "eh(3)", status); + vvd(astrom.em, 1.010465295811013146, 1e-12, + "iauApcg", "em", status); + vvd(astrom.v[0], 0.4289638897813379954e-4, 1e-16, + "iauApcg", "v(1_", status); + vvd(astrom.v[1], 0.8115034021720941898e-4, 1e-16, + "iauApcg", "v(2)", status); + vvd(astrom.v[2], 0.3517555123437237778e-4, 1e-16, + "iauApcg", "v(3)", status); + vvd(astrom.bm1, 0.9999999951686013336, 1e-12, + "iauApcg", "bm1", status); + vvd(astrom.bpn[0][0], 1.0, 0.0, + "iauApcg", "bpn(1,1)", status); + vvd(astrom.bpn[1][0], 0.0, 0.0, + "iauApcg", "bpn(2,1)", status); + vvd(astrom.bpn[2][0], 0.0, 0.0, + "iauApcg", "bpn(3,1)", status); + vvd(astrom.bpn[0][1], 0.0, 0.0, + "iauApcg", "bpn(1,2)", status); + vvd(astrom.bpn[1][1], 1.0, 0.0, + "iauApcg", "bpn(2,2)", status); + vvd(astrom.bpn[2][1], 0.0, 0.0, + "iauApcg", "bpn(3,2)", status); + vvd(astrom.bpn[0][2], 0.0, 0.0, + "iauApcg", "bpn(1,3)", status); + vvd(astrom.bpn[1][2], 0.0, 0.0, + "iauApcg", "bpn(2,3)", status); + vvd(astrom.bpn[2][2], 1.0, 0.0, + "iauApcg", "bpn(3,3)", status); + +} + +static void t_apcg13(int *status) +/* +** - - - - - - - - - +** t _ a p c g 1 3 +** - - - - - - - - - +** +** Test iauApcg13 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApcg13, vvd +** +** This revision: 2013 October 3 +*/ +{ + double date1, date2; + iauASTROM astrom; + + + date1 = 2456165.5; + date2 = 0.401182685; + + iauApcg13(date1, date2, &astrom); + + vvd(astrom.pmt, 12.65133794027378508, 1e-11, + "iauApcg13", "pmt", status); + vvd(astrom.eb[0], 0.9013108747340644755, 1e-12, + "iauApcg13", "eb(1)", status); + vvd(astrom.eb[1], -0.4174026640406119957, 1e-12, + "iauApcg13", "eb(2)", status); + vvd(astrom.eb[2], -0.1809822877867817771, 1e-12, + "iauApcg13", "eb(3)", status); + vvd(astrom.eh[0], 0.8940025429255499549, 1e-12, + "iauApcg13", "eh(1)", status); + vvd(astrom.eh[1], -0.4110930268331896318, 1e-12, + "iauApcg13", "eh(2)", status); + vvd(astrom.eh[2], -0.1782189006019749850, 1e-12, + "iauApcg13", "eh(3)", status); + vvd(astrom.em, 1.010465295964664178, 1e-12, + "iauApcg13", "em", status); + vvd(astrom.v[0], 0.4289638897157027528e-4, 1e-16, + "iauApcg13", "v(1)", status); + vvd(astrom.v[1], 0.8115034002544663526e-4, 1e-16, + "iauApcg13", "v(2)", status); + vvd(astrom.v[2], 0.3517555122593144633e-4, 1e-16, + "iauApcg13", "v(3)", status); + vvd(astrom.bm1, 0.9999999951686013498, 1e-12, + "iauApcg13", "bm1", status); + vvd(astrom.bpn[0][0], 1.0, 0.0, + "iauApcg13", "bpn(1,1)", status); + vvd(astrom.bpn[1][0], 0.0, 0.0, + "iauApcg13", "bpn(2,1)", status); + vvd(astrom.bpn[2][0], 0.0, 0.0, + "iauApcg13", "bpn(3,1)", status); + vvd(astrom.bpn[0][1], 0.0, 0.0, + "iauApcg13", "bpn(1,2)", status); + vvd(astrom.bpn[1][1], 1.0, 0.0, + "iauApcg13", "bpn(2,2)", status); + vvd(astrom.bpn[2][1], 0.0, 0.0, + "iauApcg13", "bpn(3,2)", status); + vvd(astrom.bpn[0][2], 0.0, 0.0, + "iauApcg13", "bpn(1,3)", status); + vvd(astrom.bpn[1][2], 0.0, 0.0, + "iauApcg13", "bpn(2,3)", status); + vvd(astrom.bpn[2][2], 1.0, 0.0, + "iauApcg13", "bpn(3,3)", status); + +} + +static void t_apci(int *status) +/* +** - - - - - - - +** t _ a p c i +** - - - - - - - +** +** Test iauApci function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApci, vvd +** +** This revision: 2013 October 3 +*/ +{ + double date1, date2, ebpv[2][3], ehp[3], x, y, s; + iauASTROM astrom; + + + date1 = 2456165.5; + date2 = 0.401182685; + ebpv[0][0] = 0.901310875; + ebpv[0][1] = -0.417402664; + ebpv[0][2] = -0.180982288; + ebpv[1][0] = 0.00742727954; + ebpv[1][1] = 0.0140507459; + ebpv[1][2] = 0.00609045792; + ehp[0] = 0.903358544; + ehp[1] = -0.415395237; + ehp[2] = -0.180084014; + x = 0.0013122272; + y = -2.92808623e-5; + s = 3.05749468e-8; + + iauApci(date1, date2, ebpv, ehp, x, y, s, &astrom); + + vvd(astrom.pmt, 12.65133794027378508, 1e-11, + "iauApci", "pmt", status); + vvd(astrom.eb[0], 0.901310875, 1e-12, + "iauApci", "eb(1)", status); + vvd(astrom.eb[1], -0.417402664, 1e-12, + "iauApci", "eb(2)", status); + vvd(astrom.eb[2], -0.180982288, 1e-12, + "iauApci", "eb(3)", status); + vvd(astrom.eh[0], 0.8940025429324143045, 1e-12, + "iauApci", "eh(1)", status); + vvd(astrom.eh[1], -0.4110930268679817955, 1e-12, + "iauApci", "eh(2)", status); + vvd(astrom.eh[2], -0.1782189004872870264, 1e-12, + "iauApci", "eh(3)", status); + vvd(astrom.em, 1.010465295811013146, 1e-12, + "iauApci", "em", status); + vvd(astrom.v[0], 0.4289638897813379954e-4, 1e-16, + "iauApci", "v(1)", status); + vvd(astrom.v[1], 0.8115034021720941898e-4, 1e-16, + "iauApci", "v(2)", status); + vvd(astrom.v[2], 0.3517555123437237778e-4, 1e-16, + "iauApci", "v(3)", status); + vvd(astrom.bm1, 0.9999999951686013336, 1e-12, + "iauApci", "bm1", status); + vvd(astrom.bpn[0][0], 0.9999991390295159156, 1e-12, + "iauApci", "bpn(1,1)", status); + vvd(astrom.bpn[1][0], 0.4978650072505016932e-7, 1e-12, + "iauApci", "bpn(2,1)", status); + vvd(astrom.bpn[2][0], 0.1312227200000000000e-2, 1e-12, + "iauApci", "bpn(3,1)", status); + vvd(astrom.bpn[0][1], -0.1136336653771609630e-7, 1e-12, + "iauApci", "bpn(1,2)", status); + vvd(astrom.bpn[1][1], 0.9999999995713154868, 1e-12, + "iauApci", "bpn(2,2)", status); + vvd(astrom.bpn[2][1], -0.2928086230000000000e-4, 1e-12, + "iauApci", "bpn(3,2)", status); + vvd(astrom.bpn[0][2], -0.1312227200895260194e-2, 1e-12, + "iauApci", "bpn(1,3)", status); + vvd(astrom.bpn[1][2], 0.2928082217872315680e-4, 1e-12, + "iauApci", "bpn(2,3)", status); + vvd(astrom.bpn[2][2], 0.9999991386008323373, 1e-12, + "iauApci", "bpn(3,3)", status); + +} + +static void t_apci13(int *status) +/* +** - - - - - - - - - +** t _ a p c i 1 3 +** - - - - - - - - - +** +** Test iauApci13 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApci13, vvd +** +** This revision: 2013 October 3 +*/ +{ + double date1, date2, eo; + iauASTROM astrom; + + + date1 = 2456165.5; + date2 = 0.401182685; + + iauApci13(date1, date2, &astrom, &eo); + + vvd(astrom.pmt, 12.65133794027378508, 1e-11, + "iauApci13", "pmt", status); + vvd(astrom.eb[0], 0.9013108747340644755, 1e-12, + "iauApci13", "eb(1)", status); + vvd(astrom.eb[1], -0.4174026640406119957, 1e-12, + "iauApci13", "eb(2)", status); + vvd(astrom.eb[2], -0.1809822877867817771, 1e-12, + "iauApci13", "eb(3)", status); + vvd(astrom.eh[0], 0.8940025429255499549, 1e-12, + "iauApci13", "eh(1)", status); + vvd(astrom.eh[1], -0.4110930268331896318, 1e-12, + "iauApci13", "eh(2)", status); + vvd(astrom.eh[2], -0.1782189006019749850, 1e-12, + "iauApci13", "eh(3)", status); + vvd(astrom.em, 1.010465295964664178, 1e-12, + "iauApci13", "em", status); + vvd(astrom.v[0], 0.4289638897157027528e-4, 1e-16, + "iauApci13", "v(1)", status); + vvd(astrom.v[1], 0.8115034002544663526e-4, 1e-16, + "iauApci13", "v(2)", status); + vvd(astrom.v[2], 0.3517555122593144633e-4, 1e-16, + "iauApci13", "v(3)", status); + vvd(astrom.bm1, 0.9999999951686013498, 1e-12, + "iauApci13", "bm1", status); + vvd(astrom.bpn[0][0], 0.9999992060376761710, 1e-12, + "iauApci13", "bpn(1,1)", status); + vvd(astrom.bpn[1][0], 0.4124244860106037157e-7, 1e-12, + "iauApci13", "bpn(2,1)", status); + vvd(astrom.bpn[2][0], 0.1260128571051709670e-2, 1e-12, + "iauApci13", "bpn(3,1)", status); + vvd(astrom.bpn[0][1], -0.1282291987222130690e-7, 1e-12, + "iauApci13", "bpn(1,2)", status); + vvd(astrom.bpn[1][1], 0.9999999997456835325, 1e-12, + "iauApci13", "bpn(2,2)", status); + vvd(astrom.bpn[2][1], -0.2255288829420524935e-4, 1e-12, + "iauApci13", "bpn(3,2)", status); + vvd(astrom.bpn[0][2], -0.1260128571661374559e-2, 1e-12, + "iauApci13", "bpn(1,3)", status); + vvd(astrom.bpn[1][2], 0.2255285422953395494e-4, 1e-12, + "iauApci13", "bpn(2,3)", status); + vvd(astrom.bpn[2][2], 0.9999992057833604343, 1e-12, + "iauApci13", "bpn(3,3)", status); + vvd(eo, -0.2900618712657375647e-2, 1e-12, + "iauApci13", "eo", status); + +} + +static void t_apco(int *status) +/* +** - - - - - - - +** t _ a p c o +** - - - - - - - +** +** Test iauApco function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApco, vvd +** +** This revision: 2013 October 3 +*/ +{ + double date1, date2, ebpv[2][3], ehp[3], x, y, s, + theta, elong, phi, hm, xp, yp, sp, refa, refb; + iauASTROM astrom; + + + date1 = 2456384.5; + date2 = 0.970031644; + ebpv[0][0] = -0.974170438; + ebpv[0][1] = -0.211520082; + ebpv[0][2] = -0.0917583024; + ebpv[1][0] = 0.00364365824; + ebpv[1][1] = -0.0154287319; + ebpv[1][2] = -0.00668922024; + ehp[0] = -0.973458265; + ehp[1] = -0.209215307; + ehp[2] = -0.0906996477; + x = 0.0013122272; + y = -2.92808623e-5; + s = 3.05749468e-8; + theta = 3.14540971; + elong = -0.527800806; + phi = -1.2345856; + hm = 2738.0; + xp = 2.47230737e-7; + yp = 1.82640464e-6; + sp = -3.01974337e-11; + refa = 0.000201418779; + refb = -2.36140831e-7; + + iauApco(date1, date2, ebpv, ehp, x, y, s, + theta, elong, phi, hm, xp, yp, sp, + refa, refb, &astrom); + + vvd(astrom.pmt, 13.25248468622587269, 1e-11, + "iauApco", "pmt", status); + vvd(astrom.eb[0], -0.9741827110630897003, 1e-12, + "iauApco", "eb(1)", status); + vvd(astrom.eb[1], -0.2115130190135014340, 1e-12, + "iauApco", "eb(2)", status); + vvd(astrom.eb[2], -0.09179840186968295686, 1e-12, + "iauApco", "eb(3)", status); + vvd(astrom.eh[0], -0.9736425571689670428, 1e-12, + "iauApco", "eh(1)", status); + vvd(astrom.eh[1], -0.2092452125848862201, 1e-12, + "iauApco", "eh(2)", status); + vvd(astrom.eh[2], -0.09075578152261439954, 1e-12, + "iauApco", "eh(3)", status); + vvd(astrom.em, 0.9998233241710617934, 1e-12, + "iauApco", "em", status); + vvd(astrom.v[0], 0.2078704985147609823e-4, 1e-16, + "iauApco", "v(1)", status); + vvd(astrom.v[1], -0.8955360074407552709e-4, 1e-16, + "iauApco", "v(2)", status); + vvd(astrom.v[2], -0.3863338980073114703e-4, 1e-16, + "iauApco", "v(3)", status); + vvd(astrom.bm1, 0.9999999950277561600, 1e-12, + "iauApco", "bm1", status); + vvd(astrom.bpn[0][0], 0.9999991390295159156, 1e-12, + "iauApco", "bpn(1,1)", status); + vvd(astrom.bpn[1][0], 0.4978650072505016932e-7, 1e-12, + "iauApco", "bpn(2,1)", status); + vvd(astrom.bpn[2][0], 0.1312227200000000000e-2, 1e-12, + "iauApco", "bpn(3,1)", status); + vvd(astrom.bpn[0][1], -0.1136336653771609630e-7, 1e-12, + "iauApco", "bpn(1,2)", status); + vvd(astrom.bpn[1][1], 0.9999999995713154868, 1e-12, + "iauApco", "bpn(2,2)", status); + vvd(astrom.bpn[2][1], -0.2928086230000000000e-4, 1e-12, + "iauApco", "bpn(3,2)", status); + vvd(astrom.bpn[0][2], -0.1312227200895260194e-2, 1e-12, + "iauApco", "bpn(1,3)", status); + vvd(astrom.bpn[1][2], 0.2928082217872315680e-4, 1e-12, + "iauApco", "bpn(2,3)", status); + vvd(astrom.bpn[2][2], 0.9999991386008323373, 1e-12, + "iauApco", "bpn(3,3)", status); + vvd(astrom.along, -0.5278008060301974337, 1e-12, + "iauApco", "along", status); + vvd(astrom.xpl, 0.1133427418174939329e-5, 1e-17, + "iauApco", "xpl", status); + vvd(astrom.ypl, 0.1453347595745898629e-5, 1e-17, + "iauApco", "ypl", status); + vvd(astrom.sphi, -0.9440115679003211329, 1e-12, + "iauApco", "sphi", status); + vvd(astrom.cphi, 0.3299123514971474711, 1e-12, + "iauApco", "cphi", status); + vvd(astrom.diurab, 0, 0, + "iauApco", "diurab", status); + vvd(astrom.eral, 2.617608903969802566, 1e-12, + "iauApco", "eral", status); + vvd(astrom.refa, 0.2014187790000000000e-3, 1e-15, + "iauApco", "refa", status); + vvd(astrom.refb, -0.2361408310000000000e-6, 1e-18, + "iauApco", "refb", status); + +} + +static void t_apco13(int *status) +/* +** - - - - - - - - - +** t _ a p c o 1 3 +** - - - - - - - - - +** +** Test iauApco13 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApco13, vvd, viv +** +** This revision: 2013 October 4 +*/ +{ + double utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, eo; + iauASTROM astrom; + int j; + + + utc1 = 2456384.5; + utc2 = 0.969254051; + dut1 = 0.1550675; + elong = -0.527800806; + phi = -1.2345856; + hm = 2738.0; + xp = 2.47230737e-7; + yp = 1.82640464e-6; + phpa = 731.0; + tc = 12.8; + rh = 0.59; + wl = 0.55; + + j = iauApco13(utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, &astrom, &eo); + + vvd(astrom.pmt, 13.25248468622475727, 1e-11, + "iauApco13", "pmt", status); + vvd(astrom.eb[0], -0.9741827107321449445, 1e-12, + "iauApco13", "eb(1)", status); + vvd(astrom.eb[1], -0.2115130190489386190, 1e-12, + "iauApco13", "eb(2)", status); + vvd(astrom.eb[2], -0.09179840189515518726, 1e-12, + "iauApco13", "eb(3)", status); + vvd(astrom.eh[0], -0.9736425572586866640, 1e-12, + "iauApco13", "eh(1)", status); + vvd(astrom.eh[1], -0.2092452121602867431, 1e-12, + "iauApco13", "eh(2)", status); + vvd(astrom.eh[2], -0.09075578153903832650, 1e-12, + "iauApco13", "eh(3)", status); + vvd(astrom.em, 0.9998233240914558422, 1e-12, + "iauApco13", "em", status); + vvd(astrom.v[0], 0.2078704986751370303e-4, 1e-16, + "iauApco13", "v(1)", status); + vvd(astrom.v[1], -0.8955360100494469232e-4, 1e-16, + "iauApco13", "v(2)", status); + vvd(astrom.v[2], -0.3863338978840051024e-4, 1e-16, + "iauApco13", "v(3)", status); + vvd(astrom.bm1, 0.9999999950277561368, 1e-12, + "iauApco13", "bm1", status); + vvd(astrom.bpn[0][0], 0.9999991390295147999, 1e-12, + "iauApco13", "bpn(1,1)", status); + vvd(astrom.bpn[1][0], 0.4978650075315529277e-7, 1e-12, + "iauApco13", "bpn(2,1)", status); + vvd(astrom.bpn[2][0], 0.001312227200850293372, 1e-12, + "iauApco13", "bpn(3,1)", status); + vvd(astrom.bpn[0][1], -0.1136336652812486604e-7, 1e-12, + "iauApco13", "bpn(1,2)", status); + vvd(astrom.bpn[1][1], 0.9999999995713154865, 1e-12, + "iauApco13", "bpn(2,2)", status); + vvd(astrom.bpn[2][1], -0.2928086230975367296e-4, 1e-12, + "iauApco13", "bpn(3,2)", status); + vvd(astrom.bpn[0][2], -0.001312227201745553566, 1e-12, + "iauApco13", "bpn(1,3)", status); + vvd(astrom.bpn[1][2], 0.2928082218847679162e-4, 1e-12, + "iauApco13", "bpn(2,3)", status); + vvd(astrom.bpn[2][2], 0.9999991386008312212, 1e-12, + "iauApco13", "bpn(3,3)", status); + vvd(astrom.along, -0.5278008060301974337, 1e-12, + "iauApco13", "along", status); + vvd(astrom.xpl, 0.1133427418174939329e-5, 1e-17, + "iauApco13", "xpl", status); + vvd(astrom.ypl, 0.1453347595745898629e-5, 1e-17, + "iauApco13", "ypl", status); + vvd(astrom.sphi, -0.9440115679003211329, 1e-12, + "iauApco13", "sphi", status); + vvd(astrom.cphi, 0.3299123514971474711, 1e-12, + "iauApco13", "cphi", status); + vvd(astrom.diurab, 0, 0, + "iauApco13", "diurab", status); + vvd(astrom.eral, 2.617608909189066140, 1e-12, + "iauApco13", "eral", status); + vvd(astrom.refa, 0.2014187785940396921e-3, 1e-15, + "iauApco13", "refa", status); + vvd(astrom.refb, -0.2361408314943696227e-6, 1e-18, + "iauApco13", "refb", status); + vvd(eo, -0.003020548354802412839, 1e-14, + "iauApco13", "eo", status); + viv(j, 0, "iauApco13", "j", status); + +} + +static void t_apcs(int *status) +/* +** - - - - - - - +** t _ a p c s +** - - - - - - - +** +** Test iauApcs function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApcs, vvd +** +** This revision: 2013 October 3 +*/ +{ + double date1, date2, pv[2][3], ebpv[2][3], ehp[3]; + iauASTROM astrom; + + + date1 = 2456384.5; + date2 = 0.970031644; + pv[0][0] = -1836024.09; + pv[0][1] = 1056607.72; + pv[0][2] = -5998795.26; + pv[1][0] = -77.0361767; + pv[1][1] = -133.310856; + pv[1][2] = 0.0971855934; + ebpv[0][0] = -0.974170438; + ebpv[0][1] = -0.211520082; + ebpv[0][2] = -0.0917583024; + ebpv[1][0] = 0.00364365824; + ebpv[1][1] = -0.0154287319; + ebpv[1][2] = -0.00668922024; + ehp[0] = -0.973458265; + ehp[1] = -0.209215307; + ehp[2] = -0.0906996477; + + iauApcs(date1, date2, pv, ebpv, ehp, &astrom); + + vvd(astrom.pmt, 13.25248468622587269, 1e-11, + "iauApcs", "pmt", status); + vvd(astrom.eb[0], -0.9741827110630456169, 1e-12, + "iauApcs", "eb(1)", status); + vvd(astrom.eb[1], -0.2115130190136085494, 1e-12, + "iauApcs", "eb(2)", status); + vvd(astrom.eb[2], -0.09179840186973175487, 1e-12, + "iauApcs", "eb(3)", status); + vvd(astrom.eh[0], -0.9736425571689386099, 1e-12, + "iauApcs", "eh(1)", status); + vvd(astrom.eh[1], -0.2092452125849967195, 1e-12, + "iauApcs", "eh(2)", status); + vvd(astrom.eh[2], -0.09075578152266466572, 1e-12, + "iauApcs", "eh(3)", status); + vvd(astrom.em, 0.9998233241710457140, 1e-12, + "iauApcs", "em", status); + vvd(astrom.v[0], 0.2078704985513566571e-4, 1e-16, + "iauApcs", "v(1)", status); + vvd(astrom.v[1], -0.8955360074245006073e-4, 1e-16, + "iauApcs", "v(2)", status); + vvd(astrom.v[2], -0.3863338980073572719e-4, 1e-16, + "iauApcs", "v(3)", status); + vvd(astrom.bm1, 0.9999999950277561601, 1e-12, + "iauApcs", "bm1", status); + vvd(astrom.bpn[0][0], 1, 0, + "iauApcs", "bpn(1,1)", status); + vvd(astrom.bpn[1][0], 0, 0, + "iauApcs", "bpn(2,1)", status); + vvd(astrom.bpn[2][0], 0, 0, + "iauApcs", "bpn(3,1)", status); + vvd(astrom.bpn[0][1], 0, 0, + "iauApcs", "bpn(1,2)", status); + vvd(astrom.bpn[1][1], 1, 0, + "iauApcs", "bpn(2,2)", status); + vvd(astrom.bpn[2][1], 0, 0, + "iauApcs", "bpn(3,2)", status); + vvd(astrom.bpn[0][2], 0, 0, + "iauApcs", "bpn(1,3)", status); + vvd(astrom.bpn[1][2], 0, 0, + "iauApcs", "bpn(2,3)", status); + vvd(astrom.bpn[2][2], 1, 0, + "iauApcs", "bpn(3,3)", status); + +} + +static void t_apcs13(int *status) +/* +** - - - - - - - - - +** t _ a p c s 1 3 +** - - - - - - - - - +** +** Test iauApcs13 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApcs13, vvd +** +** This revision: 2013 October 3 +*/ +{ + double date1, date2, pv[2][3]; + iauASTROM astrom; + + + date1 = 2456165.5; + date2 = 0.401182685; + pv[0][0] = -6241497.16; + pv[0][1] = 401346.896; + pv[0][2] = -1251136.04; + pv[1][0] = -29.264597; + pv[1][1] = -455.021831; + pv[1][2] = 0.0266151194; + + iauApcs13(date1, date2, pv, &astrom); + + vvd(astrom.pmt, 12.65133794027378508, 1e-11, + "iauApcs13", "pmt", status); + vvd(astrom.eb[0], 0.9012691529023298391, 1e-12, + "iauApcs13", "eb(1)", status); + vvd(astrom.eb[1], -0.4173999812023068781, 1e-12, + "iauApcs13", "eb(2)", status); + vvd(astrom.eb[2], -0.1809906511146821008, 1e-12, + "iauApcs13", "eb(3)", status); + vvd(astrom.eh[0], 0.8939939101759726824, 1e-12, + "iauApcs13", "eh(1)", status); + vvd(astrom.eh[1], -0.4111053891734599955, 1e-12, + "iauApcs13", "eh(2)", status); + vvd(astrom.eh[2], -0.1782336880637689334, 1e-12, + "iauApcs13", "eh(3)", status); + vvd(astrom.em, 1.010428384373318379, 1e-12, + "iauApcs13", "em", status); + vvd(astrom.v[0], 0.4279877278327626511e-4, 1e-16, + "iauApcs13", "v(1)", status); + vvd(astrom.v[1], 0.7963255057040027770e-4, 1e-16, + "iauApcs13", "v(2)", status); + vvd(astrom.v[2], 0.3517564000441374759e-4, 1e-16, + "iauApcs13", "v(3)", status); + vvd(astrom.bm1, 0.9999999952947981330, 1e-12, + "iauApcs13", "bm1", status); + vvd(astrom.bpn[0][0], 1, 0, + "iauApcs13", "bpn(1,1)", status); + vvd(astrom.bpn[1][0], 0, 0, + "iauApcs13", "bpn(2,1)", status); + vvd(astrom.bpn[2][0], 0, 0, + "iauApcs13", "bpn(3,1)", status); + vvd(astrom.bpn[0][1], 0, 0, + "iauApcs13", "bpn(1,2)", status); + vvd(astrom.bpn[1][1], 1, 0, + "iauApcs13", "bpn(2,2)", status); + vvd(astrom.bpn[2][1], 0, 0, + "iauApcs13", "bpn(3,2)", status); + vvd(astrom.bpn[0][2], 0, 0, + "iauApcs13", "bpn(1,3)", status); + vvd(astrom.bpn[1][2], 0, 0, + "iauApcs13", "bpn(2,3)", status); + vvd(astrom.bpn[2][2], 1, 0, + "iauApcs13", "bpn(3,3)", status); + +} + +static void t_aper(int *status) +/* +** - - - - - - - +** t _ a p e r +** - - - - - - - +* +** Test iauAper function. +* +** Returned: +** status int FALSE = success, TRUE = fail +* +** Called: iauAper, vvd +* +** This revision: 2013 October 3 +*/ +{ + double theta; + iauASTROM astrom; + + + astrom.along = 1.234; + theta = 5.678; + + iauAper(theta, &astrom); + + vvd(astrom.eral, 6.912000000000000000, 1e-12, + "iauAper", "pmt", status); + +} + +static void t_aper13(int *status) +/* +** - - - - - - - - - +** t _ a p e r 1 3 +** - - - - - - - - - +** +** Test iauAper13 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauAper13, vvd +** +** This revision: 2013 October 3 +*/ +{ + double ut11, ut12; + iauASTROM astrom; + + + astrom.along = 1.234; + ut11 = 2456165.5; + ut12 = 0.401182685; + + iauAper13(ut11, ut12, &astrom); + + vvd(astrom.eral, 3.316236661789694933, 1e-12, + "iauAper13", "pmt", status); + +} + +static void t_apio(int *status) +/* +** - - - - - - - +** t _ a p i o +** - - - - - - - +** +** Test iauApio function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApio, vvd +** +** This revision: 2013 October 3 +*/ +{ + double sp, theta, elong, phi, hm, xp, yp, refa, refb; + iauASTROM astrom; + + + sp = -3.01974337e-11; + theta = 3.14540971; + elong = -0.527800806; + phi = -1.2345856; + hm = 2738.0; + xp = 2.47230737e-7; + yp = 1.82640464e-6; + refa = 0.000201418779; + refb = -2.36140831e-7; + + iauApio(sp, theta, elong, phi, hm, xp, yp, refa, refb, &astrom); + + vvd(astrom.along, -0.5278008060301974337, 1e-12, + "iauApio", "along", status); + vvd(astrom.xpl, 0.1133427418174939329e-5, 1e-17, + "iauApio", "xpl", status); + vvd(astrom.ypl, 0.1453347595745898629e-5, 1e-17, + "iauApio", "ypl", status); + vvd(astrom.sphi, -0.9440115679003211329, 1e-12, + "iauApio", "sphi", status); + vvd(astrom.cphi, 0.3299123514971474711, 1e-12, + "iauApio", "cphi", status); + vvd(astrom.diurab, 0.5135843661699913529e-6, 1e-12, + "iauApio", "diurab", status); + vvd(astrom.eral, 2.617608903969802566, 1e-12, + "iauApio", "eral", status); + vvd(astrom.refa, 0.2014187790000000000e-3, 1e-15, + "iauApio", "refa", status); + vvd(astrom.refb, -0.2361408310000000000e-6, 1e-18, + "iauApio", "refb", status); + +} + +static void t_apio13(int *status) +/* +** - - - - - - - - - +** t _ a p i o 1 3 +** - - - - - - - - - +** +** Test iauApio13 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApio13, vvd, viv +** +** This revision: 2013 October 4 +*/ +{ + double utc1, utc2, dut1, elong, phi, hm, xp, yp, phpa, tc, rh, wl; + int j; + iauASTROM astrom; + + + utc1 = 2456384.5; + utc2 = 0.969254051; + dut1 = 0.1550675; + elong = -0.527800806; + phi = -1.2345856; + hm = 2738.0; + xp = 2.47230737e-7; + yp = 1.82640464e-6; + phpa = 731.0; + tc = 12.8; + rh = 0.59; + wl = 0.55; + + j = iauApio13(utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, &astrom); + + vvd(astrom.along, -0.5278008060301974337, 1e-12, + "iauApio13", "along", status); + vvd(astrom.xpl, 0.1133427418174939329e-5, 1e-17, + "iauApio13", "xpl", status); + vvd(astrom.ypl, 0.1453347595745898629e-5, 1e-17, + "iauApio13", "ypl", status); + vvd(astrom.sphi, -0.9440115679003211329, 1e-12, + "iauApio13", "sphi", status); + vvd(astrom.cphi, 0.3299123514971474711, 1e-12, + "iauApio13", "cphi", status); + vvd(astrom.diurab, 0.5135843661699913529e-6, 1e-12, + "iauApio13", "diurab", status); + vvd(astrom.eral, 2.617608909189066140, 1e-12, + "iauApio13", "eral", status); + vvd(astrom.refa, 0.2014187785940396921e-3, 1e-15, + "iauApio13", "refa", status); + vvd(astrom.refb, -0.2361408314943696227e-6, 1e-18, + "iauApio13", "refb", status); + viv(j, 0, "iauApio13", "j", status); + +} + +static void t_atci13(int *status) +/* +** - - - - - - - - - +** t _ a t c i 1 3 +** - - - - - - - - - +** +** Test iauAtci13 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauAtci13, vvd +** +** This revision: 2013 October 3 +*/ +{ + double rc, dc, pr, pd, px, rv, date1, date2, ri, di, eo; + + + rc = 2.71; + dc = 0.174; + pr = 1e-5; + pd = 5e-6; + px = 0.1; + rv = 55.0; + date1 = 2456165.5; + date2 = 0.401182685; + + iauAtci13(rc, dc, pr, pd, px, rv, date1, date2, &ri, &di, &eo); + + vvd(ri, 2.710121572969038991, 1e-12, + "iauAtci13", "ri", status); + vvd(di, 0.1729371367218230438, 1e-12, + "iauAtci13", "di", status); + vvd(eo, -0.002900618712657375647, 1e-14, + "iauAtci13", "eo", status); + +} + +static void t_atciq(int *status) +/* +** - - - - - - - - +** t _ a t c i q +** - - - - - - - - +** +** Test iauAtciq function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApci13, iauAtciq, vvd +** +** This revision: 2013 October 3 +*/ +{ + double date1, date2, eo, rc, dc, pr, pd, px, rv, ri, di; + iauASTROM astrom; + + date1 = 2456165.5; + date2 = 0.401182685; + iauApci13(date1, date2, &astrom, &eo); + rc = 2.71; + dc = 0.174; + pr = 1e-5; + pd = 5e-6; + px = 0.1; + rv = 55.0; + + iauAtciq(rc, dc, pr, pd, px, rv, &astrom, &ri, &di); + + vvd(ri, 2.710121572969038991, 1e-12, "iauAtciq", "ri", status); + vvd(di, 0.1729371367218230438, 1e-12, "iauAtciq", "di", status); + +} + +static void t_atciqn(int *status) +/* +** - - - - - - - - - +** t _ a t c i q n +** - - - - - - - - - +** +** Test iauAtciqn function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApci13, iauAtciqn, vvd +** +** This revision: 2013 October 3 +*/ +{ + iauLDBODY b[3]; + double date1, date2, eo, rc, dc, pr, pd, px, rv, ri, di; + iauASTROM astrom; + + date1 = 2456165.5; + date2 = 0.401182685; + iauApci13(date1, date2, &astrom, &eo); + rc = 2.71; + dc = 0.174; + pr = 1e-5; + pd = 5e-6; + px = 0.1; + rv = 55.0; + b[0].bm = 0.00028574; + b[0].dl = 3e-10; + b[0].pv[0][0] = -7.81014427; + b[0].pv[0][1] = -5.60956681; + b[0].pv[0][2] = -1.98079819; + b[0].pv[1][0] = 0.0030723249; + b[0].pv[1][1] = -0.00406995477; + b[0].pv[1][2] = -0.00181335842; + b[1].bm = 0.00095435; + b[1].dl = 3e-9; + b[1].pv[0][0] = 0.738098796; + b[1].pv[0][1] = 4.63658692; + b[1].pv[0][2] = 1.9693136; + b[1].pv[1][0] = -0.00755816922; + b[1].pv[1][1] = 0.00126913722; + b[1].pv[1][2] = 0.000727999001; + b[2].bm = 1.0; + b[2].dl = 6e-6; + b[2].pv[0][0] = -0.000712174377; + b[2].pv[0][1] = -0.00230478303; + b[2].pv[0][2] = -0.00105865966; + b[2].pv[1][0] = 6.29235213e-6; + b[2].pv[1][1] = -3.30888387e-7; + b[2].pv[1][2] = -2.96486623e-7; + + iauAtciqn ( rc, dc, pr, pd, px, rv, &astrom, 3, b, &ri, &di); + + vvd(ri, 2.710122008105325582, 1e-12, "iauAtciqn", "ri", status); + vvd(di, 0.1729371916491459122, 1e-12, "iauAtciqn", "di", status); + +} + +static void t_atciqz(int *status) +/* +** - - - - - - - - - +** t _ a t c i q z +** - - - - - - - - - +** +** Test iauAtciqz function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApci13, iauAtciqz, vvd +** +** This revision: 2013 October 3 +*/ +{ + double date1, date2, eo, rc, dc, ri, di; + iauASTROM astrom; + + + date1 = 2456165.5; + date2 = 0.401182685; + iauApci13(date1, date2, &astrom, &eo); + rc = 2.71; + dc = 0.174; + + iauAtciqz(rc, dc, &astrom, &ri, &di); + + vvd(ri, 2.709994899247599271, 1e-12, "iauAtciqz", "ri", status); + vvd(di, 0.1728740720983623469, 1e-12, "iauAtciqz", "di", status); + +} + +static void t_atco13(int *status) +/* +** - - - - - - - - - +** t _ a t c o 1 3 +** - - - - - - - - - +** +** Test iauAtco13 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauAtco13, vvd, viv +** +** This revision: 2013 October 4 +*/ +{ + double rc, dc, pr, pd, px, rv, utc1, utc2, dut1, + elong, phi, hm, xp, yp, phpa, tc, rh, wl, + aob, zob, hob, dob, rob, eo; + int j; + + + rc = 2.71; + dc = 0.174; + pr = 1e-5; + pd = 5e-6; + px = 0.1; + rv = 55.0; + utc1 = 2456384.5; + utc2 = 0.969254051; + dut1 = 0.1550675; + elong = -0.527800806; + phi = -1.2345856; + hm = 2738.0; + xp = 2.47230737e-7; + yp = 1.82640464e-6; + phpa = 731.0; + tc = 12.8; + rh = 0.59; + wl = 0.55; + + j = iauAtco13(rc, dc, pr, pd, px, rv, + utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, + &aob, &zob, &hob, &dob, &rob, &eo); + + vvd(aob, 0.09251774485358230653, 1e-12, "iauAtco13", "aob", status); + vvd(zob, 1.407661405256767021, 1e-12, "iauAtco13", "zob", status); + vvd(hob, -0.09265154431403157925, 1e-12, "iauAtco13", "hob", status); + vvd(dob, 0.1716626560075591655, 1e-12, "iauAtco13", "dob", status); + vvd(rob, 2.710260453503097719, 1e-12, "iauAtco13", "rob", status); + vvd(eo, -0.003020548354802412839, 1e-14, "iauAtco13", "eo", status); + viv(j, 0, "iauAtco13", "j", status); + +} + +static void t_atic13(int *status) +/* +** - - - - - - - - - +** t _ a t i c 1 3 +** - - - - - - - - - +** +** Test iauAtic13 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauAtic13, vvd +** +** This revision: 2013 October 3 +*/ +{ + double ri, di, date1, date2, rc, dc, eo; + + + ri = 2.710121572969038991; + di = 0.1729371367218230438; + date1 = 2456165.5; + date2 = 0.401182685; + + iauAtic13(ri, di, date1, date2, &rc, &dc, &eo); + + vvd(rc, 2.710126504531374930, 1e-12, "iauAtic13", "rc", status); + vvd(dc, 0.1740632537628342320, 1e-12, "iauAtic13", "dc", status); + vvd(eo, -0.002900618712657375647, 1e-14, "iauAtic13", "eo", status); + +} + +static void t_aticq(int *status) +/* +** - - - - - - - - +** t _ a t i c q +** - - - - - - - - +** +** Test iauAticq function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApci13, iauAticq, vvd +** +** This revision: 2013 October 3 +*/ +{ + double date1, date2, eo, ri, di, rc, dc; + iauASTROM astrom; + + + date1 = 2456165.5; + date2 = 0.401182685; + iauApci13(date1, date2, &astrom, &eo); + ri = 2.710121572969038991; + di = 0.1729371367218230438; + + iauAticq(ri, di, &astrom, &rc, &dc); + + vvd(rc, 2.710126504531374930, 1e-12, "iauAticq", "rc", status); + vvd(dc, 0.1740632537628342320, 1e-12, "iauAticq", "dc", status); + +} + +static void t_aticqn(int *status) +/* +** - - - - - - - - - +** t _ a t i c q n +** - - - - - - - - - +** +** Test iauAticqn function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApci13, iauAticqn, vvd +** +** This revision: 2013 October 3 +*/ +{ + double date1, date2, eo, ri, di, rc, dc; + iauLDBODY b[3]; + iauASTROM astrom; + + + date1 = 2456165.5; + date2 = 0.401182685; + iauApci13(date1, date2, &astrom, &eo); + ri = 2.709994899247599271; + di = 0.1728740720983623469; + b[0].bm = 0.00028574; + b[0].dl = 3e-10; + b[0].pv[0][0] = -7.81014427; + b[0].pv[0][1] = -5.60956681; + b[0].pv[0][2] = -1.98079819; + b[0].pv[1][0] = 0.0030723249; + b[0].pv[1][1] = -0.00406995477; + b[0].pv[1][2] = -0.00181335842; + b[1].bm = 0.00095435; + b[1].dl = 3e-9; + b[1].pv[0][0] = 0.738098796; + b[1].pv[0][1] = 4.63658692; + b[1].pv[0][2] = 1.9693136; + b[1].pv[1][0] = -0.00755816922; + b[1].pv[1][1] = 0.00126913722; + b[1].pv[1][2] = 0.000727999001; + b[2].bm = 1.0; + b[2].dl = 6e-6; + b[2].pv[0][0] = -0.000712174377; + b[2].pv[0][1] = -0.00230478303; + b[2].pv[0][2] = -0.00105865966; + b[2].pv[1][0] = 6.29235213e-6; + b[2].pv[1][1] = -3.30888387e-7; + b[2].pv[1][2] = -2.96486623e-7; + + iauAticqn(ri, di, &astrom, 3, b, &rc, &dc); + + vvd(rc, 2.709999575032685412, 1e-12, "iauAtciqn", "rc", status); + vvd(dc, 0.1739999656317778034, 1e-12, "iauAtciqn", "dc", status); + +} + +static void t_atio13(int *status) +/* +** - - - - - - - - - +** t _ a t i o 1 3 +** - - - - - - - - - +** +** Test iauAtio13 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauAtio13, vvd, viv +** +** This revision: 2013 October 3 +*/ +{ + double ri, di, utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, aob, zob, hob, dob, rob; + int j; + + + ri = 2.710121572969038991; + di = 0.1729371367218230438; + utc1 = 2456384.5; + utc2 = 0.969254051; + dut1 = 0.1550675; + elong = -0.527800806; + phi = -1.2345856; + hm = 2738.0; + xp = 2.47230737e-7; + yp = 1.82640464e-6; + phpa = 731.0; + tc = 12.8; + rh = 0.59; + wl = 0.55; + + j = iauAtio13(ri, di, utc1, utc2, dut1, elong, phi, hm, + xp, yp, phpa, tc, rh, wl, + &aob, &zob, &hob, &dob, &rob); + + vvd(aob, 0.09233952224794989993, 1e-12, "iauAtio13", "aob", status); + vvd(zob, 1.407758704513722461, 1e-12, "iauAtio13", "zob", status); + vvd(hob, -0.09247619879782006106, 1e-12, "iauAtio13", "hob", status); + vvd(dob, 0.1717653435758265198, 1e-12, "iauAtio13", "dob", status); + vvd(rob, 2.710085107986886201, 1e-12, "iauAtio13", "rob", status); + viv(j, 0, "iauAtio13", "j", status); + +} + +static void t_atioq(int *status) +/* +** - - - - - - - - +** t _ a t i o q +** - - - - - - - - +** +** Test iauAtioq function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauApio13, iauAtioq, vvd, viv +** +** This revision: 2013 October 4 +*/ +{ + double utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, ri, di, aob, zob, hob, dob, rob; + iauASTROM astrom; + + + utc1 = 2456384.5; + utc2 = 0.969254051; + dut1 = 0.1550675; + elong = -0.527800806; + phi = -1.2345856; + hm = 2738.0; + xp = 2.47230737e-7; + yp = 1.82640464e-6; + phpa = 731.0; + tc = 12.8; + rh = 0.59; + wl = 0.55; + (void) iauApio13(utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, &astrom); + ri = 2.710121572969038991; + di = 0.1729371367218230438; + + iauAtioq(ri, di, &astrom, &aob, &zob, &hob, &dob, &rob); + + vvd(aob, 0.09233952224794989993, 1e-12, "iauAtioq", "aob", status); + vvd(zob, 1.407758704513722461, 1e-12, "iauAtioq", "zob", status); + vvd(hob, -0.09247619879782006106, 1e-12, "iauAtioq", "hob", status); + vvd(dob, 0.1717653435758265198, 1e-12, "iauAtioq", "dob", status); + vvd(rob, 2.710085107986886201, 1e-12, "iauAtioq", "rob", status); + +} + +static void t_atoc13(int *status) +/* +** - - - - - - - - - +** t _ a t o c 1 3 +** - - - - - - - - - +** +** Test iauAtoc13 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauAtoc13, vvd, viv +** +** This revision: 2013 October 3 +*/ +{ + double utc1, utc2, dut1, + elong, phi, hm, xp, yp, phpa, tc, rh, wl, + ob1, ob2, rc, dc; + int j; + + + utc1 = 2456384.5; + utc2 = 0.969254051; + dut1 = 0.1550675; + elong = -0.527800806; + phi = -1.2345856; + hm = 2738.0; + xp = 2.47230737e-7; + yp = 1.82640464e-6; + phpa = 731.0; + tc = 12.8; + rh = 0.59; + wl = 0.55; + + ob1 = 2.710085107986886201; + ob2 = 0.1717653435758265198; + j = iauAtoc13 ( "R", ob1, ob2, utc1, utc2, dut1, + elong, phi, hm, xp, yp, phpa, tc, rh, wl, + &rc, &dc); + vvd(rc, 2.709956744661000609, 1e-12, "iauAtoc13", "R/rc", status); + vvd(dc, 0.1741696500895398562, 1e-12, "iauAtoc13", "R/dc", status); + viv(j, 0, "iauAtoc13", "R/j", status); + + ob1 = -0.09247619879782006106; + ob2 = 0.1717653435758265198; + j = iauAtoc13 ( "H", ob1, ob2, utc1, utc2, dut1, + elong, phi, hm, xp, yp, phpa, tc, rh, wl, + &rc, &dc); + vvd(rc, 2.709956744661000609, 1e-12, "iauAtoc13", "H/rc", status); + vvd(dc, 0.1741696500895398562, 1e-12, "iauAtoc13", "H/dc", status); + viv(j, 0, "iauAtoc13", "H/j", status); + + ob1 = 0.09233952224794989993; + ob2 = 1.407758704513722461; + j = iauAtoc13 ( "A", ob1, ob2, utc1, utc2, dut1, + elong, phi, hm, xp, yp, phpa, tc, rh, wl, + &rc, &dc); + vvd(rc, 2.709956744661000609, 1e-12, "iauAtoc13", "A/rc", status); + vvd(dc, 0.1741696500895398565, 1e-12, "iauAtoc13", "A/dc", status); + viv(j, 0, "iauAtoc13", "A/j", status); + +} + +static void t_atoi13(int *status) +/* +** - - - - - - - - - +** t _ a t o i 1 3 +** - - - - - - - - - +** +** Test iauAtoi13 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauAtoi13, vvd, viv +** +** This revision: 2013 October 3 +*/ +{ + double utc1, utc2, dut1, elong, phi, hm, xp, yp, phpa, tc, rh, wl, + ob1, ob2, ri, di; + int j; + + + utc1 = 2456384.5; + utc2 = 0.969254051; + dut1 = 0.1550675; + elong = -0.527800806; + phi = -1.2345856; + hm = 2738.0; + xp = 2.47230737e-7; + yp = 1.82640464e-6; + phpa = 731.0; + tc = 12.8; + rh = 0.59; + wl = 0.55; + + ob1 = 2.710085107986886201; + ob2 = 0.1717653435758265198; + j = iauAtoi13 ( "R", ob1, ob2, utc1, utc2, dut1, + elong, phi, hm, xp, yp, phpa, tc, rh, wl, + &ri, &di); + vvd(ri, 2.710121574449135955, 1e-12, "iauAtoi13", "R/ri", status); + vvd(di, 0.1729371839114567725, 1e-12, "iauAtoi13", "R/di", status); + viv(j, 0, "iauAtoi13", "R/J", status); + + ob1 = -0.09247619879782006106; + ob2 = 0.1717653435758265198; + j = iauAtoi13 ( "H", ob1, ob2, utc1, utc2, dut1, + elong, phi, hm, xp, yp, phpa, tc, rh, wl, + &ri, &di); + vvd(ri, 2.710121574449135955, 1e-12, "iauAtoi13", "H/ri", status); + vvd(di, 0.1729371839114567725, 1e-12, "iauAtoi13", "H/di", status); + viv(j, 0, "iauAtoi13", "H/J", status); + + ob1 = 0.09233952224794989993; + ob2 = 1.407758704513722461; + j = iauAtoi13 ( "A", ob1, ob2, utc1, utc2, dut1, + elong, phi, hm, xp, yp, phpa, tc, rh, wl, + &ri, &di); + vvd(ri, 2.710121574449135955, 1e-12, "iauAtoi13", "A/ri", status); + vvd(di, 0.1729371839114567728, 1e-12, "iauAtoi13", "A/di", status); + viv(j, 0, "iauAtoi13", "A/J", status); + +} + +static void t_atoiq(int *status) +/* +** - - - - - - - - +** t _ a t o i q +** - - - - - - - - +* +** Test iauAtoiq function. +* +** Returned: +** status int FALSE = success, TRUE = fail +* +** Called: iauApio13, iauAtoiq, vvd +* +** This revision: 2013 October 4 +*/ +{ + double utc1, utc2, dut1, elong, phi, hm, xp, yp, phpa, tc, rh, wl, + ob1, ob2, ri, di; + iauASTROM astrom; + + + utc1 = 2456384.5; + utc2 = 0.969254051; + dut1 = 0.1550675; + elong = -0.527800806; + phi = -1.2345856; + hm = 2738.0; + xp = 2.47230737e-7; + yp = 1.82640464e-6; + phpa = 731.0; + tc = 12.8; + rh = 0.59; + wl = 0.55; + (void) iauApio13(utc1, utc2, dut1, elong, phi, hm, xp, yp, + phpa, tc, rh, wl, &astrom); + + ob1 = 2.710085107986886201; + ob2 = 0.1717653435758265198; + iauAtoiq("R", ob1, ob2, &astrom, &ri, &di); + vvd(ri, 2.710121574449135955, 1e-12, + "iauAtoiq", "R/ri", status); + vvd(di, 0.1729371839114567725, 1e-12, + "iauAtoiq", "R/di", status); + + ob1 = -0.09247619879782006106; + ob2 = 0.1717653435758265198; + iauAtoiq("H", ob1, ob2, &astrom, &ri, &di); + vvd(ri, 2.710121574449135955, 1e-12, + "iauAtoiq", "H/ri", status); + vvd(di, 0.1729371839114567725, 1e-12, + "iauAtoiq", "H/di", status); + + ob1 = 0.09233952224794989993; + ob2 = 1.407758704513722461; + iauAtoiq("A", ob1, ob2, &astrom, &ri, &di); + vvd(ri, 2.710121574449135955, 1e-12, + "iauAtoiq", "A/ri", status); + vvd(di, 0.1729371839114567728, 1e-12, + "iauAtoiq", "A/di", status); + +} + +static void t_bi00(int *status) +/* +** - - - - - - - +** t _ b i 0 0 +** - - - - - - - +** +** Test iauBi00 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauBi00, vvd +** +** This revision: 2013 August 7 +*/ +{ + double dpsibi, depsbi, dra; + + iauBi00(&dpsibi, &depsbi, &dra); + + vvd(dpsibi, -0.2025309152835086613e-6, 1e-12, + "iauBi00", "dpsibi", status); + vvd(depsbi, -0.3306041454222147847e-7, 1e-12, + "iauBi00", "depsbi", status); + vvd(dra, -0.7078279744199225506e-7, 1e-12, + "iauBi00", "dra", status); +} + +static void t_bp00(int *status) +/* +** - - - - - - - +** t _ b p 0 0 +** - - - - - - - +** +** Test iauBp00 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauBp00, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rb[3][3], rp[3][3], rbp[3][3]; + + + iauBp00(2400000.5, 50123.9999, rb, rp, rbp); + + vvd(rb[0][0], 0.9999999999999942498, 1e-12, + "iauBp00", "rb11", status); + vvd(rb[0][1], -0.7078279744199196626e-7, 1e-16, + "iauBp00", "rb12", status); + vvd(rb[0][2], 0.8056217146976134152e-7, 1e-16, + "iauBp00", "rb13", status); + vvd(rb[1][0], 0.7078279477857337206e-7, 1e-16, + "iauBp00", "rb21", status); + vvd(rb[1][1], 0.9999999999999969484, 1e-12, + "iauBp00", "rb22", status); + vvd(rb[1][2], 0.3306041454222136517e-7, 1e-16, + "iauBp00", "rb23", status); + vvd(rb[2][0], -0.8056217380986972157e-7, 1e-16, + "iauBp00", "rb31", status); + vvd(rb[2][1], -0.3306040883980552500e-7, 1e-16, + "iauBp00", "rb32", status); + vvd(rb[2][2], 0.9999999999999962084, 1e-12, + "iauBp00", "rb33", status); + + vvd(rp[0][0], 0.9999995504864048241, 1e-12, + "iauBp00", "rp11", status); + vvd(rp[0][1], 0.8696113836207084411e-3, 1e-14, + "iauBp00", "rp12", status); + vvd(rp[0][2], 0.3778928813389333402e-3, 1e-14, + "iauBp00", "rp13", status); + vvd(rp[1][0], -0.8696113818227265968e-3, 1e-14, + "iauBp00", "rp21", status); + vvd(rp[1][1], 0.9999996218879365258, 1e-12, + "iauBp00", "rp22", status); + vvd(rp[1][2], -0.1690679263009242066e-6, 1e-14, + "iauBp00", "rp23", status); + vvd(rp[2][0], -0.3778928854764695214e-3, 1e-14, + "iauBp00", "rp31", status); + vvd(rp[2][1], -0.1595521004195286491e-6, 1e-14, + "iauBp00", "rp32", status); + vvd(rp[2][2], 0.9999999285984682756, 1e-12, + "iauBp00", "rp33", status); + + vvd(rbp[0][0], 0.9999995505175087260, 1e-12, + "iauBp00", "rbp11", status); + vvd(rbp[0][1], 0.8695405883617884705e-3, 1e-14, + "iauBp00", "rbp12", status); + vvd(rbp[0][2], 0.3779734722239007105e-3, 1e-14, + "iauBp00", "rbp13", status); + vvd(rbp[1][0], -0.8695405990410863719e-3, 1e-14, + "iauBp00", "rbp21", status); + vvd(rbp[1][1], 0.9999996219494925900, 1e-12, + "iauBp00", "rbp22", status); + vvd(rbp[1][2], -0.1360775820404982209e-6, 1e-14, + "iauBp00", "rbp23", status); + vvd(rbp[2][0], -0.3779734476558184991e-3, 1e-14, + "iauBp00", "rbp31", status); + vvd(rbp[2][1], -0.1925857585832024058e-6, 1e-14, + "iauBp00", "rbp32", status); + vvd(rbp[2][2], 0.9999999285680153377, 1e-12, + "iauBp00", "rbp33", status); +} + +static void t_bp06(int *status) +/* +** - - - - - - - +** t _ b p 0 6 +** - - - - - - - +** +** Test iauBp06 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauBp06, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rb[3][3], rp[3][3], rbp[3][3]; + + + iauBp06(2400000.5, 50123.9999, rb, rp, rbp); + + vvd(rb[0][0], 0.9999999999999942497, 1e-12, + "iauBp06", "rb11", status); + vvd(rb[0][1], -0.7078368960971557145e-7, 1e-14, + "iauBp06", "rb12", status); + vvd(rb[0][2], 0.8056213977613185606e-7, 1e-14, + "iauBp06", "rb13", status); + vvd(rb[1][0], 0.7078368694637674333e-7, 1e-14, + "iauBp06", "rb21", status); + vvd(rb[1][1], 0.9999999999999969484, 1e-12, + "iauBp06", "rb22", status); + vvd(rb[1][2], 0.3305943742989134124e-7, 1e-14, + "iauBp06", "rb23", status); + vvd(rb[2][0], -0.8056214211620056792e-7, 1e-14, + "iauBp06", "rb31", status); + vvd(rb[2][1], -0.3305943172740586950e-7, 1e-14, + "iauBp06", "rb32", status); + vvd(rb[2][2], 0.9999999999999962084, 1e-12, + "iauBp06", "rb33", status); + + vvd(rp[0][0], 0.9999995504864960278, 1e-12, + "iauBp06", "rp11", status); + vvd(rp[0][1], 0.8696112578855404832e-3, 1e-14, + "iauBp06", "rp12", status); + vvd(rp[0][2], 0.3778929293341390127e-3, 1e-14, + "iauBp06", "rp13", status); + vvd(rp[1][0], -0.8696112560510186244e-3, 1e-14, + "iauBp06", "rp21", status); + vvd(rp[1][1], 0.9999996218880458820, 1e-12, + "iauBp06", "rp22", status); + vvd(rp[1][2], -0.1691646168941896285e-6, 1e-14, + "iauBp06", "rp23", status); + vvd(rp[2][0], -0.3778929335557603418e-3, 1e-14, + "iauBp06", "rp31", status); + vvd(rp[2][1], -0.1594554040786495076e-6, 1e-14, + "iauBp06", "rp32", status); + vvd(rp[2][2], 0.9999999285984501222, 1e-12, + "iauBp06", "rp33", status); + + vvd(rbp[0][0], 0.9999995505176007047, 1e-12, + "iauBp06", "rbp11", status); + vvd(rbp[0][1], 0.8695404617348208406e-3, 1e-14, + "iauBp06", "rbp12", status); + vvd(rbp[0][2], 0.3779735201865589104e-3, 1e-14, + "iauBp06", "rbp13", status); + vvd(rbp[1][0], -0.8695404723772031414e-3, 1e-14, + "iauBp06", "rbp21", status); + vvd(rbp[1][1], 0.9999996219496027161, 1e-12, + "iauBp06", "rbp22", status); + vvd(rbp[1][2], -0.1361752497080270143e-6, 1e-14, + "iauBp06", "rbp23", status); + vvd(rbp[2][0], -0.3779734957034089490e-3, 1e-14, + "iauBp06", "rbp31", status); + vvd(rbp[2][1], -0.1924880847894457113e-6, 1e-14, + "iauBp06", "rbp32", status); + vvd(rbp[2][2], 0.9999999285679971958, 1e-12, + "iauBp06", "rbp33", status); +} + +static void t_bpn2xy(int *status) +/* +** - - - - - - - - - +** t _ b p n 2 x y +** - - - - - - - - - +** +** Test iauBpn2xy function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauBpn2xy, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rbpn[3][3], x, y; + + + rbpn[0][0] = 9.999962358680738e-1; + rbpn[0][1] = -2.516417057665452e-3; + rbpn[0][2] = -1.093569785342370e-3; + + rbpn[1][0] = 2.516462370370876e-3; + rbpn[1][1] = 9.999968329010883e-1; + rbpn[1][2] = 4.006159587358310e-5; + + rbpn[2][0] = 1.093465510215479e-3; + rbpn[2][1] = -4.281337229063151e-5; + rbpn[2][2] = 9.999994012499173e-1; + + iauBpn2xy(rbpn, &x, &y); + + vvd(x, 1.093465510215479e-3, 1e-12, "iauBpn2xy", "x", status); + vvd(y, -4.281337229063151e-5, 1e-12, "iauBpn2xy", "y", status); + +} + +static void t_c2i00a(int *status) +/* +** - - - - - - - - - +** t _ c 2 i 0 0 a +** - - - - - - - - - +** +** Test iauC2i00a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauC2i00a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rc2i[3][3]; + + + iauC2i00a(2400000.5, 53736.0, rc2i); + + vvd(rc2i[0][0], 0.9999998323037165557, 1e-12, + "iauC2i00a", "11", status); + vvd(rc2i[0][1], 0.5581526348992140183e-9, 1e-12, + "iauC2i00a", "12", status); + vvd(rc2i[0][2], -0.5791308477073443415e-3, 1e-12, + "iauC2i00a", "13", status); + + vvd(rc2i[1][0], -0.2384266227870752452e-7, 1e-12, + "iauC2i00a", "21", status); + vvd(rc2i[1][1], 0.9999999991917405258, 1e-12, + "iauC2i00a", "22", status); + vvd(rc2i[1][2], -0.4020594955028209745e-4, 1e-12, + "iauC2i00a", "23", status); + + vvd(rc2i[2][0], 0.5791308472168152904e-3, 1e-12, + "iauC2i00a", "31", status); + vvd(rc2i[2][1], 0.4020595661591500259e-4, 1e-12, + "iauC2i00a", "32", status); + vvd(rc2i[2][2], 0.9999998314954572304, 1e-12, + "iauC2i00a", "33", status); + +} + +static void t_c2i00b(int *status) +/* +** - - - - - - - - - +** t _ c 2 i 0 0 b +** - - - - - - - - - +** +** Test iauC2i00b function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauC2i00b, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rc2i[3][3]; + + + iauC2i00b(2400000.5, 53736.0, rc2i); + + vvd(rc2i[0][0], 0.9999998323040954356, 1e-12, + "iauC2i00b", "11", status); + vvd(rc2i[0][1], 0.5581526349131823372e-9, 1e-12, + "iauC2i00b", "12", status); + vvd(rc2i[0][2], -0.5791301934855394005e-3, 1e-12, + "iauC2i00b", "13", status); + + vvd(rc2i[1][0], -0.2384239285499175543e-7, 1e-12, + "iauC2i00b", "21", status); + vvd(rc2i[1][1], 0.9999999991917574043, 1e-12, + "iauC2i00b", "22", status); + vvd(rc2i[1][2], -0.4020552974819030066e-4, 1e-12, + "iauC2i00b", "23", status); + + vvd(rc2i[2][0], 0.5791301929950208873e-3, 1e-12, + "iauC2i00b", "31", status); + vvd(rc2i[2][1], 0.4020553681373720832e-4, 1e-12, + "iauC2i00b", "32", status); + vvd(rc2i[2][2], 0.9999998314958529887, 1e-12, + "iauC2i00b", "33", status); + +} + +static void t_c2i06a(int *status) +/* +** - - - - - - - - - +** t _ c 2 i 0 6 a +** - - - - - - - - - +** +** Test iauC2i06a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauC2i06a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rc2i[3][3]; + + + iauC2i06a(2400000.5, 53736.0, rc2i); + + vvd(rc2i[0][0], 0.9999998323037159379, 1e-12, + "iauC2i06a", "11", status); + vvd(rc2i[0][1], 0.5581121329587613787e-9, 1e-12, + "iauC2i06a", "12", status); + vvd(rc2i[0][2], -0.5791308487740529749e-3, 1e-12, + "iauC2i06a", "13", status); + + vvd(rc2i[1][0], -0.2384253169452306581e-7, 1e-12, + "iauC2i06a", "21", status); + vvd(rc2i[1][1], 0.9999999991917467827, 1e-12, + "iauC2i06a", "22", status); + vvd(rc2i[1][2], -0.4020579392895682558e-4, 1e-12, + "iauC2i06a", "23", status); + + vvd(rc2i[2][0], 0.5791308482835292617e-3, 1e-12, + "iauC2i06a", "31", status); + vvd(rc2i[2][1], 0.4020580099454020310e-4, 1e-12, + "iauC2i06a", "32", status); + vvd(rc2i[2][2], 0.9999998314954628695, 1e-12, + "iauC2i06a", "33", status); + +} + +static void t_c2ibpn(int *status) +/* +** - - - - - - - - - +** t _ c 2 i b p n +** - - - - - - - - - +** +** Test iauC2ibpn function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauC2ibpn, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rbpn[3][3], rc2i[3][3]; + + + rbpn[0][0] = 9.999962358680738e-1; + rbpn[0][1] = -2.516417057665452e-3; + rbpn[0][2] = -1.093569785342370e-3; + + rbpn[1][0] = 2.516462370370876e-3; + rbpn[1][1] = 9.999968329010883e-1; + rbpn[1][2] = 4.006159587358310e-5; + + rbpn[2][0] = 1.093465510215479e-3; + rbpn[2][1] = -4.281337229063151e-5; + rbpn[2][2] = 9.999994012499173e-1; + + iauC2ibpn(2400000.5, 50123.9999, rbpn, rc2i); + + vvd(rc2i[0][0], 0.9999994021664089977, 1e-12, + "iauC2ibpn", "11", status); + vvd(rc2i[0][1], -0.3869195948017503664e-8, 1e-12, + "iauC2ibpn", "12", status); + vvd(rc2i[0][2], -0.1093465511383285076e-2, 1e-12, + "iauC2ibpn", "13", status); + + vvd(rc2i[1][0], 0.5068413965715446111e-7, 1e-12, + "iauC2ibpn", "21", status); + vvd(rc2i[1][1], 0.9999999990835075686, 1e-12, + "iauC2ibpn", "22", status); + vvd(rc2i[1][2], 0.4281334246452708915e-4, 1e-12, + "iauC2ibpn", "23", status); + + vvd(rc2i[2][0], 0.1093465510215479000e-2, 1e-12, + "iauC2ibpn", "31", status); + vvd(rc2i[2][1], -0.4281337229063151000e-4, 1e-12, + "iauC2ibpn", "32", status); + vvd(rc2i[2][2], 0.9999994012499173103, 1e-12, + "iauC2ibpn", "33", status); + +} + +static void t_c2ixy(int *status) +/* +** - - - - - - - - +** t _ c 2 i x y +** - - - - - - - - +** +** Test iauC2ixy function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauC2ixy, vvd +** +** This revision: 2013 August 7 +*/ +{ + double x, y, rc2i[3][3]; + + + x = 0.5791308486706011000e-3; + y = 0.4020579816732961219e-4; + + iauC2ixy(2400000.5, 53736, x, y, rc2i); + + vvd(rc2i[0][0], 0.9999998323037157138, 1e-12, + "iauC2ixy", "11", status); + vvd(rc2i[0][1], 0.5581526349032241205e-9, 1e-12, + "iauC2ixy", "12", status); + vvd(rc2i[0][2], -0.5791308491611263745e-3, 1e-12, + "iauC2ixy", "13", status); + + vvd(rc2i[1][0], -0.2384257057469842953e-7, 1e-12, + "iauC2ixy", "21", status); + vvd(rc2i[1][1], 0.9999999991917468964, 1e-12, + "iauC2ixy", "22", status); + vvd(rc2i[1][2], -0.4020579110172324363e-4, 1e-12, + "iauC2ixy", "23", status); + + vvd(rc2i[2][0], 0.5791308486706011000e-3, 1e-12, + "iauC2ixy", "31", status); + vvd(rc2i[2][1], 0.4020579816732961219e-4, 1e-12, + "iauC2ixy", "32", status); + vvd(rc2i[2][2], 0.9999998314954627590, 1e-12, + "iauC2ixy", "33", status); + +} + +static void t_c2ixys(int *status) +/* +** - - - - - - - - - +** t _ c 2 i x y s +** - - - - - - - - - +** +** Test iauC2ixys function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauC2ixys, vvd +** +** This revision: 2013 August 7 +*/ +{ + double x, y, s, rc2i[3][3]; + + + x = 0.5791308486706011000e-3; + y = 0.4020579816732961219e-4; + s = -0.1220040848472271978e-7; + + iauC2ixys(x, y, s, rc2i); + + vvd(rc2i[0][0], 0.9999998323037157138, 1e-12, + "iauC2ixys", "11", status); + vvd(rc2i[0][1], 0.5581984869168499149e-9, 1e-12, + "iauC2ixys", "12", status); + vvd(rc2i[0][2], -0.5791308491611282180e-3, 1e-12, + "iauC2ixys", "13", status); + + vvd(rc2i[1][0], -0.2384261642670440317e-7, 1e-12, + "iauC2ixys", "21", status); + vvd(rc2i[1][1], 0.9999999991917468964, 1e-12, + "iauC2ixys", "22", status); + vvd(rc2i[1][2], -0.4020579110169668931e-4, 1e-12, + "iauC2ixys", "23", status); + + vvd(rc2i[2][0], 0.5791308486706011000e-3, 1e-12, + "iauC2ixys", "31", status); + vvd(rc2i[2][1], 0.4020579816732961219e-4, 1e-12, + "iauC2ixys", "32", status); + vvd(rc2i[2][2], 0.9999998314954627590, 1e-12, + "iauC2ixys", "33", status); + +} + +static void t_c2s(int *status) +/* +** - - - - - - +** t _ c 2 s +** - - - - - - +** +** Test iauC2s function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauC2s, vvd +** +** This revision: 2013 August 7 +*/ +{ + double p[3], theta, phi; + + + p[0] = 100.0; + p[1] = -50.0; + p[2] = 25.0; + + iauC2s(p, &theta, &phi); + + vvd(theta, -0.4636476090008061162, 1e-14, "iauC2s", "theta", status); + vvd(phi, 0.2199879773954594463, 1e-14, "iauC2s", "phi", status); + +} + +static void t_c2t00a(int *status) +/* +** - - - - - - - - - +** t _ c 2 t 0 0 a +** - - - - - - - - - +** +** Test iauC2t00a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauC2t00a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double tta, ttb, uta, utb, xp, yp, rc2t[3][3]; + + + tta = 2400000.5; + uta = 2400000.5; + ttb = 53736.0; + utb = 53736.0; + xp = 2.55060238e-7; + yp = 1.860359247e-6; + + iauC2t00a(tta, ttb, uta, utb, xp, yp, rc2t); + + vvd(rc2t[0][0], -0.1810332128307182668, 1e-12, + "iauC2t00a", "11", status); + vvd(rc2t[0][1], 0.9834769806938457836, 1e-12, + "iauC2t00a", "12", status); + vvd(rc2t[0][2], 0.6555535638688341725e-4, 1e-12, + "iauC2t00a", "13", status); + + vvd(rc2t[1][0], -0.9834768134135984552, 1e-12, + "iauC2t00a", "21", status); + vvd(rc2t[1][1], -0.1810332203649520727, 1e-12, + "iauC2t00a", "22", status); + vvd(rc2t[1][2], 0.5749801116141056317e-3, 1e-12, + "iauC2t00a", "23", status); + + vvd(rc2t[2][0], 0.5773474014081406921e-3, 1e-12, + "iauC2t00a", "31", status); + vvd(rc2t[2][1], 0.3961832391770163647e-4, 1e-12, + "iauC2t00a", "32", status); + vvd(rc2t[2][2], 0.9999998325501692289, 1e-12, + "iauC2t00a", "33", status); + +} + +static void t_c2t00b(int *status) +/* +** - - - - - - - - - +** t _ c 2 t 0 0 b +** - - - - - - - - - +** +** Test iauC2t00b function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauC2t00b, vvd +** +** This revision: 2013 August 7 +*/ +{ + double tta, ttb, uta, utb, xp, yp, rc2t[3][3]; + + + tta = 2400000.5; + uta = 2400000.5; + ttb = 53736.0; + utb = 53736.0; + xp = 2.55060238e-7; + yp = 1.860359247e-6; + + iauC2t00b(tta, ttb, uta, utb, xp, yp, rc2t); + + vvd(rc2t[0][0], -0.1810332128439678965, 1e-12, + "iauC2t00b", "11", status); + vvd(rc2t[0][1], 0.9834769806913872359, 1e-12, + "iauC2t00b", "12", status); + vvd(rc2t[0][2], 0.6555565082458415611e-4, 1e-12, + "iauC2t00b", "13", status); + + vvd(rc2t[1][0], -0.9834768134115435923, 1e-12, + "iauC2t00b", "21", status); + vvd(rc2t[1][1], -0.1810332203784001946, 1e-12, + "iauC2t00b", "22", status); + vvd(rc2t[1][2], 0.5749793922030017230e-3, 1e-12, + "iauC2t00b", "23", status); + + vvd(rc2t[2][0], 0.5773467471863534901e-3, 1e-12, + "iauC2t00b", "31", status); + vvd(rc2t[2][1], 0.3961790411549945020e-4, 1e-12, + "iauC2t00b", "32", status); + vvd(rc2t[2][2], 0.9999998325505635738, 1e-12, + "iauC2t00b", "33", status); + +} + +static void t_c2t06a(int *status) +/* +** - - - - - - - - - +** t _ c 2 t 0 6 a +** - - - - - - - - - +** +** Test iauC2t06a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauC2t06a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double tta, ttb, uta, utb, xp, yp, rc2t[3][3]; + + + tta = 2400000.5; + uta = 2400000.5; + ttb = 53736.0; + utb = 53736.0; + xp = 2.55060238e-7; + yp = 1.860359247e-6; + + iauC2t06a(tta, ttb, uta, utb, xp, yp, rc2t); + + vvd(rc2t[0][0], -0.1810332128305897282, 1e-12, + "iauC2t06a", "11", status); + vvd(rc2t[0][1], 0.9834769806938592296, 1e-12, + "iauC2t06a", "12", status); + vvd(rc2t[0][2], 0.6555550962998436505e-4, 1e-12, + "iauC2t06a", "13", status); + + vvd(rc2t[1][0], -0.9834768134136214897, 1e-12, + "iauC2t06a", "21", status); + vvd(rc2t[1][1], -0.1810332203649130832, 1e-12, + "iauC2t06a", "22", status); + vvd(rc2t[1][2], 0.5749800844905594110e-3, 1e-12, + "iauC2t06a", "23", status); + + vvd(rc2t[2][0], 0.5773474024748545878e-3, 1e-12, + "iauC2t06a", "31", status); + vvd(rc2t[2][1], 0.3961816829632690581e-4, 1e-12, + "iauC2t06a", "32", status); + vvd(rc2t[2][2], 0.9999998325501747785, 1e-12, + "iauC2t06a", "33", status); + +} + +static void t_c2tcio(int *status) +/* +** - - - - - - - - - +** t _ c 2 t c i o +** - - - - - - - - - +** +** Test iauC2tcio function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauC2tcio, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rc2i[3][3], era, rpom[3][3], rc2t[3][3]; + + + rc2i[0][0] = 0.9999998323037164738; + rc2i[0][1] = 0.5581526271714303683e-9; + rc2i[0][2] = -0.5791308477073443903e-3; + + rc2i[1][0] = -0.2384266227524722273e-7; + rc2i[1][1] = 0.9999999991917404296; + rc2i[1][2] = -0.4020594955030704125e-4; + + rc2i[2][0] = 0.5791308472168153320e-3; + rc2i[2][1] = 0.4020595661593994396e-4; + rc2i[2][2] = 0.9999998314954572365; + + era = 1.75283325530307; + + rpom[0][0] = 0.9999999999999674705; + rpom[0][1] = -0.1367174580728847031e-10; + rpom[0][2] = 0.2550602379999972723e-6; + + rpom[1][0] = 0.1414624947957029721e-10; + rpom[1][1] = 0.9999999999982694954; + rpom[1][2] = -0.1860359246998866338e-5; + + rpom[2][0] = -0.2550602379741215275e-6; + rpom[2][1] = 0.1860359247002413923e-5; + rpom[2][2] = 0.9999999999982369658; + + + iauC2tcio(rc2i, era, rpom, rc2t); + + vvd(rc2t[0][0], -0.1810332128307110439, 1e-12, + "iauC2tcio", "11", status); + vvd(rc2t[0][1], 0.9834769806938470149, 1e-12, + "iauC2tcio", "12", status); + vvd(rc2t[0][2], 0.6555535638685466874e-4, 1e-12, + "iauC2tcio", "13", status); + + vvd(rc2t[1][0], -0.9834768134135996657, 1e-12, + "iauC2tcio", "21", status); + vvd(rc2t[1][1], -0.1810332203649448367, 1e-12, + "iauC2tcio", "22", status); + vvd(rc2t[1][2], 0.5749801116141106528e-3, 1e-12, + "iauC2tcio", "23", status); + + vvd(rc2t[2][0], 0.5773474014081407076e-3, 1e-12, + "iauC2tcio", "31", status); + vvd(rc2t[2][1], 0.3961832391772658944e-4, 1e-12, + "iauC2tcio", "32", status); + vvd(rc2t[2][2], 0.9999998325501691969, 1e-12, + "iauC2tcio", "33", status); + +} + +static void t_c2teqx(int *status) +/* +** - - - - - - - - - +** t _ c 2 t e q x +** - - - - - - - - - +** +** Test iauC2teqx function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauC2teqx, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rbpn[3][3], gst, rpom[3][3], rc2t[3][3]; + + + rbpn[0][0] = 0.9999989440476103608; + rbpn[0][1] = -0.1332881761240011518e-2; + rbpn[0][2] = -0.5790767434730085097e-3; + + rbpn[1][0] = 0.1332858254308954453e-2; + rbpn[1][1] = 0.9999991109044505944; + rbpn[1][2] = -0.4097782710401555759e-4; + + rbpn[2][0] = 0.5791308472168153320e-3; + rbpn[2][1] = 0.4020595661593994396e-4; + rbpn[2][2] = 0.9999998314954572365; + + gst = 1.754166138040730516; + + rpom[0][0] = 0.9999999999999674705; + rpom[0][1] = -0.1367174580728847031e-10; + rpom[0][2] = 0.2550602379999972723e-6; + + rpom[1][0] = 0.1414624947957029721e-10; + rpom[1][1] = 0.9999999999982694954; + rpom[1][2] = -0.1860359246998866338e-5; + + rpom[2][0] = -0.2550602379741215275e-6; + rpom[2][1] = 0.1860359247002413923e-5; + rpom[2][2] = 0.9999999999982369658; + + iauC2teqx(rbpn, gst, rpom, rc2t); + + vvd(rc2t[0][0], -0.1810332128528685730, 1e-12, + "iauC2teqx", "11", status); + vvd(rc2t[0][1], 0.9834769806897685071, 1e-12, + "iauC2teqx", "12", status); + vvd(rc2t[0][2], 0.6555535639982634449e-4, 1e-12, + "iauC2teqx", "13", status); + + vvd(rc2t[1][0], -0.9834768134095211257, 1e-12, + "iauC2teqx", "21", status); + vvd(rc2t[1][1], -0.1810332203871023800, 1e-12, + "iauC2teqx", "22", status); + vvd(rc2t[1][2], 0.5749801116126438962e-3, 1e-12, + "iauC2teqx", "23", status); + + vvd(rc2t[2][0], 0.5773474014081539467e-3, 1e-12, + "iauC2teqx", "31", status); + vvd(rc2t[2][1], 0.3961832391768640871e-4, 1e-12, + "iauC2teqx", "32", status); + vvd(rc2t[2][2], 0.9999998325501691969, 1e-12, + "iauC2teqx", "33", status); + +} + +static void t_c2tpe(int *status) +/* +** - - - - - - - - +** t _ c 2 t p e +** - - - - - - - - +** +** Test iauC2tpe function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauC2tpe, vvd +** +** This revision: 2013 August 7 +*/ +{ + double tta, ttb, uta, utb, dpsi, deps, xp, yp, rc2t[3][3]; + + + tta = 2400000.5; + uta = 2400000.5; + ttb = 53736.0; + utb = 53736.0; + deps = 0.4090789763356509900; + dpsi = -0.9630909107115582393e-5; + xp = 2.55060238e-7; + yp = 1.860359247e-6; + + iauC2tpe(tta, ttb, uta, utb, dpsi, deps, xp, yp, rc2t); + + vvd(rc2t[0][0], -0.1813677995763029394, 1e-12, + "iauC2tpe", "11", status); + vvd(rc2t[0][1], 0.9023482206891683275, 1e-12, + "iauC2tpe", "12", status); + vvd(rc2t[0][2], -0.3909902938641085751, 1e-12, + "iauC2tpe", "13", status); + + vvd(rc2t[1][0], -0.9834147641476804807, 1e-12, + "iauC2tpe", "21", status); + vvd(rc2t[1][1], -0.1659883635434995121, 1e-12, + "iauC2tpe", "22", status); + vvd(rc2t[1][2], 0.7309763898042819705e-1, 1e-12, + "iauC2tpe", "23", status); + + vvd(rc2t[2][0], 0.1059685430673215247e-2, 1e-12, + "iauC2tpe", "31", status); + vvd(rc2t[2][1], 0.3977631855605078674, 1e-12, + "iauC2tpe", "32", status); + vvd(rc2t[2][2], 0.9174875068792735362, 1e-12, + "iauC2tpe", "33", status); + +} + +static void t_c2txy(int *status) +/* +** - - - - - - - - +** t _ c 2 t x y +** - - - - - - - - +** +** Test iauC2txy function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauC2txy, vvd +** +** This revision: 2013 August 7 +*/ +{ + double tta, ttb, uta, utb, x, y, xp, yp, rc2t[3][3]; + + + tta = 2400000.5; + uta = 2400000.5; + ttb = 53736.0; + utb = 53736.0; + x = 0.5791308486706011000e-3; + y = 0.4020579816732961219e-4; + xp = 2.55060238e-7; + yp = 1.860359247e-6; + + iauC2txy(tta, ttb, uta, utb, x, y, xp, yp, rc2t); + + vvd(rc2t[0][0], -0.1810332128306279253, 1e-12, + "iauC2txy", "11", status); + vvd(rc2t[0][1], 0.9834769806938520084, 1e-12, + "iauC2txy", "12", status); + vvd(rc2t[0][2], 0.6555551248057665829e-4, 1e-12, + "iauC2txy", "13", status); + + vvd(rc2t[1][0], -0.9834768134136142314, 1e-12, + "iauC2txy", "21", status); + vvd(rc2t[1][1], -0.1810332203649529312, 1e-12, + "iauC2txy", "22", status); + vvd(rc2t[1][2], 0.5749800843594139912e-3, 1e-12, + "iauC2txy", "23", status); + + vvd(rc2t[2][0], 0.5773474028619264494e-3, 1e-12, + "iauC2txy", "31", status); + vvd(rc2t[2][1], 0.3961816546911624260e-4, 1e-12, + "iauC2txy", "32", status); + vvd(rc2t[2][2], 0.9999998325501746670, 1e-12, + "iauC2txy", "33", status); + +} + +static void t_cal2jd(int *status) +/* +** - - - - - - - - - +** t _ c a l 2 j d +** - - - - - - - - - +** +** Test iauCal2jd function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauCal2jd, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + int j; + double djm0, djm; + + + j = iauCal2jd(2003, 06, 01, &djm0, &djm); + + vvd(djm0, 2400000.5, 0.0, "iauCal2jd", "djm0", status); + vvd(djm, 52791.0, 0.0, "iauCal2jd", "djm", status); + + viv(j, 0, "iauCal2jd", "j", status); + +} + +static void t_cp(int *status) +/* +** - - - - - +** t _ c p +** - - - - - +** +** Test iauCp function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauCp, vvd +** +** This revision: 2013 August 7 +*/ +{ + double p[3], c[3]; + + + p[0] = 0.3; + p[1] = 1.2; + p[2] = -2.5; + + iauCp(p, c); + + vvd(c[0], 0.3, 0.0, "iauCp", "1", status); + vvd(c[1], 1.2, 0.0, "iauCp", "2", status); + vvd(c[2], -2.5, 0.0, "iauCp", "3", status); +} + +static void t_cpv(int *status) +/* +** - - - - - - +** t _ c p v +** - - - - - - +** +** Test iauCpv function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauCpv, vvd +** +** This revision: 2013 August 7 +*/ +{ + double pv[2][3], c[2][3]; + + + pv[0][0] = 0.3; + pv[0][1] = 1.2; + pv[0][2] = -2.5; + + pv[1][0] = -0.5; + pv[1][1] = 3.1; + pv[1][2] = 0.9; + + iauCpv(pv, c); + + vvd(c[0][0], 0.3, 0.0, "iauCpv", "p1", status); + vvd(c[0][1], 1.2, 0.0, "iauCpv", "p2", status); + vvd(c[0][2], -2.5, 0.0, "iauCpv", "p3", status); + + vvd(c[1][0], -0.5, 0.0, "iauCpv", "v1", status); + vvd(c[1][1], 3.1, 0.0, "iauCpv", "v2", status); + vvd(c[1][2], 0.9, 0.0, "iauCpv", "v3", status); + +} + +static void t_cr(int *status) +/* +** - - - - - +** t _ c r +** - - - - - +** +** Test iauCr function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauCr, vvd +** +** This revision: 2013 August 7 +*/ +{ + double r[3][3], c[3][3]; + + + r[0][0] = 2.0; + r[0][1] = 3.0; + r[0][2] = 2.0; + + r[1][0] = 3.0; + r[1][1] = 2.0; + r[1][2] = 3.0; + + r[2][0] = 3.0; + r[2][1] = 4.0; + r[2][2] = 5.0; + + iauCr(r, c); + + vvd(c[0][0], 2.0, 0.0, "iauCr", "11", status); + vvd(c[0][1], 3.0, 0.0, "iauCr", "12", status); + vvd(c[0][2], 2.0, 0.0, "iauCr", "13", status); + + vvd(c[1][0], 3.0, 0.0, "iauCr", "21", status); + vvd(c[1][1], 2.0, 0.0, "iauCr", "22", status); + vvd(c[1][2], 3.0, 0.0, "iauCr", "23", status); + + vvd(c[2][0], 3.0, 0.0, "iauCr", "31", status); + vvd(c[2][1], 4.0, 0.0, "iauCr", "32", status); + vvd(c[2][2], 5.0, 0.0, "iauCr", "33", status); +} + +static void t_d2dtf(int *status ) +/* +** - - - - - - - - +** t _ d 2 d t f +** - - - - - - - - +** +** Test iauD2dtf function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauD2dtf, viv +** +** This revision: 2013 August 7 +*/ +{ + int j, iy, im, id, ihmsf[4]; + + + j = iauD2dtf("UTC", 5, 2400000.5, 49533.99999, &iy, &im, &id, ihmsf); + + viv(iy, 1994, "iauD2dtf", "y", status); + viv(im, 6, "iauD2dtf", "mo", status); + viv(id, 30, "iauD2dtf", "d", status); + viv(ihmsf[0], 23, "iauD2dtf", "h", status); + viv(ihmsf[1], 59, "iauD2dtf", "m", status); + viv(ihmsf[2], 60, "iauD2dtf", "s", status); + viv(ihmsf[3], 13599, "iauD2dtf", "f", status); + viv(j, 0, "iauD2dtf", "j", status); + +} + +static void t_d2tf(int *status) +/* +** - - - - - - - +** t _ d 2 t f +** - - - - - - - +** +** Test iauD2tf function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauD2tf, viv, vvd +** +** This revision: 2013 August 7 +*/ +{ + int ihmsf[4]; + char s; + + + iauD2tf(4, -0.987654321, &s, ihmsf); + + viv((int)s, '-', "iauD2tf", "s", status); + + viv(ihmsf[0], 23, "iauD2tf", "0", status); + viv(ihmsf[1], 42, "iauD2tf", "1", status); + viv(ihmsf[2], 13, "iauD2tf", "2", status); + viv(ihmsf[3], 3333, "iauD2tf", "3", status); + +} + +static void t_dat(int *status) +/* +** - - - - - - +** t _ d a t +** - - - - - - +** +** Test iauDat function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauDat, vvd, viv +** +** This revision: 2015 January 30 +*/ +{ + int j; + double deltat; + + + j = iauDat(2003, 6, 1, 0.0, &deltat); + + vvd(deltat, 32.0, 0.0, "iauDat", "d1", status); + viv(j, 0, "iauDat", "j1", status); + + j = iauDat(2008, 1, 17, 0.0, &deltat); + + vvd(deltat, 33.0, 0.0, "iauDat", "d2", status); + viv(j, 0, "iauDat", "j2", status); + + j = iauDat(2015, 9, 1, 0.0, &deltat); + + vvd(deltat, 36.0, 0.0, "iauDat", "d3", status); + viv(j, 0, "iauDat", "j3", status); + +} + +static void t_dtdb(int *status) +/* +** - - - - - - - +** t _ d t d b +** - - - - - - - +** +** Test iauDtdb function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauDtdb, vvd +** +** This revision: 2013 August 7 +*/ +{ + double dtdb; + + + dtdb = iauDtdb(2448939.5, 0.123, 0.76543, 5.0123, 5525.242, 3190.0); + + vvd(dtdb, -0.1280368005936998991e-2, 1e-15, "iauDtdb", "", status); + +} + +static void t_dtf2d(int *status) +/* +** - - - - - - - - +** t _ d t f 2 d +** - - - - - - - - +** +** Test iauDtf2d function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauDtf2d, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double u1, u2; + int j; + + + j = iauDtf2d("UTC", 1994, 6, 30, 23, 59, 60.13599, &u1, &u2); + + vvd(u1+u2, 2449534.49999, 1e-6, "iauDtf2d", "u", status); + viv(j, 0, "iauDtf2d", "j", status); + +} + +static void t_ee00(int *status) +/* +** - - - - - - - +** t _ e e 0 0 +** - - - - - - - +** +** Test iauEe00 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauEe00, vvd +** +** This revision: 2013 August 7 +*/ +{ + double epsa, dpsi, ee; + + + epsa = 0.4090789763356509900; + dpsi = -0.9630909107115582393e-5; + + ee = iauEe00(2400000.5, 53736.0, epsa, dpsi); + + vvd(ee, -0.8834193235367965479e-5, 1e-18, "iauEe00", "", status); + +} + +static void t_ee00a(int *status) +/* +** - - - - - - - - +** t _ e e 0 0 a +** - - - - - - - - +** +** Test iauEe00a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauEe00a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double ee; + + + ee = iauEe00a(2400000.5, 53736.0); + + vvd(ee, -0.8834192459222588227e-5, 1e-18, "iauEe00a", "", status); + +} + +static void t_ee00b(int *status) +/* +** - - - - - - - - +** t _ e e 0 0 b +** - - - - - - - - +** +** Test iauEe00b function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauEe00b, vvd +** +** This revision: 2013 August 7 +*/ +{ + double ee; + + + ee = iauEe00b(2400000.5, 53736.0); + + vvd(ee, -0.8835700060003032831e-5, 1e-18, "iauEe00b", "", status); + +} + +static void t_ee06a(int *status) +/* +** - - - - - - - - +** t _ e e 0 6 a +** - - - - - - - - +** +** Test iauEe06a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauEe06a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double ee; + + + ee = iauEe06a(2400000.5, 53736.0); + + vvd(ee, -0.8834195072043790156e-5, 1e-15, "iauEe06a", "", status); +} + +static void t_eect00(int *status) +/* +** - - - - - - - - - +** t _ e e c t 0 0 +** - - - - - - - - - +** +** Test iauEect00 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauEect00, vvd +** +** This revision: 2013 August 7 +*/ +{ + double eect; + + + eect = iauEect00(2400000.5, 53736.0); + + vvd(eect, 0.2046085004885125264e-8, 1e-20, "iauEect00", "", status); + +} + +static void t_eform(int *status) +/* +** - - - - - - - - +** t _ e f o r m +** - - - - - - - - +** +** Test iauEform function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauEform, viv, vvd +** +** This revision: 2013 August 7 +*/ +{ + int j; + double a, f; + + j = iauEform(0, &a, &f); + + viv(j, -1, "iauEform", "j0", status); + + j = iauEform(WGS84, &a, &f); + + viv(j, 0, "iauEform", "j1", status); + vvd(a, 6378137.0, 1e-10, "iauEform", "a1", status); + vvd(f, 0.0033528106647474807, 1e-18, "iauEform", "f1", status); + + j = iauEform(GRS80, &a, &f); + + viv(j, 0, "iauEform", "j2", status); + vvd(a, 6378137.0, 1e-10, "iauEform", "a2", status); + vvd(f, 0.0033528106811823189, 1e-18, "iauEform", "f2", status); + + j = iauEform(WGS72, &a, &f); + + viv(j, 0, "iauEform", "j2", status); + vvd(a, 6378135.0, 1e-10, "iauEform", "a3", status); + vvd(f, 0.0033527794541675049, 1e-18, "iauEform", "f3", status); + + j = iauEform(4, &a, &f); + viv(j, -1, "iauEform", "j3", status); +} + +static void t_eo06a(int *status) +/* +** - - - - - - - - +** t _ e o 0 6 a +** - - - - - - - - +** +** Test iauEo06a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauEo06a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double eo; + + + eo = iauEo06a(2400000.5, 53736.0); + + vvd(eo, -0.1332882371941833644e-2, 1e-15, "iauEo06a", "", status); + +} + +static void t_eors(int *status) +/* +** - - - - - - - +** t _ e o r s +** - - - - - - - +** +** Test iauEors function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauEors, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rnpb[3][3], s, eo; + + + rnpb[0][0] = 0.9999989440476103608; + rnpb[0][1] = -0.1332881761240011518e-2; + rnpb[0][2] = -0.5790767434730085097e-3; + + rnpb[1][0] = 0.1332858254308954453e-2; + rnpb[1][1] = 0.9999991109044505944; + rnpb[1][2] = -0.4097782710401555759e-4; + + rnpb[2][0] = 0.5791308472168153320e-3; + rnpb[2][1] = 0.4020595661593994396e-4; + rnpb[2][2] = 0.9999998314954572365; + + s = -0.1220040848472271978e-7; + + eo = iauEors(rnpb, s); + + vvd(eo, -0.1332882715130744606e-2, 1e-14, "iauEors", "", status); + +} + +static void t_epb(int *status) +/* +** - - - - - - +** t _ e p b +** - - - - - - +** +** Test iauEpb function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauEpb, vvd +** +** This revision: 2013 August 7 +*/ +{ + double epb; + + + epb = iauEpb(2415019.8135, 30103.18648); + + vvd(epb, 1982.418424159278580, 1e-12, "iauEpb", "", status); + +} + +static void t_epb2jd(int *status) +/* +** - - - - - - - - - +** t _ e p b 2 j d +** - - - - - - - - - +** +** Test iauEpb2jd function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauEpb2jd, vvd +** +** This revision: 2013 August 7 +*/ +{ + double epb, djm0, djm; + + + epb = 1957.3; + + iauEpb2jd(epb, &djm0, &djm); + + vvd(djm0, 2400000.5, 1e-9, "iauEpb2jd", "djm0", status); + vvd(djm, 35948.1915101513, 1e-9, "iauEpb2jd", "mjd", status); + +} + +static void t_epj(int *status) +/* +** - - - - - - +** t _ e p j +** - - - - - - +** +** Test iauEpj function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauEpj, vvd +** +** This revision: 2013 August 7 +*/ +{ + double epj; + + + epj = iauEpj(2451545, -7392.5); + + vvd(epj, 1979.760438056125941, 1e-12, "iauEpj", "", status); + +} + +static void t_epj2jd(int *status) +/* +** - - - - - - - - - +** t _ e p j 2 j d +** - - - - - - - - - +** +** Test iauEpj2jd function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauEpj2jd, vvd +** +** This revision: 2013 August 7 +*/ +{ + double epj, djm0, djm; + + + epj = 1996.8; + + iauEpj2jd(epj, &djm0, &djm); + + vvd(djm0, 2400000.5, 1e-9, "iauEpj2jd", "djm0", status); + vvd(djm, 50375.7, 1e-9, "iauEpj2jd", "mjd", status); + +} + +static void t_epv00(int *status) +/* +** - - - - - - - - +** t _ e p v 0 0 +** - - - - - - - - +** +** Test iauEpv00 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauEpv00, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double pvh[2][3], pvb[2][3]; + int j; + + + j = iauEpv00(2400000.5, 53411.52501161, pvh, pvb); + + vvd(pvh[0][0], -0.7757238809297706813, 1e-14, + "iauEpv00", "ph(x)", status); + vvd(pvh[0][1], 0.5598052241363340596, 1e-14, + "iauEpv00", "ph(y)", status); + vvd(pvh[0][2], 0.2426998466481686993, 1e-14, + "iauEpv00", "ph(z)", status); + + vvd(pvh[1][0], -0.1091891824147313846e-1, 1e-15, + "iauEpv00", "vh(x)", status); + vvd(pvh[1][1], -0.1247187268440845008e-1, 1e-15, + "iauEpv00", "vh(y)", status); + vvd(pvh[1][2], -0.5407569418065039061e-2, 1e-15, + "iauEpv00", "vh(z)", status); + + vvd(pvb[0][0], -0.7714104440491111971, 1e-14, + "iauEpv00", "pb(x)", status); + vvd(pvb[0][1], 0.5598412061824171323, 1e-14, + "iauEpv00", "pb(y)", status); + vvd(pvb[0][2], 0.2425996277722452400, 1e-14, + "iauEpv00", "pb(z)", status); + + vvd(pvb[1][0], -0.1091874268116823295e-1, 1e-15, + "iauEpv00", "vb(x)", status); + vvd(pvb[1][1], -0.1246525461732861538e-1, 1e-15, + "iauEpv00", "vb(y)", status); + vvd(pvb[1][2], -0.5404773180966231279e-2, 1e-15, + "iauEpv00", "vb(z)", status); + + viv(j, 0, "iauEpv00", "j", status); + +} + +static void t_eqeq94(int *status) +/* +** - - - - - - - - - +** t _ e q e q 9 4 +** - - - - - - - - - +** +** Test iauEqeq94 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauEqeq94, vvd +** +** This revision: 2013 August 7 +*/ +{ + double eqeq; + + + eqeq = iauEqeq94(2400000.5, 41234.0); + + vvd(eqeq, 0.5357758254609256894e-4, 1e-17, "iauEqeq94", "", status); + +} + +static void t_era00(int *status) +/* +** - - - - - - - - +** t _ e r a 0 0 +** - - - - - - - - +** +** Test iauEra00 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauEra00, vvd +** +** This revision: 2013 August 7 +*/ +{ + double era00; + + + era00 = iauEra00(2400000.5, 54388.0); + + vvd(era00, 0.4022837240028158102, 1e-12, "iauEra00", "", status); + +} + +static void t_fad03(int *status) +/* +** - - - - - - - - +** t _ f a d 0 3 +** - - - - - - - - +** +** Test iauFad03 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFad03, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauFad03(0.80), 1.946709205396925672, 1e-12, + "iauFad03", "", status); +} + +static void t_fae03(int *status) +/* +** - - - - - - - - +** t _ f a e 0 3 +** - - - - - - - - +** +** Test iauFae03 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFae03, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauFae03(0.80), 1.744713738913081846, 1e-12, + "iauFae03", "", status); +} + +static void t_faf03(int *status) +/* +** - - - - - - - - +** t _ f a f 0 3 +** - - - - - - - - +** +** Test iauFaf03 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFaf03, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauFaf03(0.80), 0.2597711366745499518, 1e-12, + "iauFaf03", "", status); +} + +static void t_faju03(int *status) +/* +** - - - - - - - - - +** t _ f a j u 0 3 +** - - - - - - - - - +** +** Test iauFaju03 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFaju03, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauFaju03(0.80), 5.275711665202481138, 1e-12, + "iauFaju03", "", status); +} + +static void t_fal03(int *status) +/* +** - - - - - - - - +** t _ f a l 0 3 +** - - - - - - - - +** +** Test iauFal03 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFal03, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauFal03(0.80), 5.132369751108684150, 1e-12, + "iauFal03", "", status); +} + +static void t_falp03(int *status) +/* +** - - - - - - - - - +** t _ f a l p 0 3 +** - - - - - - - - - +** +** Test iauFalp03 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFalp03, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauFalp03(0.80), 6.226797973505507345, 1e-12, + "iauFalp03", "", status); +} + +static void t_fama03(int *status) +/* +** - - - - - - - - - +** t _ f a m a 0 3 +** - - - - - - - - - +** +** Test iauFama03 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFama03, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauFama03(0.80), 3.275506840277781492, 1e-12, + "iauFama03", "", status); +} + +static void t_fame03(int *status) +/* +** - - - - - - - - - +** t _ f a m e 0 3 +** - - - - - - - - - +** +** Test iauFame03 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFame03, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauFame03(0.80), 5.417338184297289661, 1e-12, + "iauFame03", "", status); +} + +static void t_fane03(int *status) +/* +** - - - - - - - - - +** t _ f a n e 0 3 +** - - - - - - - - - +** +** Test iauFane03 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFane03, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauFane03(0.80), 2.079343830860413523, 1e-12, + "iauFane03", "", status); +} + +static void t_faom03(int *status) +/* +** - - - - - - - - - +** t _ f a o m 0 3 +** - - - - - - - - - +** +** Test iauFaom03 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFaom03, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauFaom03(0.80), -5.973618440951302183, 1e-12, + "iauFaom03", "", status); +} + +static void t_fapa03(int *status) +/* +** - - - - - - - - - +** t _ f a p a 0 3 +** - - - - - - - - - +** +** Test iauFapa03 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFapa03, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauFapa03(0.80), 0.1950884762240000000e-1, 1e-12, + "iauFapa03", "", status); +} + +static void t_fasa03(int *status) +/* +** - - - - - - - - - +** t _ f a s a 0 3 +** - - - - - - - - - +** +** Test iauFasa03 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFasa03, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauFasa03(0.80), 5.371574539440827046, 1e-12, + "iauFasa03", "", status); +} + +static void t_faur03(int *status) +/* +** - - - - - - - - - +** t _ f a u r 0 3 +** - - - - - - - - - +** +** Test iauFaur03 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFaur03, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauFaur03(0.80), 5.180636450180413523, 1e-12, + "iauFaur03", "", status); +} + +static void t_fave03(int *status) +/* +** - - - - - - - - - +** t _ f a v e 0 3 +** - - - - - - - - - +** +** Test iauFave03 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFave03, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauFave03(0.80), 3.424900460533758000, 1e-12, + "iauFave03", "", status); +} + +static void t_fk52h(int *status) +/* +** - - - - - - - - +** t _ f k 5 2 h +** - - - - - - - - +** +** Test iauFk52h function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFk52h, vvd +** +** This revision: 2013 August 7 +*/ +{ + double r5, d5, dr5, dd5, px5, rv5, rh, dh, drh, ddh, pxh, rvh; + + + r5 = 1.76779433; + d5 = -0.2917517103; + dr5 = -1.91851572e-7; + dd5 = -5.8468475e-6; + px5 = 0.379210; + rv5 = -7.6; + + iauFk52h(r5, d5, dr5, dd5, px5, rv5, + &rh, &dh, &drh, &ddh, &pxh, &rvh); + + vvd(rh, 1.767794226299947632, 1e-14, + "iauFk52h", "ra", status); + vvd(dh, -0.2917516070530391757, 1e-14, + "iauFk52h", "dec", status); + vvd(drh, -0.19618741256057224e-6,1e-19, + "iauFk52h", "dr5", status); + vvd(ddh, -0.58459905176693911e-5, 1e-19, + "iauFk52h", "dd5", status); + vvd(pxh, 0.37921, 1e-14, + "iauFk52h", "px", status); + vvd(rvh, -7.6000000940000254, 1e-11, + "iauFk52h", "rv", status); + +} + +static void t_fk5hip(int *status) +/* +** - - - - - - - - - +** t _ f k 5 h i p +** - - - - - - - - - +** +** Test iauFk5hip function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFk5hip, vvd +** +** This revision: 2013 August 7 +*/ +{ + double r5h[3][3], s5h[3]; + + + iauFk5hip(r5h, s5h); + + vvd(r5h[0][0], 0.9999999999999928638, 1e-14, + "iauFk5hip", "11", status); + vvd(r5h[0][1], 0.1110223351022919694e-6, 1e-17, + "iauFk5hip", "12", status); + vvd(r5h[0][2], 0.4411803962536558154e-7, 1e-17, + "iauFk5hip", "13", status); + vvd(r5h[1][0], -0.1110223308458746430e-6, 1e-17, + "iauFk5hip", "21", status); + vvd(r5h[1][1], 0.9999999999999891830, 1e-14, + "iauFk5hip", "22", status); + vvd(r5h[1][2], -0.9647792498984142358e-7, 1e-17, + "iauFk5hip", "23", status); + vvd(r5h[2][0], -0.4411805033656962252e-7, 1e-17, + "iauFk5hip", "31", status); + vvd(r5h[2][1], 0.9647792009175314354e-7, 1e-17, + "iauFk5hip", "32", status); + vvd(r5h[2][2], 0.9999999999999943728, 1e-14, + "iauFk5hip", "33", status); + vvd(s5h[0], -0.1454441043328607981e-8, 1e-17, + "iauFk5hip", "s1", status); + vvd(s5h[1], 0.2908882086657215962e-8, 1e-17, + "iauFk5hip", "s2", status); + vvd(s5h[2], 0.3393695767766751955e-8, 1e-17, + "iauFk5hip", "s3", status); + +} + +static void t_fk5hz(int *status) +/* +** - - - - - - - - +** t _ f k 5 h z +** - - - - - - - - +** +** Test iauFk5hz function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFk5hz, vvd +** +** This revision: 2013 August 7 +*/ +{ + double r5, d5, rh, dh; + + + r5 = 1.76779433; + d5 = -0.2917517103; + + iauFk5hz(r5, d5, 2400000.5, 54479.0, &rh, &dh); + + vvd(rh, 1.767794191464423978, 1e-12, "iauFk5hz", "ra", status); + vvd(dh, -0.2917516001679884419, 1e-12, "iauFk5hz", "dec", status); + +} + +static void t_fw2m(int *status) +/* +** - - - - - - - +** t _ f w 2 m +** - - - - - - - +** +** Test iauFw2m function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFw2m, vvd +** +** This revision: 2013 August 7 +*/ +{ + double gamb, phib, psi, eps, r[3][3]; + + + gamb = -0.2243387670997992368e-5; + phib = 0.4091014602391312982; + psi = -0.9501954178013015092e-3; + eps = 0.4091014316587367472; + + iauFw2m(gamb, phib, psi, eps, r); + + vvd(r[0][0], 0.9999995505176007047, 1e-12, + "iauFw2m", "11", status); + vvd(r[0][1], 0.8695404617348192957e-3, 1e-12, + "iauFw2m", "12", status); + vvd(r[0][2], 0.3779735201865582571e-3, 1e-12, + "iauFw2m", "13", status); + + vvd(r[1][0], -0.8695404723772016038e-3, 1e-12, + "iauFw2m", "21", status); + vvd(r[1][1], 0.9999996219496027161, 1e-12, + "iauFw2m", "22", status); + vvd(r[1][2], -0.1361752496887100026e-6, 1e-12, + "iauFw2m", "23", status); + + vvd(r[2][0], -0.3779734957034082790e-3, 1e-12, + "iauFw2m", "31", status); + vvd(r[2][1], -0.1924880848087615651e-6, 1e-12, + "iauFw2m", "32", status); + vvd(r[2][2], 0.9999999285679971958, 1e-12, + "iauFw2m", "33", status); + +} + +static void t_fw2xy(int *status) +/* +** - - - - - - - - +** t _ f w 2 x y +** - - - - - - - - +** +** Test iauFw2xy function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauFw2xy, vvd +** +** This revision: 2013 August 7 +*/ +{ + double gamb, phib, psi, eps, x, y; + + + gamb = -0.2243387670997992368e-5; + phib = 0.4091014602391312982; + psi = -0.9501954178013015092e-3; + eps = 0.4091014316587367472; + + iauFw2xy(gamb, phib, psi, eps, &x, &y); + + vvd(x, -0.3779734957034082790e-3, 1e-14, "iauFw2xy", "x", status); + vvd(y, -0.1924880848087615651e-6, 1e-14, "iauFw2xy", "y", status); + +} + +static void t_g2icrs(int *status) +/* +** - - - - - - - - - +** t _ g 2 i c r s +** - - - - - - - - - +** +** Test iauG2icrs function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauG2icrs, vvd +** +** This revision: 2015 January 30 +*/ +{ + double dl, db, dr, dd; + + + dl = 5.5850536063818546461558105; + db = -0.7853981633974483096156608; + iauG2icrs (dl, db, &dr, &dd); + vvd(dr, 5.9338074302227188048671, 1e-14, "iauG2icrs", "R", status); + vvd(dd, -1.1784870613579944551541, 1e-14, "iauG2icrs", "D", status); + } + +static void t_gc2gd(int *status) +/* +** - - - - - - - - +** t _ g c 2 g d +** - - - - - - - - +** +** Test iauGc2gd function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauGc2gd, viv, vvd +** +** This revision: 2013 August 7 +*/ +{ + int j; + double xyz[] = {2e6, 3e6, 5.244e6}; + double e, p, h; + + j = iauGc2gd(0, xyz, &e, &p, &h); + + viv(j, -1, "iauGc2gd", "j0", status); + + j = iauGc2gd(WGS84, xyz, &e, &p, &h); + + viv(j, 0, "iauGc2gd", "j1", status); + vvd(e, 0.98279372324732907, 1e-14, "iauGc2gd", "e1", status); + vvd(p, 0.97160184819075459, 1e-14, "iauGc2gd", "p1", status); + vvd(h, 331.41724614260599, 1e-8, "iauGc2gd", "h1", status); + + j = iauGc2gd(GRS80, xyz, &e, &p, &h); + + viv(j, 0, "iauGc2gd", "j2", status); + vvd(e, 0.98279372324732907, 1e-14, "iauGc2gd", "e2", status); + vvd(p, 0.97160184820607853, 1e-14, "iauGc2gd", "p2", status); + vvd(h, 331.41731754844348, 1e-8, "iauGc2gd", "h2", status); + + j = iauGc2gd(WGS72, xyz, &e, &p, &h); + + viv(j, 0, "iauGc2gd", "j3", status); + vvd(e, 0.98279372324732907, 1e-14, "iauGc2gd", "e3", status); + vvd(p, 0.97160181811015119, 1e-14, "iauGc2gd", "p3", status); + vvd(h, 333.27707261303181, 1e-8, "iauGc2gd", "h3", status); + + j = iauGc2gd(4, xyz, &e, &p, &h); + + viv(j, -1, "iauGc2gd", "j4", status); +} + +static void t_gc2gde(int *status) +/* +** - - - - - - - - - +** t _ g c 2 g d e +** - - - - - - - - - +** +** Test iauGc2gde function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauGc2gde, viv, vvd +** +** This revision: 2013 August 7 +*/ +{ + int j; + double a = 6378136.0, f = 0.0033528; + double xyz[] = {2e6, 3e6, 5.244e6}; + double e, p, h; + + j = iauGc2gde(a, f, xyz, &e, &p, &h); + + viv(j, 0, "iauGc2gde", "j", status); + vvd(e, 0.98279372324732907, 1e-14, "iauGc2gde", "e", status); + vvd(p, 0.97160183775704115, 1e-14, "iauGc2gde", "p", status); + vvd(h, 332.36862495764397, 1e-8, "iauGc2gde", "h", status); +} + +static void t_gd2gc(int *status) +/* +** - - - - - - - - +** t _ g d 2 g c +** - - - - - - - - +** +** Test iauGd2gc function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauGd2gc, viv, vvd +** +** This revision: 2013 August 7 +*/ +{ + int j; + double e = 3.1, p = -0.5, h = 2500.0; + double xyz[3]; + + j = iauGd2gc(0, e, p, h, xyz); + + viv(j, -1, "iauGd2gc", "j0", status); + + j = iauGd2gc(WGS84, e, p, h, xyz); + + viv(j, 0, "iauGd2gc", "j1", status); + vvd(xyz[0], -5599000.5577049947, 1e-7, "iauGd2gc", "0/1", status); + vvd(xyz[1], 233011.67223479203, 1e-7, "iauGd2gc", "1/1", status); + vvd(xyz[2], -3040909.4706983363, 1e-7, "iauGd2gc", "2/1", status); + + j = iauGd2gc(GRS80, e, p, h, xyz); + + viv(j, 0, "iauGd2gc", "j2", status); + vvd(xyz[0], -5599000.5577260984, 1e-7, "iauGd2gc", "0/2", status); + vvd(xyz[1], 233011.6722356703, 1e-7, "iauGd2gc", "1/2", status); + vvd(xyz[2], -3040909.4706095476, 1e-7, "iauGd2gc", "2/2", status); + + j = iauGd2gc(WGS72, e, p, h, xyz); + + viv(j, 0, "iauGd2gc", "j3", status); + vvd(xyz[0], -5598998.7626301490, 1e-7, "iauGd2gc", "0/3", status); + vvd(xyz[1], 233011.5975297822, 1e-7, "iauGd2gc", "1/3", status); + vvd(xyz[2], -3040908.6861467111, 1e-7, "iauGd2gc", "2/3", status); + + j = iauGd2gc(4, e, p, h, xyz); + + viv(j, -1, "iauGd2gc", "j4", status); +} + +static void t_gd2gce(int *status) +/* +** - - - - - - - - - +** t _ g d 2 g c e +** - - - - - - - - - +** +** Test iauGd2gce function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauGd2gce, viv, vvd +** +** This revision: 2013 August 7 +*/ +{ + int j; + double a = 6378136.0, f = 0.0033528; + double e = 3.1, p = -0.5, h = 2500.0; + double xyz[3]; + + j = iauGd2gce(a, f, e, p, h, xyz); + + viv(j, 0, "iauGd2gce", "j", status); + vvd(xyz[0], -5598999.6665116328, 1e-7, "iauGd2gce", "0", status); + vvd(xyz[1], 233011.63514630572, 1e-7, "iauGd2gce", "1", status); + vvd(xyz[2], -3040909.0517314132, 1e-7, "iauGd2gce", "2", status); +} + +static void t_gmst00(int *status) +/* +** - - - - - - - - - +** t _ g m s t 0 0 +** - - - - - - - - - +** +** Test iauGmst00 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauGmst00, vvd +** +** This revision: 2013 August 7 +*/ +{ + double theta; + + + theta = iauGmst00(2400000.5, 53736.0, 2400000.5, 53736.0); + + vvd(theta, 1.754174972210740592, 1e-12, "iauGmst00", "", status); + +} + +static void t_gmst06(int *status) +/* +** - - - - - - - - - +** t _ g m s t 0 6 +** - - - - - - - - - +** +** Test iauGmst06 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauGmst06, vvd +** +** This revision: 2013 August 7 +*/ +{ + double theta; + + + theta = iauGmst06(2400000.5, 53736.0, 2400000.5, 53736.0); + + vvd(theta, 1.754174971870091203, 1e-12, "iauGmst06", "", status); + +} + +static void t_gmst82(int *status) +/* +** - - - - - - - - - +** t _ g m s t 8 2 +** - - - - - - - - - +** +** Test iauGmst82 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauGmst82, vvd +** +** This revision: 2013 August 7 +*/ +{ + double theta; + + + theta = iauGmst82(2400000.5, 53736.0); + + vvd(theta, 1.754174981860675096, 1e-12, "iauGmst82", "", status); + +} + +static void t_gst00a(int *status) +/* +** - - - - - - - - - +** t _ g s t 0 0 a +** - - - - - - - - - +** +** Test iauGst00a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauGst00a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double theta; + + + theta = iauGst00a(2400000.5, 53736.0, 2400000.5, 53736.0); + + vvd(theta, 1.754166138018281369, 1e-12, "iauGst00a", "", status); + +} + +static void t_gst00b(int *status) +/* +** - - - - - - - - - +** t _ g s t 0 0 b +** - - - - - - - - - +** +** Test iauGst00b function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauGst00b, vvd +** +** This revision: 2013 August 7 +*/ +{ + double theta; + + + theta = iauGst00b(2400000.5, 53736.0); + + vvd(theta, 1.754166136510680589, 1e-12, "iauGst00b", "", status); + +} + +static void t_gst06(int *status) +/* +** - - - - - - - - +** t _ g s t 0 6 +** - - - - - - - - +** +** Test iauGst06 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauGst06, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rnpb[3][3], theta; + + + rnpb[0][0] = 0.9999989440476103608; + rnpb[0][1] = -0.1332881761240011518e-2; + rnpb[0][2] = -0.5790767434730085097e-3; + + rnpb[1][0] = 0.1332858254308954453e-2; + rnpb[1][1] = 0.9999991109044505944; + rnpb[1][2] = -0.4097782710401555759e-4; + + rnpb[2][0] = 0.5791308472168153320e-3; + rnpb[2][1] = 0.4020595661593994396e-4; + rnpb[2][2] = 0.9999998314954572365; + + theta = iauGst06(2400000.5, 53736.0, 2400000.5, 53736.0, rnpb); + + vvd(theta, 1.754166138018167568, 1e-12, "iauGst06", "", status); + +} + +static void t_gst06a(int *status) +/* +** - - - - - - - - - +** t _ g s t 0 6 a +** - - - - - - - - - +** +** Test iauGst06a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauGst06a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double theta; + + + theta = iauGst06a(2400000.5, 53736.0, 2400000.5, 53736.0); + + vvd(theta, 1.754166137675019159, 1e-12, "iauGst06a", "", status); + +} + +static void t_gst94(int *status) +/* +** - - - - - - - - +** t _ g s t 9 4 +** - - - - - - - - +** +** Test iauGst94 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauGst94, vvd +** +** This revision: 2013 August 7 +*/ +{ + double theta; + + + theta = iauGst94(2400000.5, 53736.0); + + vvd(theta, 1.754166136020645203, 1e-12, "iauGst94", "", status); + +} + +static void t_icrs2g(int *status) +/* +** - - - - - - - - - +** t _ i c r s 2 g +** - - - - - - - - - +** +** Test iauIcrs2g function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauIcrs2g, vvd +** +** This revision: 2015 January 30 +*/ +{ + double dr, dd, dl, db; + + dr = 5.9338074302227188048671087; + dd = -1.1784870613579944551540570; + iauIcrs2g (dr, dd, &dl, &db); + vvd(dl, 5.5850536063818546461558, 1e-14, "iauIcrs2g", "L", status); + vvd(db, -0.7853981633974483096157, 1e-14, "iauIcrs2g", "B", status); + } + +static void t_h2fk5(int *status) +/* +** - - - - - - - - +** t _ h 2 f k 5 +** - - - - - - - - +** +** Test iauH2fk5 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauH2fk5, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rh, dh, drh, ddh, pxh, rvh, r5, d5, dr5, dd5, px5, rv5; + + + rh = 1.767794352; + dh = -0.2917512594; + drh = -2.76413026e-6; + ddh = -5.92994449e-6; + pxh = 0.379210; + rvh = -7.6; + + iauH2fk5(rh, dh, drh, ddh, pxh, rvh, + &r5, &d5, &dr5, &dd5, &px5, &rv5); + + vvd(r5, 1.767794455700065506, 1e-13, + "iauH2fk5", "ra", status); + vvd(d5, -0.2917513626469638890, 1e-13, + "iauH2fk5", "dec", status); + vvd(dr5, -0.27597945024511204e-5, 1e-18, + "iauH2fk5", "dr5", status); + vvd(dd5, -0.59308014093262838e-5, 1e-18, + "iauH2fk5", "dd5", status); + vvd(px5, 0.37921, 1e-13, + "iauH2fk5", "px", status); + vvd(rv5, -7.6000001309071126, 1e-10, + "iauH2fk5", "rv", status); + +} + +static void t_hfk5z(int *status) +/* +** - - - - - - - - +** t _ h f k 5 z +** - - - - - - - - +** +** Test iauHfk5z function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauHfk5z, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rh, dh, r5, d5, dr5, dd5; + + + + rh = 1.767794352; + dh = -0.2917512594; + + iauHfk5z(rh, dh, 2400000.5, 54479.0, &r5, &d5, &dr5, &dd5); + + vvd(r5, 1.767794490535581026, 1e-13, + "iauHfk5z", "ra", status); + vvd(d5, -0.2917513695320114258, 1e-14, + "iauHfk5z", "dec", status); + vvd(dr5, 0.4335890983539243029e-8, 1e-22, + "iauHfk5z", "dr5", status); + vvd(dd5, -0.8569648841237745902e-9, 1e-23, + "iauHfk5z", "dd5", status); + +} + +static void t_ir(int *status) +/* +** - - - - - +** t _ i r +** - - - - - +** +** Test iauIr function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauIr, vvd +** +** This revision: 2013 August 7 +*/ +{ + double r[3][3]; + + + r[0][0] = 2.0; + r[0][1] = 3.0; + r[0][2] = 2.0; + + r[1][0] = 3.0; + r[1][1] = 2.0; + r[1][2] = 3.0; + + r[2][0] = 3.0; + r[2][1] = 4.0; + r[2][2] = 5.0; + + iauIr(r); + + vvd(r[0][0], 1.0, 0.0, "iauIr", "11", status); + vvd(r[0][1], 0.0, 0.0, "iauIr", "12", status); + vvd(r[0][2], 0.0, 0.0, "iauIr", "13", status); + + vvd(r[1][0], 0.0, 0.0, "iauIr", "21", status); + vvd(r[1][1], 1.0, 0.0, "iauIr", "22", status); + vvd(r[1][2], 0.0, 0.0, "iauIr", "23", status); + + vvd(r[2][0], 0.0, 0.0, "iauIr", "31", status); + vvd(r[2][1], 0.0, 0.0, "iauIr", "32", status); + vvd(r[2][2], 1.0, 0.0, "iauIr", "33", status); + +} + +static void t_jd2cal(int *status) +/* +** - - - - - - - - - +** t _ j d 2 c a l +** - - - - - - - - - +** +** Test iauJd2cal function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauJd2cal, viv, vvd +** +** This revision: 2013 August 7 +*/ +{ + double dj1, dj2, fd; + int iy, im, id, j; + + + dj1 = 2400000.5; + dj2 = 50123.9999; + + j = iauJd2cal(dj1, dj2, &iy, &im, &id, &fd); + + viv(iy, 1996, "iauJd2cal", "y", status); + viv(im, 2, "iauJd2cal", "m", status); + viv(id, 10, "iauJd2cal", "d", status); + vvd(fd, 0.9999, 1e-7, "iauJd2cal", "fd", status); + viv(j, 0, "iauJd2cal", "j", status); + +} + +static void t_jdcalf(int *status) +/* +** - - - - - - - - - +** t _ j d c a l f +** - - - - - - - - - +** +** Test iauJdcalf function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauJdcalf, viv +** +** This revision: 2013 August 7 +*/ +{ + double dj1, dj2; + int iydmf[4], j; + + + dj1 = 2400000.5; + dj2 = 50123.9999; + + j = iauJdcalf(4, dj1, dj2, iydmf); + + viv(iydmf[0], 1996, "iauJdcalf", "y", status); + viv(iydmf[1], 2, "iauJdcalf", "m", status); + viv(iydmf[2], 10, "iauJdcalf", "d", status); + viv(iydmf[3], 9999, "iauJdcalf", "f", status); + + viv(j, 0, "iauJdcalf", "j", status); + +} + +static void t_ld(int *status) +/* +** - - - - - +** t _ l d +** - - - - - +** +** Test iauLd function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauLd, vvd +* +** This revision: 2013 October 2 +*/ +{ + double bm, p[3], q[3], e[3], em, dlim, p1[3]; + + + bm = 0.00028574; + p[0] = -0.763276255; + p[1] = -0.608633767; + p[2] = -0.216735543; + q[0] = -0.763276255; + q[1] = -0.608633767; + q[2] = -0.216735543; + e[0] = 0.76700421; + e[1] = 0.605629598; + e[2] = 0.211937094; + em = 8.91276983; + dlim = 3e-10; + + iauLd(bm, p, q, e, em, dlim, p1); + + vvd(p1[0], -0.7632762548968159627, 1e-12, + "iauLd", "1", status); + vvd(p1[1], -0.6086337670823762701, 1e-12, + "iauLd", "2", status); + vvd(p1[2], -0.2167355431320546947, 1e-12, + "iauLd", "3", status); + +} + +static void t_ldn(int *status) +/* +** - - - - - - +** t _ l d n +** - - - - - - +** +** Test iauLdn function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauLdn, vvd +** +** This revision: 2013 October 2 +*/ +{ + int n; + iauLDBODY b[3]; + double ob[3], sc[3], sn[3]; + + + n = 3; + b[0].bm = 0.00028574; + b[0].dl = 3e-10; + b[0].pv[0][0] = -7.81014427; + b[0].pv[0][1] = -5.60956681; + b[0].pv[0][2] = -1.98079819; + b[0].pv[1][0] = 0.0030723249; + b[0].pv[1][1] = -0.00406995477; + b[0].pv[1][2] = -0.00181335842; + b[1].bm = 0.00095435; + b[1].dl = 3e-9; + b[1].pv[0][0] = 0.738098796; + b[1].pv[0][1] = 4.63658692; + b[1].pv[0][2] = 1.9693136; + b[1].pv[1][0] = -0.00755816922; + b[1].pv[1][1] = 0.00126913722; + b[1].pv[1][2] = 0.000727999001; + b[2].bm = 1.0; + b[2].dl = 6e-6; + b[2].pv[0][0] = -0.000712174377; + b[2].pv[0][1] = -0.00230478303; + b[2].pv[0][2] = -0.00105865966; + b[2].pv[1][0] = 6.29235213e-6; + b[2].pv[1][1] = -3.30888387e-7; + b[2].pv[1][2] = -2.96486623e-7; + ob[0] = -0.974170437; + ob[1] = -0.2115201; + ob[2] = -0.0917583114; + sc[0] = -0.763276255; + sc[1] = -0.608633767; + sc[2] = -0.216735543; + + iauLdn(n, b, ob, sc, sn); + + vvd(sn[0], -0.7632762579693333866, 1e-12, + "iauLdn", "1", status); + vvd(sn[1], -0.6086337636093002660, 1e-12, + "iauLdn", "2", status); + vvd(sn[2], -0.2167355420646328159, 1e-12, + "iauLdn", "3", status); + +} + +static void t_ldsun(int *status) +/* +** - - - - - - - - +** t _ l d s u n +** - - - - - - - - +** +** Test iauLdsun function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauLdsun, vvd +** +** This revision: 2013 October 2 +*/ +{ + double p[3], e[3], em, p1[3]; + + + p[0] = -0.763276255; + p[1] = -0.608633767; + p[2] = -0.216735543; + e[0] = -0.973644023; + e[1] = -0.20925523; + e[2] = -0.0907169552; + em = 0.999809214; + + iauLdsun(p, e, em, p1); + + vvd(p1[0], -0.7632762580731413169, 1e-12, + "iauLdsun", "1", status); + vvd(p1[1], -0.6086337635262647900, 1e-12, + "iauLdsun", "2", status); + vvd(p1[2], -0.2167355419322321302, 1e-12, + "iauLdsun", "3", status); + +} + +static void t_num00a(int *status) +/* +** - - - - - - - - - +** t _ n u m 0 0 a +** - - - - - - - - - +** +** Test iauNum00a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauNum00a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rmatn[3][3]; + + + iauNum00a(2400000.5, 53736.0, rmatn); + + vvd(rmatn[0][0], 0.9999999999536227949, 1e-12, + "iauNum00a", "11", status); + vvd(rmatn[0][1], 0.8836238544090873336e-5, 1e-12, + "iauNum00a", "12", status); + vvd(rmatn[0][2], 0.3830835237722400669e-5, 1e-12, + "iauNum00a", "13", status); + + vvd(rmatn[1][0], -0.8836082880798569274e-5, 1e-12, + "iauNum00a", "21", status); + vvd(rmatn[1][1], 0.9999999991354655028, 1e-12, + "iauNum00a", "22", status); + vvd(rmatn[1][2], -0.4063240865362499850e-4, 1e-12, + "iauNum00a", "23", status); + + vvd(rmatn[2][0], -0.3831194272065995866e-5, 1e-12, + "iauNum00a", "31", status); + vvd(rmatn[2][1], 0.4063237480216291775e-4, 1e-12, + "iauNum00a", "32", status); + vvd(rmatn[2][2], 0.9999999991671660338, 1e-12, + "iauNum00a", "33", status); + +} + +static void t_num00b(int *status) +/* +** - - - - - - - - - +** t _ n u m 0 0 b +** - - - - - - - - - +** +** Test iauNum00b function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauNum00b, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rmatn[3][3]; + + iauNum00b(2400000.5, 53736, rmatn); + + vvd(rmatn[0][0], 0.9999999999536069682, 1e-12, + "iauNum00b", "11", status); + vvd(rmatn[0][1], 0.8837746144871248011e-5, 1e-12, + "iauNum00b", "12", status); + vvd(rmatn[0][2], 0.3831488838252202945e-5, 1e-12, + "iauNum00b", "13", status); + + vvd(rmatn[1][0], -0.8837590456632304720e-5, 1e-12, + "iauNum00b", "21", status); + vvd(rmatn[1][1], 0.9999999991354692733, 1e-12, + "iauNum00b", "22", status); + vvd(rmatn[1][2], -0.4063198798559591654e-4, 1e-12, + "iauNum00b", "23", status); + + vvd(rmatn[2][0], -0.3831847930134941271e-5, 1e-12, + "iauNum00b", "31", status); + vvd(rmatn[2][1], 0.4063195412258168380e-4, 1e-12, + "iauNum00b", "32", status); + vvd(rmatn[2][2], 0.9999999991671806225, 1e-12, + "iauNum00b", "33", status); + +} + +static void t_num06a(int *status) +/* +** - - - - - - - - - +** t _ n u m 0 6 a +** - - - - - - - - - +** +** Test iauNum06a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauNum06a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rmatn[3][3]; + + iauNum06a(2400000.5, 53736, rmatn); + + vvd(rmatn[0][0], 0.9999999999536227668, 1e-12, + "iauNum06a", "11", status); + vvd(rmatn[0][1], 0.8836241998111535233e-5, 1e-12, + "iauNum06a", "12", status); + vvd(rmatn[0][2], 0.3830834608415287707e-5, 1e-12, + "iauNum06a", "13", status); + + vvd(rmatn[1][0], -0.8836086334870740138e-5, 1e-12, + "iauNum06a", "21", status); + vvd(rmatn[1][1], 0.9999999991354657474, 1e-12, + "iauNum06a", "22", status); + vvd(rmatn[1][2], -0.4063240188248455065e-4, 1e-12, + "iauNum06a", "23", status); + + vvd(rmatn[2][0], -0.3831193642839398128e-5, 1e-12, + "iauNum06a", "31", status); + vvd(rmatn[2][1], 0.4063236803101479770e-4, 1e-12, + "iauNum06a", "32", status); + vvd(rmatn[2][2], 0.9999999991671663114, 1e-12, + "iauNum06a", "33", status); + +} + +static void t_numat(int *status) +/* +** - - - - - - - - +** t _ n u m a t +** - - - - - - - - +** +** Test iauNumat function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauNumat, vvd +** +** This revision: 2013 August 7 +*/ +{ + double epsa, dpsi, deps, rmatn[3][3]; + + + epsa = 0.4090789763356509900; + dpsi = -0.9630909107115582393e-5; + deps = 0.4063239174001678826e-4; + + iauNumat(epsa, dpsi, deps, rmatn); + + vvd(rmatn[0][0], 0.9999999999536227949, 1e-12, + "iauNumat", "11", status); + vvd(rmatn[0][1], 0.8836239320236250577e-5, 1e-12, + "iauNumat", "12", status); + vvd(rmatn[0][2], 0.3830833447458251908e-5, 1e-12, + "iauNumat", "13", status); + + vvd(rmatn[1][0], -0.8836083657016688588e-5, 1e-12, + "iauNumat", "21", status); + vvd(rmatn[1][1], 0.9999999991354654959, 1e-12, + "iauNumat", "22", status); + vvd(rmatn[1][2], -0.4063240865361857698e-4, 1e-12, + "iauNumat", "23", status); + + vvd(rmatn[2][0], -0.3831192481833385226e-5, 1e-12, + "iauNumat", "31", status); + vvd(rmatn[2][1], 0.4063237480216934159e-4, 1e-12, + "iauNumat", "32", status); + vvd(rmatn[2][2], 0.9999999991671660407, 1e-12, + "iauNumat", "33", status); + +} + +static void t_nut00a(int *status) +/* +** - - - - - - - - - +** t _ n u t 0 0 a +** - - - - - - - - - +** +** Test iauNut00a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauNut00a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double dpsi, deps; + + + iauNut00a(2400000.5, 53736.0, &dpsi, &deps); + + vvd(dpsi, -0.9630909107115518431e-5, 1e-13, + "iauNut00a", "dpsi", status); + vvd(deps, 0.4063239174001678710e-4, 1e-13, + "iauNut00a", "deps", status); + +} + +static void t_nut00b(int *status) +/* +** - - - - - - - - - +** t _ n u t 0 0 b +** - - - - - - - - - +** +** Test iauNut00b function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauNut00b, vvd +** +** This revision: 2013 August 7 +*/ +{ + double dpsi, deps; + + + iauNut00b(2400000.5, 53736.0, &dpsi, &deps); + + vvd(dpsi, -0.9632552291148362783e-5, 1e-13, + "iauNut00b", "dpsi", status); + vvd(deps, 0.4063197106621159367e-4, 1e-13, + "iauNut00b", "deps", status); + +} + +static void t_nut06a(int *status) +/* +** - - - - - - - - - +** t _ n u t 0 6 a +** - - - - - - - - - +** +** Test iauNut06a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauNut06a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double dpsi, deps; + + + iauNut06a(2400000.5, 53736.0, &dpsi, &deps); + + vvd(dpsi, -0.9630912025820308797e-5, 1e-13, + "iauNut06a", "dpsi", status); + vvd(deps, 0.4063238496887249798e-4, 1e-13, + "iauNut06a", "deps", status); + +} + +static void t_nut80(int *status) +/* +** - - - - - - - - +** t _ n u t 8 0 +** - - - - - - - - +** +** Test iauNut80 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauNut80, vvd +** +** This revision: 2013 August 7 +*/ +{ + double dpsi, deps; + + + iauNut80(2400000.5, 53736.0, &dpsi, &deps); + + vvd(dpsi, -0.9643658353226563966e-5, 1e-13, + "iauNut80", "dpsi", status); + vvd(deps, 0.4060051006879713322e-4, 1e-13, + "iauNut80", "deps", status); + +} + +static void t_nutm80(int *status) +/* +** - - - - - - - - - +** t _ n u t m 8 0 +** - - - - - - - - - +** +** Test iauNutm80 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauNutm80, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rmatn[3][3]; + + + iauNutm80(2400000.5, 53736.0, rmatn); + + vvd(rmatn[0][0], 0.9999999999534999268, 1e-12, + "iauNutm80", "11", status); + vvd(rmatn[0][1], 0.8847935789636432161e-5, 1e-12, + "iauNutm80", "12", status); + vvd(rmatn[0][2], 0.3835906502164019142e-5, 1e-12, + "iauNutm80", "13", status); + + vvd(rmatn[1][0], -0.8847780042583435924e-5, 1e-12, + "iauNutm80", "21", status); + vvd(rmatn[1][1], 0.9999999991366569963, 1e-12, + "iauNutm80", "22", status); + vvd(rmatn[1][2], -0.4060052702727130809e-4, 1e-12, + "iauNutm80", "23", status); + + vvd(rmatn[2][0], -0.3836265729708478796e-5, 1e-12, + "iauNutm80", "31", status); + vvd(rmatn[2][1], 0.4060049308612638555e-4, 1e-12, + "iauNutm80", "32", status); + vvd(rmatn[2][2], 0.9999999991684415129, 1e-12, + "iauNutm80", "33", status); + +} + +static void t_obl06(int *status) +/* +** - - - - - - - - +** t _ o b l 0 6 +** - - - - - - - - +** +** Test iauObl06 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauObl06, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauObl06(2400000.5, 54388.0), 0.4090749229387258204, 1e-14, + "iauObl06", "", status); +} + +static void t_obl80(int *status) +/* +** - - - - - - - - +** t _ o b l 8 0 +** - - - - - - - - +** +** Test iauObl80 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauObl80, vvd +** +** This revision: 2013 August 7 +*/ +{ + double eps0; + + + eps0 = iauObl80(2400000.5, 54388.0); + + vvd(eps0, 0.4090751347643816218, 1e-14, "iauObl80", "", status); + +} + +static void t_p06e(int *status) +/* +** - - - - - - - +** t _ p 0 6 e +** - - - - - - - +** +** Test iauP06e function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauP06e, vvd +** +** This revision: 2013 August 7 +*/ +{ + double eps0, psia, oma, bpa, bqa, pia, bpia, + epsa, chia, za, zetaa, thetaa, pa, gam, phi, psi; + + + iauP06e(2400000.5, 52541.0, &eps0, &psia, &oma, &bpa, + &bqa, &pia, &bpia, &epsa, &chia, &za, + &zetaa, &thetaa, &pa, &gam, &phi, &psi); + + vvd(eps0, 0.4090926006005828715, 1e-14, + "iauP06e", "eps0", status); + vvd(psia, 0.6664369630191613431e-3, 1e-14, + "iauP06e", "psia", status); + vvd(oma , 0.4090925973783255982, 1e-14, + "iauP06e", "oma", status); + vvd(bpa, 0.5561149371265209445e-6, 1e-14, + "iauP06e", "bpa", status); + vvd(bqa, -0.6191517193290621270e-5, 1e-14, + "iauP06e", "bqa", status); + vvd(pia, 0.6216441751884382923e-5, 1e-14, + "iauP06e", "pia", status); + vvd(bpia, 3.052014180023779882, 1e-14, + "iauP06e", "bpia", status); + vvd(epsa, 0.4090864054922431688, 1e-14, + "iauP06e", "epsa", status); + vvd(chia, 0.1387703379530915364e-5, 1e-14, + "iauP06e", "chia", status); + vvd(za, 0.2921789846651790546e-3, 1e-14, + "iauP06e", "za", status); + vvd(zetaa, 0.3178773290332009310e-3, 1e-14, + "iauP06e", "zetaa", status); + vvd(thetaa, 0.2650932701657497181e-3, 1e-14, + "iauP06e", "thetaa", status); + vvd(pa, 0.6651637681381016344e-3, 1e-14, + "iauP06e", "pa", status); + vvd(gam, 0.1398077115963754987e-5, 1e-14, + "iauP06e", "gam", status); + vvd(phi, 0.4090864090837462602, 1e-14, + "iauP06e", "phi", status); + vvd(psi, 0.6664464807480920325e-3, 1e-14, + "iauP06e", "psi", status); + +} + +static void t_p2pv(int *status) +/* +** - - - - - - - +** t _ p 2 p v +** - - - - - - - +** +** Test iauP2pv function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauP2pv, vvd +** +** This revision: 2013 August 7 +*/ +{ + double p[3], pv[2][3]; + + + p[0] = 0.25; + p[1] = 1.2; + p[2] = 3.0; + + pv[0][0] = 0.3; + pv[0][1] = 1.2; + pv[0][2] = -2.5; + + pv[1][0] = -0.5; + pv[1][1] = 3.1; + pv[1][2] = 0.9; + + iauP2pv(p, pv); + + vvd(pv[0][0], 0.25, 0.0, "iauP2pv", "p1", status); + vvd(pv[0][1], 1.2, 0.0, "iauP2pv", "p2", status); + vvd(pv[0][2], 3.0, 0.0, "iauP2pv", "p3", status); + + vvd(pv[1][0], 0.0, 0.0, "iauP2pv", "v1", status); + vvd(pv[1][1], 0.0, 0.0, "iauP2pv", "v2", status); + vvd(pv[1][2], 0.0, 0.0, "iauP2pv", "v3", status); + +} + +static void t_p2s(int *status) +/* +** - - - - - - +** t _ p 2 s +** - - - - - - +** +** Test iauP2s function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauP2s, vvd +** +** This revision: 2013 August 7 +*/ +{ + double p[3], theta, phi, r; + + + p[0] = 100.0; + p[1] = -50.0; + p[2] = 25.0; + + iauP2s(p, &theta, &phi, &r); + + vvd(theta, -0.4636476090008061162, 1e-12, "iauP2s", "theta", status); + vvd(phi, 0.2199879773954594463, 1e-12, "iauP2s", "phi", status); + vvd(r, 114.5643923738960002, 1e-9, "iauP2s", "r", status); + +} + +static void t_pap(int *status) +/* +** - - - - - - +** t _ p a p +** - - - - - - +** +** Test iauPap function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPap, vvd +** +** This revision: 2013 August 7 +*/ +{ + double a[3], b[3], theta; + + + a[0] = 1.0; + a[1] = 0.1; + a[2] = 0.2; + + b[0] = -3.0; + b[1] = 1e-3; + b[2] = 0.2; + + theta = iauPap(a, b); + + vvd(theta, 0.3671514267841113674, 1e-12, "iauPap", "", status); + +} + +static void t_pas(int *status) +/* +** - - - - - - +** t _ p a s +** - - - - - - +** +** Test iauPas function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPas, vvd +** +** This revision: 2013 August 7 +*/ +{ + double al, ap, bl, bp, theta; + + + al = 1.0; + ap = 0.1; + bl = 0.2; + bp = -1.0; + + theta = iauPas(al, ap, bl, bp); + + vvd(theta, -2.724544922932270424, 1e-12, "iauPas", "", status); + +} + +static void t_pb06(int *status) +/* +** - - - - - - - +** t _ p b 0 6 +** - - - - - - - +** +** Test iauPb06 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPb06, vvd +** +** This revision: 2013 August 7 +*/ +{ + double bzeta, bz, btheta; + + + iauPb06(2400000.5, 50123.9999, &bzeta, &bz, &btheta); + + vvd(bzeta, -0.5092634016326478238e-3, 1e-12, + "iauPb06", "bzeta", status); + vvd(bz, -0.3602772060566044413e-3, 1e-12, + "iauPb06", "bz", status); + vvd(btheta, -0.3779735537167811177e-3, 1e-12, + "iauPb06", "btheta", status); + +} + +static void t_pdp(int *status) +/* +** - - - - - - +** t _ p d p +** - - - - - - +** +** Test iauPdp function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPdp, vvd +** +** This revision: 2013 August 7 +*/ +{ + double a[3], b[3], adb; + + + a[0] = 2.0; + a[1] = 2.0; + a[2] = 3.0; + + b[0] = 1.0; + b[1] = 3.0; + b[2] = 4.0; + + adb = iauPdp(a, b); + + vvd(adb, 20, 1e-12, "iauPdp", "", status); + +} + +static void t_pfw06(int *status) +/* +** - - - - - - - - +** t _ p f w 0 6 +** - - - - - - - - +** +** Test iauPfw06 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPfw06, vvd +** +** This revision: 2013 August 7 +*/ +{ + double gamb, phib, psib, epsa; + + + iauPfw06(2400000.5, 50123.9999, &gamb, &phib, &psib, &epsa); + + vvd(gamb, -0.2243387670997995690e-5, 1e-16, + "iauPfw06", "gamb", status); + vvd(phib, 0.4091014602391312808, 1e-12, + "iauPfw06", "phib", status); + vvd(psib, -0.9501954178013031895e-3, 1e-14, + "iauPfw06", "psib", status); + vvd(epsa, 0.4091014316587367491, 1e-12, + "iauPfw06", "epsa", status); + +} + +static void t_plan94(int *status) +/* +** - - - - - - - - - +** t _ p l a n 9 4 +** - - - - - - - - - +** +** Test iauPlan94 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPlan94, vvd, viv +** +** This revision: 2013 October 2 +*/ +{ + double pv[2][3]; + int j; + + + j = iauPlan94(2400000.5, 1e6, 0, pv); + + vvd(pv[0][0], 0.0, 0.0, "iauPlan94", "x 1", status); + vvd(pv[0][1], 0.0, 0.0, "iauPlan94", "y 1", status); + vvd(pv[0][2], 0.0, 0.0, "iauPlan94", "z 1", status); + + vvd(pv[1][0], 0.0, 0.0, "iauPlan94", "xd 1", status); + vvd(pv[1][1], 0.0, 0.0, "iauPlan94", "yd 1", status); + vvd(pv[1][2], 0.0, 0.0, "iauPlan94", "zd 1", status); + + viv(j, -1, "iauPlan94", "j 1", status); + + j = iauPlan94(2400000.5, 1e6, 10, pv); + + viv(j, -1, "iauPlan94", "j 2", status); + + j = iauPlan94(2400000.5, -320000, 3, pv); + + vvd(pv[0][0], 0.9308038666832975759, 1e-11, + "iauPlan94", "x 3", status); + vvd(pv[0][1], 0.3258319040261346000, 1e-11, + "iauPlan94", "y 3", status); + vvd(pv[0][2], 0.1422794544481140560, 1e-11, + "iauPlan94", "z 3", status); + + vvd(pv[1][0], -0.6429458958255170006e-2, 1e-11, + "iauPlan94", "xd 3", status); + vvd(pv[1][1], 0.1468570657704237764e-1, 1e-11, + "iauPlan94", "yd 3", status); + vvd(pv[1][2], 0.6406996426270981189e-2, 1e-11, + "iauPlan94", "zd 3", status); + + viv(j, 1, "iauPlan94", "j 3", status); + + j = iauPlan94(2400000.5, 43999.9, 1, pv); + + vvd(pv[0][0], 0.2945293959257430832, 1e-11, + "iauPlan94", "x 4", status); + vvd(pv[0][1], -0.2452204176601049596, 1e-11, + "iauPlan94", "y 4", status); + vvd(pv[0][2], -0.1615427700571978153, 1e-11, + "iauPlan94", "z 4", status); + + vvd(pv[1][0], 0.1413867871404614441e-1, 1e-11, + "iauPlan94", "xd 4", status); + vvd(pv[1][1], 0.1946548301104706582e-1, 1e-11, + "iauPlan94", "yd 4", status); + vvd(pv[1][2], 0.8929809783898904786e-2, 1e-11, + "iauPlan94", "zd 4", status); + + viv(j, 0, "iauPlan94", "j 4", status); + +} + +static void t_pmat00(int *status) +/* +** - - - - - - - - - +** t _ p m a t 0 0 +** - - - - - - - - - +** +** Test iauPmat00 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPmat00, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rbp[3][3]; + + + iauPmat00(2400000.5, 50123.9999, rbp); + + vvd(rbp[0][0], 0.9999995505175087260, 1e-12, + "iauPmat00", "11", status); + vvd(rbp[0][1], 0.8695405883617884705e-3, 1e-14, + "iauPmat00", "12", status); + vvd(rbp[0][2], 0.3779734722239007105e-3, 1e-14, + "iauPmat00", "13", status); + + vvd(rbp[1][0], -0.8695405990410863719e-3, 1e-14, + "iauPmat00", "21", status); + vvd(rbp[1][1], 0.9999996219494925900, 1e-12, + "iauPmat00", "22", status); + vvd(rbp[1][2], -0.1360775820404982209e-6, 1e-14, + "iauPmat00", "23", status); + + vvd(rbp[2][0], -0.3779734476558184991e-3, 1e-14, + "iauPmat00", "31", status); + vvd(rbp[2][1], -0.1925857585832024058e-6, 1e-14, + "iauPmat00", "32", status); + vvd(rbp[2][2], 0.9999999285680153377, 1e-12, + "iauPmat00", "33", status); + +} + +static void t_pmat06(int *status) +/* +** - - - - - - - - - +** t _ p m a t 0 6 +** - - - - - - - - - +** +** Test iauPmat06 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPmat06, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rbp[3][3]; + + + iauPmat06(2400000.5, 50123.9999, rbp); + + vvd(rbp[0][0], 0.9999995505176007047, 1e-12, + "iauPmat06", "11", status); + vvd(rbp[0][1], 0.8695404617348208406e-3, 1e-14, + "iauPmat06", "12", status); + vvd(rbp[0][2], 0.3779735201865589104e-3, 1e-14, + "iauPmat06", "13", status); + + vvd(rbp[1][0], -0.8695404723772031414e-3, 1e-14, + "iauPmat06", "21", status); + vvd(rbp[1][1], 0.9999996219496027161, 1e-12, + "iauPmat06", "22", status); + vvd(rbp[1][2], -0.1361752497080270143e-6, 1e-14, + "iauPmat06", "23", status); + + vvd(rbp[2][0], -0.3779734957034089490e-3, 1e-14, + "iauPmat06", "31", status); + vvd(rbp[2][1], -0.1924880847894457113e-6, 1e-14, + "iauPmat06", "32", status); + vvd(rbp[2][2], 0.9999999285679971958, 1e-12, + "iauPmat06", "33", status); + +} + +static void t_pmat76(int *status) +/* +** - - - - - - - - - +** t _ p m a t 7 6 +** - - - - - - - - - +** +** Test iauPmat76 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPmat76, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rmatp[3][3]; + + + iauPmat76(2400000.5, 50123.9999, rmatp); + + vvd(rmatp[0][0], 0.9999995504328350733, 1e-12, + "iauPmat76", "11", status); + vvd(rmatp[0][1], 0.8696632209480960785e-3, 1e-14, + "iauPmat76", "12", status); + vvd(rmatp[0][2], 0.3779153474959888345e-3, 1e-14, + "iauPmat76", "13", status); + + vvd(rmatp[1][0], -0.8696632209485112192e-3, 1e-14, + "iauPmat76", "21", status); + vvd(rmatp[1][1], 0.9999996218428560614, 1e-12, + "iauPmat76", "22", status); + vvd(rmatp[1][2], -0.1643284776111886407e-6, 1e-14, + "iauPmat76", "23", status); + + vvd(rmatp[2][0], -0.3779153474950335077e-3, 1e-14, + "iauPmat76", "31", status); + vvd(rmatp[2][1], -0.1643306746147366896e-6, 1e-14, + "iauPmat76", "32", status); + vvd(rmatp[2][2], 0.9999999285899790119, 1e-12, + "iauPmat76", "33", status); + +} + +static void t_pm(int *status) +/* +** - - - - - +** t _ p m +** - - - - - +** +** Test iauPm function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPm, vvd +** +** This revision: 2013 August 7 +*/ +{ + double p[3], r; + + + p[0] = 0.3; + p[1] = 1.2; + p[2] = -2.5; + + r = iauPm(p); + + vvd(r, 2.789265136196270604, 1e-12, "iauPm", "", status); + +} + +static void t_pmp(int *status) +/* +** - - - - - - +** t _ p m p +** - - - - - - +** +** Test iauPmp function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPmp, vvd +** +** This revision: 2013 August 7 +*/ +{ + double a[3], b[3], amb[3]; + + + a[0] = 2.0; + a[1] = 2.0; + a[2] = 3.0; + + b[0] = 1.0; + b[1] = 3.0; + b[2] = 4.0; + + iauPmp(a, b, amb); + + vvd(amb[0], 1.0, 1e-12, "iauPmp", "0", status); + vvd(amb[1], -1.0, 1e-12, "iauPmp", "1", status); + vvd(amb[2], -1.0, 1e-12, "iauPmp", "2", status); + +} + +static void t_pmpx(int *status) +/* +** - - - - - - - +** t _ p m p x +** - - - - - - - +** +** Test iauPmpx function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPmpx, vvd +** +** This revision: 2013 October 2 +*/ +{ + double rc, dc, pr, pd, px, rv, pmt, pob[3], pco[3]; + + + rc = 1.234; + dc = 0.789; + pr = 1e-5; + pd = -2e-5; + px = 1e-2; + rv = 10.0; + pmt = 8.75; + pob[0] = 0.9; + pob[1] = 0.4; + pob[2] = 0.1; + + iauPmpx(rc, dc, pr, pd, px, rv, pmt, pob, pco); + + vvd(pco[0], 0.2328137623960308440, 1e-12, + "iauPmpx", "1", status); + vvd(pco[1], 0.6651097085397855317, 1e-12, + "iauPmpx", "2", status); + vvd(pco[2], 0.7095257765896359847, 1e-12, + "iauPmpx", "3", status); + +} + +static void t_pmsafe(int *status) +/* +** - - - - - - - - - +** t _ p m s a f e +** - - - - - - - - - +** +** Test iauPmsafe function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPmsafe, vvd, viv +** +** This revision: 2013 October 2 +*/ +{ + int j; + double ra1, dec1, pmr1, pmd1, px1, rv1, ep1a, ep1b, ep2a, ep2b, + ra2, dec2, pmr2, pmd2, px2, rv2; + + + ra1 = 1.234; + dec1 = 0.789; + pmr1 = 1e-5; + pmd1 = -2e-5; + px1 = 1e-2; + rv1 = 10.0; + ep1a = 2400000.5; + ep1b = 48348.5625; + ep2a = 2400000.5; + ep2b = 51544.5; + + j = iauPmsafe(ra1, dec1, pmr1, pmd1, px1, rv1, + ep1a, ep1b, ep2a, ep2b, + &ra2, &dec2, &pmr2, &pmd2, &px2, &rv2); + + vvd(ra2, 1.234087484501017061, 1e-12, + "iauPmsafe", "ra2", status); + vvd(dec2, 0.7888249982450468574, 1e-12, + "iauPmsafe", "dec2", status); + vvd(pmr2, 0.9996457663586073988e-5, 1e-12, + "iauPmsafe", "pmr2", status); + vvd(pmd2, -0.2000040085106737816e-4, 1e-16, + "iauPmsafe", "pmd2", status); + vvd(px2, 0.9999997295356765185e-2, 1e-12, + "iauPmsafe", "px2", status); + vvd(rv2, 10.38468380113917014, 1e-10, + "iauPmsafe", "rv2", status); + viv ( j, 0, "iauPmsafe", "j", status); + +} + +static void t_pn(int *status) +/* +** - - - - - +** t _ p n +** - - - - - +** +** Test iauPn function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPn, vvd +** +** This revision: 2013 August 7 +*/ +{ + double p[3], r, u[3]; + + + p[0] = 0.3; + p[1] = 1.2; + p[2] = -2.5; + + iauPn(p, &r, u); + + vvd(r, 2.789265136196270604, 1e-12, "iauPn", "r", status); + + vvd(u[0], 0.1075552109073112058, 1e-12, "iauPn", "u1", status); + vvd(u[1], 0.4302208436292448232, 1e-12, "iauPn", "u2", status); + vvd(u[2], -0.8962934242275933816, 1e-12, "iauPn", "u3", status); + +} + +static void t_pn00(int *status) +/* +** - - - - - - - +** t _ p n 0 0 +** - - - - - - - +** +** Test iauPn00 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPn00, vvd +** +** This revision: 2013 August 7 +*/ +{ + double dpsi, deps, epsa, + rb[3][3], rp[3][3], rbp[3][3], rn[3][3], rbpn[3][3]; + + + dpsi = -0.9632552291149335877e-5; + deps = 0.4063197106621141414e-4; + + iauPn00(2400000.5, 53736.0, dpsi, deps, + &epsa, rb, rp, rbp, rn, rbpn); + + vvd(epsa, 0.4090791789404229916, 1e-12, "iauPn00", "epsa", status); + + vvd(rb[0][0], 0.9999999999999942498, 1e-12, + "iauPn00", "rb11", status); + vvd(rb[0][1], -0.7078279744199196626e-7, 1e-18, + "iauPn00", "rb12", status); + vvd(rb[0][2], 0.8056217146976134152e-7, 1e-18, + "iauPn00", "rb13", status); + + vvd(rb[1][0], 0.7078279477857337206e-7, 1e-18, + "iauPn00", "rb21", status); + vvd(rb[1][1], 0.9999999999999969484, 1e-12, + "iauPn00", "rb22", status); + vvd(rb[1][2], 0.3306041454222136517e-7, 1e-18, + "iauPn00", "rb23", status); + + vvd(rb[2][0], -0.8056217380986972157e-7, 1e-18, + "iauPn00", "rb31", status); + vvd(rb[2][1], -0.3306040883980552500e-7, 1e-18, + "iauPn00", "rb32", status); + vvd(rb[2][2], 0.9999999999999962084, 1e-12, + "iauPn00", "rb33", status); + + vvd(rp[0][0], 0.9999989300532289018, 1e-12, + "iauPn00", "rp11", status); + vvd(rp[0][1], -0.1341647226791824349e-2, 1e-14, + "iauPn00", "rp12", status); + vvd(rp[0][2], -0.5829880927190296547e-3, 1e-14, + "iauPn00", "rp13", status); + + vvd(rp[1][0], 0.1341647231069759008e-2, 1e-14, + "iauPn00", "rp21", status); + vvd(rp[1][1], 0.9999990999908750433, 1e-12, + "iauPn00", "rp22", status); + vvd(rp[1][2], -0.3837444441583715468e-6, 1e-14, + "iauPn00", "rp23", status); + + vvd(rp[2][0], 0.5829880828740957684e-3, 1e-14, + "iauPn00", "rp31", status); + vvd(rp[2][1], -0.3984203267708834759e-6, 1e-14, + "iauPn00", "rp32", status); + vvd(rp[2][2], 0.9999998300623538046, 1e-12, + "iauPn00", "rp33", status); + + vvd(rbp[0][0], 0.9999989300052243993, 1e-12, + "iauPn00", "rbp11", status); + vvd(rbp[0][1], -0.1341717990239703727e-2, 1e-14, + "iauPn00", "rbp12", status); + vvd(rbp[0][2], -0.5829075749891684053e-3, 1e-14, + "iauPn00", "rbp13", status); + + vvd(rbp[1][0], 0.1341718013831739992e-2, 1e-14, + "iauPn00", "rbp21", status); + vvd(rbp[1][1], 0.9999990998959191343, 1e-12, + "iauPn00", "rbp22", status); + vvd(rbp[1][2], -0.3505759733565421170e-6, 1e-14, + "iauPn00", "rbp23", status); + + vvd(rbp[2][0], 0.5829075206857717883e-3, 1e-14, + "iauPn00", "rbp31", status); + vvd(rbp[2][1], -0.4315219955198608970e-6, 1e-14, + "iauPn00", "rbp32", status); + vvd(rbp[2][2], 0.9999998301093036269, 1e-12, + "iauPn00", "rbp33", status); + + vvd(rn[0][0], 0.9999999999536069682, 1e-12, + "iauPn00", "rn11", status); + vvd(rn[0][1], 0.8837746144872140812e-5, 1e-16, + "iauPn00", "rn12", status); + vvd(rn[0][2], 0.3831488838252590008e-5, 1e-16, + "iauPn00", "rn13", status); + + vvd(rn[1][0], -0.8837590456633197506e-5, 1e-16, + "iauPn00", "rn21", status); + vvd(rn[1][1], 0.9999999991354692733, 1e-12, + "iauPn00", "rn22", status); + vvd(rn[1][2], -0.4063198798559573702e-4, 1e-16, + "iauPn00", "rn23", status); + + vvd(rn[2][0], -0.3831847930135328368e-5, 1e-16, + "iauPn00", "rn31", status); + vvd(rn[2][1], 0.4063195412258150427e-4, 1e-16, + "iauPn00", "rn32", status); + vvd(rn[2][2], 0.9999999991671806225, 1e-12, + "iauPn00", "rn33", status); + + vvd(rbpn[0][0], 0.9999989440499982806, 1e-12, + "iauPn00", "rbpn11", status); + vvd(rbpn[0][1], -0.1332880253640848301e-2, 1e-14, + "iauPn00", "rbpn12", status); + vvd(rbpn[0][2], -0.5790760898731087295e-3, 1e-14, + "iauPn00", "rbpn13", status); + + vvd(rbpn[1][0], 0.1332856746979948745e-2, 1e-14, + "iauPn00", "rbpn21", status); + vvd(rbpn[1][1], 0.9999991109064768883, 1e-12, + "iauPn00", "rbpn22", status); + vvd(rbpn[1][2], -0.4097740555723063806e-4, 1e-14, + "iauPn00", "rbpn23", status); + + vvd(rbpn[2][0], 0.5791301929950205000e-3, 1e-14, + "iauPn00", "rbpn31", status); + vvd(rbpn[2][1], 0.4020553681373702931e-4, 1e-14, + "iauPn00", "rbpn32", status); + vvd(rbpn[2][2], 0.9999998314958529887, 1e-12, + "iauPn00", "rbpn33", status); + +} + +static void t_pn00a(int *status) +/* +** - - - - - - - - +** t _ p n 0 0 a +** - - - - - - - - +** +** Test iauPn00a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPn00a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double dpsi, deps, epsa, + rb[3][3], rp[3][3], rbp[3][3], rn[3][3], rbpn[3][3]; + + + iauPn00a(2400000.5, 53736.0, + &dpsi, &deps, &epsa, rb, rp, rbp, rn, rbpn); + + vvd(dpsi, -0.9630909107115518431e-5, 1e-12, + "iauPn00a", "dpsi", status); + vvd(deps, 0.4063239174001678710e-4, 1e-12, + "iauPn00a", "deps", status); + vvd(epsa, 0.4090791789404229916, 1e-12, "iauPn00a", "epsa", status); + + vvd(rb[0][0], 0.9999999999999942498, 1e-12, + "iauPn00a", "rb11", status); + vvd(rb[0][1], -0.7078279744199196626e-7, 1e-16, + "iauPn00a", "rb12", status); + vvd(rb[0][2], 0.8056217146976134152e-7, 1e-16, + "iauPn00a", "rb13", status); + + vvd(rb[1][0], 0.7078279477857337206e-7, 1e-16, + "iauPn00a", "rb21", status); + vvd(rb[1][1], 0.9999999999999969484, 1e-12, + "iauPn00a", "rb22", status); + vvd(rb[1][2], 0.3306041454222136517e-7, 1e-16, + "iauPn00a", "rb23", status); + + vvd(rb[2][0], -0.8056217380986972157e-7, 1e-16, + "iauPn00a", "rb31", status); + vvd(rb[2][1], -0.3306040883980552500e-7, 1e-16, + "iauPn00a", "rb32", status); + vvd(rb[2][2], 0.9999999999999962084, 1e-12, + "iauPn00a", "rb33", status); + + vvd(rp[0][0], 0.9999989300532289018, 1e-12, + "iauPn00a", "rp11", status); + vvd(rp[0][1], -0.1341647226791824349e-2, 1e-14, + "iauPn00a", "rp12", status); + vvd(rp[0][2], -0.5829880927190296547e-3, 1e-14, + "iauPn00a", "rp13", status); + + vvd(rp[1][0], 0.1341647231069759008e-2, 1e-14, + "iauPn00a", "rp21", status); + vvd(rp[1][1], 0.9999990999908750433, 1e-12, + "iauPn00a", "rp22", status); + vvd(rp[1][2], -0.3837444441583715468e-6, 1e-14, + "iauPn00a", "rp23", status); + + vvd(rp[2][0], 0.5829880828740957684e-3, 1e-14, + "iauPn00a", "rp31", status); + vvd(rp[2][1], -0.3984203267708834759e-6, 1e-14, + "iauPn00a", "rp32", status); + vvd(rp[2][2], 0.9999998300623538046, 1e-12, + "iauPn00a", "rp33", status); + + vvd(rbp[0][0], 0.9999989300052243993, 1e-12, + "iauPn00a", "rbp11", status); + vvd(rbp[0][1], -0.1341717990239703727e-2, 1e-14, + "iauPn00a", "rbp12", status); + vvd(rbp[0][2], -0.5829075749891684053e-3, 1e-14, + "iauPn00a", "rbp13", status); + + vvd(rbp[1][0], 0.1341718013831739992e-2, 1e-14, + "iauPn00a", "rbp21", status); + vvd(rbp[1][1], 0.9999990998959191343, 1e-12, + "iauPn00a", "rbp22", status); + vvd(rbp[1][2], -0.3505759733565421170e-6, 1e-14, + "iauPn00a", "rbp23", status); + + vvd(rbp[2][0], 0.5829075206857717883e-3, 1e-14, + "iauPn00a", "rbp31", status); + vvd(rbp[2][1], -0.4315219955198608970e-6, 1e-14, + "iauPn00a", "rbp32", status); + vvd(rbp[2][2], 0.9999998301093036269, 1e-12, + "iauPn00a", "rbp33", status); + + vvd(rn[0][0], 0.9999999999536227949, 1e-12, + "iauPn00a", "rn11", status); + vvd(rn[0][1], 0.8836238544090873336e-5, 1e-14, + "iauPn00a", "rn12", status); + vvd(rn[0][2], 0.3830835237722400669e-5, 1e-14, + "iauPn00a", "rn13", status); + + vvd(rn[1][0], -0.8836082880798569274e-5, 1e-14, + "iauPn00a", "rn21", status); + vvd(rn[1][1], 0.9999999991354655028, 1e-12, + "iauPn00a", "rn22", status); + vvd(rn[1][2], -0.4063240865362499850e-4, 1e-14, + "iauPn00a", "rn23", status); + + vvd(rn[2][0], -0.3831194272065995866e-5, 1e-14, + "iauPn00a", "rn31", status); + vvd(rn[2][1], 0.4063237480216291775e-4, 1e-14, + "iauPn00a", "rn32", status); + vvd(rn[2][2], 0.9999999991671660338, 1e-12, + "iauPn00a", "rn33", status); + + vvd(rbpn[0][0], 0.9999989440476103435, 1e-12, + "iauPn00a", "rbpn11", status); + vvd(rbpn[0][1], -0.1332881761240011763e-2, 1e-14, + "iauPn00a", "rbpn12", status); + vvd(rbpn[0][2], -0.5790767434730085751e-3, 1e-14, + "iauPn00a", "rbpn13", status); + + vvd(rbpn[1][0], 0.1332858254308954658e-2, 1e-14, + "iauPn00a", "rbpn21", status); + vvd(rbpn[1][1], 0.9999991109044505577, 1e-12, + "iauPn00a", "rbpn22", status); + vvd(rbpn[1][2], -0.4097782710396580452e-4, 1e-14, + "iauPn00a", "rbpn23", status); + + vvd(rbpn[2][0], 0.5791308472168152904e-3, 1e-14, + "iauPn00a", "rbpn31", status); + vvd(rbpn[2][1], 0.4020595661591500259e-4, 1e-14, + "iauPn00a", "rbpn32", status); + vvd(rbpn[2][2], 0.9999998314954572304, 1e-12, + "iauPn00a", "rbpn33", status); + +} + +static void t_pn00b(int *status) +/* +** - - - - - - - - +** t _ p n 0 0 b +** - - - - - - - - +** +** Test iauPn00b function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPn00b, vvd +** +** This revision: 2013 August 7 +*/ +{ + double dpsi, deps, epsa, + rb[3][3], rp[3][3], rbp[3][3], rn[3][3], rbpn[3][3]; + + + iauPn00b(2400000.5, 53736.0, &dpsi, &deps, &epsa, + rb, rp, rbp, rn, rbpn); + + vvd(dpsi, -0.9632552291148362783e-5, 1e-12, + "iauPn00b", "dpsi", status); + vvd(deps, 0.4063197106621159367e-4, 1e-12, + "iauPn00b", "deps", status); + vvd(epsa, 0.4090791789404229916, 1e-12, "iauPn00b", "epsa", status); + + vvd(rb[0][0], 0.9999999999999942498, 1e-12, + "iauPn00b", "rb11", status); + vvd(rb[0][1], -0.7078279744199196626e-7, 1e-16, + "iauPn00b", "rb12", status); + vvd(rb[0][2], 0.8056217146976134152e-7, 1e-16, + "iauPn00b", "rb13", status); + + vvd(rb[1][0], 0.7078279477857337206e-7, 1e-16, + "iauPn00b", "rb21", status); + vvd(rb[1][1], 0.9999999999999969484, 1e-12, + "iauPn00b", "rb22", status); + vvd(rb[1][2], 0.3306041454222136517e-7, 1e-16, + "iauPn00b", "rb23", status); + + vvd(rb[2][0], -0.8056217380986972157e-7, 1e-16, + "iauPn00b", "rb31", status); + vvd(rb[2][1], -0.3306040883980552500e-7, 1e-16, + "iauPn00b", "rb32", status); + vvd(rb[2][2], 0.9999999999999962084, 1e-12, + "iauPn00b", "rb33", status); + + vvd(rp[0][0], 0.9999989300532289018, 1e-12, + "iauPn00b", "rp11", status); + vvd(rp[0][1], -0.1341647226791824349e-2, 1e-14, + "iauPn00b", "rp12", status); + vvd(rp[0][2], -0.5829880927190296547e-3, 1e-14, + "iauPn00b", "rp13", status); + + vvd(rp[1][0], 0.1341647231069759008e-2, 1e-14, + "iauPn00b", "rp21", status); + vvd(rp[1][1], 0.9999990999908750433, 1e-12, + "iauPn00b", "rp22", status); + vvd(rp[1][2], -0.3837444441583715468e-6, 1e-14, + "iauPn00b", "rp23", status); + + vvd(rp[2][0], 0.5829880828740957684e-3, 1e-14, + "iauPn00b", "rp31", status); + vvd(rp[2][1], -0.3984203267708834759e-6, 1e-14, + "iauPn00b", "rp32", status); + vvd(rp[2][2], 0.9999998300623538046, 1e-12, + "iauPn00b", "rp33", status); + + vvd(rbp[0][0], 0.9999989300052243993, 1e-12, + "iauPn00b", "rbp11", status); + vvd(rbp[0][1], -0.1341717990239703727e-2, 1e-14, + "iauPn00b", "rbp12", status); + vvd(rbp[0][2], -0.5829075749891684053e-3, 1e-14, + "iauPn00b", "rbp13", status); + + vvd(rbp[1][0], 0.1341718013831739992e-2, 1e-14, + "iauPn00b", "rbp21", status); + vvd(rbp[1][1], 0.9999990998959191343, 1e-12, + "iauPn00b", "rbp22", status); + vvd(rbp[1][2], -0.3505759733565421170e-6, 1e-14, + "iauPn00b", "rbp23", status); + + vvd(rbp[2][0], 0.5829075206857717883e-3, 1e-14, + "iauPn00b", "rbp31", status); + vvd(rbp[2][1], -0.4315219955198608970e-6, 1e-14, + "iauPn00b", "rbp32", status); + vvd(rbp[2][2], 0.9999998301093036269, 1e-12, + "iauPn00b", "rbp33", status); + + vvd(rn[0][0], 0.9999999999536069682, 1e-12, + "iauPn00b", "rn11", status); + vvd(rn[0][1], 0.8837746144871248011e-5, 1e-14, + "iauPn00b", "rn12", status); + vvd(rn[0][2], 0.3831488838252202945e-5, 1e-14, + "iauPn00b", "rn13", status); + + vvd(rn[1][0], -0.8837590456632304720e-5, 1e-14, + "iauPn00b", "rn21", status); + vvd(rn[1][1], 0.9999999991354692733, 1e-12, + "iauPn00b", "rn22", status); + vvd(rn[1][2], -0.4063198798559591654e-4, 1e-14, + "iauPn00b", "rn23", status); + + vvd(rn[2][0], -0.3831847930134941271e-5, 1e-14, + "iauPn00b", "rn31", status); + vvd(rn[2][1], 0.4063195412258168380e-4, 1e-14, + "iauPn00b", "rn32", status); + vvd(rn[2][2], 0.9999999991671806225, 1e-12, + "iauPn00b", "rn33", status); + + vvd(rbpn[0][0], 0.9999989440499982806, 1e-12, + "iauPn00b", "rbpn11", status); + vvd(rbpn[0][1], -0.1332880253640849194e-2, 1e-14, + "iauPn00b", "rbpn12", status); + vvd(rbpn[0][2], -0.5790760898731091166e-3, 1e-14, + "iauPn00b", "rbpn13", status); + + vvd(rbpn[1][0], 0.1332856746979949638e-2, 1e-14, + "iauPn00b", "rbpn21", status); + vvd(rbpn[1][1], 0.9999991109064768883, 1e-12, + "iauPn00b", "rbpn22", status); + vvd(rbpn[1][2], -0.4097740555723081811e-4, 1e-14, + "iauPn00b", "rbpn23", status); + + vvd(rbpn[2][0], 0.5791301929950208873e-3, 1e-14, + "iauPn00b", "rbpn31", status); + vvd(rbpn[2][1], 0.4020553681373720832e-4, 1e-14, + "iauPn00b", "rbpn32", status); + vvd(rbpn[2][2], 0.9999998314958529887, 1e-12, + "iauPn00b", "rbpn33", status); + +} + +static void t_pn06a(int *status) +/* +** - - - - - - - - +** t _ p n 0 6 a +** - - - - - - - - +** +** Test iauPn06a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPn06a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double dpsi, deps, epsa; + double rb[3][3], rp[3][3], rbp[3][3], rn[3][3], rbpn[3][3]; + + + iauPn06a(2400000.5, 53736.0, &dpsi, &deps, &epsa, + rb, rp, rbp, rn, rbpn); + + vvd(dpsi, -0.9630912025820308797e-5, 1e-12, + "iauPn06a", "dpsi", status); + vvd(deps, 0.4063238496887249798e-4, 1e-12, + "iauPn06a", "deps", status); + vvd(epsa, 0.4090789763356509926, 1e-12, "iauPn06a", "epsa", status); + + vvd(rb[0][0], 0.9999999999999942497, 1e-12, + "iauPn06a", "rb11", status); + vvd(rb[0][1], -0.7078368960971557145e-7, 1e-14, + "iauPn06a", "rb12", status); + vvd(rb[0][2], 0.8056213977613185606e-7, 1e-14, + "iauPn06a", "rb13", status); + + vvd(rb[1][0], 0.7078368694637674333e-7, 1e-14, + "iauPn06a", "rb21", status); + vvd(rb[1][1], 0.9999999999999969484, 1e-12, + "iauPn06a", "rb22", status); + vvd(rb[1][2], 0.3305943742989134124e-7, 1e-14, + "iauPn06a", "rb23", status); + + vvd(rb[2][0], -0.8056214211620056792e-7, 1e-14, + "iauPn06a", "rb31", status); + vvd(rb[2][1], -0.3305943172740586950e-7, 1e-14, + "iauPn06a", "rb32", status); + vvd(rb[2][2], 0.9999999999999962084, 1e-12, + "iauPn06a", "rb33", status); + + vvd(rp[0][0], 0.9999989300536854831, 1e-12, + "iauPn06a", "rp11", status); + vvd(rp[0][1], -0.1341646886204443795e-2, 1e-14, + "iauPn06a", "rp12", status); + vvd(rp[0][2], -0.5829880933488627759e-3, 1e-14, + "iauPn06a", "rp13", status); + + vvd(rp[1][0], 0.1341646890569782183e-2, 1e-14, + "iauPn06a", "rp21", status); + vvd(rp[1][1], 0.9999990999913319321, 1e-12, + "iauPn06a", "rp22", status); + vvd(rp[1][2], -0.3835944216374477457e-6, 1e-14, + "iauPn06a", "rp23", status); + + vvd(rp[2][0], 0.5829880833027867368e-3, 1e-14, + "iauPn06a", "rp31", status); + vvd(rp[2][1], -0.3985701514686976112e-6, 1e-14, + "iauPn06a", "rp32", status); + vvd(rp[2][2], 0.9999998300623534950, 1e-12, + "iauPn06a", "rp33", status); + + vvd(rbp[0][0], 0.9999989300056797893, 1e-12, + "iauPn06a", "rbp11", status); + vvd(rbp[0][1], -0.1341717650545059598e-2, 1e-14, + "iauPn06a", "rbp12", status); + vvd(rbp[0][2], -0.5829075756493728856e-3, 1e-14, + "iauPn06a", "rbp13", status); + + vvd(rbp[1][0], 0.1341717674223918101e-2, 1e-14, + "iauPn06a", "rbp21", status); + vvd(rbp[1][1], 0.9999990998963748448, 1e-12, + "iauPn06a", "rbp22", status); + vvd(rbp[1][2], -0.3504269280170069029e-6, 1e-14, + "iauPn06a", "rbp23", status); + + vvd(rbp[2][0], 0.5829075211461454599e-3, 1e-14, + "iauPn06a", "rbp31", status); + vvd(rbp[2][1], -0.4316708436255949093e-6, 1e-14, + "iauPn06a", "rbp32", status); + vvd(rbp[2][2], 0.9999998301093032943, 1e-12, + "iauPn06a", "rbp33", status); + + vvd(rn[0][0], 0.9999999999536227668, 1e-12, + "iauPn06a", "rn11", status); + vvd(rn[0][1], 0.8836241998111535233e-5, 1e-14, + "iauPn06a", "rn12", status); + vvd(rn[0][2], 0.3830834608415287707e-5, 1e-14, + "iauPn06a", "rn13", status); + + vvd(rn[1][0], -0.8836086334870740138e-5, 1e-14, + "iauPn06a", "rn21", status); + vvd(rn[1][1], 0.9999999991354657474, 1e-12, + "iauPn06a", "rn22", status); + vvd(rn[1][2], -0.4063240188248455065e-4, 1e-14, + "iauPn06a", "rn23", status); + + vvd(rn[2][0], -0.3831193642839398128e-5, 1e-14, + "iauPn06a", "rn31", status); + vvd(rn[2][1], 0.4063236803101479770e-4, 1e-14, + "iauPn06a", "rn32", status); + vvd(rn[2][2], 0.9999999991671663114, 1e-12, + "iauPn06a", "rn33", status); + + vvd(rbpn[0][0], 0.9999989440480669738, 1e-12, + "iauPn06a", "rbpn11", status); + vvd(rbpn[0][1], -0.1332881418091915973e-2, 1e-14, + "iauPn06a", "rbpn12", status); + vvd(rbpn[0][2], -0.5790767447612042565e-3, 1e-14, + "iauPn06a", "rbpn13", status); + + vvd(rbpn[1][0], 0.1332857911250989133e-2, 1e-14, + "iauPn06a", "rbpn21", status); + vvd(rbpn[1][1], 0.9999991109049141908, 1e-12, + "iauPn06a", "rbpn22", status); + vvd(rbpn[1][2], -0.4097767128546784878e-4, 1e-14, + "iauPn06a", "rbpn23", status); + + vvd(rbpn[2][0], 0.5791308482835292617e-3, 1e-14, + "iauPn06a", "rbpn31", status); + vvd(rbpn[2][1], 0.4020580099454020310e-4, 1e-14, + "iauPn06a", "rbpn32", status); + vvd(rbpn[2][2], 0.9999998314954628695, 1e-12, + "iauPn06a", "rbpn33", status); + +} + +static void t_pn06(int *status) +/* +** - - - - - - - +** t _ p n 0 6 +** - - - - - - - +** +** Test iauPn06 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPn06, vvd +** +** This revision: 2013 August 7 +*/ +{ + double dpsi, deps, epsa, + rb[3][3], rp[3][3], rbp[3][3], rn[3][3], rbpn[3][3]; + + + dpsi = -0.9632552291149335877e-5; + deps = 0.4063197106621141414e-4; + + iauPn06(2400000.5, 53736.0, dpsi, deps, + &epsa, rb, rp, rbp, rn, rbpn); + + vvd(epsa, 0.4090789763356509926, 1e-12, "iauPn06", "epsa", status); + + vvd(rb[0][0], 0.9999999999999942497, 1e-12, + "iauPn06", "rb11", status); + vvd(rb[0][1], -0.7078368960971557145e-7, 1e-14, + "iauPn06", "rb12", status); + vvd(rb[0][2], 0.8056213977613185606e-7, 1e-14, + "iauPn06", "rb13", status); + + vvd(rb[1][0], 0.7078368694637674333e-7, 1e-14, + "iauPn06", "rb21", status); + vvd(rb[1][1], 0.9999999999999969484, 1e-12, + "iauPn06", "rb22", status); + vvd(rb[1][2], 0.3305943742989134124e-7, 1e-14, + "iauPn06", "rb23", status); + + vvd(rb[2][0], -0.8056214211620056792e-7, 1e-14, + "iauPn06", "rb31", status); + vvd(rb[2][1], -0.3305943172740586950e-7, 1e-14, + "iauPn06", "rb32", status); + vvd(rb[2][2], 0.9999999999999962084, 1e-12, + "iauPn06", "rb33", status); + + vvd(rp[0][0], 0.9999989300536854831, 1e-12, + "iauPn06", "rp11", status); + vvd(rp[0][1], -0.1341646886204443795e-2, 1e-14, + "iauPn06", "rp12", status); + vvd(rp[0][2], -0.5829880933488627759e-3, 1e-14, + "iauPn06", "rp13", status); + + vvd(rp[1][0], 0.1341646890569782183e-2, 1e-14, + "iauPn06", "rp21", status); + vvd(rp[1][1], 0.9999990999913319321, 1e-12, + "iauPn06", "rp22", status); + vvd(rp[1][2], -0.3835944216374477457e-6, 1e-14, + "iauPn06", "rp23", status); + + vvd(rp[2][0], 0.5829880833027867368e-3, 1e-14, + "iauPn06", "rp31", status); + vvd(rp[2][1], -0.3985701514686976112e-6, 1e-14, + "iauPn06", "rp32", status); + vvd(rp[2][2], 0.9999998300623534950, 1e-12, + "iauPn06", "rp33", status); + + vvd(rbp[0][0], 0.9999989300056797893, 1e-12, + "iauPn06", "rbp11", status); + vvd(rbp[0][1], -0.1341717650545059598e-2, 1e-14, + "iauPn06", "rbp12", status); + vvd(rbp[0][2], -0.5829075756493728856e-3, 1e-14, + "iauPn06", "rbp13", status); + + vvd(rbp[1][0], 0.1341717674223918101e-2, 1e-14, + "iauPn06", "rbp21", status); + vvd(rbp[1][1], 0.9999990998963748448, 1e-12, + "iauPn06", "rbp22", status); + vvd(rbp[1][2], -0.3504269280170069029e-6, 1e-14, + "iauPn06", "rbp23", status); + + vvd(rbp[2][0], 0.5829075211461454599e-3, 1e-14, + "iauPn06", "rbp31", status); + vvd(rbp[2][1], -0.4316708436255949093e-6, 1e-14, + "iauPn06", "rbp32", status); + vvd(rbp[2][2], 0.9999998301093032943, 1e-12, + "iauPn06", "rbp33", status); + + vvd(rn[0][0], 0.9999999999536069682, 1e-12, + "iauPn06", "rn11", status); + vvd(rn[0][1], 0.8837746921149881914e-5, 1e-14, + "iauPn06", "rn12", status); + vvd(rn[0][2], 0.3831487047682968703e-5, 1e-14, + "iauPn06", "rn13", status); + + vvd(rn[1][0], -0.8837591232983692340e-5, 1e-14, + "iauPn06", "rn21", status); + vvd(rn[1][1], 0.9999999991354692664, 1e-12, + "iauPn06", "rn22", status); + vvd(rn[1][2], -0.4063198798558931215e-4, 1e-14, + "iauPn06", "rn23", status); + + vvd(rn[2][0], -0.3831846139597250235e-5, 1e-14, + "iauPn06", "rn31", status); + vvd(rn[2][1], 0.4063195412258792914e-4, 1e-14, + "iauPn06", "rn32", status); + vvd(rn[2][2], 0.9999999991671806293, 1e-12, + "iauPn06", "rn33", status); + + vvd(rbpn[0][0], 0.9999989440504506688, 1e-12, + "iauPn06", "rbpn11", status); + vvd(rbpn[0][1], -0.1332879913170492655e-2, 1e-14, + "iauPn06", "rbpn12", status); + vvd(rbpn[0][2], -0.5790760923225655753e-3, 1e-14, + "iauPn06", "rbpn13", status); + + vvd(rbpn[1][0], 0.1332856406595754748e-2, 1e-14, + "iauPn06", "rbpn21", status); + vvd(rbpn[1][1], 0.9999991109069366795, 1e-12, + "iauPn06", "rbpn22", status); + vvd(rbpn[1][2], -0.4097725651142641812e-4, 1e-14, + "iauPn06", "rbpn23", status); + + vvd(rbpn[2][0], 0.5791301952321296716e-3, 1e-14, + "iauPn06", "rbpn31", status); + vvd(rbpn[2][1], 0.4020538796195230577e-4, 1e-14, + "iauPn06", "rbpn32", status); + vvd(rbpn[2][2], 0.9999998314958576778, 1e-12, + "iauPn06", "rbpn33", status); + +} + +static void t_pnm00a(int *status) +/* +** - - - - - - - - - +** t _ p n m 0 0 a +** - - - - - - - - - +** +** Test iauPnm00a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPnm00a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rbpn[3][3]; + + + iauPnm00a(2400000.5, 50123.9999, rbpn); + + vvd(rbpn[0][0], 0.9999995832793134257, 1e-12, + "iauPnm00a", "11", status); + vvd(rbpn[0][1], 0.8372384254137809439e-3, 1e-14, + "iauPnm00a", "12", status); + vvd(rbpn[0][2], 0.3639684306407150645e-3, 1e-14, + "iauPnm00a", "13", status); + + vvd(rbpn[1][0], -0.8372535226570394543e-3, 1e-14, + "iauPnm00a", "21", status); + vvd(rbpn[1][1], 0.9999996486491582471, 1e-12, + "iauPnm00a", "22", status); + vvd(rbpn[1][2], 0.4132915262664072381e-4, 1e-14, + "iauPnm00a", "23", status); + + vvd(rbpn[2][0], -0.3639337004054317729e-3, 1e-14, + "iauPnm00a", "31", status); + vvd(rbpn[2][1], -0.4163386925461775873e-4, 1e-14, + "iauPnm00a", "32", status); + vvd(rbpn[2][2], 0.9999999329094390695, 1e-12, + "iauPnm00a", "33", status); + +} + +static void t_pnm00b(int *status) +/* +** - - - - - - - - - +** t _ p n m 0 0 b +** - - - - - - - - - +** +** Test iauPnm00b function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPnm00b, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rbpn[3][3]; + + + iauPnm00b(2400000.5, 50123.9999, rbpn); + + vvd(rbpn[0][0], 0.9999995832776208280, 1e-12, + "iauPnm00b", "11", status); + vvd(rbpn[0][1], 0.8372401264429654837e-3, 1e-14, + "iauPnm00b", "12", status); + vvd(rbpn[0][2], 0.3639691681450271771e-3, 1e-14, + "iauPnm00b", "13", status); + + vvd(rbpn[1][0], -0.8372552234147137424e-3, 1e-14, + "iauPnm00b", "21", status); + vvd(rbpn[1][1], 0.9999996486477686123, 1e-12, + "iauPnm00b", "22", status); + vvd(rbpn[1][2], 0.4132832190946052890e-4, 1e-14, + "iauPnm00b", "23", status); + + vvd(rbpn[2][0], -0.3639344385341866407e-3, 1e-14, + "iauPnm00b", "31", status); + vvd(rbpn[2][1], -0.4163303977421522785e-4, 1e-14, + "iauPnm00b", "32", status); + vvd(rbpn[2][2], 0.9999999329092049734, 1e-12, + "iauPnm00b", "33", status); + +} + +static void t_pnm06a(int *status) +/* +** - - - - - - - - - +** t _ p n m 0 6 a +** - - - - - - - - - +** +** Test iauPnm06a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPnm06a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rbpn[3][3]; + + + iauPnm06a(2400000.5, 50123.9999, rbpn); + + vvd(rbpn[0][0], 0.9999995832794205484, 1e-12, + "iauPnm06a", "11", status); + vvd(rbpn[0][1], 0.8372382772630962111e-3, 1e-14, + "iauPnm06a", "12", status); + vvd(rbpn[0][2], 0.3639684771140623099e-3, 1e-14, + "iauPnm06a", "13", status); + + vvd(rbpn[1][0], -0.8372533744743683605e-3, 1e-14, + "iauPnm06a", "21", status); + vvd(rbpn[1][1], 0.9999996486492861646, 1e-12, + "iauPnm06a", "22", status); + vvd(rbpn[1][2], 0.4132905944611019498e-4, 1e-14, + "iauPnm06a", "23", status); + + vvd(rbpn[2][0], -0.3639337469629464969e-3, 1e-14, + "iauPnm06a", "31", status); + vvd(rbpn[2][1], -0.4163377605910663999e-4, 1e-14, + "iauPnm06a", "32", status); + vvd(rbpn[2][2], 0.9999999329094260057, 1e-12, + "iauPnm06a", "33", status); + +} + +static void t_pnm80(int *status) +/* +** - - - - - - - - +** t _ p n m 8 0 +** - - - - - - - - +** +** Test iauPnm80 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPnm80, vvd +** +** This revision: 2013 August 7 +*/ +{ + double rmatpn[3][3]; + + + iauPnm80(2400000.5, 50123.9999, rmatpn); + + vvd(rmatpn[0][0], 0.9999995831934611169, 1e-12, + "iauPnm80", "11", status); + vvd(rmatpn[0][1], 0.8373654045728124011e-3, 1e-14, + "iauPnm80", "12", status); + vvd(rmatpn[0][2], 0.3639121916933106191e-3, 1e-14, + "iauPnm80", "13", status); + + vvd(rmatpn[1][0], -0.8373804896118301316e-3, 1e-14, + "iauPnm80", "21", status); + vvd(rmatpn[1][1], 0.9999996485439674092, 1e-12, + "iauPnm80", "22", status); + vvd(rmatpn[1][2], 0.4130202510421549752e-4, 1e-14, + "iauPnm80", "23", status); + + vvd(rmatpn[2][0], -0.3638774789072144473e-3, 1e-14, + "iauPnm80", "31", status); + vvd(rmatpn[2][1], -0.4160674085851722359e-4, 1e-14, + "iauPnm80", "32", status); + vvd(rmatpn[2][2], 0.9999999329310274805, 1e-12, + "iauPnm80", "33", status); + +} + +static void t_pom00(int *status) +/* +** - - - - - - - - +** t _ p o m 0 0 +** - - - - - - - - +** +** Test iauPom00 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPom00, vvd +** +** This revision: 2013 August 7 +*/ +{ + double xp, yp, sp, rpom[3][3]; + + + xp = 2.55060238e-7; + yp = 1.860359247e-6; + sp = -0.1367174580728891460e-10; + + iauPom00(xp, yp, sp, rpom); + + vvd(rpom[0][0], 0.9999999999999674721, 1e-12, + "iauPom00", "11", status); + vvd(rpom[0][1], -0.1367174580728846989e-10, 1e-16, + "iauPom00", "12", status); + vvd(rpom[0][2], 0.2550602379999972345e-6, 1e-16, + "iauPom00", "13", status); + + vvd(rpom[1][0], 0.1414624947957029801e-10, 1e-16, + "iauPom00", "21", status); + vvd(rpom[1][1], 0.9999999999982695317, 1e-12, + "iauPom00", "22", status); + vvd(rpom[1][2], -0.1860359246998866389e-5, 1e-16, + "iauPom00", "23", status); + + vvd(rpom[2][0], -0.2550602379741215021e-6, 1e-16, + "iauPom00", "31", status); + vvd(rpom[2][1], 0.1860359247002414021e-5, 1e-16, + "iauPom00", "32", status); + vvd(rpom[2][2], 0.9999999999982370039, 1e-12, + "iauPom00", "33", status); + +} + +static void t_ppp(int *status) +/* +** - - - - - - +** t _ p p p +** - - - - - - +** +** Test iauPpp function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPpp, vvd +** +** This revision: 2013 August 7 +*/ +{ + double a[3], b[3], apb[3]; + + + a[0] = 2.0; + a[1] = 2.0; + a[2] = 3.0; + + b[0] = 1.0; + b[1] = 3.0; + b[2] = 4.0; + + iauPpp(a, b, apb); + + vvd(apb[0], 3.0, 1e-12, "iauPpp", "0", status); + vvd(apb[1], 5.0, 1e-12, "iauPpp", "1", status); + vvd(apb[2], 7.0, 1e-12, "iauPpp", "2", status); + +} + +static void t_ppsp(int *status) +/* +** - - - - - - - +** t _ p p s p +** - - - - - - - +** +** Test iauPpsp function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPpsp, vvd +** +** This revision: 2013 August 7 +*/ +{ + double a[3], s, b[3], apsb[3]; + + + a[0] = 2.0; + a[1] = 2.0; + a[2] = 3.0; + + s = 5.0; + + b[0] = 1.0; + b[1] = 3.0; + b[2] = 4.0; + + iauPpsp(a, s, b, apsb); + + vvd(apsb[0], 7.0, 1e-12, "iauPpsp", "0", status); + vvd(apsb[1], 17.0, 1e-12, "iauPpsp", "1", status); + vvd(apsb[2], 23.0, 1e-12, "iauPpsp", "2", status); + +} + +static void t_pr00(int *status) +/* +** - - - - - - - +** t _ p r 0 0 +** - - - - - - - +** +** Test iauPr00 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPr00, vvd +** +** This revision: 2013 August 7 +*/ +{ + double dpsipr, depspr; + + iauPr00(2400000.5, 53736, &dpsipr, &depspr); + + vvd(dpsipr, -0.8716465172668347629e-7, 1e-22, + "iauPr00", "dpsipr", status); + vvd(depspr, -0.7342018386722813087e-8, 1e-22, + "iauPr00", "depspr", status); + +} + +static void t_prec76(int *status) +/* +** - - - - - - - - - +** t _ p r e c 7 6 +** - - - - - - - - - +** +** Test iauPrec76 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPrec76, vvd +** +** This revision: 2013 August 7 +*/ +{ + double ep01, ep02, ep11, ep12, zeta, z, theta; + + + ep01 = 2400000.5; + ep02 = 33282.0; + ep11 = 2400000.5; + ep12 = 51544.0; + + iauPrec76(ep01, ep02, ep11, ep12, &zeta, &z, &theta); + + vvd(zeta, 0.5588961642000161243e-2, 1e-12, + "iauPrec76", "zeta", status); + vvd(z, 0.5589922365870680624e-2, 1e-12, + "iauPrec76", "z", status); + vvd(theta, 0.4858945471687296760e-2, 1e-12, + "iauPrec76", "theta", status); + +} + +static void t_pv2p(int *status) +/* +** - - - - - - - +** t _ p v 2 p +** - - - - - - - +** +** Test iauPv2p function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPv2p, vvd +** +** This revision: 2013 August 7 +*/ +{ + double pv[2][3], p[3]; + + + pv[0][0] = 0.3; + pv[0][1] = 1.2; + pv[0][2] = -2.5; + + pv[1][0] = -0.5; + pv[1][1] = 3.1; + pv[1][2] = 0.9; + + iauPv2p(pv, p); + + vvd(p[0], 0.3, 0.0, "iauPv2p", "1", status); + vvd(p[1], 1.2, 0.0, "iauPv2p", "2", status); + vvd(p[2], -2.5, 0.0, "iauPv2p", "3", status); + +} + +static void t_pv2s(int *status) +/* +** - - - - - - - +** t _ p v 2 s +** - - - - - - - +** +** Test iauPv2s function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPv2s, vvd +** +** This revision: 2013 August 7 +*/ +{ + double pv[2][3], theta, phi, r, td, pd, rd; + + + pv[0][0] = -0.4514964673880165; + pv[0][1] = 0.03093394277342585; + pv[0][2] = 0.05594668105108779; + + pv[1][0] = 1.292270850663260e-5; + pv[1][1] = 2.652814182060692e-6; + pv[1][2] = 2.568431853930293e-6; + + iauPv2s(pv, &theta, &phi, &r, &td, &pd, &rd); + + vvd(theta, 3.073185307179586515, 1e-12, "iauPv2s", "theta", status); + vvd(phi, 0.1229999999999999992, 1e-12, "iauPv2s", "phi", status); + vvd(r, 0.4559999999999999757, 1e-12, "iauPv2s", "r", status); + vvd(td, -0.7800000000000000364e-5, 1e-16, "iauPv2s", "td", status); + vvd(pd, 0.9010000000000001639e-5, 1e-16, "iauPv2s", "pd", status); + vvd(rd, -0.1229999999999999832e-4, 1e-16, "iauPv2s", "rd", status); + +} + +static void t_pvdpv(int *status) +/* +** - - - - - - - - +** t _ p v d p v +** - - - - - - - - +** +** Test iauPvdpv function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPvdpv, vvd +** +** This revision: 2013 August 7 +*/ +{ + double a[2][3], b[2][3], adb[2]; + + + a[0][0] = 2.0; + a[0][1] = 2.0; + a[0][2] = 3.0; + + a[1][0] = 6.0; + a[1][1] = 0.0; + a[1][2] = 4.0; + + b[0][0] = 1.0; + b[0][1] = 3.0; + b[0][2] = 4.0; + + b[1][0] = 0.0; + b[1][1] = 2.0; + b[1][2] = 8.0; + + iauPvdpv(a, b, adb); + + vvd(adb[0], 20.0, 1e-12, "iauPvdpv", "1", status); + vvd(adb[1], 50.0, 1e-12, "iauPvdpv", "2", status); + +} + +static void t_pvm(int *status) +/* +** - - - - - - +** t _ p v m +** - - - - - - +** +** Test iauPvm function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPvm, vvd +** +** This revision: 2013 August 7 +*/ +{ + double pv[2][3], r, s; + + + pv[0][0] = 0.3; + pv[0][1] = 1.2; + pv[0][2] = -2.5; + + pv[1][0] = 0.45; + pv[1][1] = -0.25; + pv[1][2] = 1.1; + + iauPvm(pv, &r, &s); + + vvd(r, 2.789265136196270604, 1e-12, "iauPvm", "r", status); + vvd(s, 1.214495780149111922, 1e-12, "iauPvm", "s", status); + +} + +static void t_pvmpv(int *status) +/* +** - - - - - - - - +** t _ p v m p v +** - - - - - - - - +** +** Test iauPvmpv function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPvmpv, vvd +** +** This revision: 2013 August 7 +*/ +{ + double a[2][3], b[2][3], amb[2][3]; + + + a[0][0] = 2.0; + a[0][1] = 2.0; + a[0][2] = 3.0; + + a[1][0] = 5.0; + a[1][1] = 6.0; + a[1][2] = 3.0; + + b[0][0] = 1.0; + b[0][1] = 3.0; + b[0][2] = 4.0; + + b[1][0] = 3.0; + b[1][1] = 2.0; + b[1][2] = 1.0; + + iauPvmpv(a, b, amb); + + vvd(amb[0][0], 1.0, 1e-12, "iauPvmpv", "11", status); + vvd(amb[0][1], -1.0, 1e-12, "iauPvmpv", "21", status); + vvd(amb[0][2], -1.0, 1e-12, "iauPvmpv", "31", status); + + vvd(amb[1][0], 2.0, 1e-12, "iauPvmpv", "12", status); + vvd(amb[1][1], 4.0, 1e-12, "iauPvmpv", "22", status); + vvd(amb[1][2], 2.0, 1e-12, "iauPvmpv", "32", status); + +} + +static void t_pvppv(int *status) +/* +** - - - - - - - - +** t _ p v p p v +** - - - - - - - - +** +** Test iauPvppv function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPvppv, vvd +** +** This revision: 2013 August 7 +*/ +{ + double a[2][3], b[2][3], apb[2][3]; + + + a[0][0] = 2.0; + a[0][1] = 2.0; + a[0][2] = 3.0; + + a[1][0] = 5.0; + a[1][1] = 6.0; + a[1][2] = 3.0; + + b[0][0] = 1.0; + b[0][1] = 3.0; + b[0][2] = 4.0; + + b[1][0] = 3.0; + b[1][1] = 2.0; + b[1][2] = 1.0; + + iauPvppv(a, b, apb); + + vvd(apb[0][0], 3.0, 1e-12, "iauPvppv", "p1", status); + vvd(apb[0][1], 5.0, 1e-12, "iauPvppv", "p2", status); + vvd(apb[0][2], 7.0, 1e-12, "iauPvppv", "p3", status); + + vvd(apb[1][0], 8.0, 1e-12, "iauPvppv", "v1", status); + vvd(apb[1][1], 8.0, 1e-12, "iauPvppv", "v2", status); + vvd(apb[1][2], 4.0, 1e-12, "iauPvppv", "v3", status); + +} + +static void t_pvstar(int *status) +/* +** - - - - - - - - - +** t _ p v s t a r +** - - - - - - - - - +** +** Test iauPvstar function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPvstar, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double pv[2][3], ra, dec, pmr, pmd, px, rv; + int j; + + + pv[0][0] = 126668.5912743160601; + pv[0][1] = 2136.792716839935195; + pv[0][2] = -245251.2339876830091; + + pv[1][0] = -0.4051854035740712739e-2; + pv[1][1] = -0.6253919754866173866e-2; + pv[1][2] = 0.1189353719774107189e-1; + + j = iauPvstar(pv, &ra, &dec, &pmr, &pmd, &px, &rv); + + vvd(ra, 0.1686756e-1, 1e-12, "iauPvstar", "ra", status); + vvd(dec, -1.093989828, 1e-12, "iauPvstar", "dec", status); + vvd(pmr, -0.178323516e-4, 1e-16, "iauPvstar", "pmr", status); + vvd(pmd, 0.2336024047e-5, 1e-16, "iauPvstar", "pmd", status); + vvd(px, 0.74723, 1e-12, "iauPvstar", "px", status); + vvd(rv, -21.6, 1e-11, "iauPvstar", "rv", status); + + viv(j, 0, "iauPvstar", "j", status); + +} + +static void t_pvtob(int *status) +/* +** - - - - - - - - +** t _ p v t o b +** - - - - - - - - +** +** Test iauPvtob function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPvtob, vvd +** +** This revision: 2013 October 2 +*/ +{ + double elong, phi, hm, xp, yp, sp, theta, pv[2][3]; + + + elong = 2.0; + phi = 0.5; + hm = 3000.0; + xp = 1e-6; + yp = -0.5e-6; + sp = 1e-8; + theta = 5.0; + + iauPvtob(elong, phi, hm, xp, yp, sp, theta, pv); + + vvd(pv[0][0], 4225081.367071159207, 1e-5, + "iauPvtob", "p(1)", status); + vvd(pv[0][1], 3681943.215856198144, 1e-5, + "iauPvtob", "p(2)", status); + vvd(pv[0][2], 3041149.399241260785, 1e-5, + "iauPvtob", "p(3)", status); + vvd(pv[1][0], -268.4915389365998787, 1e-9, + "iauPvtob", "v(1)", status); + vvd(pv[1][1], 308.0977983288903123, 1e-9, + "iauPvtob", "v(2)", status); + vvd(pv[1][2], 0, 0, + "iauPvtob", "v(3)", status); + +} + +static void t_pvu(int *status) +/* +** - - - - - - +** t _ p v u +** - - - - - - +** +** Test iauPvu function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPvu, vvd +** +** This revision: 2013 August 7 +*/ +{ + double pv[2][3], upv[2][3]; + + + pv[0][0] = 126668.5912743160734; + pv[0][1] = 2136.792716839935565; + pv[0][2] = -245251.2339876830229; + + pv[1][0] = -0.4051854035740713039e-2; + pv[1][1] = -0.6253919754866175788e-2; + pv[1][2] = 0.1189353719774107615e-1; + + iauPvu(2920.0, pv, upv); + + vvd(upv[0][0], 126656.7598605317105, 1e-12, + "iauPvu", "p1", status); + vvd(upv[0][1], 2118.531271155726332, 1e-12, + "iauPvu", "p2", status); + vvd(upv[0][2], -245216.5048590656190, 1e-12, + "iauPvu", "p3", status); + + vvd(upv[1][0], -0.4051854035740713039e-2, 1e-12, + "iauPvu", "v1", status); + vvd(upv[1][1], -0.6253919754866175788e-2, 1e-12, + "iauPvu", "v2", status); + vvd(upv[1][2], 0.1189353719774107615e-1, 1e-12, + "iauPvu", "v3", status); + +} + +static void t_pvup(int *status) +/* +** - - - - - - - +** t _ p v u p +** - - - - - - - +** +** Test iauPvup function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPvup, vvd +** +** This revision: 2013 August 7 +*/ +{ + double pv[2][3], p[3]; + + + pv[0][0] = 126668.5912743160734; + pv[0][1] = 2136.792716839935565; + pv[0][2] = -245251.2339876830229; + + pv[1][0] = -0.4051854035740713039e-2; + pv[1][1] = -0.6253919754866175788e-2; + pv[1][2] = 0.1189353719774107615e-1; + + iauPvup(2920.0, pv, p); + + vvd(p[0], 126656.7598605317105, 1e-12, "iauPvup", "1", status); + vvd(p[1], 2118.531271155726332, 1e-12, "iauPvup", "2", status); + vvd(p[2], -245216.5048590656190, 1e-12, "iauPvup", "3", status); + +} + +static void t_pvxpv(int *status) +/* +** - - - - - - - - +** t _ p v x p v +** - - - - - - - - +** +** Test iauPvxpv function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPvxpv, vvd +** +** This revision: 2013 August 7 +*/ +{ + double a[2][3], b[2][3], axb[2][3]; + + + a[0][0] = 2.0; + a[0][1] = 2.0; + a[0][2] = 3.0; + + a[1][0] = 6.0; + a[1][1] = 0.0; + a[1][2] = 4.0; + + b[0][0] = 1.0; + b[0][1] = 3.0; + b[0][2] = 4.0; + + b[1][0] = 0.0; + b[1][1] = 2.0; + b[1][2] = 8.0; + + iauPvxpv(a, b, axb); + + vvd(axb[0][0], -1.0, 1e-12, "iauPvxpv", "p1", status); + vvd(axb[0][1], -5.0, 1e-12, "iauPvxpv", "p2", status); + vvd(axb[0][2], 4.0, 1e-12, "iauPvxpv", "p3", status); + + vvd(axb[1][0], -2.0, 1e-12, "iauPvxpv", "v1", status); + vvd(axb[1][1], -36.0, 1e-12, "iauPvxpv", "v2", status); + vvd(axb[1][2], 22.0, 1e-12, "iauPvxpv", "v3", status); + +} + +static void t_pxp(int *status) +/* +** - - - - - - +** t _ p x p +** - - - - - - +** +** Test iauPxp function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauPxp, vvd +** +** This revision: 2013 August 7 +*/ +{ + double a[3], b[3], axb[3]; + + + a[0] = 2.0; + a[1] = 2.0; + a[2] = 3.0; + + b[0] = 1.0; + b[1] = 3.0; + b[2] = 4.0; + + iauPxp(a, b, axb); + + vvd(axb[0], -1.0, 1e-12, "iauPxp", "1", status); + vvd(axb[1], -5.0, 1e-12, "iauPxp", "2", status); + vvd(axb[2], 4.0, 1e-12, "iauPxp", "3", status); + +} + +static void t_refco(int *status) +/* +** - - - - - - - - +** t _ r e f c o +** - - - - - - - - +** +** Test iauRefco function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauRefco, vvd +** +** This revision: 2013 October 2 +*/ +{ + double phpa, tc, rh, wl, refa, refb; + + + phpa = 800.0; + tc = 10.0; + rh = 0.9; + wl = 0.4; + + iauRefco(phpa, tc, rh, wl, &refa, &refb); + + vvd(refa, 0.2264949956241415009e-3, 1e-15, + "iauRefco", "refa", status); + vvd(refb, -0.2598658261729343970e-6, 1e-18, + "iauRefco", "refb", status); + +} + +static void t_rm2v(int *status) +/* +** - - - - - - - +** t _ r m 2 v +** - - - - - - - +** +** Test iauRm2v function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauRm2v, vvd +** +** This revision: 2013 August 7 +*/ +{ + double r[3][3], w[3]; + + + r[0][0] = 0.00; + r[0][1] = -0.80; + r[0][2] = -0.60; + + r[1][0] = 0.80; + r[1][1] = -0.36; + r[1][2] = 0.48; + + r[2][0] = 0.60; + r[2][1] = 0.48; + r[2][2] = -0.64; + + iauRm2v(r, w); + + vvd(w[0], 0.0, 1e-12, "iauRm2v", "1", status); + vvd(w[1], 1.413716694115406957, 1e-12, "iauRm2v", "2", status); + vvd(w[2], -1.884955592153875943, 1e-12, "iauRm2v", "3", status); + +} + +static void t_rv2m(int *status) +/* +** - - - - - - - +** t _ r v 2 m +** - - - - - - - +** +** Test iauRv2m function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauRv2m, vvd +** +** This revision: 2013 August 7 +*/ +{ + double w[3], r[3][3]; + + + w[0] = 0.0; + w[1] = 1.41371669; + w[2] = -1.88495559; + + iauRv2m(w, r); + + vvd(r[0][0], -0.7071067782221119905, 1e-14, "iauRv2m", "11", status); + vvd(r[0][1], -0.5656854276809129651, 1e-14, "iauRv2m", "12", status); + vvd(r[0][2], -0.4242640700104211225, 1e-14, "iauRv2m", "13", status); + + vvd(r[1][0], 0.5656854276809129651, 1e-14, "iauRv2m", "21", status); + vvd(r[1][1], -0.0925483394532274246, 1e-14, "iauRv2m", "22", status); + vvd(r[1][2], -0.8194112531408833269, 1e-14, "iauRv2m", "23", status); + + vvd(r[2][0], 0.4242640700104211225, 1e-14, "iauRv2m", "31", status); + vvd(r[2][1], -0.8194112531408833269, 1e-14, "iauRv2m", "32", status); + vvd(r[2][2], 0.3854415612311154341, 1e-14, "iauRv2m", "33", status); + +} + +static void t_rx(int *status) +/* +** - - - - - +** t _ r x +** - - - - - +** +** Test iauRx function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauRx, vvd +** +** This revision: 2013 August 7 +*/ +{ + double phi, r[3][3]; + + + phi = 0.3456789; + + r[0][0] = 2.0; + r[0][1] = 3.0; + r[0][2] = 2.0; + + r[1][0] = 3.0; + r[1][1] = 2.0; + r[1][2] = 3.0; + + r[2][0] = 3.0; + r[2][1] = 4.0; + r[2][2] = 5.0; + + iauRx(phi, r); + + vvd(r[0][0], 2.0, 0.0, "iauRx", "11", status); + vvd(r[0][1], 3.0, 0.0, "iauRx", "12", status); + vvd(r[0][2], 2.0, 0.0, "iauRx", "13", status); + + vvd(r[1][0], 3.839043388235612460, 1e-12, "iauRx", "21", status); + vvd(r[1][1], 3.237033249594111899, 1e-12, "iauRx", "22", status); + vvd(r[1][2], 4.516714379005982719, 1e-12, "iauRx", "23", status); + + vvd(r[2][0], 1.806030415924501684, 1e-12, "iauRx", "31", status); + vvd(r[2][1], 3.085711545336372503, 1e-12, "iauRx", "32", status); + vvd(r[2][2], 3.687721683977873065, 1e-12, "iauRx", "33", status); + +} + +static void t_rxp(int *status) +/* +** - - - - - - +** t _ r x p +** - - - - - - +** +** Test iauRxp function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauRxp, vvd +** +** This revision: 2013 August 7 +*/ +{ + double r[3][3], p[3], rp[3]; + + + r[0][0] = 2.0; + r[0][1] = 3.0; + r[0][2] = 2.0; + + r[1][0] = 3.0; + r[1][1] = 2.0; + r[1][2] = 3.0; + + r[2][0] = 3.0; + r[2][1] = 4.0; + r[2][2] = 5.0; + + p[0] = 0.2; + p[1] = 1.5; + p[2] = 0.1; + + iauRxp(r, p, rp); + + vvd(rp[0], 5.1, 1e-12, "iauRxp", "1", status); + vvd(rp[1], 3.9, 1e-12, "iauRxp", "2", status); + vvd(rp[2], 7.1, 1e-12, "iauRxp", "3", status); + +} + +static void t_rxpv(int *status) +/* +** - - - - - - - +** t _ r x p v +** - - - - - - - +** +** Test iauRxpv function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauRxpv, vvd +** +** This revision: 2013 August 7 +*/ +{ + double r[3][3], pv[2][3], rpv[2][3]; + + + r[0][0] = 2.0; + r[0][1] = 3.0; + r[0][2] = 2.0; + + r[1][0] = 3.0; + r[1][1] = 2.0; + r[1][2] = 3.0; + + r[2][0] = 3.0; + r[2][1] = 4.0; + r[2][2] = 5.0; + + pv[0][0] = 0.2; + pv[0][1] = 1.5; + pv[0][2] = 0.1; + + pv[1][0] = 1.5; + pv[1][1] = 0.2; + pv[1][2] = 0.1; + + iauRxpv(r, pv, rpv); + + vvd(rpv[0][0], 5.1, 1e-12, "iauRxpv", "11", status); + vvd(rpv[1][0], 3.8, 1e-12, "iauRxpv", "12", status); + + vvd(rpv[0][1], 3.9, 1e-12, "iauRxpv", "21", status); + vvd(rpv[1][1], 5.2, 1e-12, "iauRxpv", "22", status); + + vvd(rpv[0][2], 7.1, 1e-12, "iauRxpv", "31", status); + vvd(rpv[1][2], 5.8, 1e-12, "iauRxpv", "32", status); + +} + +static void t_rxr(int *status) +/* +** - - - - - - +** t _ r x r +** - - - - - - +** +** Test iauRxr function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauRxr, vvd +** +** This revision: 2013 August 7 +*/ +{ + double a[3][3], b[3][3], atb[3][3]; + + + a[0][0] = 2.0; + a[0][1] = 3.0; + a[0][2] = 2.0; + + a[1][0] = 3.0; + a[1][1] = 2.0; + a[1][2] = 3.0; + + a[2][0] = 3.0; + a[2][1] = 4.0; + a[2][2] = 5.0; + + b[0][0] = 1.0; + b[0][1] = 2.0; + b[0][2] = 2.0; + + b[1][0] = 4.0; + b[1][1] = 1.0; + b[1][2] = 1.0; + + b[2][0] = 3.0; + b[2][1] = 0.0; + b[2][2] = 1.0; + + iauRxr(a, b, atb); + + vvd(atb[0][0], 20.0, 1e-12, "iauRxr", "11", status); + vvd(atb[0][1], 7.0, 1e-12, "iauRxr", "12", status); + vvd(atb[0][2], 9.0, 1e-12, "iauRxr", "13", status); + + vvd(atb[1][0], 20.0, 1e-12, "iauRxr", "21", status); + vvd(atb[1][1], 8.0, 1e-12, "iauRxr", "22", status); + vvd(atb[1][2], 11.0, 1e-12, "iauRxr", "23", status); + + vvd(atb[2][0], 34.0, 1e-12, "iauRxr", "31", status); + vvd(atb[2][1], 10.0, 1e-12, "iauRxr", "32", status); + vvd(atb[2][2], 15.0, 1e-12, "iauRxr", "33", status); + +} + +static void t_ry(int *status) +/* +** - - - - - +** t _ r y +** - - - - - +** +** Test iauRy function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauRy, vvd +** +** This revision: 2013 August 7 +*/ +{ + double theta, r[3][3]; + + + theta = 0.3456789; + + r[0][0] = 2.0; + r[0][1] = 3.0; + r[0][2] = 2.0; + + r[1][0] = 3.0; + r[1][1] = 2.0; + r[1][2] = 3.0; + + r[2][0] = 3.0; + r[2][1] = 4.0; + r[2][2] = 5.0; + + iauRy(theta, r); + + vvd(r[0][0], 0.8651847818978159930, 1e-12, "iauRy", "11", status); + vvd(r[0][1], 1.467194920539316554, 1e-12, "iauRy", "12", status); + vvd(r[0][2], 0.1875137911274457342, 1e-12, "iauRy", "13", status); + + vvd(r[1][0], 3, 1e-12, "iauRy", "21", status); + vvd(r[1][1], 2, 1e-12, "iauRy", "22", status); + vvd(r[1][2], 3, 1e-12, "iauRy", "23", status); + + vvd(r[2][0], 3.500207892850427330, 1e-12, "iauRy", "31", status); + vvd(r[2][1], 4.779889022262298150, 1e-12, "iauRy", "32", status); + vvd(r[2][2], 5.381899160903798712, 1e-12, "iauRy", "33", status); + +} + +static void t_rz(int *status) +/* +** - - - - - +** t _ r z +** - - - - - +** +** Test iauRz function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauRz, vvd +** +** This revision: 2013 August 7 +*/ +{ + double psi, r[3][3]; + + + psi = 0.3456789; + + r[0][0] = 2.0; + r[0][1] = 3.0; + r[0][2] = 2.0; + + r[1][0] = 3.0; + r[1][1] = 2.0; + r[1][2] = 3.0; + + r[2][0] = 3.0; + r[2][1] = 4.0; + r[2][2] = 5.0; + + iauRz(psi, r); + + vvd(r[0][0], 2.898197754208926769, 1e-12, "iauRz", "11", status); + vvd(r[0][1], 3.500207892850427330, 1e-12, "iauRz", "12", status); + vvd(r[0][2], 2.898197754208926769, 1e-12, "iauRz", "13", status); + + vvd(r[1][0], 2.144865911309686813, 1e-12, "iauRz", "21", status); + vvd(r[1][1], 0.865184781897815993, 1e-12, "iauRz", "22", status); + vvd(r[1][2], 2.144865911309686813, 1e-12, "iauRz", "23", status); + + vvd(r[2][0], 3.0, 1e-12, "iauRz", "31", status); + vvd(r[2][1], 4.0, 1e-12, "iauRz", "32", status); + vvd(r[2][2], 5.0, 1e-12, "iauRz", "33", status); + +} + +static void t_s00a(int *status) +/* +** - - - - - - - +** t _ s 0 0 a +** - - - - - - - +** +** Test iauS00a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauS00a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double s; + + + s = iauS00a(2400000.5, 52541.0); + + vvd(s, -0.1340684448919163584e-7, 1e-18, "iauS00a", "", status); + +} + +static void t_s00b(int *status) +/* +** - - - - - - - +** t _ s 0 0 b +** - - - - - - - +** +** Test iauS00b function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauS00b, vvd +** +** This revision: 2013 August 7 +*/ +{ + double s; + + + s = iauS00b(2400000.5, 52541.0); + + vvd(s, -0.1340695782951026584e-7, 1e-18, "iauS00b", "", status); + +} + +static void t_s00(int *status) +/* +** - - - - - - +** t _ s 0 0 +** - - - - - - +** +** Test iauS00 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauS00, vvd +** +** This revision: 2013 August 7 +*/ +{ + double x, y, s; + + + x = 0.5791308486706011000e-3; + y = 0.4020579816732961219e-4; + + s = iauS00(2400000.5, 53736.0, x, y); + + vvd(s, -0.1220036263270905693e-7, 1e-18, "iauS00", "", status); + +} + +static void t_s06a(int *status) +/* +** - - - - - - - +** t _ s 0 6 a +** - - - - - - - +** +** Test iauS06a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauS06a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double s; + + + s = iauS06a(2400000.5, 52541.0); + + vvd(s, -0.1340680437291812383e-7, 1e-18, "iauS06a", "", status); + +} + +static void t_s06(int *status) +/* +** - - - - - - +** t _ s 0 6 +** - - - - - - +** +** Test iauS06 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauS06, vvd +** +** This revision: 2013 August 7 +*/ +{ + double x, y, s; + + + x = 0.5791308486706011000e-3; + y = 0.4020579816732961219e-4; + + s = iauS06(2400000.5, 53736.0, x, y); + + vvd(s, -0.1220032213076463117e-7, 1e-18, "iauS06", "", status); + +} + +static void t_s2c(int *status) +/* +** - - - - - - +** t _ s 2 c +** - - - - - - +** +** Test iauS2c function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauS2c, vvd +** +** This revision: 2013 August 7 +*/ +{ + double c[3]; + + + iauS2c(3.0123, -0.999, c); + + vvd(c[0], -0.5366267667260523906, 1e-12, "iauS2c", "1", status); + vvd(c[1], 0.0697711109765145365, 1e-12, "iauS2c", "2", status); + vvd(c[2], -0.8409302618566214041, 1e-12, "iauS2c", "3", status); + +} + +static void t_s2p(int *status) +/* +** - - - - - - +** t _ s 2 p +** - - - - - - +** +** Test iauS2p function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauS2p, vvd +** +** This revision: 2013 August 7 +*/ +{ + double p[3]; + + + iauS2p(-3.21, 0.123, 0.456, p); + + vvd(p[0], -0.4514964673880165228, 1e-12, "iauS2p", "x", status); + vvd(p[1], 0.0309339427734258688, 1e-12, "iauS2p", "y", status); + vvd(p[2], 0.0559466810510877933, 1e-12, "iauS2p", "z", status); + +} + +static void t_s2pv(int *status) +/* +** - - - - - - - +** t _ s 2 p v +** - - - - - - - +** +** Test iauS2pv function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauS2pv, vvd +** +** This revision: 2013 August 7 +*/ +{ + double pv[2][3]; + + + iauS2pv(-3.21, 0.123, 0.456, -7.8e-6, 9.01e-6, -1.23e-5, pv); + + vvd(pv[0][0], -0.4514964673880165228, 1e-12, "iauS2pv", "x", status); + vvd(pv[0][1], 0.0309339427734258688, 1e-12, "iauS2pv", "y", status); + vvd(pv[0][2], 0.0559466810510877933, 1e-12, "iauS2pv", "z", status); + + vvd(pv[1][0], 0.1292270850663260170e-4, 1e-16, + "iauS2pv", "vx", status); + vvd(pv[1][1], 0.2652814182060691422e-5, 1e-16, + "iauS2pv", "vy", status); + vvd(pv[1][2], 0.2568431853930292259e-5, 1e-16, + "iauS2pv", "vz", status); + +} + +static void t_s2xpv(int *status) +/* +** - - - - - - - - +** t _ s 2 x p v +** - - - - - - - - +** +** Test iauS2xpv function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauS2xpv, vvd +** +** This revision: 2013 August 7 +*/ +{ + double s1, s2, pv[2][3], spv[2][3]; + + + s1 = 2.0; + s2 = 3.0; + + pv[0][0] = 0.3; + pv[0][1] = 1.2; + pv[0][2] = -2.5; + + pv[1][0] = 0.5; + pv[1][1] = 2.3; + pv[1][2] = -0.4; + + iauS2xpv(s1, s2, pv, spv); + + vvd(spv[0][0], 0.6, 1e-12, "iauS2xpv", "p1", status); + vvd(spv[0][1], 2.4, 1e-12, "iauS2xpv", "p2", status); + vvd(spv[0][2], -5.0, 1e-12, "iauS2xpv", "p3", status); + + vvd(spv[1][0], 1.5, 1e-12, "iauS2xpv", "v1", status); + vvd(spv[1][1], 6.9, 1e-12, "iauS2xpv", "v2", status); + vvd(spv[1][2], -1.2, 1e-12, "iauS2xpv", "v3", status); + +} + +static void t_sepp(int *status) +/* +** - - - - - - - +** t _ s e p p +** - - - - - - - +** +** Test iauSepp function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauSepp, vvd +** +** This revision: 2013 August 7 +*/ +{ + double a[3], b[3], s; + + + a[0] = 1.0; + a[1] = 0.1; + a[2] = 0.2; + + b[0] = -3.0; + b[1] = 1e-3; + b[2] = 0.2; + + s = iauSepp(a, b); + + vvd(s, 2.860391919024660768, 1e-12, "iauSepp", "", status); + +} + +static void t_seps(int *status) +/* +** - - - - - - - +** t _ s e p s +** - - - - - - - +** +** Test iauSeps function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauSeps, vvd +** +** This revision: 2013 August 7 +*/ +{ + double al, ap, bl, bp, s; + + + al = 1.0; + ap = 0.1; + + bl = 0.2; + bp = -3.0; + + s = iauSeps(al, ap, bl, bp); + + vvd(s, 2.346722016996998842, 1e-14, "iauSeps", "", status); + +} + +static void t_sp00(int *status) +/* +** - - - - - - - +** t _ s p 0 0 +** - - - - - - - +** +** Test iauSp00 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauSp00, vvd +** +** This revision: 2013 August 7 +*/ +{ + vvd(iauSp00(2400000.5, 52541.0), + -0.6216698469981019309e-11, 1e-12, "iauSp00", "", status); + +} + +static void t_starpm(int *status) +/* +** - - - - - - - - - +** t _ s t a r p m +** - - - - - - - - - +** +** Test iauStarpm function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauStarpm, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double ra1, dec1, pmr1, pmd1, px1, rv1; + double ra2, dec2, pmr2, pmd2, px2, rv2; + int j; + + + ra1 = 0.01686756; + dec1 = -1.093989828; + pmr1 = -1.78323516e-5; + pmd1 = 2.336024047e-6; + px1 = 0.74723; + rv1 = -21.6; + + j = iauStarpm(ra1, dec1, pmr1, pmd1, px1, rv1, + 2400000.5, 50083.0, 2400000.5, 53736.0, + &ra2, &dec2, &pmr2, &pmd2, &px2, &rv2); + + vvd(ra2, 0.01668919069414242368, 1e-13, + "iauStarpm", "ra", status); + vvd(dec2, -1.093966454217127879, 1e-13, + "iauStarpm", "dec", status); + vvd(pmr2, -0.1783662682155932702e-4, 1e-17, + "iauStarpm", "pmr", status); + vvd(pmd2, 0.2338092915987603664e-5, 1e-17, + "iauStarpm", "pmd", status); + vvd(px2, 0.7473533835323493644, 1e-13, + "iauStarpm", "px", status); + vvd(rv2, -21.59905170476860786, 1e-11, + "iauStarpm", "rv", status); + + viv(j, 0, "iauStarpm", "j", status); + +} + +static void t_starpv(int *status) +/* +** - - - - - - - - - +** t _ s t a r p v +** - - - - - - - - - +** +** Test iauStarpv function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauStarpv, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double ra, dec, pmr, pmd, px, rv, pv[2][3]; + int j; + + + ra = 0.01686756; + dec = -1.093989828; + pmr = -1.78323516e-5; + pmd = 2.336024047e-6; + px = 0.74723; + rv = -21.6; + + j = iauStarpv(ra, dec, pmr, pmd, px, rv, pv); + + vvd(pv[0][0], 126668.5912743160601, 1e-10, + "iauStarpv", "11", status); + vvd(pv[0][1], 2136.792716839935195, 1e-12, + "iauStarpv", "12", status); + vvd(pv[0][2], -245251.2339876830091, 1e-10, + "iauStarpv", "13", status); + + vvd(pv[1][0], -0.4051854035740712739e-2, 1e-13, + "iauStarpv", "21", status); + vvd(pv[1][1], -0.6253919754866173866e-2, 1e-15, + "iauStarpv", "22", status); + vvd(pv[1][2], 0.1189353719774107189e-1, 1e-13, + "iauStarpv", "23", status); + + viv(j, 0, "iauStarpv", "j", status); + +} + +static void t_sxp(int *status) +/* +** - - - - - - +** t _ s x p +** - - - - - - +** +** Test iauSxp function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauSxp, vvd +** +** This revision: 2013 August 7 +*/ +{ + double s, p[3], sp[3]; + + + s = 2.0; + + p[0] = 0.3; + p[1] = 1.2; + p[2] = -2.5; + + iauSxp(s, p, sp); + + vvd(sp[0], 0.6, 0.0, "iauSxp", "1", status); + vvd(sp[1], 2.4, 0.0, "iauSxp", "2", status); + vvd(sp[2], -5.0, 0.0, "iauSxp", "3", status); + +} + + +static void t_sxpv(int *status) +/* +** - - - - - - - +** t _ s x p v +** - - - - - - - +** +** Test iauSxpv function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauSxpv, vvd +** +** This revision: 2013 August 7 +*/ +{ + double s, pv[2][3], spv[2][3]; + + + s = 2.0; + + pv[0][0] = 0.3; + pv[0][1] = 1.2; + pv[0][2] = -2.5; + + pv[1][0] = 0.5; + pv[1][1] = 3.2; + pv[1][2] = -0.7; + + iauSxpv(s, pv, spv); + + vvd(spv[0][0], 0.6, 0.0, "iauSxpv", "p1", status); + vvd(spv[0][1], 2.4, 0.0, "iauSxpv", "p2", status); + vvd(spv[0][2], -5.0, 0.0, "iauSxpv", "p3", status); + + vvd(spv[1][0], 1.0, 0.0, "iauSxpv", "v1", status); + vvd(spv[1][1], 6.4, 0.0, "iauSxpv", "v2", status); + vvd(spv[1][2], -1.4, 0.0, "iauSxpv", "v3", status); + +} + +static void t_taitt(int *status) +/* +** - - - - - - - - +** t _ t a i t t +** - - - - - - - - +** +** Test iauTaitt function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauTaitt, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double t1, t2; + int j; + + + j = iauTaitt(2453750.5, 0.892482639, &t1, &t2); + + vvd(t1, 2453750.5, 1e-6, "iauTaitt", "t1", status); + vvd(t2, 0.892855139, 1e-12, "iauTaitt", "t2", status); + viv(j, 0, "iauTaitt", "j", status); + +} + +static void t_taiut1(int *status) +/* +** - - - - - - - - - +** t _ t a i u t 1 +** - - - - - - - - - +** +** Test iauTaiut1 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauTaiut1, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double u1, u2; + int j; + + + j = iauTaiut1(2453750.5, 0.892482639, -32.6659, &u1, &u2); + + vvd(u1, 2453750.5, 1e-6, "iauTaiut1", "u1", status); + vvd(u2, 0.8921045614537037037, 1e-12, "iauTaiut1", "u2", status); + viv(j, 0, "iauTaiut1", "j", status); + +} + +static void t_taiutc(int *status) +/* +** - - - - - - - - - +** t _ t a i u t c +** - - - - - - - - - +** +** Test iauTaiutc function. +** +** Returned: +** status LOGICAL TRUE = success, FALSE = fail +** +** Called: iauTaiutc, vvd, viv +** +** This revision: 2013 October 3 +*/ +{ + double u1, u2; + int j; + + + j = iauTaiutc(2453750.5, 0.892482639, &u1, &u2); + + vvd(u1, 2453750.5, 1e-6, "iauTaiutc", "u1", status); + vvd(u2, 0.8921006945555555556, 1e-12, "iauTaiutc", "u2", status); + viv(j, 0, "iauTaiutc", "j", status); + +} + +static void t_tcbtdb(int *status) +/* +** - - - - - - - - - +** t _ t c b t d b +** - - - - - - - - - +** +** Test iauTcbtdb function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauTcbtdb, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double b1, b2; + int j; + + + j = iauTcbtdb(2453750.5, 0.893019599, &b1, &b2); + + vvd(b1, 2453750.5, 1e-6, "iauTcbtdb", "b1", status); + vvd(b2, 0.8928551362746343397, 1e-12, "iauTcbtdb", "b2", status); + viv(j, 0, "iauTcbtdb", "j", status); + +} + +static void t_tcgtt(int *status) +/* +** - - - - - - - - +** t _ t c g t t +** - - - - - - - - +** +** Test iauTcgtt function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauTcgtt, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double t1, t2; + int j; + + + j = iauTcgtt(2453750.5, 0.892862531, &t1, &t2); + + vvd(t1, 2453750.5, 1e-6, "iauTcgtt", "t1", status); + vvd(t2, 0.8928551387488816828, 1e-12, "iauTcgtt", "t2", status); + viv(j, 0, "iauTcgtt", "j", status); + +} + +static void t_tdbtcb(int *status) +/* +** - - - - - - - - - +** t _ t d b t c b +** - - - - - - - - - +** +** Test iauTdbtcb function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauTdbtcb, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double b1, b2; + int j; + + + j = iauTdbtcb(2453750.5, 0.892855137, &b1, &b2); + + vvd( b1, 2453750.5, 1e-6, "iauTdbtcb", "b1", status); + vvd( b2, 0.8930195997253656716, 1e-12, "iauTdbtcb", "b2", status); + viv(j, 0, "iauTdbtcb", "j", status); + +} + +static void t_tdbtt(int *status) +/* +** - - - - - - - - +** t _ t d b t t +** - - - - - - - - +** +** Test iauTdbtt function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauTdbtt, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double t1, t2; + int j; + + + j = iauTdbtt(2453750.5, 0.892855137, -0.000201, &t1, &t2); + + vvd(t1, 2453750.5, 1e-6, "iauTdbtt", "t1", status); + vvd(t2, 0.8928551393263888889, 1e-12, "iauTdbtt", "t2", status); + viv(j, 0, "iauTdbtt", "j", status); + +} + +static void t_tf2a(int *status) +/* +** - - - - - - - +** t _ t f 2 a +** - - - - - - - +** +** Test iauTf2a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauTf2a, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double a; + int j; + + + j = iauTf2a('+', 4, 58, 20.2, &a); + + vvd(a, 1.301739278189537429, 1e-12, "iauTf2a", "a", status); + viv(j, 0, "iauTf2a", "j", status); + +} + +static void t_tf2d(int *status) +/* +** - - - - - - - +** t _ t f 2 d +** - - - - - - - +** +** Test iauTf2d function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauTf2d, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double d; + int j; + + + j = iauTf2d(' ', 23, 55, 10.9, &d); + + vvd(d, 0.9966539351851851852, 1e-12, "iauTf2d", "d", status); + viv(j, 0, "iauTf2d", "j", status); + +} + +static void t_tr(int *status) +/* +** - - - - - +** t _ t r +** - - - - - +** +** Test iauTr function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauTr, vvd +** +** This revision: 2013 August 7 +*/ +{ + double r[3][3], rt[3][3]; + + + r[0][0] = 2.0; + r[0][1] = 3.0; + r[0][2] = 2.0; + + r[1][0] = 3.0; + r[1][1] = 2.0; + r[1][2] = 3.0; + + r[2][0] = 3.0; + r[2][1] = 4.0; + r[2][2] = 5.0; + + iauTr(r, rt); + + vvd(rt[0][0], 2.0, 0.0, "iauTr", "11", status); + vvd(rt[0][1], 3.0, 0.0, "iauTr", "12", status); + vvd(rt[0][2], 3.0, 0.0, "iauTr", "13", status); + + vvd(rt[1][0], 3.0, 0.0, "iauTr", "21", status); + vvd(rt[1][1], 2.0, 0.0, "iauTr", "22", status); + vvd(rt[1][2], 4.0, 0.0, "iauTr", "23", status); + + vvd(rt[2][0], 2.0, 0.0, "iauTr", "31", status); + vvd(rt[2][1], 3.0, 0.0, "iauTr", "32", status); + vvd(rt[2][2], 5.0, 0.0, "iauTr", "33", status); + +} + +static void t_trxp(int *status) +/* +** - - - - - - - +** t _ t r x p +** - - - - - - - +** +** Test iauTrxp function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauTrxp, vvd +** +** This revision: 2013 August 7 +*/ +{ + double r[3][3], p[3], trp[3]; + + + r[0][0] = 2.0; + r[0][1] = 3.0; + r[0][2] = 2.0; + + r[1][0] = 3.0; + r[1][1] = 2.0; + r[1][2] = 3.0; + + r[2][0] = 3.0; + r[2][1] = 4.0; + r[2][2] = 5.0; + + p[0] = 0.2; + p[1] = 1.5; + p[2] = 0.1; + + iauTrxp(r, p, trp); + + vvd(trp[0], 5.2, 1e-12, "iauTrxp", "1", status); + vvd(trp[1], 4.0, 1e-12, "iauTrxp", "2", status); + vvd(trp[2], 5.4, 1e-12, "iauTrxp", "3", status); + +} + +static void t_trxpv(int *status) +/* +** - - - - - - - - +** t _ t r x p v +** - - - - - - - - +** +** Test iauTrxpv function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauTrxpv, vvd +** +** This revision: 2013 August 7 +*/ +{ + double r[3][3], pv[2][3], trpv[2][3]; + + + r[0][0] = 2.0; + r[0][1] = 3.0; + r[0][2] = 2.0; + + r[1][0] = 3.0; + r[1][1] = 2.0; + r[1][2] = 3.0; + + r[2][0] = 3.0; + r[2][1] = 4.0; + r[2][2] = 5.0; + + pv[0][0] = 0.2; + pv[0][1] = 1.5; + pv[0][2] = 0.1; + + pv[1][0] = 1.5; + pv[1][1] = 0.2; + pv[1][2] = 0.1; + + iauTrxpv(r, pv, trpv); + + vvd(trpv[0][0], 5.2, 1e-12, "iauTrxpv", "p1", status); + vvd(trpv[0][1], 4.0, 1e-12, "iauTrxpv", "p1", status); + vvd(trpv[0][2], 5.4, 1e-12, "iauTrxpv", "p1", status); + + vvd(trpv[1][0], 3.9, 1e-12, "iauTrxpv", "v1", status); + vvd(trpv[1][1], 5.3, 1e-12, "iauTrxpv", "v2", status); + vvd(trpv[1][2], 4.1, 1e-12, "iauTrxpv", "v3", status); + +} + +static void t_tttai(int *status) +/* +** - - - - - - - - +** t _ t t t a i +** - - - - - - - - +** +** Test iauTttai function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauTttai, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double a1, a2; + int j; + + + j = iauTttai(2453750.5, 0.892482639, &a1, &a2); + + vvd(a1, 2453750.5, 1e-6, "iauTttai", "a1", status); + vvd(a2, 0.892110139, 1e-12, "iauTttai", "a2", status); + viv(j, 0, "iauTttai", "j", status); + +} + +static void t_tttcg(int *status) +/* +** - - - - - - - - +** t _ t t t c g +** - - - - - - - - +** +** Test iauTttcg function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauTttcg, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double g1, g2; + int j; + + + j = iauTttcg(2453750.5, 0.892482639, &g1, &g2); + + vvd( g1, 2453750.5, 1e-6, "iauTttcg", "g1", status); + vvd( g2, 0.8924900312508587113, 1e-12, "iauTttcg", "g2", status); + viv(j, 0, "iauTttcg", "j", status); + +} + +static void t_tttdb(int *status) +/* +** - - - - - - - - +** t _ t t t d b +** - - - - - - - - +** +** Test iauTttdb function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauTttdb, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double b1, b2; + int j; + + + j = iauTttdb(2453750.5, 0.892855139, -0.000201, &b1, &b2); + + vvd(b1, 2453750.5, 1e-6, "iauTttdb", "b1", status); + vvd(b2, 0.8928551366736111111, 1e-12, "iauTttdb", "b2", status); + viv(j, 0, "iauTttdb", "j", status); + +} + +static void t_ttut1(int *status) +/* +** - - - - - - - - +** t _ t t u t 1 +** - - - - - - - - +** +** Test iauTtut1 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauTtut1, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double u1, u2; + int j; + + + j = iauTtut1(2453750.5, 0.892855139, 64.8499, &u1, &u2); + + vvd(u1, 2453750.5, 1e-6, "iauTtut1", "u1", status); + vvd(u2, 0.8921045614537037037, 1e-12, "iauTtut1", "u2", status); + viv(j, 0, "iauTtut1", "j", status); + +} + +static void t_ut1tai(int *status) +/* +** - - - - - - - - - +** t _ u t 1 t a i +** - - - - - - - - - +** +** Test iauUt1tai function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauUt1tai, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double a1, a2; + int j; + + + j = iauUt1tai(2453750.5, 0.892104561, -32.6659, &a1, &a2); + + vvd(a1, 2453750.5, 1e-6, "iauUt1tai", "a1", status); + vvd(a2, 0.8924826385462962963, 1e-12, "iauUt1tai", "a2", status); + viv(j, 0, "iauUt1tai", "j", status); + +} + +static void t_ut1tt(int *status) +/* +** - - - - - - - - +** t _ u t 1 t t +** - - - - - - - - +** +** Test iauUt1tt function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauUt1tt, vvd, viv +** +** This revision: 2013 October 3 +*/ +{ + double t1, t2; + int j; + + + j = iauUt1tt(2453750.5, 0.892104561, 64.8499, &t1, &t2); + + vvd(t1, 2453750.5, 1e-6, "iauUt1tt", "t1", status); + vvd(t2, 0.8928551385462962963, 1e-12, "iauUt1tt", "t2", status); + viv(j, 0, "iauUt1tt", "j", status); + +} + +static void t_ut1utc(int *status) +/* +** - - - - - - - - - +** t _ u t 1 u t c +** - - - - - - - - - +** +** Test iauUt1utc function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauUt1utc, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double u1, u2; + int j; + + + j = iauUt1utc(2453750.5, 0.892104561, 0.3341, &u1, &u2); + + vvd(u1, 2453750.5, 1e-6, "iauUt1utc", "u1", status); + vvd(u2, 0.8921006941018518519, 1e-12, "iauUt1utc", "u2", status); + viv(j, 0, "iauUt1utc", "j", status); + +} + +static void t_utctai(int *status) +/* +** - - - - - - - - - +** t _ u t c t a i +** - - - - - - - - - +** +** Test iauUtctai function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauUtctai, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double u1, u2; + int j; + + + j = iauUtctai(2453750.5, 0.892100694, &u1, &u2); + + vvd(u1, 2453750.5, 1e-6, "iauUtctai", "u1", status); + vvd(u2, 0.8924826384444444444, 1e-12, "iauUtctai", "u2", status); + viv(j, 0, "iauUtctai", "j", status); + +} + +static void t_utcut1(int *status) +/* +** - - - - - - - - - +** t _ u t c u t 1 +** - - - - - - - - - +** +** Test iauUtcut1 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauUtcut1, vvd, viv +** +** This revision: 2013 August 7 +*/ +{ + double u1, u2; + int j; + + + j = iauUtcut1(2453750.5, 0.892100694, 0.3341, &u1, &u2); + + vvd(u1, 2453750.5, 1e-6, "iauUtcut1", "u1", status); + vvd(u2, 0.8921045608981481481, 1e-12, "iauUtcut1", "u2", status); + viv(j, 0, "iauUtcut1", "j", status); + +} + +static void t_xy06(int *status) +/* +** - - - - - - - +** t _ x y 0 6 +** - - - - - - - +** +** Test iauXy06 function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauXy06, vvd +** +** This revision: 2013 August 7 +*/ +{ + double x, y; + + + iauXy06(2400000.5, 53736.0, &x, &y); + + vvd(x, 0.5791308486706010975e-3, 1e-15, "iauXy06", "x", status); + vvd(y, 0.4020579816732958141e-4, 1e-16, "iauXy06", "y", status); + +} + +static void t_xys00a(int *status) +/* +** - - - - - - - - - +** t _ x y s 0 0 a +** - - - - - - - - - +** +** Test iauXys00a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauXys00a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double x, y, s; + + + iauXys00a(2400000.5, 53736.0, &x, &y, &s); + + vvd(x, 0.5791308472168152904e-3, 1e-14, "iauXys00a", "x", status); + vvd(y, 0.4020595661591500259e-4, 1e-15, "iauXys00a", "y", status); + vvd(s, -0.1220040848471549623e-7, 1e-18, "iauXys00a", "s", status); + +} + +static void t_xys00b(int *status) +/* +** - - - - - - - - - +** t _ x y s 0 0 b +** - - - - - - - - - +** +** Test iauXys00b function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauXys00b, vvd +** +** This revision: 2013 August 7 +*/ +{ + double x, y, s; + + + iauXys00b(2400000.5, 53736.0, &x, &y, &s); + + vvd(x, 0.5791301929950208873e-3, 1e-14, "iauXys00b", "x", status); + vvd(y, 0.4020553681373720832e-4, 1e-15, "iauXys00b", "y", status); + vvd(s, -0.1220027377285083189e-7, 1e-18, "iauXys00b", "s", status); + +} + +static void t_xys06a(int *status) +/* +** - - - - - - - - - +** t _ x y s 0 6 a +** - - - - - - - - - +** +** Test iauXys06a function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauXys06a, vvd +** +** This revision: 2013 August 7 +*/ +{ + double x, y, s; + + + iauXys06a(2400000.5, 53736.0, &x, &y, &s); + + vvd(x, 0.5791308482835292617e-3, 1e-14, "iauXys06a", "x", status); + vvd(y, 0.4020580099454020310e-4, 1e-15, "iauXys06a", "y", status); + vvd(s, -0.1220032294164579896e-7, 1e-18, "iauXys06a", "s", status); + +} + +static void t_zp(int *status) +/* +** - - - - - +** t _ z p +** - - - - - +** +** Test iauZp function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauZp, vvd +** +** This revision: 2013 August 7 +*/ +{ + double p[3]; + + + p[0] = 0.3; + p[1] = 1.2; + p[2] = -2.5; + + iauZp(p); + + vvd(p[0], 0.0, 0.0, "iauZp", "1", status); + vvd(p[1], 0.0, 0.0, "iauZp", "2", status); + vvd(p[2], 0.0, 0.0, "iauZp", "3", status); + +} + +static void t_zpv(int *status) +/* +** - - - - - - +** t _ z p v +** - - - - - - +** +** Test iauZpv function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauZpv, vvd +** +** This revision: 2013 August 7 +*/ +{ + double pv[2][3]; + + + pv[0][0] = 0.3; + pv[0][1] = 1.2; + pv[0][2] = -2.5; + + pv[1][0] = -0.5; + pv[1][1] = 3.1; + pv[1][2] = 0.9; + + iauZpv(pv); + + vvd(pv[0][0], 0.0, 0.0, "iauZpv", "p1", status); + vvd(pv[0][1], 0.0, 0.0, "iauZpv", "p2", status); + vvd(pv[0][2], 0.0, 0.0, "iauZpv", "p3", status); + + vvd(pv[1][0], 0.0, 0.0, "iauZpv", "v1", status); + vvd(pv[1][1], 0.0, 0.0, "iauZpv", "v2", status); + vvd(pv[1][2], 0.0, 0.0, "iauZpv", "v3", status); + +} + +static void t_zr(int *status) +/* +** - - - - - +** t _ z r +** - - - - - +** +** Test iauZr function. +** +** Returned: +** status int FALSE = success, TRUE = fail +** +** Called: iauZr, vvd +** +** This revision: 2013 August 7 +*/ +{ + double r[3][3]; + + + r[0][0] = 2.0; + r[1][0] = 3.0; + r[2][0] = 2.0; + + r[0][1] = 3.0; + r[1][1] = 2.0; + r[2][1] = 3.0; + + r[0][2] = 3.0; + r[1][2] = 4.0; + r[2][2] = 5.0; + + iauZr(r); + + vvd(r[0][0], 0.0, 0.0, "iauZr", "00", status); + vvd(r[1][0], 0.0, 0.0, "iauZr", "01", status); + vvd(r[2][0], 0.0, 0.0, "iauZr", "02", status); + + vvd(r[0][1], 0.0, 0.0, "iauZr", "10", status); + vvd(r[1][1], 0.0, 0.0, "iauZr", "11", status); + vvd(r[2][1], 0.0, 0.0, "iauZr", "12", status); + + vvd(r[0][2], 0.0, 0.0, "iauZr", "20", status); + vvd(r[1][2], 0.0, 0.0, "iauZr", "21", status); + vvd(r[2][2], 0.0, 0.0, "iauZr", "22", status); + +} + +int main(int argc, char *argv[]) +/* +** - - - - - +** m a i n +** - - - - - +** +** This revision: 2013 October 3 +*/ +{ + int status; + + +/* If any command-line argument, switch to verbose reporting. */ + if (argc > 1) { + verbose = 1; + argv[0][0] += 0; /* to avoid compiler warnings */ + } + +/* Preset the &status to FALSE = success. */ + status = 0; + +/* Test all of the SOFA functions. */ + t_a2af(&status); + t_a2tf(&status); + t_ab(&status); + t_af2a(&status); + t_anp(&status); + t_anpm(&status); + t_apcg(&status); + t_apcg13(&status); + t_apci(&status); + t_apci13(&status); + t_apco(&status); + t_apco13(&status); + t_apcs(&status); + t_apcs13(&status); + t_aper(&status); + t_aper13(&status); + t_apio(&status); + t_apio13(&status); + t_atci13(&status); + t_atciq(&status); + t_atciqn(&status); + t_atciqz(&status); + t_atco13(&status); + t_atic13(&status); + t_aticq(&status); + t_aticqn(&status); + t_atio13(&status); + t_atioq(&status); + t_atoc13(&status); + t_atoi13(&status); + t_atoiq(&status); + t_bi00(&status); + t_bp00(&status); + t_bp06(&status); + t_bpn2xy(&status); + t_c2i00a(&status); + t_c2i00b(&status); + t_c2i06a(&status); + t_c2ibpn(&status); + t_c2ixy(&status); + t_c2ixys(&status); + t_c2s(&status); + t_c2t00a(&status); + t_c2t00b(&status); + t_c2t06a(&status); + t_c2tcio(&status); + t_c2teqx(&status); + t_c2tpe(&status); + t_c2txy(&status); + t_cal2jd(&status); + t_cp(&status); + t_cpv(&status); + t_cr(&status); + t_d2dtf(&status); + t_d2tf(&status); + t_dat(&status); + t_dtdb(&status); + t_dtf2d(&status); + t_ee00(&status); + t_ee00a(&status); + t_ee00b(&status); + t_ee06a(&status); + t_eect00(&status); + t_eform(&status); + t_eo06a(&status); + t_eors(&status); + t_epb(&status); + t_epb2jd(&status); + t_epj(&status); + t_epj2jd(&status); + t_epv00(&status); + t_eqeq94(&status); + t_era00(&status); + t_fad03(&status); + t_fae03(&status); + t_faf03(&status); + t_faju03(&status); + t_fal03(&status); + t_falp03(&status); + t_fama03(&status); + t_fame03(&status); + t_fane03(&status); + t_faom03(&status); + t_fapa03(&status); + t_fasa03(&status); + t_faur03(&status); + t_fave03(&status); + t_fk52h(&status); + t_fk5hip(&status); + t_fk5hz(&status); + t_fw2m(&status); + t_fw2xy(&status); + t_g2icrs(&status); + t_gc2gd(&status); + t_gc2gde(&status); + t_gd2gc(&status); + t_gd2gce(&status); + t_gmst00(&status); + t_gmst06(&status); + t_gmst82(&status); + t_gst00a(&status); + t_gst00b(&status); + t_gst06(&status); + t_gst06a(&status); + t_gst94(&status); + t_h2fk5(&status); + t_hfk5z(&status); + t_icrs2g(&status); + t_ir(&status); + t_jd2cal(&status); + t_jdcalf(&status); + t_ld(&status); + t_ldn(&status); + t_ldsun(&status); + t_num00a(&status); + t_num00b(&status); + t_num06a(&status); + t_numat(&status); + t_nut00a(&status); + t_nut00b(&status); + t_nut06a(&status); + t_nut80(&status); + t_nutm80(&status); + t_obl06(&status); + t_obl80(&status); + t_p06e(&status); + t_p2pv(&status); + t_p2s(&status); + t_pap(&status); + t_pas(&status); + t_pb06(&status); + t_pdp(&status); + t_pfw06(&status); + t_plan94(&status); + t_pmat00(&status); + t_pmat06(&status); + t_pmat76(&status); + t_pm(&status); + t_pmp(&status); + t_pmpx(&status); + t_pmsafe(&status); + t_pn(&status); + t_pn00(&status); + t_pn00a(&status); + t_pn00b(&status); + t_pn06a(&status); + t_pn06(&status); + t_pnm00a(&status); + t_pnm00b(&status); + t_pnm06a(&status); + t_pnm80(&status); + t_pom00(&status); + t_ppp(&status); + t_ppsp(&status); + t_pr00(&status); + t_prec76(&status); + t_pv2p(&status); + t_pv2s(&status); + t_pvdpv(&status); + t_pvm(&status); + t_pvmpv(&status); + t_pvppv(&status); + t_pvstar(&status); + t_pvtob(&status); + t_pvu(&status); + t_pvup(&status); + t_pvxpv(&status); + t_pxp(&status); + t_refco(&status); + t_rm2v(&status); + t_rv2m(&status); + t_rx(&status); + t_rxp(&status); + t_rxpv(&status); + t_rxr(&status); + t_ry(&status); + t_rz(&status); + t_s00a(&status); + t_s00b(&status); + t_s00(&status); + t_s06a(&status); + t_s06(&status); + t_s2c(&status); + t_s2p(&status); + t_s2pv(&status); + t_s2xpv(&status); + t_sepp(&status); + t_seps(&status); + t_sp00(&status); + t_starpm(&status); + t_starpv(&status); + t_sxp(&status); + t_sxpv(&status); + t_taitt(&status); + t_taiut1(&status); + t_taiutc(&status); + t_tcbtdb(&status); + t_tcgtt(&status); + t_tdbtcb(&status); + t_tdbtt(&status); + t_tf2a(&status); + t_tf2d(&status); + t_tr(&status); + t_trxp(&status); + t_trxpv(&status); + t_tttai(&status); + t_tttcg(&status); + t_tttdb(&status); + t_ttut1(&status); + t_ut1tai(&status); + t_ut1tt(&status) ; + t_ut1utc(&status); + t_utctai(&status); + t_utcut1(&status); + t_xy06(&status); + t_xys00a(&status); + t_xys00b(&status); + t_xys06a(&status); + t_zp(&status); + t_zpv(&status); + t_zr(&status); + +/* Report, set up an appropriate exit status, and finish. */ + if (status) { + printf("t_sofa_c validation failed!\n"); + } else { + printf("t_sofa_c validation successful\n"); + } + return status; +} Index: /trunk/FACT++/sofa/src/taitt.c =================================================================== --- /trunk/FACT++/sofa/src/taitt.c (revision 18346) +++ /trunk/FACT++/sofa/src/taitt.c (revision 18346) @@ -0,0 +1,159 @@ +#include "sofa.h" + +int iauTaitt(double tai1, double tai2, double *tt1, double *tt2) +/* +** - - - - - - - - - +** i a u T a i t t +** - - - - - - - - - +** +** Time scale transformation: International Atomic Time, TAI, to +** Terrestrial Time, TT. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tai1,tai2 double TAI as a 2-part Julian Date +** +** Returned: +** tt1,tt2 double TT as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Note: +** +** tai1+tai2 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where tai1 is the Julian +** Day Number and tai2 is the fraction of a day. The returned +** tt1,tt2 follow suit. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + +/* TT minus TAI (days). */ + static const double dtat = TTMTAI/DAYSEC; + +/* Result, safeguarding precision. */ + if ( tai1 > tai2 ) { + *tt1 = tai1; + *tt2 = tai2 + dtat; + } else { + *tt1 = tai1 + dtat; + *tt2 = tai2; + } + +/* Status (always OK). */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/taiut1.c =================================================================== --- /trunk/FACT++/sofa/src/taiut1.c (revision 18346) +++ /trunk/FACT++/sofa/src/taiut1.c (revision 18346) @@ -0,0 +1,161 @@ +#include "sofa.h" + +int iauTaiut1(double tai1, double tai2, double dta, + double *ut11, double *ut12) +/* +** - - - - - - - - - - +** i a u T a i u t 1 +** - - - - - - - - - - +** +** Time scale transformation: International Atomic Time, TAI, to +** Universal Time, UT1. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tai1,tai2 double TAI as a 2-part Julian Date +** dta double UT1-TAI in seconds +** +** Returned: +** ut11,ut12 double UT1 as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) tai1+tai2 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where tai1 is the Julian +** Day Number and tai2 is the fraction of a day. The returned +** UT11,UT12 follow suit. +** +** 2) The argument dta, i.e. UT1-TAI, is an observed quantity, and is +** available from IERS tabulations. +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +** +*/ +{ + double dtad; + +/* Result, safeguarding precision. */ + dtad = dta / DAYSEC; + if ( tai1 > tai2 ) { + *ut11 = tai1; + *ut12 = tai2 + dtad; + } else { + *ut11 = tai1 + dtad; + *ut12 = tai2; + } + +/* Status (always OK). */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/taiutc.c =================================================================== --- /trunk/FACT++/sofa/src/taiutc.c (revision 18346) +++ /trunk/FACT++/sofa/src/taiutc.c (revision 18346) @@ -0,0 +1,208 @@ +#include "sofa.h" + +int iauTaiutc(double tai1, double tai2, double *utc1, double *utc2) +/* +** - - - - - - - - - - +** i a u T a i u t c +** - - - - - - - - - - +** +** Time scale transformation: International Atomic Time, TAI, to +** Coordinated Universal Time, UTC. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tai1,tai2 double TAI as a 2-part Julian Date (Note 1) +** +** Returned: +** utc1,utc2 double UTC as a 2-part quasi Julian Date (Notes 1-3) +** +** Returned (function value): +** int status: +1 = dubious year (Note 4) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) tai1+tai2 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where tai1 is the Julian +** Day Number and tai2 is the fraction of a day. The returned utc1 +** and utc2 form an analogous pair, except that a special convention +** is used, to deal with the problem of leap seconds - see the next +** note. +** +** 2) JD cannot unambiguously represent UTC during a leap second unless +** special measures are taken. The convention in the present +** function is that the JD day represents UTC days whether the +** length is 86399, 86400 or 86401 SI seconds. In the 1960-1972 era +** there were smaller jumps (in either direction) each time the +** linear UTC(TAI) expression was changed, and these "mini-leaps" +** are also included in the SOFA convention. +** +** 3) The function iauD2dtf can be used to transform the UTC quasi-JD +** into calendar date and clock time, including UTC leap second +** handling. +** +** 4) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the future +** to be trusted. See iauDat for further details. +** +** Called: +** iauUtctai UTC to TAI +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +** This revision: 2013 September 12 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int big1; + int i, j; + double a1, a2, u1, u2, g1, g2; + +/* Put the two parts of the TAI into big-first order. */ + big1 = ( tai1 >= tai2 ); + if ( big1 ) { + a1 = tai1; + a2 = tai2; + } else { + a1 = tai2; + a2 = tai1; + } + +/* Initial guess for UTC. */ + u1 = a1; + u2 = a2; + +/* Iterate (though in most cases just once is enough). */ + for ( i = 0; i < 3; i++ ) { + + /* Guessed UTC to TAI. */ + j = iauUtctai(u1, u2, &g1, &g2); + if ( j < 0 ) return j; + + /* Adjust guessed UTC. */ + u2 += a1 - g1; + u2 += a2 - g2; + } + +/* Return the UTC result, preserving the TAI order. */ + if ( big1 ) { + *utc1 = u1; + *utc2 = u2; + } else { + *utc1 = u2; + *utc2 = u1; + } + +/* Status. */ + return j; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/tcbtdb.c =================================================================== --- /trunk/FACT++/sofa/src/tcbtdb.c (revision 18346) +++ /trunk/FACT++/sofa/src/tcbtdb.c (revision 18346) @@ -0,0 +1,181 @@ +#include "sofa.h" + +int iauTcbtdb(double tcb1, double tcb2, double *tdb1, double *tdb2) +/* +** - - - - - - - - - - +** i a u T c b t d b +** - - - - - - - - - - +** +** Time scale transformation: Barycentric Coordinate Time, TCB, to +** Barycentric Dynamical Time, TDB. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tcb1,tcb2 double TCB as a 2-part Julian Date +** +** Returned: +** tdb1,tdb2 double TDB as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) tcb1+tcb2 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where tcb1 is the Julian +** Day Number and tcb2 is the fraction of a day. The returned +** tdb1,tdb2 follow suit. +** +** 2) The 2006 IAU General Assembly introduced a conventional linear +** transformation between TDB and TCB. This transformation +** compensates for the drift between TCB and terrestrial time TT, +** and keeps TDB approximately centered on TT. Because the +** relationship between TT and TCB depends on the adopted solar +** system ephemeris, the degree of alignment between TDB and TT over +** long intervals will vary according to which ephemeris is used. +** Former definitions of TDB attempted to avoid this problem by +** stipulating that TDB and TT should differ only by periodic +** effects. This is a good description of the nature of the +** relationship but eluded precise mathematical formulation. The +** conventional linear relationship adopted in 2006 sidestepped +** these difficulties whilst delivering a TDB that in practice was +** consistent with values before that date. +** +** 3) TDB is essentially the same as Teph, the time argument for the +** JPL solar system ephemerides. +** +** Reference: +** +** IAU 2006 Resolution B3 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + +/* 1977 Jan 1 00:00:32.184 TT, as two-part JD */ + static const double t77td = DJM0 + DJM77; + static const double t77tf = TTMTAI/DAYSEC; + +/* TDB (days) at TAI 1977 Jan 1.0 */ + static const double tdb0 = TDB0/DAYSEC; + + double d; + +/* Result, safeguarding precision. */ + if ( tcb1 > tcb2 ) { + d = tcb1 - t77td; + *tdb1 = tcb1; + *tdb2 = tcb2 + tdb0 - ( d + ( tcb2 - t77tf ) ) * ELB; + } else { + d = tcb2 - t77td; + *tdb1 = tcb1 + tdb0 - ( d + ( tcb1 - t77tf ) ) * ELB; + *tdb2 = tcb2; + } + +/* Status (always OK). */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/tcgtt.c =================================================================== --- /trunk/FACT++/sofa/src/tcgtt.c (revision 18346) +++ /trunk/FACT++/sofa/src/tcgtt.c (revision 18346) @@ -0,0 +1,158 @@ +#include "sofa.h" + +int iauTcgtt(double tcg1, double tcg2, double *tt1, double *tt2) +/* +** - - - - - - - - - +** i a u T c g t t +** - - - - - - - - - +** +** Time scale transformation: Geocentric Coordinate Time, TCG, to +** Terrestrial Time, TT. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tcg1,tcg2 double TCG as a 2-part Julian Date +** +** Returned: +** tt1,tt2 double TT as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Note: +** +** tcg1+tcg2 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where tcg1 is the Julian +** Day Number and tcg22 is the fraction of a day. The returned +** tt1,tt2 follow suit. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003),. +** IERS Technical Note No. 32, BKG (2004) +** +** IAU 2000 Resolution B1.9 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + +/* 1977 Jan 1 00:00:32.184 TT, as MJD */ + static const double t77t = DJM77 + TTMTAI/DAYSEC; + +/* Result, safeguarding precision. */ + if ( tcg1 > tcg2 ) { + *tt1 = tcg1; + *tt2 = tcg2 - ( ( tcg1 - DJM0 ) + ( tcg2 - t77t ) ) * ELG; + } else { + *tt1 = tcg1 - ( ( tcg2 - DJM0 ) + ( tcg1 - t77t ) ) * ELG; + *tt2 = tcg2; + } + +/* OK status. */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/tdbtcb.c =================================================================== --- /trunk/FACT++/sofa/src/tdbtcb.c (revision 18346) +++ /trunk/FACT++/sofa/src/tdbtcb.c (revision 18346) @@ -0,0 +1,186 @@ +#include "sofa.h" + +int iauTdbtcb(double tdb1, double tdb2, double *tcb1, double *tcb2) +/* +** - - - - - - - - - - +** i a u T d b t c b +** - - - - - - - - - - +** +** Time scale transformation: Barycentric Dynamical Time, TDB, to +** Barycentric Coordinate Time, TCB. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tdb1,tdb2 double TDB as a 2-part Julian Date +** +** Returned: +** tcb1,tcb2 double TCB as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) tdb1+tdb2 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where tdb1 is the Julian +** Day Number and tdb2 is the fraction of a day. The returned +** tcb1,tcb2 follow suit. +** +** 2) The 2006 IAU General Assembly introduced a conventional linear +** transformation between TDB and TCB. This transformation +** compensates for the drift between TCB and terrestrial time TT, +** and keeps TDB approximately centered on TT. Because the +** relationship between TT and TCB depends on the adopted solar +** system ephemeris, the degree of alignment between TDB and TT over +** long intervals will vary according to which ephemeris is used. +** Former definitions of TDB attempted to avoid this problem by +** stipulating that TDB and TT should differ only by periodic +** effects. This is a good description of the nature of the +** relationship but eluded precise mathematical formulation. The +** conventional linear relationship adopted in 2006 sidestepped +** these difficulties whilst delivering a TDB that in practice was +** consistent with values before that date. +** +** 3) TDB is essentially the same as Teph, the time argument for the +** JPL solar system ephemerides. +** +** Reference: +** +** IAU 2006 Resolution B3 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + +/* 1977 Jan 1 00:00:32.184 TT, as two-part JD */ + static const double t77td = DJM0 + DJM77; + static const double t77tf = TTMTAI/DAYSEC; + +/* TDB (days) at TAI 1977 Jan 1.0 */ + static const double tdb0 = TDB0/DAYSEC; + +/* TDB to TCB rate */ + static const double elbb = ELB/(1.0-ELB); + + double d, f; + +/* Result, preserving date format but safeguarding precision. */ + if ( tdb1 > tdb2 ) { + d = t77td - tdb1; + f = tdb2 - tdb0; + *tcb1 = tdb1; + *tcb2 = f - ( d - ( f - t77tf ) ) * elbb; + } else { + d = t77td - tdb2; + f = tdb1 - tdb0; + *tcb1 = f + ( d - ( f - t77tf ) ) * elbb; + *tcb2 = tdb2; + } + +/* Status (always OK). */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/tdbtt.c =================================================================== --- /trunk/FACT++/sofa/src/tdbtt.c (revision 18346) +++ /trunk/FACT++/sofa/src/tdbtt.c (revision 18346) @@ -0,0 +1,171 @@ +#include "sofa.h" + +int iauTdbtt(double tdb1, double tdb2, double dtr, + double *tt1, double *tt2 ) +/* +** - - - - - - - - - +** i a u T d b t t +** - - - - - - - - - +** +** Time scale transformation: Barycentric Dynamical Time, TDB, to +** Terrestrial Time, TT. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tdb1,tdb2 double TDB as a 2-part Julian Date +** dtr double TDB-TT in seconds +** +** Returned: +** tt1,tt2 double TT as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) tdb1+tdb2 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where tdb1 is the Julian +** Day Number and tdb2 is the fraction of a day. The returned +** tt1,tt2 follow suit. +** +** 2) The argument dtr represents the quasi-periodic component of the +** GR transformation between TT and TCB. It is dependent upon the +** adopted solar-system ephemeris, and can be obtained by numerical +** integration, by interrogating a precomputed time ephemeris or by +** evaluating a model such as that implemented in the SOFA function +** iauDtdb. The quantity is dominated by an annual term of 1.7 ms +** amplitude. +** +** 3) TDB is essentially the same as Teph, the time argument for the +** JPL solar system ephemerides. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** IAU 2006 Resolution 3 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +** +*/ +{ + double dtrd; + +/* Result, safeguarding precision. */ + dtrd = dtr / DAYSEC; + if ( tdb1 > tdb2 ) { + *tt1 = tdb1; + *tt2 = tdb2 - dtrd; + } else { + *tt1 = tdb1 - dtrd; + *tt2 = tdb2; + } + +/* Status (always OK). */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/tf2a.c =================================================================== --- /trunk/FACT++/sofa/src/tf2a.c (revision 18346) +++ /trunk/FACT++/sofa/src/tf2a.c (revision 18346) @@ -0,0 +1,157 @@ +#include "sofa.h" +#include + +int iauTf2a(char s, int ihour, int imin, double sec, double *rad) +/* +** - - - - - - - - +** i a u T f 2 a +** - - - - - - - - +** +** Convert hours, minutes, seconds to radians. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** s char sign: '-' = negative, otherwise positive +** ihour int hours +** imin int minutes +** sec double seconds +** +** Returned: +** rad double angle in radians +** +** Returned (function value): +** int status: 0 = OK +** 1 = ihour outside range 0-23 +** 2 = imin outside range 0-59 +** 3 = sec outside range 0-59.999... +** +** Notes: +** +** 1) The result is computed even if any of the range checks fail. +** +** 2) Negative ihour, imin and/or sec produce a warning status, but +** the absolute value is used in the conversion. +** +** 3) If there are multiple errors, the status value reflects only the +** first, the smallest taking precedence. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + +/* Compute the interval. */ + *rad = ( s == '-' ? -1.0 : 1.0 ) * + ( 60.0 * ( 60.0 * ( (double) abs(ihour) ) + + ( (double) abs(imin) ) ) + + fabs(sec) ) * DS2R; + +/* Validate arguments and return status. */ + if ( ihour < 0 || ihour > 23 ) return 1; + if ( imin < 0 || imin > 59 ) return 2; + if ( sec < 0.0 || sec >= 60.0 ) return 3; + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/tf2d.c =================================================================== --- /trunk/FACT++/sofa/src/tf2d.c (revision 18346) +++ /trunk/FACT++/sofa/src/tf2d.c (revision 18346) @@ -0,0 +1,157 @@ +#include "sofa.h" +#include + +int iauTf2d(char s, int ihour, int imin, double sec, double *days) +/* +** - - - - - - - - +** i a u T f 2 d +** - - - - - - - - +** +** Convert hours, minutes, seconds to days. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** s char sign: '-' = negative, otherwise positive +** ihour int hours +** imin int minutes +** sec double seconds +** +** Returned: +** days double interval in days +** +** Returned (function value): +** int status: 0 = OK +** 1 = ihour outside range 0-23 +** 2 = imin outside range 0-59 +** 3 = sec outside range 0-59.999... +** +** Notes: +** +** 1) The result is computed even if any of the range checks fail. +** +** 2) Negative ihour, imin and/or sec produce a warning status, but +** the absolute value is used in the conversion. +** +** 3) If there are multiple errors, the status value reflects only the +** first, the smallest taking precedence. +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + +/* Compute the interval. */ + *days = ( s == '-' ? -1.0 : 1.0 ) * + ( 60.0 * ( 60.0 * ( (double) abs(ihour) ) + + ( (double) abs(imin) ) ) + + fabs(sec) ) / DAYSEC; + +/* Validate arguments and return status. */ + if ( ihour < 0 || ihour > 23 ) return 1; + if ( imin < 0 || imin > 59 ) return 2; + if ( sec < 0.0 || sec >= 60.0 ) return 3; + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/tr.c =================================================================== --- /trunk/FACT++/sofa/src/tr.c (revision 18346) +++ /trunk/FACT++/sofa/src/tr.c (revision 18346) @@ -0,0 +1,142 @@ +#include "sofa.h" + +void iauTr(double r[3][3], double rt[3][3]) +/* +** - - - - - - +** i a u T r +** - - - - - - +** +** Transpose an r-matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** r double[3][3] r-matrix +** +** Returned: +** rt double[3][3] transpose +** +** Note: +** It is permissible for r and rt to be the same array. +** +** Called: +** iauCr copy r-matrix +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double wm[3][3]; + int i, j; + + for (i = 0; i < 3; i++) { + for (j = 0; j < 3; j++) { + wm[i][j] = r[j][i]; + } + } + iauCr(wm, rt); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/trxp.c =================================================================== --- /trunk/FACT++/sofa/src/trxp.c (revision 18346) +++ /trunk/FACT++/sofa/src/trxp.c (revision 18346) @@ -0,0 +1,142 @@ +#include "sofa.h" + +void iauTrxp(double r[3][3], double p[3], double trp[3]) +/* +** - - - - - - - - +** i a u T r x p +** - - - - - - - - +** +** Multiply a p-vector by the transpose of an r-matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** r double[3][3] r-matrix +** p double[3] p-vector +** +** Returned: +** trp double[3] r * p +** +** Note: +** It is permissible for p and trp to be the same array. +** +** Called: +** iauTr transpose r-matrix +** iauRxp product of r-matrix and p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double tr[3][3]; + +/* Transpose of matrix r. */ + iauTr(r, tr); + +/* Matrix tr * vector p -> vector trp. */ + iauRxp(tr, p, trp); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/trxpv.c =================================================================== --- /trunk/FACT++/sofa/src/trxpv.c (revision 18346) +++ /trunk/FACT++/sofa/src/trxpv.c (revision 18346) @@ -0,0 +1,142 @@ +#include "sofa.h" + +void iauTrxpv(double r[3][3], double pv[2][3], double trpv[2][3]) +/* +** - - - - - - - - - +** i a u T r x p v +** - - - - - - - - - +** +** Multiply a pv-vector by the transpose of an r-matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Given: +** r double[3][3] r-matrix +** pv double[2][3] pv-vector +** +** Returned: +** trpv double[2][3] r * pv +** +** Note: +** It is permissible for pv and trpv to be the same array. +** +** Called: +** iauTr transpose r-matrix +** iauRxpv product of r-matrix and pv-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double tr[3][3]; + +/* Transpose of matrix r. */ + iauTr(r, tr); + +/* Matrix tr * vector pv -> vector trpv. */ + iauRxpv(tr, pv, trpv); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/tttai.c =================================================================== --- /trunk/FACT++/sofa/src/tttai.c (revision 18346) +++ /trunk/FACT++/sofa/src/tttai.c (revision 18346) @@ -0,0 +1,159 @@ +#include "sofa.h" + +int iauTttai(double tt1, double tt2, double *tai1, double *tai2) +/* +** - - - - - - - - - +** i a u T t t a i +** - - - - - - - - - +** +** Time scale transformation: Terrestrial Time, TT, to International +** Atomic Time, TAI. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tt1,tt2 double TT as a 2-part Julian Date +** +** Returned: +** tai1,tai2 double TAI as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Note: +** +** tt1+tt2 is Julian Date, apportioned in any convenient way between +** the two arguments, for example where tt1 is the Julian Day Number +** and tt2 is the fraction of a day. The returned tai1,tai2 follow +** suit. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + +/* TT minus TAI (days). */ + static const double dtat = TTMTAI/DAYSEC; + +/* Result, safeguarding precision. */ + if ( tt1 > tt2 ) { + *tai1 = tt1; + *tai2 = tt2 - dtat; + } else { + *tai1 = tt1 - dtat; + *tai2 = tt2; + } + +/* Status (always OK). */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/tttcg.c =================================================================== --- /trunk/FACT++/sofa/src/tttcg.c (revision 18346) +++ /trunk/FACT++/sofa/src/tttcg.c (revision 18346) @@ -0,0 +1,161 @@ +#include "sofa.h" + +int iauTttcg(double tt1, double tt2, double *tcg1, double *tcg2) +/* +** - - - - - - - - - +** i a u T t t c g +** - - - - - - - - - +** +** Time scale transformation: Terrestrial Time, TT, to Geocentric +** Coordinate Time, TCG. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tt1,tt2 double TT as a 2-part Julian Date +** +** Returned: +** tcg1,tcg2 double TCG as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Note: +** +** tt1+tt2 is Julian Date, apportioned in any convenient way between +** the two arguments, for example where tt1 is the Julian Day Number +** and tt2 is the fraction of a day. The returned tcg1,tcg2 follow +** suit. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** IAU 2000 Resolution B1.9 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + +/* 1977 Jan 1 00:00:32.184 TT, as MJD */ + static const double t77t = DJM77 + TTMTAI/DAYSEC; + +/* TT to TCG rate */ + static const double elgg = ELG/(1.0-ELG); + +/* Result, safeguarding precision. */ + if ( tt1 > tt2 ) { + *tcg1 = tt1; + *tcg2 = tt2 + ( ( tt1 - DJM0 ) + ( tt2 - t77t ) ) * elgg; + } else { + *tcg1 = tt1 + ( ( tt2 - DJM0 ) + ( tt1 - t77t ) ) * elgg; + *tcg2 = tt2; + } + +/* Status (always OK). */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/tttdb.c =================================================================== --- /trunk/FACT++/sofa/src/tttdb.c (revision 18346) +++ /trunk/FACT++/sofa/src/tttdb.c (revision 18346) @@ -0,0 +1,170 @@ +#include "sofa.h" + +int iauTttdb(double tt1, double tt2, double dtr, + double *tdb1, double *tdb2) +/* +** - - - - - - - - - +** i a u T t t d b +** - - - - - - - - - +** +** Time scale transformation: Terrestrial Time, TT, to Barycentric +** Dynamical Time, TDB. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tt1,tt2 double TT as a 2-part Julian Date +** dtr double TDB-TT in seconds +** +** Returned: +** tdb1,tdb2 double TDB as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) tt1+tt2 is Julian Date, apportioned in any convenient way between +** the two arguments, for example where tt1 is the Julian Day Number +** and tt2 is the fraction of a day. The returned tdb1,tdb2 follow +** suit. +** +** 2) The argument dtr represents the quasi-periodic component of the +** GR transformation between TT and TCB. It is dependent upon the +** adopted solar-system ephemeris, and can be obtained by numerical +** integration, by interrogating a precomputed time ephemeris or by +** evaluating a model such as that implemented in the SOFA function +** iauDtdb. The quantity is dominated by an annual term of 1.7 ms +** amplitude. +** +** 3) TDB is essentially the same as Teph, the time argument for the JPL +** solar system ephemerides. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** IAU 2006 Resolution 3 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double dtrd; + +/* Result, safeguarding precision. */ + dtrd = dtr / DAYSEC; + if ( tt1 > tt2 ) { + *tdb1 = tt1; + *tdb2 = tt2 + dtrd; + } else { + *tdb1 = tt1 + dtrd; + *tdb2 = tt2; + } + +/* Status (always OK). */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/ttut1.c =================================================================== --- /trunk/FACT++/sofa/src/ttut1.c (revision 18346) +++ /trunk/FACT++/sofa/src/ttut1.c (revision 18346) @@ -0,0 +1,159 @@ +#include "sofa.h" + +int iauTtut1(double tt1, double tt2, double dt, + double *ut11, double *ut12) +/* +** - - - - - - - - - +** i a u T t u t 1 +** - - - - - - - - - +** +** Time scale transformation: Terrestrial Time, TT, to Universal Time, +** UT1. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** tt1,tt2 double TT as a 2-part Julian Date +** dt double TT-UT1 in seconds +** +** Returned: +** ut11,ut12 double UT1 as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) tt1+tt2 is Julian Date, apportioned in any convenient way between +** the two arguments, for example where tt1 is the Julian Day Number +** and tt2 is the fraction of a day. The returned ut11,ut12 follow +** suit. +** +** 2) The argument dt is classical Delta T. +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double dtd; + +/* Result, safeguarding precision. */ + dtd = dt / DAYSEC; + if ( tt1 > tt2 ) { + *ut11 = tt1; + *ut12 = tt2 - dtd; + } else { + *ut11 = tt1 - dtd; + *ut12 = tt2; + } + +/* Status (always OK). */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/ut1tai.c =================================================================== --- /trunk/FACT++/sofa/src/ut1tai.c (revision 18346) +++ /trunk/FACT++/sofa/src/ut1tai.c (revision 18346) @@ -0,0 +1,160 @@ +#include "sofa.h" + +int iauUt1tai(double ut11, double ut12, double dta, + double *tai1, double *tai2) +/* +** - - - - - - - - - - +** i a u U t 1 t a i +** - - - - - - - - - - +** +** Time scale transformation: Universal Time, UT1, to International +** Atomic Time, TAI. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** ut11,ut12 double UT1 as a 2-part Julian Date +** dta double UT1-TAI in seconds +** +** Returned: +** tai1,tai2 double TAI as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) ut11+ut12 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where ut11 is the Julian +** Day Number and ut12 is the fraction of a day. The returned +** tai1,tai2 follow suit. +** +** 2) The argument dta, i.e. UT1-TAI, is an observed quantity, and is +** available from IERS tabulations. +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double dtad; + +/* Result, safeguarding precision. */ + dtad = dta / DAYSEC; + if ( ut11 > ut12 ) { + *tai1 = ut11; + *tai2 = ut12 - dtad; + } else { + *tai1 = ut11 - dtad; + *tai2 = ut12; + } + +/* Status (always OK). */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/ut1tt.c =================================================================== --- /trunk/FACT++/sofa/src/ut1tt.c (revision 18346) +++ /trunk/FACT++/sofa/src/ut1tt.c (revision 18346) @@ -0,0 +1,159 @@ +#include "sofa.h" + +int iauUt1tt(double ut11, double ut12, double dt, + double *tt1, double *tt2) +/* +** - - - - - - - - - +** i a u U t 1 t t +** - - - - - - - - - +** +** Time scale transformation: Universal Time, UT1, to Terrestrial +** Time, TT. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** ut11,ut12 double UT1 as a 2-part Julian Date +** dt double TT-UT1 in seconds +** +** Returned: +** tt1,tt2 double TT as a 2-part Julian Date +** +** Returned (function value): +** int status: 0 = OK +** +** Notes: +** +** 1) ut11+ut12 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where ut11 is the Julian +** Day Number and ut12 is the fraction of a day. The returned +** tt1,tt2 follow suit. +** +** 2) The argument dt is classical Delta T. +** +** Reference: +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double dtd; + +/* Result, safeguarding precision. */ + dtd = dt / DAYSEC; + if ( ut11 > ut12 ) { + *tt1 = ut11; + *tt2 = ut12 + dtd; + } else { + *tt1 = ut11 + dtd; + *tt2 = ut12; + } + +/* Status (always OK). */ + return 0; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/ut1utc.c =================================================================== --- /trunk/FACT++/sofa/src/ut1utc.c (revision 18346) +++ /trunk/FACT++/sofa/src/ut1utc.c (revision 18346) @@ -0,0 +1,242 @@ +#include "sofa.h" + +int iauUt1utc(double ut11, double ut12, double dut1, + double *utc1, double *utc2) +/* +** - - - - - - - - - - +** i a u U t 1 u t c +** - - - - - - - - - - +** +** Time scale transformation: Universal Time, UT1, to Coordinated +** Universal Time, UTC. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** ut11,ut12 double UT1 as a 2-part Julian Date (Note 1) +** dut1 double Delta UT1: UT1-UTC in seconds (Note 2) +** +** Returned: +** utc1,utc2 double UTC as a 2-part quasi Julian Date (Notes 3,4) +** +** Returned (function value): +** int status: +1 = dubious year (Note 5) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) ut11+ut12 is Julian Date, apportioned in any convenient way +** between the two arguments, for example where ut11 is the Julian +** Day Number and ut12 is the fraction of a day. The returned utc1 +** and utc2 form an analogous pair, except that a special convention +** is used, to deal with the problem of leap seconds - see Note 3. +** +** 2) Delta UT1 can be obtained from tabulations provided by the +** International Earth Rotation and Reference Systems Service. The +** value changes abruptly by 1s at a leap second; however, close to +** a leap second the algorithm used here is tolerant of the "wrong" +** choice of value being made. +** +** 3) JD cannot unambiguously represent UTC during a leap second unless +** special measures are taken. The convention in the present +** function is that the returned quasi JD day UTC1+UTC2 represents +** UTC days whether the length is 86399, 86400 or 86401 SI seconds. +** +** 4) The function iauD2dtf can be used to transform the UTC quasi-JD +** into calendar date and clock time, including UTC leap second +** handling. +** +** 5) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the future +** to be trusted. See iauDat for further details. +** +** Called: +** iauJd2cal JD to Gregorian calendar +** iauDat delta(AT) = TAI-UTC +** iauCal2jd Gregorian calendar to JD +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int big1; + int i, iy, im, id, js; + double duts, u1, u2, d1, dats1, d2, fd, dats2, ddats, us1, us2, du; + +/* UT1-UTC in seconds. */ + duts = dut1; + +/* Put the two parts of the UT1 into big-first order. */ + big1 = ( ut11 >= ut12 ); + if ( big1 ) { + u1 = ut11; + u2 = ut12; + } else { + u1 = ut12; + u2 = ut11; + } + +/* See if the UT1 can possibly be in a leap-second day. */ + d1 = u1; + dats1 = 0; + for ( i = -1; i <= 3; i++ ) { + d2 = u2 + (double) i; + if ( iauJd2cal(d1, d2, &iy, &im, &id, &fd) ) return -1; + js = iauDat(iy, im, id, 0.0, &dats2); + if ( js < 0 ) return -1; + if ( i == - 1 ) dats1 = dats2; + ddats = dats2 - dats1; + if ( fabs(ddats) >= 0.5 ) { + + /* Yes, leap second nearby: ensure UT1-UTC is "before" value. */ + if ( ddats * duts >= 0 ) duts -= ddats; + + /* UT1 for the start of the UTC day that ends in a leap. */ + if ( iauCal2jd(iy, im, id, &d1, &d2) ) return -1; + us1 = d1; + us2 = d2 - 1.0 + duts/DAYSEC; + + /* Is the UT1 after this point? */ + du = u1 - us1; + du += u2 - us2; + if ( du > 0 ) { + + /* Yes: fraction of the current UTC day that has elapsed. */ + fd = du * DAYSEC / ( DAYSEC + ddats ); + + /* Ramp UT1-UTC to bring about SOFA's JD(UTC) convention. */ + duts += ddats * ( fd <= 1.0 ? fd : 1.0 ); + } + + /* Done. */ + break; + } + dats1 = dats2; + } + +/* Subtract the (possibly adjusted) UT1-UTC from UT1 to give UTC. */ + u2 -= duts / DAYSEC; + +/* Result, safeguarding precision. */ + if ( big1 ) { + *utc1 = u1; + *utc2 = u2; + } else { + *utc1 = u2; + *utc2 = u1; + } + +/* Status. */ + return js; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/utctai.c =================================================================== --- /trunk/FACT++/sofa/src/utctai.c (revision 18346) +++ /trunk/FACT++/sofa/src/utctai.c (revision 18346) @@ -0,0 +1,227 @@ +#include "sofa.h" + +int iauUtctai(double utc1, double utc2, double *tai1, double *tai2) +/* +** - - - - - - - - - - +** i a u U t c t a i +** - - - - - - - - - - +** +** Time scale transformation: Coordinated Universal Time, UTC, to +** International Atomic Time, TAI. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** utc1,utc2 double UTC as a 2-part quasi Julian Date (Notes 1-4) +** +** Returned: +** tai1,tai2 double TAI as a 2-part Julian Date (Note 5) +** +** Returned (function value): +** int status: +1 = dubious year (Note 3) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** 2) JD cannot unambiguously represent UTC during a leap second unless +** special measures are taken. The convention in the present +** function is that the JD day represents UTC days whether the +** length is 86399, 86400 or 86401 SI seconds. In the 1960-1972 era +** there were smaller jumps (in either direction) each time the +** linear UTC(TAI) expression was changed, and these "mini-leaps" +** are also included in the SOFA convention. +** +** 3) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the future +** to be trusted. See iauDat for further details. +** +** 4) The function iauDtf2d converts from calendar date and time of day +** into 2-part Julian Date, and in the case of UTC implements the +** leap-second-ambiguity convention described above. +** +** 5) The returned TAI1,TAI2 are such that their sum is the TAI Julian +** Date. +** +** Called: +** iauJd2cal JD to Gregorian calendar +** iauDat delta(AT) = TAI-UTC +** iauCal2jd Gregorian calendar to JD +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +** This revision: 2013 July 26 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +** +*/ +{ + int big1; + int iy, im, id, j, iyt, imt, idt; + double u1, u2, fd, dat0, dat12, w, dat24, dlod, dleap, z1, z2, a2; + +/* Put the two parts of the UTC into big-first order. */ + big1 = ( utc1 >= utc2 ); + if ( big1 ) { + u1 = utc1; + u2 = utc2; + } else { + u1 = utc2; + u2 = utc1; + } + +/* Get TAI-UTC at 0h today. */ + j = iauJd2cal(u1, u2, &iy, &im, &id, &fd); + if ( j ) return j; + j = iauDat(iy, im, id, 0.0, &dat0); + if ( j < 0 ) return j; + +/* Get TAI-UTC at 12h today (to detect drift). */ + j = iauDat(iy, im, id, 0.5, &dat12); + if ( j < 0 ) return j; + +/* Get TAI-UTC at 0h tomorrow (to detect jumps). */ + j = iauJd2cal(u1+1.5, u2-fd, &iyt, &imt, &idt, &w); + if ( j ) return j; + j = iauDat(iyt, imt, idt, 0.0, &dat24); + if ( j < 0 ) return j; + +/* Separate TAI-UTC change into per-day (DLOD) and any jump (DLEAP). */ + dlod = 2.0 * (dat12 - dat0); + dleap = dat24 - (dat0 + dlod); + +/* Remove any scaling applied to spread leap into preceding day. */ + fd *= (DAYSEC+dleap)/DAYSEC; + +/* Scale from (pre-1972) UTC seconds to SI seconds. */ + fd *= (DAYSEC+dlod)/DAYSEC; + +/* Today's calendar date to 2-part JD. */ + if ( iauCal2jd(iy, im, id, &z1, &z2) ) return -1; + +/* Assemble the TAI result, preserving the UTC split and order. */ + a2 = z1 - u1; + a2 += z2; + a2 += fd + dat0/DAYSEC; + if ( big1 ) { + *tai1 = u1; + *tai2 = a2; + } else { + *tai1 = a2; + *tai2 = u1; + } + +/* Status. */ + return j; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/utcut1.c =================================================================== --- /trunk/FACT++/sofa/src/utcut1.c (revision 18346) +++ /trunk/FACT++/sofa/src/utcut1.c (revision 18346) @@ -0,0 +1,196 @@ +#include "sofa.h" + +int iauUtcut1(double utc1, double utc2, double dut1, + double *ut11, double *ut12) +/* +** - - - - - - - - - - +** i a u U t c u t 1 +** - - - - - - - - - - +** +** Time scale transformation: Coordinated Universal Time, UTC, to +** Universal Time, UT1. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards of Fundamental Astronomy) software collection. +** +** Status: canonical. +** +** Given: +** utc1,utc2 double UTC as a 2-part quasi Julian Date (Notes 1-4) +** dut1 double Delta UT1 = UT1-UTC in seconds (Note 5) +** +** Returned: +** ut11,ut12 double UT1 as a 2-part Julian Date (Note 6) +** +** Returned (function value): +** int status: +1 = dubious year (Note 3) +** 0 = OK +** -1 = unacceptable date +** +** Notes: +** +** 1) utc1+utc2 is quasi Julian Date (see Note 2), apportioned in any +** convenient way between the two arguments, for example where utc1 +** is the Julian Day Number and utc2 is the fraction of a day. +** +** 2) JD cannot unambiguously represent UTC during a leap second unless +** special measures are taken. The convention in the present +** function is that the JD day represents UTC days whether the +** length is 86399, 86400 or 86401 SI seconds. +** +** 3) The warning status "dubious year" flags UTCs that predate the +** introduction of the time scale or that are too far in the future +** to be trusted. See iauDat for further details. +** +** 4) The function iauDtf2d converts from calendar date and time of +** day into 2-part Julian Date, and in the case of UTC implements +** the leap-second-ambiguity convention described above. +** +** 5) Delta UT1 can be obtained from tabulations provided by the +** International Earth Rotation and Reference Systems Service. +** It is the caller's responsibility to supply a dut1 argument +** containing the UT1-UTC value that matches the given UTC. +** +** 6) The returned ut11,ut12 are such that their sum is the UT1 Julian +** Date. +** +** References: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** Explanatory Supplement to the Astronomical Almanac, +** P. Kenneth Seidelmann (ed), University Science Books (1992) +** +** Called: +** iauJd2cal JD to Gregorian calendar +** iauDat delta(AT) = TAI-UTC +** iauUtctai UTC to TAI +** iauTaiut1 TAI to UT1 +** +** This revision: 2013 August 12 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + int iy, im, id, js, jw; + double w, dat, dta, tai1, tai2; + +/* Look up TAI-UTC. */ + if ( iauJd2cal(utc1, utc2, &iy, &im, &id, &w) ) return -1; + js = iauDat ( iy, im, id, 0.0, &dat); + if ( js < 0 ) return -1; + +/* Form UT1-TAI. */ + dta = dut1 - dat; + +/* UTC to TAI to UT1. */ + jw = iauUtctai(utc1, utc2, &tai1, &tai2); + if ( jw < 0 ) { + return -1; + } else if ( jw > 0 ) { + js = jw; + } + if ( iauTaiut1(tai1, tai2, dta, ut11, ut12) ) return -1; + +/* Status. */ + return js; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/xy06.c =================================================================== --- /trunk/FACT++/sofa/src/xy06.c (revision 18346) +++ /trunk/FACT++/sofa/src/xy06.c (revision 18346) @@ -0,0 +1,2808 @@ +#include "sofa.h" + +void iauXy06(double date1, double date2, double *x, double *y) +/* +** - - - - - - - - +** i a u X y 0 6 +** - - - - - - - - +** +** X,Y coordinates of celestial intermediate pole from series based +** on IAU 2006 precession and IAU 2000A nutation. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: canonical model. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** x,y double CIP X,Y coordinates (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The X,Y coordinates are those of the unit vector towards the +** celestial intermediate pole. They represent the combined effects +** of frame bias, precession and nutation. +** +** 3) The fundamental arguments used are as adopted in IERS Conventions +** (2003) and are from Simon et al. (1994) and Souchay et al. +** (1999). +** +** 4) This is an alternative to the angles-based method, via the SOFA +** function iauFw2xy and as used in iauXys06a for example. The two +** methods agree at the 1 microarcsecond level (at present), a +** negligible amount compared with the intrinsic accuracy of the +** models. However, it would be unwise to mix the two methods +** (angles-based and series-based) in a single application. +** +** Called: +** iauFal03 mean anomaly of the Moon +** iauFalp03 mean anomaly of the Sun +** iauFaf03 mean argument of the latitude of the Moon +** iauFad03 mean elongation of the Moon from the Sun +** iauFaom03 mean longitude of the Moon's ascending node +** iauFame03 mean longitude of Mercury +** iauFave03 mean longitude of Venus +** iauFae03 mean longitude of Earth +** iauFama03 mean longitude of Mars +** iauFaju03 mean longitude of Jupiter +** iauFasa03 mean longitude of Saturn +** iauFaur03 mean longitude of Uranus +** iauFane03 mean longitude of Neptune +** iauFapa03 general accumulated precession in longitude +** +** References: +** +** Capitaine, N., Wallace, P.T. & Chapront, J., 2003, +** Astron.Astrophys., 412, 567 +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** McCarthy, D. D., Petit, G. (eds.), 2004, IERS Conventions (2003), +** IERS Technical Note No. 32, BKG +** +** Simon, J.L., Bretagnon, P., Chapront, J., Chapront-Touze, M., +** Francou, G. & Laskar, J., Astron.Astrophys., 1994, 282, 663 +** +** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M., 1999, +** Astron.Astrophys.Supp.Ser. 135, 111 +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +** This revision: 2013 August 21 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + +/* Maximum power of T in the polynomials for X and Y */ + enum { MAXPT = 5 }; + +/* Polynomial coefficients (arcsec, X then Y). */ + static const double xyp[2][MAXPT+1] = { + + { -0.016617, + 2004.191898, + -0.4297829, + -0.19861834, + 0.000007578, + 0.0000059285 + }, + { -0.006951, + -0.025896, + -22.4072747, + 0.00190059, + 0.001112526, + 0.0000001358 + } + }; + +/* Fundamental-argument multipliers: luni-solar terms */ + static const int mfals[][5] = { + + /* 1-10 */ + { 0, 0, 0, 0, 1 }, + { 0, 0, 2, -2, 2 }, + { 0, 0, 2, 0, 2 }, + { 0, 0, 0, 0, 2 }, + { 0, 1, 0, 0, 0 }, + { 0, 1, 2, -2, 2 }, + { 1, 0, 0, 0, 0 }, + { 0, 0, 2, 0, 1 }, + { 1, 0, 2, 0, 2 }, + { 0, 1, -2, 2, -2 }, + + /* 11-20 */ + { 0, 0, 2, -2, 1 }, + { 1, 0, -2, 0, -2 }, + { 1, 0, 0, -2, 0 }, + { 1, 0, 0, 0, 1 }, + { 1, 0, 0, 0, -1 }, + { 1, 0, -2, -2, -2 }, + { 1, 0, 2, 0, 1 }, + { 2, 0, -2, 0, -1 }, + { 0, 0, 0, 2, 0 }, + { 0, 0, 2, 2, 2 }, + + /* 21-30 */ + { 2, 0, 0, -2, 0 }, + { 0, 2, -2, 2, -2 }, + { 2, 0, 2, 0, 2 }, + { 1, 0, 2, -2, 2 }, + { 1, 0, -2, 0, -1 }, + { 2, 0, 0, 0, 0 }, + { 0, 0, 2, 0, 0 }, + { 0, 1, 0, 0, 1 }, + { 1, 0, 0, -2, -1 }, + { 0, 2, 2, -2, 2 }, + + /* 31-40 */ + { 0, 0, 2, -2, 0 }, + { 1, 0, 0, -2, 1 }, + { 0, 1, 0, 0, -1 }, + { 0, 2, 0, 0, 0 }, + { 1, 0, -2, -2, -1 }, + { 1, 0, 2, 2, 2 }, + { 0, 1, 2, 0, 2 }, + { 2, 0, -2, 0, 0 }, + { 0, 0, 2, 2, 1 }, + { 0, 1, -2, 0, -2 }, + + /* 41-50 */ + { 0, 0, 0, 2, 1 }, + { 1, 0, 2, -2, 1 }, + { 2, 0, 0, -2, -1 }, + { 2, 0, 2, -2, 2 }, + { 2, 0, 2, 0, 1 }, + { 0, 0, 0, 2, -1 }, + { 0, 1, -2, 2, -1 }, + { 1, 1, 0, -2, 0 }, + { 2, 0, 0, -2, 1 }, + { 1, 0, 0, 2, 0 }, + + /* 51-60 */ + { 0, 1, 2, -2, 1 }, + { 1, -1, 0, 0, 0 }, + { 0, 1, -1, 1, -1 }, + { 2, 0, -2, 0, -2 }, + { 0, 1, 0, -2, 0 }, + { 1, 0, 0, -1, 0 }, + { 3, 0, 2, 0, 2 }, + { 0, 0, 0, 1, 0 }, + { 1, -1, 2, 0, 2 }, + { 1, 1, -2, -2, -2 }, + + /* 61-70 */ + { 1, 0, -2, 0, 0 }, + { 2, 0, 0, 0, -1 }, + { 0, 1, -2, -2, -2 }, + { 1, 1, 2, 0, 2 }, + { 2, 0, 0, 0, 1 }, + { 1, 1, 0, 0, 0 }, + { 1, 0, -2, 2, -1 }, + { 1, 0, 2, 0, 0 }, + { 1, -1, 0, -1, 0 }, + { 1, 0, 0, 0, 2 }, + + /* 71-80 */ + { 1, 0, -1, 0, -1 }, + { 0, 0, 2, 1, 2 }, + { 1, 0, -2, -4, -2 }, + { 1, -1, 0, -1, -1 }, + { 1, 0, 2, 2, 1 }, + { 0, 2, -2, 2, -1 }, + { 1, 0, 0, 0, -2 }, + { 2, 0, -2, -2, -2 }, + { 1, 1, 2, -2, 2 }, + { 2, 0, -2, -4, -2 }, + + /* 81-90 */ + { 1, 0, -4, 0, -2 }, + { 2, 0, 2, -2, 1 }, + { 1, 0, 0, -1, -1 }, + { 2, 0, 2, 2, 2 }, + { 3, 0, 0, 0, 0 }, + { 1, 0, 0, 2, 1 }, + { 0, 0, 2, -2, -1 }, + { 3, 0, 2, -2, 2 }, + { 0, 0, 4, -2, 2 }, + { 1, 0, 0, -4, 0 }, + + /* 91-100 */ + { 0, 1, 2, 0, 1 }, + { 2, 0, 0, -4, 0 }, + { 1, 1, 0, -2, -1 }, + { 2, 0, -2, 0, 1 }, + { 0, 0, 2, 0, -1 }, + { 0, 1, -2, 0, -1 }, + { 0, 1, 0, 0, 2 }, + { 0, 0, 2, -1, 2 }, + { 0, 0, 2, 4, 2 }, + { 2, 1, 0, -2, 0 }, + + /* 101-110 */ + { 1, 1, 0, -2, 1 }, + { 1, -1, 0, -2, 0 }, + { 1, -1, 0, -1, -2 }, + { 1, -1, 0, 0, 1 }, + { 0, 1, -2, 2, 0 }, + { 0, 1, 0, 0, -2 }, + { 1, -1, 2, 2, 2 }, + { 1, 0, 0, 2, -1 }, + { 1, -1, -2, -2, -2 }, + { 3, 0, 2, 0, 1 }, + + /* 111-120 */ + { 0, 1, 2, 2, 2 }, + { 1, 0, 2, -2, 0 }, + { 1, 1, -2, -2, -1 }, + { 1, 0, 2, -4, 1 }, + { 0, 1, -2, -2, -1 }, + { 2, -1, 2, 0, 2 }, + { 0, 0, 0, 2, 2 }, + { 1, -1, 2, 0, 1 }, + { 1, -1, -2, 0, -2 }, + { 0, 1, 0, 2, 0 }, + + /* 121-130 */ + { 0, 1, 2, -2, 0 }, + { 0, 0, 0, 1, 1 }, + { 1, 0, -2, -2, 0 }, + { 0, 3, 2, -2, 2 }, + { 2, 1, 2, 0, 2 }, + { 1, 1, 0, 0, 1 }, + { 2, 0, 0, 2, 0 }, + { 1, 1, 2, 0, 1 }, + { 1, 0, 0, -2, -2 }, + { 1, 0, -2, 2, 0 }, + + /* 131-140 */ + { 1, 0, -1, 0, -2 }, + { 0, 1, 0, -2, 1 }, + { 0, 1, 0, 1, 0 }, + { 0, 0, 0, 1, -1 }, + { 1, 0, -2, 2, -2 }, + { 1, -1, 0, 0, -1 }, + { 0, 0, 0, 4, 0 }, + { 1, -1, 0, 2, 0 }, + { 1, 0, 2, 1, 2 }, + { 1, 0, 2, -1, 2 }, + + /* 141-150 */ + { 0, 0, 2, 1, 1 }, + { 1, 0, 0, -2, 2 }, + { 1, 0, -2, 0, 1 }, + { 1, 0, -2, -4, -1 }, + { 0, 0, 2, 2, 0 }, + { 1, 1, 2, -2, 1 }, + { 1, 0, -2, 1, -1 }, + { 0, 0, 1, 0, 1 }, + { 2, 0, -2, -2, -1 }, + { 4, 0, 2, 0, 2 }, + + /* 151-160 */ + { 2, -1, 0, 0, 0 }, + { 2, 1, 2, -2, 2 }, + { 0, 1, 2, 1, 2 }, + { 1, 0, 4, -2, 2 }, + { 1, 1, 0, 0, -1 }, + { 2, 0, 2, 0, 0 }, + { 2, 0, -2, -4, -1 }, + { 1, 0, -1, 0, 0 }, + { 1, 0, 0, 1, 0 }, + { 0, 1, 0, 2, 1 }, + + /* 161-170 */ + { 1, 0, -4, 0, -1 }, + { 1, 0, 0, -4, -1 }, + { 2, 0, 2, 2, 1 }, + { 2, 1, 0, 0, 0 }, + { 0, 0, 2, -3, 2 }, + { 1, 2, 0, -2, 0 }, + { 0, 3, 0, 0, 0 }, + { 0, 0, 4, 0, 2 }, + { 0, 0, 2, -4, 1 }, + { 2, 0, 0, -2, -2 }, + + /* 171-180 */ + { 1, 1, -2, -4, -2 }, + { 0, 1, 0, -2, -1 }, + { 0, 0, 0, 4, 1 }, + { 3, 0, 2, -2, 1 }, + { 1, 0, 2, 4, 2 }, + { 1, 1, -2, 0, -2 }, + { 0, 0, 4, -2, 1 }, + { 2, -2, 0, -2, 0 }, + { 2, 1, 0, -2, -1 }, + { 0, 2, 0, -2, 0 }, + + /* 181-190 */ + { 1, 0, 0, -1, 1 }, + { 1, 1, 2, 2, 2 }, + { 3, 0, 0, 0, -1 }, + { 2, 0, 0, -4, -1 }, + { 3, 0, 2, 2, 2 }, + { 0, 0, 2, 4, 1 }, + { 0, 2, -2, -2, -2 }, + { 1, -1, 0, -2, -1 }, + { 0, 0, 2, -1, 1 }, + { 2, 0, 0, 2, 1 }, + + /* 191-200 */ + { 1, -1, -2, 2, -1 }, + { 0, 0, 0, 2, -2 }, + { 2, 0, 0, -4, 1 }, + { 1, 0, 0, -4, 1 }, + { 2, 0, 2, -4, 1 }, + { 4, 0, 2, -2, 2 }, + { 2, 1, -2, 0, -1 }, + { 2, 1, -2, -4, -2 }, + { 3, 0, 0, -4, 0 }, + { 1, -1, 2, 2, 1 }, + + /* 201-210 */ + { 1, -1, -2, 0, -1 }, + { 0, 2, 0, 0, 1 }, + { 1, 2, -2, -2, -2 }, + { 1, 1, 0, -4, 0 }, + { 2, 0, 0, -2, 2 }, + { 0, 2, 2, -2, 1 }, + { 1, 0, 2, 0, -1 }, + { 2, 1, 0, -2, 1 }, + { 2, -1, -2, 0, -1 }, + { 1, -1, -2, -2, -1 }, + + /* 211-220 */ + { 0, 1, -2, 1, -2 }, + { 1, 0, -4, 2, -2 }, + { 0, 1, 2, 2, 1 }, + { 3, 0, 0, 0, 1 }, + { 2, -1, 2, 2, 2 }, + { 0, 1, -2, -4, -2 }, + { 1, 0, -2, -3, -2 }, + { 2, 0, 0, 0, 2 }, + { 1, -1, 0, -2, -2 }, + { 2, 0, -2, 2, -1 }, + + /* 221-230 */ + { 0, 2, -2, 0, -2 }, + { 3, 0, -2, 0, -1 }, + { 2, -1, 2, 0, 1 }, + { 1, 0, -2, -1, -2 }, + { 0, 0, 2, 0, 3 }, + { 2, 0, -4, 0, -2 }, + { 2, 1, 0, -4, 0 }, + { 1, 1, -2, 1, -1 }, + { 0, 2, 2, 0, 2 }, + { 1, -1, 2, -2, 2 }, + + /* 231-240 */ + { 1, -1, 0, -2, 1 }, + { 2, 1, 2, 0, 1 }, + { 1, 0, 2, -4, 2 }, + { 1, 1, -2, 0, -1 }, + { 1, 1, 0, 2, 0 }, + { 1, 0, 0, -3, 0 }, + { 2, 0, 2, -1, 2 }, + { 0, 2, 0, 0, -1 }, + { 2, -1, 0, -2, 0 }, + { 4, 0, 0, 0, 0 }, + + /* 241-250 */ + { 2, 1, -2, -2, -2 }, + { 0, 2, -2, 2, 0 }, + { 1, 0, 2, 1, 1 }, + { 1, 0, -1, 0, -3 }, + { 3, -1, 2, 0, 2 }, + { 2, 0, 2, -2, 0 }, + { 1, -2, 0, 0, 0 }, + { 2, 0, 0, 0, -2 }, + { 1, 0, 0, 4, 0 }, + { 0, 1, 0, 1, 1 }, + + /* 251-260 */ + { 1, 0, 2, 2, 0 }, + { 0, 1, 0, 2, -1 }, + { 0, 1, 0, 1, -1 }, + { 0, 0, 2, -2, 3 }, + { 3, 1, 2, 0, 2 }, + { 1, 1, 2, 1, 2 }, + { 1, 1, -2, 2, -1 }, + { 2, -1, 2, -2, 2 }, + { 1, -2, 2, 0, 2 }, + { 1, 0, 2, -4, 0 }, + + /* 261-270 */ + { 0, 0, 1, 0, 0 }, + { 1, 0, 2, -3, 1 }, + { 1, -2, 0, -2, 0 }, + { 2, 0, 0, 2, -1 }, + { 1, 1, 2, -4, 1 }, + { 4, 0, 2, 0, 1 }, + { 0, 1, 2, 1, 1 }, + { 1, 2, 2, -2, 2 }, + { 2, 0, 2, 1, 2 }, + { 2, 1, 2, -2, 1 }, + + /* 271-280 */ + { 1, 0, 2, -1, 1 }, + { 1, 0, 4, -2, 1 }, + { 1, -1, 2, -2, 1 }, + { 0, 1, 0, -4, 0 }, + { 3, 0, -2, -2, -2 }, + { 0, 0, 4, -4, 2 }, + { 2, 0, -4, -2, -2 }, + { 2, -2, 0, -2, -1 }, + { 1, 0, 2, -2, -1 }, + { 2, 0, -2, -6, -2 }, + + /* 281-290 */ + { 1, 0, -2, 1, -2 }, + { 1, 0, -2, 2, 1 }, + { 1, -1, 0, 2, -1 }, + { 1, 0, -2, 1, 0 }, + { 2, -1, 0, -2, 1 }, + { 1, -1, 0, 2, 1 }, + { 2, 0, -2, -2, 0 }, + { 1, 0, 2, -3, 2 }, + { 0, 0, 0, 4, -1 }, + { 2, -1, 0, 0, 1 }, + + /* 291-300 */ + { 2, 0, 4, -2, 2 }, + { 0, 0, 2, 3, 2 }, + { 0, 1, 4, -2, 2 }, + { 0, 1, -2, 2, 1 }, + { 1, 1, 0, 2, 1 }, + { 1, 0, 0, 4, 1 }, + { 0, 0, 4, 0, 1 }, + { 2, 0, 0, -3, 0 }, + { 1, 0, 0, -1, -2 }, + { 1, -2, -2, -2, -2 }, + + /* 301-310 */ + { 3, 0, 0, 2, 0 }, + { 2, 0, 2, -4, 2 }, + { 1, 1, -2, -4, -1 }, + { 1, 0, -2, -6, -2 }, + { 2, -1, 0, 0, -1 }, + { 2, -1, 0, 2, 0 }, + { 0, 1, 2, -2, -1 }, + { 1, 1, 0, 1, 0 }, + { 1, 2, 0, -2, -1 }, + { 1, 0, 0, 1, -1 }, + + /* 311-320 */ + { 0, 0, 1, 0, 2 }, + { 3, 1, 2, -2, 2 }, + { 1, 0, -4, -2, -2 }, + { 1, 0, 2, 4, 1 }, + { 1, -2, 2, 2, 2 }, + { 1, -1, -2, -4, -2 }, + { 0, 0, 2, -4, 2 }, + { 0, 0, 2, -3, 1 }, + { 2, 1, -2, 0, 0 }, + { 3, 0, -2, -2, -1 }, + + /* 321-330 */ + { 2, 0, 2, 4, 2 }, + { 0, 0, 0, 0, 3 }, + { 2, -1, -2, -2, -2 }, + { 2, 0, 0, -1, 0 }, + { 3, 0, 2, -4, 2 }, + { 2, 1, 2, 2, 2 }, + { 0, 0, 3, 0, 3 }, + { 1, 1, 2, 2, 1 }, + { 2, 1, 0, 0, -1 }, + { 1, 2, 0, -2, 1 }, + + /* 331-340 */ + { 3, 0, 2, 2, 1 }, + { 1, -1, -2, 2, -2 }, + { 1, 1, 0, -1, 0 }, + { 1, 2, 0, 0, 0 }, + { 1, 0, 4, 0, 2 }, + { 1, -1, 2, 4, 2 }, + { 2, 1, 0, 0, 1 }, + { 1, 0, 0, 2, 2 }, + { 1, -1, -2, 2, 0 }, + { 0, 2, -2, -2, -1 }, + + /* 341-350 */ + { 2, 0, -2, 0, 2 }, + { 5, 0, 2, 0, 2 }, + { 3, 0, -2, -6, -2 }, + { 1, -1, 2, -1, 2 }, + { 3, 0, 0, -4, -1 }, + { 1, 0, 0, 1, 1 }, + { 1, 0, -4, 2, -1 }, + { 0, 1, 2, -4, 1 }, + { 1, 2, 2, 0, 2 }, + { 0, 1, 0, -2, -2 }, + + /* 351-360 */ + { 0, 0, 2, -1, 0 }, + { 1, 0, 1, 0, 1 }, + { 0, 2, 0, -2, 1 }, + { 3, 0, 2, 0, 0 }, + { 1, 1, -2, 1, 0 }, + { 2, 1, -2, -4, -1 }, + { 3, -1, 0, 0, 0 }, + { 2, -1, -2, 0, 0 }, + { 4, 0, 2, -2, 1 }, + { 2, 0, -2, 2, 0 }, + + /* 361-370 */ + { 1, 1, 2, -2, 0 }, + { 1, 0, -2, 4, -1 }, + { 1, 0, -2, -2, 1 }, + { 2, 0, 2, -4, 0 }, + { 1, 1, 0, -2, -2 }, + { 1, 1, -2, -2, 0 }, + { 1, 0, 1, -2, 1 }, + { 2, -1, -2, -4, -2 }, + { 3, 0, -2, 0, -2 }, + { 0, 1, -2, -2, 0 }, + + /* 371-380 */ + { 3, 0, 0, -2, -1 }, + { 1, 0, -2, -3, -1 }, + { 0, 1, 0, -4, -1 }, + { 1, -2, 2, -2, 1 }, + { 0, 1, -2, 1, -1 }, + { 1, -1, 0, 0, 2 }, + { 2, 0, 0, 1, 0 }, + { 1, -2, 0, 2, 0 }, + { 1, 2, -2, -2, -1 }, + { 0, 0, 4, -4, 1 }, + + /* 381-390 */ + { 0, 1, 2, 4, 2 }, + { 0, 1, -4, 2, -2 }, + { 3, 0, -2, 0, 0 }, + { 2, -1, 2, 2, 1 }, + { 0, 1, -2, -4, -1 }, + { 4, 0, 2, 2, 2 }, + { 2, 0, -2, -3, -2 }, + { 2, 0, 0, -6, 0 }, + { 1, 0, 2, 0, 3 }, + { 3, 1, 0, 0, 0 }, + + /* 391-400 */ + { 3, 0, 0, -4, 1 }, + { 1, -1, 2, 0, 0 }, + { 1, -1, 0, -4, 0 }, + { 2, 0, -2, 2, -2 }, + { 1, 1, 0, -2, 2 }, + { 4, 0, 0, -2, 0 }, + { 2, 2, 0, -2, 0 }, + { 0, 1, 2, 0, 0 }, + { 1, 1, 0, -4, 1 }, + { 1, 0, 0, -4, -2 }, + + /* 401-410 */ + { 0, 0, 0, 1, 2 }, + { 3, 0, 0, 2, 1 }, + { 1, 1, 0, -4, -1 }, + { 0, 0, 2, 2, -1 }, + { 1, 1, 2, 0, 0 }, + { 1, -1, 2, -4, 1 }, + { 1, 1, 0, 0, 2 }, + { 0, 0, 2, 6, 2 }, + { 4, 0, -2, -2, -1 }, + { 2, 1, 0, -4, -1 }, + + /* 411-420 */ + { 0, 0, 0, 3, 1 }, + { 1, -1, -2, 0, 0 }, + { 0, 0, 2, 1, 0 }, + { 1, 0, 0, 2, -2 }, + { 3, -1, 2, 2, 2 }, + { 3, -1, 2, -2, 2 }, + { 1, 0, 0, -1, 2 }, + { 1, -2, 2, -2, 2 }, + { 0, 1, 0, 2, 2 }, + { 0, 1, -2, -1, -2 }, + + /* 421-430 */ + { 1, 1, -2, 0, 0 }, + { 0, 2, 2, -2, 0 }, + { 3, -1, -2, -1, -2 }, + { 1, 0, 0, -6, 0 }, + { 1, 0, -2, -4, 0 }, + { 2, 1, 0, -4, 1 }, + { 2, 0, 2, 0, -1 }, + { 2, 0, -4, 0, -1 }, + { 0, 0, 3, 0, 2 }, + { 2, 1, -2, -2, -1 }, + + /* 431-440 */ + { 1, -2, 0, 0, 1 }, + { 2, -1, 0, -4, 0 }, + { 0, 0, 0, 3, 0 }, + { 5, 0, 2, -2, 2 }, + { 1, 2, -2, -4, -2 }, + { 1, 0, 4, -4, 2 }, + { 0, 0, 4, -1, 2 }, + { 3, 1, 0, -4, 0 }, + { 3, 0, 0, -6, 0 }, + { 2, 0, 0, 2, 2 }, + + /* 441-450 */ + { 2, -2, 2, 0, 2 }, + { 1, 0, 0, -3, 1 }, + { 1, -2, -2, 0, -2 }, + { 1, -1, -2, -3, -2 }, + { 0, 0, 2, -2, -2 }, + { 2, 0, -2, -4, 0 }, + { 1, 0, -4, 0, 0 }, + { 0, 1, 0, -1, 0 }, + { 4, 0, 0, 0, -1 }, + { 3, 0, 2, -1, 2 }, + + /* 451-460 */ + { 3, -1, 2, 0, 1 }, + { 2, 0, 2, -1, 1 }, + { 1, 2, 2, -2, 1 }, + { 1, 1, 0, 2, -1 }, + { 0, 2, 2, 0, 1 }, + { 3, 1, 2, 0, 1 }, + { 1, 1, 2, 1, 1 }, + { 1, 1, 0, -1, 1 }, + { 1, -2, 0, -2, -1 }, + { 4, 0, 0, -4, 0 }, + + /* 461-470 */ + { 2, 1, 0, 2, 0 }, + { 1, -1, 0, 4, 0 }, + { 0, 1, 0, -2, 2 }, + { 0, 0, 2, 0, -2 }, + { 1, 0, -1, 0, 1 }, + { 3, 0, 2, -2, 0 }, + { 2, 0, 2, 2, 0 }, + { 1, 2, 0, -4, 0 }, + { 1, -1, 0, -3, 0 }, + { 0, 1, 0, 4, 0 }, + + /* 471 - 480 */ + { 0, 1, -2, 0, 0 }, + { 2, 2, 2, -2, 2 }, + { 0, 0, 0, 1, -2 }, + { 0, 2, -2, 0, -1 }, + { 4, 0, 2, -4, 2 }, + { 2, 0, -4, 2, -2 }, + { 2, -1, -2, 0, -2 }, + { 1, 1, 4, -2, 2 }, + { 1, 1, 2, -4, 2 }, + { 1, 0, 2, 3, 2 }, + + /* 481-490 */ + { 1, 0, 0, 4, -1 }, + { 0, 0, 0, 4, 2 }, + { 2, 0, 0, 4, 0 }, + { 1, 1, -2, 2, 0 }, + { 2, 1, 2, 1, 2 }, + { 2, 1, 2, -4, 1 }, + { 2, 0, 2, 1, 1 }, + { 2, 0, -4, -2, -1 }, + { 2, 0, -2, -6, -1 }, + { 2, -1, 2, -1, 2 }, + + /* 491-500 */ + { 1, -2, 2, 0, 1 }, + { 1, -2, 0, -2, 1 }, + { 1, -1, 0, -4, -1 }, + { 0, 2, 2, 2, 2 }, + { 0, 2, -2, -4, -2 }, + { 0, 1, 2, 3, 2 }, + { 0, 1, 0, -4, 1 }, + { 3, 0, 0, -2, 1 }, + { 2, 1, -2, 0, 1 }, + { 2, 0, 4, -2, 1 }, + + /* 501-510 */ + { 2, 0, 0, -3, -1 }, + { 2, -2, 0, -2, 1 }, + { 2, -1, 2, -2, 1 }, + { 1, 0, 0, -6, -1 }, + { 1, -2, 0, 0, -1 }, + { 1, -2, -2, -2, -1 }, + { 0, 1, 4, -2, 1 }, + { 0, 0, 2, 3, 1 }, + { 2, -1, 0, -1, 0 }, + { 1, 3, 0, -2, 0 }, + + /* 511-520 */ + { 0, 3, 0, -2, 0 }, + { 2, -2, 2, -2, 2 }, + { 0, 0, 4, -2, 0 }, + { 4, -1, 2, 0, 2 }, + { 2, 2, -2, -4, -2 }, + { 4, 1, 2, 0, 2 }, + { 4, -1, -2, -2, -2 }, + { 2, 1, 0, -2, -2 }, + { 2, 1, -2, -6, -2 }, + { 2, 0, 0, -1, 1 }, + + /* 521-530 */ + { 2, -1, -2, 2, -1 }, + { 1, 1, -2, 2, -2 }, + { 1, 1, -2, -3, -2 }, + { 1, 0, 3, 0, 3 }, + { 1, 0, -2, 1, 1 }, + { 1, 0, -2, 0, 2 }, + { 1, -1, 2, 1, 2 }, + { 1, -1, 0, 0, -2 }, + { 1, -1, -4, 2, -2 }, + { 0, 3, -2, -2, -2 }, + + /* 531-540 */ + { 0, 1, 0, 4, 1 }, + { 0, 0, 4, 2, 2 }, + { 3, 0, -2, -2, 0 }, + { 2, -2, 0, 0, 0 }, + { 1, 1, 2, -4, 0 }, + { 1, 1, 0, -3, 0 }, + { 1, 0, 2, -3, 0 }, + { 1, -1, 2, -2, 0 }, + { 0, 2, 0, 2, 0 }, + { 0, 0, 2, 4, 0 }, + + /* 541-550 */ + { 1, 0, 1, 0, 0 }, + { 3, 1, 2, -2, 1 }, + { 3, 0, 4, -2, 2 }, + { 3, 0, 2, 1, 2 }, + { 3, 0, 0, 2, -1 }, + { 3, 0, 0, 0, 2 }, + { 3, 0, -2, 2, -1 }, + { 2, 0, 4, -4, 2 }, + { 2, 0, 2, -3, 2 }, + { 2, 0, 0, 4, 1 }, + + /* 551-560 */ + { 2, 0, 0, -3, 1 }, + { 2, 0, -4, 2, -1 }, + { 2, 0, -2, -2, 1 }, + { 2, -2, 2, 2, 2 }, + { 2, -2, 0, -2, -2 }, + { 2, -1, 0, 2, 1 }, + { 2, -1, 0, 2, -1 }, + { 1, 1, 2, 4, 2 }, + { 1, 1, 0, 1, 1 }, + { 1, 1, 0, 1, -1 }, + + /* 561-570 */ + { 1, 1, -2, -6, -2 }, + { 1, 0, 0, -3, -1 }, + { 1, 0, -4, -2, -1 }, + { 1, 0, -2, -6, -1 }, + { 1, -2, 2, 2, 1 }, + { 1, -2, -2, 2, -1 }, + { 1, -1, -2, -4, -1 }, + { 0, 2, 0, 0, 2 }, + { 0, 1, 2, -4, 2 }, + { 0, 1, -2, 4, -1 }, + + /* 571-580 */ + { 5, 0, 0, 0, 0 }, + { 3, 0, 0, -3, 0 }, + { 2, 2, 0, -4, 0 }, + { 1, -1, 2, 2, 0 }, + { 0, 1, 0, 3, 0 }, + { 4, 0, -2, 0, -1 }, + { 3, 0, -2, -6, -1 }, + { 3, 0, -2, -1, -1 }, + { 2, 1, 2, 2, 1 }, + { 2, 1, 0, 2, 1 }, + + /* 581-590 */ + { 2, 0, 2, 4, 1 }, + { 2, 0, 2, -6, 1 }, + { 2, 0, 2, -2, -1 }, + { 2, 0, 0, -6, -1 }, + { 2, -1, -2, -2, -1 }, + { 1, 2, 2, 0, 1 }, + { 1, 2, 0, 0, 1 }, + { 1, 0, 4, 0, 1 }, + { 1, 0, 2, -6, 1 }, + { 1, 0, 2, -4, -1 }, + + /* 591-600 */ + { 1, 0, -1, -2, -1 }, + { 1, -1, 2, 4, 1 }, + { 1, -1, 2, -3, 1 }, + { 1, -1, 0, 4, 1 }, + { 1, -1, -2, 1, -1 }, + { 0, 1, 2, -2, 3 }, + { 3, 0, 0, -2, 0 }, + { 1, 0, 1, -2, 0 }, + { 0, 2, 0, -4, 0 }, + { 0, 0, 2, -4, 0 }, + + /* 601-610 */ + { 0, 0, 1, -1, 0 }, + { 0, 0, 0, 6, 0 }, + { 0, 2, 0, 0, -2 }, + { 0, 1, -2, 2, -3 }, + { 4, 0, 0, 2, 0 }, + { 3, 0, 0, -1, 0 }, + { 3, -1, 0, 2, 0 }, + { 2, 1, 0, 1, 0 }, + { 2, 1, 0, -6, 0 }, + { 2, -1, 2, 0, 0 }, + + /* 611-620 */ + { 1, 0, 2, -1, 0 }, + { 1, -1, 0, 1, 0 }, + { 1, -1, -2, -2, 0 }, + { 0, 1, 2, 2, 0 }, + { 0, 0, 2, -3, 0 }, + { 2, 2, 0, -2, -1 }, + { 2, -1, -2, 0, 1 }, + { 1, 2, 2, -4, 1 }, + { 0, 1, 4, -4, 2 }, + { 0, 0, 0, 3, 2 }, + + /* 621-630 */ + { 5, 0, 2, 0, 1 }, + { 4, 1, 2, -2, 2 }, + { 4, 0, -2, -2, 0 }, + { 3, 1, 2, 2, 2 }, + { 3, 1, 0, -2, 0 }, + { 3, 1, -2, -6, -2 }, + { 3, 0, 0, 0, -2 }, + { 3, 0, -2, -4, -2 }, + { 3, -1, 0, -3, 0 }, + { 3, -1, 0, -2, 0 }, + + /* 631-640 */ + { 2, 1, 2, 0, 0 }, + { 2, 1, 2, -4, 2 }, + { 2, 1, 2, -2, 0 }, + { 2, 1, 0, -3, 0 }, + { 2, 1, -2, 0, -2 }, + { 2, 0, 0, -4, 2 }, + { 2, 0, 0, -4, -2 }, + { 2, 0, -2, -5, -2 }, + { 2, -1, 2, 4, 2 }, + { 2, -1, 0, -2, 2 }, + + /* 641-650 */ + { 1, 3, -2, -2, -2 }, + { 1, 1, 0, 0, -2 }, + { 1, 1, 0, -6, 0 }, + { 1, 1, -2, 1, -2 }, + { 1, 1, -2, -1, -2 }, + { 1, 0, 2, 1, 0 }, + { 1, 0, 0, 3, 0 }, + { 1, 0, 0, -4, 2 }, + { 1, 0, -2, 4, -2 }, + { 1, -2, 0, -1, 0 }, + + /* 651-NFLS */ + { 0, 1, -4, 2, -1 }, + { 1, 0, -2, 0, -3 }, + { 0, 0, 4, -4, 4 } + }; + +/* Number of frequencies: luni-solar */ + static const int NFLS = (int) (sizeof mfals / sizeof (int) / 5); + +/* Fundamental-argument multipliers: planetary terms */ + static const int mfapl[][14] = { + + /* 1-10 */ + { 0, 0, 1, -1, 1, 0, 0, -1, 0, -2, 5, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, -5, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 3, -5, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 1, -1, 1, 0, -8, 12, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -8, 3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 8,-16, 4, 5, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, -1, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, -1, 2, 0, 0, 0, 0, 0 }, + + /* 11-20 */ + { 0, 0, 0, 0, 0, 0, 8,-13, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, 2, -5, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, -5, 6, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 4, -6, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 3, 0, -1, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 2, -8, 3, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 2, -4, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 6, -8, 3, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 1, -2, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 2, -3, 0, 0, 0, 0, 0, 0 }, + + /* 21-30 */ + { 0, 0, 0, 0, 0, 0, 2, -2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 1, 0, 0, -4, 8, -3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, 4, -8, 3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, -5, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 1, -1, 1, 0, 0, 0, -2, 0, 0, 0, 0, 0 }, + { 2, 0, 0, -2, -1, 0, 0, -2, 0, 2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1 }, + { 2, 0, 0, -2, 0, 0, 0, -2, 0, 2, 0, 0, 0, 0 }, + + /* 31-40 */ + { 0, 0, 0, 0, 0, 0, 0, 2, 0, -2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 8,-13, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 5, -8, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 2, -2, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, -5, 0, 0, 1 }, + { 2, 0, 0, -2, 0, 0, 0, -2, 0, 3, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, -1, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 3, -4, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, 0, -1, 0, 0, 0 }, + + /* 41-50 */ + { 0, 0, 0, 0, 0, 0, 0, 1, 0, -2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 5, -7, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 1, -1, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 4, 0, -2, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 8,-13, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 2, -1, 0, 0, 0, 0, 0, 2 }, + { 1, 0, 0, 0, 0, 0,-18, 16, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, 2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, 1, 0, 0, 0, 2 }, + + /* 51-60 */ + { 0, 0, 1, -1, 1, 0, -5, 7, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 0, 0, 0, 0,-10, 3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 0, 0, -5, 6, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, -1, 0, 0, 0, 2 }, + { 1, 0, 2, 0, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -2, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 1 }, + { 1, 0, -2, 0, -2, 0, 0, 4, -8, 3, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, 0, 2, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, -3, 3, 0, 0, 0, 0, 0, 0 }, + + /* 61-70 */ + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 8,-16, 4, 5, 0, 0, -2 }, + { 0, 0, 1, -1, 1, 0, 0, 3, -8, 3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 8,-11, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 8,-16, 4, 5, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 4, -6, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, -3, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 2, -4, 0, 0, 0, 0, 0 }, + + /* 71-80 */ + { 0, 0, 0, 0, 0, 0, 6, -8, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 3, -2, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 8,-15, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 2, -5, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 1, -3, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 3, 0, -2, 0, 0, 0, 2 }, + { 0, 0, 1, -1, 1, 0, 0, -5, 8, -3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 3, -2, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 3, -5, 0, 0, 0, 0, 0, 0 }, + + /* 81-90 */ + { 2, 0, 0, -2, 1, 0, 0, -2, 0, 3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 5, -8, 0, 0, 0, 0, 0, -1 }, + { 2, 0, 0, -2, 0, 0, -3, 3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 8,-13, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, 0, 0, -2, 5, 0, 0, 0 }, + { 1, 0, 0, -1, 0, 0, -3, 4, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2 }, + { 1, 0, 0, 0, -1, 0,-18, 16, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, 0, 0, 2, -5, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0 }, + + /* 91-100 */ + { 1, 0, 0, -2, 0, 0, 19,-21, 3, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, -8, 13, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, 0, 1, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 7, -9, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 2 }, + { 1, 0, 0, 0, 1, 0,-18, 16, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 2, -4, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 6,-16, 4, 5, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 4, -7, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 3, -7, 0, 0, 0, 0, 0, -2 }, + + /* 101-110 */ + { 0, 0, 0, 0, 0, 0, 2, -2, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1 }, + { 2, 0, 0, -2, 1, 0, 0, -2, 0, 2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 3, -4, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 1, -2, 0, 0, 0, 0, 0, 0 }, + { 2, 0, 0, -2, -1, 0, 0, -2, 0, 3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 3, -3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 0, 0, 2 }, + + /* 111-120 */ + { 0, 0, 0, 0, 1, 0, 0, 1, -2, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2 }, + { 0, 0, 2, -2, 1, 0, 0, -2, 0, 2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, -3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 3, -5, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 3, -3, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 4, -4, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 0, 0, 0, -1, 0, -1, 0, 0, 0, 0 }, + { 2, 0, 0, -2, 0, 0, -6, 8, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 0, -2, 2, 0, 0, 0, 0, 0 }, + + /* 121-130 */ + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, 1, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, -2, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 2, -3, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 2, -4, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, -1, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 8,-10, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 1, -1, 1, 0, -3, 4, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 6, -9, 0, 0, 0, 0, 0, -2 }, + { 1, 0, 0, -1, 1, 0, 0, -1, 0, 2, 0, 0, 0, 0 }, + + /* 131-140 */ + { 0, 0, 0, 0, 0, 0, 5, -7, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 5, -5, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 3, -3, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 4, 0, -3, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 1, 0, 2, -3, 0, 0, 0, 0, 0, 0 }, + + /* 141-150 */ + { 1, 0, 0, -1, 0, 0, 0, -1, 0, 1, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 1, -3, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 5, -4, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -4, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 9,-11, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 2, -3, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 8,-15, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, -4, 5, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 4, -6, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 4, 0, -1, 0, 0, 0, 2 }, + + /* 151-160 */ + { 1, 0, 0, -1, 1, 0, -3, 4, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, -4, 10, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 1, -1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 0, 0, 0, -1, 0, 0, -1, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, -3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 3, -1, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, -4, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, -5, 0, 0, -2 }, + { 0, 0, 2, -2, 1, 0, -4, 4, 0, 0, 0, 0, 0, 0 }, + + /* 161-170 */ + { 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, -1, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -3, 0, 0, 0, 0, 2 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, 0, 0, 0, 2, 0 }, + { 0, 0, 0, 0, 0, 0, 4, -4, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 2, -4, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 5, -8, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, -2, 0, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, 0, -9, 13, 0, 0, 0, 0, 0 }, + { 2, 0, 2, 0, 2, 0, 0, 2, 0, -3, 0, 0, 0, 0 }, + + /* 171-180 */ + { 0, 0, 0, 0, 0, 0, 3, -6, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 1, -1, 2, 0, 0, -1, 0, 0, 2, 0, 0, 0 }, + { 1, 0, 0, -1, -1, 0, -3, 4, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 3, -6, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 6, -6, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 1 }, + { 1, 0, 2, 0, 1, 0, 0, -2, 0, 3, 0, 0, 0, 0 }, + { 1, 0, -2, 0, -1, 0, 0, -1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, -2, 4, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 3, -5, 0, 0, 0, 0, 0 }, + + /* 181-190 */ + { 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1 }, + { 0, 0, 2, 0, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, -8, 3, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 6,-10, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 7, -8, 3, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 1, 0, -3, 5, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, -1, 0, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 0, 0, -5, 7, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, -2, 0, 0, 0, 1 }, + + /* 191-200 */ + { 0, 0, 0, 0, 0, 0, 0, 2, 0, -1, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 7,-10, 0, 0, 0, 0, 0, -2 }, + { 1, 0, 0, -2, 0, 0, 0, -2, 0, 2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, 2, -5, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 6, -8, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 1, -1, 1, 0, 0, -9, 15, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, -2, 3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, -1, 1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 3, -6, 0, 0, 0, 0, 0 }, + + /* 201-210 */ + { 0, 0, 0, 0, 0, 0, 0, 1, -4, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, -1, 0, 0, 2 }, + { 2, 0, 0, -2, 1, 0, -6, 8, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 5, -5, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 1, -1, 1, 0, 3, -6, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, -2, 2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 8,-14, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0 }, + + /* 211-220 */ + { 0, 0, 0, 0, 1, 0, 0, 8,-15, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -6, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 7, -7, 0, 0, 0, 0, 0, 0 }, + { 2, 0, 0, -2, 1, 0, -3, 3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 3, -1, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 1, 0, 0, 2 }, + { 2, 0, -1, -1, 0, 0, 0, 3, -7, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -7, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 3, -3, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 0, -3, 4, 0, 0, 0, 0, 0 }, + + /* 221-230 */ + { 2, 0, 0, -2, 0, 0, 0, -6, 8, 0, 0, 0, 0, 0 }, + { 2, 0, 0, -2, 0, 0, 0, -5, 6, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, 0, 0, -1, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 1, 0, 0, 1, 0, -1, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 3, -9, 4, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 3, -5, 0, 0, 0, 0, -2 }, + + /* 231-240 */ + { 0, 0, 0, 0, 0, 0, 0, 2, 0, -4, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 1 }, + { 0, 0, 0, 0, 0, 0, 7,-11, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 3, -5, 4, 0, 0, 0, 0, 2 }, + { 0, 0, 1, -1, 0, 0, 0, -1, 0, -1, 1, 0, 0, 0 }, + { 2, 0, 0, 0, 0, 0, 0, -2, 0, 3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 8,-15, 0, 0, 0, 0, -2 }, + { 0, 0, 1, -1, 2, 0, 0, -2, 2, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 6, -6, 0, 0, 0, 0, 0, -1 }, + + /* 241-250 */ + { 0, 0, 1, -1, 1, 0, 0, -1, 0, -1, 1, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 2, -2, 0, 0, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -7, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 3, -8, 3, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 2, -4, 0, -3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 3, -5, 0, 2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 3, 0, -3, 0, 0, 0, 2 }, + { 0, 0, 2, -2, 2, 0, -8, 11, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 5, -8, 3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, -2, 0, 0, 0 }, + + /* 251-260 */ + { 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 5, -9, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 5, -5, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 7, -9, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 4, -7, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 2, -1, 0, 0, 0, 0, 0, 0 }, + { 1, 0, -2, -2, -2, 0, 0, -2, 0, 2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, -2, 5, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 3, -3, 0, 0, 0, 0, 0, 1 }, + + /* 261-270 */ + { 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, 2, -5, 0, 0, 2 }, + { 2, 0, 0, -2, -1, 0, 0, -2, 0, 0, 5, 0, 0, 0 }, + { 2, 0, 0, -2, -1, 0, -6, 8, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 0, -2, 0, 0, -3, 3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 8, -8, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 3, 0, 2, -5, 0, 0, 2 }, + { 0, 0, 0, 0, 1, 0, 3, -7, 4, 0, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, -2, 2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, -1, 0, 1, 0, 0, 0, 0 }, + + /* 271-280 */ + { 0, 0, 1, -1, 0, 0, 0, -1, 0, -2, 5, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 3, 0, -3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 3, -1, 0, 0, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 2, -3, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 11, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 6,-15, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 3, 0, 1, 0, 0, 0, 2 }, + { 1, 0, 0, -1, 0, 0, 0, -3, 4, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, -3, 7, -4, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 5, 0, -2, 0, 0, 0, 2 }, + + /* 281-290 */ + { 0, 0, 0, 0, 0, 0, 3, -5, 0, 0, 0, 0, 0, 1 }, + { 0, 0, 2, -2, 2, 0, -5, 6, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 2, 0, -3, 3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 4, -4, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -8, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -5, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 5, -7, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 6,-11, 0, 0, 0, 0, -2 }, + + /* 291-300 */ + { 0, 0, 0, 0, 0, 0, 0, 1, -3, 0, 0, 0, 0, -2 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, 3, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 0, 0, 0, -1, 0, 2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 1, -2, 0, 0, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 9,-12, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 4, -4, 0, 0, 0, 0, 0, 1 }, + { 0, 0, 1, -1, 0, 0, -8, 12, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, -2, 3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 7, -7, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 3, -6, 0, 0, 0, 0, -1 }, + + /* 301-310 */ + { 0, 0, 0, 0, 0, 0, 0, 6, -6, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 1, 0, -4, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 1, -1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 6, -9, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 1, -1, -1, 0, 0, 0, -2, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, -5, 0, 0, 0, 0, -2 }, + { 2, 0, 0, -2, 0, 0, 0, -2, 0, 3, -1, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, -2, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 5, -9, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 5, -6, 0, 0, 0, 0, 0, 2 }, + + /* 311-320 */ + { 0, 0, 0, 0, 0, 0, 9, -9, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, 0, 3, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, 2, -4, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 5, -3, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 1 }, + { 0, 0, 1, -1, 2, 0, 0, -1, 0, 2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 5, -9, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 5, -3, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 2 }, + { 0, 0, 2, 0, 2, 0, 0, 4, -8, 3, 0, 0, 0, 0 }, + + /* 321-330 */ + { 0, 0, 2, 0, 2, 0, 0, -4, 8, -3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 5, 0, -3, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0 }, + { 2, 0, -1, -1, -1, 0, 0, -1, 0, 3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 4, -3, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 4, -2, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 5,-10, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 8,-13, 0, 0, 0, 0, 0, 1 }, + { 0, 0, 2, -2, 1, -1, 0, 2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, 0, 0, 2, 0, 0 }, + + /* 331-340 */ + { 0, 0, 0, 0, 1, 0, 3, -5, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 0, -2, 0, 0, 0, -2, 0, 3, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 0, 0, -3, 3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 9, -9, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 2, 0, 2, 0, 1, -1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, 0, -8, 11, 0, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, 0, -2, 0, 0, 2, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, -1, 2, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 5, -5, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 2, -6, 0, 0, 0, 0, 0, -2 }, + + /* 341-350 */ + { 0, 0, 0, 0, 0, 0, 0, 8,-15, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 5, -2, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 7,-13, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 3, 0, -2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, 3, 0, 0, 0, 2 }, + { 0, 0, 2, -2, 1, 0, 0, -2, 0, 3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 8, -8, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 8,-10, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 4, -2, 0, 0, 0, 0, 0, 1 }, + + /* 351-360 */ + { 0, 0, 0, 0, 0, 0, 3, -6, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 3, -4, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, -5, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, -4, 0, 0, 0, 0 }, + { 2, 0, 0, -2, -1, 0, 0, -5, 6, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 2, -5, 0, 0, 0, 0, -2 }, + { 2, 0, -1, -1, -1, 0, 0, 3, -7, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 5, -8, 0, 0, 0, 0, 0 }, + { 0, 0, 2, 0, 2, 0, -1, 1, 0, 0, 0, 0, 0, 0 }, + + /* 361-370 */ + { 2, 0, 0, -2, 0, 0, 0, -2, 0, 4, -3, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 6,-11, 0, 0, 0, 0, 0 }, + { 2, 0, 0, -2, 1, 0, 0, -6, 8, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -8, 1, 5, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 6, -5, 0, 0, 0, 0, 2 }, + { 1, 0, -2, -2, -2, 0, -3, 3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 2, 0, 0, 0, -2, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 2, 0, 0, 4, -8, 3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 2, 0, 0, -4, 8, -3, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 1 }, + + /* 371-380 */ + { 0, 0, 0, 0, 0, 0, 0, 6, -7, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, -2, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, -2, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, -1, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 0, 1, -6, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, -5, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 3, -5, 0, 2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 7,-13, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, -2, 0, 0, 0, 2 }, + + /* 381-390 */ + { 0, 0, 1, -1, 0, 0, 0, -1, 0, 0, 2, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, -8, 15, 0, 0, 0, 0, 0 }, + { 2, 0, 0, -2, -2, 0, -3, 3, 0, 0, 0, 0, 0, 0 }, + { 2, 0, -1, -1, -1, 0, 0, -1, 0, 2, 0, 0, 0, 0 }, + { 1, 0, 2, -2, 2, 0, 0, -2, 0, 2, 0, 0, 0, 0 }, + { 1, 0, -1, 1, -1, 0,-18, 17, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 2, 0, 2, 0, 0, 1, 0, -1, 0, 0, 0, 0 }, + { 0, 0, 2, 0, 2, 0, 0, -1, 0, 1, 0, 0, 0, 0 }, + { 0, 0, 2, -2, -1, 0, -5, 6, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 2, 0, 0, -1, 0, 1, 0, 0, 0, 0 }, + + /* 391-400 */ + { 0, 0, 0, 0, 1, 0, 2, -2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 8,-16, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2 }, + { 0, 0, 0, 0, 2, 0, 0, -1, 2, 0, 0, 0, 0, 0 }, + { 2, 0, -1, -1, -2, 0, 0, -1, 0, 2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 6,-10, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, -2, 4, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 2, 0, 0, 0, 0, 2 }, + { 2, 0, 0, -2, -1, 0, 0, -2, 0, 4, -5, 0, 0, 0 }, + + /* 401-410 */ + { 2, 0, 0, -2, -1, 0, -3, 3, 0, 0, 0, 0, 0, 0 }, + { 2, 0, -1, -1, -1, 0, 0, -1, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 1, -1, 1, 0, 0, -1, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 0, -1, -1, 0, 0, -2, 2, 0, 0, 0, 0, 0 }, + { 1, 0, -1, -1, -1, 0, 20,-20, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, 0, -1, 0, 1, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 1, -2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, -2, 1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 5, -8, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, -1, 0, 0, 0 }, + + /* 411-420 */ + { 0, 0, 0, 0, 0, 0, 9,-11, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 5, -3, 0, 0, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, -3, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 6, -7, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 3, -2, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 1, -2, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, 0, -2, 0, 0, 0 }, + { 0, 0, 1, -1, 2, 0, 0, -1, 0, -2, 5, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 5, -7, 0, 0, 0, 0, 0 }, + + /* 421-430 */ + { 0, 0, 0, 0, 0, 0, 1, -3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 5, -8, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 2, -6, 0, 0, 0, 0, -2 }, + { 1, 0, 0, -2, 0, 0, 20,-21, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 8,-12, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 5, -6, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -4, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 2, 0, 0, -1, 0, -1, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 8,-12, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 9,-17, 0, 0, 0, 0, 0 }, + + /* 431-440 */ + { 0, 0, 0, 0, 0, 0, 0, 5, -6, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -8, 1, 5, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -6, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 2, -7, 0, 0, 0, 0, -2 }, + { 1, 0, 0, -1, 1, 0, 0, -3, 4, 0, 0, 0, 0, 0 }, + { 1, 0, -2, 0, -2, 0,-10, 3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, -9, 17, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 1, -4, 0, 0, 0, 0, 0, -2 }, + { 1, 0, -2, -2, -2, 0, 0, -2, 0, 3, 0, 0, 0, 0 }, + { 1, 0, -1, 1, -1, 0, 0, 1, 0, 0, 0, 0, 0, 0 }, + + /* 441-450 */ + { 0, 0, 2, -2, 2, 0, 0, -2, 0, 2, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 2, 0, 0, -1, 0, 0, 1, 0, 0, 0 }, + { 0, 0, 1, -1, 2, 0, -5, 7, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, 2, -2, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 4, -5, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 3, -4, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 2, -4, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 5,-10, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 4, 0, -4, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, -5, 0, 0, 0, -2 }, + + /* 451-460 */ + { 0, 0, 0, 0, 0, 0, 0, 1, 0, -5, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, -2, 5, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, -2, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 2, -3, 0, 0, 0, 0, 0, 1 }, + { 1, 0, 0, -2, 0, 0, 0, 1, 0, -1, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 3, -7, 4, 0, 0, 0, 0, 0 }, + { 2, 0, 2, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, -1, 0, 0, -1, 0, -1, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, 1, 0, -2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 6,-10, 0, 0, 0, 0, -2 }, + + /* 461-470 */ + { 1, 0, 0, -1, 1, 0, 0, -1, 0, 1, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, 0, 4, -8, 3, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, 0, 1, 0, -1, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, 0, -4, 8, -3, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, 0, -3, 0, 3, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, -5, 5, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 1, -3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 0, -4, 6, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, 0, 0, -1, 0, 0 }, + { 0, 0, 1, -1, 1, 0, -5, 6, 0, 0, 0, 0, 0, 0 }, + + /* 471-480 */ + { 0, 0, 0, 0, 1, 0, 3, -4, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, -2, 2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 7,-10, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 5, -5, 0, 0, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 4, -5, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 3, -8, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 2, -5, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 1, -2, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 7, -9, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 7, -8, 0, 0, 0, 0, 2 }, + + /* 481-490 */ + { 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 3, -8, 3, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, -2, 0, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 0, 2, -4, 0, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, -1, 0, 0, 0, -1 }, + { 2, 0, 0, -2, -1, 0, 0, -6, 8, 0, 0, 0, 0, 0 }, + { 2, 0, -1, -1, 1, 0, 0, 3, -7, 0, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, 0, -7, 9, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 3, -5, 0, 0, 0, 0, -1 }, + + /* 491-500 */ + { 0, 0, 1, -1, 2, 0, -8, 12, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 0, 0, 0, 0, 0, -2, 0, 2, 0, 0, 0, 0 }, + { 1, 0, 0, -2, 0, 0, 2, -2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 7, -8, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0 }, + { 2, 0, 0, -2, 1, 0, 0, -5, 6, 0, 0, 0, 0, 0 }, + { 2, 0, 0, -2, -1, 0, 0, -2, 0, 3, -1, 0, 0, 0 }, + { 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 0, -2, 1, 0, 0, -2, 0, 2, 0, 0, 0, 0 }, + { 1, 0, 0, -2, -1, 0, 0, -2, 0, 2, 0, 0, 0, 0 }, + + /* 501-510 */ + { 1, 0, 0, -1, -1, 0, 0, -3, 4, 0, 0, 0, 0, 0 }, + { 1, 0, -1, 0, -1, 0, -3, 5, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, 0, -4, 4, 0, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, 0, -2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, -8, 11, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 0, 0, 0, -9, 13, 0, 0, 0, 0, 0 }, + { 0, 0, 1, 1, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 0, 1, -4, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, 0, -1, 0, 1, -3, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, 7,-13, 0, 0, 0, 0, 0 }, + + /* 511-520 */ + { 0, 0, 0, 0, 1, 0, 0, 2, 0, -2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, -2, 2, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, -3, 4, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 1, 0, -4, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 7,-11, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 6, -6, 0, 0, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 6, -4, 0, 0, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 5, -6, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 4, -2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 3, -4, 0, 0, 0, 0, 0, 1 }, + + /* 521-530 */ + { 0, 0, 0, 0, 0, 0, 1, -4, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 9,-17, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 7, -7, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -8, 3, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -8, 3, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -8, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 4, -7, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, -4, 0, 0, 0, 0 }, + { 2, 0, 0, -2, 0, 0, 0, -4, 8, -3, 0, 0, 0, 0 }, + + /* 531-540 */ + { 2, 0, 0, -2, 0, 0, -2, 2, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 0, 0, 0, 0, 0, 4, -8, 3, 0, 0, 0, 0 }, + { 1, 0, 0, 0, 0, 0, 0, -4, 8, -3, 0, 0, 0, 0 }, + { 1, 0, 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 0, -2, 0, 0, 17,-16, 0, -2, 0, 0, 0, 0 }, + { 1, 0, 0, -1, 0, 0, 0, -2, 2, 0, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 0, 0, 0, -2, 0, 2, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 6, -9, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 3, 0, -4, 0, 0, 0, 0 }, + + /* 541-550 */ + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -2, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 2 }, + { 2, 0, 0, -2, 0, 0, 0, -4, 4, 0, 0, 0, 0, 0 }, + { 2, 0, 0, -2, 0, 0, 0, -2, 0, 2, 2, 0, 0, 0 }, + { 1, 0, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 0, 0, 0, 0, 0, -1, 0, 1, 0, 0, 0, 0 }, + { 1, 0, 0, 0, 0, 0, -3, 3, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 0, -2, 0, 0, 1, -1, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 0, -2, 0, 0, 0, 4, -8, 3, 0, 0, 0, 0 }, + { 1, 0, 0, -2, 0, 0, 0, -4, 8, -3, 0, 0, 0, 0 }, + + /* 551-560 */ + { 1, 0, 0, -2, 0, 0, -2, 2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 0, 0, -4, 4, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 0, 0, 3, -6, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 0, 0, 0, -2, 2, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 0, 0, 0, -1, 0, 1, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 0, 0, 0, -1, 0, 0, 1, 0, 0, 0 }, + { 0, 0, 1, -1, 0, 0, -4, 5, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 0, 0, -3, 4, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 2, 0, 0, 0, -1, 0, 1, 0, 0, 0, 0 }, + + /* 561-570 */ + { 0, 0, 0, 0, 0, 0, 8, -9, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 3, -6, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, -5, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, -2, 0, 0, 0 }, + { 2, 0, -2, -2, -2, 0, 0, -2, 0, 2, 0, 0, 0, 0 }, + { 1, 0, 0, 0, 1, 0,-10, 3, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 0, 0, -1, 0,-10, 3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 2, 0, 2, 0, 2, -3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 2, 0, 2, 0, 2, -2, 0, 0, 0, 0, 0, 0 }, + + /* 571-580 */ + { 0, 0, 2, 0, 2, 0, -2, 3, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 2, 0, 2, 0, -2, 2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 2, 0, 0, 0, 0, 1, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, 0, -1, 0, 2, 0, 0, 0, 0 }, + { 2, 0, 2, -2, 2, 0, 0, -2, 0, 3, 0, 0, 0, 0 }, + { 2, 0, 1, -3, 1, 0, -6, 7, 0, 0, 0, 0, 0, 0 }, + { 2, 0, 0, -2, 0, 0, 2, -5, 0, 0, 0, 0, 0, 0 }, + { 2, 0, 0, -2, 0, 0, 0, -2, 0, 5, -5, 0, 0, 0 }, + { 2, 0, 0, -2, 0, 0, 0, -2, 0, 1, 5, 0, 0, 0 }, + { 2, 0, 0, -2, 0, 0, 0, -2, 0, 0, 5, 0, 0, 0 }, + + /* 581-590 */ + { 2, 0, 0, -2, 0, 0, 0, -2, 0, 0, 2, 0, 0, 0 }, + { 2, 0, 0, -2, 0, 0, -4, 4, 0, 0, 0, 0, 0, 0 }, + { 2, 0, -2, 0, -2, 0, 0, 5, -9, 0, 0, 0, 0, 0 }, + { 2, 0, -1, -1, 0, 0, 0, -1, 0, 3, 0, 0, 0, 0 }, + { 1, 0, 2, 0, 2, 0, 1, -1, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 2, 0, 2, 0, 0, 4, -8, 3, 0, 0, 0, 0 }, + { 1, 0, 2, 0, 2, 0, 0, -4, 8, -3, 0, 0, 0, 0 }, + { 1, 0, 2, 0, 2, 0, -1, 1, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 2, -2, 2, 0, -3, 3, 0, 0, 0, 0, 0, 0 }, + { 1, 0, 0, 0, 0, 0, 0, 1, 0, -1, 0, 0, 0, 0 }, + + /* 591-600 */ + { 1, 0, 0, 0, 0, 0, 0, -2, 0, 3, 0, 0, 0, 0 }, + { 1, 0, 0, -2, 0, 0, 0, 2, 0, -2, 0, 0, 0, 0 }, + { 1, 0, -2, -2, -2, 0, 0, 1, 0, -1, 0, 0, 0, 0 }, + { 1, 0, -1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0 }, + { 1, 0, -1, -1, 0, 0, 0, 8,-15, 0, 0, 0, 0, 0 }, + { 0, 0, 2, 2, 2, 0, 0, 2, 0, -2, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, 1, -1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, 0, -2, 0, 1, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 1, 0, 0,-10, 15, 0, 0, 0, 0, 0 }, + { 0, 0, 2, -2, 0, -1, 0, 2, 0, 0, 0, 0, 0, 0 }, + + /* 601-610 */ + { 0, 0, 1, -1, 2, 0, 0, -1, 0, 0, -1, 0, 0, 0 }, + { 0, 0, 1, -1, 2, 0, -3, 4, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, -4, 6, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 1, 0, -1, 2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 0, 0, 0, -1, 0, 0, -2, 0, 0, 0 }, + { 0, 0, 1, -1, 0, 0, -2, 2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 1, -1, -1, 0, -5, 7, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 2, 0, 0, 0, 2, 0, -2, 0, 0, 0, 0 }, + + /* 611-620 */ + { 0, 0, 0, 2, 0, 0, -2, 2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 2, 0, -3, 5, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 1, 0, -1, 2, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 9,-13, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 8,-14, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 8,-11, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 6, -9, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 6, -8, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 6, -7, 0, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 5, -6, 0, 0, 0, 0, 0, -2 }, + + /* 621-630 */ + { 0, 0, 0, 0, 0, 0, 5, -6, -4, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 5, -4, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 4, -8, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 4, -5, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 3, -3, 0, 2, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 3, -1, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 7,-12, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 6, -9, 0, 0, 0, 0, -2 }, + + /* 631-640 */ + { 0, 0, 0, 0, 0, 0, 0, 6, -8, 1, 5, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 6, -4, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 6,-10, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 5, 0, -4, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 5, -9, 0, 0, 0, 0, -1 }, + { 0, 0, 0, 0, 0, 0, 0, 5, -8, 3, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 5, -7, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 5, -6, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 5,-16, 4, 5, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 5,-13, 0, 0, 0, 0, -2 }, + + /* 641-650 */ + { 0, 0, 0, 0, 0, 0, 0, 3, 0, -5, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 3, -9, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 3, -7, 0, 0, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, 2, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, -3, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 2, -8, 1, 5, 0, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, -5, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, -3, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 1, 0, -3, 5, 0, 0, 0 }, + + /* 651-NFPL */ + { 0, 0, 0, 0, 0, 0, 0, 1, -3, 0, 0, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, -6, 3, 0, -2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -2, 0, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2 }, + { 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0 } + }; + +/* Number of frequencies: planetary */ + static const int NFPL = (int) (sizeof mfapl / sizeof (int) / 14); + +/* Pointers into amplitudes array, one pointer per frequency */ + static const int nc[] = { + + /* 1-100 */ + 1, 21, 37, 51, 65, 79, 91, 103, 115, 127, + 139, 151, 163, 172, 184, 196, 207, 219, 231, 240, + 252, 261, 273, 285, 297, 309, 318, 327, 339, 351, + 363, 372, 384, 396, 405, 415, 423, 435, 444, 452, + 460, 467, 474, 482, 490, 498, 506, 513, 521, 528, + 536, 543, 551, 559, 566, 574, 582, 590, 597, 605, + 613, 620, 628, 636, 644, 651, 658, 666, 674, 680, + 687, 695, 702, 710, 717, 725, 732, 739, 746, 753, + 760, 767, 774, 782, 790, 798, 805, 812, 819, 826, + 833, 840, 846, 853, 860, 867, 874, 881, 888, 895, + + /* 101-200 */ + 901, 908, 914, 921, 928, 934, 941, 948, 955, 962, + 969, 976, 982, 989, 996, 1003, 1010, 1017, 1024, 1031, + 1037, 1043, 1050, 1057, 1064, 1071, 1078, 1084, 1091, 1098, + 1104, 1112, 1118, 1124, 1131, 1138, 1145, 1151, 1157, 1164, + 1171, 1178, 1185, 1192, 1199, 1205, 1212, 1218, 1226, 1232, + 1239, 1245, 1252, 1259, 1266, 1272, 1278, 1284, 1292, 1298, + 1304, 1310, 1316, 1323, 1329, 1335, 1341, 1347, 1353, 1359, + 1365, 1371, 1377, 1383, 1389, 1396, 1402, 1408, 1414, 1420, + 1426, 1434, 1440, 1446, 1452, 1459, 1465, 1471, 1477, 1482, + 1488, 1493, 1499, 1504, 1509, 1514, 1520, 1527, 1532, 1538, + + /* 201-300 */ + 1543, 1548, 1553, 1558, 1564, 1569, 1574, 1579, 1584, 1589, + 1594, 1596, 1598, 1600, 1602, 1605, 1608, 1610, 1612, 1617, + 1619, 1623, 1625, 1627, 1629, 1632, 1634, 1640, 1642, 1644, + 1646, 1648, 1650, 1652, 1654, 1658, 1660, 1662, 1664, 1668, + 1670, 1672, 1673, 1675, 1679, 1681, 1683, 1684, 1686, 1688, + 1690, 1693, 1695, 1697, 1701, 1703, 1705, 1707, 1709, 1711, + 1712, 1715, 1717, 1721, 1723, 1725, 1727, 1729, 1731, 1733, + 1735, 1737, 1739, 1741, 1743, 1745, 1747, 1749, 1751, 1753, + 1755, 1757, 1759, 1761, 1762, 1764, 1766, 1768, 1769, 1771, + 1773, 1775, 1777, 1779, 1781, 1783, 1785, 1787, 1788, 1790, + + /* 301-400 */ + 1792, 1794, 1796, 1798, 1800, 1802, 1804, 1806, 1807, 1809, + 1811, 1815, 1817, 1819, 1821, 1823, 1825, 1827, 1829, 1831, + 1833, 1835, 1837, 1839, 1840, 1842, 1844, 1848, 1850, 1852, + 1854, 1856, 1858, 1859, 1860, 1862, 1864, 1866, 1868, 1869, + 1871, 1873, 1875, 1877, 1879, 1881, 1883, 1885, 1887, 1889, + 1891, 1892, 1896, 1898, 1900, 1901, 1903, 1905, 1907, 1909, + 1910, 1911, 1913, 1915, 1919, 1921, 1923, 1927, 1929, 1931, + 1933, 1935, 1937, 1939, 1943, 1945, 1947, 1948, 1949, 1951, + 1953, 1955, 1957, 1958, 1960, 1962, 1964, 1966, 1968, 1970, + 1971, 1973, 1974, 1975, 1977, 1979, 1980, 1981, 1982, 1984, + + /* 401-500 */ + 1986, 1988, 1990, 1992, 1994, 1995, 1997, 1999, 2001, 2003, + 2005, 2007, 2008, 2009, 2011, 2013, 2015, 2017, 2019, 2021, + 2023, 2024, 2025, 2027, 2029, 2031, 2033, 2035, 2037, 2041, + 2043, 2045, 2046, 2047, 2049, 2051, 2053, 2055, 2056, 2057, + 2059, 2061, 2063, 2065, 2067, 2069, 2070, 2071, 2072, 2074, + 2076, 2078, 2080, 2082, 2084, 2086, 2088, 2090, 2092, 2094, + 2095, 2096, 2097, 2099, 2101, 2105, 2106, 2107, 2108, 2109, + 2110, 2111, 2113, 2115, 2119, 2121, 2123, 2125, 2127, 2129, + 2131, 2133, 2135, 2136, 2137, 2139, 2141, 2143, 2145, 2147, + 2149, 2151, 2153, 2155, 2157, 2159, 2161, 2163, 2165, 2167, + + /* 501-600 */ + 2169, 2171, 2173, 2175, 2177, 2179, 2181, 2183, 2185, 2186, + 2187, 2188, 2192, 2193, 2195, 2197, 2199, 2201, 2203, 2205, + 2207, 2209, 2211, 2213, 2217, 2219, 2221, 2223, 2225, 2227, + 2229, 2231, 2233, 2234, 2235, 2236, 2237, 2238, 2239, 2240, + 2241, 2244, 2246, 2248, 2250, 2252, 2254, 2256, 2258, 2260, + 2262, 2264, 2266, 2268, 2270, 2272, 2274, 2276, 2278, 2280, + 2282, 2284, 2286, 2288, 2290, 2292, 2294, 2296, 2298, 2300, + 2302, 2303, 2304, 2305, 2306, 2307, 2309, 2311, 2313, 2315, + 2317, 2319, 2321, 2323, 2325, 2327, 2329, 2331, 2333, 2335, + 2337, 2341, 2343, 2345, 2347, 2349, 2351, 2352, 2355, 2356, + + /* 601-700 */ + 2357, 2358, 2359, 2361, 2363, 2364, 2365, 2366, 2367, 2368, + 2369, 2370, 2371, 2372, 2373, 2374, 2376, 2378, 2380, 2382, + 2384, 2385, 2386, 2387, 2388, 2389, 2390, 2391, 2392, 2393, + 2394, 2395, 2396, 2397, 2398, 2399, 2400, 2401, 2402, 2403, + 2404, 2405, 2406, 2407, 2408, 2409, 2410, 2411, 2412, 2413, + 2414, 2415, 2417, 2418, 2430, 2438, 2445, 2453, 2460, 2468, + 2474, 2480, 2488, 2496, 2504, 2512, 2520, 2527, 2535, 2543, + 2550, 2558, 2566, 2574, 2580, 2588, 2596, 2604, 2612, 2619, + 2627, 2634, 2642, 2648, 2656, 2664, 2671, 2679, 2685, 2693, + 2701, 2709, 2717, 2725, 2733, 2739, 2747, 2753, 2761, 2769, + + /* 701-800 */ + 2777, 2785, 2793, 2801, 2809, 2817, 2825, 2833, 2841, 2848, + 2856, 2864, 2872, 2878, 2884, 2892, 2898, 2906, 2914, 2922, + 2930, 2938, 2944, 2952, 2958, 2966, 2974, 2982, 2988, 2996, + 3001, 3009, 3017, 3025, 3032, 3039, 3045, 3052, 3059, 3067, + 3069, 3076, 3083, 3090, 3098, 3105, 3109, 3111, 3113, 3120, + 3124, 3128, 3132, 3136, 3140, 3144, 3146, 3150, 3158, 3161, + 3165, 3166, 3168, 3172, 3176, 3180, 3182, 3185, 3189, 3193, + 3194, 3197, 3200, 3204, 3208, 3212, 3216, 3219, 3221, 3222, + 3226, 3230, 3234, 3238, 3242, 3243, 3247, 3251, 3254, 3258, + 3262, 3266, 3270, 3274, 3275, 3279, 3283, 3287, 3289, 3293, + + /* 801-900 */ + 3296, 3300, 3303, 3307, 3311, 3315, 3319, 3321, 3324, 3327, + 3330, 3334, 3338, 3340, 3342, 3346, 3350, 3354, 3358, 3361, + 3365, 3369, 3373, 3377, 3381, 3385, 3389, 3393, 3394, 3398, + 3402, 3406, 3410, 3413, 3417, 3421, 3425, 3429, 3433, 3435, + 3439, 3443, 3446, 3450, 3453, 3457, 3458, 3461, 3464, 3468, + 3472, 3476, 3478, 3481, 3485, 3489, 3493, 3497, 3501, 3505, + 3507, 3511, 3514, 3517, 3521, 3524, 3525, 3527, 3529, 3533, + 3536, 3540, 3541, 3545, 3548, 3551, 3555, 3559, 3563, 3567, + 3569, 3570, 3574, 3576, 3578, 3582, 3586, 3590, 3593, 3596, + 3600, 3604, 3608, 3612, 3616, 3620, 3623, 3626, 3630, 3632, + + /* 901-1000 */ + 3636, 3640, 3643, 3646, 3648, 3652, 3656, 3660, 3664, 3667, + 3669, 3671, 3675, 3679, 3683, 3687, 3689, 3693, 3694, 3695, + 3699, 3703, 3705, 3707, 3710, 3713, 3717, 3721, 3725, 3729, + 3733, 3736, 3740, 3744, 3748, 3752, 3754, 3757, 3759, 3763, + 3767, 3770, 3773, 3777, 3779, 3783, 3786, 3790, 3794, 3798, + 3801, 3805, 3809, 3813, 3817, 3821, 3825, 3827, 3831, 3835, + 3836, 3837, 3840, 3844, 3848, 3852, 3856, 3859, 3863, 3867, + 3869, 3871, 3875, 3879, 3883, 3887, 3890, 3894, 3898, 3901, + 3905, 3909, 3913, 3917, 3921, 3922, 3923, 3924, 3926, 3930, + 3932, 3936, 3938, 3940, 3944, 3948, 3952, 3956, 3959, 3963, + + /* 1001-1100 */ + 3965, 3969, 3973, 3977, 3979, 3981, 3982, 3986, 3989, 3993, + 3997, 4001, 4004, 4006, 4009, 4012, 4016, 4020, 4024, 4026, + 4028, 4032, 4036, 4040, 4044, 4046, 4050, 4054, 4058, 4060, + 4062, 4063, 4064, 4068, 4071, 4075, 4077, 4081, 4083, 4087, + 4089, 4091, 4095, 4099, 4101, 4103, 4105, 4107, 4111, 4115, + 4119, 4123, 4127, 4129, 4131, 4135, 4139, 4141, 4143, 4145, + 4149, 4153, 4157, 4161, 4165, 4169, 4173, 4177, 4180, 4183, + 4187, 4191, 4195, 4198, 4201, 4205, 4209, 4212, 4213, 4216, + 4217, 4221, 4223, 4226, 4230, 4234, 4236, 4240, 4244, 4248, + 4252, 4256, 4258, 4262, 4264, 4266, 4268, 4270, 4272, 4276, + + /* 1101-1200 */ + 4279, 4283, 4285, 4287, 4289, 4293, 4295, 4299, 4300, 4301, + 4305, 4309, 4313, 4317, 4319, 4323, 4325, 4329, 4331, 4333, + 4335, 4337, 4341, 4345, 4349, 4351, 4353, 4357, 4361, 4365, + 4367, 4369, 4373, 4377, 4381, 4383, 4387, 4389, 4391, 4395, + 4399, 4403, 4407, 4411, 4413, 4414, 4415, 4418, 4419, 4421, + 4423, 4427, 4429, 4431, 4433, 4435, 4437, 4439, 4443, 4446, + 4450, 4452, 4456, 4458, 4460, 4462, 4466, 4469, 4473, 4477, + 4481, 4483, 4487, 4489, 4491, 4493, 4497, 4499, 4501, 4504, + 4506, 4510, 4513, 4514, 4515, 4518, 4521, 4522, 4525, 4526, + 4527, 4530, 4533, 4534, 4537, 4541, 4542, 4543, 4544, 4545, + + /* 1201-1300 */ + 4546, 4547, 4550, 4553, 4554, 4555, 4558, 4561, 4564, 4567, + 4568, 4571, 4574, 4575, 4578, 4581, 4582, 4585, 4586, 4588, + 4590, 4592, 4596, 4598, 4602, 4604, 4608, 4612, 4613, 4616, + 4619, 4622, 4623, 4624, 4625, 4626, 4629, 4632, 4633, 4636, + 4639, 4640, 4641, 4642, 4643, 4644, 4645, 4648, 4649, 4650, + 4651, 4652, 4653, 4656, 4657, 4660, 4661, 4664, 4667, 4670, + 4671, 4674, 4675, 4676, 4677, 4678, 4681, 4682, 4683, 4684, + 4687, 4688, 4689, 4692, 4693, 4696, 4697, 4700, 4701, 4702, + 4703, 4704, 4707, 4708, 4711, 4712, 4715, 4716, 4717, 4718, + 4719, 4720, 4721, 4722, 4723, 4726, 4729, 4730, 4733, 4736, + + /* 1301-(NFLS+NFPL) */ + 4737, 4740, 4741, 4742, 4745, 4746, 4749, 4752, 4753 + }; + +/* Amplitude coefficients (microarcsec); indexed using the nc array. */ + static const double a[] = { + + /* 1-105 */ + -6844318.44, 9205236.26,1328.67,1538.18, 205833.11, + 153041.79, -3309.73, 853.32,2037.98, -2301.27, + 81.46, 120.56, -20.39, -15.22, 1.73, -1.61, -0.10, 0.11, + -0.02, -0.02, -523908.04, 573033.42,-544.75,-458.66, + 12814.01, 11714.49, 198.97,-290.91, 155.74,-143.27, + -2.75, -1.03, -1.27, -1.16, 0.00, -0.01, -90552.22, + 97846.69, 111.23, 137.41,2187.91,2024.68, 41.44, -51.26, + 26.92, -24.46, -0.46, -0.28, -0.22, -0.20, 82168.76, + -89618.24, -27.64, -29.05, -2004.36, -1837.32, + -36.07, 48.00, -24.43, 22.41, 0.47, 0.24, 0.20, 0.18, + 58707.02,7387.02, 470.05,-192.40, 164.33, -1312.21, + -179.73, -28.93, -17.36, -1.83, -0.50, 3.57, 0.00, 0.13, + -20557.78, 22438.42, -20.84, -17.40, 501.82, 459.68, + 59.20, -67.30, 6.08, -5.61, -1.36, -1.19, 28288.28, + -674.99, -34.69, 35.80, -15.07,-632.54, -11.19, 0.78, -8.41, + 0.17, 0.01, 0.07, -15406.85, 20069.50, 15.12, + + /* 106-219 */ + 31.80, 448.76, 344.50, -5.77, 1.41, 4.59, -5.02, 0.17, + 0.24, -11991.74, 12902.66, 32.46, 36.70, 288.49, + 268.14, 5.70, -7.06, 3.57, -3.23, -0.06, -0.04, + -8584.95, -9592.72, 4.42, -13.20,-214.50, 192.06, + 23.87, 29.83, 2.54, 2.40, 0.60, -0.48,5095.50, + -6918.22, 7.19, 3.92,-154.91,-113.94, 2.86, -1.04, + -1.52, 1.73, -0.07, -0.10, -4910.93, -5331.13, + 0.76, 0.40,-119.21, 109.81, 2.16, 3.20, 1.46, 1.33, + 0.04, -0.02, -6245.02,-123.48, -6.68, -8.20, -2.76, + 139.64, 2.71, 0.15, 1.86,2511.85, -3323.89, 1.07, + -0.90, -74.33, -56.17, 1.16, -0.01, -0.75, 0.83, -0.02, + -0.04,2307.58,3143.98, -7.52, 7.50, 70.31, -51.60, 1.46, + 0.16, -0.69, -0.79, 0.02, -0.05,2372.58,2554.51, 5.93, + -6.60, 57.12, -53.05, -0.96, -1.24, -0.71, -0.64, -0.01, + -2053.16,2636.13, 5.13, 7.80, 58.94, 45.91, -0.42, + -0.12, 0.61, -0.66, 0.02, 0.03, -1825.49, + + /* 220-339 */ + -2423.59, 1.23, -2.00, -54.19, 40.82, -1.07, -1.02, + 0.54, 0.61, -0.04, 0.04,2521.07,-122.28, -5.97, 2.90, + -2.73, -56.37, -0.82, 0.13, -0.75, -1534.09,1645.01, + 6.29, 6.80, 36.78, 34.30, 0.92, -1.25, 0.46, -0.41, + -0.02, -0.01,1898.27, 47.70, -0.72, 2.50, 1.07, -42.45, + -0.94, 0.02, -0.56, -1292.02, -1387.00, 0.00, + 0.00, -31.01, 28.89, 0.68, 0.00, 0.38, 0.35, -0.01, + -0.01, -1234.96,1323.81, 5.21, 5.90, 29.60, 27.61, + 0.74, -1.22, 0.37, -0.33, -0.02, -0.01,1137.48, + -1233.89, -0.04, -0.30, -27.59, -25.43, -0.61, 1.00, + -0.34, 0.31, 0.01, 0.01,-813.13, -1075.60, 0.40, + 0.30, -24.05, 18.18, -0.40, -0.01, 0.24, 0.27, -0.01, + 0.01,1163.22, -60.90, -2.94, 1.30, -1.36, -26.01, -0.58, + 0.07, -0.35,1029.70, -55.55, -2.63, 1.10, -1.25, -23.02, + -0.52, 0.06, -0.31,-556.26, 852.85, 3.16, -4.48, 19.06, + 12.44, -0.81, -0.27, 0.17, -0.21, 0.00, 0.02,-603.52, + + /* 340-467 */ + -800.34, 0.44, 0.10, -17.90, 13.49, -0.08, -0.01, 0.18, + 0.20, -0.01, 0.01,-628.24, 684.99, -0.64, -0.50, 15.32, + 14.05, 3.18, -4.19, 0.19, -0.17, -0.09, -0.07,-866.48, + -16.26, 0.52, -1.30, -0.36, 19.37, 0.43, -0.01, 0.26, + -512.37, 695.54, -1.47, -1.40, 15.55, 11.46, -0.16, 0.03, + 0.15, -0.17, 0.01, 0.01, 506.65, 643.75, 2.54, -2.62, + 14.40, -11.33, -0.77, -0.06, -0.15, -0.16, 0.00, 0.01, + 664.57, 16.81, -0.40, 1.00, 0.38, -14.86, -3.71, -0.09, + -0.20, 405.91, 522.11, 0.99, -1.50, 11.67, -9.08, -0.25, + -0.02, -0.12, -0.13,-305.78, 326.60, 1.75, 1.90, 7.30, + 6.84, 0.20, -0.04, 300.99,-325.03, -0.44, -0.50, -7.27, + -6.73, -1.01, 0.01, 0.00, 0.08, 0.00, 0.02, 438.51, + 10.47, -0.56, -0.20, 0.24, -9.81, -0.24, 0.01, -0.13, + -264.02, 335.24, 0.99, 1.40, 7.49, 5.90, -0.27, -0.02, + 284.09, 307.03, 0.32, -0.40, 6.87, -6.35, -0.99, -0.01, + -250.54, 327.11, 0.08, 0.40, 7.31, 5.60, -0.30, 230.72, + + /* 468-595 */ + -304.46, 0.08, -0.10, -6.81, -5.16, 0.27, 229.78, 304.17, + -0.60, 0.50, 6.80, -5.14, 0.33, 0.01, 256.30,-276.81, + -0.28, -0.40, -6.19, -5.73, -0.14, 0.01,-212.82, 269.45, + 0.84, 1.20, 6.02, 4.76, 0.14, -0.02, 196.64, 272.05, + -0.84, 0.90, 6.08, -4.40, 0.35, 0.02, 188.95, 272.22, + -0.12, 0.30, 6.09, -4.22, 0.34,-292.37, -5.10, -0.32, + -0.40, -0.11, 6.54, 0.14, 0.01, 161.79,-220.67, 0.24, + 0.10, -4.93, -3.62, -0.08, 261.54, -19.94, -0.95, 0.20, + -0.45, -5.85, -0.13, 0.02, 142.16,-190.79, 0.20, 0.10, + -4.27, -3.18, -0.07, 187.95, -4.11, -0.24, 0.30, -0.09, + -4.20, -0.09, 0.01, 0.00, 0.00, -79.08, 167.90, 0.04, + 0.00, 3.75, 1.77, 121.98, 131.04, -0.08, 0.10, 2.93, + -2.73, -0.06,-172.95, -8.11, -0.40, -0.20, -0.18, 3.87, + 0.09, 0.01,-160.15, -55.30, -14.04, 13.90, -1.23, 3.58, + 0.40, 0.31,-115.40, 123.20, 0.60, 0.70, 2.75, 2.58, + 0.08, -0.01,-168.26, -2.00, 0.20, -0.20, -0.04, 3.76, + + /* 596-723 */ + 0.08,-114.49, 123.20, 0.32, 0.40, 2.75, 2.56, 0.07, + -0.01, 112.14, 120.70, 0.28, -0.30, 2.70, -2.51, -0.07, + -0.01, 161.34, 4.03, 0.20, 0.20, 0.09, -3.61, -0.08, + 91.31, 126.64, -0.40, 0.40, 2.83, -2.04, -0.04, 0.01, + 105.29, 112.90, 0.44, -0.50, 2.52, -2.35, -0.07, -0.01, + 98.69,-106.20, -0.28, -0.30, -2.37, -2.21, -0.06, 0.01, + 86.74,-112.94, -0.08, -0.20, -2.53, -1.94, -0.05,-134.81, + 3.51, 0.20, -0.20, 0.08, 3.01, 0.07, 79.03, 107.31, + -0.24, 0.20, 2.40, -1.77, -0.04, 0.01, 132.81, -10.77, + -0.52, 0.10, -0.24, -2.97, -0.07, 0.01,-130.31, -0.90, + 0.04, 0.00, 0.00, 2.91, -78.56, 85.32, 0.00, 0.00, + 1.91, 1.76, 0.04, 0.00, 0.00, -41.53, 89.10, 0.02, + 0.00, 1.99, 0.93, 66.03, -71.00, -0.20, -0.20, -1.59, + -1.48, -0.04, 60.50, 64.70, 0.36, -0.40, 1.45, -1.35, + -0.04, -0.01, -52.27, -70.01, 0.00, 0.00, -1.57, 1.17, + 0.03, -52.95, 66.29, 0.32, 0.40, 1.48, 1.18, 0.04, + + /* 724-851 */ + -0.01, 51.02, 67.25, 0.00, 0.00, 1.50, -1.14, -0.03, + -55.66, -60.92, 0.16, -0.20, -1.36, 1.24, 0.03, -54.81, + -59.20, -0.08, 0.20, -1.32, 1.23, 0.03, 51.32, -55.60, + 0.00, 0.00, -1.24, -1.15, -0.03, 48.29, 51.80, 0.20, + -0.20, 1.16, -1.08, -0.03, -45.59, -49.00, -0.12, 0.10, + -1.10, 1.02, 0.03, 40.54, -52.69, -0.04, -0.10, -1.18, + -0.91, -0.02, -40.58, -49.51, -1.00, 1.00, -1.11, 0.91, + 0.04, 0.02, -43.76, 46.50, 0.36, 0.40, 1.04, 0.98, + 0.03, -0.01, 62.65, -5.00, -0.24, 0.00, -0.11, -1.40, + -0.03, 0.01, -38.57, 49.59, 0.08, 0.10, 1.11, 0.86, + 0.02, -33.22, -44.04, 0.08, -0.10, -0.98, 0.74, 0.02, + 37.15, -39.90, -0.12, -0.10, -0.89, -0.83, -0.02, 36.68, + -39.50, -0.04, -0.10, -0.88, -0.82, -0.02, -53.22, -3.91, + -0.20, 0.00, -0.09, 1.19, 0.03, 32.43, -42.19, -0.04, + -0.10, -0.94, -0.73, -0.02, -51.00, -2.30, -0.12, -0.10, + 0.00, 1.14, -29.53, -39.11, 0.04, 0.00, -0.87, 0.66, + + /* 852-979 */ + 0.02, 28.50, -38.92, -0.08, -0.10, -0.87, -0.64, -0.02, + 26.54, 36.95, -0.12, 0.10, 0.83, -0.59, -0.01, 26.54, + 34.59, 0.04, -0.10, 0.77, -0.59, -0.02, 28.35, -32.55, + -0.16, 0.20, -0.73, -0.63, -0.01, -28.00, 30.40, 0.00, + 0.00, 0.68, 0.63, 0.01, -27.61, 29.40, 0.20, 0.20, + 0.66, 0.62, 0.02, 40.33, 0.40, -0.04, 0.10, 0.00, + -0.90, -23.28, 31.61, -0.08, -0.10, 0.71, 0.52, 0.01, + 37.75, 0.80, 0.04, 0.10, 0.00, -0.84, 23.66, 25.80, + 0.00, 0.00, 0.58, -0.53, -0.01, 21.01, -27.91, 0.00, + 0.00, -0.62, -0.47, -0.01, -34.81, 2.89, 0.04, 0.00, + 0.00, 0.78, -23.49, -25.31, 0.00, 0.00, -0.57, 0.53, + 0.01, -23.47, 25.20, 0.16, 0.20, 0.56, 0.52, 0.02, + 19.58, 27.50, -0.12, 0.10, 0.62, -0.44, -0.01, -22.67, + -24.40, -0.08, 0.10, -0.55, 0.51, 0.01, -19.97, 25.00, + 0.12, 0.20, 0.56, 0.45, 0.01, 21.28, -22.80, -0.08, + -0.10, -0.51, -0.48, -0.01, -30.47, 0.91, 0.04, 0.00, + + /* 980-1107 */ + 0.00, 0.68, 18.58, 24.00, 0.04, -0.10, 0.54, -0.42, + -0.01, -18.02, 24.40, -0.04, -0.10, 0.55, 0.40, 0.01, + 17.74, 22.50, 0.08, -0.10, 0.50, -0.40, -0.01, -19.41, + 20.70, 0.08, 0.10, 0.46, 0.43, 0.01, -18.64, 20.11, + 0.00, 0.00, 0.45, 0.42, 0.01, -16.75, 21.60, 0.04, + 0.10, 0.48, 0.37, 0.01, -18.42, -20.00, 0.00, 0.00, + -0.45, 0.41, 0.01, -26.77, 1.41, 0.08, 0.00, 0.00, + 0.60, -26.17, -0.19, 0.00, 0.00, 0.00, 0.59, -15.52, + 20.51, 0.00, 0.00, 0.46, 0.35, 0.01, -25.42, -1.91, + -0.08, 0.00, -0.04, 0.57, 0.45, -17.42, 18.10, 0.00, + 0.00, 0.40, 0.39, 0.01, 16.39, -17.60, -0.08, -0.10, + -0.39, -0.37, -0.01, -14.37, 18.91, 0.00, 0.00, 0.42, + 0.32, 0.01, 23.39, -2.40, -0.12, 0.00, 0.00, -0.52, + 14.32, -18.50, -0.04, -0.10, -0.41, -0.32, -0.01, 15.69, + 17.08, 0.00, 0.00, 0.38, -0.35, -0.01, -22.99, 0.50, + 0.04, 0.00, 0.00, 0.51, 0.00, 0.00, 14.47, -17.60, + + /* 1108-1235 */ + -0.01, 0.00, -0.39, -0.32, -13.33, 18.40, -0.04, -0.10, + 0.41, 0.30, 22.47, -0.60, -0.04, 0.00, 0.00, -0.50, + -12.78, -17.41, 0.04, 0.00, -0.39, 0.29, 0.01, -14.10, + -15.31, 0.04, 0.00, -0.34, 0.32, 0.01, 11.98, 16.21, + -0.04, 0.00, 0.36, -0.27, -0.01, 19.65, -1.90, -0.08, + 0.00, 0.00, -0.44, 19.61, -1.50, -0.08, 0.00, 0.00, + -0.44, 13.41, -14.30, -0.04, -0.10, -0.32, -0.30, -0.01, + -13.29, 14.40, 0.00, 0.00, 0.32, 0.30, 0.01, 11.14, + -14.40, -0.04, 0.00, -0.32, -0.25, -0.01, 12.24, -13.38, + 0.04, 0.00, -0.30, -0.27, -0.01, 10.07, -13.81, 0.04, + 0.00, -0.31, -0.23, -0.01, 10.46, 13.10, 0.08, -0.10, + 0.29, -0.23, -0.01, 16.55, -1.71, -0.08, 0.00, 0.00, + -0.37, 9.75, -12.80, 0.00, 0.00, -0.29, -0.22, -0.01, + 9.11, 12.80, 0.00, 0.00, 0.29, -0.20, 0.00, 0.00, + -6.44, -13.80, 0.00, 0.00, -0.31, 0.14, -9.19, -12.00, + 0.00, 0.00, -0.27, 0.21, -10.30, 10.90, 0.08, 0.10, + + /* 1236-1363 */ + 0.24, 0.23, 0.01, 14.92, -0.80, -0.04, 0.00, 0.00, + -0.33, 10.02, -10.80, 0.00, 0.00, -0.24, -0.22, -0.01, + -9.75, 10.40, 0.04, 0.00, 0.23, 0.22, 0.01, 9.67, + -10.40, -0.04, 0.00, -0.23, -0.22, -0.01, -8.28, -11.20, + 0.04, 0.00, -0.25, 0.19, 13.32, -1.41, -0.08, 0.00, + 0.00, -0.30, 8.27, 10.50, 0.04, 0.00, 0.23, -0.19, + 0.00, 0.00, 13.13, 0.00, 0.00, 0.00, 0.00, -0.29, + -12.93, 0.70, 0.04, 0.00, 0.00, 0.29, 7.91, -10.20, + 0.00, 0.00, -0.23, -0.18, -7.84, -10.00, -0.04, 0.00, + -0.22, 0.18, 7.44, 9.60, 0.00, 0.00, 0.21, -0.17, + -7.64, 9.40, 0.08, 0.10, 0.21, 0.17, 0.01, -11.38, + 0.60, 0.04, 0.00, 0.00, 0.25, -7.48, 8.30, 0.00, + 0.00, 0.19, 0.17, -10.98, -0.20, 0.00, 0.00, 0.00, + 0.25, 10.98, 0.20, 0.00, 0.00, 0.00, -0.25, 7.40, + -7.90, -0.04, 0.00, -0.18, -0.17, -6.09, 8.40, -0.04, + 0.00, 0.19, 0.14, -6.94, -7.49, 0.00, 0.00, -0.17, + + /* 1364-1491 */ + 0.16, 6.92, 7.50, 0.04, 0.00, 0.17, -0.15, 6.20, + 8.09, 0.00, 0.00, 0.18, -0.14, -6.12, 7.80, 0.04, + 0.00, 0.17, 0.14, 5.85, -7.50, 0.00, 0.00, -0.17, + -0.13, -6.48, 6.90, 0.08, 0.10, 0.15, 0.14, 0.01, + 6.32, 6.90, 0.00, 0.00, 0.15, -0.14, 5.61, -7.20, + 0.00, 0.00, -0.16, -0.13, 9.07, 0.00, 0.00, 0.00, + 0.00, -0.20, 5.25, 6.90, 0.00, 0.00, 0.15, -0.12, + -8.47, -0.40, 0.00, 0.00, 0.00, 0.19, 6.32, -5.39, + -1.11, 1.10, -0.12, -0.14, 0.02, 0.02, 5.73, -6.10, + -0.04, 0.00, -0.14, -0.13, 4.70, 6.60, -0.04, 0.00, + 0.15, -0.11, -4.90, -6.40, 0.00, 0.00, -0.14, 0.11, + -5.33, 5.60, 0.04, 0.10, 0.13, 0.12, 0.01, -4.81, + 6.00, 0.04, 0.00, 0.13, 0.11, 5.13, 5.50, 0.04, + 0.00, 0.12, -0.11, 4.50, 5.90, 0.00, 0.00, 0.13, + -0.10, -4.22, 6.10, 0.00, 0.00, 0.14, -4.53, 5.70, + 0.00, 0.00, 0.13, 0.10, 4.18, 5.70, 0.00, 0.00, + + /* 1492-1619 */ + 0.13, -4.75, -5.19, 0.00, 0.00, -0.12, 0.11, -4.06, + 5.60, 0.00, 0.00, 0.13, -3.98, 5.60, -0.04, 0.00, + 0.13, 4.02, -5.40, 0.00, 0.00, -0.12, 4.49, -4.90, + -0.04, 0.00, -0.11, -0.10, -3.62, -5.40, -0.16, 0.20, + -0.12, 0.00, 0.01, 4.38, 4.80, 0.00, 0.00, 0.11, + -6.40, -0.10, 0.00, 0.00, 0.00, 0.14, -3.98, 5.00, + 0.04, 0.00, 0.11, -3.82, -5.00, 0.00, 0.00, -0.11, + -3.71, 5.07, 0.00, 0.00, 0.11, 4.14, 4.40, 0.00, + 0.00, 0.10, -6.01, -0.50, -0.04, 0.00, 0.00, 0.13, + -4.04, 4.39, 0.00, 0.00, 0.10, 3.45, -4.72, 0.00, + 0.00, -0.11, 3.31, 4.71, 0.00, 0.00, 0.11, 3.26, + -4.50, 0.00, 0.00, -0.10, -3.26, -4.50, 0.00, 0.00, + -0.10, -3.34, -4.40, 0.00, 0.00, -0.10, -3.74, -4.00, + 3.70, 4.00, 3.34, -4.30, 3.30, -4.30, -3.66, 3.90, + 0.04, 3.66, 3.90, 0.04, -3.62, -3.90, -3.61, 3.90, + -0.20, 5.30, 0.00, 0.00, 0.12, 3.06, 4.30, 3.30, + + /* 1620-1747 */ + 4.00, 0.40, 0.20, 3.10, 4.10, -3.06, 3.90, -3.30, + -3.60, -3.30, 3.36, 0.01, 3.14, 3.40, -4.57, -0.20, + 0.00, 0.00, 0.00, 0.10, -2.70, -3.60, 2.94, -3.20, + -2.90, 3.20, 2.47, -3.40, 2.55, -3.30, 2.80, -3.08, + 2.51, 3.30, -4.10, 0.30, -0.12, -0.10, 4.10, 0.20, + -2.74, 3.00, 2.46, 3.23, -3.66, 1.20, -0.20, 0.20, + 3.74, -0.40, -2.51, -2.80, -3.74, 2.27, -2.90, 0.00, + 0.00, -2.50, 2.70, -2.51, 2.60, -3.50, 0.20, 3.38, + -2.22, -2.50, 3.26, -0.40, 1.95, -2.60, 3.22, -0.40, + -0.04, -1.79, -2.60, 1.91, 2.50, 0.74, 3.05, -0.04, + 0.08, 2.11, -2.30, -2.11, 2.20, -1.87, -2.40, 2.03, + -2.20, -2.03, 2.20, 2.98, 0.00, 0.00, 2.98, -1.71, + 2.40, 2.94, -0.10, -0.12, 0.10, 1.67, 2.40, -1.79, + 2.30, -1.79, 2.20, -1.67, 2.20, 1.79, -2.00, 1.87, + -1.90, 1.63, -2.10, -1.59, 2.10, 1.55, -2.10, -1.55, + 2.10, -2.59, -0.20, -1.75, -1.90, -1.75, 1.90, -1.83, + + /* 1748-1875 */ + -1.80, 1.51, 2.00, -1.51, -2.00, 1.71, 1.80, 1.31, + 2.10, -1.43, 2.00, 1.43, 2.00, -2.43, -1.51, 1.90, + -1.47, 1.90, 2.39, 0.20, -2.39, 1.39, 1.90, 1.39, + -1.80, 1.47, -1.60, 1.47, -1.60, 1.43, -1.50, -1.31, + 1.60, 1.27, -1.60, -1.27, 1.60, 1.27, -1.60, 2.03, + 1.35, 1.50, -1.39, -1.40, 1.95, -0.20, -1.27, 1.49, + 1.19, 1.50, 1.27, 1.40, 1.15, 1.50, 1.87, -0.10, + -1.12, -1.50, 1.87, -1.11, -1.50, -1.11, -1.50, 0.00, + 0.00, 1.19, 1.40, 1.27, -1.30, -1.27, -1.30, -1.15, + 1.40, -1.23, 1.30, -1.23, -1.30, 1.22, -1.29, 1.07, + -1.40, 1.75, -0.20, -1.03, -1.40, -1.07, 1.20, -1.03, + 1.15, 1.07, 1.10, 1.51, -1.03, 1.10, 1.03, -1.10, + 0.00, 0.00, -1.03, -1.10, 0.91, -1.20, -0.88, -1.20, + -0.88, 1.20, -0.95, 1.10, -0.95, -1.10, 1.43, -1.39, + 0.95, -1.00, -0.95, 1.00, -0.80, 1.10, 0.91, -1.00, + -1.35, 0.88, 1.00, -0.83, 1.00, -0.91, 0.90, 0.91, + + /* 1876-2003 */ + 0.90, 0.88, -0.90, -0.76, -1.00, -0.76, 1.00, 0.76, + 1.00, -0.72, 1.00, 0.84, -0.90, 0.84, 0.90, 1.23, + 0.00, 0.00, -0.52, -1.10, -0.68, 1.00, 1.19, -0.20, + 1.19, 0.76, 0.90, 1.15, -0.10, 1.15, -0.10, 0.72, + -0.90, -1.15, -1.15, 0.68, 0.90, -0.68, 0.90, -1.11, + 0.00, 0.00, 0.20, 0.79, 0.80, -1.11, -0.10, 0.00, + 0.00, -0.48, -1.00, -0.76, -0.80, -0.72, -0.80, -1.07, + -0.10, 0.64, 0.80, -0.64, -0.80, 0.64, 0.80, 0.40, + 0.60, 0.52, -0.50, -0.60, -0.80, -0.71, 0.70, -0.99, + 0.99, 0.56, 0.80, -0.56, 0.80, 0.68, -0.70, 0.68, + 0.70, -0.95, -0.64, 0.70, 0.64, 0.70, -0.60, 0.70, + -0.60, -0.70, -0.91, -0.10, -0.51, 0.76, -0.91, -0.56, + 0.70, 0.88, 0.88, -0.63, -0.60, 0.55, -0.60, -0.80, + 0.80, -0.80, -0.52, 0.60, 0.52, 0.60, 0.52, -0.60, + -0.48, 0.60, 0.48, 0.60, 0.48, 0.60, -0.76, 0.44, + -0.60, 0.52, -0.50, -0.52, 0.50, 0.40, 0.60, -0.40, + + /* 2004-2131 */ + -0.60, 0.40, -0.60, 0.72, -0.72, -0.51, -0.50, -0.48, + 0.50, 0.48, -0.50, -0.48, 0.50, -0.48, 0.50, 0.48, + -0.50, -0.48, -0.50, -0.68, -0.68, 0.44, 0.50, -0.64, + -0.10, -0.64, -0.10, -0.40, 0.50, 0.40, 0.50, 0.40, + 0.50, 0.00, 0.00, -0.40, -0.50, -0.36, -0.50, 0.36, + -0.50, 0.60, -0.60, 0.40, -0.40, 0.40, 0.40, -0.40, + 0.40, -0.40, 0.40, -0.56, -0.56, 0.36, -0.40, -0.36, + 0.40, 0.36, -0.40, -0.36, -0.40, 0.36, 0.40, 0.36, + 0.40, -0.52, 0.52, 0.52, 0.32, 0.40, -0.32, 0.40, + -0.32, 0.40, -0.32, 0.40, 0.32, -0.40, -0.32, -0.40, + 0.32, -0.40, 0.28, -0.40, -0.28, 0.40, 0.28, -0.40, + 0.28, 0.40, 0.48, -0.48, 0.48, 0.36, -0.30, -0.36, + -0.30, 0.00, 0.00, 0.20, 0.40, -0.44, 0.44, -0.44, + -0.44, -0.44, -0.44, 0.32, -0.30, 0.32, 0.30, 0.24, + 0.30, -0.12, -0.10, -0.28, 0.30, 0.28, 0.30, 0.28, + 0.30, 0.28, -0.30, 0.28, -0.30, 0.28, -0.30, 0.28, + + /* 2132-2259 */ + 0.30, -0.28, 0.30, 0.40, 0.40, -0.24, 0.30, 0.24, + -0.30, 0.24, -0.30, -0.24, -0.30, 0.24, 0.30, 0.24, + -0.30, -0.24, 0.30, 0.24, -0.30, -0.24, -0.30, 0.24, + -0.30, 0.24, 0.30, -0.24, 0.30, -0.24, 0.30, 0.20, + -0.30, 0.20, -0.30, 0.20, -0.30, 0.20, 0.30, 0.20, + -0.30, 0.20, -0.30, 0.20, 0.30, 0.20, 0.30, -0.20, + -0.30, 0.20, -0.30, 0.20, -0.30, -0.36, -0.36, -0.36, + -0.04, 0.30, 0.12, -0.10, -0.32, -0.24, 0.20, 0.24, + 0.20, 0.20, -0.20, -0.20, -0.20, -0.20, -0.20, 0.20, + 0.20, 0.20, -0.20, 0.20, 0.20, 0.20, 0.20, -0.20, + -0.20, 0.00, 0.00, -0.20, -0.20, -0.20, 0.20, -0.20, + 0.20, 0.20, -0.20, -0.20, -0.20, 0.20, 0.20, 0.20, + 0.20, 0.20, -0.20, 0.20, -0.20, 0.28, 0.28, 0.28, + 0.28, 0.28, 0.28, -0.28, 0.28, 0.12, 0.00, 0.24, + 0.16, -0.20, 0.16, -0.20, 0.16, -0.20, 0.16, 0.20, + -0.16, 0.20, 0.16, 0.20, -0.16, 0.20, -0.16, 0.20, + + /* 2260-2387 */ + -0.16, 0.20, 0.16, -0.20, 0.16, 0.20, 0.16, -0.20, + -0.16, 0.20, -0.16, -0.20, -0.16, 0.20, 0.16, 0.20, + 0.16, -0.20, 0.16, -0.20, 0.16, 0.20, 0.16, 0.20, + 0.16, 0.20, -0.16, -0.20, 0.16, 0.20, -0.16, 0.20, + 0.16, 0.20, -0.16, -0.20, 0.16, -0.20, 0.16, -0.20, + -0.16, -0.20, 0.24, -0.24, -0.24, 0.24, 0.24, 0.12, + 0.20, 0.12, 0.20, -0.12, -0.20, 0.12, -0.20, 0.12, + -0.20, -0.12, 0.20, -0.12, 0.20, -0.12, -0.20, 0.12, + 0.20, 0.12, 0.20, 0.12, -0.20, -0.12, 0.20, 0.12, + -0.20, -0.12, 0.20, 0.12, 0.20, 0.00, 0.00, -0.12, + 0.20, -0.12, 0.20, 0.12, -0.20, -0.12, 0.20, 0.12, + 0.20, 0.00, -0.21, -0.20, 0.00, 0.00, 0.20, -0.20, + -0.20, -0.20, 0.20, -0.16, -0.10, 0.00, 0.17, 0.16, + 0.16, 0.16, 0.16, -0.16, 0.16, 0.16, -0.16, 0.16, + -0.16, 0.16, 0.12, 0.10, 0.12, -0.10, -0.12, 0.10, + -0.12, 0.10, 0.12, -0.10, -0.12, 0.12, -0.12, 0.12, + + /* 2388-2515 */ + -0.12, 0.12, -0.12, -0.12, -0.12, -0.12, -0.12, -0.12, + -0.12, 0.12, 0.12, 0.12, 0.12, -0.12, -0.12, 0.12, + 0.12, 0.12, -0.12, 0.12, -0.12, -0.12, -0.12, 0.12, + -0.12, -0.12, 0.12, 0.00, 0.11, 0.11,-122.67, 164.70, + 203.78, 273.50, 3.58, 2.74, 6.18, -4.56, 0.00, -0.04, + 0.00, -0.07, 57.44, -77.10, 95.82, 128.60, -1.77, -1.28, + 2.85, -2.14, 82.14, 89.50, 0.00, 0.00, 2.00, -1.84, + -0.04, 47.73, -64.10, 23.79, 31.90, -1.45, -1.07, 0.69, + -0.53, -46.38, 50.50, 0.00, 0.00, 1.13, 1.04, 0.02, + -18.38, 0.00, 63.80, 0.00, 0.00, 0.41, 0.00, -1.43, + 59.07, 0.00, 0.00, 0.00, 0.00, -1.32, 57.28, 0.00, + 0.00, 0.00, 0.00, -1.28, -48.65, 0.00, -1.15, 0.00, + 0.00, 1.09, 0.00, 0.03, -18.30, 24.60, -17.30, -23.20, + 0.56, 0.41, -0.51, 0.39, -16.91, 26.90, 8.43, 13.30, + 0.60, 0.38, 0.31, -0.19, 1.23, -1.70, -19.13, -25.70, + -0.03, -0.03, -0.58, 0.43, -0.72, 0.90, -17.34, -23.30, + + /* 2516-2643 */ + 0.03, 0.02, -0.52, 0.39, -19.49, -21.30, 0.00, 0.00, + -0.48, 0.44, 0.01, 20.57, -20.10, 0.64, 0.70, -0.45, + -0.46, 0.00, -0.01, 4.89, 5.90, -16.55, 19.90, 0.14, + -0.11, 0.44, 0.37, 18.22, 19.80, 0.00, 0.00, 0.44, + -0.41, -0.01, 4.89, -5.30, -16.51, -18.00, -0.11, -0.11, + -0.41, 0.37, -17.86, 0.00, 17.10, 0.00, 0.00, 0.40, + 0.00, -0.38, 0.32, 0.00, 24.42, 0.00, 0.00, -0.01, + 0.00, -0.55, -23.79, 0.00, 0.00, 0.00, 0.00, 0.53, + 14.72, -16.00, -0.32, 0.00, -0.36, -0.33, -0.01, 0.01, + 3.34, -4.50, 11.86, 15.90, -0.11, -0.07, 0.35, -0.27, + -3.26, 4.40, 11.62, 15.60, 0.09, 0.07, 0.35, -0.26, + -19.53, 0.00, 5.09, 0.00, 0.00, 0.44, 0.00, -0.11, + -13.48, 14.70, 0.00, 0.00, 0.33, 0.30, 0.01, 10.86, + -14.60, 3.18, 4.30, -0.33, -0.24, 0.09, -0.07, -11.30, + -15.10, 0.00, 0.00, -0.34, 0.25, 0.01, 2.03, -2.70, + 10.82, 14.50, -0.07, -0.05, 0.32, -0.24, 17.46, 0.00, + + /* 2644-2771 */ + 0.00, 0.00, 0.00, -0.39, 16.43, 0.00, 0.52, 0.00, + 0.00, -0.37, 0.00, -0.01, 9.35, 0.00, 13.29, 0.00, + 0.00, -0.21, 0.00, -0.30, -10.42, 11.40, 0.00, 0.00, + 0.25, 0.23, 0.01, 0.44, 0.50, -10.38, 11.30, 0.02, + -0.01, 0.25, 0.23, -14.64, 0.00, 0.00, 0.00, 0.00, + 0.33, 0.56, 0.80, -8.67, 11.70, 0.02, -0.01, 0.26, + 0.19, 13.88, 0.00, -2.47, 0.00, 0.00, -0.31, 0.00, + 0.06, -1.99, 2.70, 7.72, 10.30, 0.06, 0.04, 0.23, + -0.17, -0.20, 0.00, 13.05, 0.00, 0.00, 0.00, 0.00, + -0.29, 6.92, -9.30, 3.34, 4.50, -0.21, -0.15, 0.10, + -0.07, -6.60, 0.00, 10.70, 0.00, 0.00, 0.15, 0.00, + -0.24, -8.04, -8.70, 0.00, 0.00, -0.19, 0.18, -10.58, + 0.00, -3.10, 0.00, 0.00, 0.24, 0.00, 0.07, -7.32, + 8.00, -0.12, -0.10, 0.18, 0.16, 1.63, 1.70, 6.96, + -7.60, 0.03, -0.04, -0.17, -0.16, -3.62, 0.00, 9.86, + 0.00, 0.00, 0.08, 0.00, -0.22, 0.20, -0.20, -6.88, + + /* 2772-2899 */ + -7.50, 0.00, 0.00, -0.17, 0.15, -8.99, 0.00, 4.02, + 0.00, 0.00, 0.20, 0.00, -0.09, -1.07, 1.40, -5.69, + -7.70, 0.03, 0.02, -0.17, 0.13, 6.48, -7.20, -0.48, + -0.50, -0.16, -0.14, -0.01, 0.01, 5.57, -7.50, 1.07, + 1.40, -0.17, -0.12, 0.03, -0.02, 8.71, 0.00, 3.54, + 0.00, 0.00, -0.19, 0.00, -0.08, 0.40, 0.00, 9.27, + 0.00, 0.00, -0.01, 0.00, -0.21, -6.13, 6.70, -1.19, + -1.30, 0.15, 0.14, -0.03, 0.03, 5.21, -5.70, -2.51, + -2.60, -0.13, -0.12, -0.06, 0.06, 5.69, -6.20, -0.12, + -0.10, -0.14, -0.13, -0.01, 2.03, -2.70, 4.53, 6.10, + -0.06, -0.05, 0.14, -0.10, 5.01, 5.50, -2.51, 2.70, + 0.12, -0.11, 0.06, 0.06, -1.91, 2.60, -4.38, -5.90, + 0.06, 0.04, -0.13, 0.10, 4.65, -6.30, 0.00, 0.00, + -0.14, -0.10, -5.29, 5.70, 0.00, 0.00, 0.13, 0.12, + -2.23, -4.00, -4.65, 4.20, -0.09, 0.05, 0.10, 0.10, + -4.53, 6.10, 0.00, 0.00, 0.14, 0.10, 2.47, 2.70, + + /* 2900-3027 */ + -4.46, 4.90, 0.06, -0.06, 0.11, 0.10, -5.05, 5.50, + 0.84, 0.90, 0.12, 0.11, 0.02, -0.02, 4.97, -5.40, + -1.71, 0.00, -0.12, -0.11, 0.00, 0.04, -0.99, -1.30, + 4.22, -5.70, -0.03, 0.02, -0.13, -0.09, 0.99, 1.40, + 4.22, -5.60, 0.03, -0.02, -0.13, -0.09, -4.69, -5.20, + 0.00, 0.00, -0.12, 0.10, -3.42, 0.00, 6.09, 0.00, + 0.00, 0.08, 0.00, -0.14, -4.65, -5.10, 0.00, 0.00, + -0.11, 0.10, 0.00, 0.00, -4.53, -5.00, 0.00, 0.00, + -0.11, 0.10, -2.43, -2.70, -3.82, 4.20, -0.06, 0.05, + 0.10, 0.09, 0.00, 0.00, -4.53, 4.90, 0.00, 0.00, + 0.11, 0.10, -4.49, -4.90, 0.00, 0.00, -0.11, 0.10, + 2.67, -2.90, -3.62, -3.90, -0.06, -0.06, -0.09, 0.08, + 3.94, -5.30, 0.00, 0.00, -0.12, -3.38, 3.70, -2.78, + -3.10, 0.08, 0.08, -0.07, 0.06, 3.18, -3.50, -2.82, + -3.10, -0.08, -0.07, -0.07, 0.06, -5.77, 0.00, 1.87, + 0.00, 0.00, 0.13, 0.00, -0.04, 3.54, -4.80, -0.64, + + /* 3028-3155 */ + -0.90, -0.11, 0.00, -0.02, -3.50, -4.70, 0.68, -0.90, + -0.11, 0.00, -0.02, 5.49, 0.00, 0.00, 0.00, 0.00, + -0.12, 1.83, -2.50, 2.63, 3.50, -0.06, 0.00, 0.08, + 3.02, -4.10, 0.68, 0.90, -0.09, 0.00, 0.02, 0.00, + 0.00, 5.21, 0.00, 0.00, 0.00, 0.00, -0.12, -3.54, + 3.80, 2.70, 3.60, -1.35, 1.80, 0.08, 0.00, 0.04, + -2.90, 3.90, 0.68, 0.90, 0.09, 0.00, 0.02, 0.80, + -1.10, -2.78, -3.70, -0.02, 0.00, -0.08, 4.10, 0.00, + -2.39, 0.00, 0.00, -0.09, 0.00, 0.05, -1.59, 2.10, + 2.27, 3.00, 0.05, 0.00, 0.07, -2.63, 3.50, -0.48, + -0.60, -2.94, -3.20, -2.94, 3.20, 2.27, -3.00, -1.11, + -1.50, -0.07, 0.00, -0.03, -0.56, -0.80, -2.35, 3.10, + 0.00, -0.60, -3.42, 1.90, -0.12, -0.10, 2.63, -2.90, + 2.51, 2.80, -0.64, 0.70, -0.48, -0.60, 2.19, -2.90, + 0.24, -0.30, 2.15, 2.90, 2.15, -2.90, 0.52, 0.70, + 2.07, -2.80, -3.10, 0.00, 1.79, 0.00, 0.00, 0.07, + + /* 3156-3283 */ + 0.00, -0.04, 0.88, 0.00, -3.46, 2.11, 2.80, -0.36, + 0.50, 3.54, -0.20, -3.50, -1.39, 1.50, -1.91, -2.10, + -1.47, 2.00, 1.39, 1.90, 2.07, -2.30, 0.91, 1.00, + 1.99, -2.70, 3.30, 0.00, 0.60, -0.44, -0.70, -1.95, + 2.60, 2.15, -2.40, -0.60, -0.70, 3.30, 0.84, 0.00, + -3.10, -3.10, 0.00, -0.72, -0.32, 0.40, -1.87, -2.50, + 1.87, -2.50, 0.32, 0.40, -0.24, 0.30, -1.87, -2.50, + -0.24, -0.30, 1.87, -2.50, -2.70, 0.00, 1.55, 2.03, + 2.20, -2.98, -1.99, -2.20, 0.12, -0.10, -0.40, 0.50, + 1.59, 2.10, 0.00, 0.00, -1.79, 2.00, -1.03, 1.40, + -1.15, -1.60, 0.32, 0.50, 1.39, -1.90, 2.35, -1.27, + 1.70, 0.60, 0.80, -0.32, -0.40, 1.35, -1.80, 0.44, + 0.00, 2.23, -0.84, 0.90, -1.27, -1.40, -1.47, 1.60, + -0.28, -0.30, -0.28, 0.40, -1.27, -1.70, 0.28, -0.40, + -1.43, -1.50, 0.00, 0.00, -1.27, -1.70, 2.11, -0.32, + -0.40, -1.23, 1.60, 1.19, -1.30, -0.72, -0.80, 0.72, + + /* 3284-3411 */ + -0.80, -1.15, -1.30, -1.35, -1.50, -1.19, -1.60, -0.12, + 0.20, 1.79, 0.00, -0.88, -0.28, 0.40, 1.11, 1.50, + -1.83, 0.00, 0.56, -0.12, 0.10, -1.27, -1.40, 0.00, + 0.00, 1.15, 1.50, -0.12, 0.20, 1.11, 1.50, 0.36, + -0.50, -1.07, -1.40, -1.11, 1.50, 1.67, 0.00, 0.80, + -1.11, 0.00, 1.43, 1.23, -1.30, -0.24, -1.19, -1.30, + -0.24, 0.20, -0.44, -0.90, -0.95, 1.10, 1.07, -1.40, + 1.15, -1.30, 1.03, -1.10, -0.56, -0.60, -0.68, 0.90, + -0.76, -1.00, -0.24, -0.30, 0.95, -1.30, 0.56, 0.70, + 0.84, -1.10, -0.56, 0.00, -1.55, 0.91, -1.30, 0.28, + 0.30, 0.16, -0.20, 0.95, 1.30, 0.40, -0.50, -0.88, + -1.20, 0.95, -1.10, -0.48, -0.50, 0.00, 0.00, -1.07, + 1.20, 0.44, -0.50, 0.95, 1.10, 0.00, 0.00, 0.92, + -1.30, 0.95, 1.00, -0.52, 0.60, 1.59, 0.24, -0.40, + 0.91, 1.20, 0.84, -1.10, -0.44, -0.60, 0.84, 1.10, + -0.44, 0.60, -0.44, 0.60, -0.84, -1.10, -0.80, 0.00, + + /* 3412-3539 */ + 1.35, 0.76, 0.20, -0.91, -1.00, 0.20, -0.30, -0.91, + -1.20, -0.95, 1.00, -0.48, -0.50, 0.88, 1.00, 0.48, + -0.50, -0.95, -1.10, 0.20, -0.20, -0.99, 1.10, -0.84, + 1.10, -0.24, -0.30, 0.20, -0.30, 0.84, 1.10, -1.39, + 0.00, -0.28, -0.16, 0.20, 0.84, 1.10, 0.00, 0.00, + 1.39, 0.00, 0.00, -0.95, 1.00, 1.35, -0.99, 0.00, + 0.88, -0.52, 0.00, -1.19, 0.20, 0.20, 0.76, -1.00, + 0.00, 0.00, 0.76, 1.00, 0.00, 0.00, 0.76, 1.00, + -0.76, 1.00, 0.00, 0.00, 1.23, 0.76, 0.80, -0.32, + 0.40, -0.72, 0.80, -0.40, -0.40, 0.00, 0.00, -0.80, + -0.90, -0.68, 0.90, -0.16, -0.20, -0.16, -0.20, 0.68, + -0.90, -0.36, 0.50, -0.56, -0.80, 0.72, -0.90, 0.44, + -0.60, -0.48, -0.70, -0.16, 0.00, -1.11, 0.32, 0.00, + -1.07, 0.60, -0.80, -0.28, -0.40, -0.64, 0.00, 0.91, + 1.11, 0.64, -0.90, 0.76, -0.80, 0.00, 0.00, -0.76, + -0.80, 1.03, 0.00, -0.36, -0.64, -0.70, 0.36, -0.40, + + /* 3540-3667 */ + 1.07, 0.36, -0.50, -0.52, -0.70, 0.60, 0.00, 0.88, + 0.95, 0.00, 0.48, 0.16, -0.20, 0.60, 0.80, 0.16, + -0.20, -0.60, -0.80, 0.00, -1.00, 0.12, 0.20, 0.16, + -0.20, 0.68, 0.70, 0.59, -0.80, -0.99, -0.56, -0.60, + 0.36, -0.40, -0.68, -0.70, -0.68, -0.70, -0.36, -0.50, + -0.44, 0.60, 0.64, 0.70, -0.12, 0.10, -0.52, 0.60, + 0.36, 0.40, 0.00, 0.00, 0.95, -0.84, 0.00, 0.44, + 0.56, 0.60, 0.32, -0.30, 0.00, 0.00, 0.60, 0.70, + 0.00, 0.00, 0.60, 0.70, -0.12, -0.20, 0.52, -0.70, + 0.00, 0.00, 0.56, 0.70, -0.12, 0.10, -0.52, -0.70, + 0.00, 0.00, 0.88, -0.76, 0.00, -0.44, 0.00, 0.00, + -0.52, -0.70, 0.52, -0.70, 0.36, -0.40, -0.44, -0.50, + 0.00, 0.00, 0.60, 0.60, 0.84, 0.00, 0.12, -0.24, + 0.00, 0.80, -0.56, 0.60, -0.32, -0.30, 0.48, -0.50, + 0.28, -0.30, -0.48, -0.50, 0.12, 0.20, 0.48, -0.60, + 0.48, 0.60, -0.12, 0.20, 0.24, 0.00, 0.76, -0.52, + + /* 3668-3795 */ + -0.60, -0.52, 0.60, 0.48, -0.50, -0.24, -0.30, 0.12, + -0.10, 0.48, 0.60, 0.52, -0.20, 0.36, 0.40, -0.44, + 0.50, -0.24, -0.30, -0.48, -0.60, -0.44, -0.60, -0.12, + 0.10, 0.76, 0.76, 0.20, -0.20, 0.48, 0.50, 0.40, + -0.50, -0.24, -0.30, 0.44, -0.60, 0.44, -0.60, 0.36, + 0.00, -0.64, 0.72, 0.00, -0.12, 0.00, -0.10, -0.40, + -0.60, -0.20, -0.20, -0.44, 0.50, -0.44, 0.50, 0.20, + 0.20, -0.44, -0.50, 0.20, -0.20, -0.20, 0.20, -0.44, + -0.50, 0.64, 0.00, 0.32, -0.36, 0.50, -0.20, -0.30, + 0.12, -0.10, 0.48, 0.50, -0.12, 0.30, -0.36, -0.50, + 0.00, 0.00, 0.48, 0.50, -0.48, 0.50, 0.68, 0.00, + -0.12, 0.56, -0.40, 0.44, -0.50, -0.12, -0.10, 0.24, + 0.30, -0.40, 0.40, 0.64, 0.00, -0.24, 0.64, 0.00, + -0.20, 0.00, 0.00, 0.44, -0.50, 0.44, 0.50, -0.12, + 0.20, -0.36, -0.50, 0.12, 0.00, 0.64, -0.40, 0.50, + 0.00, 0.10, 0.00, 0.00, -0.40, 0.50, 0.00, 0.00, + + /* 3796-3923 */ + -0.40, -0.50, 0.56, 0.00, 0.28, 0.00, 0.10, 0.36, + 0.50, 0.00, -0.10, 0.36, -0.50, 0.36, 0.50, 0.00, + -0.10, 0.24, -0.20, -0.36, -0.40, 0.16, 0.20, 0.40, + -0.40, 0.00, 0.00, -0.36, -0.50, -0.36, -0.50, -0.32, + -0.50, -0.12, 0.10, 0.20, 0.20, -0.36, 0.40, -0.60, + 0.60, 0.28, 0.00, 0.52, 0.12, -0.10, 0.40, 0.40, + 0.00, -0.50, 0.20, -0.20, -0.32, 0.40, 0.16, 0.20, + -0.16, 0.20, 0.32, 0.40, 0.56, 0.00, -0.12, 0.32, + -0.40, -0.16, -0.20, 0.00, 0.00, 0.40, 0.40, -0.40, + -0.40, -0.40, 0.40, -0.36, 0.40, 0.12, 0.10, 0.00, + 0.10, 0.36, 0.40, 0.00, -0.10, 0.36, 0.40, -0.36, + 0.40, 0.00, 0.10, 0.32, 0.00, 0.44, 0.12, 0.20, + 0.28, -0.40, 0.00, 0.00, 0.36, 0.40, 0.32, -0.40, + -0.16, 0.12, 0.10, 0.32, -0.40, 0.20, 0.30, -0.24, + 0.30, 0.00, 0.10, 0.32, 0.40, 0.00, -0.10, -0.32, + -0.40, -0.32, 0.40, 0.00, 0.10, -0.52, -0.52, 0.52, + + /* 3924-4051 */ + 0.32, -0.40, 0.00, 0.00, 0.32, 0.40, 0.32, -0.40, + 0.00, 0.00, -0.32, -0.40, -0.32, 0.40, 0.32, 0.40, + 0.00, 0.00, 0.32, 0.40, 0.00, 0.00, -0.32, -0.40, + 0.00, 0.00, 0.32, 0.40, 0.16, 0.20, 0.32, -0.30, + -0.16, 0.00, -0.48, -0.20, 0.20, -0.28, -0.30, 0.28, + -0.40, 0.00, 0.00, 0.28, -0.40, 0.00, 0.00, 0.28, + -0.40, 0.00, 0.00, -0.28, -0.40, 0.28, 0.40, -0.28, + -0.40, -0.48, -0.20, 0.20, 0.24, 0.30, 0.44, 0.00, + 0.16, 0.24, 0.30, 0.16, -0.20, 0.24, 0.30, -0.12, + 0.20, 0.20, 0.30, -0.16, 0.20, 0.00, 0.00, 0.44, + -0.32, 0.30, 0.24, 0.00, -0.36, 0.36, 0.00, 0.24, + 0.12, -0.20, 0.20, 0.30, -0.12, 0.00, -0.28, 0.30, + -0.24, 0.30, 0.12, 0.10, -0.28, -0.30, -0.28, 0.30, + 0.00, 0.00, -0.28, -0.30, 0.00, 0.00, -0.28, -0.30, + 0.00, 0.00, 0.28, 0.30, 0.00, 0.00, -0.28, -0.30, + -0.28, 0.30, 0.00, 0.00, -0.28, -0.30, 0.00, 0.00, + + /* 4052-4179 */ + 0.28, 0.30, 0.00, 0.00, -0.28, 0.30, 0.28, -0.30, + -0.28, 0.30, 0.40, 0.40, -0.24, 0.30, 0.00, -0.10, + 0.16, 0.00, 0.36, -0.20, 0.30, -0.12, -0.10, -0.24, + -0.30, 0.00, 0.00, -0.24, 0.30, -0.24, 0.30, 0.00, + 0.00, -0.24, 0.30, -0.24, 0.30, 0.24, -0.30, 0.00, + 0.00, 0.24, -0.30, 0.00, 0.00, 0.24, 0.30, 0.24, + -0.30, 0.24, 0.30, -0.24, 0.30, -0.24, 0.30, -0.20, + 0.20, -0.16, -0.20, 0.00, 0.00, -0.32, 0.20, 0.00, + 0.10, 0.20, -0.30, 0.20, -0.20, 0.12, 0.20, -0.16, + 0.20, 0.16, 0.20, 0.20, 0.30, 0.20, 0.30, 0.00, + 0.00, -0.20, 0.30, 0.00, 0.00, 0.20, 0.30, -0.20, + -0.30, -0.20, -0.30, 0.20, -0.30, 0.00, 0.00, 0.20, + 0.30, 0.00, 0.00, 0.20, 0.30, 0.00, 0.00, 0.20, + 0.30, 0.00, 0.00, 0.20, 0.30, 0.00, 0.00, 0.20, + -0.30, 0.00, 0.00, -0.20, -0.30, 0.00, 0.00, -0.20, + 0.30, 0.00, 0.00, -0.20, 0.30, 0.00, 0.00, 0.36, + + /* 4180-4307 */ + 0.00, 0.00, 0.36, 0.12, 0.10, -0.24, 0.20, 0.12, + -0.20, -0.16, -0.20, -0.13, 0.10, 0.22, 0.21, 0.20, + 0.00, -0.28, 0.32, 0.00, -0.12, -0.20, -0.20, 0.12, + -0.10, 0.12, 0.10, -0.20, 0.20, 0.00, 0.00, -0.32, + 0.32, 0.00, 0.00, 0.32, 0.32, 0.00, 0.00, -0.24, + -0.20, 0.24, 0.20, 0.20, 0.00, -0.24, 0.00, 0.00, + -0.24, -0.20, 0.00, 0.00, 0.24, 0.20, -0.24, -0.20, + 0.00, 0.00, -0.24, 0.20, 0.16, -0.20, 0.12, 0.10, + 0.20, 0.20, 0.00, -0.10, -0.12, 0.10, -0.16, -0.20, + -0.12, -0.10, -0.16, 0.20, 0.20, 0.20, 0.00, 0.00, + -0.20, 0.20, -0.20, 0.20, -0.20, 0.20, -0.20, 0.20, + 0.20, -0.20, -0.20, -0.20, 0.00, 0.00, -0.20, 0.20, + 0.20, 0.00, -0.20, 0.00, 0.00, -0.20, 0.20, -0.20, + 0.20, -0.20, -0.20, -0.20, -0.20, 0.00, 0.00, 0.20, + 0.20, 0.20, 0.20, 0.12, -0.20, -0.12, -0.10, 0.28, + -0.28, 0.16, -0.20, 0.00, -0.10, 0.00, 0.10, -0.16, + + /* 4308-4435 */ + 0.20, 0.00, -0.10, -0.16, -0.20, 0.00, -0.10, 0.16, + -0.20, 0.16, -0.20, 0.00, 0.00, 0.16, 0.20, -0.16, + 0.20, 0.00, 0.00, 0.16, 0.20, 0.16, -0.20, 0.16, + -0.20, -0.16, 0.20, 0.16, -0.20, 0.00, 0.00, 0.16, + 0.20, 0.00, 0.00, 0.16, 0.20, 0.00, 0.00, -0.16, + -0.20, 0.16, -0.20, -0.16, -0.20, 0.00, 0.00, -0.16, + -0.20, 0.00, 0.00, -0.16, 0.20, 0.00, 0.00, 0.16, + -0.20, 0.16, 0.20, 0.16, 0.20, 0.00, 0.00, -0.16, + -0.20, 0.00, 0.00, -0.16, -0.20, 0.00, 0.00, 0.16, + 0.20, 0.16, 0.20, 0.00, 0.00, 0.16, 0.20, 0.16, + -0.20, 0.16, 0.20, 0.00, 0.00, -0.16, 0.20, 0.00, + 0.10, 0.12, -0.20, 0.12, -0.20, 0.00, -0.10, 0.00, + -0.10, 0.12, 0.20, 0.00, -0.10, -0.12, 0.20, -0.15, + 0.20, -0.24, 0.24, 0.00, 0.00, 0.24, 0.24, 0.12, + -0.20, -0.12, -0.20, 0.00, 0.00, 0.12, 0.20, 0.12, + -0.20, 0.12, 0.20, 0.12, 0.20, 0.12, 0.20, 0.12, + + /* 4436-4563 */ + -0.20, -0.12, 0.20, 0.00, 0.00, 0.12, 0.20, 0.12, + 0.00, -0.20, 0.00, 0.00, -0.12, -0.20, 0.12, -0.20, + 0.00, 0.00, 0.12, 0.20, -0.12, 0.20, -0.12, 0.20, + 0.12, -0.20, 0.00, 0.00, 0.12, 0.20, 0.20, 0.00, + 0.12, 0.00, 0.00, -0.12, 0.20, 0.00, 0.00, -0.12, + -0.20, 0.00, 0.00, -0.12, -0.20, -0.12, -0.20, 0.00, + 0.00, 0.12, -0.20, 0.12, -0.20, 0.12, 0.20, -0.12, + -0.20, 0.00, 0.00, 0.12, -0.20, 0.12, -0.20, 0.12, + 0.20, 0.12, 0.00, 0.20, -0.12, -0.20, 0.00, 0.00, + 0.12, 0.20, -0.16, 0.00, 0.16, -0.20, 0.20, 0.00, + 0.00, -0.20, 0.00, 0.00, -0.20, 0.20, 0.00, 0.00, + 0.20, 0.20, -0.20, 0.00, 0.00, -0.20, 0.12, 0.00, + -0.16, 0.20, 0.00, 0.00, 0.20, 0.12, -0.10, 0.00, + 0.10, 0.16, -0.16, -0.16, -0.16, -0.16, -0.16, 0.00, + 0.00, -0.16, 0.00, 0.00, -0.16, -0.16, -0.16, 0.00, + 0.00, -0.16, 0.00, 0.00, 0.16, 0.00, 0.00, 0.16, + + /* 4564-4691 */ + 0.00, 0.00, 0.16, 0.16, 0.00, 0.00, -0.16, 0.00, + 0.00, -0.16, -0.16, 0.00, 0.00, 0.16, 0.00, 0.00, + -0.16, -0.16, 0.00, 0.00, -0.16, -0.16, 0.12, 0.10, + 0.12, -0.10, 0.12, 0.10, 0.00, 0.00, 0.12, 0.10, + -0.12, 0.10, 0.00, 0.00, 0.12, 0.10, 0.12, -0.10, + 0.00, 0.00, -0.12, -0.10, 0.00, 0.00, 0.12, 0.10, + 0.12, 0.00, 0.00, 0.12, 0.00, 0.00, -0.12, 0.00, + 0.00, 0.12, 0.12, 0.12, 0.12, 0.12, 0.00, 0.00, + 0.12, 0.00, 0.00, 0.12, 0.12, 0.00, 0.00, 0.12, + 0.00, 0.00, 0.12, -0.12, -0.12, 0.12, 0.12, -0.12, + -0.12, 0.00, 0.00, 0.12, -0.12, 0.12, 0.12, -0.12, + -0.12, 0.00, 0.00, -0.12, -0.12, 0.00, 0.00, -0.12, + 0.12, 0.00, 0.00, 0.12, 0.00, 0.00, 0.12, 0.00, + 0.00, 0.12, -0.12, 0.00, 0.00, -0.12, 0.12, -0.12, + -0.12, 0.12, 0.00, 0.00, 0.12, 0.12, 0.12, -0.12, + 0.00, 0.00, -0.12, -0.12, -0.12, 0.00, 0.00, -0.12, + + /* 4692-NA */ + -0.12, 0.00, 0.00, 0.12, 0.12, 0.00, 0.00, -0.12, + -0.12, -0.12, -0.12, 0.12, 0.00, 0.00, 0.12, -0.12, + 0.00, 0.00, -0.12, -0.12, 0.00, 0.00, 0.12, -0.12, + -0.12, -0.12, -0.12, 0.12, 0.12, -0.12, -0.12, 0.00, + 0.00, -0.12, 0.00, 0.00, -0.12, 0.12, 0.00, 0.00, + 0.12, 0.00, 0.00, -0.12, -0.12, 0.00, 0.00, -0.12, + -0.12, 0.12, 0.00, 0.00, 0.12, 0.12, 0.00, 0.00, + 0.12, 0.00, 0.00, 0.12, 0.12, 0.08, 0.00, 0.04 + }; + +/* Number of amplitude coefficients */ + static const int NA = (int) (sizeof a / sizeof (double)); + +/* Amplitude usage: X or Y, sin or cos, power of T. */ + static const int jaxy[] = {0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1}; + static const int jasc[] = {0,1,1,0,1,0,0,1,0,1,1,0,1,0,0,1,0,1,1,0}; + static const int japt[] = {0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4}; + +/* Miscellaneous */ + double t, w, pt[MAXPT+1], fa[14], xypr[2], xypl[2], xyls[2], arg, + sc[2]; + int jpt, i, j, jxy, ialast, ifreq, m, ia, jsc; + +/*--------------------------------------------------------------------*/ + +/* Interval between fundamental date J2000.0 and given date (JC). */ + t = ((date1 - DJ00) + date2) / DJC; + +/* Powers of T. */ + w = 1.0; + for (jpt = 0; jpt <= MAXPT; jpt++) { + pt[jpt] = w; + w *= t; + } + +/* Initialize totals in X and Y: polynomial, luni-solar, planetary. */ + for (jxy = 0; jxy < 2; jxy++) { + xypr[jxy] = 0.0; + xyls[jxy] = 0.0; + xypl[jxy] = 0.0; + } + +/* --------------------------------- */ +/* Fundamental arguments (IERS 2003) */ +/* --------------------------------- */ + +/* Mean anomaly of the Moon. */ + fa[0] = iauFal03(t); + +/* Mean anomaly of the Sun. */ + fa[1] = iauFalp03(t); + +/* Mean argument of the latitude of the Moon. */ + fa[2] = iauFaf03(t); + +/* Mean elongation of the Moon from the Sun. */ + fa[3] = iauFad03(t); + +/* Mean longitude of the ascending node of the Moon. */ + fa[4] = iauFaom03(t); + +/* Planetary longitudes, Mercury through Neptune. */ + fa[5] = iauFame03(t); + fa[6] = iauFave03(t); + fa[7] = iauFae03(t); + fa[8] = iauFama03(t); + fa[9] = iauFaju03(t); + fa[10] = iauFasa03(t); + fa[11] = iauFaur03(t); + fa[12] = iauFane03(t); + +/* General accumulated precession in longitude. */ + fa[13] = iauFapa03(t); + +/* -------------------------------------- */ +/* Polynomial part of precession-nutation */ +/* -------------------------------------- */ + + for (jxy = 0; jxy < 2; jxy++) { + for (j = MAXPT; j >= 0; j--) { + xypr[jxy] += xyp[jxy][j] * pt[j]; + } + } + +/* ---------------------------------- */ +/* Nutation periodic terms, planetary */ +/* ---------------------------------- */ + +/* Work backwards through the coefficients per frequency list. */ + ialast = NA; + for (ifreq = NFPL-1; ifreq >= 0; ifreq--) { + + /* Obtain the argument functions. */ + arg = 0.0; + for (i = 0; i < 14; i++) { + m = mfapl[ifreq][i]; + if (m != 0) arg += (double)m * fa[i]; + } + sc[0] = sin(arg); + sc[1] = cos(arg); + + /* Work backwards through the amplitudes at this frequency. */ + ia = nc[ifreq+NFLS]; + for (i = ialast; i >= ia; i--) { + + /* Coefficient number (0 = 1st). */ + j = i-ia; + + /* X or Y. */ + jxy = jaxy[j]; + + /* Sin or cos. */ + jsc = jasc[j]; + + /* Power of T. */ + jpt = japt[j]; + + /* Accumulate the component. */ + xypl[jxy] += a[i-1] * sc[jsc] * pt[jpt]; + } + ialast = ia-1; + } + +/* ----------------------------------- */ +/* Nutation periodic terms, luni-solar */ +/* ----------------------------------- */ + +/* Continue working backwards through the number of coefficients list. */ + for (ifreq = NFLS-1; ifreq >= 0; ifreq--) { + + /* Obtain the argument functions. */ + arg = 0.0; + for (i = 0; i < 5; i++) { + m = mfals[ifreq][i]; + if (m != 0) arg += (double)m * fa[i]; + } + sc[0] = sin(arg); + sc[1] = cos(arg); + + /* Work backwards through the amplitudes at this frequency. */ + ia = nc[ifreq]; + for (i = ialast; i >= ia; i--) { + + /* Coefficient number (0 = 1st). */ + j = i-ia; + + /* X or Y. */ + jxy = jaxy[j]; + + /* Sin or cos. */ + jsc = jasc[j]; + + /* Power of T. */ + jpt = japt[j]; + + /* Accumulate the component. */ + xyls[jxy] += a[i-1] * sc[jsc] * pt[jpt]; + } + ialast = ia-1; + } + +/* ------------------------------------ */ +/* Results: CIP unit vector components */ +/* ------------------------------------ */ + + *x = DAS2R * (xypr[0] + (xyls[0] + xypl[0]) / 1e6); + *y = DAS2R * (xypr[1] + (xyls[1] + xypl[1]) / 1e6); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/xys00a.c =================================================================== --- /trunk/FACT++/sofa/src/xys00a.c (revision 18346) +++ /trunk/FACT++/sofa/src/xys00a.c (revision 18346) @@ -0,0 +1,182 @@ +#include "sofa.h" + +void iauXys00a(double date1, double date2, + double *x, double *y, double *s) +/* +** - - - - - - - - - - +** i a u X y s 0 0 a +** - - - - - - - - - - +** +** For a given TT date, compute the X,Y coordinates of the Celestial +** Intermediate Pole and the CIO locator s, using the IAU 2000A +** precession-nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** x,y double Celestial Intermediate Pole (Note 2) +** s double the CIO locator s (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The Celestial Intermediate Pole coordinates are the x,y +** components of the unit vector in the Geocentric Celestial +** Reference System. +** +** 3) The CIO locator s (in radians) positions the Celestial +** Intermediate Origin on the equator of the CIP. +** +** 4) A faster, but slightly less accurate result (about 1 mas for +** X,Y), can be obtained by using instead the iauXys00b function. +** +** Called: +** iauPnm00a classical NPB matrix, IAU 2000A +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS00 the CIO locator s, given X,Y, IAU 2000A +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rbpn[3][3]; + +/* Form the bias-precession-nutation matrix, IAU 2000A. */ + iauPnm00a(date1, date2, rbpn); + +/* Extract X,Y. */ + iauBpn2xy(rbpn, x, y); + +/* Obtain s. */ + *s = iauS00(date1, date2, *x, *y); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/xys00b.c =================================================================== --- /trunk/FACT++/sofa/src/xys00b.c (revision 18346) +++ /trunk/FACT++/sofa/src/xys00b.c (revision 18346) @@ -0,0 +1,182 @@ +#include "sofa.h" + +void iauXys00b(double date1, double date2, + double *x, double *y, double *s) +/* +** - - - - - - - - - - +** i a u X y s 0 0 b +** - - - - - - - - - - +** +** For a given TT date, compute the X,Y coordinates of the Celestial +** Intermediate Pole and the CIO locator s, using the IAU 2000B +** precession-nutation model. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** x,y double Celestial Intermediate Pole (Note 2) +** s double the CIO locator s (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The Celestial Intermediate Pole coordinates are the x,y +** components of the unit vector in the Geocentric Celestial +** Reference System. +** +** 3) The CIO locator s (in radians) positions the Celestial +** Intermediate Origin on the equator of the CIP. +** +** 4) The present function is faster, but slightly less accurate (about +** 1 mas in X,Y), than the iauXys00a function. +** +** Called: +** iauPnm00b classical NPB matrix, IAU 2000B +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS00 the CIO locator s, given X,Y, IAU 2000A +** +** Reference: +** +** McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), +** IERS Technical Note No. 32, BKG (2004) +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rbpn[3][3]; + +/* Form the bias-precession-nutation matrix, IAU 2000A. */ + iauPnm00b(date1, date2, rbpn); + +/* Extract X,Y. */ + iauBpn2xy(rbpn, x, y); + +/* Obtain s. */ + *s = iauS00(date1, date2, *x, *y); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/xys06a.c =================================================================== --- /trunk/FACT++/sofa/src/xys06a.c (revision 18346) +++ /trunk/FACT++/sofa/src/xys06a.c (revision 18346) @@ -0,0 +1,182 @@ +#include "sofa.h" + +void iauXys06a(double date1, double date2, + double *x, double *y, double *s) +/* +** - - - - - - - - - - +** i a u X y s 0 6 a +** - - - - - - - - - - +** +** For a given TT date, compute the X,Y coordinates of the Celestial +** Intermediate Pole and the CIO locator s, using the IAU 2006 +** precession and IAU 2000A nutation models. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: support function. +** +** Given: +** date1,date2 double TT as a 2-part Julian Date (Note 1) +** +** Returned: +** x,y double Celestial Intermediate Pole (Note 2) +** s double the CIO locator s (Note 2) +** +** Notes: +** +** 1) The TT date date1+date2 is a Julian Date, apportioned in any +** convenient way between the two arguments. For example, +** JD(TT)=2450123.7 could be expressed in any of these ways, +** among others: +** +** date1 date2 +** +** 2450123.7 0.0 (JD method) +** 2451545.0 -1421.3 (J2000 method) +** 2400000.5 50123.2 (MJD method) +** 2450123.5 0.2 (date & time method) +** +** The JD method is the most natural and convenient to use in +** cases where the loss of several decimal digits of resolution +** is acceptable. The J2000 method is best matched to the way +** the argument is handled internally and will deliver the +** optimum resolution. The MJD method and the date & time methods +** are both good compromises between resolution and convenience. +** +** 2) The Celestial Intermediate Pole coordinates are the x,y components +** of the unit vector in the Geocentric Celestial Reference System. +** +** 3) The CIO locator s (in radians) positions the Celestial +** Intermediate Origin on the equator of the CIP. +** +** 4) Series-based solutions for generating X and Y are also available: +** see Capitaine & Wallace (2006) and iauXy06. +** +** Called: +** iauPnm06a classical NPB matrix, IAU 2006/2000A +** iauBpn2xy extract CIP X,Y coordinates from NPB matrix +** iauS06 the CIO locator s, given X,Y, IAU 2006 +** +** References: +** +** Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855 +** +** Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981 +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + double rbpn[3][3]; + +/* Form the bias-precession-nutation matrix, IAU 2006/2000A. */ + iauPnm06a(date1, date2, rbpn); + +/* Extract X,Y. */ + iauBpn2xy(rbpn, x, y); + +/* Obtain s. */ + *s = iauS06(date1, date2, *x, *y); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/zp.c =================================================================== --- /trunk/FACT++/sofa/src/zp.c (revision 18346) +++ /trunk/FACT++/sofa/src/zp.c (revision 18346) @@ -0,0 +1,127 @@ +#include "sofa.h" + +void iauZp(double p[3]) +/* +** - - - - - - +** i a u Z p +** - - - - - - +** +** Zero a p-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Returned: +** p double[3] p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + p[0] = 0.0; + p[1] = 0.0; + p[2] = 0.0; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/zpv.c =================================================================== --- /trunk/FACT++/sofa/src/zpv.c (revision 18346) +++ /trunk/FACT++/sofa/src/zpv.c (revision 18346) @@ -0,0 +1,129 @@ +#include "sofa.h" + +void iauZpv(double pv[2][3]) +/* +** - - - - - - - +** i a u Z p v +** - - - - - - - +** +** Zero a pv-vector. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Returned: +** pv double[2][3] pv-vector +** +** Called: +** iauZp zero p-vector +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + iauZp(pv[0]); + iauZp(pv[1]); + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +} Index: /trunk/FACT++/sofa/src/zr.c =================================================================== --- /trunk/FACT++/sofa/src/zr.c (revision 18346) +++ /trunk/FACT++/sofa/src/zr.c (revision 18346) @@ -0,0 +1,133 @@ +#include "sofa.h" + +void iauZr(double r[3][3]) +/* +** - - - - - - +** i a u Z r +** - - - - - - +** +** Initialize an r-matrix to the null matrix. +** +** This function is part of the International Astronomical Union's +** SOFA (Standards Of Fundamental Astronomy) software collection. +** +** Status: vector/matrix support function. +** +** Returned: +** r double[3][3] r-matrix +** +** This revision: 2013 June 18 +** +** SOFA release 2015-02-09 +** +** Copyright (C) 2015 IAU SOFA Board. See notes at end. +*/ +{ + r[0][0] = 0.0; + r[0][1] = 0.0; + r[0][2] = 0.0; + r[1][0] = 0.0; + r[1][1] = 0.0; + r[1][2] = 0.0; + r[2][0] = 0.0; + r[2][1] = 0.0; + r[2][2] = 0.0; + + return; + +/*---------------------------------------------------------------------- +** +** Copyright (C) 2015 +** Standards Of Fundamental Astronomy Board +** of the International Astronomical Union. +** +** ===================== +** SOFA Software License +** ===================== +** +** NOTICE TO USER: +** +** BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND +** CONDITIONS WHICH APPLY TO ITS USE. +** +** 1. The Software is owned by the IAU SOFA Board ("SOFA"). +** +** 2. Permission is granted to anyone to use the SOFA software for any +** purpose, including commercial applications, free of charge and +** without payment of royalties, subject to the conditions and +** restrictions listed below. +** +** 3. You (the user) may copy and distribute SOFA source code to others, +** and use and adapt its code and algorithms in your own software, +** on a world-wide, royalty-free basis. That portion of your +** distribution that does not consist of intact and unchanged copies +** of SOFA source code files is a "derived work" that must comply +** with the following requirements: +** +** a) Your work shall be marked or carry a statement that it +** (i) uses routines and computations derived by you from +** software provided by SOFA under license to you; and +** (ii) does not itself constitute software provided by and/or +** endorsed by SOFA. +** +** b) The source code of your derived work must contain descriptions +** of how the derived work is based upon, contains and/or differs +** from the original SOFA software. +** +** c) The names of all routines in your derived work shall not +** include the prefix "iau" or "sofa" or trivial modifications +** thereof such as changes of case. +** +** d) The origin of the SOFA components of your derived work must +** not be misrepresented; you must not claim that you wrote the +** original software, nor file a patent application for SOFA +** software or algorithms embedded in the SOFA software. +** +** e) These requirements must be reproduced intact in any source +** distribution and shall apply to anyone to whom you have +** granted a further right to modify the source code of your +** derived work. +** +** Note that, as originally distributed, the SOFA software is +** intended to be a definitive implementation of the IAU standards, +** and consequently third-party modifications are discouraged. All +** variations, no matter how minor, must be explicitly marked as +** such, as explained above. +** +** 4. You shall not cause the SOFA software to be brought into +** disrepute, either by misuse, or use for inappropriate tasks, or +** by inappropriate modification. +** +** 5. The SOFA software is provided "as is" and SOFA makes no warranty +** as to its use or performance. SOFA does not and cannot warrant +** the performance or results which the user may obtain by using the +** SOFA software. SOFA makes no warranties, express or implied, as +** to non-infringement of third party rights, merchantability, or +** fitness for any particular purpose. In no event will SOFA be +** liable to the user for any consequential, incidental, or special +** damages, including any lost profits or lost savings, even if a +** SOFA representative has been advised of such damages, or for any +** claim by any third party. +** +** 6. The provision of any version of the SOFA software under the terms +** and conditions specified herein does not imply that future +** versions will also be made available under the same terms and +** conditions. +* +** In any published work or commercial product which uses the SOFA +** software directly, acknowledgement (see www.iausofa.org) is +** appreciated. +** +** Correspondence concerning SOFA software should be addressed as +** follows: +** +** By email: sofa@ukho.gov.uk +** By post: IAU SOFA Center +** HM Nautical Almanac Office +** UK Hydrographic Office +** Admiralty Way, Taunton +** Somerset, TA1 2DN +** United Kingdom +** +**--------------------------------------------------------------------*/ +}