在运行时获取可执行文件名

Question

使用pgf90编译器，是否可以在运行时获取可执行文件的名称？将此信息与svn修订号一起保存在输出中会很好（这已经在预处理期间实现并完成）。

感谢

Answer 1

Fortran 2003推出了GET_COMMAND_ARGUMENT。除了获取命令参数之外，它还允许检索调用程序的命令名称。这在参数编号0中传递。也许您的编译器已经足够支持它了。参数中传递的内容的确切文本取决于编译器。

program cmd_name
     character :: cmd*100
     call get_command_argument(0, cmd)
     print *, "command name : " // cmd(1:len_trim(cmd))
end program

使用Windows上的Ifort 13.1

打印：

 command name : cmd_name