Il Linguaggio Fortran 90/95

5.8 Argomenti delle Procedure 247
Per quanto concerne la lista degli attributi, è bene osservare che l’attributo OPTIONAL è
compatibile soltanto con gli attributi DIMENSION, EXTERNAL, INTENT, POINTER, e TARGET. Si
noti, inoltre, che, a meno di non usare parametri formali come parole chiave, l’ordine con cui
appaiono gli argomenti è essenziale sicché, con riferimento all’esempio precedente, è impossibile
chiamare la subroutine sub con l’argomento d senza l’argomento c:
CALL sub(a,b,d) ! illegale
In una istruzione di chiamata di procedura, all’interno di un lista di parametri attuali, gli
argomenti opzionali devono apparire dietro a tutti gli argomenti associati per posizione. Inoltre
la procedura invocata richiede una interfaccia esplicita nell’unità di programma chiamante.
E’ possibile ”interrogare” una procedura per sapere se un dato parametro opzionale è presente
o meno a mezzo della funzione intrinseca PRESENT, come illustrato nell’esempio seguente:
PROGRAM appello
INTEGER :: b
CALL who(1,2) ! stampa "a presente" e "b presente"
CALL who(1) ! stampa "a presente"
CALL who(b=2) ! stampa "b presente"
CALL who() ! non stampa niente
CONTAINS
SUBROUTINE who(a,b)
INTEGER, OPTIONAL :: a, b
IF(PRESENT(a)) PRINT*, "a presente"
IF(PRESENT(b)) PRINT*, "b presente"
END SUBROUTINE who
END PROGRAM appello
La funzione intrinseca PRESENT, dunque, riceve in ingresso l’identificatore di un argomento
formale (e, dunque, si applica ad una variabile di tipo qualsiasi) e restituisce in uscita il valore
logico .TRUE. se detto parametro fa parte della lista degli argomenti effettivi, il valore logico
.FALSE. in caso contrario.
Si osservi, ora, la seguente subroutine:
SUBROUTINE sub(a,b,c)
REAL, INTENT(IN) :: a, b
REAL, INTENT(IN), OPTIONAL :: c
REAL :: reciproco_c
...
IF(PRESENT(c)) THEN
reciproco_c = 1./c
ELSE
reciproco_c = 0.
END IF
...
END SUBROUTINE sub