Le calcul numérique de haute performance - Université de Laval
Le calcul numérique de haute performance - Université de Laval
Le calcul numérique de haute performance - Université de Laval
SHOW LESS
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Exemple: parallèlisation d’une boucle avec OpenMP, sur 8 processeurs.<br />
dimension a(1024), b(1024), c(1024)<br />
!$omp parallel do shared(a,b,c) private(i,x,y,z)<br />
do i=1,1024<br />
x=a(i)<br />
y=b(i)<br />
z=x**2+y**2<br />
if(z.gt.10.) then<br />
c(i)=x<br />
else<br />
c(i)=y<br />
endif<br />
enddo<br />
!$omp end parallel do
Change language