Códigos do portalfisica

pf-subprogramas-01.f90

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