program PROGRAMA17B

use RESULTADOS

implicit none

! -----------------------------------------------

  call le_dados

  call opera_vetores

  call escreve

! -----------------------------------------------

end	program PROGRAMA17B
