Patrick Corde & Anne Fouilloux

Corrigés 239
27 ! On demande un rang de musicien.
28
29 print *,"Entrez le rang d’un musicien :"
30 read( unit=*, &
31 fmt=*, &
32 iostat=ios_stdin ) rang
33 do while ( ios_stdin == 0 )
34 read( unit=2, &
35 rec=rang, &
36 fmt=’(a)’, &
37 iostat=ios_mus ) mus
38 if ( ios_mus /= 0 ) then
39 print *,"Le musicien de rang ", &
40 rang, "n’existe pas"
41 else
42 print ’("musicien de rang",i3," ==> ", a)’, &
43 rang,trim(mus)
44 end if
45 print ’(/,"Entrez le rang d’’un musicien :")’
46 read( unit=*, fmt=*, iostat=ios_stdin ) rang
47 end do
48 close( unit=2 )
49 end program musiciens
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux