Il Linguaggio Fortran 90/95

300 Unità di Programma
C:\MYPROG>prova_triangolo
Coordinate del primo vertice:
ascissa: 5
ordinata: 1
Coordinate del secondo vertice:
ascissa: 3
ordinata: 3
Coordinate del terzo vertice:
ascissa: 0
ordinata: -2
L’area del triangolo e’: 8.000
Naturalmente, sfruttando la definizione dei tipi di dati punto e triangolo e dell’operatore
binario .DIST. è possibile definire in maniera assolutamente immediata anche un nuovo operatore
unario .PERIMETRO. che applicato ad un oggetto triangolo restituisca la somma delle
distanze fra i vertici.
E’ da precisare che anche per gli operatori definiti dall’utente esistono regole di precedenza.
A tal proposito, è bene tenere a mente che gli operatori unari definiti dall’utente hanno la
precedenza più alta fra tutti gli operatori, mentre gli operatori binari definiti dall’utente hanno
la precedenza più bassa. Un operatore definito dall’utente che abbia lo stesso nome di un
operatore intrinseco conserverà la precedenza di quest’ultimo. A titolo di esempio, se .OPUN. e
.OPBIN. sono due operatori non intrinseci, di cui il primo unario ed il secondo binario, allora
la seguente espressione:
.OPUN.e**j/a.OPBIN.b+c.AND.d
risulta perfettamente equivalente a:
(((.OPUN.e)**j)/a).OPBIN.((b+c).AND.d)
5.17.3 Overloading dell’operatore di assegnazione
Quando si usano tipi di dati derivati può essere necessario estendere il significato dell’operatore
di assegnazione (”=”). Anche in questo caso è necessario un interface block, questa volta, però,
relativo ad una subroutine.
Ad esempio, si supponga di lavorare con due variabili, ax e px, dichiarate al modo seguente:
REAL :: ax
TYPE (punto) :: px
e che nel programma sia necessaria la seguente assegnazione:
ax = px
cioè sia necessario assegnare un valore di tipo reale ad una variabile di tipo punto. Tale
operazione è, normalmente, non valida a meno di non essere, in qualche modo, esplicitamente