root / synthbench / euroben-ports / base / C-MPI / mod2am / .svn / text-base / gendat.c.svn-base @ 0:839f52ef7657
History | View | Annotate | Download (630 Bytes)
1 | 0:839f52ef7657 | louridas | void gendat( int m, int l, int n, double **a, double **b ) |
---|---|---|---|
2 | 0:839f52ef7657 | louridas | // --------------------------------------------------------------------- |
3 | 0:839f52ef7657 | louridas | // --- Routine 'gendat' generates matrix 'A' and 'B' for the |
4 | 0:839f52ef7657 | louridas | // matrix-matrix multiplication 'C = AB'. |
5 | 0:839f52ef7657 | louridas | // --------------------------------------------------------------------- |
6 | 0:839f52ef7657 | louridas | { |
7 | 0:839f52ef7657 | louridas | int i, j; |
8 | 0:839f52ef7657 | louridas | // --------------------------------------------------------------------- |
9 | 0:839f52ef7657 | louridas | for( j = 0; j < m; j++ ){ |
10 | 0:839f52ef7657 | louridas | for( i = 0 ; i < l; i++ ){ |
11 | 0:839f52ef7657 | louridas | a[j][i] = (double)(i + 1); |
12 | 0:839f52ef7657 | louridas | } |
13 | 0:839f52ef7657 | louridas | } |
14 | 0:839f52ef7657 | louridas | for( i = 0; i < n; i++ ){ |
15 | 0:839f52ef7657 | louridas | for( j = 0; j < l; j++ ){ |
16 | 0:839f52ef7657 | louridas | b[j][i] = 1.0/(double)(j + 1); |
17 | 0:839f52ef7657 | louridas | } |
18 | 0:839f52ef7657 | louridas | } |
19 | 0:839f52ef7657 | louridas | } |