test

Sun Studio 12: Fortran ライブラリ・リファレンス

1.4.15 getarg、iargc: コマンド行の引数の取得

getarg と iargc は、コマンド行プリプロセッサによって展開されたコマンド行引数にアクセスします。

1.4.15.1 getarg: コマンド行の引数の取得

サブルーチンは、次のように呼び出します。

call getarg( k, arg )

k

INTEGER*4

入力 

引数の索引 (0 = 最初の引数 = コマンド名) 

arg

character*n

出力 

k 番目の引数

n

INTEGER*4

引数のサイズ 

もっとも長い引数が入るだけの大きさ 

1.4.15.2 iargc: コマンド行の引数の個数の取得

関数は、次のように呼び出します。

m = iargc()

戻り値 

INTEGER*4

出力 

コマンド行の引数の個数 

例: iargc と getarg: 引数の個数を調べ、各引数を読み取ります。


demo% cat yarg.f
       character argv*10
       INTEGER*4 i, iargc, n
       n = iargc()
       do 1 i = 1, n
         call getarg( i, argv )
 1       write( *, '( i2, 1x, a )' ) i, argv
       end
demo% f95 yarg.f
demo% a.out *.f
1 first.f
2 yarg.f

参照: execve(2)、getenv(3F)