Il Linguaggio Fortran 90/95

12 Tipi ed espressioni
Quale che sia la sua funzione, ciascuna istruzione consiste in una singola riga (o record) di
programma, opzionalmente seguita da una o più righe di continuazione.
Su una singola riga possono apparire anche istruzioni multiple separate da un simbolo di
punto e virgola ”;”, come mostrano i seguenti esempi:
INTEGER :: i, j, k; LOGICAL :: vero=.TRUE.
i = 0; j = 1; k = k+1
Questa possibilità può aiutare a rendere un blocco di istruzioni più compatto ma può ledere in
leggibilità se le istruzioni da elencare non sono molto ”brevi”.
Come anticipato poc’anzi, un’istruzione può anche essere ”spezzata” e continuata sulla riga
successiva facendo terminare la riga corrente (e, facoltativamente, facendo iniziare la riga
successiva) con il carattere di ”ampersand” (&), come nel seguente esempio:
REAL(KIND=4), ALLOCATABLE(:,:), SAVE :: matrice1, matrice2, &
appoggio, risultato_finale
Tranne che negli oggetti di tipo stringa, in ciascun punto di un programma la presenza di un
punto esclamativo indica che la restante parte della linea è da intendersi come un commento
e, pertanto, orientata alla lettura del programmatore e non della macchina. I commenti permettono
al programmatore di spiegare o documentare il funzionamento di un programma. Essi
possono apparire in ciascun punto di un programma e sono preceduti dal simbolo di punto
esclamativo ”!”. Ne consegue la possibilità di inserire un commento nella stessa riga di una
istruzione, a valle della stessa.
E’ sempre buona norma inserire dei commenti in un programma allo scopo di aumentare la
leggibilità di un costrutto o per spiegare la funzione di un blocco di istruzioni o di un’intera
unità di programma. D’altra parte i commenti vengono semplicemente ignorati dal compilatore
per cui anche un loro uso ”abbondante” non condizionerebbe in alcun modo le caratteristiche
del file eseguibile. Il seguente frammento di programma mostra l’utilizzo dei commenti:
PROGRAM abc
!
! Lo scopo del programma è quello di ...
!
INTEGER :: i, j ! indici di cicli a conteggio
REAL :: x ! soluzione dell’equazione
...
x = LOG(3.) ! Attenzione: logaritmo naturale
...
END PROGRAM abc
L’unica eccezione a questa regola è quando il punto esclamativo è presente in una stringa di
caratteri:
PRINT*, "Il procedimento non converge!!! Diminuire la tolleranza!"