64-BitBrainstorm_2026/AMSS-NCKU
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use OpenMP's parallel for with schedule(dynamic,1)

Browse Source
This commit is contained in:
ianchb
2026-02-07 19:04:51 +08:00
parent 914c4f4791
commit 133e4f13a2
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
AMSS_NCKU_source/TwoPunctures.C
View File

@@ -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"); debugfile = fopen("res.dat", "w");
assert(debugfile); 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, \ 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) psi, psi2, psi4, psi7, r_plus, r_minus)
for (i = 0; i < n1; i++) 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); 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) private(j, k, ivar, indx, al, be, A, B, X, R, x, r, phi, y, z, Am1)
for (i = 0; i < n1; i++) for (i = 0; i < n1; i++)
{ {