+-------------------------Fortran 2003 ドラフト標準--------------------------+
目的
プログラムを呼び出したコマンドを戻します。
クラス
サブルーチン
引き数の型と属性
- COMMAND (オプション)
- プログラムを呼び出すコマンドです。コマンドが不明の場合には、空のストリングになります。COMMAND はスカラーで、型がデフォルトの文字でなければならない INTENT(OUT) 引き数です。
- LENGTH (オプション)
- プログラムを呼び出したコマンドの有効な長さです。コマンドの長さが不明の場合には 0 となります。この長さには、各引き数の有効な後続ブランクが含まれます。コマンドが COMMAND 引き数に割り当てられる場合に発生する切り捨てや埋め込みは含まれません。
これは、スカラーで、型がデフォルトの整数で
なければならない INTENT(OUT) 引き数です。
- STATUS (オプション)
- 状況の値です。
これは、スカラーで、型がデフォルトの整数で
なければならない INTENT(OUT) 引き数です。
STATUS には以下のいずれかの値が入ります。
- コマンド検索が失敗した場合は 1
- COMMAND 引き数が存在し、その値がコマンドの有効な長さよりも小さい場合は -1
- それ以外の場合は 0
例
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 ドラフト標準----------------------+
