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.
c) Interruption prématurée<br />
dimension a(n), b(n), c(n)<br />
do i=1,n<br />
c(i)=a(i)+b(i)<br />
if(c(i).lt.0.) stop<br />
enddo<br />
dimension a(n), b(n), c(n)<br />
do i=1,n<br />
c(i)=a(i)+b(i)<br />
if(c(i).lt.0.) go to 10<br />
enddo<br />
10 continue