Il Linguaggio Fortran 90/95

226 Unità di Programma
REAL FUNCTION Area()
IMPLICIT NONE
REAL :: s
s = (a+b+c)/2.0
Area = SQRT(s*(s-a)*(s-b)*(s-c))
END FUNCTION Area
END PROGRAM HeronFormula
Se una procedura interna dichiara un oggetto con lo stesso nome di una variabile già dichiarata
nell’unità di programma ospite, questa nuova variabile si ”sovrappone” a quella dichiarata
nell’unità esterna per tutta la durata dell’esecuzione della procedura. Ad esempio, nel seguente
programma le due variabili x dichiarate, rispettivamente, nel main e nella procedura interna,
sono totalmente diverse ed indipendenti l’una dall’altra.
PROGRAM prog
IMPLICIT NONE
REAL :: x, y, z
...
CONTAINS
REAL FUNCTION func()
IMPLICIT NONE
REAL :: a, b, x
...
END FUNCTION func
END PROGRAM prog
5.4 Variabili locali
Vengono definite come locali tutte le variabili dichiarate all’interno di una procedura e che non
facciano parte della lista di argomenti formali. Ad esempio, nella seguente procedura:
SUBROUTINE mia_sub(m,n)
IMPLICIT NONE
INTEGER, INTENT(IN) :: m, n
REAL :: a
REAL, DIMENSION(m,n) :: x
...
END SUBROUTINE mia_sub
le variabili a ed x sono oggetti locali. Essi si caratterizzano per il fatto che:
• Sono creati ogni qualvolta la procedura è invocata.
• Sono distrutti quando termina l’esecuzione della procedura.