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

94 8.2. sub-programas
INTERFACE
FUNCTION AREA(INICIO, FINAL, TOL)
REAL :: AREA
REAL, INTENT(IN), OPTIONAL :: INICIO, FINAL, TOL
END FUNCTION AREA
END INTERFACE
8.2.10 Tipos derivados como argumentos de rotinas
Argumentos de rotinas podem ser do tipo derivado se este está definido em somente uma única unidade de
programa. Isto pode ser obtido de duas maneiras:
1. A rotina é interna à unidade de programa na qual o tipo derivado é definido.
2. O tipo derivado é definido em um módulo o qual é acessado pela rotina.
8.2.11 Matrizes como argumentos de rotinas
Um outro recurso importante em Fortran é a capacidade de usar matrizes como argumentos mudos de
sub-programas. Se um argumento mudo de uma rotina é uma matriz, então o argumento real pode ser:
o nome da matriz (sem subscritos);
um elemento de matriz.
A primeira forma transfere a matriz inteira; a segunda forma, a qual transfere somente uma seção que inicia no
elemento especificado, é descrita em mais detalhes a seguir.
8.2.11.1 Matrizes como argumentos em Fortran 77
O Fortran 77 já possuía diversos recursos para realizar a transferência de matrizes entre sub-programas.
Estes recursos foram posteriormente estendidos com a definição do novo padrão com o Fortran 90/95.
O uso mais simples e comum de argumentos mudos matriciais consiste em tornar disponível o conteúdo
completo de uma matriz em uma rotina. Se as matrizes usadas como argumentos reais serão todas do mesmo
tamanho, então as matrizes mudas na rotina podem usar limites fixos (alocação estática). Por exemplo:
SUBROUTINE PROD(X, Y, Z)
C Calcula o produto dos vetores X e Y, com 100 elementos cada,
C resultando no vetor Z do mesmo tamanho.
REAL X(100), Y(100), Z(100)
DO 10, I= 1,100
Z(I)= X(I)*Y(I)
15 CONTINUE
END
Esta subrotina pode ser chamada por um programa semelhante a este:
PROGRAM CHAMA_PROD
REAL A(100), B(100), C(100)
READ(UNIT=*, FMT=*) A,B
CALL PROD(A, B, C)
WRITE(UNIT=*, FMT=*)C
END
Este uso de matrizes como argumentos mudos de sub-programas é perfeitamente legítimo, porém inflexível,
porque não permite o uso de matrizes de qualquer outro tamanho. Para possibilitar uma flexibilidade maior,
o Fortran 77 introduziu dois mecanismos que possibilitaram uma alocação dinâmica no tamanho de matrizes
usadas como argumentos mudos de sub-programas. Estes mecanismos são as matrizes ajustáveis e as matrizes
de tamanho assumido. A alocação dinâmica, entretanto, é parcial, porque as matrizes reais transferidas aos
sub-programas deveriam ter seu tamanho definido por alocação estática em algum ponto dentro das unidades
de programas que chamavam as rotinas.
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008