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

Capítulo 8. Sub-Programas e Módulos 83
Caso haja vários comandos STOP em uma mesma unidade, estes podem ser distingüidos por um código de
acesso, que se trata de uma constante de caractere ou uma string de até 5 dígitos. Isto originará uma mensagem
na saída padrão indicando o ponto onde a execução foi terminada. A seguir, dois exemplos deste caso:
STOP ’Dados incompletos. Programa interrompido.’
STOP 12345
8.1.2 Rotinas externas
Rotinas externas são chamadas de dentro de um programa principal ou de outra unidade, usualmente com o
intuito de executar uma tarefa bem definida dentro dos objetivos cumpridos pelo programa completo. Rotinas
externas são escritas em arquivos distintos, separados do arquivo do programa principal.
Durante o processo de criação do programa executável, estas rotinas podem ser compiladas conjuntamente
com o programa principal ou em separado. Nesta última situação, os programas objetos criados durante compilações
prévias das rotinas externas são linkados junto com o programa objeto do programa principal. Embora
seja possível colocar-se mais de uma rotina externa no mesmo arquivo, esta prática não é recomendada.
8.1.3 Módulos
O terceiro tipo de unidade de programa, exclusivo no Fortran 90/95, é o módulo. Trata-se de uma maneira
de se agrupar dados globais, tipos derivados e suas operações associadas, blocos de interface, grupos NAMELIST
(seção 9.2) e rotinas internas. Tudo associado com uma determinada tarefa pode ser coletado dentro de um
módulo e acessado quando necessário. Aquelas partes que são restritas ao funcionamento interno da tarefa e não
são do interesse direto do programador podem ser feitas “invisíveis” a este, o que permite que o funcionamento
interno do módulo possa ser alterado sem a necessidade de alterar o programa que o usa, prevenindo-se assim
alteração acidental dos dados.
Um módulo tem a seguinte forma:
MODULE
[CONTAINS
END [MODULE []]
Assim como para END PROGRAM, é recomendado o uso da forma completa do comando END.
Uma discussão mais extensa acerca dos módulos em Fortran 90/95 será feita na seção 8.3.
8.2 sub-programas
sub-programas podem ser subrotinas ou funções. Como já foi mencionado, tarefas que podem ser delimitadas
por um número finito de operações e que devem ser realizadas repetidas vezes durante a execução de um programa
devem ser escritas como sub-programas.
Uma função retorna um único valor, o qual pode ser um escalar ou uma matriz, e esta usualmente não
altera os valores de seus argumentos 2 . Neste sentido, uma função em Fortran age como uma função em análise
matemática. Já uma subrotina pode executar uma tarefa mais complexa e retornar diversos valores através de
seus argumentos, os quais podem ser modificados ao longo da computação da subrotina.
8.2.1 Funções e subrotinas
Exceto pela declaração inicial, os sub-programas apresentam uma forma semelhante a de um programa
principal. Um sub-programa pode ser uma subrotina:
[PURE] [ELEMENTAL] [RECURSIVE] SUBROUTINE [()]
[]
[]
2 Situações onde este requisito pode ser relaxado e como estabelecer salvaguardas são discutidas na seção 8.2.16.
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008