Patrick Corde & Anne Fouilloux

Arguments de type procédure 163
8.6 – Arguments de type procédure
Une procédure peut être transmise à une autre
procédure. Il est nécessaire de la déclarer dans
la procédure appelante avec l’attribut EXTERNAL ou
INTRINSIC si elle est intrinsèque.
Exemple
program arg_proc
implicit none
double precision b_inf, b_sup, aire
double precision integrale
integer pas
double precision, external :: carre
b_inf = 1.
b_sup = 6.
pas = 200000
aire = integrale( b_inf, b_sup, pas, carre )
print ’("Aire : ", f11.6)’, aire
end program arg_proc
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux