Patrick Corde & Anne Fouilloux

Corrigés 243
30 ! Transformation de la matrice à l’aide
31 ! de la méthode choisie.
32
33 select case( choix_methode )
34 case (1)
35 call transform( mat, n, m, identite )
36 case (2)
37 call transform( mat, n, m, carre )
38 case (3)
39 call transform( mat, n, m, sqrt )
40 case (4)
41 call transform( mat, n, m, logarithme )
42 end select
43
44 ! Sauvegarde de la matrice transformée dans
45 ! le fichier "exo6_matrice_transf".
46
47 open( unit=1, file="exo6_matrice_transf", &
48 form="formatted", action="write", &
49 status="replace", iostat=ios )
50
51 if ( ios /= 0 ) &
52 stop "Erreur lors de l’’ouverture &
53 &du fichier ""exo6_matrice_transf"""
54
55 do num_ligne=1,n
56 write( unit=1, fmt=’(3f10.6)’ ) mat(num_ligne,:)
57 end do
58 close( unit=1 )
59 end program mat_transf
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux