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

Capítulo 8. Sub-Programas e Módulos 111
onde é qualquer nome válido em Fortran e é uma lista de variáveis que
podem ser escalares, elementos de matrizes, seções de matrizes ou matrizes completas. Neste último caso,
somente se utiliza o nome da matriz. É claro que a informação acerca da natureza e tipo das variáveis listadas
no bloco common deve ser fornecida por declarações adequadas de variáveis.
A grande desvantagem desta forma descentralizada de definir-se dados globais está no fato de que em todas
as unidades de programa que utilizam um dado bloco common, as variáveis listadas nele devem concordar em
número, ordem, natureza e tipo. Caso o programador esteja desenvolvendo um código complexo, composto por
um número grande de unidades que usam o mesmo bloco common, e ele sinta a necessidade de alterar de alguma
forma a lista de variáveis em uma determinada unidade, ele deverá buscar em todas unidades restantes que fazem
referência ao mesmo bloco e realizar a mesma alteração; caso contrário, mesmo que o programa compile e linke
sem erro, é quase certo que as variáveis serão compartilhadas de forma incoerente entre as diferentes unidade de
programa e este acabe gerando resultados incorretos. É fácil perceber que este controle torna-se sucessivamente
mais difícil à medida que a complexidade do programa aumenta.
Os blocos common são ainda aceitos em Fortran 90/95; porém, o seu uso não é recomendado, pela razão
exposta acima.
Fortran 90/95
O uso de um módulo fornece um mecanismo centralizado de definição de objetos globais. Por exemplo,
suponha que se queira ter acesso às variáveis inteiras I, J e K e às variáveis reais A, B e C em diferentes unidades
de programa. Um módulo que permitira o compartilhamento destas variáveis é o seguinte:
MODULE GLOBAIS
IMPLICIT NONE
INTEGER :: I, J, K
REAL :: A, B, C
END MODULE GLOBAIS
Estas variáveis se tornam acessíveis a outras unidades de programa (inclusive outros módulos) através da
instrução USE, isto é:
USE GLOBAIS
A instrução USE é não executável e deve ser inserida logo após o cabeçalho da unidade de programa (PROGRAM,
FUNCTION, SUBROUTINE ou MODULE) e antes de qualquer outra instrução não executável, tal como uma declaração
de variáveis. Uma unidade de programa pode invocar um número arbitrário de módulos usando uma série de
instruções USE. Um módulo pode usar outros módulos, porém um módulo não pode usar a si próprio, seja de
forma direta ou indireta.
Assim, o módulo GLOBAIS pode ser usado da seguinte forma:
FUNCTION USA_MOD(X)
USE GLOBAIS
IMPLICIT NONE
REAL :: USA_MOD
REAL, INTENT(IN) :: X
USA_MOD= I*A - J*B + K*C - X
RETURN
END FUNCTION USA_MOD
O vantagem de um módulo sobre um bloco COMMON para compartilhar objetos globais é evidente. A definição
dos nomes, tipos e espécies das variáveis é realizada em uma única unidade de programa, a qual é simplesmente
usada por outras, estabelecendo assim um controle centralizado sobre os objetos.
O uso de variáveis de um módulo pode causar problemas se o mesmo nome é usado para diferentes variáveis
em partes diferentes de um programa. A declaração USE pode evitar este problema ao permitir a especificação
de um nome local distinto daquele definido no módulo, porém que ainda permita o acesso aos dados globais.
Por exemplo,
...
USE GLOBAIS, R => A, S => B
...
USA_MOD= I*R - J*S + K*C - X
...
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008