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

Capítulo 8. Sub-Programas e Módulos 117
INTERFACE
[]
[MODULE PROCEDURE ]
! Em Fortran 95 blocos de interfaces e declaraç~oes MODULE PROCEDURE
! podem aparecer em qualquer ordem.
END INTERFACE []
! Somente em Fortran 95 o nome genérico é aceito aqui.
Deve-se notar que todos os nomes na devem ser de rotinas de módulo acessíveis; portanto,
elas não necessariamente devem estar definidas no mesmo módulo onde a interface genérica é estabelecida,
bastando que elas sejam acessíveis por associação de uso.
Para demonstrar o poderio de uma interface genérica, será utilizada novamente a subrotina TROCA, a qual
foi definida primeiramente na página 97 e depois, na forma de uma subrotina elemental, na seção 8.2.17. O
módulo gentroca na página 118 define o nome genérico de uma série de subrotinas elementais TROCA associadas
a variáveis dos tipos real, inteiro, lógico e do tipo derivado ponto, o qual é definido no mesmo módulo.
Este módulo é utilizado então em duas situações distintas. Na primeira vez, o módulo será utilizado para
trocar o valor de duas variáveis escalares do tipo ponto, como no programa usa gentroca.f90 na página 119.
Posteriormente, o mesmo módulo será utilizado para trocar os elementos de duas matrizes inteiras, como
no programa usa_gt_mat.f90, também listado na página 119.
Uma declaração MODULE PROCEDURE somente é permitida se um é fornecido. Porém,
o nome genérico pode ser igual ao nome de uma das rotinas declaradas na . Em
conjunto com esta propriedade, o nome genérico definido em um módulo pode ser o mesmo de outro nome
genérico acessível ao módulo, inclusive no caso onde o nome genérico corresponde ao de uma rotina intrínseca.
Neste caso, o módulo estará estendendo o intervalo de aplicação de uma rotina intrínseca.
As rotinas às quais são dadas um certo nome genérico devem ser todas ou subrotinas ou funções, incluindo
as intrínsecas quando uma rotina intrínseca é estendida. Quaisquer duas rotinas não-intrínsecas associadas ao
mesmo nome genérico devem ter argumentos que diferem de tal forma que qualquer invocação é feita de forma
inequívoca. As regras são que:
1. uma delas tenha mais argumentos obrigatórios mudos de um tipo, espécie e posto particulares que a outra
ou
2. que ao menos uma delas tenha um argumento mudo obrigatório tal que
(a) corresponda por posição na lista de argumentos a um argumento mudo que não esteja presente na
outra, ou esteja presente com um tipo e/ou espécie distinta ou com posto distinto, e
(b) corresponda por nome a um argumento mudo que não esteja presente na outra, ou presente com tipo
e/ou espécie diferente ou com posto diferente.
Para o caso (2), ambas as regras são necessárias para descartar a possibilidade de invocação ambígua por uso
de palavras-chave. Como exemplo onde haverá ambigüidade, o exemplo abaixo:
!Exemplo de definiç~ao ambígua de nome genérico
INTERFACE F
MODULE PROCEDURE FXI, FIX
END INTERFACE F
CONTAINS
FUNCTION FXI(X,I)
REAL :: FXI
REAL, INTENT(IN) :: X
INTEGER, INTENT(IN) :: I
...
END FUNCTION FXI
!
FUNCTION FIX(I,X)
REAL :: FIX
REAL, INTEN(IN) :: X
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008