Il Linguaggio Fortran 90/95

5.17 Overloading 301
definita. Ad esempio, si supponga che la variabileax debba assumerne il valore del più grande fra
le componenti x ed y di px. Questa assegnazione deve essere definita attraverso una subroutine
con due argomenti non opzionali, il primo avente l’attributo INTENT(OUT) o INTENT(INOUT), il
secondo l’attributo INTENT(IN), ed inoltre deve essere creato un interface assignment block.
L’interface block necessario per l’estensione dell’operatore di assegnazione ha la seguente
forma:
INTERFACE ASSIGNMENT (=)
corpo_dell’interfaccia
END INTERFACE
La definizione del nuovo operatore di assegnazione può essere efficacemente inserita in un
modulo, come di seguito illustrato:
MODULE overloading_assegnazione
IMPLICIT NONE
TYPE point
REAL :: x, y
END TYPE point
...
INTERFACE ASSIGNMENT(=)
MODULE PROCEDURE assignnew
END INTERFACE
CONTAINS
SUBROUTINE assignnew(ax,px)
REAL, INTENT(OUT) :: ax
TYPE(point), INTENT(IN) :: px
ax = MAX(px%x,px%y)
END SUBROUTINE assignnew
...
END MODULE overloading_assegnazione
Un programma che invochi questo modulo attraverso l’associazione di USE può eseguire, così
come richiesto, l’assegnazione (ora definita) tra una variabile di tipo punto e una variabile di
tipo reale:
USE overloading_assegnazione
REAL :: ax
TYPE (point) :: px
...
ax = px
Ritornando per un attimo al modulo operatori visto a proposito dell’overloading degli
operatori ed al tipo matrix in esso definito, un altro esempio di overloading dell’assegnazione
potrebbe avere lo scopo di consentire di assegnare un array di tipo RAEL ad un array di tipo