title: Fortran query and print out function or subroutine name
body: <p>Is it possible in Fortran to query the name of the function or subroutine that I am in? I.e., what do I put in place of '???' to get it to print 'my_subroutine' on the screen?</p>
  
  <pre><code>subroutine my_subroutine()
     write(*,*) ???
  end subroutine my_subroutine
  </code></pre>
  
  <p>I am trying to find a way to implement a custom debugger/profiler using nothing but a text editor's search and replace mechanism. Programmatically querying my position in the code would be helpful.</p>