GRASS GIS 8 Programmer's Manual
8.3.2(2024)-exported
Loading...
Searching...
No Matches
smgen.c
Go to the documentation of this file.
1
/* smgen.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
smgen
(
double
*a,
double
*eval,
double
*evec,
int
n)
9
{
10
double
*p, *q, *
ps
, *
r
, *s, *
t
, *v = evec + n * n;
11
12
for
(
ps
= a, p = evec; p < v; p += n) {
13
for
(q = evec; q < v; q += n, ++
ps
) {
14
*
ps
= 0.;
15
for
(
r
= eval, s = p,
t
= q;
r
< eval + n;)
16
*
ps
+= *
r
++ * *s++ * *
t
++;
17
}
18
}
19
}
t
double t
Definition
driver/set_window.c:5
r
double r
Definition
driver/set_window.c:5
ps
struct ps_state ps
Definition
psdriver/graph_set.c:26
smgen
void smgen(double *a, double *eval, double *evec, int n)
Definition
smgen.c:8
external
ccmath
smgen.c
Generated on Sat Nov 9 2024 17:44:25 for GRASS GIS 8 Programmer's Manual by
1.12.0