Patrick Corde & Anne Fouilloux

Corrigés 242
Corrigé de l’exercice 10
1 program mat_transf
2 implicit none
3 integer, parameter :: n = 10, m = 3
4 real, dimension(n,m) :: mat
5 integer :: choix_methode, ios, num_ligne
6 real, external :: carre, identite, logarithme
7 real, intrinsic :: sqrt
8 namelist/methode/choix_methode
9
10 ! Ouverture du fichier contenant la matrice.
11 open( unit=1, file="exo6.matrice", &
12 form="unformatted", action="read", &
13 status="old", position="rewind", &
14 iostat=ios )
15 if (ios /= 0) &
16 stop ’Erreur à l’’ouverture du fichier "exo6.matrice"’
17 ! Lecture de la matrice.
18 read(1) mat
19 close(1)
20 ! Ouverture du fichier contenant
21 ! la namelist "methode".
22 open( unit=1, file="exo10.namelist", &
23 form="formatted", action="read", &
24 status="old", position="rewind", &
25 iostat=ios )
26 if (ios /= 0) &
27 stop ’Erreur à l’’ouverture du fichier "exo10.namelist"’
28 read( unit=1, nml=methode )
29 close( unit=1 )
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux