!
! Questão 5 da Lista 08 de exercícios para sala de aula - Capítulo F90/*
!
PROGRAM LEITURA_ARQUIVO_DE_ALUNOS
   IMPLICIT NONE
   INTEGER :: MATRIC
   CHARACTER (LEN = 20) :: NOME
   REAL :: NOTA1, NOTA2, NOTA3, MEDIA
   
   WRITE(*,3) "MATRICULA","NOME", "NOTA-1", "NOTA-2", "NOTA-3", "MEDIA"
     3 FORMAT(T2,A10, A20, TR10, A6, TR2, A6, TR2, A6, TR2, A6)
   OPEN (10, FILE='ALUNOS.DAT')
     
 ! LEITURA DO ARQUIVO GERADO

   READ (10, 1) MATRIC, NOME, NOTA1, NOTA2, NOTA3, MEDIA
   1 FORMAT(I8, A20, 4F4.1)     
   DO WHILE (NOME .NE. "FIM")
    WRITE(*, 2) MATRIC, NOME, NOTA1, NOTA2, NOTA3, MEDIA
    2 FORMAT(I8, TR10, A20, 4F8.1)
    READ (10, 1) MATRIC, NOME, NOTA1, NOTA2, NOTA3, MEDIA
   END DO
   ENDFILE 10
   STOP 
 END PROGRAM LEITURA_ARQUIVO_DE_ALUNOS