GRASS GIS 8 Programmer's Manual  8.2.2dev(2023)-3d2c704037
solvtd.c
Go to the documentation of this file.
1 /* solvtd.c CCMATH mathematics library source code.
2  *
3  * Copyright (C) 2000 Daniel A. Atkinson All rights reserved.
4  * This code may be redistributed under the terms of the GNU library
5  * public license (LGPL). ( See the lgpl.license file for details.)
6  * ------------------------------------------------------------------------
7  */
8 void solvtd(double *a, double *b, double *c, double *x, int m)
9 {
10  double s;
11 
12  int j;
13 
14  for (j = 0; j < m; ++j) {
15  s = b[j] / a[j];
16  a[j + 1] -= s * c[j];
17  x[j + 1] -= s * x[j];
18  }
19  for (j = m, s = 0.; j >= 0; --j) {
20  x[j] -= s * c[j];
21  s = (x[j] /= a[j]);
22  }
23 }
#define x
void solvtd(double *a, double *b, double *c, double *x, int m)
Definition: solvtd.c:8
double b
Definition: r_raster.c:39