Patrick Corde & Anne Fouilloux
Patrick Corde & Anne Fouilloux
Patrick Corde & Anne Fouilloux
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>