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

100 8.2. sub-programas
! Calcula o mínimo de FUNC no intervalo [A,B].
REAL :: MINIMO
REAL, INTENT(IN) :: A, B
INTERFACE
FUNCTION FUNC(X)
REAL :: FUNC
REAL, INTENT(IN) :: X
END FUNCTION FUNC
END INTERFACE
REAL :: F,X
...
F= FUNC(X) !Invocaç~ao da funç~ao.
...
END FUNCTION MINIMO
Note o uso de um bloco de interface para indicar ao compilador que o nome FUNC corresponde a uma função
definida pelo usuário.
Em Fortran 77, como não havia o recurso de blocos de interface, a indicação que o nome FUNC corresponde a
uma função externa é realizada através da declaração EXTERNAL. Assim, no exemplo acima, no lugar da interface
apareceria:
...
REAL FUNC
EXTERNAL FUNC
...
para indicar a função externa. A mesma alternativa continua válida em Fortran 90/95, onde, além da declaração,
pode-se usar também a palavra-chave EXTERNAL como atributo de um nome. Contudo, como já foi mencionado
na seção 8.2.7, o simples uso da declaração ou atributo EXTERNAL não possibilita o controle nos argumentos
desta função, ao contrário do que ocorre quando a interface é explícita.
Um exemplo de programa que chama a função MINIMO seria o seguinte:
PROGRAM MIN
IMPLICIT NONE
REAL :: MENOR
INTERFACE
FUNCTION FUN(X)
REAL :: FUN
REAL, INTENT(IN) :: X
END FUNCTION FUN
END INTERFACE
...
MENOR= MINIMO(1.0, 2.0, FUN)
...
END PROGRAM MIN
O uso de um bloco de interface não é necessário se a interface de FUN for explícita, como no caso de uma rotina
de módulo.
No exemplo acima, a função FUN não pode ser interna, porque estas não são admitidas quando os seus nomes
são usados como argumentos de outras rotinas. Ou seja, somente rotinas externas ou de módulos são aceitas
quando os seus nomes são transferidos a outras rotinas como argumentos.
O programa-exemplo das páginas 101 e 102 descreve uma subrotina que gera uma matriz de pontos a partir
de uma função fornecida pelo programador.
8.2.13 Funções de valor matricial
Funções, além de fornecer os resultados usuais na forma de valores dos tipos intrínsecos inteiro, real, complexo,
lógico e de caractere, podem também fornecer como resultado valores de tipo derivado, matrizes e ponteiros.
No caso de funções de valor matricial, o tamanho do resultado pode ser determinado de forma semelhante
à maneira como matrizes automáticas são declaradas.
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008