Il Linguaggio Fortran 90/95

5.18 Visibilità 303
5.17.4 Overloading delle procedure intrinseche
Quando viene introdotto un nuovo tipo di dati può essere utile estendere l’applicabilità di
alcune procedure intrinseche a variabili del nuovo tipo. In questo caso si definisce una generic
interface con lo stesso nome della procedura intrinseca già esistente. Una procedura intrinseca
potrà essere così ”estesa” e sarà questa procedura ad essere richiamata (col nome usuale) quando
la variabile argomento sia del nuovo tipo di dati.
Ad esempio, si supponga di voler estendere il significato della funzione intrinseca LEN_TRIM
affinché fornisca il numero di lettere che compongono il nome diproprietario quando applicata
ad un oggetto di tipo casa. Il seguente modulo illustra come ciò possa essere fatto:
MODULE mio_modulo
IMPLICIT NONE
TYPE casa
CHARACTER(LEN=20) :: proprietario
INTEGER :: residenti
REAL :: valore
END TYPE casa
INTERFACE LEN_trim
MODULE PROCEDURE lettere
END INTERFACE
CONTAINS
FUNCTION lettere(c)
TYPE(casa), INTENT(IN) :: c
INTEGER :: lettere
lettere = LEN_TRIM(c%proprietario)
END FUNCTION lettere
END MODULE mio_modulo
5.18 Visibilità
La visibilità (scope) di una entità con nome (variabile o procedura) o di un’etichetta è, per
definizione, quella parte di un programma all’interno della quale quel nome o quell’etichetta
sono unici. In altre parole, la visibilità di un’entità con nome o di un etichetta è l’insieme di
tutte le unità di visibilità ”non sovrapposte” in cui quel nome o quella etichetta possono essere
usati senza ambiguità.
Una unità di visibilità è uno qualsiasi dei seguenti ambienti:
• Una definizione di un tipo di dati derivato.
• Un interface block, esclusi ogni definizione di tipo di dati derivati o interface block al suo
interno.
• Un’unità di programma o procedura interna, esclusi ogni definizione di tipo di dati
derivati, procedure o interface block al suo interno.