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

90 8.2. sub-programas
77; nenhum mecanismo de controle existe para auxiliar o compilador e o linkador na tarefa de determinar a
coerência entre as diferentes unidades de programas.
Para gerar chamadas a sub-programas de forma correta, o compilador necessita conhecer certos detalhes
destes sub-programas, como os seus nomes e o número, tipo e espécie dos argumentos. Em Fortran 90/95, esta
tarefa é desempenhada pelos blocos de interface.
No caso de rotinas intrínsecas, sub-programas internos e módulos, esta informação é sempre conhecida pelo
compilador; por isso, diz-se que as interfaces são explícitas. Contudo, quando o compilador chama uma rotina
externa, esta informação não é conhecida de antemão e daí a interface é dita implícita. Um bloco de interface,
então, fornece a informação necessária ao compilador. A forma geral de um bloco de interface é:
INTERFACE
END INTERFACE
Nesta forma, este bloco de interface não pode ser nomeado. Assim, a interface deixa de ser implícita e se torna
explícita.
O consiste das declarações FUNCTION ou SUBROUTINE, declarações dos tipos e espécies
dos argumentos dos sub-programas e do comando END FUNCTION ou END SUBROUTINE. Em outras palavras,
consiste, normalmente, em uma cópia exata do sub-programa sem seus comandos executáveis ou rotinas internas,
cujas interfaces sempre são explícitas. Por exemplo,
INTERFACE
FUNCTION FUNC(X)
REAL :: FUNC
REAL, INTENT(IN) :: X
END FUNCTION FUNC
END INTERFACE
Neste exemplo, o bloco fornece ao compilador a interface da função FUNC.
Existe uma certa flexibilidade na definição de um bloco de interfaces. Os nomes (mas não os tipos e espécies)
das variáveis podem ser distintos dos nomes mudos definidos na rotina ou usados na chamada da mesma e outras
especificações podem ser incluídas, como por exemplo para uma variável local à rotina. Contudo, rotinas internas
e comandos DATA ou FORMAT não podem ser incluídos.
Um bloco de interfaces pode conter as interfaces de mais de um sub-programa externo e este bloco pode
ser colocado na unidade de programa que chama as rotinas externas ou através do uso de módulos, como será
discutido na seção 8.3. Em qualquer unidade de programa, o bloco de interfaces é sempre colocado após as
declarações de variáveis mudas ou de variáveis locais.
Em certas situações, é necessário fornecer a uma rotina externa o nome de outra rotina externa como um de
seus argumentos. Isto pode ser realizado de duas maneiras:
1. Usando o atributo ou declaração EXTERNAL, como foi realizado na subrotina bascara, na página 8.2.6.
2. Com o uso de um bloco de interface. Neste caso, a interface indicará ao compilador que um determinado
nome consiste, na verdade, no nome de um outro sub-programa.
As situações onde isto pode ocorrer são discutidas na seção 8.2.12
Como exemplo do uso de interfaces explícitas será apresentado o programa bascara3, o qual chama novamente
as rotinas bascara e testa_disc. Este programa está listado nas páginas 91 e 92.
8.2.8 Argumentos com palavras-chave
Argumentos com palavras-chave (keyword arguments) são um recurso já utilizado em comandos de Entrada/Saída
(E/S) no Fortran 77:
READ(UNIT= 5, FMT= 101, END= 9000) X,Y,Z
onde UNIT, FMT e END são as palavras-chave. Elas indicam, respectivamente, o número da unidade de acesso
para leitura, o rótulo do comando de formato e o rótulo para onde o controle de fluxo deve ser desviado quando
se atingir o ponto final de entrada dos dados.
Em Fortran 90/95, argumentos com palavras-chave podem ser utilizados não somente em comandos de E/S,
mas também em rotinas. Quando uma rotina tem diversos argumentos, palavras-chave são um excelente recurso
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008