Patrick Corde & Anne Fouilloux

Arguments de type procédure 164
function integrale( borne_i, borne_s, pas, f )
implicit none
double precision borne_i, borne_s
double precision integrale
integer
pas, i
double precision h, f
h = (borne_s - borne_i)/pas
integrale = 0.
do i=0, pas-1
integrale = integrale + h*f(borne_i+i*h)
end do
end function integrale
function carre( x )
implicit none
double precision x
double precision carre
carre = x*x
end function carre
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux