Il Linguaggio Fortran 90/95

5.18 Visibilità 305
• Il nome di una procedura interna si estende a tutta l’unità di programma ospite. Inoltre,
tutte le procedure interne ad una stessa unità di programma devono avere nomi differenti.
Il seguente frammento fornisce un esempio dei diversi livelli delle unità di visibilità:
MODULE scope1 ! scope 1
... ! scope 1
CONTAINS ! scope 1
SUBROUTINE scope2() ! scope 2
TYPE scope3 ! scope 3
... ! scope 3
END TYPE scope3 ! scope 3
INTERFACE ! scope 3
... ! scope 4
END INTERFACE ! scope 3
REAL :: a, b ! scope 3
10 ... ! scope 3
CONTAINS ! scope 2
FUNCTION scope5() ! scope 5
REAL :: b ! scope 5
b = a+1 ! scope 5
... ! scope 5
END FUNCTION ! scope 5
END SUBROUTINE ! scope 2
END MODULE ! scope 1
A titolo di esempio si riporta il seguente programma che illustra la caratteristica di visibilita’
di una struttura in una procedura interna:
PROGRAM convert
! Questo tipo e’ visibile "anche" dalle procedure interne
TYPE :: polar
REAL :: r, theta
END TYPE polar
!
WRITE(*,*) complex_to_polar(CMPLX(-SQRT(2.0),-SQRT(2.0)))
STOP
CONTAINS
FUNCTION complex_to_polar(z) RESULT(s)
! Queste variabili sono visibili "solo" dalla procedura interna
COMPLEX, INTENT(IN) :: z
TYPE(polar) :: s
s%r = ABS(z)
s%theta = ATAN2(AIMAG(z),REAL(z))
RETURN