1 #ifndef SRC_CLIMATH_LINALG_H_
2 #define SRC_CLIMATH_LINALG_H_
8 double vvdot(
double const *
a,
double const *
b,
int n);
9 void mvdot(
double *
r,
double **m,
double const *v,
int n1,
int n2);
10 int ludcmp(
double **
a,
int n,
int *indx);
11 void lubksb(
double **
a,
int n,
int *indx,
double *
b);
12 void leastsq(
double **
A,
double *
b,
int n1,
int n2);
13 void tridiag(
int n,
double *
a,
double *
b,
double *c,
double *
r,
double *u,
16 void band_decomp(
int n,
int m1,
int m2,
double *
a,
double *al,
int *index,
18 void band_back_sub(
int n,
int m1,
int m2,
double *
a,
double *al,
int *index,
20 void band_multiply(
int n,
int m1,
int m2,
double *
a,
double *x,
double *
b);
21 void band_improve(
int n,
int m1,
int m2,
double *aorig,
double *
a,
double *al,
22 int *index,
double *
b,
double *x);
void band_back_sub(int n, int m1, int m2, double *a, double *al, int *index, double *b)
void leastsq(double **A, double *b, int n1, int n2)
void band_improve(int n, int m1, int m2, double *aorig, double *a, double *al, int *index, double *b, double *x)
void lubksb(double **a, int n, int *indx, double *b)
void mvdot(double *r, double **m, double const *v, int n1, int n2)
void band_decomp(int n, int m1, int m2, double *a, double *al, int *index, double *d)
void band_multiply(int n, int m1, int m2, double *a, double *x, double *b)
int ludcmp(double **a, int n, int *indx)
double vvdot(double const *a, double const *b, int n)
void tridiag(int n, double *a, double *b, double *c, double *r, double *u, int pivot_type)