root / synthbench / euroben-ports / base / C-MPI / mod2f / set_arr.c @ 0:839f52ef7657
History | View | Annotate | Download (413 Bytes)
| 1 |
void clr_arr( int n, int m, double **a, val ) |
|---|---|
| 2 |
{
|
| 3 |
int i, j, mf;
|
| 4 |
// ---------------------------------------------------------------------
|
| 5 |
mf = m - m%4;
|
| 6 |
|
| 7 |
for( i = 0; i < n; i++ ) { |
| 8 |
for( j = 0; j < mf; j+= 4 ) { |
| 9 |
a[i][j] = 0.0; a[i][j+1] = 0.0; a[i][j+2] = 0.0; a[i][j+3] = 0.0; |
| 10 |
} |
| 11 |
} |
| 12 |
for( i = 0; i < n; i++ ) { |
| 13 |
for( j = mf; j < m; j++ ) {
|
| 14 |
a[i][j] = 0.0; |
| 15 |
} |
| 16 |
} |
| 17 |
} |