Il Linguaggio Fortran 90/95

290 Unità di Programma
17.7999992 18.2000008 -4.2000003 -3.7999997
75.2099991 78.8100052 0.6216216 0.6513762
E’ importante osservare, in conclusione, che la precedenza di un operatore predefinito non
viene alterata dall’operazione di overloading, per cui, ad esempio, gli operatori ”/” e ”*” estesi
hanno un livello di precedenza superiore rispetto agli operatori ”+” e ”-”, e così via. Inoltre, è da
precisare che, allorquando un operatore intrinseco viene sottoposto ad overloading, il numero
degli argomenti deve essere consistente con la forma intrinseca (per cui, ad esempio, non sarà
possibile definire un operatore * di tipo unario).
Il modulo seguente rappresenta un interessante esempio di applicazione delle possibilità di
overloading offerte dal Fortran. Lo scopo di questo esempio è quello di definire un tipo matrix
tale che gli operatori aritmetici di somma, prodotto, divisione etc. lavorino ”a la Matlab”. In un
certo senso, quindi, si vuole ”riscrivere” il significato degli operatori aritmetici * e/in modo tale
che questi non lavorino più elemento×elemento; in particolare si vuole utilizzare l’operatore
* per eseguire prodotti righe×colonne e renderlo, pertanto, applicabile anche ad operandi di
forma diversa, e l’operatore / per eseguire procedure di inversione di matrici.
MODULE operatori
TYPE matrix
REAL :: elem
END TYPE matrix
INTERFACE OPERATOR(+)
MODULE PROCEDURE matrix_add, vector_add
END INTERFACE
INTERFACE OPERATOR(-)
MODULE PROCEDURE matrix_sub, vector_sub
END INTERFACE
INTERFACE OPERATOR(*)
MODULE PROCEDURE matrix_mul, vector_mul, matrix_vector_mul
END INTERFACE
INTERFACE OPERATOR(/)
MODULE PROCEDURE matrix_div, matrix_vector_div
END INTERFACE
CONTAINS
!
! Operatore "somma": X = Y + Z
!
FUNCTION matrix_add(Y,Z) RESULT(X)