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

106 8.2. sub-programas
A= 0.0
ELSE
A= A + X
END IF
...
RETURN
END SUBROUTINE CONTA_SOMA
Neste exemplo, tanto a variável A quanto CONTA têm o seu valor mantido quando a subrotina é abandonada. Isto
é garantido porque a variável A é declarada com o atributo SAVE. Já a variável CONTA não precisa ser declarada
com o mesmo atributo porque ela tem o seu valor inicializado na declaração. De acordo com o padrão da
linguagem, as variáveis que têm o seu valor inicializado no momento da declaração automaticamente adquirem
o atributo SAVE.
Alternativamente ao uso do atributo, pode-se declarar uma lista de nomes de variáveis com a mesma propriedade
através da declaração SAVE. Desta forma, a variável A, no exemplo acima, podia ser declarada através
das linhas:
...
REAL :: A
SAVE :: A
...
A forma geral desta declaração é:
SAVE [[::] ]
onde uma declaração SAVE sem a subseqüente equivale à mesma declaração aplicada
a todos os nomes da rotina, em cujo caso nenhuma outra variável pode ser declarada com o atributo SAVE.
O comando ou atributo SAVE podem aparecer no campo de declarações de um programa principal, mas neste
caso o seu efeito é nulo. O uso prático deste recurso está restrito às outras unidades de programa.
8.2.16 Funções de efeito lateral e rotinas puras
Na seção 8.2, foi mencionado que funções normalmente não alteram o valor de seus argumentos. Entretanto,
em certas situações esta ação é permitida. Funções que alteram o valor de seus argumentos são denominadas
funções de efeito lateral (side-effect functions).
Para auxiliar na otimização do código, o padrão da linguagem estabelece uma proibição no uso de funções
de efeito lateral quando o uso de tal função em uma expressão altera o valor de um outro operando na mesma
expressão, seja este operando uma variável ou um argumento de uma outra função. Caso este tipo de função
fosse possível neste caso, a atribuição
RES= FUN1(A,B,C) + FUN2(A,B,C)
onde ou FUN1 ou FUN2, ou ambas, alterassem o valor de um ou mais argumentos, a ordem de execução desta
expressão seria importante; o valor de RES seria diferente caso FUN1 fosse calculada antes de FUN2 do que seria
caso a ordem de cálculo fosse invertida. Exemplos de funções de efeito lateral são dados a seguir:
FUNCTION FUN1(A,B,C)
INTEGER :: FUN1
REAL, INTENT(INOUT) :: A
REAL, INTENT(IN) :: B,C
A= A*A
FUN1= A/B
RETURN
END FUNCTION FUN1
-----------------------------------
FUNCTION FUN2(A,B,C)
INTEGER :: FUN2
REAL, INTENT(INOUT) :: A
REAL, INTENT(IN) :: B,C
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008