Il Linguaggio Fortran 90/95

5.17 Overloading 295
WRITE(*,200) (A(i,j),j=1,3)
END DO
PRINT 100, "Matrice B:"
DO i=1,3
WRITE(*,200) (B(i,j),j=1,3)
END DO
PRINT 100, "Vettore c:"
WRITE(*,*) (c(i),i=1,3)
dim=21
PRINT 100, "Matrice Prodotto A*B:"
DO i=1,3
WRITE(*,200) (AperB(i,j),j=1,3)
END DO
PRINT 100, "Vettore Prodotto A*c:"
WRITE(*,200) (Aperc(i),i=1,3)
PRINT 100, "Matrice Rapporto c/A:"
WRITE(*,200) (cdivA(i),i=1,3)
dim=13
PRINT 100, "Inversa di A:"
DO i=1,3
WRITE(*,200) (Inv_A(i,j),j=1,3)
END DO
100 FORMAT(/,1X,A,/1X,("="))
200 FORMAT(3(1X,F7.4))
END PROGRAM prova_operatori
Compilato con l’Intel Fortran Compiler (Ver. 4.5) e mandato in esecuzione su un PC con
processore Intel Pentium III, il programma precedente fornisce il seguente output:
Matrice A:
==========
6.5269 0.6481 1.3421
1.2688 6.3646 1.3090
0.5735 1.3217 6.0345
Matrice B: