Запрос в Фортране и распечатка имени функции или подпрограммы

Можно ли в Фортране запросить имя функции или подпрограммы, в которой я нахожусь? То есть, что я ставлю вместо "???" чтобы заставить его печатать «my_subroutine» на экране?

subroutine my_subroutine()
   write(*,*) ???
end subroutine my_subroutine

Я пытаюсь найти способ реализовать собственный отладчик / профилировщик, используя только механизм поиска и замены текстового редактора. Был бы полезен программный запрос моей позиции в коде.