Patrick Corde & Anne Fouilloux

Corrigés 246
31 ! Procédure de tri.
32 subroutine tri( mat, n, m )
33 implicit none
34 integer :: n, m
35 real, dimension(n,m) :: mat
36 integer :: ligne, col
37
38 do ligne=1,n ! Tri des lignes.
39 call tri_vecteur( mat(ligne,:), m )
40 end do
41 do col=1,m ! Tri des colonnes.
42 call tri_vecteur( mat(:,col), n )
43 end do
44 contains
45 ! Procédure de tri d’un vecteur.
46 subroutine tri_vecteur( v, n )
47 integer :: n, i
48 real, dimension(n) :: v
49 logical :: tri_termine
50 real :: temp
51 do
52 tri_termine = .true.
53 do i=2,n
54 if ( v(i) > v(i-1) ) then
55 tri_termine = .false.
56 temp = v(i-1); v(i-1) = v(i); v(i) = temp
57 end if
58 end do
59 if (tri_termine) exit
60 end do
61 end subroutine tri_vecteur
62 end subroutine tri
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux