GRASS Programmer's Manual
6.5.svn(2014)-r66266
Main Page
Related Pages
Namespaces
Data Structures
Files
File List
Globals
All
Data Structures
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Macros
Pages
mmul.c
Go to the documentation of this file.
1
/* mmul.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
#include "
ccmath.h
"
9
void
mmul
(
double
*c,
double
*a,
double
*
b
,
int
n
)
10
{
11
double
*p, *
q
,
s
;
12
13
int
i, j, k;
14
15
trnm
(b, n);
16
for
(i = 0; i <
n
; ++i, a +=
n
) {
17
for
(j = 0, q = b; j <
n
; ++j) {
18
for
(k = 0, p = a, s = 0.; k <
n
; ++k)
19
s += *p++ * *q++;
20
*c++ =
s
;
21
}
22
}
23
trnm
(b, n);
24
}
b
float b
Definition:
named_colr.c:8
trnm
void trnm(double *a, int n)
Definition:
trnm.c:8
forms.q
tuple q
Definition:
forms.py:2019
dialogs.s
tuple s
Definition:
psmap/dialogs.py:2766
mmul
void mmul(double *mat, double *a, double *b, int n)
Definition:
mmul.c:9
ccmath.h
n
int n
Definition:
dataquad.c:291
lib
external
ccmath
mmul.c
Generated on Sat Jan 2 2016 01:46:49 for GRASS Programmer's Manual by
1.8.5