［Fortran］プログラム起動時に与えられた引数（コマンドライン引数）の数を得る

組み込み関数command_argument_countを使えばよい。

program argcount
    implicit none
    integer :: n
    n = command_argument_count()
    print *, n
end program argcount

以下はWindows PowerShellにおける実行例。

PS > .\argcount.exe
           0
PS > .\argcount.exe 1
           1
PS > .\argcount.exe 1 a BC
           3

この関数はFortran2003で採用された機能であり、2003もしくは2003以降のFortranで使うことができる。なお、現在のgfortranでは既に採用された機能のため問題なく使用することができる。