IIINSTRUMENT Pipeline Reference Manual 4.4.13
naco_physicalmodel.c
1/* $Id: naco_physicalmodel.c,v 1.8 2006-11-15 08:25:03 llundin Exp $
2 *
3 * This file is part of the NACO Pipeline
4 * Copyright (C) 2002,2003 European Southern Observatory
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02111-1307 USA
19 */
20
21/*
22 * $Author: llundin $
23 * $Date: 2006-11-15 08:25:03 $
24 * $Revision: 1.8 $
25 * $Name: not supported by cvs2svn $
26 */
27
28#ifdef HAVE_CONFIG_H
29#include <config.h>
30#endif
31
32/*-----------------------------------------------------------------------------
33 Includes
34 -----------------------------------------------------------------------------*/
35
36#include <cpl.h>
37#include <math.h>
38#include <float.h>
39
40#include "naco_utils.h"
41#include "naco_physicalmodel.h"
42#include "naco_pfits.h"
43
44/*----------------------------------------------------------------------------*/
48/*----------------------------------------------------------------------------*/
49
50/*-----------------------------------------------------------------------------
51 Function codes
52 -----------------------------------------------------------------------------*/
53
56/*----------------------------------------------------------------------------*/
69/*----------------------------------------------------------------------------*/
71 const char * filename,
72 int poly_deg)
73{
74 double * coefs;
75
76
77 cpl_ensure(filename != NULL, CPL_ERROR_NULL_INPUT, NULL);
78 cpl_ensure(poly_deg >= 1, CPL_ERROR_ILLEGAL_INPUT, NULL);
79
80 coefs = cpl_calloc((size_t)poly_deg+1, sizeof(double));
81 coefs[1] = 1.0;
82
83 return coefs;
84}
85
double * naco_get_disprel_estimate(const char *filename, int poly_deg)
Estimate the instrument wavelength range.