subroutine sub1
     write(6,200)
200  format(t20,' Hola desde subrutina1!',/)
     end