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

114 8.3. Módulos
FUNCTION FF(X)
REAL :: FF
REAL, INTENT(IN) :: X
FF= EXP(-ALFA*X*X)
FF= FF*X2(X)
RETURN
CONTAINS
FUNCTION X2(Y)
REAL :: X2
REAL, INTENT(IN) :: Y
X2= Y**2
RETURN
END FUNCTION X2
END FUNCTION FF
END MODULE INTEG
A outra grande diferença está no fato de que as interfaces das rotinas de módulo são explícitas no âmbito deste.
Todavia, quando uma outra unidade de programa usa o módulo, todas os objetos públicos nele contidos se
tornam acessíveis a esta, resultando que as interfaces das rotinas de módulo são automaticamente explícitas
também para a unidade de programa que o invoca. Portanto, um módulo é considerado a unidade ideal para
armazenar grupos de sub-programas criados para desempenhar uma determinada tarefa, juntamente com os
objetos globais associados a estes sub-programas.
Ao se compilar um arquivo contendo um módulo, os compiladores automaticamente geram um novo tipo de
arquivo, geralmente com a extensão *.mod, onde as informações contidas no módulo, tais como variáveis globais e
interfaces, são armazenadas. Quando uma outra unidade de programa faz referência a este módulo, o compilador
busca estas informações no arquivo .mod . Desta forma, cria-se um mecanismo para verificar se as variáveis e as
interfaces estão sendo corretamente utilizadas pela unidade que chama o módulo. Quando o módulo não define
um rotina interna, não é necessário guardar o arquivo objeto (*.o ou *.obj) associado, bastando guardar o
arquivo *.mod. Por esta razão, muitos compiladores oferecem uma chave extra de compilação através da qual
nenhum arquivo objeto é criado, mas somente o arquivo de módulo.
Rotinas de módulo pode ser úteis por diversas razões. Por exemplo, um módulo que define a estrutura de um
conjunto particular de dados pode também incluir rotinas especiais, necessárias para operar com estes dados;
ou um módulo pode ser usado para conter uma biblioteca de rotinas relacionadas entre si.
Como exemplo, um módulo pode ser usado para “adicionar” variáveis de tipo derivado:
MODULE MOD_PONTO
IMPLICIT NONE
TYPE :: PONTO
REAL :: X, Y
END TYPE PONTO
CONTAINS
FUNCTION ADPONTOS(P,Q)
TYPE(POINT) :: ADPONTOS
TYPE(POINT), INTENT(IN) :: P, Q
ADPONTOS%X= P%X + Q%X
ADPONTOS%Y= P%Y + Q%Y
RETURN
END FUNCTION ADPONTOS
END MODULE MOD_PONTO
Neste caso, o programa principal usa este módulo:
PROGRAM P_PONTO
USE MOD_PONTO
IMPLICIT NONE
TYPE(POINT) :: PX, PY, PZ
...
PZ= ADPONTO(PX,PY)
...
END PROGRAM P_PONTO
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008