Patrick Corde & Anne Fouilloux

Corrigés 245
Corrigé de l’exercice 11
1 program tri_matrice
2 implicit none
3 integer, parameter :: n=10, m=3
4 real, dimension(n,m) :: mat
5 integer :: ios
6 integer :: i, j
7 ! Lecture de la matrice à trier.
8 open( unit=1, &
9 file="exo6.matrice", &
10 form="unformatted", &
11 status="old", &
12 action="read", &
13 position="rewind", &
14 iostat=ios )
15 if ( ios /= 0 ) stop "Erreur à l’ouverture du fichier &
16 &""exo6.matrice"""
17 read( unit=1 ) mat; close( unit=1 )
18 call tri( mat, n, m ) ! Tri de la matrice lue.
19 ! Écriture de la matrice triée.
20 open( unit=1, file="exo11.matrice_triee", &
21 form="formatted", status="replace", &
22 action="write", position="rewind", &
23 iostat=ios )
24 if ( ios /= 0 ) stop "Erreur à l’ouverture du fichier &
25 &""exo11.matrice_triee"""
26 do i=1,n
27 write( unit=1, fmt=’(3F7.3)’ ) mat(i,:)
28 end do
29 close( unit=1 )
30 end program tri_matrice
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux