Il Linguaggio Fortran 90/95

228 Unità di Programma
5.5 Moduli
Un modulo è un’unità di programma compilato separatamente che contiene le definizioni e i
valori iniziali dei dati che devono essere condivisi fra varie unità di programma. Se il nome del
modulo è incluso, all’interno di un’unità di programma, in un’istruzione USE, i dati dichiarati
nel modulo potranno essere liberamente usati all’interno di quella unità di programma. In altre
parole, ogni unità di programma che usa un modulo avrà accesso agli stessi dati.
Un modulo inizia con un’istruzione MODULE, che gli assegna un nome, e termina con l’istruzione
END MODULE che, facoltativamente, può essere seguita dal nome del modulo. Fra queste
due istruzioni vanno inserite le dichiarazioni dei dati da condividere.
Il formato di un generico modulo è il seguente:
MODULE nome_modulo
[istruzioni di definizione di tipo]
[istruzioni di dichiarazione di tipo]
[CONTAINS
procedure interne]
END [MODULE [nome_modulo]]
Un esempio di modulo è il seguente:
MODULE mio_modulo
IMPLICIT NONE
SAVE
REAL, PARAMETER :: pi=3.14
INTEGER :: m=5, n=5
REAL, DIMENSION(n) :: vettore
END MODULE mio_modulo
L’uso dell’istruzione SAVE assicura che tutti i dati dichiarati nel modulo restino inalterati fra
due chiamate di procedura differenti: questa istruzione dovrebbe essere inclusa in qualsiasi
modulo che dichiara dati da condividere. Per utilizzare i valori di un modulo, un’unità di
programma deve dichiarare il nome del modulo in un’istruzione USE. La forma dell’istruzione
USE è la seguente:
USE nome_modulo
In un’unità di programma le istruzioni USE devono essere poste prima di tutte le altre (fatta
eccezione, ovviamente, per le istruzioni PROGRAM, SUBROUTINE, FUNCTION e dei commenti i quali
ultimi possono essere inseriti ovunque). Il processo per accedere alle informazioni in un modulo
con un’istruzione USE è chiamato associazione di USE.
Le righe seguenti mostrano un esempio di utilizzo del modulo mio_modulo allo scopo di
creare una condivisione di dati tra un programma principale ed una subroutine:
PROGRAM test_mio_modulo
USE mio_modulo