blob: 0af8dfa73881bfb9a87b30a9faf43e9691b41f18 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# MW_VMUL -- Vector multiply.
procedure mw_vmuld (a, b, c, ndim)
double a[ndim,ndim] #I input matrix
double b[ndim] #I input vector
double c[ndim] #O output vector
int ndim #I system dimension
int i, j
double v
begin
do j = 1, ndim {
v = 0
do i = 1, ndim
v = v + a[i,j] * b[i]
c[j] = v
}
end
|
