| 1 |
233 |
bertin |
/*
|
| 2 |
|
|
* lin.h
|
| 3 |
|
|
*
|
| 4 |
|
|
* Include file for lin.c.
|
| 5 |
|
|
*
|
| 6 |
|
|
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
| 7 |
|
|
*
|
| 8 |
|
|
* This file part of: AstrOmatic WCS library
|
| 9 |
|
|
*
|
| 10 |
|
|
* Copyright: (C) 2000-2010 IAP/CNRS/UPMC
|
| 11 |
|
|
* (C) 1995-1999 Mark Calabretta
|
| 12 |
|
|
*
|
| 13 |
|
|
* Authors: Emmanuel Bertin (this version)
|
| 14 |
|
|
* Mark Calabretta (original version)
|
| 15 |
|
|
*
|
| 16 |
|
|
* Licenses: GNU General Public License
|
| 17 |
|
|
*
|
| 18 |
|
|
* AstrOmatic software is free software: you can redistribute it and/or
|
| 19 |
|
|
* modify it under the terms of the GNU General Public License as
|
| 20 |
|
|
* published by the Free Software Foundation, either version 3 of the
|
| 21 |
|
|
* License, or (at your option) any later version.
|
| 22 |
|
|
* AstrOmatic software is distributed in the hope that it will be useful,
|
| 23 |
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
| 24 |
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
| 25 |
|
|
* GNU General Public License for more details.
|
| 26 |
|
|
* You should have received a copy of the GNU General Public License
|
| 27 |
|
|
* along with AstrOmatic software.
|
| 28 |
|
|
* If not, see <http://www.gnu.org/licenses/>.
|
| 29 |
|
|
*
|
| 30 |
|
|
* Last modified: 10/10/2010
|
| 31 |
|
|
*
|
| 32 |
|
|
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*/
|
| 33 |
2 |
bertin |
/*=============================================================================
|
| 34 |
|
|
*
|
| 35 |
|
|
* WCSLIB - an implementation of the FITS WCS proposal.
|
| 36 |
|
|
* Copyright (C) 1995-1999, Mark Calabretta
|
| 37 |
|
|
*
|
| 38 |
|
|
* This library is free software; you can redistribute it and/or modify it
|
| 39 |
|
|
* under the terms of the GNU Library General Public License as published
|
| 40 |
|
|
* by the Free Software Foundation; either version 2 of the License, or (at
|
| 41 |
|
|
* your option) any later version.
|
| 42 |
|
|
*
|
| 43 |
|
|
* This library is distributed in the hope that it will be useful, but
|
| 44 |
|
|
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
| 45 |
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library
|
| 46 |
|
|
* General Public License for more details.
|
| 47 |
|
|
*
|
| 48 |
|
|
* You should have received a copy of the GNU Library General Public License
|
| 49 |
|
|
* along with this library; if not, write to the Free Software Foundation,
|
| 50 |
|
|
* Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
| 51 |
|
|
*
|
| 52 |
|
|
* Correspondence concerning WCSLIB may be directed to:
|
| 53 |
|
|
* Internet email: mcalabre@atnf.csiro.au
|
| 54 |
|
|
* Postal address: Dr. Mark Calabretta,
|
| 55 |
|
|
* Australia Telescope National Facility,
|
| 56 |
|
|
* P.O. Box 76,
|
| 57 |
|
|
* Epping, NSW, 2121,
|
| 58 |
|
|
* AUSTRALIA
|
| 59 |
|
|
*
|
| 60 |
|
|
* Author: Mark Calabretta, Australia Telescope National Facility
|
| 61 |
|
|
* $Id: lin.h,v 1.1.1.1 2002/03/15 16:33:26 bertin Exp $
|
| 62 |
|
|
*===========================================================================*/
|
| 63 |
|
|
|
| 64 |
|
|
#ifndef WCSLIB_LIN
|
| 65 |
|
|
#define WCSLIB_LIN
|
| 66 |
|
|
|
| 67 |
|
|
#ifdef __cplusplus
|
| 68 |
|
|
extern "C" {
|
| 69 |
|
|
#endif
|
| 70 |
|
|
|
| 71 |
|
|
#if !defined(__STDC__) && !defined(__cplusplus)
|
| 72 |
|
|
#ifndef const
|
| 73 |
|
|
#define const
|
| 74 |
|
|
#endif
|
| 75 |
|
|
#endif
|
| 76 |
|
|
|
| 77 |
|
|
struct linprm {
|
| 78 |
|
|
int flag;
|
| 79 |
|
|
int naxis;
|
| 80 |
|
|
double *crpix;
|
| 81 |
|
|
double *pc;
|
| 82 |
|
|
double *cdelt;
|
| 83 |
|
|
|
| 84 |
|
|
/* Intermediates. */
|
| 85 |
|
|
double *piximg;
|
| 86 |
|
|
double *imgpix;
|
| 87 |
|
|
};
|
| 88 |
|
|
|
| 89 |
|
|
#if __STDC__ || defined(__cplusplus)
|
| 90 |
|
|
int linset(struct linprm *);
|
| 91 |
|
|
int linfwd(const double[], struct linprm *, double[]);
|
| 92 |
|
|
int linrev(const double[], struct linprm *, double[]);
|
| 93 |
|
|
int matinv(const int, const double [], double []);
|
| 94 |
|
|
#else
|
| 95 |
|
|
int linset(), linfwd(), linrev(), matinv();
|
| 96 |
|
|
#endif
|
| 97 |
|
|
|
| 98 |
|
|
extern const char *linset_errmsg[];
|
| 99 |
|
|
extern const char *linfwd_errmsg[];
|
| 100 |
|
|
extern const char *linrev_errmsg[];
|
| 101 |
|
|
|
| 102 |
|
|
#define LINSET 137
|
| 103 |
|
|
|
| 104 |
|
|
#ifdef __cplusplus
|
| 105 |
|
|
};
|
| 106 |
|
|
#endif
|
| 107 |
|
|
|
| 108 |
|
|
#endif /* WCSLIB_LIN */
|
