02.05.2014 Views

Patrick Corde & Anne Fouilloux

Patrick Corde & Anne Fouilloux

Patrick Corde & Anne Fouilloux

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Corrigés 235<br />

Corrigé de l’exercice 6<br />

1 program produit_matrice<br />

2 implicit none<br />

3 integer, parameter :: n = 10, m = 5, p = 3<br />

4 real, dimension(n,m) :: a<br />

5 real, dimension(m,p) :: b<br />

6 real, dimension(n,p) :: c<br />

7 integer :: i,j,k<br />

8<br />

9 ! Valorisation des matrices A et B<br />

10 data a/0.00, 0.38, 0.42, 0.91, 0.25, &<br />

11 0.13, 0.52, 0.69, 0.76, 0.98, &<br />

12 0.76, 0.83, 0.59, 0.26, 0.72, &<br />

13 0.46, 0.03, 0.93, 0.05, 0.75, &<br />

14 0.53, 0.05, 0.85, 0.74, 0.65, &<br />

15 0.22, 0.53, 0.53, 0.33, 0.07, &<br />

16 0.05, 0.67, 0.09, 0.63, 0.63, &<br />

17 0.68, 0.01, 0.65, 0.76, 0.88, &<br />

18 0.68, 0.38, 0.42, 0.99, 0.27, &<br />

19 0.93, 0.07, 0.70 ,0.37, 0.44/<br />

20<br />

21 data b/0.76, 0.16, 0.9047, &<br />

22 0.47, 0.48, 0.5045, &<br />

23 0.23, 0.89, 0.5163, &<br />

24 0.27, 0.90, 0.3190, &<br />

25 0.35, 0.06, 0.9866/<br />

INSTITUT DU DÉVELOPPEMENT<br />

ET DES RESSOURCES<br />

EN INFORMATIQUE SCIENTIFIQUE<br />

Cours langage Fortran – 27 janvier 2006<br />

<strong>Patrick</strong> <strong>Corde</strong> et <strong>Anne</strong> <strong>Fouilloux</strong>

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!