Il Linguaggio Fortran 90/95

5.7 Interfacce esplicite ed implicite 241
Concettualmente l’interface block può essere visto come l’equivalente dei prototipi di funzione
del linguaggio C.
Ad esempio, considerata la seguente procedura:
! N.B.: Tutte le righe evidenziate con l’asterisco
! devono far parte dell’interface block
SUBROUTINE expsum(n,k,x,sum) ! (*)
USE dati_comuni, ONLY: long ! (*)
IMPLICIT NONE ! (*)
INTEGER, INTENT(IN) :: n ! (*)
REAL(long), INTENT(IN) :: k, x ! (*)
REAL(long), INTENT(OUT) :: sum ! (*)
REAL(long) :: cool_time
sum = 0.0
DO i = 1, n
sum = sum + exp(-i*k*x)
END DO
END SUBROUTINE expsum ! (*)
la sua interfaccia è resa esplicita a mezzo del seguente interface block:
INTERFACE
SUBROUTINE expsum(n,k,x,sum)
USE dati_comuni, ONLY: long
IMPLICIT NONE
INTEGER, INTENT(IN) :: n
REAL(long), INTENT(IN) :: k, x
REAL(long), INTENT(OUT) :: sum
END SUBROUTINE expsum
END INTERFACE
Chiaramente, l’interface block deve essere contenuto all’interno dell’unità di programma
chiamante e può contenere anche più di una procedura.
Di seguito si riportano in maniera organica tutti i casi in cui un interface block è obbligatorio.
Alcuni di questi casi saranno più chiari proseguendo nella lettura di queste note.
• Un interface block è richiesto per una procedura esterna o una procedura di modulo:
– che ”definisca” o ”sovrapponga” un operatore aritmetico o l’operatore di assegnazione.
– che usi un nome generico.
• Un interface block è richiesto per una procedura esterna quando:
– è invocata con argomenti che siano parole chiave e/o opzionali.
– è una funzione array o una funzione puntatore, oppure una funzione stringa di
caratteri lunghezza presunta.