summaryrefslogtreecommitdiffstats
path: root/ast/ast_test.c
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2018-01-09 19:26:44 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2018-01-09 19:26:44 (GMT)
commit1332d38f2805d986ea130e43218c0d2e870b4dc1 (patch)
treeaa72853cb8d0d8fcd53a6f5eddf196a374226706 /ast/ast_test.c
parent5e545ec8058cc5238dc870468b34b5d4617f307f (diff)
downloadblt-1332d38f2805d986ea130e43218c0d2e870b4dc1.zip
blt-1332d38f2805d986ea130e43218c0d2e870b4dc1.tar.gz
blt-1332d38f2805d986ea130e43218c0d2e870b4dc1.tar.bz2
update ast 8.6.2
Diffstat (limited to 'ast/ast_test.c')
-rw-r--r--ast/ast_test.c115
1 files changed, 0 insertions, 115 deletions
diff --git a/ast/ast_test.c b/ast/ast_test.c
deleted file mode 100644
index 61e948e..0000000
--- a/ast/ast_test.c
+++ /dev/null
@@ -1,115 +0,0 @@
-/* Header files. */
-/* ============= */
-/* Interface definitions. */
-/* ---------------------- */
-#include "ast.h" /* AST C interface definition */
-
-/* C header files. */
-/* --------------- */
-#include <stdio.h>
-
-/* Main function. */
-/* ============== */
-int main( int argc, char *argv[] ) {
-/*
-*+
-* Name:
-* ast_test
-
-* Purpose:
-* Test installation of the AST library.
-
-* Type:
-* C program.
-
-* Description:
-* This program performs a simple test (without using graphics) of
-* the AST library, to check that it is correctly installed. It is
-* not an exhaustive test of the system.
-
-* Arguments:
-* None.
-
-* Copyright:
-* Copyright (C) 1997-2006 Council for the Central Laboratory of the
-* Research Councils
-
-* 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/>.
-
-* Authors:
-* RFWS: R.F. Warren-Smith (Starlink)
-
-* History:
-* 19-NOV-1997 (RFWS);
-* Original version.
-*-
-*/
-
-/* Local Constants: */
-#define NCOORD 10 /* Number of coordinates to transform */
-
-/* Local Variables: */
- AstFrameSet *cvt; /* Pointer to conversion FrameSet */
- AstSkyFrame *sky1; /* Pointer to first SkyFrame */
- AstSkyFrame *sky2; /* Pointer to second SkyFrame */
- double xin[ NCOORD ]; /* Input coordinate array */
- double xout[ NCOORD ]; /* Output coordinate array */
- double yin[ NCOORD ]; /* Input coordinate array */
- double yout[ NCOORD ]; /* Output coordinate array */
- int i; /* Loop counter for coordinates */
-
-/* Begin an AST context. */
- astBegin;
-
-/* Create two SkyFrames. */
- sky1 = astSkyFrame( "system = FK4_NO_E, equinox = B1920, epoch = B1958" );
- sky2 = astSkyFrame( "system = ecliptic, equinox = J2001" );
-
-/* Create a FrameSet describing the conversion between them. */
- cvt = astConvert( sky1, sky2, "" );
-
-/* If successful, set up some input coordinates. */
- if ( cvt != AST__NULL ) {
- for ( i = 0; i < NCOORD; i++ ) {
- xin[ i ] = 0.1 * (double) i;
- yin[ i ] = 0.2 * (double) i;
- }
-
-/* Display the FrameSet. */
- astShow( cvt );
- printf( "\n");
-
-/* Activate reporting of coordinate transformations. */
- astSet( cvt, "Report = 1" );
-
-/* Perform the forward transformation. */
- astTran2( cvt, 10, xin, yin, 1, xout, yout );
- printf( "\n");
-
-/* Perform the inverse transformation. */
- astTran2( cvt, 10, xout, yout, 0, xin, yin );
- }
-
-/* End the AST context. */
- astEnd;
-
-/* Return an error status. */
- return astOK ? 0 : 1;
-
-/* Undefine local macros. */
-#undef NCOORD
-}