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)