subroutine sub2
     write(6,210)
210  format(t20,' Hola desde subrutina2!',/)
     end