Patrick Corde & Anne Fouilloux

Corrigés 244
60 ! Procédure de transformation.
61 subroutine transform( t, n, m, f )
62 implicit none
63 integer :: n, m, i, j
64 real, dimension(n,m) :: t
65 real :: f
66
67 do i=1,n
68 do j=1,m
69 t(i,j) = f(t(i,j))
70 end do
71 end do
72 end subroutine transform
73 ! Définitions des fonctions de transformation.
74 function identite(x)
75 implicit none
76 real x, identite
77 identite = x
78 end function identite
79
80 function carre(x)
81 implicit none
82 real x, carre
83 carre = x*x
84 end function carre
85
86 function logarithme(x)
87 implicit none
88 real x, logarithme
89 logarithme = log(x)
90 end function logarithme
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux