Skip to content

Instantly share code, notes, and snippets.

@zrhans

zrhans/funcao_comando.f90

Created November 13, 2017 01:02
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/f94e56249fb0b829be3b15cee1f43de3 to your computer and use it in GitHub Desktop.
Save zrhans/f94e56249fb0b829be3b15cee1f43de3 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
funcao_comando.f90
program exemplo
implicit none
real area,raio
integer i
area(raio) = 3.1415927*raio**2
do i = 1, 10
read(*,*) raio
write(*,*) area(raio)
end do
stop
end program exemplo
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment