Skip to content
Snippets Groups Projects
Commit 397ad5c2 authored by gkusoglu's avatar gkusoglu
Browse files

trying optimize doitgen

parent 1372057b
Branches
No related merge requests found
......@@ -75,13 +75,16 @@ void kernel_doitgen(int nr, int nq, int np,
#pragma omp ordered
for (r = 0; r < _PB_NR; r++){
#pragma omp parallel for
for (p = 0; p < _PB_NP; p++)
sum[p] = SCALAR_VAL(0.0);
#pragma omp parallel for
for (s = 0; s < _PB_NP; s++)
for (p = 0; p < _PB_NP; p++)
sum[p] += A[r][q][s] * C4[s][p];
#pragma omp parallel for
for (p = 0; p < _PB_NP; p++)
A[r][q][p] = sum[p];
}
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment