hola.f - ubuntuperonista/wiki_tp GitHub Wiki
program llamando
write(6,100)
100 format (' Hola desde rutina main!',/)
write(6,110)
110 format(' Llamando a subrutina1!',/)
call sub1
write(6,120)
120 format(t15' Volviendo desde subrutina1!',/)
write(6,130)
130 format(' Llamando a subrutina2!',/)
call sub2
write(6,140)
140 format(t15' Volviendo desde subrutina2!',/)
write(6,150)
150 format(' Eso es todo, amigos!')
end
subroutine sub1
write(6,200)
200 format(t20,' Hola desde subrutina1!',/)
end
subroutine sub2
write(6,210)
210 format(t20,' Hola desde subrutina2!',/)
end