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

8.2.2 Rotinas internas
Capítulo 8. Sub-Programas e Módulos 85
Já foi observado nas seções anteriores que rotinas internas podem ser definidas dentro de quaisquer unidades
de programa. Uma rotina interna possui a seguinte estrutura:
ou
[RECURSIVE] SUBROUTINE [()]
[]
[]
END SUBROUTINE []]
[] [RECURSIVE] FUNCTION () &
[RESULT ()]
[]
[]
END FUNCTION []]
Nota-se agora que as declarações FUNCTION e SUBROUTINE agora são obrigatórias no comando END. Uma determinada
unidade de programa pode conter qualquer número de rotinas internas, porém estas, por sua vez, não
podem conter outras rotinas internas.
Cabe aqui uma menção a respeito da diferença entre uma rotina interna e uma rotina de módulo. Esta
última também é incluída depois da palavra-chave CONTAINS, em um módulo, mas pode conter rotinas internas
a ela.
Uma rotina interna automaticamente tem acesso a todas as entidades do hospedeiro, tais como variáveis, e
possuem também a habilidade de chamar as outras rotinas deste. Contudo, uma determinada rotina interna
não possui acesso às entidades de outra rotina interna.
Um exemplo simples do uso de uma função interna é apresentado a seguir. Note que a variável a é declarada
no programa principal, tornando-se assim uma variável declarada também dentro do âmbito da função
calc_a_raiz:
program r o t i n t
implicit none
real : : x , a
!
print , ”Entre com o v a l o r de x : ”
read , x
print , ”Entre com o v a l o r de a : ”
read , a
print , ”O r e s u l t a d o de a + s q r t ( x ) é : ”
print , c a l c a r a i z ( x )
print , ”O r e s u l t a d o de a + s q r t (1+ x2) é : ”
print , c a l c a r a i z ( 1 . 0 + x2)
CONTAINS
function c a l c a r a i z ( y )
real : : c a l c a r a i z
real , intent ( in ) : : y
c a l c a r a i z= a + s q r t ( y )
return
end function c a l c a r a i z
end program r o t i n t
No restante deste capítulo, serão descritas várias propriedades que se aplicam a sub-programas internos,
externos e a rotinas de módulos.
8.2.3 Argumentos de sub-programas
Argumentos de sub-programas fornecem um meio alternativo para que duas unidades de programa compartilhem
os mesmos dados. Estes consistem em uma lista de variáveis escalares ou matriciais, constantes, expressões
escalares ou matriciais e até mesmo os nomes de outras rotinas. Os argumentos de um sub-programa são muitas
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008