Il Linguaggio Fortran 90/95

240 Unità di Programma
Nel seguente esempio il programma chiamante invoca una procedura definita all’interno di
un modulo tentando di passarle un valore reale anziché uno intero: il compilatore risponderà
certamente con un messaggio di errore:
MODULE my_sub
CONTAINS
SUBROUTINE bad_arg(k)
IMPLICIT NONE
INTEGER, INTENT(IN) :: k
WRITE(*,*) "k = ", k
END SUBROUTINE
END MODULE
PROGRAM bad_call
USE my_sub
IMPLICIT NONE
REAL :: x=1.
CALL bad_arg(x) ! illegale: il compilatore dara’ un messaggio di errore
END PROGRAM
Nel caso in cui la subroutine bad_arg fosse stata una procedura esterna il compilatore non
avrebbe dato alcun messaggio di errore ma il programma si sarebbe arrestato durante il run.
5.7.1 Interface Block
Anche per le procedure esterne, tuttavia, il Fortran 90 mette a disposizione uno strumento,
l’interface block, a mezzo del quale è possibile rendere esplicita l’interfaccia. La forma generale
di un interface block è:
INTERFACE
corpo dell’interfaccia
END INTERFACE
Si noti che, contrariamente alle istruzioni END delle altre unità di programma, nel Fortran 90
le istruzioni END INTERFACE non possono avere un nome. Questa limitazione è stata rimossa
dal Fortran 95 per cui, con il nuovo standard, la sintassi dell’interface block è diventata:
INTERFACE [nome_interfaccia]
corpo dell’interfaccia
END INTERFACE [nome_interfaccia]
Il corpo dell’interfaccia comprende la istruzione di FUNCTION (o SUBROUTINE), le istruzioni
di dichiarazione di tipo dei parametri formali, e le istruzioni END FUNCTION (o END
SUBROUTINE). In altre parole, esso è l’esatta copia del sottoprogramma privato della dichiarazione
delle variabili locali, della sua sezione esecutiva e delle eventuali procedure interne.