Il Linguaggio Fortran 90/95

248 Unità di Programma
In questo esempio, nel caso in cui l’argomento opzionale c sia presente, la funzione PRESENT
fornirà valore .TRUE. e potrà essere calcolato il reciproco di c. In caso contrario, l’operazione
di assegnazione permetterà di evitare una probabile divisione per zero che provocherebbe
l’inevitabile interruzione del programma.
Oltre all’attributo OPTIONAL, è possibile fare anche fare uso dell’istruzione OPTIONAL, la cui
sintassi è:
tipo :: parametri_formali
OPTIONAL [::] parametri_formali_”opzionali”
(si noti l’uso facoltativo dei due punti). Un esempio di utilizzo dell’istruzione OPTIONAL è fornito
dalla seguente subroutine:
SUBROUTINE somma(a,b,c,d,sum)
REAL, INTENT(IN) :: a, b, c, d
REAL, INTENT(OUT) :: sum
OPTIONAL :: c
IF (PRESENT(c)) THEN
sum = a+b+c+d
ELSE
sum = a+b+d
END IF
END SUBROUTINE
Nel caso in cui il parametro opzionale sia uno degli argomenti di una procedura esterna è
necessario che l’interfaccia sia esplicita nel’unità chiamante. Così, ad esempio, data la funzione
esterna:
FUNCTION series(x,lower,upper)
IMPLICIT NONE
INTEGER :: i,istart,upper
REAL :: series,x
INTEGER, OPTIONAL :: lower
IF (PRESENT(lower)) THEN
istart = lower
ELSE
istart = 1
END IF
series = 0.0
DO i = istart, upper
series = series + x**i
END DO
END FUNCTION series
che valuta la sommatoria m
i=n xi , l’unità chiamante dovrà, evidentemente, contenere il seguente
interface block: