SintaxeFortran

Sintaxe de Fortran
25/abril/2006

Comandos Fortran
•
•
•
•
•

PROGRAM
PRINT
READ
STOP
END

Atribuição e comando
Pseudocódigo
Inteiro : x1 x1  2 + 3 ;

Fortran
Integer x1 x1 = 2 + 3

Programa Mínimo
Pseudocódigo

Fortran

INICIO
Inteiro : x1 x1  2 + 3 ;

PROGRAM minimo
Integer x1 x1 = 2 + 3

FIM

END

Ler e Escrever
Pseudocódigo
INICIO
Inteiro : a;
Ler ( a );
Escrever ( a ) ;
Escrever(‘fim de programa’)

FIM

Fortran
PROGRAM minimo
Integer a
Read*, a
Write*, a
Write *, ‘fim de programa’
END

Bloco condicional
Pseudocódigo
INICIO
Inteiro : x1 x1  2 + 3 ;
SE x1 > 5 ENTAO início escreve (‘maior que 5’); fim SENAO inicio escreve ( ‘x1=‘, x1); fim FIM

Fortran

PROGRAM meuprog
Integer x1 x1 = 2 + 3
IF ( x1 .GT. 5) print *, ‘maior que 5’
ELSE
print *,’x1=‘, x1
END IF
END

Operadores Aritméticos
Operador Pseudocódigo

Fortran

+x
-y
POT ( x,y)
RAD (x)
/
x Div y x MOD y
*
+
-

+x
-y
x**y
SQRT(x)
/
IFIX(x / y)
MOD( x, y )
*
+
-

Operadores Lógicos
Pseudocódigo Fortran Fortran90
=
.EQ.
==
<>
.NE.
/=
>
.GT.
>
>=
.GE.
>=
<
.LT.
<
<=
.LE.
<=

Expressões Lógicas
Pseudocódigo
E lógico
Ou lógico
Não
Equivalência Lógica
Não Eq. Lógica

Fortran
.AND.
.OR.
.NOT.
.EQV.
.NEQV.

Tipos de variáveis
Tipo

Domínio das variáveis

Integer

Inteiros positivos e negativos

Real

Decimais positivos e negativos

Double precision Decimais com mais casas decimais

Complex

Complexos

Logical

De valor .TRUE. Ou .FALSE.

Character

Caracter único

Character *n

Cadeia de literal, onde n é o tamanho da cadeia. Constante
• REAL pi
• PARAMETER ( pi = 3.1415927 )

Pseudocódigo  Fortran
INICIO
// declaração de variáveis real : a, b, c, delta, x1, x2;
Ler ( a, b, c ) ; SE a <> 0 ENTAO início delta ← POT ( b, 2 ) - 4 * a * c; escrever ( “delta =“, delta ); fim SENAO início escrever ( “é linear”); fim FIM SE
FIM

PROGRAM calcula_raizes
! declaração de variáveis ! real a, b, c, delta, x1, x2 read*, a read*, b read*, c IF ( a .NE. 0 ) THEN delta = b ** 2 - 4 * a * c print * , ‘ delta= ’ ,