NACO Pipeline Reference Manual  4.4.0
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.