Skip to content

Instantly share code, notes, and snippets.

@zrhans

zrhans/arquivo.f90

Created October 31, 2017 01:36
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zrhans/10135101ae531019e0402d41f7cb9849 to your computer and use it in GitHub Desktop.
Save zrhans/10135101ae531019e0402d41f7cb9849 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
arquivo.f90
program arquivos
integer :: a
open(unit=10, file='dados.txt', status="unknown")
do a = 1, 10
write(10,99) a , a, a * 0.16
end do
99 format(i2,1x,i3.3, 1x, f10.7)
close(10)
end program arquivos
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment