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
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Autre example<br />
parameter (m=64,n=128)<br />
dimension a(m), b(n)<br />
t=0.<br />
do i=1,m<br />
x=a(i)<br />
do j=1,n<br />
y=b(j)<br />
t=t+sin(sqrt(x)+sqrt(y))<br />
enddo<br />
enddo<br />
parameter (m=64,n=128)<br />
dimension a(m), b(n)<br />
t=0.<br />
do i=1,m<br />
x=a(i)<br />
sqx=sqrt(x)<br />
do j=1,n<br />
y=b(j)<br />
t=t+sin(sqx+sqrt(y))<br />
enddo<br />
enddo<br />
Incorrect<br />
Correct