Capítulo 8. Funções e Subrotinas - UFMG

Capítulo 8. Sub-Programas e Módulos 89
! Chamada p e l a s u b r o t i n a bascara para t e s t a r se r a í z e s são r e a i s .
!
function t e s t a d i s c ( c2 , c1 , c0 )
implicit none
l o g i c a l : : t e s t a d i s c
! V a r i á v e i s mudas :
real , intent ( in ) : : c0 , c1 , c2
i f ( c1c1 − 4 c0c2 >= 0 . 0 ) then
t e s t a d i s c= . true .
else
t e s t a d i s c= . f a l s e .
end i f
return
end function t e s t a d i s c
! Calcula as r a í z e s r e a i s , caso existam , de um p o l i n ô n i o de grau 2 .
! Usa função t e s t a d i s c .
!
subroutine bascara ( a2 , a1 , a0 , r a i z e s r e a i s , r1 , r2 )
implicit none
! V a r i á v e i s mudas :
real , intent ( in ) : : a0 , a1 , a2
logical , intent ( out ) : : r a i z e s r e a i s
real , intent ( out ) : : r1 , r2
! Função externa :
logical , external : : t e s t a d i s c
! V a r i á v e i s l o c a i s :
real : : d i s c
!
r a i z e s r e a i s= t e s t a d i s c ( a2 , a1 , a0 )
i f ( . not . r a i z e s r e a i s ) return
d i s c= a1a1 − 4 a0a2
r1= 0.5( − a1 − s q r t ( d i s c ) ) / a2
r2= 0.5( − a1 + s q r t ( d i s c ) ) / a2
return
end subroutine bascara
! Calcula as r a í z e s r e a i s de um polinômio de grau 2 .
program bascara2
implicit none
l o g i c a l : : c o n t r o l e
real : : a , b , c
real : : x1 , x2 ! Raízes r e a i s .
!
do
print , ”Entre com os v a l o r e s dos c o e f i c i e n t e s ( a , b , c ) , ”
print , ”onde ax2 + bx + c . ”
read , a , b , c
c a l l bascara ( a , b , c , c o n t r o l e , x1 , x2 )
i f ( c o n t r o l e ) then
print , ”As r a í z e s ( r e a i s ) são : ”
print , ”x1=” , x1
print , ”x2=” , x2
exit
else
print , ”As r a í z e s são complexas . Tente novamente . ”
end i f
end do
end program bascara2
Autor: Rudi Gaelzer – IFM/UFPel Impresso: 23 de abril de 2008