［Fortran］起動をするプログラム自身のファイル名（プログラム名）を得る

サブルーチンget_command_argumentを使えばよい。第1引数に整数の0を与えると、その起動しているプログラム自身のファイル名（プログラム名）が得られる。

program prgname
    implicit none
    character(len = 48) :: str
    call get_command_argument(0, str)
    print *, str
end program prgname

以下はWindows PowerShellにおける実行例。「C:\○○\○○」はそのプログラムを実行したフォルダーを示す。

PS C:\○○\○○> .\prgname.exe
C:\○○\○○\prgname.exe

このサブルーチンはFortran2003で採用された機能であり、2003もしくは2003以降のFortranで使うことができる。現在のgfortranでは採用された機能のため問題なく使用することができる。