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)