c=================================
      subroutine myroutine()
      write (6,*) 'Hello, I am a routine in a separate module'
      write (6,*) 'Thanks for calling ...'
      end
c ===============================
