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?
subroutine my_subroutine()
write(*,*) ???
end subroutine my_subroutine
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.
No, you can’t. What you want to achieve is called reflection and it is not available in Fortran (nor in C or C++ for what matters).