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

92 8.2. sub-programas
! Calcula as r a í z e s r e a i s de um polinômio de grau 2 .
program bascara3
implicit none
l o g i c a l : : c o n t r o l e
real : : a , b , c
real : : x1 , x2 ! Raízes r e a i s .
INTERFACE
subroutine bascara ( a2 , a1 , a0 , r a i z e s r e a i s , r1 , r2 )
real , intent ( in ) : : a0 , a1 , a2
logical , intent ( out ) : : r a i z e s r e a i s
real , intent ( out ) : : r1 , r2
end subroutine bascara
END INTERFACE
!
do
print , ”Entre com os v a l o r e s dos c o e f i c i e n t e s ( a , b , c ) , ”
print , ”onde ax2 + bx + c . ”
read , a , b , c
c a l l bascara ( a , b , c , c o n t r o l e , x1 , x2 )
i f ( c o n t r o l e ) then
print , ”As r a í z e s ( r e a i s ) são : ”
print , ”x1=” , x1
print , ”x2=” , x2
exit
else
print , ”As r a í z e s são complexas . Tente novamente . ”
end i f
end do
end program bascara3
para evitar confusão entre os mesmos. A grande vantagem no uso de palavras-chave está em que não é necessário
lembrar a ordem dos argumentos. Contudo, é necessário conhecer os nomes dos argumentos mudos definidos no
campo de declarações da rotina.
Por exemplo, dada a seguinte função interna:
...
CONTAINS
FUNCTION AREA(INICIO, FINAL, TOL)
REAL :: AREA
REAL, INTENT(IN) :: INICIO, FINAL, TOL
...
END FUNCTION AREA
esta pode ser chamada por quaisquer uma das três seguintes atribuições:
A= AREA(0.0, 100.0, 1.0E-5)
B= AREA(INICIO= 0.0, TOL= 1.0E-5, FINAL= 100.0)
C= AREA(0.0, TOL= 1.0E-5, FINAL= 100.0)
VALOR= 100.0
ERRO= 1.0E-5
D= AREA(0.0, TOL= ERRO, FINAL= VALOR)
onde A, B, C e D são variáveis declaradas previamente como reais. Todos os argumentos antes da primeira palavrachave
devem estar ordenados na ordem definida pela função. Contudo, se uma palavra-chave é utilizada, esta
não necessita estar na ordem da definição. Além disso, o valor atribuído ao argumento mudo pode ser uma
constante, uma variável ou uma expressão, desde que a interface seja obedecida. Depois que uma palavrachave
é utilizada pela primeira vez, todos os argumentos restantes também devem ser transferidos através de
palavras-chave. Conseqüentemente, a seguinte chamada não é válida:
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008