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

PROGRAM TESTA_MATRIZ
IMPLICIT NONE
REAL, DIMENSION(0:10, 0:20) :: A
...
CALL SUB_MATRIZ(A)
...
CONTAINS
SUBROUTINE SUB_MATRIZ(DA)
REAL, DIMENSION(:,:), INTENT(INOUT) :: DA
...
END SUBROUTINE SUB_MATRIZ
END PROGRAM TESTA_MATRIZ
Capítulo 8. Sub-Programas e Módulos 97
A subrotina SUB_MATRIZ declara a matriz de forma assumida DA. A correspondência entre os elementos da
matriz real A e a matriz muda DA é: A(0,0)↔DA(1,1) . . . A(I,J)↔DA(I+1,J+1) . . . A(10,20)↔DA(11,21).
Para que houvesse a mesma correspondência entre os elemento de A e DA, seria necessário declarar esta última
como:
REAL, DIMENSION(0:,0:), INTENT(INOUT) :: DA
Neste caso, a correspondência seria a desejada: A(0,0)↔DA(0,0) . . . A(I,J)↔DA(I,J) . . . A(10,20)↔DA(10,20).
Para se definir matrizes de forma assumida, é necessário que a interface seja explícita na unidade que chama
a rotina. A matriz real pode ter sido declarada, na unidade que chama a rotina ou em outra unidade anterior,
como uma matriz alocável. Como exemplo, considere a seguinte rotina externa, seguida do programa que a
chama, programa 8.2, listado na página 98:
subroutine sub ( ra , rb , rc , max a )
implicit none
real , dimension ( : , : ) , intent ( in ) : : ra , rb
real , dimension ( : , : ) , intent ( out ) : : rc
real , intent ( out ) : : max a
!
max a= maxval ( ra )
rc= 0.5 rb
return
end subroutine sub
Objetos automáticos
Uma rotina com argumentos mudos que são matrizes cujos tamanhos variam de uma chamada a outra pode
também precisar de matrizes locais (não mudas) cujos tamanhos variem ao sabor dos tamanhos das matrizes
mudas. Um exemplo simples é a matriz TEMP na subrotina abaixo, destinada a trocar os elementos entre duas
matrizes:
SUBROUTINE TROCA(A,B)
IMPLICIT NONE
REAL, DIMENSION(:), INTENT(INOUT) :: A, B
REAL, DIMENSION(SIZE(A)) :: TEMP !A funç~ao SIZE fornece o tamanho de TEMP.
TEMP= A
A= B
B= TEMP
RETURN
END SUBROUTINE TROCA
Matrizes como a TEMP, cujas extensões variam da maneira apresentada são chamadas matrizes automáticas e
são exemplos de objetos automáticos de dados. Estes são objetos de dados cujas declarações dependem do valor
de expressões não-constantes e que não são argumentos mudos de rotinas.
Um outro objeto automático, relacionado com variáveis de caracteres, surge através do comprimento variável
de um caractere:
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008