Modularização de programas FORTRAN

Com a existência de grandes projetos, às vezes surge a necessidade de mais de um desenvolvedor trabalhar sobre o mesmo projeto, e normalmente existe a dependência entre eles.

E como a linguagem de programação FORTRAN antes da sua versão 2003 não suportava a Programação Orientada a Objetos que permite a reusabilidade de código, o recurso utilizado era a modularização, que é incluir em tempo de compilação o conteúdo de outro arquivo de código (ou dados) dentro de um arquivo X.

Vamos iniciar com este exemplo:

Para incluir declarações, atribuições e outros comandos que estejam em um arquivo de texto com o mesmo formato usado no programa podem ser adicionados ao programa principal através do comando ‘include’.  Os arquivos serão interpretados como parte do programa, e por isso devem seguir as mesmas regras do programa normal escrito em Fortran.

Sintaxe:

include ‘nome.ext’
ou
include “nome.ext”

Nome e extensão podem ser qualquer um, mas a extensão ‘.inc’ é a
mais comum para esse tipo de arquivo.  É permitido o uso de caminhos
completos (Path) no lugar do nome.  A ausência de Path pressupõe que o
arquivo a ser incluido  se encontre no mesmo local que o arquivo do programa.

Exemplo:

Arquivo: exemploInclude.f90

PROGRAM exemploInclude
INTEGER data1, data2, data3
CHARACTER*10 nome1, nome2, nome3
CHARACTER*10 mes1, mes2, mes3

INCLUDE ‘dados.txt’

WRITE(*,*) mes1
WRITE(*,*) nome1, data1
WRITE(*,'(1x,a,a,i2)’) nome2, data2, mes2
END

Arquivo dados.txt

data1 = 11
data2 = 04
data3 = 25
nome1 = ‘Francisco’
nome2 = ‘Antônio’
nome3 = ‘Alberto’
mes1 = ‘Março’
mes2 = ‘Novembro’
mes3 = ‘Setembro’

Saída:

Março
Francisco   11
Antônio   04    Novembro

Bom, por hoje é só, até a próxima.