Use OpenMP's parallel for with schedule(dynamic,1)
This commit is contained in:
@@ -1359,7 +1359,7 @@ void TwoPunctures::F_of_v(int nvar, int n1, int n2, int n3, derivs v, double *F,
|
||||
debugfile = fopen("res.dat", "w");
|
||||
assert(debugfile);
|
||||
}
|
||||
#pragma omp parallel for collapse(3) schedule(static) \
|
||||
#pragma omp parallel for collapse(3) schedule(dynamic,1) \
|
||||
private(i, j, k, ivar, indx, al, be, A, B, X, R, x, r, phi, y, z, Am1, \
|
||||
psi, psi2, psi4, psi7, r_plus, r_minus)
|
||||
for (i = 0; i < n1; i++)
|
||||
@@ -1829,7 +1829,7 @@ void TwoPunctures::J_times_dv(int nvar, int n1, int n2, int n3, derivs dv, doubl
|
||||
|
||||
Derivatives_AB3_MatMul(nvar, n1, n2, n3, dv);
|
||||
|
||||
#pragma omp parallel for schedule(static) \
|
||||
#pragma omp parallel for schedule(dynamic,1) \
|
||||
private(j, k, ivar, indx, al, be, A, B, X, R, x, r, phi, y, z, Am1)
|
||||
for (i = 0; i < n1; i++)
|
||||
{
|
||||
|
||||
Reference in New Issue
Block a user