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

98 8.2. sub-programas
Programa 8.2: Exemplifica o uso de matrizes de forma assumida.
program prog sub
implicit none
real , dimension ( 0 : 9 , 1 0 ) : : a
real , dimension ( 5 , 5 ) : : c
real : : valor max
integer : : i
INTERFACE
subroutine sub ( ra , rb , rc , max a )
real , dimension ( : , : ) , intent ( in ) : : ra , rb
real , dimension ( : , : ) , intent ( out ) : : rc
real , intent ( out ) : : max a
end subroutine sub
END INTERFACE
!
a= reshape ( source =(/( cos ( real ( i ) ) , i= 1 , 1 0 0 ) / ) , shape= ( / 1 0 , 1 0 / ) )
c a l l sub ( a , a ( 0 : 4 , : 5 ) , c , valor max )
print , ”A matriz a : ”
do i= 0 , 9
print , a ( i , : )
end do
print , ””
print , ”O maior v a l o r em a : ” , valor max
print , ””
print , ”A matriz c : ”
do i= 1 , 5
print , c ( i , : )
end do
end program prog sub
SUBROUTINE EXEMPLO(PALAVRA1)
IMPLICIT NONE
CHARACTER(LEN= *) :: PALAVRA1
CHARACTER(LEN= LEN(PALAVRA1)) :: PALAVRA2
...
como um exemplo. Se este objeto consiste em uma função de caractere de tamanho variável, a interface deve
ser explícita, como no programa-exemplo loren abaixo.
A definição dos limites das dimensões de um objeto automático pode ser realizada também de argumentos
mudos ou de variáveis definidas por associação por uso ou por associação ao hospedeiro. Associação por uso
program l o r e n
implicit none
character ( len= ) , parameter : : a= ”Só um pequeno exemplo . ”
print , dobro ( a )
CONTAINS
function dobro ( a )
character ( len= ) , intent ( in ) : : a
character ( len= 2 len ( a)+2) : : dobro
dobro= a // ” ” // a
return
end function dobro
end program l o r e n
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008