Recentemente recebi um e-mail de um colega de profissão com uma questão a respeito de Fortran 77:
1) Porque o programa compila e executa?
2) Descomentando o valor de X na 1a linha da subrotina (Linha 7) o programa não funciona, por que?
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| PROGRAM RIARRAY | |
| CALL DRIVER | |
| END | |
| SUBROUTINE DRIVER | |
| C X = 290.0 | |
| E(X) = EXP(21.18123 – 5418. / X ) / .622 | |
| PRINT *, X, E(X) | |
| C TM = 288.0 | |
| C PRINT *, TM, E(TM) | |
| C X = 290.0 | |
| C PRINT *, X, E(X) | |
| END |
Enquanto preparava o material de aula para meus alunos de Fortran, estava pesquisando as Notas de Aula de Física Computacional I do Professor Francisco C. Lavarda da UNESP e me deparei com a Definição de Função de Comando que viria por explicar os questionamentos acima citados.
Ref: HEHL, M. E., LINGUAGEM DE PROGRAMAÇÃO ESTRUTURADA FORTRAN, McGraw-Hill, 1986
11.5.1. Definição de Função de Comando
Uma função de comando é definida por um comando da forma:
nome ([a[,a]?]) = e
sendo que:
nomeé o nome de uma função e segue as mesmas regras para nomes (identificadores) de variáveis.-
aé um argumento. -
eé uma expressão.
Usa-se uma função de comando como se usa uma função intrínseca (embutida, de biblioteca).
A função de comando é um comando não-executável e portanto deve ser declarada no início do programa, antes de qualquer comando executável.
Exemplo:
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| program exemplo | |
| implicit none | |
| real area,raio | |
| integer i | |
| area(raio) = 3.1415927*raio**2 | |
| do i = 1, 10 | |
| read(*,*) raio | |
| write(*,*) area(raio) | |
| end do | |
| stop | |
| end program exemplo |
Com isto conseguimos responder as duas perguntas:
1) Porque o programa compila e executa?
R1. Porque ele esta sintaticamente correto.
2) Descomentando o valor de X na 1a linha da subrotina o programa não funciona, por que?
R2. “A função de comando é um comando não-executável e portanto deve ser declarada no início do programa, antes de qualquer comando executável“. Portanto, se descomentarmos X na primeira linha da subrotina, ele passa a ser o primeiro comando executável, contradizendo a condição de função executável na frase acima.
Portal Física 