サブルーチンは、次のように呼び出します。
call getenv( ename, evalue ) |
|||
ename |
character*n |
入力 |
検索する環境変数の名前 |
evalue |
character*n |
出力 |
見つかった環境変数の値。見つからなかった場合は空 |
ename と evalue には、それぞれの文字列が十分入るだけの大きさが必要です。
evalue が小さすぎてすべての文字列を格納できない場合は、文字列は evalue の長さに合わせて切り捨てされます。
getenv サブルーチンは環境リストからename=evalue の形式の文字列を検索し、その文字列があった場合には evalue の値を返し、なかった場合には evalue を空白で埋めます。
例: $SHELL の値を印刷するには、getenv() を使用します。
character*18 evalue call getenv( 'SHELL', evalue ) write(*,*) "'", evalue, "'" end |
参照: execve(2) および environ(5)