program cent2fahr

c ....Este programa convierte la temperatura
c ....de centigrados a fahrenheit
      implicit none
c
c.....declaro las variables
c
      real tc,tf
c
c.....pregunto la temperatura en centígrados
c
      print*,"Cual es la temperatura en centígrados?"
      read *,tc

c.....Convertimos a fahrenheit

      tf = 9/5.0*tc+32

c.....Imprimo el resultado

      print*,tc," C = ",tf," F"


      end