Salam,
Je suis débutant en parallélisation je vient de paralléliser une boucle DO, je trouve le même résultat OMP_NUM_THREADS=1 et OMP_NUM_THREADS=2
mais pas pour OMP_NUM_THREADS=3 et OMP_NUM_THREADS=4. La boucle est la suivante :
Merci a m'aider a trouver l'erreur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 !---------------------------------------------------------------------------- !$OMP PARALLEL DO private(mu,formfac1,formfac,recterm) & !$OMP SHARED (const,ls,qq2) loop7 : do mu = -ls,ls ms = mu call BFformfactor(formfac,recterm) formfac = const*formfac recterm = const*recterm formfac1 = 2.0_dp*twopi*(formfac-recterm)/qq2 forc1(mu) = formfac1 enddo loop7 ! B O U C L E 7 !$OMP END PARALLEL DO !-----------------------------------------------------------------------------
Partager