Il Linguaggio Fortran 90/95

1.6 Introduzione alle operazioni di input/output 49
Il risultato e’: 11
Analogamente, il seguente frammento di programma:
REAL :: pi=3.14
INTEGER :: m=13
...
WRITE(*,*) "Pi greco: ", pi, "Indice m: ", m
produce il seguente output:
Pi greco: 3.140000 Indice m: 13
mentre se l’istruzione di uscita fosse formattata al modo seguente:
WRITE(*,100) "Pi greco: ", pi, "Indice m: ", m
100 FORMAT(1X,A10,F4.2,/,1X,A10,I2)
il risultato sarebbe:
Pi greco: 3.1
Indice m: 13
In questo caso, infatti, l’istruzione FORMAT ”edita” il risultato in modo tale che il primo carattere
prodotto sia uno spazio bianco, seguito da una stringa di dieci caratteri (A10), seguita a sua
volta da un valore reale rappresentato con quattro caratteri (incluso il carattere per il punto
decimale) di cui due destinati alle cifre decimali (F4.2); segue quindi un avanzamento di record
(/) e, di nuovo, su questo nuovo record il primo carattere è uno spazio bianco (1X) seguito da
una stringa di dieci caratteri (A10) seguita, infine, da un valore intero di due cifre (I2).
Come detto, però, alle istruzioni di lettura e scrittura formattate sarà dedicato ampio spazio
nel capitolo 4.
Le operazioni di lettura/scrittura per dati di tipo COMPLEX sono lievemente più complesse
dal momento che un dato complesso è, in realtà, una coppia di valori di tipo REAL. Infatti, la
lettura o la scrittura di un valore di tipo complesso implicano la lettura o la scrittura di due dati
di tipo reale, corrispondenti alle parti reale ed immaginaria del dato complesso (comprensive
di parentesi e di virgola come separatore). Il seguente esempio mostra, allo scopo, un semplice
esempio di operazioni di lettura e scrittura di dati complessi:
PROGRAM aritmetica_complessa
IMPLICIT NONE
COMPLEX :: a, b, c
! Lettura di due numeri complessi
READ(*,’(2F10.3)’), a,b
c = a*b
! Stampa il loro prodotto
WRITE(*,*) c
END PROGRAM aritmetica_complessa