Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
Códigos do portalfisica
program chama_func
implicit none
real :: a
real :: area_do_circulo !!! IMPORTANTE declarar o tipo função quando externa
a = area_do_circulo(2.0)
print *, "A área do circulo com raio 2.0 é "
print *, a
end program chama_func
! Esta função calcula a área de um círculo de raio r
function area_do_circulo(r)
implicit none
! argumentos fictícios
real :: area_do_circulo
! variaveis locais
real :: r
real :: pi
pi = 4 * atan (1.0)
! resultado da função
area_do_circulo = pi * r**2
end function area_do_circulo
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.