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
}
x
#define x
solvtd
void solvtd(double *a, double *b, double *c, double *x, int m)
Definition:
solvtd.c:8
b
double b
Definition:
r_raster.c:39
lib
external
ccmath
solvtd.c
Generated on Tue Feb 14 2023 05:56:01 for GRASS GIS 8 Programmer's Manual by
1.8.13