Il Linguaggio Fortran 90/95

5.16 Procedure generiche 285
Tutte le procedure specificate nel blocco interface devono poter essere invocate in maniera
non ambigua e di conseguenza ogni generic interface block può contenere solo funzioni o solo
subroutine. A titolo di esempio, si supponga di volere scrivere una subroutine che permetta
di ”invertire” due numeri che possono essere, a seconda dei casi, entrambi reali o entrambi
complessi oppure entrambi interi. Ciò può essere fatto scrivendo le tre subroutine seguenti:
SUBROUTINE swapint
IMPLICIT NONE
INTEGER, INTENT(INOUT) :: a, b
INTEGER :: temp
temp = a
a = b
b = temp
END SUBROUTINE swapint
SUBROUTINE swapreal
IMPLICIT NONE
REAL, INTENT(INOUT) :: a, b
REAL :: temp
temp = a
a = b
b = temp
END SUBROUTINE swapreal
SUBROUTINE swapcomplex
IMPLICIT NONE
COMPLEX, INTENT(INOUT) :: a, b
COMPLEX :: temp
temp = a
a = b
b = temp
END SUBROUTINE swapcomplex
Dato, allora, il seguente interface block:
INTERFACE swap
SUBROUTINE swapint(a,b)
INTEGER, INTENT(INOUT) :: a, b
END SUBROUTINE swapint
SUBROUTINE swapreal(a,b)
REAL, INTENT(INOUT) :: a, b
END SUBROUTINE swapreal