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

112 8.3. Módulos
Aqui, os nomes R e S são usado para acessar as variáveis globais A e B, definidas no módulo, caso estes nomes
últimos sejam usados para diferentes variáveis na mesma unidade de programa. Os símbolos “=>“ promovem a
ligação do nome local com o nome no módulo. Tudo se passa como se R fosse o apelido de A e S o apelido de B
nesta unidade de programa. Os ponteiros em Fortran 90/95 também atuam como apelidos, porém, neste caso,
pode-se usar tanto o nome verdadeiro de uma variável quanto o nome de um ponteiro que aponta a ela.
Existe também uma forma da declaração USE que limita o acesso somente a certos objetos dentro de um
módulo. Este recurso não é exatamente igual ao uso dos atributos PUBLIC ou PRIVATE (seção 8.3.3), uma vez
que ele atua somente na unidade que acessa o módulo, e não sobre o módulo em geral. O recurso requer o uso
do qualificador ONLY, seguido de dois pontos “:” e uma :
USE , ONLY:
Por exemplo para tornar somente as variáveis A e C do módulo GLOBAIS acessíveis em uma dada unidade de
programa, a declaração fica:
...
USE GLOBAIS, ONLY: A, C
...
Os dois últimos recursos podem ser também combinados:
...
USE GLOBAIS, ONLY: R => A
...
para tornar somente a variável A acessível, porém com o nome R. Uma unidade de programa pode ter mais
de uma declaração USE referindo-se ao mesmo módulo. Por conseguinte, deve-se notar que que um USE com o
qualificador ONLY não cancela uma declaração USE menos restritiva.
Um uso freqüente de módulos para armazenar dados globais consiste em definições de parâmetros de espécie
de tipo, constantes universais matemáticas e/ou físicas e outros objetos estáticos, como no exemplo abaixo:
! Module Esp const
! Define e s p é c i e s de t i p o padrões e c o n s t a n t e s u n i v e r s a i s .
!
MODULE e s p c o n s t
!
INTEGER, PARAMETER : : I4B = SELECTED INT KIND( 9 )
INTEGER, PARAMETER : : I2B = SELECTED INT KIND( 4 )
INTEGER, PARAMETER : : I1B = SELECTED INT KIND( 2 )
integer , parameter : : sp= kind ( 1 . 0 )
integer , parameter : : dp= s e l e c t e d r e a l k i n d (2 precision ( 1 . 0 sp ) )
integer , parameter : : qp= s e l e c t e d r e a l k i n d (2 precision ( 1 . 0 dp ) )
complex( kind= dp ) , parameter : : z1= ( 1 . 0 dp , 0 . 0 dp ) , z i= ( 0 . 0 dp , 1 . 0 dp )
REAL(DP) , PARAMETER : : PI= 3.14159265358979323846264338327950288419717 dp
REAL(DP) , PARAMETER : : PID2= 1.57079632679489661923132169163975144209858 dp
REAL(DP) , PARAMETER : : TWOPI= 6.28318530717958647692528676655900576839434 dp
real ( dp ) , parameter : : r t p i= 1.77245385090551602729816748334114518279755 dp
REAL(DP) , PARAMETER : : SQRT2= 1.41421356237309504880168872420969807856967 dp
real ( dp ) , parameter : : e u l e r e= 2.71828182845904523536028747135266249775725 dp
REAL(SP) , PARAMETER : : PI S= 3.14159265358979323846264338327950288419717 sp
REAL(SP) , PARAMETER : : PID2 S= 1.57079632679489661923132169163975144209858 sp
REAL(SP) , PARAMETER : : TWOPI s= 6.28318530717958647692528676655900576839434 sp
real ( sp ) , parameter : : r t p i s= 1.77245385090551602729816748334114518279755 sp
REAL(SP) , PARAMETER : : SQRT2 S= 1.41421356237309504880168872420969807856967 sp
!
! Fundamental p h y s i c a l constants , o b t a i n e d from NIST :
! h t t p :// p h y s i c s . n i s t . gov /cuu/ Constants / index . html
real ( dp ) , parameter : : rmemp= 5.4461702173 e−4 dp ! Electron −proton mass r a t i o .
real ( dp ) , parameter : : rmpme= 1836.15267261 dp ! Protron−e l e c t r o n mass r a t i o .
END MODULE e s p c o n s t
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008