Add missing PTW/RAL copyrights inherited from Fortran code

[just because the code was rewritten in C doesn't mean that it's no longer copyright the original author if the code is a direct port]
Starlink · Jul 17, 2014 · 9a42a75 · 9a42a75
1 parent 050afe4
commit 9a42a75
Show file tree

Hide file tree

Showing 72 changed files with 110 additions and 8 deletions.
diff --git a/pal1Atms.c b/pal1Atms.c
@@ -38,6 +38,7 @@
 
 *  Authors:
 *     TIMJ: Tim Jenness (JAC, Hawaii)
+*     PTW: Patrick T. Wallace
 *     {enter_new_authors_here}
 
 *  Notes:
@@ -50,6 +51,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 2004 Patrick T. Wallace
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/pal1Atmt.c b/pal1Atmt.c
@@ -56,6 +56,7 @@
 
 *  Authors:
 *     TIMJ: Tim Jenness (JAC, Hawaii)
+*     PTW: Patrick T. Wallace
 *     {enter_new_authors_here}
 
 *  Notes:
@@ -69,6 +70,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 2004 Patrick T. Wallace
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palAddet.c b/palAddet.c
@@ -57,6 +57,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1999 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palAirmas.c b/palAirmas.c
@@ -55,6 +55,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1999 Rutherford Appleton Laboratory.
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palAmp.c b/palAmp.c
@@ -36,6 +36,7 @@
 
 *  Authors:
 *     TIMJ: Tim Jenness (JAC, Hawaii)
+*     PTW: Patrick T. Wallace
 *     {enter_new_authors_here}
 
 *  Notes:
@@ -48,6 +49,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 2001 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palAmpqk.c b/palAmpqk.c
@@ -54,6 +54,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 2000 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palAop.c b/palAop.c
@@ -65,6 +65,7 @@
 *     Apparent to observed place for sources distant from the solar system.
 
 *  Authors:
+*     PTW: Patrick T. Wallace
 *     TIMJ: Tim Jenness (JAC, Hawaii)
 *     {enter_new_authors_here}
 
@@ -194,6 +195,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 2005 Patrick T. Wallace
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palAoppat.c b/palAoppat.c
@@ -31,6 +31,7 @@
 
 *  Authors:
 *     TIMJ: Tim Jenness (JAC, Hawaii)
+*     PTW: Patrick T. Wallace
 *     {enter_new_authors_here}
 
 *  Notes:
@@ -45,6 +46,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1995 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palAopqk.c b/palAopqk.c
@@ -53,6 +53,7 @@
 
 *  Authors:
 *     TIMJ: Tim Jenness (JAC, Hawaii)
+*     PTW: Patrick T. Wallace
 *     {enter_new_authors_here}
 
 *  Notes:
@@ -146,6 +147,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 2003 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palCaldj.c b/palCaldj.c
@@ -55,6 +55,7 @@
 
 
 *  Copyright:
+*     Copyright (C) 1995 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palDafin.c b/palDafin.c
@@ -38,6 +38,7 @@
 
 *  Authors:
 *     TIMJ: Tim Jenness (JAC, Hawaii)
+*     PTW: Patrick T. Wallace
 *     {enter_new_authors_here}
 
 *  Example:
@@ -97,6 +98,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1996 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palDat.c b/palDat.c
@@ -45,7 +45,8 @@
 *  History:
 *     2012-02-08 (TIMJ):
 *        Initial version
-*        Adapted with permission from the Fortran SLALIB library.
+*        Adapted with permission from the Fortran SLALIB library
+*        although the core algorithm is now from SOFA.
 *     {enter_further_changes_here}
 
 *  Copyright:

diff --git a/palDe2h.c b/palDe2h.c
@@ -66,6 +66,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1995 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palDeuler.c b/palDeuler.c
@@ -63,6 +63,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1997 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palDfltin.c b/palDfltin.c
@@ -60,7 +60,8 @@
 *  History:
 *     2012-03-08 (TIMJ):
 *        Initial version based on strtod
-*        Adapted with permission from the Fortran SLALIB library.
+*        Adapted with permission from the Fortran SLALIB library
+*        although this is a completely distinct implementation of the SLA API.
 *     2012-06-21 (TIMJ):
 *        Provide a backup for missing copysign.
 *     2012-06-22 (TIMJ):

diff --git a/palDh2e.c b/palDh2e.c
@@ -64,6 +64,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1996 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palDjcal.c b/palDjcal.c
@@ -46,6 +46,7 @@
 *     - Uses iauJd2cal
 
 *  Copyright:
+*     Copyright (C) 2004 Patrick T. Wallace
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palDmoon.c b/palDmoon.c
@@ -29,6 +29,7 @@
 
 *  Authors:
 *     TIMJ: Tim Jenness (JAC, Hawaii)
+*     PTW: Patrick T. Wallace
 *     {enter_new_authors_here}
 
 *  Notes:
@@ -59,6 +60,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1998 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palDrange.c b/palDrange.c
@@ -26,6 +26,7 @@
 
 *  Authors:
 *     DSB: David S Berry (JAC, Hawaii)
+*     PTW: Patrick T. Wallace
 *     {enter_new_authors_here}
 
 *  History:
@@ -35,6 +36,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1995 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palDs2tp.c b/palDs2tp.c
@@ -51,6 +51,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1996 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palDt.c b/palDt.c
@@ -30,6 +30,7 @@
 
 *  Authors:
 *     TIMJ: Tim Jenness (JAC, Hawaii)
+*     PTW: Patrick T. Wallace
 *     {enter_new_authors_here}
 
 *  Notes:
@@ -66,6 +67,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1995 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palDtp2s.c b/palDtp2s.c
@@ -45,6 +45,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1995 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palDtps2c.c b/palDtps2c.c
@@ -73,6 +73,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1995 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palDtt.c b/palDtt.c
@@ -29,6 +29,7 @@
 
 *  Authors:
 *     TIMJ: Tim Jenness (JAC, Hawaii)
+*     PTW: Patrick T. Wallace
 *     {enter_new_authors_here}
 
 *  Notes:
@@ -44,6 +45,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1995 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palEcmat.c b/palEcmat.c
@@ -41,6 +41,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1996 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palEl2ue.c b/palEl2ue.c
@@ -145,6 +145,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 2005 Patrick T. Wallace
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palEpco.c b/palEpco.c
@@ -26,6 +26,7 @@
 *     epoch.
 
 *  Authors:
+*     PTW: Patrick T. Wallace
 *     TIMJ: Tim Jenness (JAC, Hawaii)
 *     {enter_new_authors_here}
 
@@ -48,6 +49,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1995 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palEpv.c b/palEpv.c
@@ -43,7 +43,8 @@
 *  History:
 *     2012-03-12 (TIMJ):
 *        Initial version
-*        Adapted with permission from the Fortran SLALIB library.
+*        Adapted with permission from the Fortran SLALIB library
+*        but now mainly calls SOFA routines.
 *     {enter_further_changes_here}
 
 *  Copyright:

diff --git a/palEqecl.c b/palEqecl.c
@@ -34,6 +34,7 @@
 *     Transform from J2000.0 equatorial coordinates to ecliptic coordinates.
 
 *  Authors:
+*     PTW: Patrick T. Wallace
 *     TIMJ: Tim Jenness (JAC, Hawaii)
 *     {enter_new_authors_here}
 
@@ -44,6 +45,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1995 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palEqgal.c b/palEqgal.c
@@ -49,8 +49,10 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1998 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
+
 *  Licence:
 *     This program is free software: you can redistribute it and/or
 *     modify it under the terms of the GNU Lesser General Public

diff --git a/palEtrms.c b/palEtrms.c
@@ -47,6 +47,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1996 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 
@@ -88,11 +89,11 @@ void palEtrms ( double ep, double ev[3] ) {
   e = .01673011 - (t * 1.26e-7 + 4.193e-5) * t;
 
   /*  Mean obliquity */
-  e0 = (84404.836 - ((t * .00181 + .00319) * t + 46.8495) * t) * 
+  e0 = (84404.836 - ((t * .00181 + .00319) * t + 46.8495) * t) *
     PAL__DAS2R;
 
   /*  Mean longitude of perihelion */
-  p = (((t * .012 + 1.65) * t + 6190.67) * t + 1015489.951) * 
+  p = (((t * .012 + 1.65) * t + 6190.67) * t + 1015489.951) *
     PAL__DAS2R;
 
   /*  E-terms */

diff --git a/palEvp.c b/palEvp.c
@@ -49,6 +49,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 2005 Patrick T. Wallace
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palFk45z.c b/palFk45z.c
@@ -92,6 +92,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1998 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.
 

diff --git a/palFk524.c b/palFk524.c
@@ -100,6 +100,7 @@
 *     {enter_further_changes_here}
 
 *  Copyright:
+*     Copyright (C) 1995 Rutherford Appleton Laboratory
 *     Copyright (C) 2012 Science and Technology Facilities Council.
 *     All Rights Reserved.