Il Linguaggio Fortran 90/95

3.10 Operazioni di I/O con array 161
Il risultato delle precedenti istruzioni è, chiaramente:
1.000 2.000 3.000 20.000 10.000
2.000 20.000
20.000 3.000 20.000 10.000
Un ulteriore esempio è fornito dal seguente, semplice, programma:
PROGRAM prova_print
IMPLICIT NONE
INTEGER :: i, j
INTEGER, DIMENSION(3,3) :: a=RESHAPE((/1,2,3,4,5,6,7,8,9/),(/3,3/))
PRINT*, a
PRINT*
DO i=1,3
PRINT*, (a(i,j), j=1,3)
END DO
PRINT*
PRINT*, a(:2,:2)
PRINT*
DO i=1,2
PRINT*, (a(i,j), j=1,2)
END DO
END PROGRAM prova_print
che fornisce in output il seguente risultato:
1 2 3 4 5 6 7 8 9
1 4 7
2 5 8
3 6 9
1 2 4 5
1 4
2 5
Come si può notare, l’output è stato volutamente ”raddoppiato”, nel senso che il programma
stampa per due volte l’array a e per due volte la stessa sezione a(1:2,1:2), e ciò allo scopo
di fornire un ulteriore esempio di ordinamento degli elementi di array che, come si ricorderà, è
definito per colonne.
Allo stesso modo, gli elementi di un array b possono essere introdotti (secondo l’ordine degli
elementi di array) secondo la semplice istruzione:
READ(*,*) b