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

More documents

Recommendations

Info

100 8.2. sub-programas ! Calcula o mínimo de FUNC no intervalo [A,B]. REAL :: MINIMO REAL, INTENT(IN) :: A, B INTERFACE FUNCTION FUNC(X) REAL :: FUNC REAL, INTENT(IN) :: X END FUNCTION FUNC END INTERFACE REAL :: F,X ... F= FUNC(X) !Invocaç~ao da funç~ao. ... END FUNCTION MINIMO Note o uso de um bloco de interface para indicar ao compilador que o nome FUNC corresponde a uma função definida pelo usuário. Em Fortran 77, como não havia o recurso de blocos de interface, a indicação que o nome FUNC corresponde a uma função externa é realizada através da declaração EXTERNAL. Assim, no exemplo acima, no lugar da interface apareceria: ... REAL FUNC EXTERNAL FUNC ... para indicar a função externa. A mesma alternativa continua válida em Fortran 90/95, onde, além da declaração, pode-se usar também a palavra-chave EXTERNAL como atributo de um nome. Contudo, como já foi mencionado na seção 8.2.7, o simples uso da declaração ou atributo EXTERNAL não possibilita o controle nos argumentos desta função, ao contrário do que ocorre quando a interface é explícita. Um exemplo de programa que chama a função MINIMO seria o seguinte: PROGRAM MIN IMPLICIT NONE REAL :: MENOR INTERFACE FUNCTION FUN(X) REAL :: FUN REAL, INTENT(IN) :: X END FUNCTION FUN END INTERFACE ... MENOR= MINIMO(1.0, 2.0, FUN) ... END PROGRAM MIN O uso de um bloco de interface não é necessário se a interface de FUN for explícita, como no caso de uma rotina de módulo. No exemplo acima, a função FUN não pode ser interna, porque estas não são admitidas quando os seus nomes são usados como argumentos de outras rotinas. Ou seja, somente rotinas externas ou de módulos são aceitas quando os seus nomes são transferidos a outras rotinas como argumentos. O programa-exemplo das páginas 101 e 102 descreve uma subrotina que gera uma matriz de pontos a partir de uma função fornecida pelo programador. 8.2.13 Funções de valor matricial Funções, além de fornecer os resultados usuais na forma de valores dos tipos intrínsecos inteiro, real, complexo, lógico e de caractere, podem também fornecer como resultado valores de tipo derivado, matrizes e ponteiros. No caso de funções de valor matricial, o tamanho do resultado pode ser determinado de forma semelhante à maneira como matrizes automáticas são declaradas. Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008
Capítulo 8. Sub-Programas e Módulos 101 ! Usa s u b r o t i n a p l o t a e chama a função externa Meu F . ! program t e s p l o t a implicit none integer : : pts , j real : : yi , yf real , dimension ( : , : ) , allocatable : : xy INTERFACE subroutine p l o t a ( f , xi , xf , npt , p l o t ) integer , intent ( in ) : : npt real , intent ( in ) : : xi , xf real , dimension ( 2 , npt ) , intent ( out ) : : p l o t INTERFACE function f ( x ) real : : f real , intent ( in ) : : x end function f END INTERFACE end subroutine p l o t a ! function Meu F( y ) real : : Meu F real , intent ( in ) : : y end function Meu F END INTERFACE ! print , ”Entre com o número de pontos : ” read , pts print , ”Entre com os l i m i t e s i n f e r i o r e s u p e r i o r : ” read , yi , yf allocate ( xy ( 2 , pts ) ) ! c a l l p l o t a (Meu F , yi , yf , pts , xy ) ! do j= 1 , pts print , xy ( : , j ) end do end program t e s p l o t a ! Função sen ( exp ( x ) ) . function Meu F( x ) real : : Meu F real , intent ( in ) : : x ! Meu F= s i n ( exp ( x ) ) return end function Meu F Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008
Page 1 and 2: Capítulo 8 Sub-Programas e Módulo
Page 3 and 4: Capítulo 8. Sub-Programas e Módul
Page 5 and 6: 8.2.2 Rotinas internas Capítulo 8.
Page 15 and 16: Matrizes ajustáveis Capítulo 8. S
Page 17 and 18: PROGRAM TESTA_MATRIZ IMPLICIT NONE
Page 19: Capítulo 8. Sub-Programas e Módul
Page 23 and 24: 8.2.14 Recursividade e rotinas recu
Page 25 and 26: FUNCTION INTEGRA(F, LIMITES) ! Inte
Page 27 and 28: A= 2*A FUN2= A/C RETURN END FUNCTIO
Page 29 and 30: TEMP= A A= B B= TEMP RETURN END SUB

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

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?