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

Capítulo 8. Sub-Programas e Módulos 93
C= AREA(0.0, TOL= 1.0E-5, 100.0) ! N~ao é válido.
O exemplo acima não é válido porque tentou-se transferir o valor 100.0 sem haver a informação da palavra-chave.
Uma vez que o compilador não será capaz de realizar as associações apropriadas exceto se este conhecer as
palavras-chave (nomes dos argumentos mudos), a interface do sub-programa deve ser explícita caso palavraschave
sejam utilizadas. No caso de rotinas internas ou rotinas de módulo, a interface já é explícita. No caso de
rotinas externas, faz-se necessário o uso de um bloco de interfaces.
8.2.9 Argumentos opcionais
Em algumas situações, nem todos os argumentos de um sub-programa necessitam ser transferidos durante
uma chamada do mesmo. Um argumento que não necessita ser transferido em todas as chamadas possíveis
de um sub-programa é denominado opcional. Estes argumentos opcionais podem ser declarados pelo atributo
OPTIONAL na declaração do tipo de variáveis.
Mantendo o exemplo da função AREA acima, a seguinte definição pode ser feita:
...
CONTAINS
FUNCTION AREA(INICIO, FINAL, TOL)
REAL :: AREA
REAL, INTENT(IN), OPTIONAL :: INICIO, FINAL, TOL
...
END FUNCTION AREA
a qual agora tem as seguintes chamadas válidas, entre outras:
A= AREA(0.0, 100.0, 1.0E-2)
B= AREA(INICIO= 0.0, FINAL= 100.0, TOL= 1.0E-2)
C= AREA(0.0)
D= AREA(0.0, TOL= 1.0E-2)
onde se fez uso tanto da associação posicional para os valores dos argumentos, quanto da associação via o uso
de palavras-chave.
Um argumento obrigatório (que não é declarado opcional) deve aparecer exatamente uma vez na lista de
argumentos da chamada de uma rotina, ou na ordem posicional ou na lista de palavras-chave. Já um argumento
opcional pode aparecer, no máximo uma vez, ou na lista posicional de argumentos ou na lista de palavras-chave.
Da mesma forma como na seção 8.2.8, a lista de palavras-chave pode aparecer em qualquer ordem; porém,
depois que o primeiro argumento é transferido via uma palavra-chave, todos os restantes, obrigatórios ou
opcionais, devem ser transferidos da mesma forma.
A rotina necessita de algum mecanismo para detectar se um argumento opcional foi transferido na sua
chamada, para que esta possa tomar a medida adequada no caso de presença ou de ausência. Este mecanismo é
fornecido pela função intrínseca PRESENT (seção 7.3). Por exemplo, na função AREA acima, pode ser necessário
verificar a existência da variável TOL para definir a tolerância do cálculo ou usar um valor padrão caso ela não
tenha sido transferida:
...
REAL :: TTOL
...
IF(PRESENT(TOL))THEN
TTOL= TOL
ELSE
TTOL= 1.0E-3
END IF
...
A variável TTOL é utilizada aqui porque ela pode ser redefinida, ao passo que a variável TOL não, uma vez que
ela foi declarada com INTENT(IN).
Como no caso dos argumento com palavras-chave, se a rotina é externa e possui algum argumento opcional,
um bloco de interface deve ser fornecido em algum momento. Este não é o caso da função AREA, uma vez que
ela é interna. Contudo se externa ela o fosse, dever-se-ia declarar o seguinte bloco de interface:
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008