Linuxpops  3.01.04
Spectral Anaysis Package for Single Dish Data
 All Classes Files Functions Variables Typedefs Enumerations Enumerator Macros Pages
grace_dofit.h
Go to the documentation of this file.
1 /*
2  * Grace - Graphics for Exploratory Data Analysis
3  *
4  * Home page: http://plasma-gate.weizmann.ac.il/Grace/
5  *
6  * Copyright (c) 1991-95 Paul J Turner, Portland, OR
7  * Copyright (c) 1996-98 GRACE Development Team
8  *
9  * Maintained by Evgeny Stambulchik <fnevgeny@plasma-gate.weizmann.ac.il>
10  *
11  *
12  * All Rights Reserved
13  *
14  * This program is free software; you can redistribute it and/or modify
15  * it under the terms of the GNU General Public License as published by
16  * the Free Software Foundation; either version 2 of the License, or
17  * (at your option) any later version.
18  *
19  * This program is distributed in the hope that it will be useful,
20  * but WITHOUT ANY WARRANTY; without even the implied warranty of
21  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22  * GNU General Public License for more details.
23  *
24  * You should have received a copy of the GNU General Public License
25  * along with this program; if not, write to the Free Software
26  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
27  */
28 
29 #ifndef __AS274C_H_
30 #define __AS274C_H_
31 
32 static int includ(int np, int nrbar, double w,
33  double *xrow, double yelem, double *d, double *rbar,
34  double *thetab, double *sserr);
35 
36 static int clear(int np, int nrbar, double *d, double *rbar,
37  double *thetab, double *sserr);
38 
39 static int regcf(int np, int nrbar, double *d, double *rbar,
40  double *thetab, double *tol, double *beta,
41  int nreq);
42 
43 static int tolset(int np, int nrbar, double *d, double *rbar, double *tol);
44 
45 static int sing(int np, int nrbar, double *d,
46  double *rbar, double *thetab, double *sserr,
47  double *tol, int *lindep);
48 
49 static int ss(int np, double *d, double *thetab,
50  double *sserr, double *rss);
51 
52 static int cov(int np, int nrbar, double *d,
53  double *rbar, int nreq, double *rinv, double *var,
54  double *covmat, int dimcov, double *sterr);
55 
56 static void inv(int np, int nrbar, double *rbar, int nreq, double *rinv);
57 
58 static int pcorr(int np, int nrbar, double *d,
59  double *rbar, double *thetab, double *sserr, int in,
60  double *cormat, int dimc, double *ycorr);
61 
62 static void cor(int np, double *d, double *rbar,
63  double *thetab, double *sserr, double *work,
64  double *cormat, double *ycorr);
65 
66 static int vmove(int np, int nrbar, int *vorder,
67  double *d, double *rbar, double *thetab, double *rss,
68  int from, int to, double *tol);
69 
70 static int reordr(int np, int nrbar, int *vorder,
71  double *d, double *rbar, double *thetab, double *rss,
72  double *tol, int *list, int n, int pos1);
73 
74 static int hdiag(double *xrow, int np, int nrbar, double *d,
75  double *rbar, double *tol, int nreq, double *hii);
76 
77 static void putdvec(const char *s, double *x, int l, int h);
78 
79 static void pr_utdm_v(double *x, int N, int width, int precision);
80 
81 static double *dvector(int l, int h);
82 
83 static int *ivector(int l, int h);
84 
85 static double **dmatrix(int rl, int rh, int cl, int ch);
86 
87 #endif /* __AS274C_H_ */
ss
struct SCAN_SUM_SEND ss
Definition: scansum.c:61
ivector
int * ivector(int nl, int nh)
Definition: gaussfit.c:39
N
#define N
Definition: gsl_try_2.c:67