Il Linguaggio Fortran 90/95

296 Unità di Programma
==========
0.3233 0.1567 0.1286
0.1811 -0.2140 0.2437
0.2361 -0.4603 -0.4364
Vettore c:
==========
0.3305 0.7259 0.3565
Matrice Prodotto A*B:
=====================
2.5441 0.2664 0.4115
1.8716 -1.7658 1.1426
1.8496 -2.9707 -2.2376
Vettore Prodotto A*c:
=====================
3.1059 5.5060 3.3004
Matrice Rapporto c/A:
=====================
0.0337 0.1004 0.0339
Inversa di A:
=============
0.1579 -0.0092 -0.0331
-0.0297 0.1663 -0.0295
-0.0085 -0.0355 0.1753
L’unico scotto che bisogna pagare in questo caso è quello di lavorare con array di tipo matrix
piuttosto che con array di tipo REAL il che rende le operazioni di assegnazione un pò più
pesanti dal punto di vista formale. Nulla vieta, tuttavia, di estendere anche il significato
dell’operatore di assegnazione al fine di poter lavorare con array di tipo matrix esattamente
come si lavorerebbe con comuni array reali. Come ciò possa essere fatto sarà chiarito nel
prosieguo.
5.17.2 Definizione di nuovi operatori
Così come è possibile estendere il significato di operatori già esistenti, in Fortran è anche
possibile definire nuovi operatori e ciò è particolarmente utile quando si usano tipi di dati
non predefiniti. Tali operatori definiti dall’utente (user defined) devono avere un punto (”.”)
all’inizio e alla fine del nome ed il loro effetto può essere definito attraverso una function avente
uno o due argomenti non opzionali con l’attributo INTENT(IN). Ad esempio, negli esempi