Patrick Corde & Anne Fouilloux

Corrigés 241
30 select case (critere)
31 case(1) ! Recherche par date de naissance.
32 print*, "Entrer une date de naissance d’un musicien"
33 rewind( unit=critere )
34 case(2) ! Recherche par date de décès.
35 print*, "Entrer une date de décès d’un musicien"
36 rewind( unit=critere )
37 case default ! Quitter
38 exit
39 end select
40 read *, date_saisie
41 ! Recherche de la date saisie dans le fichier d’index.
42 read( unit=critere, fmt=*, &
43 iostat=ios_index ) date_lue, numrec
44 do while( ios_index == 0 )
45 if ( date_lue == date_saisie ) then
46 ! On lit l’enregistrement correspondant.
47 trouve = .true.
48 read( unit=3, rec=numrec ) mus
49 print *,trim(mus)
50 end if
51 read( unit=critere, fmt=*, &
52 iostat=ios_index ) date_lue, numrec
53 end do
54 if ( .not. trouve ) &
55 print *,"Aucun musicien ne répond au critère indiqué."
56 print ’(/)’
57 end do
58 close( unit=1 )
59 close( unit=2 )
60 close( unit=3 )
61 end program sequentiel_indexe
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux