Il Linguaggio Fortran 90/95

234 Unità di Programma
definite in un modulo facendo sì che le unità di programma che siano sede dell’associazione di
USE vedano soltanto le entità strettamente necessarie. Restringere l’accesso al contenuto di un
modulo porta, di norma, a scrivere programmi più facili da comprendere e mantenere. Questa
operazione (detta di data hiding) può effettuarsi attraverso un uso, spesso combinato, degli
attributi (o delle istruzioni) PUBLIC e PRIVATE. La sintassi degli attributi PUBLIC e PRIVATE è:
tipo, PRIVATE :: lista_delle_variabili_”private”
tipo, PUBLIC :: lista_delle_variabili_”pubbliche”
mentre la forma delle corrispondenti istruzioni PUBLIC e PRIVATE è:
tipo :: lista_delle_variabili
PRIVATE [::] lista_delle_variabili_”private”
PUBLIC [::] lista_delle_variabili_”pubbliche”
Se ad una entità del modulo è applicato l’attributo (o l’istruzione) PUBLIC, allora detta
entità sarà disponibile all’esterno del modulo a ciascuna unità di programma che usi il modulo.
Viceversa, se ad una entità del modulo è applicato l’attributo (o l’istruzione) PUBLIC, allora
detta entità non sarà visibile all’esterno del modulo ma sarà disponibile esclusivamente alle
procedure interne al modulo. Si noti che tutte le entità di un modulo sono da ritenersi pubbliche
per default sicché, in mancanza di una specifica di PRIVATE, tutte le variabili e le procedure di
un modulo saranno accessibili esternamente. Le seguenti righe di programma rappresentano
esempi di uso corretto degli attributi e delle istruzioni PUBLIC e PRIVATE:
INTEGER, PRIVATE :: m, n
REAL, PUBLIC :: x, y
INTEGER :: i, j
PRIVATE i, j
Se un modulo contiene una istruzionePRIVATE senza specificare una lista di variabili, allora tutte
le variabili e le procedure definite nel modulo saranno da considerarsi locali al modulo. Ogni
variabile o procedura che, invece, si vuole rendere accessibile all’esterno dovrà essere specificata
appositamente con l’attributo o con un’istruzione PUBLIC. A chiarimento di quanto detto, si
consideri il seguente esempio:
MODULE dati
IMPLICIT NONE
PRIVATE
PUBLIC :: a, b, c
REAL :: a, b, c
...
END MODULE dati
Particolare attenzione merita l’uso delle dichiarazioni PUBLIC e PRIVATE con oggetti di tipo
derivato, come schematizzato di seguito.