Patrick Corde & Anne Fouilloux

Procédures internes 167
Dans une procédure interne, toute variable déclarée
dans l’unité de programme qui la contient est accessible,
à moins qu’elle n’ait fait l’objet d’une redéclaration.
Exemple
program visibilite
implicit none
integer i, j
i = 10; j = 20
call sub
print ’("i =",i3,", j =",i3)’, i, j
contains
subroutine sub
integer j ! masque le "j" de l’appelant
j = 100; i = i + 1
end subroutine sub
end program visibilite
Sortie
i^=^11,^j^=^20
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux