Il Linguaggio Fortran 90/95

246 Unità di Programma
I nomi dei parametri formali agiscono come delle parole chiave nelle istruzioni di chiamata di
procedura. Pertanto, l’ordine degli argomenti può essere alterato purché tutte le corrispondenze
per nome seguano quelle (ordinate) per posizione. Sono ad esempio, non valide le seguenti
istruzioni di chiamata:
CALL sub(a=1,b=2,3) ! illegale: c non è riferito ’’per nome’’
CALL sub(1,c=x,2) ! illegale: c non è riportato per ultimo
Si noti che quando si usano argomenti in qualità di parole chiave l’interfaccia deve sempre
essere esplicita nell’unità di programma chiamante. Inoltre, tutti gli argomenti con attributo
INTENT(INOUT) che vengano riferiti per nome devono essere assegnati ad una variabile e non
ad un valore. Nell’esempio precedente, infatti, la seguente istruzione di chiamata sarebbe stata
illegale:
CALL sub(a=1,b=2,c=3) ! illegale: c assegnata a un valore
mentre è perfettamente lecito il seguente frammento:
INTEGER :: x=3
...
CALL sub(a=1,b=2,c=x)
5.8.3 Argomenti opzionali
Talvolta, durante l’esecuzione di una procedura, non tutti gli argomenti sono usati. In questi
casi è preferibile definire questi parametri formali con l’attributo OPTIONAL:
tipo, [lista_di_attributi,] OPTIONAL :: parametri_formali_”opzionali”
come nel seguente esempio:
SUBROUTINE sub(a,b,c,d)
INTEGER, INTENT(IN) :: a, b
INTEGER, INTENT(IN), OPTIONAL :: c, d
...
END SUBROUTINE sub
In questo esempio i parametri a e b sono sempre richiesti quando la procedura sub viene
invocata, mentre i parametri c e d sono opzionali per cui le seguenti chiamate di procedura
sono tutte sintatticamente corrette:
CALL sub(a,b)
CALL sub(a,b,c)
CALL sub(a,b,c,d)