Il Linguaggio Fortran 90/95

5.17 Overloading 297
proposti al paragrafo precedente si sarebbero potuti definire un operatore ”.PLUS.” ed un
operatore ”.DIVIDE.”, invece di estendere il significato degli operatori ”+” e ”/”.
Il seguente esempio mostra la definizione di un operatore binario .DIST. che calcola la
distanza tra due ”punti” essendo questi ultimi variabili di un tipo di dati derivato. L’operatore
in questione viene definito all’interno di un modulo sicché potrà essere usato da unità di
programma diverse.
MODULE distance_mod
...
TYPE point
REAL :: x, y ! ascissa e ordinata di point
END TYPE point
...
INTERFACE OPERATOR (.DIST.)
MODULE PROCEDURE calcdist
END INTERFACE
...
CONTAINS
...
FUNCTION calcdist (px,py)
REAL :: calcdist
TYPE (point), INTENT(IN) :: px, py
calcdist = SQRT((px%x-py%x)**2 + (px%y-py%y)**2)
END FUNCTION calcdist
...
END MODULE distance_mod
Un programma chiamante includerà, ad esempio, le istruzioni:
USE distance_mod
TYPE(point) :: px, py
...
distance = px.DIST.py
Si noti che l’operatore .DIST. appena definito è applicabile esclusivamente a variabili di tipo
punto; sarebbe, pertanto, illegale un qualsiasi tentativo di applicare .DIST. a variabili di tipo
diverso.
Un interessante esempio di operatore unario, invece, può essere il seguente. L’area di un
triangolo note le coordinate dei vertici P1(x1, y1), P2(x2, y2) e P3(x3, y3) è, come noto, valutabile
secondo la relazione:
Area = 1
|det A|
2
essendo A la matrice delle coordinate dei vertici così assemblata:
⎡
A = ⎣
x1 y1 1
x2 y2 1
x3 y3 1
⎤
⎦