PROGRAM prova
  IMPLICIT NONE         ! non richiesto se non ci sono variabili
  INTEGER :: x, y, z, w

  OPEN(unit=0, file="prova.txt")

        ! i8 significa: i prossimi otto caratteri vengono letti come un intero
        ! le parentesi delimitano una riga, quindi (i8,i8) (i8) significa:
        ! leggi i primi due interi da una riga, poi un intero dalla succesiva
  READ (unit=0, fmt="(i8,i8) (i8)") x, y, w

        ! legge da nuova riga
  READ (unit=0, fmt="(i8)") z

        ! per esempio, se il file prova.txt e':
        ! 1     6       9
        ! 3
        ! 41
        ! allora x=1 y=6 (il 9 viene ignorato) w=3 z=41

        ! iterazione di formato: 2i8 significa: due volte i8
  WRITE (*, fmt="(2i8) (i8)") x, y, w
  WRITE (*, fmt="(i8)") z

  STOP

END PROGRAM prova