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

86 8.2. sub-programas
vezes denominados variáveis mudas (dummy variables). Estes devem coincidir com os argumentos transferidos
a partir da unidade que chama a rotina em tipo, espécie e forma. Contudo, os nomes não necessitam ser os
mesmos, como se pode ver no exemplo acima. Com base no mesmo exemplo, poder-se-ia realizar duas chamadas
da função calc_a_raiz:
...
read*, a,x
print*, calc_a_raiz(x)
print*, calc_a_raiz(a + x**2)
...
Sempre que possível, é recomendado que o nome do argumento transferido ao sub-programa seja igual ao nome
da variável muda. O ponto importante é que sub-programas podem ser escritos de forma independente uns dos
outros. A associação das variáveis mudas com os argumentos verdadeiros ocorrem somente quando a rotina
é chamada. Desta forma, bibliotecas de sub-programas podem ser construídos, possibilitando que estes sejam
usados em diferentes programas (ver seção 8.2.6).
O programa-exemplo bascara1, apresentado na página 87, implementa, de forma ingênua, o cálculo das raízes
de um polinômio de segundo grau através da Fórmula de Báscara usando uma subrotina interna. Exemplos
semelhantes a este serão usados para ilustrar o uso de rotinas em outras unidades de programa.
8.2.4 Comando RETURN
No padrão da linguagem, um sub-programa pode ser encerrado pelo comando END, sendo o controle do fluxo
retornado à unidade que chamou este sub-programa. Contudo, o meio recomendado de se retornar controle a
partir de um sub-programa consiste na utilização do comando RETURN, o qual pode surgir em mais de um ponto
da rotina, ao contrário do END.
Como no caso dos comandos STOP e END, o RETURN pode ser rotulado, pode fazer parte de um construto como
o IF e é um comando executável. O RETURN não pode aparecer entre os comandos executáveis do programa
principal.
8.2.5 Atributo e declaração INTENT
No programa bascara1, (programa 8.1) as variáveis mudas a0, a1 e a2 foram utilizadas para transferir à
subrotina informação acerca dos coeficientes do polinômio de 2 grau. Por isto, estes nomes foram declarados
ter a intenção INTENT(IN). Por outro lado, a subrotina devolveu ao programa os valores das raízes reais (caso
existam) através das variáveis mudas r1 e r2, as quais foram declaradas ter a intenção INTENT(OUT). Uma
terceira possibilidade seria a existência de uma variável cujo valor é inicialmente transferido para dentro da
subrotina, modificado por esta e, então transferido para fora da subrotina. Neste caso, esta variável deveria
ser declarada com a intenção INTENT(INOUT).
Se uma variável muda é especificada com atributo INTENT(IN), o seu valor não pode ser alterado pela rotina,
seja através de atribuição de valor a partir de uma expressão, ou através de sua transferência para uma outra
rotina que, por sua vez, alteraria este valor.
Se a variável é especificada com INTENT(OUT), o seu valor é indefinido na chamada da rotina, sendo este
então definido durante a execução da mesma e finalmente transferido à unidade que chamou a rotina.
Se a variável é especificada com INTENT(INOUT), esta tem o seu valor inicial transferido na chamada da
rotina, o valor pode ser alterado e, então, o novo valor pode ser devolvido à unidade que chamou a rotina.
É recomendado que a intenção de todas as variáveis mudas seja declarada. Em funções, variáveis mudas
somente podem ser declaradas com INTENT(IN).
Como alternativa ao uso do atributo INTENT(INOUT), pode-se declarar a intenção de nomes de argumentos
mudos de rotinas, que não sejam sub-programas mudos, através da declaração INTENT(INOUT), a qual tem a
forma geral:
INTENT() [::]
Por exemplo,
SUBROUTINE SOLVE(A, B, C, X, Y, Z)
REAL :: A, B, C, X, Y, Z
INTENT(IN) :: A, B, C
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008