summaryrefslogtreecommitdiffstats
path: root/ast/pal/palDtp2s.c
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2016-11-02 19:11:06 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2016-11-02 19:11:06 (GMT)
commit33c55bd916dff8c4932b01c7db58f0103ac31c31 (patch)
treea4cdca3287dd2df5247ce8079c424ffa438b4c2e /ast/pal/palDtp2s.c
parent4121637f3d41d6dc23e6543a445b5a3aed9e6ddc (diff)
downloadblt-33c55bd916dff8c4932b01c7db58f0103ac31c31.zip
blt-33c55bd916dff8c4932b01c7db58f0103ac31c31.tar.gz
blt-33c55bd916dff8c4932b01c7db58f0103ac31c31.tar.bz2
update ast
Diffstat (limited to 'ast/pal/palDtp2s.c')
-rw-r--r--ast/pal/palDtp2s.c95
1 files changed, 0 insertions, 95 deletions
diff --git a/ast/pal/palDtp2s.c b/ast/pal/palDtp2s.c
deleted file mode 100644
index 583a56d..0000000
--- a/ast/pal/palDtp2s.c
+++ /dev/null
@@ -1,95 +0,0 @@
-/*
-*+
-* Name:
-* palDtp2s
-
-* Purpose:
-* Tangent plane to spherical coordinates
-
-* Language:
-* Starlink ANSI C
-
-* Type of Module:
-* Library routine
-
-* Invocation:
-* palDtp2s( double xi, double eta, double raz, double decz,
-* double *ra, double *dec);
-
-* Arguments:
-* xi = double (Given)
-* First rectangular coordinate on tangent plane (radians)
-* eta = double (Given)
-* Second rectangular coordinate on tangent plane (radians)
-* raz = double (Given)
-* RA spherical coordinate of tangent point (radians)
-* decz = double (Given)
-* Dec spherical coordinate of tangent point (radians)
-* ra = double * (Returned)
-* RA spherical coordinate of point to be projected (radians)
-* dec = double * (Returned)
-* Dec spherical coordinate of point to be projected (radians)
-
-* Description:
-* Transform tangent plane coordinates into spherical.
-
-* Authors:
-* PTW: Pat Wallace (STFC)
-* TIMJ: Tim Jenness (JAC, Hawaii)
-* {enter_new_authors_here}
-
-* History:
-* 2012-02-08 (TIMJ):
-* Initial version with documentation taken from Fortran SLA
-* Adapted with permission from the Fortran SLALIB library.
-* {enter_further_changes_here}
-
-* Copyright:
-* Copyright (C) 1995 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
-* License as published by the Free Software Foundation, either
-* version 3 of the License, or (at your option) any later
-* version.
-*
-* This program is distributed in the hope that it will be useful,
-* but WITHOUT ANY WARRANTY; without even the implied warranty of
-* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-* GNU Lesser General Public License for more details.
-*
-* You should have received a copy of the GNU Lesser General
-* License along with this program. If not, see
-* <http://www.gnu.org/licenses/>.
-
-* Bugs:
-* {note_any_bugs_here}
-*-
-*/
-
-#include "pal.h"
-#include "pal1sofa.h"
-
-#include <math.h>
-
-void
-palDtp2s ( double xi, double eta, double raz, double decz,
- double *ra, double *dec ) {
-
- double cdecz;
- double denom;
- double sdecz;
- double d;
-
- sdecz = sin(decz);
- cdecz = cos(decz);
- denom = cdecz - eta * sdecz;
- d = atan2(xi, denom) + raz;
- *ra = eraAnp(d);
- *dec = atan2(sdecz + eta * cdecz, sqrt(xi * xi + denom * denom));
-
- return;
-}