subroutine getarg ( k, arg ) character*(*) arg function iargc ()
call getarg( k , arg ) 文は、k 番目のコマンド行引数を取得して、arg に格納します。
0 番目の引数はコマンド名です。
関数 iargc は引数の数を返します。これは、最後のコマンド行引数のインデックスです。
demo% cat tesargs.f character argv*10 integer i, iargc, m m = iargc() do i = 1, m call getarg ( i, argv ) write( *, '( i2, 1x, a )' ) i, argv end do end demo % a.out first second last 1 first 2 second 3 last demo%
libfui.a
execve(2), getenv(3F)