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