Statistics
| Branch: | Revision:

root / synthbench / euroben-ports / base / C-MPI / mod2am / .svn / text-base / gendat.c.svn-base @ 0:839f52ef7657

History | View | Annotate | Download (630 Bytes)

1 
void gendat( int m, int l, int n, double **a, double **b )
2 
// ---------------------------------------------------------------------
3 
// --- Routine 'gendat' generates matrix 'A' and 'B' for the
4 
//     matrix-matrix multiplication 'C = AB'.
5 
// ---------------------------------------------------------------------
6 
{
7 
   int    i, j;
8 
// ---------------------------------------------------------------------
9 
   for( j = 0; j < m; j++ ){
10 
      for( i = 0 ; i < l; i++ ){
11 
         a[j][i] = (double)(i + 1);
12 
      }
13 
   }
14 
   for( i = 0; i < n; i++ ){
15 
      for( j = 0; j < l; j++ ){
16 
         b[j][i] = 1.0/(double)(j + 1);
17 
      }
18 
   }
19 
}