Patrick Corde & Anne Fouilloux

Corrigés 238
Corrigé de l’exercice 8
1 program musiciens
2 implicit none
3 character(len=80) :: mus
4 integer :: ios_mus, ios_stdin
5 integer :: numrec, rang
6
7 ! Ouverture du fichier des musiciens
8 ! ainsi que d’un fichier temporaire
9 ! à accès direct dans lequel on
10 ! va recopier le fichier précédent.
11 open( unit=1, file="musiciens", &
12 form="formatted", status="old", &
13 action="read", position="rewind" )
14 open( unit=2, status="scratch", &
15 form="formatted", access="direct", &
16 action="readwrite", recl=80 )
17
18 ! On effectue la copie.
19 numrec = 0
20 read( unit=1, fmt=’(a)’, iostat=ios_mus ) mus
21 do while ( ios_mus == 0 )
22 numrec = numrec + 1
23 write( unit=2, rec=numrec, fmt=’(a)’ ) mus
24 read( unit=1, fmt=’(a)’, iostat=ios_mus ) mus
25 end do
26 close( unit=1 )
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux