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

Capítulo 8. Sub-Programas e Módulos 99
ocorre quando variáveis globais públicas declaradas no corpo de um módulo são disponibilizadas à rotina através
da instrução USE; enquanto que associação ao hospedeiro ocorre quando variáveis declaradas em uma unidade
de programa são disponibilizadas às suas rotinas internas.
Matrizes automáticas são automaticamente criadas (alocadas) na entrada da rotina e automaticamente
dealocadas na saída. Assim, o tamanho das matrizes automáticas pode variar em diferentes chamadas da rotina.
Note que não há mecanismo para verificar a disponibilidade de memória para a criação de matrizes automáticas.
Caso não haja memória suficiente, o programa é interrompido. Além disso, uma matriz automática não pode
aparecer em uma declaração SAVE (seção 8.2.15) ou NAMELIST, ou possuir o atributo SAVE na sua declaração.
Além disso, a matriz não pode ser inicializada na sua declaração.
O seguinte programa-exemplo usa matrizes alocáveis, de forma assumida e automáticas:
subroutine sub mat ( a , r e s )
implicit none
real , dimension ( : , : ) , intent ( in ) : : a ! Matriz de forma assumida
real , intent ( out ) : : r e s
real , dimension ( size ( a , 1 ) , size ( a , 2 ) ) : : temp ! Matriz automática
!
temp= s i n ( a )
r e s= minval ( a+temp )
return
end subroutine sub mat
program matriz aut
implicit none
real , dimension ( : , : ) , allocatable : : a
real : : r e s
integer : : n , m, i
INTERFACE
subroutine sub mat ( a , r e s )
real , dimension ( : , : ) , intent ( in ) : : a
real , intent ( out ) : : r e s
real , dimension ( size ( a , 1 ) , size ( a , 2 ) ) : : temp
end subroutine sub mat
END INTERFACE
print , ”Entre com dimensões da matriz : ”
read , n ,m
allocate ( a (n ,m) )
a= reshape ( source =(/( tan ( real ( i ) ) , i= 1 , nm) / ) , shape= (/n ,m/ ) )
print , ”Matriz a : ”
do i= 1 , n
print , a ( i , : )
end do
c a l l sub mat ( a , r e s )
print , ””
print , ”O menor v a l o r de a + s i n ( a ) é : ” , r e s
end program matriz aut
8.2.12 sub-programas como argumentos de rotinas
Até este ponto, os argumentos de uma rotina forma supostos ser variáveis ou expressões. Contudo, uma
outra possibilidade é um ou mais argumentos sendo nomes de outras rotinas que serão invocadas. Um exemplo
de situação onde é necessário mencionar o nome de uma rotina como argumento de outra é quando a segunda
executa a integração numérica da primeira. Desta forma, é possível escrever-se um integrador numérico genérico,
que integra qualquer função que satisfaça a interface imposta a ela.
Um exemplo de uso do nome de uma rotina como argumento ocorre abaixo. a função MINIMO calcula o
mínimo (menor valor) da função FUNC em um intervalo:
FUNCTION MINIMO(A, B, FUNC)
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008