Capítulo 8. Funções e Subrotinas - UFMG

Capítulo 8. Sub-Programas e Módulos 113
Programa 8.3: Ilustra uso de módulo para armazenar dados globais.
MODULE modu1
implicit none
real , parameter : : pi= 3.1415926536
real , parameter : : e u l e r e= 2.718281828
END MODULE modu1
!
program mod1
use modu1
implicit none
real : : x
do
print , ”Entre com o v a l o r de x : ”
read , x
print , ”sen ( pix)=” , sen ( )
print , ”ln ( ex)=” , ln ( )
end do
CONTAINS
function sen ( )
real : : sen
sen= s i n ( pix )
return
end function sen
!
function ln ( )
real : : ln
ln= l o g ( e u l e r e x )
return
end function ln
end program mod1
O programa-exemplo mod1.f90 (programa 8.3), ilustra o uso de um módulo para armazenar dados globais.
8.3.2 Rotinas de módulos
Rotinas podem ser definidas em módulos e estas são denominadas rotinas de módulos. Estas podem ser
tanto subrotinas quanto funções e ter a mesma forma de rotinas internas definidas dentro de outras unidades
de programa. O número de rotinas de módulo é arbitrário.
Rotinas de módulo podem ser chamadas usando o comando CALL usual ou fazendo referência ao nome de
uma função. Contudo, estas somente são acessíveis a unidades de programa que fazem uso do módulo através
da instrução USE.
Uma rotina de módulo pode invocar outras rotinas de módulo contidas no mesmo módulo. As variáveis
declaradas no módulo antes da palavra-chave CONTAINS são diretamente acessíveis a todas as rotinas deste,
por associação ao hospedeiro. Contudo, variáveis declaradas localmente em um determinado sub-programa de
módulo são opacas aos outros sub-programas. Caso o módulo invoque outro módulo com uma instrução USE
antes da palavra-chave CONTAINS, estes objetos também se tornam acessíveis a todas as rotinas de módulo.
Por outro lado, uma determinada rotina de módulo pode usar localmente outro módulo (não o hospedeiro),
em cuja situação os objetos somente são acessíveis localmente. Em suma, uma rotina de módulo possui todas
as propriedades de rotinas internas em outras unidades de programa, exceto que uma rotina de módulo pode
conter, por sua vez, rotinas internas a ela. Por exemplo, o seguinte módulo é válido:
MODULE INTEG
IMPLICIT NONE
REAL :: ALFA ! Variável global.
CONTAINS
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008