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

118 8.3. Módulos
! Define nome g e n é r i c o para t r o c a de duas v a r i á v e i s q u a i s q u e r .
MODULE gentroca
implicit none
type : : ponto
real : : x , y
end type ponto
!
INTERFACE t r o c a
MODULE PROCEDURE troca ponto , t r o c a r e a l , t r o c a i n t , t r o c a l o g
END INTERFACE t r o c a
!
CONTAINS
elemental subroutine troca ponto ( a , b )
type ( ponto ) , intent ( inout ) : : a , b
type ( ponto ) : : temp
temp= a
a= b
b= temp
end subroutine troca ponto
!
elemental subroutine t r o c a r e a l ( a , b )
real , intent ( inout ) : : a , b
real : : temp
temp= a
a= b
b= temp
end subroutine t r o c a r e a l
!
elemental subroutine t r o c a i n t ( a , b )
integer , intent ( inout ) : : a , b
integer : : temp
temp= a
a= b
b= temp
end subroutine t r o c a i n t
!
elemental subroutine t r o c a l o g ( a , b )
logical , intent ( inout ) : : a , b
l o g i c a l : : temp
temp= a
a= b
b= temp
end subroutine t r o c a l o g
END MODULE gentroca
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008