6.1. Introdução
[D] Os comandos de declaração de tipo são: IMPLICIT,
INTEGER, REAL, DOUBLE PRECISION, COMPLEX, LOGICAL e CHARACTER.
6.2. Comando IMPLICIT
[CF] A forma geral do comando é:
IMPLICIT tipo (a[,a]...) [,tipo (a[,a])]
[C] O comando IMPLICIT permite que se defina o tipo de todas as variáveis
que começam por uma determinada letra.
[E] Exemplos:
1) implicit real(i)
- faz com que todas as variáveis que comecem pela letra i sejam
reais.
2) implicit real(i,j,k,l)
- faz com que as variáveis com iniciais de i a l sejam reais.
3) implicit real(i-l)
- idem.
4) implicit real(i-l),integer(a,b)
- faz a mesma coisa que o comando anterior mais a definição
que as variáveis com iniciais a ou b sejam inteiras.
5) implicit none
- faz com que todas as variáveis do programa tenham que ter
o seu tipo obrigatoriamente pré-definidas.
6.3. Comandos de Especificação Explícita
6.3.1. Comando Integer
[D] O comando INTEGER é usado para declarar variáveis
inteiras.
[CF] A forma geral do comando INTEGER é:
INTEGER nome [,nome]...
ou
INTEGER nomevi[(d[,d]...)]
sendo que nomevi é o nome de uma variável indexada inteira.
[E] Exemplos:
integer soma,cont
integer a(0:10,0:8)
6.3.2. Comando REAL
[D] O comando REAL é usado para declarar variáveis reais.
[CF] A forma geral do comando REAL é:
REAL nome[,nome]...
ou
REAL nomevi[(d[,d]...)]
sendo que nomevi é o nome de uma variável indexada real.
[E] Exemplos:
real a,b,c
real d(1:10,1:8)
6.3.3. Comando DOUBLE PRECISION
[D] O comando DOUBLE PRECISION é usado para duplicar o número
de algarismos significativos de uma variável ou de um conjunto.
[CF] A forma geral do comando DOUBLE PRECISION é:
DOUBLE PRECISION nome[,nome]...
ou
DOUBLE PRECISION nomevi[(d[,d]...)]
sendo que nomevi é o nome de uma variável indexada de
dupla precisão.
6.3.4. Comando COMPLEX
[D] O comando COMPLEX é usado para declarar variáveis
do tipo complexo.
6.3.5. Comando LOGICAL
[D] O comando LOGICAL é usado para declarar variáveis
do tipo lógico.
6.3.6. Comando CHARACTER
[D] O comando CHARACTER é usado para declarar variáveis
do tipo caractere.
[CF] A forma geral do comando CHARACTER é:
CHARACTER*comp nome[,nome]...
ou
CHARACTER nome*comp[,nome*comp]...
sendo que comp é o comprimento da(s) variável(eis) caractere.
[E] Exemplos:
character*12 a,b,c
character d*5,e*4,f*10