Il Linguaggio Fortran 90/95

1.3 Istruzioni di dichiarazione di tipo 21
REAL :: a, b, val_reale
INTEGER :: i, j, val_intero
COMPLEX :: onda
CHARACTER(LEN=20) :: nome, cognome
LOGICAL :: converge
Il Fortran mette a disposizione anche un meccanismo di dichiarazione implicita secondo
cui se una variabile, una costante o una funzione (non intrinseca), non è stata esplicitamente
dichiarata, allora il suo tipo è mutuato implicitamente dalla prima lettera del suo nome secondo
la seguente regola:
• Gli oggetti aventi un nome che comincia con le lettere che vanno da ”i” a ”n” sono
considerati di tipo INTEGER.
• Gli oggetti aventi un nome che comincia con le lettere che vanno da ”a” a ”h” e da ”o” a
”z” sono considerati di tipo REAL.
Una specificazione esplicita evita questo meccanismo implicito di dichiarazione. Un altro
modo, più sicuro ed elegante, di inibire una dichiarazione implicita degli oggetti è quella di
usare l’istruzione:
IMPLICIT NONE
Questa istruzione impone una dichiarazione esplicita di ciascuna variabile, costante con nome
o funzione definita dall’utente, usate in un programma.
L’uso dell’istruzione IMPLICIT NONE è altamente raccomandato in quanto offre non pochi
vantaggi. Innanzitutto, esso permette di catturare gran parte degli errori ortografici in fase
di compilazione, prima, cioé, che possano verificarsi degli errori difficili da scoprire durante
l’esecuzione del programma. Ed inoltre, imponendo al programmatore di includere una lista
completa di tutte le variabili nella sezione dichiarativa del programma, semplifica di molto la
manutenzione del codice. Se, infatti, un programma deve essere modificato, un controllo della
lista specificata nella sezione dichiarativa permette di evitare al programmatore di utilizzare
per errore nomi di variabili già definiti.
Si noti che l’istruzione IMPLICIT NONE deve precedere ogni istruzione di un programma
fatta eccezione per le istruzioni USE e FORMAT e, chiaramente, per le righe di commento le quali,
non essendo compilate, possono essere inserite in un punto qualsiasi del programma. Inoltre,
tale istruzione ha effetto soltanto sull’unità di programma nella quale viene applicata per cui,
in programmi che si articolano in più unità, l’istruzione IMPLICIT NONE deve essere specificata
in ognuna di esse.
1.3.3 Oggetti di tipo INTEGER
Una entità di tipo INTEGER è un oggetto atto a contenere un valore appartenente ad un subset
dei numeri interi. L’istruzione INTEGER serve a specificare che una data variabile (o funzione)
è di tipo intero. La sintassi dell’istruzione di dichiarazione di un oggetto di tipo intero è: