Comandos Basicos fortran

Comandos Básicos

1

Principais Comandos Básicos em FORTRAN
$DEBUG
Metacomando. Auxilia na identificação de erros durante a etapa de implementação do programa. Colocado na primeira linha e coluna de um programa. Após a finalização do programa, esse comando poderá ser retirado.

PROGRAM um nome a ele.
Formato geral:

Identifica uma unidade de programa como o programa principal e dá
PROGRAM [nome do programa] opcional

Exemplo:

PROGRAM Teste
PRINT *, ‘Este e um programa teste’
STOP
END PROGRAM Teste

STOP
Formato geral:

Termina a execução de um programa
STOP [mensagem] opcional

Exemplo:

STOP ‘fim do programa teste’
END PROGRAM Teste

END
Termina a execução do programa principal, ou retorna o controle de um subprograma para o programa principal.
Formato geral:
END (PROGRAM [nome do programa]) opcional
Exemplo:

PROGRAM Teste
WRITE (*,*) ‘Este e um programa teste’
STOP
END PROGRAM Teste
SUBROUTINE EXP (X, Y, Z)
DIMENSION X(10), Y(10), Z(10)
END SUBROUTINE EXP

Comandos Básicos

2

IMPLICIT
Define os tipos padrões para as variáveis declaradas pelo usuário, denominadas constantes e funções
Formato geral:
IMPLICIT {tipo(lista)}
Exemplo:

IMPLICIT REAL*8 (A-B)
IMPLICIT INTEGER (C,D)
IMPLICIT INTEGER*4 (J-N)

Caso o usuário não declare os tipo das variáveis, o compilador do FORTRAN assume o seguinte: IMPLICIT INTEGER (I-N), REAL(A-H,O-Z)

INTEGER, INTEGER*4 respectivamente) REAL, REAL*8 respectivamente) LOGICAL
COMPLEX
CHARACTER*[número]
Formato geral:

Define as variáveis como inteiras (precisão simples e dupla,
Define as variáveis como reais (precisão simples e dupla,

INTEGER
REAL

* Pode ser utilizado associado ao comando IMPLICIT
IMPLICIT REAL*8, IMPLICIT INTEGER, ...)

(IMPLICIT REAL,

READ
Transfere dados para um programa a partir de uma unidade especificada.
Formato geral:
READ (i,n) i – especificação da unidade (* corresponde ao teclado) n – linha de comando