Il Linguaggio Fortran 90/95

224 Unità di Programma
PROGRAM main
IMPLICIT NONE
REAL :: a, b, c, mainsum
...
mainsum = somma()
...
CONTAINS
FUNCTION somma()
IMPLICIT NONE
REAL :: somma ! N.B.: Le variabili a, b, c sono definite nel main
somma = a+b+c
END FUNCTION
END PROGRAM
Tutte le procedure interne hanno totale visibilità delle variabili definite nell’unità ospite
pertanto non è necessario ridefinirle. Si dice che le variabili dell’unità ospite sono accessibili
all’unità interna per host association. Allo stesso modo non sarebbe necessario ripetere l’istruzione
IMPLICIT NONE nelle unità interne, tuttavia, per motivi di chiarezza è sempre preferibile
farlo. Viceversa, l’unità ospite non ha visibilità alcuna sulle variabili definite localmente alla
procedura interna.
Oltre che per host association, le variabili dell’unità ospite possono essere passate alla procedura
interna a mezzo della comune associazione per argomento. Non c’è differenza sostanziale
tra i due meccanismi, che possono anche essere combinati, come nel seguente esempio:
PROGRAM main
IMPLICIT NONE
REAL :: x, y, z1, z2
...
CALL sub(z1,z2)
...
CONTAINS
SUBROUTINE sub(z1,z2)
IMPLICIT NONE
REAL, INTENT(OUT) :: z1, z2
z1 = 2*x-y
z2 = x**2
END SUBROUTINE
END PROGRAM main
Come ulteriore esempio, si guardi il programma seguente il quale invoca due funzioni interne,
entrambe facenti uso delle stesse variabili a, b e c definite nel main, con la differenza che alla
prima procedura le variabili vengono passate attraverso una lista di parametri attuali, alla
seconda per associazione di host:
PROGRAM HeronFormula