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

102 8.2. sub-programas
! Gera uma matriz de pontos de uma função q u a l q u e r d e s t i n a d a à plotagem
! do g r á f i c o d e s t a função .
! Parâmetros :
! f : Função externa a s e r p l o t a d a .
! x i : Ponto i n i c i a l ( entrada ) .
! x f : Ponto f i n a l ( entrada ) .
! npt : Número de pontos a s e r gerados ( entrada )
! p l o t : matriz de forma (/ npt , 2 /) contendo as a b c i s s a s e ordenadas dos
! pontos ( saída ) .
!
subroutine p l o t a ( f , xi , xf , npt , p l o t )
implicit none
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
! V a r i á v e i s l o c a i s :
integer : : i
real : : passo , x
!
passo= ( xf − x i )/ real ( npt − 1)
x= x i
do i= 1 , npt
p l o t ( 1 , i )= x
p l o t ( 2 , i )= f ( x )
x= x + passo
end do
return
end subroutine p l o t a
Considere o seguinte exemplo de uma função de valor matricial:
PROGRAM TES_VAL_MAT
IMPLICIT NONE
INTEGER, PARAMETER :: M= 6
INTEGER, DIMENSION(M,M) :: IM1, IM2
...
IM2= FUN_VAL_MAT(IM1,1) !Chama funç~ao matricial.
...
CONTAINS
FUNCTION FUN_VAL_MAT(IMA, SCAL)
INTEGER, DIMENSION(:,:), INTENT(IN) :: IMA
INTEGER, INTENT(IN) :: SCAL
INTEGER, DIMENSION(SIZE(IMA,1),SIZE(IMA,2)) :: FUN_VAL_MAT
FUN_VAL_MAT= IMA*SCAL
END FUNCTION FUN_VAL_MAT
END PROGRAM TES_VAL_MAT
Neste exemplo, o limites das dimensões de FUN_VAL_MAT são herdadas do argumento verdadeiro transferido à
função e usadas para determinar o tamanho da matriz resultante.
Para que o compilador conheça a forma da matriz resultante, a interface de uma função de valor matricial
deve ser explícita em todas as unidades onde esta função é invocada.
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008