■

n番目のコマンドライン引数を求められます。

PROGRAM test
IMPLICIT NONE
INTEGER :: n, length
CHARACTER(LEN = 120) :: text
n = 0
CALL GET_COMMAND_ARGUMENT(n, text, length)
PRINT *, n
PRINT '(a)', text(1:length)
STOP
END PROGRAM test

コマンドラインの第0引数、すなわちファイル名を書き出させます。