program hello_world3
       implicit none
       character*32 text
c
       text = 'Hello World'
c
       call printtext(text)

       end

       subroutine printtext(tekst)
       implicit none
       character*32 tekst
c
       write (*,*) tekst
c
       end