+-------------------------Fortran 2003 ドラフト標準--------------------------+

GET_COMMAND(COMMAND, LENGTH, STATUS)

目的

プログラムを呼び出したコマンドを戻します。

クラス

サブルーチン

引き数の型と属性

COMMAND (オプション)
プログラムを呼び出すコマンドです。コマンドが不明の場合には、空のストリングになります。COMMAND はスカラーで、型がデフォルトの文字でなければならない INTENT(OUT) 引き数です。

LENGTH (オプション)
プログラムを呼び出したコマンドの有効な長さです。コマンドの長さが不明の場合には 0 となります。この長さには、各引き数の有効な後続ブランクが含まれます。コマンドが COMMAND 引き数に割り当てられる場合に発生する切り捨てや埋め込みは含まれません。 これは、スカラーで、型がデフォルトの整数で なければならない INTENT(OUT) 引き数です。

STATUS (オプション)
状況の値です。 これは、スカラーで、型がデフォルトの整数で なければならない INTENT(OUT) 引き数です。

STATUS には以下のいずれかの値が入ります。

integer len, status
character(7) :: cmd
call    GET_COMMAND(cmd, len, status)
print*, cmd
print*, len
print*, status
end

上記のプログラムで生成される出力例は次のとおりです。

$ a.out
a.out       (followed by two spaces)
5
0
$ a.out aa
a.out a
8
-1

+----------------------End of Fortran 2003 ドラフト標準----------------------+

IBM Copyright 2003