AA - v16

abrudana · Aug 14, 2020 · 30f3e6b · 30f3e6b
1 parent ecccfb5
commit 30f3e6b
Show file tree

Hide file tree

Showing 276 changed files with 1,955 additions and 1,332 deletions.
diff --git a/WorldWideAstronomy/SOFA/SOFA.vcxproj b/WorldWideAstronomy/SOFA/SOFA.vcxproj
@@ -176,7 +176,11 @@
     <ClCompile Include="fasa03.c" />
     <ClCompile Include="faur03.c" />
     <ClCompile Include="fave03.c" />
+    <ClCompile Include="fk425.c" />
+    <ClCompile Include="fk45z.c" />
+    <ClCompile Include="fk524.c" />
     <ClCompile Include="fk52h.c" />
+    <ClCompile Include="fk54z.c" />
     <ClCompile Include="fk5hip.c" />
     <ClCompile Include="fk5hz.c" />
     <ClCompile Include="fw2m.c" />

diff --git a/WorldWideAstronomy/SOFA/SOFA.vcxproj.filters b/WorldWideAstronomy/SOFA/SOFA.vcxproj.filters
@@ -242,6 +242,10 @@
     <ClCompile Include="tpstv.c" />
     <ClCompile Include="tpxes.c" />
     <ClCompile Include="tpxev.c" />
+    <ClCompile Include="fk45z.c" />
+    <ClCompile Include="fk54z.c" />
+    <ClCompile Include="fk425.c" />
+    <ClCompile Include="fk524.c" />
   </ItemGroup>
   <ItemGroup>
     <ClInclude Include="sofa.h" />

diff --git a/WorldWideAstronomy/SOFA/a2af.c b/WorldWideAstronomy/SOFA/a2af.c
@@ -18,12 +18,9 @@ void iauA2af(int ndp, double angle, char *sign, int idmsf[4])
 **     angle   double  angle in radians
 **
 **  Returned:
-**     sign    char    '+' or '-'
+**     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:
@@ -56,11 +53,14 @@ void iauA2af(int ndp, double angle, char *sign, int idmsf[4])
 **     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
+**  Called:
+**     iauD2tf      decompose days to hms
+**
+**  This revision:  2020 April 1
 **
-**  SOFA release 2018-01-30
+**  SOFA release 2020-07-21
 **
-**  Copyright (C) 2018 IAU SOFA Board.  See notes at end.
+**  Copyright (C) 2020 IAU SOFA Board.  See notes at end.
 */
 {
 /* Hours to degrees * radians to turns */
@@ -74,7 +74,7 @@ void iauA2af(int ndp, double angle, char *sign, int idmsf[4])
 
 /*----------------------------------------------------------------------
 **
-**  Copyright (C) 2018
+**  Copyright (C) 2020
 **  Standards Of Fundamental Astronomy Board
 **  of the International Astronomical Union.
 **

diff --git a/WorldWideAstronomy/SOFA/a2tf.c b/WorldWideAstronomy/SOFA/a2tf.c
@@ -18,12 +18,9 @@ void iauA2tf(int ndp, double angle, char *sign, int ihmsf[4])
 **     angle   double  angle in radians
 **
 **  Returned:
-**     sign    char    '+' or '-'
+**     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:
@@ -56,11 +53,14 @@ void iauA2tf(int ndp, double angle, char *sign, int ihmsf[4])
 **     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
+**  Called:
+**     iauD2tf      decompose days to hms
+**
+**  This revision:  2020 April 1
 **
-**  SOFA release 2018-01-30
+**  SOFA release 2020-07-21
 **
-**  Copyright (C) 2018 IAU SOFA Board.  See notes at end.
+**  Copyright (C) 2020 IAU SOFA Board.  See notes at end.
 */
 {
 /* Scale then use days to h,m,s function. */
@@ -70,7 +70,7 @@ void iauA2tf(int ndp, double angle, char *sign, int ihmsf[4])
 
 /*----------------------------------------------------------------------
 **
-**  Copyright (C) 2018
+**  Copyright (C) 2020
 **  Standards Of Fundamental Astronomy Board
 **  of the International Astronomical Union.
 **

diff --git a/WorldWideAstronomy/SOFA/ab.c b/WorldWideAstronomy/SOFA/ab.c
@@ -55,9 +55,9 @@ void iauAb(double pnat[3], double v[3], double s, double bm1,
 **
 **  This revision:   2013 October 9
 **
-**  SOFA release 2018-01-30
+**  SOFA release 2020-07-21
 **
-**  Copyright (C) 2018 IAU SOFA Board.  See notes at end.
+**  Copyright (C) 2020 IAU SOFA Board.  See notes at end.
 */
 {
    int i;
@@ -82,7 +82,7 @@ void iauAb(double pnat[3], double v[3], double s, double bm1,
 
 /*----------------------------------------------------------------------
 **
-**  Copyright (C) 2018
+**  Copyright (C) 2020
 **  Standards Of Fundamental Astronomy Board
 **  of the International Astronomical Union.
 **
@@ -175,5 +175,4 @@ void iauAb(double pnat[3], double v[3], double s, double bm1,
 **                 United Kingdom
 **
 **--------------------------------------------------------------------*/
-
 }
diff --git a/WorldWideAstronomy/SOFA/ae2hd.c b/WorldWideAstronomy/SOFA/ae2hd.c
@@ -59,9 +59,9 @@ void iauAe2hd (double az, double el, double phi,
 **
 **  Last revision:   2017 September 12
 **
-**  SOFA release 2018-01-30
+**  SOFA release 2020-07-21
 **
-**  Copyright (C) 2018 IAU SOFA Board.  See notes at end.
+**  Copyright (C) 2020 IAU SOFA Board.  See notes at end.
 */
 {
    double sa, ca, se, ce, sp, cp, x, y, z, r;
@@ -89,7 +89,7 @@ void iauAe2hd (double az, double el, double phi,
 
 /*----------------------------------------------------------------------
 **
-**  Copyright (C) 2018
+**  Copyright (C) 2020
 **  Standards Of Fundamental Astronomy Board
 **  of the International Astronomical Union.
 **
@@ -182,5 +182,4 @@ void iauAe2hd (double az, double el, double phi,
 **                 United Kingdom
 **
 **--------------------------------------------------------------------*/
-
 }
diff --git a/WorldWideAstronomy/SOFA/af2a.c b/WorldWideAstronomy/SOFA/af2a.c
@@ -41,9 +41,9 @@ int iauAf2a(char s, int ideg, int iamin, double asec, double *rad)
 **
 **  This revision:  2013 June 18
 **
-**  SOFA release 2018-01-30
+**  SOFA release 2020-07-21
 **
-**  Copyright (C) 2018 IAU SOFA Board.  See notes at end.
+**  Copyright (C) 2020 IAU SOFA Board.  See notes at end.
 */
 {
 
@@ -61,7 +61,7 @@ int iauAf2a(char s, int ideg, int iamin, double asec, double *rad)
 
 /*----------------------------------------------------------------------
 **
-**  Copyright (C) 2018
+**  Copyright (C) 2020
 **  Standards Of Fundamental Astronomy Board
 **  of the International Astronomical Union.
 **

diff --git a/WorldWideAstronomy/SOFA/anp.c b/WorldWideAstronomy/SOFA/anp.c
@@ -21,9 +21,9 @@ double iauAnp(double a)
 **
 **  This revision:  2013 June 18
 **
-**  SOFA release 2018-01-30
+**  SOFA release 2020-07-21
 **
-**  Copyright (C) 2018 IAU SOFA Board.  See notes at end.
+**  Copyright (C) 2020 IAU SOFA Board.  See notes at end.
 */
 {
    double w;
@@ -36,7 +36,7 @@ double iauAnp(double a)
 
 /*----------------------------------------------------------------------
 **
-**  Copyright (C) 2018
+**  Copyright (C) 2020
 **  Standards Of Fundamental Astronomy Board
 **  of the International Astronomical Union.
 **

diff --git a/WorldWideAstronomy/SOFA/anpm.c b/WorldWideAstronomy/SOFA/anpm.c
@@ -21,9 +21,9 @@ double iauAnpm(double a)
 **
 **  This revision:  2013 June 18
 **
-**  SOFA release 2018-01-30
+**  SOFA release 2020-07-21
 **
-**  Copyright (C) 2018 IAU SOFA Board.  See notes at end.
+**  Copyright (C) 2020 IAU SOFA Board.  See notes at end.
 */
 {
    double w;
@@ -36,7 +36,7 @@ double iauAnpm(double a)
 
 /*----------------------------------------------------------------------
 **
-**  Copyright (C) 2018
+**  Copyright (C) 2020
 **  Standards Of Fundamental Astronomy Board
 **  of the International Astronomical Union.
 **

diff --git a/WorldWideAstronomy/SOFA/apcg.c b/WorldWideAstronomy/SOFA/apcg.c
@@ -109,9 +109,9 @@ void iauApcg(double date1, double date2,
 **
 **  This revision:   2013 October 9
 **
-**  SOFA release 2018-01-30
+**  SOFA release 2020-07-21
 **
-**  Copyright (C) 2018 IAU SOFA Board.  See notes at end.
+**  Copyright (C) 2020 IAU SOFA Board.  See notes at end.
 */
 {
 /* Geocentric observer */
@@ -126,7 +126,7 @@ void iauApcg(double date1, double date2,
 
 /*----------------------------------------------------------------------
 **
-**  Copyright (C) 2018
+**  Copyright (C) 2020
 **  Standards Of Fundamental Astronomy Board
 **  of the International Astronomical Union.
 **
@@ -219,5 +219,4 @@ void iauApcg(double date1, double date2,
 **                 United Kingdom
 **
 **--------------------------------------------------------------------*/
-
 }
diff --git a/WorldWideAstronomy/SOFA/apcg13.c b/WorldWideAstronomy/SOFA/apcg13.c
@@ -111,9 +111,9 @@ void iauApcg13(double date1, double date2, iauASTROM *astrom)
 **
 **  This revision:   2013 October 9
 **
-**  SOFA release 2018-01-30
+**  SOFA release 2020-07-21
 **
-**  Copyright (C) 2018 IAU SOFA Board.  See notes at end.
+**  Copyright (C) 2020 IAU SOFA Board.  See notes at end.
 */
 {
    double ehpv[2][3], ebpv[2][3];
@@ -129,7 +129,7 @@ void iauApcg13(double date1, double date2, iauASTROM *astrom)
 
 /*----------------------------------------------------------------------
 **
-**  Copyright (C) 2018
+**  Copyright (C) 2020
 **  Standards Of Fundamental Astronomy Board
 **  of the International Astronomical Union.
 **
@@ -222,5 +222,4 @@ void iauApcg13(double date1, double date2, iauASTROM *astrom)
 **                 United Kingdom
 **
 **--------------------------------------------------------------------*/
-
 }
diff --git a/WorldWideAstronomy/SOFA/apci.c b/WorldWideAstronomy/SOFA/apci.c
@@ -119,9 +119,9 @@ void iauApci(double date1, double date2,
 **
 **  This revision:   2013 September 25
 **
-**  SOFA release 2018-01-30
+**  SOFA release 2020-07-21
 **
-**  Copyright (C) 2018 IAU SOFA Board.  See notes at end.
+**  Copyright (C) 2020 IAU SOFA Board.  See notes at end.
 */
 {
 
@@ -135,7 +135,7 @@ void iauApci(double date1, double date2,
 
 /*----------------------------------------------------------------------
 **
-**  Copyright (C) 2018
+**  Copyright (C) 2020
 **  Standards Of Fundamental Astronomy Board
 **  of the International Astronomical Union.
 **
@@ -228,5 +228,4 @@ void iauApci(double date1, double date2,
 **                 United Kingdom
 **
 **--------------------------------------------------------------------*/
-
 }
diff --git a/WorldWideAstronomy/SOFA/apci13.c b/WorldWideAstronomy/SOFA/apci13.c
@@ -117,9 +117,9 @@ void iauApci13(double date1, double date2,
 **
 **  This revision:   2013 October 9
 **
-**  SOFA release 2018-01-30
+**  SOFA release 2020-07-21
 **
-**  Copyright (C) 2018 IAU SOFA Board.  See notes at end.
+**  Copyright (C) 2020 IAU SOFA Board.  See notes at end.
 */
 {
    double ehpv[2][3], ebpv[2][3], r[3][3], x, y, s;
@@ -147,7 +147,7 @@ void iauApci13(double date1, double date2,
 
 /*----------------------------------------------------------------------
 **
-**  Copyright (C) 2018
+**  Copyright (C) 2020
 **  Standards Of Fundamental Astronomy Board
 **  of the International Astronomical Union.
 **
@@ -240,5 +240,4 @@ void iauApci13(double date1, double date2,
 **                 United Kingdom
 **
 **--------------------------------------------------------------------*/
-
 }
diff --git a/WorldWideAstronomy/SOFA/apco.c b/WorldWideAstronomy/SOFA/apco.c
@@ -159,9 +159,9 @@ void iauApco(double date1, double date2,
 **
 **  This revision:   2013 October 9
 **
-**  SOFA release 2018-01-30
+**  SOFA release 2020-07-21
 **
-**  Copyright (C) 2018 IAU SOFA Board.  See notes at end.
+**  Copyright (C) 2020 IAU SOFA Board.  See notes at end.
 */
 {
    double sl, cl, r[3][3], pvc[2][3], pv[2][3];
@@ -209,7 +209,7 @@ void iauApco(double date1, double date2,
 
 /*----------------------------------------------------------------------
 **
-**  Copyright (C) 2018
+**  Copyright (C) 2020
 **  Standards Of Fundamental Astronomy Board
 **  of the International Astronomical Union.
 **
@@ -302,5 +302,4 @@ void iauApco(double date1, double date2,
 **                 United Kingdom
 **
 **--------------------------------------------------------------------*/
-
 }
diff --git a/WorldWideAstronomy/SOFA/apco13.c b/WorldWideAstronomy/SOFA/apco13.c
@@ -180,9 +180,9 @@ int iauApco13(double utc1, double utc2, double dut1,
 **
 **  This revision:   2013 December 5
 **
-**  SOFA release 2018-01-30
+**  SOFA release 2020-07-21
 **
-**  Copyright (C) 2018 IAU SOFA Board.  See notes at end.
+**  Copyright (C) 2020 IAU SOFA Board.  See notes at end.
 */
 {
    int j;
@@ -232,7 +232,7 @@ int iauApco13(double utc1, double utc2, double dut1,
 
 /*----------------------------------------------------------------------
 **
-**  Copyright (C) 2018
+**  Copyright (C) 2020
 **  Standards Of Fundamental Astronomy Board
 **  of the International Astronomical Union.
 **
@@ -325,5 +325,4 @@ int iauApco13(double utc1, double utc2, double dut1,
 **                 United Kingdom
 **
 **--------------------------------------------------------------------*/
-
 }